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

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

@ -772,7 +772,6 @@ begin
FMainId := Trim(ADOTmp.fieldbyname('MainId').AsString);
FSubId := Trim(ADOTmp.fieldbyname('SubId').AsString);
// FPCId := Trim(ADOTmp.fieldbyname('PCId').AsString);
// FWorkshop := Trim(ADOTmp.fieldbyname('Workshop').AsString);
FC_Code := Trim(ADOTmp.fieldbyname('C_Code').AsString);
FC_Name := Trim(ADOTmp.fieldbyname('C_Name').AsString);
@ -784,7 +783,6 @@ begin
FC_Pattern := Trim(ADOTmp.fieldbyname('C_Pattern').AsString);
// FLoom := Trim(ADOTmp.fieldbyname('Loom').AsString);
// FBatchNO := Trim(ADOTmp.fieldbyname('BatchNO').AsString);
// PieceNo.Text := Trim(ADOTmp.fieldbyname('maxRoll').AsString);
Coefficient.Text := '0';