~

复合检验管理/TradeManage.dof

@@ -101,7 +101,7 @@ DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
-HostApplication=D:\徐加艳项目代码\项目代码\耀发\复合检验管理\testDll.exe
+HostApplication=D:\Dp7Repo\项目代码\D7DJyaofa\复合检验管理\testDll.exe
 Launcher=
 UseLauncher=0
 DebugCWD=

复合检验管理/U_OrderInPut.dfm

@@ -1865,6 +1865,12 @@ object frmOrderInPut: TfrmOrderInPut
         HeaderAlignmentHorz = taCenter
         Width = 60
       end
+      object Tv1Column5: TcxGridDBColumn
+        Caption = #21305#25968
+        DataBinding.FieldName = 'PrtPs'
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
     end
     object cxGrid1Level1: TcxGridLevel
       GridView = Tv1

复合检验管理/U_OrderInPut.pas

@@ -1,5 +1,5 @@
 unit U_OrderInPut;
-
+                    
 interface
                                         
 uses
@@ -193,6 +193,7 @@ type
     Tv1Column2: TcxGridDBColumn;
     Tv1Column3: TcxGridDBColumn;
     Tv1Column4: TcxGridDBColumn;
+    Tv1Column5: TcxGridDBColumn;
     procedure TBCloseClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure TBSaveClick(Sender: TObject);

复合检验管理/U_ProductOrderNewList.dfm

@@ -1114,6 +1114,12 @@ object frmProductOrderNewList: TfrmProductOrderNewList
           Options.Editing = False
           Width = 65
         end
+        object TV2Column10: TcxGridDBColumn
+          Caption = #21305#25968
+          DataBinding.FieldName = 'PrtPs'
+          HeaderAlignmentHorz = taCenter
+          Width = 60
+        end
       end
       object cxGridLevel1: TcxGridLevel
         GridView = TV2

复合检验管理/U_ProductOrderNewList.pas

@@ -164,6 +164,7 @@ type
     TV2Column9: TcxGridDBColumn;
     ToolButton7: TToolButton;
     CDS_sub: TClientDataSet;
+    TV2Column10: TcxGridDBColumn;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);