Group_DJD/D7DJbulaikeyi
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

检验信息管理 加一个克重的筛选，新建指示单 增行 颜色和匹数带下来，指示单 颜色 绑定客户 手动输入模糊搜索保存的数据，坯布名称 手动输入 模糊查询保存的数据，新建指示单 客户，合同号，纸管，空差 需要回车到下一个

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-09-20 14:17:01 +08:00
parent aa81285e79
commit c34a9975c1
11 changed files with 334 additions and 165 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
打卷检验管理/ProjectGroup1.bpg
View File

@ -9,15 +9,15 @@ MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
DCC = $(ROOT)\bin\dcc32.exe $** DCC = $(ROOT)\bin\dcc32.exe $**
BRCC = $(ROOT)\bin\brcc32.exe $** BRCC = $(ROOT)\bin\brcc32.exe $**
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
PROJECTS = testDll.exe ProductPrice.dll PROJECTS = FinishedClothWarehouse.dll testDll.exe
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
default: $(PROJECTS) default: $(PROJECTS)
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
testDll.exe: testDll.dpr FinishedClothWarehouse.dll: ..\..\..\..\项目代码\D7szYidui\成品仓库(FinishedClothWarehouse.dll)\FinishedClothWarehouse.dpr
$(DCC) $(DCC)
ProductPrice.dll: ProductPrice.dpr testDll.exe: ..\..\..\..\项目代码\D7szYidui\成品仓库(FinishedClothWarehouse.dll)\testDll.dpr
$(DCC) $(DCC)

23
打卷检验管理/ProjectGroup1.~bpg Normal file
View File

@ -0,0 +1,23 @@
#------------------------------------------------------------------------------
VERSION = BWS.01
#------------------------------------------------------------------------------
!ifndef ROOT
ROOT = $(MAKEDIR)\..
!endif
#------------------------------------------------------------------------------
MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
DCC = $(ROOT)\bin\dcc32.exe $**
BRCC = $(ROOT)\bin\brcc32.exe $**
#------------------------------------------------------------------------------
PROJECTS = TradeManage.dll testDll.exe
#------------------------------------------------------------------------------
default: $(PROJECTS)
#------------------------------------------------------------------------------
TradeManage.dll: TradeManage.dpr
$(DCC)
testDll.exe: testDll.dpr
$(DCC)

3
打卷检验管理/TradeManage.dof
View File

@ -136,6 +136,3 @@ ProductVersion=1.0.0.0
Comments= Comments=
[Excluded Packages] [Excluded Packages]
c:\program files\borland\delphi7\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package c:\program files\borland\delphi7\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package
[HistoryLists\hlUnitAliases]
Count=1
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;

50
打卷检验管理/TradeManage.skincfg Normal file
View File

@ -0,0 +1,50 @@
[ExpressSkins]
Default=1
ShowNotifications=1
Enabled=0
dxSkinBlack=1
dxSkinBlue=1
dxSkinBlueprint=1
dxSkinCaramel=1
dxSkinCoffee=1
dxSkinDarkRoom=1
dxSkinDarkSide=1
dxSkinDevExpressDarkStyle=1
dxSkinDevExpressStyle=1
dxSkinFoggy=1
dxSkinGlassOceans=1
dxSkinHighContrast=1
dxSkiniMaginary=1
dxSkinLilian=1
dxSkinLiquidSky=1
dxSkinLondonLiquidSky=1
dxSkinMcSkin=1
dxSkinMetropolis=1
dxSkinMetropolisDark=1
dxSkinMoneyTwins=1
dxSkinOffice2007Black=1
dxSkinOffice2007Blue=1
dxSkinOffice2007Green=1
dxSkinOffice2007Pink=1
dxSkinOffice2007Silver=1
dxSkinOffice2010Black=1
dxSkinOffice2010Blue=1
dxSkinOffice2010Silver=1
dxSkinOffice2013DarkGray=1
dxSkinOffice2013LightGray=1
dxSkinOffice2013White=1
dxSkinPumpkin=1
dxSkinSeven=1
dxSkinSevenClassic=1
dxSkinSharp=1
dxSkinSharpPlus=1
dxSkinSilver=1
dxSkinSpringTime=1
dxSkinStardust=1
dxSkinSummer2008=1
dxSkinTheAsphaltWorld=1
dxSkinsDefaultPainters=1
dxSkinValentine=1
dxSkinVS2010=1
dxSkinWhiteprint=1
dxSkinXmas2008Blue=1

