增加扫描入口
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
5406694c0e
commit
42362cb4ad
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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';
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user