~

复合检验管理/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=

复合检验管理/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

复合检验管理/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);