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

加一个染厂缸号输入框 需要标签字段

Browse Source
This commit is contained in:
libingpeng 2025-12-05 11:39:59 +08:00
parent 0e7c3b5104
commit 0f0214c92a
8 changed files with 782 additions and 118 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
打卷检验管理/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 = TradeManage.dll testDll.exe
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
default: $(PROJECTS) default: $(PROJECTS)
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
TradeManage.dll: TradeManage.dpr
$(DCC)
testDll.exe: testDll.dpr testDll.exe: testDll.dpr
$(DCC) $(DCC)
ProductPrice.dll: ProductPrice.dpr
$(DCC)

5
打卷检验管理/TradeManage.dpr
View File

@ -6,7 +6,7 @@ uses
WinTypes, WinTypes,
WinProcs, WinProcs,
U_DataLink in 'U_DataLink.pas' {DataLink_TradeManage: TDataModule}, U_DataLink in 'U_DataLink.pas' {DataLink_TradeManage: TDataModule},
U_GetDllForm in 'U_GetDllForm.pas', U_GetDllForm in 'U_GetDllForm.pas',
U_ZDYHelpSel in '..\..\..\ThreeFun\Form\U_ZDYHelpSel.pas' {frmZDYHelpSel}, U_ZDYHelpSel in '..\..\..\ThreeFun\Form\U_ZDYHelpSel.pas' {frmZDYHelpSel},
U_SelExportField in '..\..\..\ThreeFun\Fun\U_SelExportField.pas' {frmSelExportField}, U_SelExportField in '..\..\..\ThreeFun\Fun\U_SelExportField.pas' {frmSelExportField},
U_ColumnSet in '..\..\..\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet}, U_ColumnSet in '..\..\..\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet},
@ -49,7 +49,8 @@ uses
U_CKProductJYHZList in 'U_CKProductJYHZList.pas' {frmCKProductJYHZList}, U_CKProductJYHZList in 'U_CKProductJYHZList.pas' {frmCKProductJYHZList},
U_SysLogOrder in 'U_SysLogOrder.pas' {frmSysLogOrder}, U_SysLogOrder in 'U_SysLogOrder.pas' {frmSysLogOrder},
U_MJSJFX in 'U_MJSJFX.pas' {frmMJSJFX}, U_MJSJFX in 'U_MJSJFX.pas' {frmMJSJFX},
U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas'; U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas',
U_ZDZSDXZ in 'U_ZDZSDXZ.pas' {frmZDZSD};
{$R *.res} {$R *.res}

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

