调整扫描内容

E03梭织坯布检验/U_TatMachInsp.dfm

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

E03梭织坯布检验/U_TatMachInsp.pas

@@ -771,7 +771,7 @@ begin
       FOrderNo := Trim(ADOTmp.fieldbyname('OrderNo').AsString);
       FMainId := Trim(ADOTmp.fieldbyname('MainId').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);
       FC_Code := Trim(ADOTmp.fieldbyname('C_Code').AsString);
       FC_Name := Trim(ADOTmp.fieldbyname('C_Name').AsString);