42
打卷检验管理/U_JYOrderCDOne.dfm
View File

@ -1,7 +1,7 @@
object frmJYOrderCDOne: TfrmJYOrderCDOne object frmJYOrderCDOne: TfrmJYOrderCDOne
Left = 296 Left = 292
Top = 178 Top = 527
Width = 1400 Width = 1557
Height = 757 Height = 757
Caption = #26816#39564#25253#21578 Caption = #26816#39564#25253#21578
Color = clBtnFace Color = clBtnFace
@ -21,7 +21,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1384 Width = 1549
Height = 62 Height = 62
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -276,7 +276,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 62 Top = 62
Width = 1384 Width = 1549
Height = 88 Height = 88
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -570,6 +570,19 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label38: TLabel
Left = 1221
Top = 14
Width = 26
Height = 12
Caption = #20811#37325
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object EndDate: TDateTimePicker object EndDate: TDateTimePicker
Left = 84 Left = 84
Top = 34 Top = 34
@ -656,7 +669,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnChange = PRTCodeNameChange OnChange = PRTCodeNameChange
end end
object RadioGroup1: TRadioGroup object RadioGroup1: TRadioGroup
Left = 1370 Left = 1450
Top = -1 Top = -1
Width = 89 Width = 89
Height = 92 Height = 92
@ -799,8 +812,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
'') '')
end end
object CheckBox3: TCheckBox object CheckBox3: TCheckBox
Left = 1246 Left = 1342
Top = 8 Top = 15
Width = 105 Width = 105
Height = 57 Height = 57
Caption = #31934#30830#25628#32034 Caption = #31934#30830#25628#32034
@ -831,12 +844,21 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
TabOrder = 23 TabOrder = 23
OnChange = PRTCodeNameChange OnChange = PRTCodeNameChange
end end
object MJSJKZ: TEdit
Tag = 2
Left = 1252
Top = 10
Width = 77
Height = 20
TabOrder = 24
OnChange = PRTCodeNameChange
end
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 150 Top = 150
Width = 1384 Width = 1549
Height = 568 Height = 576
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 3 TabOrder = 3

2
打卷检验管理/U_JYOrderCDOne.pas
View File

@ -228,6 +228,8 @@ type
CustomerNoName: TEdit; CustomerNoName: TEdit;
ToolButton14: TToolButton; ToolButton14: TToolButton;
ADOQueryMain: TADOQuery; ADOQueryMain: TADOQuery;
Label38: TLabel;
MJSJKZ: TEdit;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);

192
打卷检验管理/U_OrderInPut.dfm
View File

