1234

坯布汇总仓库(ClothWarehouse.dll)/ClothWarehouse.dof

@@ -101,7 +101,7 @@ DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
-HostApplication=D:\Dp7Repo\ÏîÄ¿´úÂë\¿ÂÁú\Å÷²¼»ã×ֿܲâ(ClothWarehouse.dll)\testDll.exe
+HostApplication=D:\Dp7Repo\ÏîÄ¿´úÂë\D7fhkelong\Å÷²¼»ã×ֿܲâ(ClothWarehouse.dll)\testDll.exe
 Launcher=
 UseLauncher=0
 DebugCWD=

坯布汇总仓库(ClothWarehouse.dll)/U_PBRklist.dfm

@@ -208,7 +208,7 @@ object frmPBRklist: TfrmPBRklist
       ParentFont = False
     end
     object Label15: TLabel
-      Left = 841
+      Left = 1039
       Top = 24
       Width = 52
       Height = 12
@@ -286,6 +286,19 @@ object frmPBRklist: TfrmPBRklist
       Font.Style = [fsBold]
       ParentFont = False
     end
+    object Label12: TLabel
+      Left = 801
+      Top = 14
+      Width = 54
+      Height = 12
+      Caption = #25209'    '#21495
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
     object BegDate: TDateTimePicker
       Left = 76
       Top = 11
@@ -369,7 +382,7 @@ object frmPBRklist: TfrmPBRklist
     end
     object Code: TEdit
       Tag = 2
-      Left = 897
+      Left = 1095
       Top = 20
       Width = 80
       Height = 20
@@ -428,6 +441,15 @@ object frmPBRklist: TfrmPBRklist
       TabOrder = 12
       OnChange = CodeNameChange
     end
+    object CRID: TEdit
+      Tag = 2
+      Left = 857
+      Top = 10
+      Width = 80
+      Height = 20
+      TabOrder = 13
+      OnChange = CodeNameChange
+    end
   end
   object cxGrid1: TcxGrid
     Left = 0
@@ -622,6 +644,12 @@ object frmPBRklist: TfrmPBRklist
         HeaderAlignmentHorz = taCenter
         Width = 67
       end
+      object Tv1Column8: TcxGridDBColumn
+        Caption = #25209#21495
+        DataBinding.FieldName = 'CRID'
+        HeaderAlignmentHorz = taCenter
+        Width = 78
+      end
       object Tv1Column1: TcxGridDBColumn
         Caption = #25240#31639#31859#25968
         DataBinding.FieldName = 'zsqty'

坯布汇总仓库(ClothWarehouse.dll)/U_PBRklist.pas

@@ -113,6 +113,9 @@ type
     ToolButton2: TToolButton;
     CDS_Print: TClientDataSet;
     DataSource2: TDataSource;
+    Label12: TLabel;
+    CRID: TEdit;
+    Tv1Column8: TcxGridDBColumn;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormDestroy(Sender: TObject);
     procedure TBAddClick(Sender: TObject);