@ -1,6 +1,6 @@
object frmJYOrderCDOne: TfrmJYOrderCDOne object frmJYOrderCDOne: TfrmJYOrderCDOne
Left = 459 Left = 130
Top = 317 Top = 109
Width = 1400 Width = 1400
Height = 757 Height = 757
Caption = #26816#39564#25253#21578 Caption = #26816#39564#25253#21578
@ -21,8 +21,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1384 Width = 1392
Height = 62 Height = 92
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 119 ButtonWidth = 119
@ -101,51 +101,51 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Top = 0 Top = 0
Caption = #25209#37327#20462#25913#32568#21495 Caption = #25209#37327#20462#25913#32568#21495
ImageIndex = 54 ImageIndex = 54
Wrap = True
OnClick = ToolButton11Click OnClick = ToolButton11Click
end end
object TBDW: TToolButton object TBDW: TToolButton
Left = 608 Left = 0
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #20462#25913#25968#37327#21333#20301 Caption = #20462#25913#25968#37327#21333#20301
ImageIndex = 54 ImageIndex = 54
OnClick = TBDWClick OnClick = TBDWClick
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 719 Left = 111
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #25209#37327#35843#25972#31859#25968 Caption = #25209#37327#35843#25972#31859#25968
ImageIndex = 54 ImageIndex = 54
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object ToolButton13: TToolButton object ToolButton13: TToolButton
Left = 830 Left = 222
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #25209#37327#20928#37325#36716#38271#24230 Caption = #25209#37327#20928#37325#36716#38271#24230
ImageIndex = 54 ImageIndex = 54
OnClick = ToolButton13Click OnClick = ToolButton13Click
end end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 953 Left = 345
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #25209#37327#20462#25913#30382#37325 Caption = #25209#37327#20462#25913#30382#37325
ImageIndex = 54 ImageIndex = 54
OnClick = ToolButton8Click OnClick = ToolButton8Click
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 1064 Left = 456
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360#26631#31614 Caption = #25171#21360#26631#31614
ImageIndex = 96 ImageIndex = 96
Wrap = True
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object TCPDB: TToolButton object TCPDB: TToolButton
Left = 0 Left = 543
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #25104#21697#25171#21253 Caption = #25104#21697#25171#21253
@ -153,7 +153,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = TCPDBClick OnClick = TCPDBClick
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 87 Left = 630
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360#21253#26631#31614 Caption = #25171#21360#21253#26631#31614
@ -162,24 +162,25 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 186 Left = 729
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360#26816#39564#25253#21578 Caption = #25171#21360#26816#39564#25253#21578
ImageIndex = 12 ImageIndex = 12
Wrap = True
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 297 Left = 0
Top = 30 Top = 60
AutoSize = True AutoSize = True
Caption = #25171#21360 Caption = #25171#21360
ImageIndex = 12 ImageIndex = 12
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object Edit3: TEdit object Edit3: TEdit
Left = 360 Left = 63
Top = 30 Top = 60
Width = 68 Width = 68
Height = 30 Height = 30
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -193,8 +194,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnKeyPress = Edit3KeyPress OnKeyPress = Edit3KeyPress
end end
object ComboBox1: TComboBox object ComboBox1: TComboBox
Left = 428 Left = 131
Top = 33 Top = 63
Width = 149 Width = 149
Height = 24 Height = 24
Style = csDropDownList Style = csDropDownList
@ -217,8 +218,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
#26816#39564#30721#21333'('#20013#25991#20116#21015')') #26816#39564#30721#21333'('#20013#25991#20116#21015')')
end end
object Edit4: TEdit object Edit4: TEdit
Left = 577 Left = 280
Top = 30 Top = 60
Width = 121 Width = 121
Height = 30 Height = 30
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -231,8 +232,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Visible = False Visible = False
end end
object ToolButton12: TToolButton object ToolButton12: TToolButton
Left = 698 Left = 401
Top = 30 Top = 60
AutoSize = True AutoSize = True
Caption = #20462#25913#30721#21333 Caption = #20462#25913#30721#21333
ImageIndex = 54 ImageIndex = 54
@ -240,42 +241,50 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton12Click OnClick = ToolButton12Click
end end
object ToolButton9: TToolButton object ToolButton9: TToolButton
Left = 785 Left = 488
Top = 30 Top = 60
AutoSize = True AutoSize = True
Caption = #24322#24120#25968#25454 Caption = #24322#24120#25968#25454
ImageIndex = 2 ImageIndex = 2
OnClick = ToolButton9Click OnClick = ToolButton9Click
end end
object TBExport: TToolButton object TBExport: TToolButton
Left = 872 Left = 575
Top = 30 Top = 60
AutoSize = True AutoSize = True
Caption = #21246#36873#23548#20986 Caption = #21246#36873#23548#20986
ImageIndex = 75 ImageIndex = 75
OnClick = TBExportClick OnClick = TBExportClick
end end
object ToolButton14: TToolButton object ToolButton14: TToolButton
Left = 959 Left = 662
Top = 30 Top = 60
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 75 ImageIndex = 75
OnClick = ToolButton14Click OnClick = ToolButton14Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 1022 Left = 725
Top = 30 Top = 60
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
ImageIndex = 55 ImageIndex = 55
OnClick = TBCloseClick OnClick = TBCloseClick
end end
object ToolButton15: TToolButton
Left = 788
Top = 60
AutoSize = True
Caption = #36716#21333
ImageIndex = 56
OnClick = ToolButton15Click
end
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 62 Top = 92
Width = 1384 Width = 1392
Height = 88 Height = 88
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -789,9 +798,9 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 150 Top = 180
Width = 1384 Width = 1392
Height = 568 Height = 546
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 3 TabOrder = 3

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

