From 55c827d521d5efd663891cf3ccb72efd630379cc Mon Sep 17 00:00:00 2001
From: funa <1559646174@qq.com>
Date: Wed, 23 Sep 2026 17:27:20 +0800
Subject: [PATCH] =?UTF-8?q?=E4=BA=A7=E5=93=81=20=E6=A3=80=E9=AA=8C?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 A02基础产品管理/U_TatClothInfo.dfm      | 11 ++++++++---
 A02基础产品管理/U_TatClothInfo.pas      |  1 +
 A02基础产品管理/U_TatClothInfoInput.dfm | 23 ++++++++++++++++++++++-
 A02基础产品管理/U_TatClothInfoInput.pas |  2 ++
 E03梭织坯布检验/U_TatMachInsp.dfm       |  2 +-
 5 files changed, 34 insertions(+), 5 deletions(-)

diff --git a/A02基础产品管理/U_TatClothInfo.dfm b/A02基础产品管理/U_TatClothInfo.dfm
index e10be41..e8b0943 100644
--- a/A02基础产品管理/U_TatClothInfo.dfm
+++ b/A02基础产品管理/U_TatClothInfo.dfm
@@ -7,7 +7,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo
   FormStyle = fsMDIChild
   Position = poScreenCenter
   Visible = True
-  ExplicitLeft = -64
   ExplicitWidth = 1460
   ExplicitHeight = 741
   PixelsPerInch = 96
@@ -331,8 +330,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo
       Align = alClient
       PopupMenu = PM_1
       TabOrder = 0
-      ExplicitLeft = 6
-      ExplicitTop = 41
       object Tv1: TcxGridDBTableView
         Navigator.Buttons.CustomButtons = <>
         Navigator.Buttons.Delete.Enabled = False
@@ -500,6 +497,14 @@ inherited frmTatClothInfo: TfrmTatClothInfo
           Options.Editing = False
           Width = 80
         end
+        object Tv1estimated_diff: TcxGridDBColumn
+          Caption = #39044#35745#24046#20540
+          DataBinding.FieldName = 'estimated_diff'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 80
+        end
       end
       object cxGrid1Level1: TcxGridLevel
         GridView = Tv1
diff --git a/A02基础产品管理/U_TatClothInfo.pas b/A02基础产品管理/U_TatClothInfo.pas
index a26946e..6ec84be 100644
--- a/A02基础产品管理/U_TatClothInfo.pas
+++ b/A02基础产品管理/U_TatClothInfo.pas
@@ -121,6 +121,7 @@ type
     Tv1Column8: TcxGridDBColumn;
     ToolButton4: TToolButton;
     Tv1C_Color: TcxGridDBColumn;
+    Tv1estimated_diff: TcxGridDBColumn;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);
     procedure TBDelClick(Sender: TObject);
diff --git a/A02基础产品管理/U_TatClothInfoInput.dfm b/A02基础产品管理/U_TatClothInfoInput.dfm
index 9314879..8b20231 100644
--- a/A02基础产品管理/U_TatClothInfoInput.dfm
+++ b/A02基础产品管理/U_TatClothInfoInput.dfm
@@ -231,7 +231,7 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
     end
     object Label10: TLabel
       Left = 675
-      Top = 71
+      Top = 70
       Width = 65
       Height = 12
       Caption = #19978#26426#32428#23494#65306
@@ -255,6 +255,19 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
       Font.Style = [fsBold]
       ParentFont = False
     end
+    object Label13: TLabel
+      Left = 675
+      Top = 101
+      Width = 65
+      Height = 12
+      Caption = #39044#35745#24046#20540#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlack
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
     object C_Code: TEdit
       Tag = 2
       Left = 93
@@ -458,6 +471,14 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
       TabOrder = 13
       OnKeyPress = CYColorKeyPress
     end
+    object estimated_diff: TEdit
+      Tag = 2
+      Left = 738
+      Top = 99
+      Width = 120
+      Height = 18
+      TabOrder = 14
+    end
   end
   object cxPageControl3: TcxPageControl
     Left = 0
diff --git a/A02基础产品管理/U_TatClothInfoInput.pas b/A02基础产品管理/U_TatClothInfoInput.pas
index 5d55766..ece05e2 100644
--- a/A02基础产品管理/U_TatClothInfoInput.pas
+++ b/A02基础产品管理/U_TatClothInfoInput.pas
@@ -217,6 +217,8 @@ type
     DS_3: TDataSource;
     C_Color: TEdit;
     Label11: TLabel;
+    estimated_diff: TEdit;
+    Label13: TLabel;
     procedure FormShow(Sender: TObject);
     procedure TBCloseClick(Sender: TObject);
     procedure ToolButton1Click(Sender: TObject);
diff --git a/E03梭织坯布检验/U_TatMachInsp.dfm b/E03梭织坯布检验/U_TatMachInsp.dfm
index 7192f8e..da18d79 100644
--- a/E03梭织坯布检验/U_TatMachInsp.dfm
+++ b/E03梭织坯布检验/U_TatMachInsp.dfm
@@ -2625,7 +2625,7 @@
           Width = 113
         end
         object Tv3code_table_length: TcxGridDBColumn
-          Caption = #23454#38469#31859#25968
+          Caption = #30721#34920#38271#24230
           DataBinding.FieldName = 'code_table_length'
           DataBinding.IsNullValueType = True
           HeaderAlignmentHorz = taCenter