@ -1,6 +1,6 @@
object frmOrderInPut: TfrmOrderInPut object frmOrderInPut: TfrmOrderInPut
Left = 284 Left = 393
Top = 185 Top = 409
Width = 1379 Width = 1379
Height = 761 Height = 761
Caption = #25351#31034#21333#24405#20837 Caption = #25351#31034#21333#24405#20837
@ -18,7 +18,7 @@ object frmOrderInPut: TfrmOrderInPut
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1363 Width = 1371
Height = 29 Height = 29
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -66,7 +66,7 @@ object frmOrderInPut: TfrmOrderInPut
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 0 Left = 0
Top = 29 Top = 29
Width = 1363 Width = 1371
Height = 280 Height = 280
Align = alTop Align = alTop
BevelInner = bvNone BevelInner = bvNone
@ -878,7 +878,7 @@ object frmOrderInPut: TfrmOrderInPut
Top = 8 Top = 8
Width = 100 Width = 100
Height = 18 Height = 18
TabOrder = 1 TabOrder = 3
OnKeyPress = ConNoKeyPress OnKeyPress = ConNoKeyPress
end end
object RanFactory: TBtnEditC object RanFactory: TBtnEditC
@ -905,7 +905,7 @@ object frmOrderInPut: TfrmOrderInPut
Format = 'yyyy-MM-dd' Format = 'yyyy-MM-dd'
Time = 40916.670856296290000000 Time = 40916.670856296290000000
ShowCheckbox = True ShowCheckbox = True
TabOrder = 2 TabOrder = 4
end end
object CustomerNoName: TBtnEditC object CustomerNoName: TBtnEditC
Tag = 2 Tag = 2
@ -916,6 +916,7 @@ object frmOrderInPut: TfrmOrderInPut
Hint = 'CustomerNo/'#23458#25143 Hint = 'CustomerNo/'#23458#25143
TabOrder = 0 TabOrder = 0
OnChange = CustomerNoNameChange OnChange = CustomerNoNameChange
OnKeyPress = CustomerNoNameKeyPress
OnBtnUpClick = CustomerNoNameBtnUpClick OnBtnUpClick = CustomerNoNameBtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick OnBtnDnClick = CustomerNoNameBtnDnClick
end end
@ -1150,7 +1151,7 @@ object frmOrderInPut: TfrmOrderInPut
Format = 'yyyy-MM-dd' Format = 'yyyy-MM-dd'
Time = 40916.670856296290000000 Time = 40916.670856296290000000
ShowCheckbox = True ShowCheckbox = True
TabOrder = 3 TabOrder = 5
end end
object MPRTCode: TBtnEditC object MPRTCode: TBtnEditC
Tag = 2 Tag = 2
@ -1560,7 +1561,7 @@ object frmOrderInPut: TfrmOrderInPut
OnClick = Button1Click OnClick = Button1Click
end end
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 937 Left = 945
Top = 0 Top = 0
Width = 424 Width = 424
Height = 278 Height = 278
@ -1589,7 +1590,8 @@ object frmOrderInPut: TfrmOrderInPut
Top = 34 Top = 34
Width = 100 Width = 100
Height = 18 Height = 18
TabOrder = 4 TabOrder = 1
OnKeyPress = CustomerNoNameKeyPress
end end
object jiazhong: TEdit object jiazhong: TEdit
Tag = 12 Tag = 12
@ -1597,13 +1599,14 @@ object frmOrderInPut: TfrmOrderInPut
Top = 34 Top = 34
Width = 100 Width = 100
Height = 18 Height = 18
TabOrder = 5 TabOrder = 2
OnKeyPress = CustomerNoNameKeyPress
end end
end end
object ToolBar2: TToolBar object ToolBar2: TToolBar
Left = 0 Left = 0
Top = 309 Top = 309
Width = 1363 Width = 1371
Height = 29 Height = 29
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 83
@ -1650,8 +1653,8 @@ object frmOrderInPut: TfrmOrderInPut
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 338 Top = 338
Width = 1363 Width = 1371
Height = 384 Height = 392
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
@ -1703,6 +1706,84 @@ object frmOrderInPut: TfrmOrderInPut
Styles.Header = DataLink_TradeManage.Default Styles.Header = DataLink_TradeManage.Default
Width = 35 Width = 35
end end
object v1PRTCodeName: TcxGridDBColumn
Caption = #22383#24067#21517#31216
DataBinding.FieldName = 'PRTCodeName'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v1PRTCodeNamePropertiesButtonClick
Properties.OnChange = v1PRTCodeNamePropertiesChange
HeaderAlignmentHorz = taCenter
Width = 79
end
object Tv1Column1: TcxGridDBColumn
Caption = #32568#21495
DataBinding.FieldName = 'GH'
HeaderAlignmentHorz = taCenter
Width = 65
end
object v1PRTColor: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'PRTColor'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v1PRTColorPropertiesButtonClick
Properties.OnChange = v1PRTColorPropertiesChange
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Styles.Header = DataLink_TradeManage.handBlack
Width = 64
end
object v1PRTOrderQty: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'PRTOrderQty'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_TradeManage.FontBlue
Width = 61
end
object v1PRTMF: TcxGridDBColumn
Caption = #38376#24133'(cm)'
DataBinding.FieldName = 'PRTMF'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 75
end
object v1PRTKZ: TcxGridDBColumn
Caption = #20811#37325'(g/'#13217')'
DataBinding.FieldName = 'PRTKZ'
HeaderAlignmentHorz = taCenter
Width = 78
end
object v1Column1: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'SOrdDefNote1'
HeaderAlignmentHorz = taCenter
Width = 123
end
object v1OrderUnit: TcxGridDBColumn
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'OrderUnit'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v1OrderUnitPropertiesButtonClick
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_TradeManage.FontBlue
Width = 77
end
object v1KHorderNo: TcxGridDBColumn object v1KHorderNo: TcxGridDBColumn
Caption = #23458#25143#35746#21333#21495 Caption = #23458#25143#35746#21333#21495
DataBinding.FieldName = 'KHorderNo' DataBinding.FieldName = 'KHorderNo'
@ -1722,20 +1803,6 @@ object frmOrderInPut: TfrmOrderInPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 74 Width = 74
end end
object v1PRTCodeName: TcxGridDBColumn
Caption = #22383#24067#21517#31216
DataBinding.FieldName = 'PRTCodeName'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v1PRTCodeNamePropertiesButtonClick
Properties.OnChange = v1PRTCodeNamePropertiesChange
HeaderAlignmentHorz = taCenter
Width = 79
end
object v1Column4: TcxGridDBColumn object v1Column4: TcxGridDBColumn
Caption = #21697#21517#33521#25991 Caption = #21697#21517#33521#25991
DataBinding.FieldName = 'Sorddefstr5' DataBinding.FieldName = 'Sorddefstr5'
@ -1749,21 +1816,6 @@ object frmOrderInPut: TfrmOrderInPut
Styles.Header = DataLink_TradeManage.Default Styles.Header = DataLink_TradeManage.Default
Width = 57 Width = 57
end end
object v1PRTColor: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'PRTColor'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v1PRTColorPropertiesButtonClick
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Styles.Header = DataLink_TradeManage.handBlack
Width = 64
end
object v1Column3: TcxGridDBColumn object v1Column3: TcxGridDBColumn
Caption = #39068#33394'('#33521#25991')' Caption = #39068#33394'('#33521#25991')'
DataBinding.FieldName = 'SOrddefstr4' DataBinding.FieldName = 'SOrddefstr4'
@ -1771,35 +1823,6 @@ object frmOrderInPut: TfrmOrderInPut
Styles.Header = DataLink_TradeManage.FonePurple Styles.Header = DataLink_TradeManage.FonePurple
Width = 115 Width = 115
end end
object v1PRTOrderQty: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'PRTOrderQty'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_TradeManage.FontBlue
Width = 61
end
object v1OrderUnit: TcxGridDBColumn
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'OrderUnit'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v1OrderUnitPropertiesButtonClick
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_TradeManage.FontBlue
Width = 77
end
object v1Column1: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'SOrdDefNote1'
HeaderAlignmentHorz = taCenter
Width = 123
end
object v1PRTHX: TcxGridDBColumn object v1PRTHX: TcxGridDBColumn
Caption = #33457#22411#33457#21495 Caption = #33457#22411#33457#21495
DataBinding.FieldName = 'PRTHX' DataBinding.FieldName = 'PRTHX'
@ -1815,19 +1838,6 @@ object frmOrderInPut: TfrmOrderInPut
Styles.Header = DataLink_TradeManage.Default Styles.Header = DataLink_TradeManage.Default
Width = 87 Width = 87
end end
object v1PRTMF: TcxGridDBColumn
Caption = #38376#24133'(cm)'
DataBinding.FieldName = 'PRTMF'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 75
end
object v1PRTKZ: TcxGridDBColumn
Caption = #20811#37325'(g/'#13217')'
DataBinding.FieldName = 'PRTKZ'
HeaderAlignmentHorz = taCenter
Width = 78
end
object v1Column2: TcxGridDBColumn object v1Column2: TcxGridDBColumn
Caption = #35268#26684 Caption = #35268#26684
DataBinding.FieldName = 'PRTSpec' DataBinding.FieldName = 'PRTSpec'
@ -1867,12 +1877,6 @@ object frmOrderInPut: TfrmOrderInPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
object Tv1Column1: TcxGridDBColumn
Caption = #32568#21495
DataBinding.FieldName = 'GH'
HeaderAlignmentHorz = taCenter
Width = 65
end
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #25209#21495 Caption = #25209#21495
DataBinding.FieldName = 'PIH' DataBinding.FieldName = 'PIH'
@ -1885,10 +1889,10 @@ object frmOrderInPut: TfrmOrderInPut
end end
end end
object cxGrid4: TcxGrid object cxGrid4: TcxGrid
Left = 348 Left = 484
Top = 56 Top = 256
Width = 157 Width = 237
Height = 265 Height = 321
TabOrder = 4 TabOrder = 4
Visible = False Visible = False
object TV4: TcxGridDBTableView object TV4: TcxGridDBTableView

