From 058f9805c4ecca685928c358ce48eaa324959e48 Mon Sep 17 00:00:00 2001
From: "DESKTOP-E401PHE\\Administrator" <rightsoft@163.com>
Date: Sat, 13 Sep 2025 11:10:49 +0800
Subject: [PATCH] =?UTF-8?q?=E8=B0=83=E6=95=B4=E6=89=AB=E6=8F=8F=E5=86=85?=
 =?UTF-8?q?=E5=AE=B9?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 E03梭织坯布检验/U_TatMachInsp.dfm |  35 ++++++++++++++----------------
 E03梭织坯布检验/U_TatMachInsp.pas |   2 +-
 E03梭织坯布检验/testDll.res       | Bin 3308 -> 3308 bytes
 3 files changed, 17 insertions(+), 20 deletions(-)

diff --git a/E03梭织坯布检验/U_TatMachInsp.dfm b/E03梭织坯布检验/U_TatMachInsp.dfm
index 6324e24..cfe8b4c 100644
--- a/E03梭织坯布检验/U_TatMachInsp.dfm
+++ b/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
diff --git a/E03梭织坯布检验/U_TatMachInsp.pas b/E03梭织坯布检验/U_TatMachInsp.pas
index 3a59fa1..0b5c0e1 100644
--- a/E03梭织坯布检验/U_TatMachInsp.pas
+++ b/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);
diff --git a/E03梭织坯布检验/testDll.res b/E03梭织坯布检验/testDll.res
index e116c482ff64a90aae29d14ae002699b9b83f166..2465ca0e30696a8467f3b1371b2f343eab2cd121 100644
GIT binary patch
delta 12
TcmaDO`9^ZX3m%rnDGUq%COibl

delta 12
TcmaDO`9^ZX3mz6m1_lNIB7g(5