From db0ae1d42f182d00e891e4b665fa07592343ebd5 Mon Sep 17 00:00:00 2001
From: "DESKTOP-E401PHE\\Administrator" <rightsoft@163.com>
Date: Fri, 18 Jul 2025 16:12:59 +0800
Subject: [PATCH] ~

---
 复合检验管理/TradeManage.dof  | 2 +-
 复合检验管理/U_OrderInPut.dfm | 6 ++++++
 复合检验管理/U_OrderInPut.pas | 3 ++-
 3 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/复合检验管理/TradeManage.dof b/复合检验管理/TradeManage.dof
index 0543264..3f1037f 100644
--- a/复合检验管理/TradeManage.dof
+++ b/复合检验管理/TradeManage.dof
@@ -101,7 +101,7 @@ DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
-HostApplication=D:\�������Ŀ����\��Ŀ����\���ø���\���ϼ������\testDll.exe
+HostApplication=D:\Dp7Repo\��Ŀ����\D7DJcaiyue\���ϼ������\testDll.exe
 Launcher=
 UseLauncher=0
 DebugCWD=
diff --git a/复合检验管理/U_OrderInPut.dfm b/复合检验管理/U_OrderInPut.dfm
index a13b291..6bd6173 100644
--- a/复合检验管理/U_OrderInPut.dfm
+++ b/复合检验管理/U_OrderInPut.dfm
@@ -1881,6 +1881,12 @@ object frmOrderInPut: TfrmOrderInPut
         HeaderAlignmentHorz = taCenter
         Width = 70
       end
+      object Tv1Column3: TcxGridDBColumn
+        Caption = #20986#21697
+        DataBinding.FieldName = 'Prtcp'
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
     end
     object cxGrid1Level1: TcxGridLevel
       GridView = Tv1
diff --git a/复合检验管理/U_OrderInPut.pas b/复合检验管理/U_OrderInPut.pas
index 227ffa4..7ed8b6d 100644
--- a/复合检验管理/U_OrderInPut.pas
+++ b/复合检验管理/U_OrderInPut.pas
@@ -1,7 +1,7 @@
 unit U_OrderInPut;
 
 interface
-
+                                              
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
@@ -193,6 +193,7 @@ type
     Label56: TLabel;
     BQCustomer: TBtnEditC;
     Tv1Column2: TcxGridDBColumn;
+    Tv1Column3: TcxGridDBColumn;
     procedure TBCloseClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure TBSaveClick(Sender: TObject);