139
打卷检验管理/U_OrderInPut.pas
View File

@ -235,8 +235,11 @@ type
procedure SLBNameBtnClick(Sender: TObject); procedure SLBNameBtnClick(Sender: TObject);
procedure ToolButton4Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject);
procedure CustomerNoNameChange(Sender: TObject); procedure CustomerNoNameChange(Sender: TObject);
procedure v1PRTCodeNamePropertiesChange(Sender: TObject);
procedure TV4CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure TV4CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure v1PRTCodeNamePropertiesChange(Sender: TObject);
procedure CustomerNoNameKeyPress(Sender: TObject; var Key: Char);
procedure v1PRTColorPropertiesChange(Sender: TObject);
//procedure ConNoChange(Sender: TObject);
private private
procedure InitData(); procedure InitData();
procedure ZDYHelp(FButn: TcxButtonEdit; LType: string); procedure ZDYHelp(FButn: TcxButtonEdit; LType: string);
@ -1097,7 +1100,7 @@ begin
flagname := 'ÑÕÉ«'; flagname := 'ÑÕÉ«';
V1Name.Caption := 'ÖÐÎÄÃû³Æ'; V1Name.Caption := 'ÖÐÎÄÃû³Æ';
V1Note.Caption := 'Ó¢ÎÄÃû³Æ'; V1Note.Caption := 'Ó¢ÎÄÃû³Æ';
// MainType:=Trim(DName); MainType := Trim(CustomerNoName.Text);
fnote := True; fnote := True;
if ShowModal = 1 then if ShowModal = 1 then
begin begin
@ -1128,8 +1131,8 @@ begin
begin begin
Edit; Edit;
FieldByName('XHNO').Value := IntToStr(i); FieldByName('XHNO').Value := IntToStr(i);
FieldByName('PRTColor').Value := ''; //FieldByName('PRTColor').Value := '';
FieldByName('PRTOrderQty').Value := null; //FieldByName('PRTOrderQty').Value := null;
FieldByName('PRTPrice').Value := 0; FieldByName('PRTPrice').Value := 0;
FieldByName('SOrddefstr4').Value := null; FieldByName('SOrddefstr4').Value := null;
FieldByName('SOrddefstr2').Value := null; FieldByName('SOrddefstr2').Value := null;
@ -1408,9 +1411,12 @@ begin
MPRTKZ.Text := Trim(ADOTemp.fieldbyname('MPRTKZ').AsString); MPRTKZ.Text := Trim(ADOTemp.fieldbyname('MPRTKZ').AsString);
MPRTChuanY.Text := Trim(ADOTemp.fieldbyname('ChuanYangNote').AsString); MPRTChuanY.Text := Trim(ADOTemp.fieldbyname('ChuanYangNote').AsString);
MPRTQtyNote.Text := Trim(ADOTemp.fieldbyname('QtyNote').AsString); MPRTQtyNote.Text := Trim(ADOTemp.fieldbyname('QtyNote').AsString);
CustomerNoName.Text := Trim(ADOTemp.fieldbyname('CustomerNoName').AsString);
CustomerNoName.TxtCode := Trim(ADOTemp.fieldbyname('CustomerNo').AsString); // CustomerNoName.Text := Trim(ADOTemp.fieldbyname('CustomerNoName').AsString);
DLYDate.DateTime := ADOTemp.fieldbyname('DLYDate').Value; // CustomerNoName.TxtCode := Trim(ADOTemp.fieldbyname('CustomerNo').AsString);
// DLYDate.DateTime := ADOTemp.fieldbyname('DLYDate').Value;
ConMainId := Trim(ADOTemp.fieldbyname('MainId').AsString); ConMainId := Trim(ADOTemp.fieldbyname('MainId').AsString);
// ConGS:=Trim(ADOTemp.fieldbyname('SYRName').AsString); // ConGS:=Trim(ADOTemp.fieldbyname('SYRName').AsString);
//OrdDefStr2.Text:=Trim(ADOTemp.fieldbyname('ConDefStr2').AsString); //OrdDefStr2.Text:=Trim(ADOTemp.fieldbyname('ConDefStr2').AsString);
@ -1862,37 +1868,102 @@ begin
// end; // end;
end; end;
procedure TfrmOrderInPut.v1PRTCodeNamePropertiesChange(Sender: TObject); procedure TfrmOrderInPut.TV4CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
var
SelectedValue: string;
FocusedColumn: TcxGridColumn;
begin begin
// MPRTSCTeBieNote.SetFocus; try
// if Length(Trim(Order_Sub.fieldbyname('prtcodename').AsString)) > 1 then SelectedValue := CDS_CON.FieldByName('ZDYName').AsString;
// begin
// with ADOQueryTmp do cxGrid4.Visible := False;
// begin
// Close; FocusedColumn := Tv1.Controller.FocusedColumn;
// sql.Clear;
// sql.Add('select A.*,ZJM=dbo.getPinYin(A.ZdyName) from KH_ZDY A where A.Type=''PRTCodeName'''); if not Assigned(FocusedColumn) then
// sql.Add('and A.ZDYName like ' + quotedstr('%' + trim(Order_Sub.fieldbyname('prtcodename').AsString) + '%')); Exit;
// Open;
// end; if not (Order_Sub.State in [dsEdit, dsInsert]) then
// SCreateCDS20(ADOQueryTmp, CDS_Con); Order_Sub.Edit;
// SInitCDSData20(ADOQueryTmp, CDS_CON);
// if CDS_Con.IsEmpty then if FocusedColumn.Name = 'v1PRTCodeName' then
// cxGrid4.Visible := False begin
// else Order_Sub.FieldByName('PRTCodeName').AsString := SelectedValue;
// cxGrid4.Visible := True; end
// end; else if FocusedColumn.Name = 'v1PRTColor' then
begin
Order_Sub.FieldByName('PRTColor').AsString := SelectedValue;
end;
except
on E: Exception do
begin
ShowMessage('错误: ' + E.Message);
end;
end;
end; end;
procedure TfrmOrderInPut.TV4CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure TfrmOrderInPut.v1PRTCodeNamePropertiesChange(Sender: TObject);
var
SearchText: string;
Editor: TcxButtonEdit;
begin begin
// conno.OnChange := nil;
// Editor := Sender as TcxButtonEdit;
// cxGrid4.Visible := False;
// conNo.Text := CDS_CON.fieldbyname('conNO').AsString; SearchText := Trim(Editor.Text);
// // showmessage(SearchText);
// cxGrid4.Visible := False; with ADOQueryTmp do
// conno.OnChange:=ConNoChange; begin
Close;
sql.Clear;
sql.Add('select A.*,ZJM=dbo.getPinYin(A.ZdyName) from KH_ZDY A where A.Type=''PRTCodeName''');
sql.Add('and A.ZDYName like ' + quotedstr('%' + trim(SearchText) + '%'));
Open;
// ShowMessage(SQL.text);
end;
SCreateCDS20(ADOQueryTmp, CDS_Con);
SInitCDSData20(ADOQueryTmp, CDS_CON);
if CDS_Con.IsEmpty then
cxGrid4.Visible := False
else
cxGrid4.Visible := True;
end;
procedure TfrmOrderInPut.CustomerNoNameKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then // 回车
begin
Key := #0;
SelectNext(Sender as TWinControl, True, True); // 按 TabOrder 顺序跳到下一个
end;
end;
procedure TfrmOrderInPut.v1PRTColorPropertiesChange(Sender: TObject);
var
SearchText: string;
Editor: TcxButtonEdit;
begin
Editor := Sender as TcxButtonEdit;
SearchText := Trim(Editor.Text);
with ADOQueryTmp do
begin
Close;
sql.Clear;
sql.Add('select A.*,ZJM=dbo.getPinYin(A.ZdyName) from KH_ZDY A where A.Type=''OrdColor''');
sql.Add('and A.ZDYName like ' + quotedstr('%' + trim(SearchText) + '%'));
Open;
end;
SCreateCDS20(ADOQueryTmp, CDS_Con);
SInitCDSData20(ADOQueryTmp, CDS_CON);
if CDS_Con.IsEmpty then
cxGrid4.Visible := False
else
cxGrid4.Visible := True;
end; end;
end. end.

