~
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
8902c8bdcd
commit
f1be3ead0d
|
|
@ -72,16 +72,24 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
||||||
ImageIndex = 58
|
ImageIndex = 58
|
||||||
OnClick = TBManageClick
|
OnClick = TBManageClick
|
||||||
end
|
end
|
||||||
object ToolButton6: TToolButton
|
object ToolButton15: TToolButton
|
||||||
Left = 252
|
Left = 252
|
||||||
Top = 0
|
Top = 0
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
|
Caption = ' '#36716' '#21333' '
|
||||||
|
ImageIndex = 47
|
||||||
|
OnClick = ToolButton15Click
|
||||||
|
end
|
||||||
|
object ToolButton6: TToolButton
|
||||||
|
Left = 339
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
Caption = #20986#24211
|
Caption = #20986#24211
|
||||||
ImageIndex = 16
|
ImageIndex = 16
|
||||||
OnClick = ToolButton6Click
|
OnClick = ToolButton6Click
|
||||||
end
|
end
|
||||||
object ToolButton10: TToolButton
|
object ToolButton10: TToolButton
|
||||||
Left = 315
|
Left = 402
|
||||||
Top = 0
|
Top = 0
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #25195#25551#20986#24211
|
Caption = #25195#25551#20986#24211
|
||||||
|
|
@ -89,7 +97,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
||||||
OnClick = ToolButton10Click
|
OnClick = ToolButton10Click
|
||||||
end
|
end
|
||||||
object ToolButton7: TToolButton
|
object ToolButton7: TToolButton
|
||||||
Left = 402
|
Left = 489
|
||||||
Top = 0
|
Top = 0
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #25764#38144#20986#24211
|
Caption = #25764#38144#20986#24211
|
||||||
|
|
@ -97,14 +105,14 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
||||||
OnClick = ToolButton7Click
|
OnClick = ToolButton7Click
|
||||||
end
|
end
|
||||||
object ToolButton11: TToolButton
|
object ToolButton11: TToolButton
|
||||||
Left = 489
|
Left = 576
|
||||||
Top = 0
|
Top = 0
|
||||||
Caption = #25209#37327#20462#25913#32568#21495
|
Caption = #25209#37327#20462#25913#32568#21495
|
||||||
ImageIndex = 54
|
ImageIndex = 54
|
||||||
OnClick = ToolButton11Click
|
OnClick = ToolButton11Click
|
||||||
end
|
end
|
||||||
object TBDW: TToolButton
|
object TBDW: TToolButton
|
||||||
Left = 608
|
Left = 695
|
||||||
Top = 0
|
Top = 0
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #20462#25913#25968#37327#21333#20301
|
Caption = #20462#25913#25968#37327#21333#20301
|
||||||
|
|
@ -112,7 +120,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
||||||
OnClick = TBDWClick
|
OnClick = TBDWClick
|
||||||
end
|
end
|
||||||
object ToolButton4: TToolButton
|
object ToolButton4: TToolButton
|
||||||
Left = 719
|
Left = 806
|
||||||
Top = 0
|
Top = 0
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #25209#37327#35843#25972#31859#25968
|
Caption = #25209#37327#35843#25972#31859#25968
|
||||||
|
|
@ -120,7 +128,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
||||||
OnClick = ToolButton4Click
|
OnClick = ToolButton4Click
|
||||||
end
|
end
|
||||||
object ToolButton13: TToolButton
|
object ToolButton13: TToolButton
|
||||||
Left = 830
|
Left = 917
|
||||||
Top = 0
|
Top = 0
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #25209#37327#20928#37325#36716#38271#24230
|
Caption = #25209#37327#20928#37325#36716#38271#24230
|
||||||
|
|
@ -129,7 +137,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
||||||
OnClick = ToolButton13Click
|
OnClick = ToolButton13Click
|
||||||
end
|
end
|
||||||
object ToolButton8: TToolButton
|
object ToolButton8: TToolButton
|
||||||
Left = 953
|
Left = 1040
|
||||||
Top = 0
|
Top = 0
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #25209#37327#20462#25913#30382#37325
|
Caption = #25209#37327#20462#25913#30382#37325
|
||||||
|
|
@ -137,7 +145,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
||||||
OnClick = ToolButton8Click
|
OnClick = ToolButton8Click
|
||||||
end
|
end
|
||||||
object ToolButton1: TToolButton
|
object ToolButton1: TToolButton
|
||||||
Left = 1064
|
Left = 1151
|
||||||
Top = 0
|
Top = 0
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #25171#21360#26631#31614
|
Caption = #25171#21360#26631#31614
|
||||||
|
|
@ -244,13 +252,14 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
||||||
object ToolButton12: TToolButton
|
object ToolButton12: TToolButton
|
||||||
Left = 809
|
Left = 809
|
||||||
Top = 30
|
Top = 30
|
||||||
|
AutoSize = True
|
||||||
Caption = #20462#25913#30721#21333
|
Caption = #20462#25913#30721#21333
|
||||||
ImageIndex = 54
|
ImageIndex = 54
|
||||||
Visible = False
|
Visible = False
|
||||||
OnClick = ToolButton12Click
|
OnClick = ToolButton12Click
|
||||||
end
|
end
|
||||||
object ToolButton9: TToolButton
|
object ToolButton9: TToolButton
|
||||||
Left = 928
|
Left = 896
|
||||||
Top = 30
|
Top = 30
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #24322#24120#25968#25454
|
Caption = #24322#24120#25968#25454
|
||||||
|
|
@ -258,7 +267,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
||||||
OnClick = ToolButton9Click
|
OnClick = ToolButton9Click
|
||||||
end
|
end
|
||||||
object TBExport: TToolButton
|
object TBExport: TToolButton
|
||||||
Left = 1015
|
Left = 983
|
||||||
Top = 30
|
Top = 30
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #23548#20986
|
Caption = #23548#20986
|
||||||
|
|
@ -266,7 +275,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
||||||
OnClick = TBExportClick
|
OnClick = TBExportClick
|
||||||
end
|
end
|
||||||
object TBClose: TToolButton
|
object TBClose: TToolButton
|
||||||
Left = 1078
|
Left = 1046
|
||||||
Top = 30
|
Top = 30
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #20851#38381
|
Caption = #20851#38381
|
||||||
|
|
|
||||||
|
|
@ -222,6 +222,7 @@ type
|
||||||
ToolButton14: TToolButton;
|
ToolButton14: TToolButton;
|
||||||
Label37: TLabel;
|
Label37: TLabel;
|
||||||
ComboBox4: TComboBox;
|
ComboBox4: TComboBox;
|
||||||
|
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);
|
||||||
|
|
@ -284,6 +285,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
|
||||||
|
|
@ -309,7 +311,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();
|
||||||
|
|
@ -1646,7 +1648,7 @@ begin
|
||||||
begin
|
begin
|
||||||
Close;
|
Close;
|
||||||
sql.Clear;
|
sql.Clear;
|
||||||
sql.add('exec P_Print_CKMDYDL_WL_cS ');
|
sql.add('exec P_Print_CKMDYDL_WL_cS ');
|
||||||
sql.add('@DName=' + quotedstr(Trim(DCode)));
|
sql.add('@DName=' + quotedstr(Trim(DCode)));
|
||||||
Open;
|
Open;
|
||||||
end;
|
end;
|
||||||
|
|
@ -2479,5 +2481,58 @@ begin
|
||||||
Order_Main.EnableControls;
|
Order_Main.EnableControls;
|
||||||
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('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
|
||||||
|
sql.Add(' ' + quotedstr(trim(DName)));
|
||||||
|
sql.Add(',getdate() ');
|
||||||
|
sql.Add(',' + quotedstr(trim(self.Caption)));
|
||||||
|
sql.Add(',' + quotedstr(trim('检验转单')));
|
||||||
|
sql.Add(',' + quotedstr(trim('卷条码:' + trim(self.Order_Main.FieldByName('MJID').AsString) + ' 原单号:' + trim(self.Order_Main.FieldByName('subID').AsString) + '转之后:' + trim(frmZDZSD.Order_Main.FieldByName('subid').AsString))));
|
||||||
|
sql.Add(',' + quotedstr(trim('成功')));
|
||||||
|
sql.Add(')');
|
||||||
|
|
||||||
|
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.
|
||||||
|
|
||||||
|
|
|
||||||
405
检验管理/U_ZDZSDXZ.dfm
Normal file
405
检验管理/U_ZDZSDXZ.dfm
Normal file
|
|
@ -0,0 +1,405 @@
|
||||||
|
object frmZDZSD: TfrmZDZSD
|
||||||
|
Left = 399
|
||||||
|
Top = 293
|
||||||
|
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 = 1289
|
||||||
|
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 = 1289
|
||||||
|
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 = 1289
|
||||||
|
Height = 564
|
||||||
|
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 = #32568#21495
|
||||||
|
DataBinding.FieldName = 'ganghao'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 60
|
||||||
|
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
172
检验管理/U_ZDZSDXZ.pas
Normal 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.
|
||||||
|
|
||||||
Loading…
Reference in New Issue
Block a user