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:05:14 +08:00
parent 5406694c0e
commit 42362cb4ad
2 changed files with 37 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2,30 +2,30 @@ inherited frmTatMachInsp: TfrmTatMachInsp
Left = 234 Left = 234
Top = 20 Top = 20
Caption = #25104#21697#26816#39564 Caption = #25104#21697#26816#39564
ClientHeight = 772 ClientHeight = 837
ClientWidth = 1540 ClientWidth = 1540
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitLeft = -376
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 811 ExplicitHeight = 876
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 12 TextHeight = 12
object Panel9: TPanel [0] object Panel9: TPanel [0]
Left = 0 Left = 0
Top = 0 Top = 0
Width = 573 Width = 573
Height = 772 Height = 837
Align = alLeft Align = alLeft
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 2 TabOrder = 2
ExplicitHeight = 772
object Panel2: TPanel object Panel2: TPanel
Left = 1 Left = 1
Top = 129 Top = 161
Width = 571 Width = 571
Height = 642 Height = 675
Align = alClient Align = alClient
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -38,7 +38,8 @@ inherited frmTatMachInsp: TfrmTatMachInsp
ParentBackground = False ParentBackground = False
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ExplicitLeft = 2 ExplicitTop = 129
ExplicitHeight = 642
object lblLenUnit: TLabel object lblLenUnit: TLabel
Left = 251 Left = 251
Top = 9 Top = 9
@ -1003,11 +1004,12 @@ inherited frmTatMachInsp: TfrmTatMachInsp
Left = 1 Left = 1
Top = 1 Top = 1
Width = 571 Width = 571
Height = 128 Height = 160
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
@ -1052,7 +1054,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp
end end
object Label25: TLabel object Label25: TLabel
Left = 11 Left = 11
Top = 17 Top = 47
Width = 87 Width = 87
Height = 32 Height = 32
Caption = #21697#21517#65306 Caption = #21697#21517#65306
@ -1064,8 +1066,8 @@ inherited frmTatMachInsp: TfrmTatMachInsp
ParentFont = False ParentFont = False
end end
object Label1: TLabel object Label1: TLabel
Left = 203 Left = 14
Top = 192 Top = 11
Width = 80 Width = 80
Height = 24 Height = 24
Caption = #25195#25551#20837#21475 Caption = #25195#25551#20837#21475
@ -1149,7 +1151,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp
end end
object Label50: TLabel object Label50: TLabel
Left = 5 Left = 5
Top = 88 Top = 118
Width = 72 Width = 72
Height = 29 Height = 29
Caption = #26426#21488#21495 Caption = #26426#21488#21495
@ -1162,7 +1164,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp
end end
object PCId: TEdit object PCId: TEdit
Left = 480 Left = 480
Top = 83 Top = 113
Width = 341 Width = 341
Height = 24 Height = 24
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -1207,7 +1209,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp
end end
object CodeName: TEdit object CodeName: TEdit
Left = 86 Left = 86
Top = 14 Top = 44
Width = 242 Width = 242
Height = 68 Height = 68
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -1221,9 +1223,9 @@ inherited frmTatMachInsp: TfrmTatMachInsp
OnExit = CodeNameExit OnExit = CodeNameExit
end end
object edtScan: TEdit object edtScan: TEdit
Left = 289 Left = 100
Top = 190 Top = 11
Width = 185 Width = 228
Height = 27 Height = 27
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -1237,8 +1239,8 @@ inherited frmTatMachInsp: TfrmTatMachInsp
OnKeyPress = edtScanKeyPress OnKeyPress = edtScanKeyPress
end end
object Button3: TButton object Button3: TButton
Left = 334 Left = 433
Top = 2 Top = 35
Width = 58 Width = 58
Height = 34 Height = 34
Caption = #35774#32622 Caption = #35774#32622
@ -1267,8 +1269,8 @@ inherited frmTatMachInsp: TfrmTatMachInsp
Visible = False Visible = False
end end
object SPEC: TEdit object SPEC: TEdit
Left = 230 Left = 224
Top = 204 Top = 265
Width = 144 Width = 144
Height = 24 Height = 24
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -1297,8 +1299,8 @@ inherited frmTatMachInsp: TfrmTatMachInsp
Visible = False Visible = False
end end
object KZ: TEdit object KZ: TEdit
Left = 230 Left = 91
Top = 174 Top = 256
Width = 144 Width = 144
Height = 24 Height = 24
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -1344,7 +1346,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp
end end
object Button9: TButton object Button9: TButton
Left = 334 Left = 334
Top = 77 Top = 107
Width = 130 Width = 130
Height = 45 Height = 45
Caption = #36873#25321#26426#21488 Caption = #36873#25321#26426#21488
@ -1359,7 +1361,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp
end end
object carno: TEdit object carno: TEdit
Left = 86 Left = 86
Top = 88 Top = 118
Width = 242 Width = 242
Height = 29 Height = 29
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -1377,10 +1379,11 @@ inherited frmTatMachInsp: TfrmTatMachInsp
Left = 773 Left = 773
Top = 0 Top = 0
Width = 286 Width = 286
Height = 772 Height = 837
Align = alLeft Align = alLeft
TabOrder = 0 TabOrder = 0
Visible = False Visible = False
ExplicitHeight = 772
object SpeedButton13: TSpeedButton object SpeedButton13: TSpeedButton
Left = 7 Left = 7
Top = 3 Top = 3
@ -2303,19 +2306,19 @@ inherited frmTatMachInsp: TfrmTatMachInsp
Left = 1059 Left = 1059
Top = 0 Top = 0
Width = 481 Width = 481
Height = 772 Height = 837
Align = alClient Align = alClient
Caption = 'Panel4' Caption = 'Panel4'
TabOrder = 1 TabOrder = 1
ExplicitHeight = 772
object cxGrid3: TcxGrid object cxGrid3: TcxGrid
Left = 1 Left = 1
Top = 91 Top = 91
Width = 479 Width = 479
Height = 487 Height = 552
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitLeft = 3 ExplicitHeight = 487
ExplicitTop = 97
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
OnMouseDown = Tv3MouseDown OnMouseDown = Tv3MouseDown
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -2510,13 +2513,14 @@ inherited frmTatMachInsp: TfrmTatMachInsp
end end
object cxPageControl1: TcxPageControl object cxPageControl1: TcxPageControl
Left = 1 Left = 1
Top = 578 Top = 643
Width = 479 Width = 479
Height = 193 Height = 193
Align = alBottom Align = alBottom
TabOrder = 1 TabOrder = 1
Properties.ActivePage = cxTabSheet1 Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
ExplicitTop = 578
ClientRectBottom = 191 ClientRectBottom = 191
ClientRectLeft = 2 ClientRectLeft = 2
ClientRectRight = 477 ClientRectRight = 477
@ -2834,8 +2838,6 @@ inherited frmTatMachInsp: TfrmTatMachInsp
Height = 52 Height = 52
Align = alTop Align = alTop
TabOrder = 3 TabOrder = 3
ExplicitLeft = 3
ExplicitTop = 45
object Label44: TLabel object Label44: TLabel
Left = 22 Left = 22
Top = 30 Top = 30
@ -2868,7 +2870,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp
Left = 573 Left = 573
Top = 0 Top = 0
Width = 200 Width = 200
Height = 772 Height = 837
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -2876,6 +2878,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp
ParentBackground = False ParentBackground = False
TabOrder = 3 TabOrder = 3
Visible = False Visible = False
ExplicitHeight = 772
object Label35: TLabel object Label35: TLabel
Left = 27 Left = 27
Top = 55 Top = 55

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

@ -772,7 +772,6 @@ begin
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);
@ -784,7 +783,6 @@ begin
FC_Pattern := Trim(ADOTmp.fieldbyname('C_Pattern').AsString); FC_Pattern := Trim(ADOTmp.fieldbyname('C_Pattern').AsString);
// FLoom := Trim(ADOTmp.fieldbyname('Loom').AsString); // FLoom := Trim(ADOTmp.fieldbyname('Loom').AsString);
// FBatchNO := Trim(ADOTmp.fieldbyname('BatchNO').AsString); // FBatchNO := Trim(ADOTmp.fieldbyname('BatchNO').AsString);
// PieceNo.Text := Trim(ADOTmp.fieldbyname('maxRoll').AsString); // PieceNo.Text := Trim(ADOTmp.fieldbyname('maxRoll').AsString);
Coefficient.Text := '0'; Coefficient.Text := '0';