@ -224,6 +224,7 @@ type
Edit6: TEdit; Edit6: TEdit;
Tv1Column2: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn;
ToolButton14: TToolButton; ToolButton14: TToolButton;
ToolButton15: TToolButton;
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);
@ -286,6 +287,7 @@ type
procedure Button14Click(Sender: TObject); procedure Button14Click(Sender: TObject);
procedure Button13Click(Sender: TObject); procedure Button13Click(Sender: TObject);
procedure ToolButton14Click(Sender: TObject); procedure ToolButton14Click(Sender: TObject);
procedure ToolButton15Click(Sender: TObject);
// procedure Edit5Click(Sender: TObject); // procedure Edit5Click(Sender: TObject);
// procedure CheckBox3Click(Sender: TObject); // procedure CheckBox3Click(Sender: TObject);
private private
@ -311,7 +313,7 @@ var
implementation implementation
uses uses
U_DataLink, U_OrderInPut, U_Fun, U_MJEdit, U_CPDBAO, U_MJSJFX; U_DataLink, U_OrderInPut, U_Fun, U_MJEdit, U_CPDBAO, U_MJSJFX, U_ZDZSDXZ;
{$R *.dfm} {$R *.dfm}
procedure TfrmJYOrderCDOne.JSbaoNum(); procedure TfrmJYOrderCDOne.JSbaoNum();
@ -2341,7 +2343,7 @@ begin
Fxsws := ADOQueryTemp.fieldbyname('xsws').AsInteger; Fxsws := ADOQueryTemp.fieldbyname('xsws').AsInteger;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('Update JYOrder_Sub Set kmxs=''' + trim(Edit5.Text) + ''' '); sql.Add('Update JYOrder_Sub Set kmxs=''' + trim(Edit5.Text) + ''' ');
sql.Add('where subid=''' + Trim(Order_Main.fieldbyname('subid').AsString) + ''''); sql.Add('where subid=''' + Trim(Order_Main.fieldbyname('subid').AsString) + '''');
@ -2513,5 +2515,49 @@ begin
SelExportData(Tv1, ADOQueryMain, '¼ìÑ鱨¸æ'); SelExportData(Tv1, ADOQueryMain, '¼ìÑ鱨¸æ');
end; end;
procedure TfrmJYOrderCDOne.ToolButton15Click(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
if Order_Main.Locate('SSel', True, []) = False then
begin
Application.MessageBox('ûÓÐÑ¡ÔñÊý¾Ý!', 'Ìáʾ', 0);
Exit;
end;
try
frmZDZSD := TfrmZDZSD.Create(Application);
with frmZDZSD do
begin
if ShowModal = 1 then
begin
with self.Order_Main do
begin
First;
while not Eof do
begin
if self.Order_Main.FieldByName('SSel').AsBoolean = True then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update WFB_MJJY Set mainid=''' + frmZDZSD.Order_Main.fieldbyname('mainid').asstring + ''' ');
sql.Add(', subid=''' + frmZDZSD.Order_Main.fieldbyname('subid').asstring + ''' ');
sql.Add(', APID=''' + frmZDZSD.Order_Main.fieldbyname('subid').asstring + ''' ');
sql.Add('where MJID=''' + Trim(self.Order_Main.fieldbyname('MJID').AsString) + '''');
ExecSQL;
end;
end;
Next;
end;
end;
end;
end;
finally
frmZDZSD.Free;
end;
end;
end. end.

157
打卷检验管理/U_MJManageNewFDNew.dfm
View File

@ -1,6 +1,6 @@
object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 322 Left = 191
Top = 165 Top = 193
Width = 1366 Width = 1366
Height = 833 Height = 833
Caption = #25104#21697#26816#39564 Caption = #25104#21697#26816#39564
@ -19,9 +19,9 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
TextHeight = 12 TextHeight = 12
object cxGrid3: TcxGrid object cxGrid3: TcxGrid
Left = 0 Left = 0
Top = 117 Top = 87
Width = 225 Width = 225
Height = 677 Height = 715
Align = alLeft Align = alLeft
TabOrder = 0 TabOrder = 0
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
@ -124,9 +124,9 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 633 Left = 633
Top = 117 Top = 87
Width = 717 Width = 725
Height = 677 Height = 715
Align = alClient Align = alClient
Color = clWhite Color = clWhite
ParentColor = False ParentColor = False
@ -975,9 +975,9 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Panel2: TPanel object Panel2: TPanel
Left = 439 Left = 439
Top = 117 Top = 87
Width = 194 Width = 194
Height = 677 Height = 715
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -985,7 +985,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
TabOrder = 2 TabOrder = 2
object Label9: TLabel object Label9: TLabel
Left = 152 Left = 152
Top = 78 Top = 72
Width = 15 Width = 15
Height = 22 Height = 22
Caption = 'M' Caption = 'M'
@ -999,7 +999,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label3: TLabel object Label3: TLabel
Left = 144 Left = 144
Top = 427 Top = 397
Width = 26 Width = 26
Height = 22 Height = 22
Caption = 'cm' Caption = 'cm'
@ -1012,7 +1012,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label4: TLabel object Label4: TLabel
Left = 152 Left = 152
Top = 185 Top = 170
Width = 28 Width = 28
Height = 22 Height = 22
Caption = 'KG' Caption = 'KG'
@ -1025,7 +1025,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label5: TLabel object Label5: TLabel
Left = 8 Left = 8
Top = 77 Top = 71
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #38271#24230 Caption = #38271#24230
@ -1038,7 +1038,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label6: TLabel object Label6: TLabel
Left = 8 Left = 8
Top = 427 Top = 398
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #24133#23485 Caption = #24133#23485
@ -1051,7 +1051,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label11: TLabel object Label11: TLabel
Left = 8 Left = 8
Top = 185 Top = 170
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #27611#37325 Caption = #27611#37325
@ -1132,7 +1132,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label22: TLabel object Label22: TLabel
Left = 144 Left = 144
Top = 468 Top = 432
Width = 36 Width = 36
Height = 22 Height = 22
Caption = 'g/'#13217 Caption = 'g/'#13217
@ -1145,7 +1145,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label23: TLabel object Label23: TLabel
Left = 8 Left = 8
Top = 467 Top = 432
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #20811#37325 Caption = #20811#37325
@ -1157,8 +1157,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
ParentFont = False ParentFont = False
end end
object Label27: TLabel object Label27: TLabel
Left = 11 Left = 10
Top = 300 Top = 269
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #20943#38271 Caption = #20943#38271
@ -1171,7 +1171,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label26: TLabel object Label26: TLabel
Left = 8 Left = 8
Top = 335 Top = 306
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #20986#32440 Caption = #20986#32440
@ -1198,7 +1198,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label30: TLabel object Label30: TLabel
Left = 8 Left = 8
Top = 113 Top = 104
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #30382#37325 Caption = #30382#37325
@ -1211,7 +1211,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label31: TLabel object Label31: TLabel
Left = 152 Left = 152
Top = 149 Top = 137
Width = 28 Width = 28
Height = 22 Height = 22
Caption = 'KG' Caption = 'KG'
@ -1224,7 +1224,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label32: TLabel object Label32: TLabel
Left = 8 Left = 8
Top = 149 Top = 137
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #20928#37325 Caption = #20928#37325
@ -1237,7 +1237,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label33: TLabel object Label33: TLabel
Left = 152 Left = 152
Top = 114 Top = 105
Width = 28 Width = 28
Height = 22 Height = 22
Caption = 'KG' Caption = 'KG'
@ -1250,7 +1250,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label34: TLabel object Label34: TLabel
Left = 90 Left = 90
Top = 338 Top = 309
Width = 40 Width = 40
Height = 19 Height = 19
Caption = #20221#25968 Caption = #20221#25968
@ -1276,7 +1276,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label37: TLabel object Label37: TLabel
Left = 8 Left = 8
Top = 41 Top = 38
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #32568#21495 Caption = #32568#21495
@ -1289,7 +1289,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label39: TLabel object Label39: TLabel
Left = 8 Left = 8
Top = 221 Top = 203
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #31995#25968 Caption = #31995#25968
@ -1328,7 +1328,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label28: TLabel object Label28: TLabel
Left = 10 Left = 10
Top = 260 Top = 239
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #21253#21495 Caption = #21253#21495
@ -1341,7 +1341,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label55: TLabel object Label55: TLabel
Left = 24 Left = 24
Top = 387 Top = 358
Width = 63 Width = 63
Height = 20 Height = 20
Caption = #21253#20986#32440 Caption = #21253#20986#32440
@ -1352,9 +1352,22 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label60: TLabel
Left = 8
Top = 463
Width = 34
Height = 32
Caption = #26579#21378#13#10#32568#21495
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object MJFK: TEdit object MJFK: TEdit
Left = 51 Left = 51
Top = 421 Top = 392
Width = 90 Width = 90
Height = 41 Height = 41
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1369,7 +1382,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object MJLen: TEdit object MJLen: TEdit
Left = 57 Left = 57
Top = 73 Top = 67
Width = 90 Width = 90
Height = 36 Height = 36
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1386,7 +1399,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object MJMaoZ: TEdit object MJMaoZ: TEdit
Left = 57 Left = 57
Top = 181 Top = 166
Width = 90 Width = 90
Height = 36 Height = 36
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1402,7 +1415,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object BTPrint: TButton object BTPrint: TButton
Left = 2 Left = 2
Top = 504 Top = 499
Width = 191 Width = 191
Height = 97 Height = 97
Caption = #25552#20132 Caption = #25552#20132
@ -1469,7 +1482,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object MJSJKZ: TEdit object MJSJKZ: TEdit
Left = 51 Left = 51
Top = 462 Top = 427
Width = 90 Width = 90
Height = 41 Height = 41
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1484,7 +1497,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object MJQty2: TEdit object MJQty2: TEdit
Left = 57 Left = 57
Top = 291 Top = 265
Width = 90 Width = 90
Height = 36 Height = 36
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1501,7 +1514,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Edit6: TEdit object Edit6: TEdit
Left = 52 Left = 52
Top = 329 Top = 300
Width = 40 Width = 40
Height = 43 Height = 43
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1535,7 +1548,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object MJQty3: TEdit object MJQty3: TEdit
Left = 57 Left = 57
Top = 109 Top = 100
Width = 90 Width = 90
Height = 36 Height = 36
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1552,7 +1565,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object MJQty4: TEdit object MJQty4: TEdit
Left = 57 Left = 57
Top = 145 Top = 133
Width = 90 Width = 90
Height = 36 Height = 36
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1569,7 +1582,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object ComboBox1: TComboBox object ComboBox1: TComboBox
Left = 132 Left = 132
Top = 330 Top = 301
Width = 45 Width = 45
Height = 40 Height = 40
Style = csDropDownList Style = csDropDownList
@ -1592,7 +1605,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object MJStr4: TEdit object MJStr4: TEdit
Left = 57 Left = 57
Top = 37 Top = 34
Width = 90 Width = 90
Height = 36 Height = 36
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1624,7 +1637,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object kmxs: TEdit object kmxs: TEdit
Left = 57 Left = 57
Top = 217 Top = 199
Width = 90 Width = 90
Height = 36 Height = 36
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1656,7 +1669,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object baoNo: TEdit object baoNo: TEdit
Left = 57 Left = 57
Top = 253 Top = 232
Width = 90 Width = 90
Height = 36 Height = 36
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1694,7 +1707,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Edit13: TEdit object Edit13: TEdit
Left = 92 Left = 92
Top = 377 Top = 348
Width = 40 Width = 40
Height = 43 Height = 43
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1709,6 +1722,21 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnClick = Edit13Click OnClick = Edit13Click
OnKeyPress = MJstr3KeyPress OnKeyPress = MJstr3KeyPress
end end
object RCGH: TEdit
Left = 51
Top = 463
Width = 110
Height = 41
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 22
OnClick = MJXHClick
OnKeyPress = MJstr3KeyPress
end
end end
object MovePanel1: TMovePanel object MovePanel1: TMovePanel
Left = 634 Left = 634
@ -1962,9 +1990,9 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Panel7: TPanel object Panel7: TPanel
Left = 225 Left = 225
Top = 117 Top = 87
Width = 214 Width = 214
Height = 677 Height = 715
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -1973,7 +2001,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 2 Left = 2
Top = 2 Top = 2
Width = 210 Width = 210
Height = 352 Height = 390
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
@ -2081,7 +2109,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Panel8: TPanel object Panel8: TPanel
Left = 2 Left = 2
Top = 354 Top = 392
Width = 210 Width = 210
Height = 28 Height = 28
Align = alBottom Align = alBottom
@ -2096,7 +2124,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object AOrdDefNote1: TRichEdit object AOrdDefNote1: TRichEdit
Left = 2 Left = 2
Top = 382 Top = 420
Width = 210 Width = 210
Height = 293 Height = 293
Align = alBottom Align = alBottom
@ -2331,8 +2359,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1350 Width = 1358
Height = 60 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 115 ButtonWidth = 115
@ -2537,44 +2565,43 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
AutoSize = True AutoSize = True
Caption = ' '#20462#25913' ' Caption = ' '#20462#25913' '
ImageIndex = 54 ImageIndex = 54
Wrap = True
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object TBCD: TToolButton object TBCD: TToolButton
Left = 0 Left = 878
Top = 30 Top = 0
AutoSize = True AutoSize = True
Caption = ' '#37325#25171' ' Caption = ' '#37325#25171' '
ImageIndex = 132 ImageIndex = 132
OnClick = TBCDClick OnClick = TBCDClick
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 99 Left = 977
Top = 30 Top = 0
AutoSize = True AutoSize = True
Caption = #26085#24535 Caption = #26085#24535
ImageIndex = 72 ImageIndex = 72
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 178 Left = 1056
Top = 30 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21360#30721#21333 Caption = #25171#21360#30721#21333
ImageIndex = 12 ImageIndex = 12
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 297 Left = 1175
Top = 30 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
ImageIndex = 55 ImageIndex = 55
OnClick = TBCloseClick OnClick = TBCloseClick
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 376 Left = 1254
Top = 30 Top = 0
AutoSize = True AutoSize = True
Caption = ' '#21024#38500' ' Caption = ' '#21024#38500' '
ImageIndex = 48 ImageIndex = 48
@ -2583,8 +2610,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Panel6: TPanel object Panel6: TPanel
Left = 0 Left = 0
Top = 60 Top = 30
Width = 1350 Width = 1358
Height = 57 Height = 57
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -2970,8 +2997,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
end end
object Panel1: TPanel object Panel1: TPanel
Left = 344 Left = 320
Top = 320 Top = 280
Width = 385 Width = 385
Height = 185 Height = 185
Color = clSkyBlue Color = clSkyBlue

12
打卷检验管理/U_MJManageNewFDNew.pas
View File

@ -285,6 +285,8 @@ type
MinbaoNo: TEdit; MinbaoNo: TEdit;
Label59: TLabel; Label59: TLabel;
MaxbaoNo: TEdit; MaxbaoNo: TEdit;
Label60: TLabel;
RCGH: TEdit;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -1078,6 +1080,7 @@ begin
FieldByName('MJstr3').Value := Trim(MJstr3.Text); FieldByName('MJstr3').Value := Trim(MJstr3.Text);
FieldByName('MJstr4').Value := Trim(MJstr4.Text); FieldByName('MJstr4').Value := Trim(MJstr4.Text);
FieldByName('MJstr5').Value := Trim(MJstr5.Text); FieldByName('MJstr5').Value := Trim(MJstr5.Text);
FieldByName('RCGH').Value := Trim(RCGH.Text);
FieldByName('mjxh').Value := Trim(mjxh.Text); FieldByName('mjxh').Value := Trim(mjxh.Text);
// FieldByName('BaoNO').Value := Trim(BaoNO.Text); // FieldByName('BaoNO').Value := Trim(BaoNO.Text);
FieldByName('MJTypeOther').Value := Trim(Label9.Caption); FieldByName('MJTypeOther').Value := Trim(Label9.Caption);
@ -2463,8 +2466,8 @@ begin
begin begin
MJMaoZ.Text := ''; MJMaoZ.Text := '';
Exit; Exit;
end; end;
if TryStrToFloat(MJQty4.Text, FReal) = False then if TryStrToFloat(MJQty4.Text, FReal) = False then
Exit; Exit;
@ -2499,8 +2502,8 @@ var
begin begin
if Trim(MJMaoZ.Text) = '' then if Trim(MJMaoZ.Text) = '' then
begin begin
MJQty4.Text := ''; MJQty4.Text := '';
Exit; Exit;
end; end;
if TryStrToFloat(MJMaoZ.Text, FReal) = False then if TryStrToFloat(MJMaoZ.Text, FReal) = False then
Exit; Exit;
@ -2653,6 +2656,7 @@ begin
MJFK.Text := Trim(ADOTmp.fieldbyname('PRTMF').AsString); MJFK.Text := Trim(ADOTmp.fieldbyname('PRTMF').AsString);
MJSJKZ.Text := Trim(ADOTmp.fieldbyname('PRTKZ').AsString); MJSJKZ.Text := Trim(ADOTmp.fieldbyname('PRTKZ').AsString);
MJStr4.Text := Trim(ADOTmp.fieldbyname('GH').AsString); MJStr4.Text := Trim(ADOTmp.fieldbyname('GH').AsString);
RCGH.Text := Trim(ADOTmp.fieldbyname('RCGH').AsString);
if edit10.Text = '' then if edit10.Text = '' then
begin begin
MJXH.Text := inttostr(ADOTmp.fieldbyname('maxMJxh').AsInteger + 1); MJXH.Text := inttostr(ADOTmp.fieldbyname('maxMJxh').AsInteger + 1);

405
打卷检验管理/U_ZDZSDXZ.dfm Normal file
View File

@ -0,0 +1,405 @@
object frmZDZSD: TfrmZDZSD
Left = 206
Top = 120
Width = 1305
Height = 675
Caption = #36716#21333#25351#31034#21333#36873#25321
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1297
AutoSize = True
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar1'
Color = clSkyBlue
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TradeManage.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 2
OnClick = TBRafreshClick
end
object ToolButton3: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #36873#25321
ImageIndex = 106
OnClick = ToolButton3Click
end
object TBClose: TToolButton
Left = 126
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 55
OnClick = TBCloseClick
end
end
object Panel1: TPanel
Left = 0
Top = 32
Width = 1297
Height = 40
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
object Label1: TLabel
Left = 18
Top = 15
Width = 52
Height = 12
Caption = #21046#21333#26085#26399
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 311
Top = 15
Width = 39
Height = 12
Caption = #35746#21333#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 483
Top = 15
Width = 65
Height = 12
Caption = #23458#25143#35746#21333#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 518
Top = 123
Width = 39
Height = 12
Caption = #22383#24067#21378
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 207
Top = 83
Width = 39
Height = 12
Caption = #21512#21516#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label10: TLabel
Left = 517
Top = 147
Width = 39
Height = 12
Caption = #21152#24037#21378
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 670
Top = 123
Width = 52
Height = 12
Caption = #22383#24067#25209#27425
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 670
Top = 147
Width = 52
Height = 12
Caption = #21697#21517#20013#25991
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 160
Top = 16
Width = 3
Height = 13
Caption = '-'
end
object BegDate: TDateTimePicker
Left = 71
Top = 11
Width = 85
Height = 20
Date = 40675.464742650460000000
Format = 'yyyy-MM-dd'
Time = 40675.464742650460000000
TabOrder = 0
end
object EndDate: TDateTimePicker
Left = 167
Top = 11
Width = 86
Height = 20
Date = 40675.464761099540000000
Format = 'yyyy-MM-dd'
Time = 40675.464761099540000000
TabOrder = 1
end
object OrderNo: TEdit
Tag = 2
Left = 352
Top = 11
Width = 77
Height = 21
TabOrder = 2
OnChange = OrderNoChange
end
object KHorderNo: TEdit
Tag = 2
Left = 547
Top = 11
Width = 76
Height = 21
TabOrder = 3
OnChange = KHorderNoChange
end
object PBFactory: TEdit
Tag = 2
Left = 561
Top = 119
Width = 76
Height = 21
TabOrder = 5
end
object ConNo: TEdit
Tag = 2
Left = 248
Top = 79
Width = 77
Height = 21
TabOrder = 4
end
object RanFactory: TEdit
Tag = 2
Left = 561
Top = 143
Width = 76
Height = 21
TabOrder = 7
end
object Orddefstr5: TEdit
Tag = 2
Left = 725
Top = 119
Width = 76
Height = 21
TabOrder = 6
end
object PRTCodeName: TEdit
Tag = 2
Left = 725
Top = 143
Width = 76
Height = 21
TabOrder = 8
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 72
Width = 1297
Height = 572
Align = alClient
TabOrder = 2
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
Styles.Inactive = DataLink_TradeManage.SHuangSe
Styles.IncSearch = DataLink_TradeManage.SHuangSe
Styles.Selection = DataLink_TradeManage.SHuangSe
Styles.Header = DataLink_TradeManage.Default
object Tv1Column6: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Width = 40
end
object Tv1Column1: TcxGridDBColumn
Caption = #35746#21333#21495
DataBinding.FieldName = 'OrderNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 65
end
object Tv1Column2: TcxGridDBColumn
Caption = #23458#25143#35746#21333#21495
DataBinding.FieldName = 'KHorderNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 84
end
object Tv1Column3: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'PRTColor'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 65
end
object Tv1Column4: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'SOrddefstr1'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 65
end
object Tv1Column5: TcxGridDBColumn
Caption = #21697#21517#20013#25991
DataBinding.FieldName = 'PRTCodeName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 65
end
object Tv1Column7: TcxGridDBColumn
Caption = #27454#21495
DataBinding.FieldName = 'PRTkuanNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 65
end
object Tv1Column8: TcxGridDBColumn
Caption = #39068#33394'('#33521#25991')'
DataBinding.FieldName = 'SOrddefstr4'
HeaderAlignmentHorz = taCenter
Width = 90
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TradeManage.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 496
Top = 184
end
object DataSource1: TDataSource
DataSet = Order_Main
Left = 440
Top = 184
end
object Order_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 467
Top = 184
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TradeManage.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 404
Top = 276
end
end

172
打卷检验管理/U_ZDZSDXZ.pas Normal file
View File

@ -0,0 +1,172 @@
unit U_ZDZSDXZ;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ToolWin, cxGraphics, cxControls, cxLookAndFeels,
cxLookAndFeelPainters, cxStyles, cxCustomData, cxFilter, cxData, cxDataStorage,
cxEdit, cxNavigator, DB, cxDBData, cxCheckBox, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, DBClient, ADODB, cxGridLevel, cxClasses,
cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, dxSkinsCore, dxSkinBlack,
dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle,
dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary,
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
type
TfrmZDZSD = class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
ToolButton3: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
Label1: TLabel;
Label3: TLabel;
Label4: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label2: TLabel;
Label5: TLabel;
Label6: TLabel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
OrderNo: TEdit;
KHorderNo: TEdit;
PBFactory: TEdit;
ConNo: TEdit;
RanFactory: TEdit;
Orddefstr5: TEdit;
PRTCodeName: TEdit;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
ADOQueryMain: TADOQuery;
DataSource1: TDataSource;
Order_Main: TClientDataSet;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
ADOQueryTemp: TADOQuery;
Tv1Column8: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure OrderNoChange(Sender: TObject);
procedure KHorderNoChange(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
private
procedure InitGrid();
{ Private declarations }
public
{ Public declarations }
end;
var
frmZDZSD: TfrmZDZSD;
implementation
uses
U_DataLink, U_Fun;
{$R *.dfm}
procedure TfrmZDZSD.InitGrid();
var
strwhere: string;
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
Filtered := False;
sql.Clear;
sql.add('select A.*,B.* from JYOrder_Main A ');
sql.add('inner join JYOrder_Sub B on A.mainid=B.mainid');
sql.Add('where A.FillTime>=''' + FormatDateTime('yyyy-MM-dd', BegDate.DateTime) + ''' ');
sql.Add('and A.FillTime<''' + FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1) + ''' ');
Open;
end;
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmZDZSD.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmZDZSD.FormCreate(Sender: TObject);
begin
cxgrid1.Align := alClient;
end;
procedure TfrmZDZSD.FormDestroy(Sender: TObject);
begin
frmZDZSD := nil;
end;
procedure TfrmZDZSD.FormShow(Sender: TObject);
begin
BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 7;
EndDate.DateTime := SGetServerDate10(ADOQueryTemp);
InitGrid();
end;
procedure TfrmZDZSD.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmZDZSD.OrderNoChange(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
end;
procedure TfrmZDZSD.KHorderNoChange(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
end;
procedure TfrmZDZSD.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmZDZSD.ToolButton3Click(Sender: TObject);
begin
ModalResult := 1;
end;
end.