26
打卷检验管理/U_ProductOrderNewList.dfm
View File

@ -1,6 +1,6 @@
object frmProductOrderNewList: TfrmProductOrderNewList object frmProductOrderNewList: TfrmProductOrderNewList
Left = 464 Left = 372
Top = 256 Top = 544
Width = 1382 Width = 1382
Height = 754 Height = 754
Caption = #21253#35013#25351#31034#21333 Caption = #21253#35013#25351#31034#21333
@ -20,7 +20,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1366 Width = 1374
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 95 ButtonWidth = 95
@ -195,7 +195,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1366 Width = 1374
Height = 40 Height = 40
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -512,7 +512,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 95 Top = 95
Width = 1366 Width = 1374
Height = 333 Height = 333
Align = alTop Align = alTop
TabOrder = 3 TabOrder = 3
@ -908,8 +908,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end end
object cxSplitter1: TcxSplitter object cxSplitter1: TcxSplitter
Left = 0 Left = 0
Top = 451 Top = 459
Width = 1366 Width = 1374
Height = 8 Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style' HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom AlignSplitter = salBottom
@ -917,8 +917,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end end
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Top = 459 Top = 467
Width = 1366 Width = 1374
Height = 256 Height = 256
Align = alBottom Align = alBottom
Caption = 'Panel2' Caption = 'Panel2'
@ -926,7 +926,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 1 Left = 1
Top = 1 Top = 1
Width = 987 Width = 995
Height = 254 Height = 254
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
@ -1253,7 +1253,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end end
end end
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 988 Left = 996
Top = 1 Top = 1
Width = 377 Width = 377
Height = 254 Height = 254
@ -1283,7 +1283,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 72 Top = 72
Width = 1366 Width = 1374
Height = 23 Height = 23
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
@ -1296,7 +1296,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 23 ClientRectBottom = 23
ClientRectRight = 1366 ClientRectRight = 1374
ClientRectTop = 19 ClientRectTop = 19
end end
object cxGridPopupMenu1: TcxGridPopupMenu object cxGridPopupMenu1: TcxGridPopupMenu

4
打卷检验管理/U_testdll.dfm
View File

@ -1,6 +1,6 @@
object Form1: TForm1 object Form1: TForm1
Left = 153 Left = 666
Top = 124 Top = 380
Width = 791 Width = 791
Height = 554 Height = 554
Caption = 'Form1' Caption = 'Form1'

4
打卷检验管理/testDll.cfg
View File

@ -31,8 +31,8 @@
-M -M
-$M16384,1048576 -$M16384,1048576
-K$00400000 -K$00400000
-LE"c:\program files\borland\delphi7\Projects\Bpl" -LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
-LN"c:\program files\borland\delphi7\Projects\Bpl" -LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"
-w-UNSAFE_TYPE -w-UNSAFE_TYPE
-w-UNSAFE_CODE -w-UNSAFE_CODE
-w-UNSAFE_CAST -w-UNSAFE_CAST