Group_02/D10szXingjie
3
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-13 11:10:49 +08:00
parent 42362cb4ad
commit 058f9805c4
3 changed files with 17 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
E03梭织坯布检验/U_TatMachInsp.dfm
View File

@ -23,9 +23,9 @@ inherited frmTatMachInsp: TfrmTatMachInsp
ExplicitHeight = 772 ExplicitHeight = 772
object Panel2: TPanel object Panel2: TPanel
Left = 1 Left = 1
Top = 161 Top = 133
Width = 571 Width = 571
Height = 675 Height = 703
Align = alClient Align = alClient
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -1004,12 +1004,11 @@ inherited frmTatMachInsp: TfrmTatMachInsp
Left = 1 Left = 1
Top = 1 Top = 1
Width = 571 Width = 571
Height = 160 Height = 132
Align = alTop Align = alTop
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
ExplicitLeft = 2
object Label14: TLabel object Label14: TLabel
Left = 480 Left = 480
Top = 189 Top = 189
@ -1054,7 +1053,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp
end end
object Label25: TLabel object Label25: TLabel
Left = 11 Left = 11
Top = 47 Top = 34
Width = 87 Width = 87
Height = 32 Height = 32
Caption = #21697#21517#65306 Caption = #21697#21517#65306
@ -1067,7 +1066,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp
end end
object Label1: TLabel object Label1: TLabel
Left = 14 Left = 14
Top = 11 Top = 3
Width = 80 Width = 80
Height = 24 Height = 24
Caption = #25195#25551#20837#21475 Caption = #25195#25551#20837#21475
@ -1077,7 +1076,6 @@ inherited frmTatMachInsp: TfrmTatMachInsp
Font.Name = 'Arial' Font.Name = 'Arial'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Visible = False
end end
object Label13: TLabel object Label13: TLabel
Left = 413 Left = 413
@ -1151,7 +1149,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp
end end
object Label50: TLabel object Label50: TLabel
Left = 5 Left = 5
Top = 118 Top = 101
Width = 72 Width = 72
Height = 29 Height = 29
Caption = #26426#21488#21495 Caption = #26426#21488#21495
@ -1163,8 +1161,8 @@ inherited frmTatMachInsp: TfrmTatMachInsp
ParentFont = False ParentFont = False
end end
object PCId: TEdit object PCId: TEdit
Left = 480 Left = 546
Top = 113 Top = 125
Width = 341 Width = 341
Height = 24 Height = 24
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -1209,7 +1207,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp
end end
object CodeName: TEdit object CodeName: TEdit
Left = 86 Left = 86
Top = 44 Top = 31
Width = 242 Width = 242
Height = 68 Height = 68
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -1224,7 +1222,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp
end end
object edtScan: TEdit object edtScan: TEdit
Left = 100 Left = 100
Top = 11 Top = 3
Width = 228 Width = 228
Height = 27 Height = 27
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1234,13 +1232,12 @@ inherited frmTatMachInsp: TfrmTatMachInsp
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 4 TabOrder = 4
Visible = False
OnClick = edtScanClick OnClick = edtScanClick
OnKeyPress = edtScanKeyPress OnKeyPress = edtScanKeyPress
end end
object Button3: TButton object Button3: TButton
Left = 433 Left = 416
Top = 35 Top = 8
Width = 58 Width = 58
Height = 34 Height = 34
Caption = #35774#32622 Caption = #35774#32622
@ -1345,8 +1342,8 @@ inherited frmTatMachInsp: TfrmTatMachInsp
Visible = False Visible = False
end end
object Button9: TButton object Button9: TButton
Left = 334 Left = 380
Top = 107 Top = 81
Width = 130 Width = 130
Height = 45 Height = 45
Caption = #36873#25321#26426#21488 Caption = #36873#25321#26426#21488
@ -1361,7 +1358,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp
end end
object carno: TEdit object carno: TEdit
Left = 86 Left = 86
Top = 118 Top = 101
Width = 242 Width = 242
Height = 29 Height = 29
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -3250,7 +3247,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp
end end
object Panel3: TPanel [4] object Panel3: TPanel [4]
Left = 8 Left = 8
Top = 517 Top = 521
Width = 1001 Width = 1001
Height = 209 Height = 209
BevelInner = bvRaised BevelInner = bvRaised

2
E03梭织坯布检验/U_TatMachInsp.pas
View File

@ -771,7 +771,7 @@ begin
FOrderNo := Trim(ADOTmp.fieldbyname('OrderNo').AsString); FOrderNo := Trim(ADOTmp.fieldbyname('OrderNo').AsString);
FMainId := Trim(ADOTmp.fieldbyname('MainId').AsString); FMainId := Trim(ADOTmp.fieldbyname('MainId').AsString);
FSubId := Trim(ADOTmp.fieldbyname('SubId').AsString); FSubId := Trim(ADOTmp.fieldbyname('SubId').AsString);
// FPCId := Trim(ADOTmp.fieldbyname('PCId').AsString); FPCId := Trim(ADOTmp.fieldbyname('PCId').AsString);
// FWorkshop := Trim(ADOTmp.fieldbyname('Workshop').AsString); // FWorkshop := Trim(ADOTmp.fieldbyname('Workshop').AsString);
FC_Code := Trim(ADOTmp.fieldbyname('C_Code').AsString); FC_Code := Trim(ADOTmp.fieldbyname('C_Code').AsString);
FC_Name := Trim(ADOTmp.fieldbyname('C_Name').AsString); FC_Name := Trim(ADOTmp.fieldbyname('C_Name').AsString);

BIN
E03梭织坯布检验/testDll.res
View File

Binary file not shown.