汇总

T02贸易汇总仓库/U_TradeFtyClothInList.dfm

@@ -175,6 +175,13 @@ inherited frmTradeFtyClothInList: TfrmTradeFtyClothInList
       Height = 12
       Caption = #25209'    '#21495
     end
+    object Label6: TLabel
+      Left = 648
+      Top = 12
+      Width = 48
+      Height = 12
+      Caption = #25351#31034#21333#21495
+    end
     object BegDate: TDateTimePicker
       Left = 77
       Top = 8
@@ -205,7 +212,7 @@ inherited frmTradeFtyClothInList: TfrmTradeFtyClothInList
     object FromCoName: TEdit
       Tag = 2
       Left = 542
-      Top = 8
+      Top = 7
       Width = 100
       Height = 20
       TabOrder = 3
@@ -256,6 +263,15 @@ inherited frmTradeFtyClothInList: TfrmTradeFtyClothInList
       TabOrder = 7
       OnChange = FromCoNameChange
     end
+    object FromOrdNo: TEdit
+      Tag = 2
+      Left = 702
+      Top = 7
+      Width = 121
+      Height = 20
+      TabOrder = 8
+      OnChange = FromCoNameChange
+    end
   end
   object cxGrid1: TcxGrid [2]
     Left = 0

T02贸易汇总仓库/U_TradeFtyClothInList.pas

@@ -87,6 +87,8 @@ type
     Tv1Column13: TcxGridDBColumn;
     Tv1Column14: TcxGridDBColumn;
     Tv1Column15: TcxGridDBColumn;
+    Label6: TLabel;
+    FromOrdNo: TEdit;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure TBRafreshClick(Sender: TObject);

T02贸易汇总仓库/U_TradeFtyClothStkList.dfm

@@ -5,6 +5,7 @@ inherited frmTradeFtyClothStkList: TfrmTradeFtyClothStkList
   ClientHeight = 472
   ClientWidth = 1400
   Position = poDefault
+  ExplicitLeft = -124
   ExplicitWidth = 1416
   ExplicitHeight = 511
   PixelsPerInch = 96
@@ -117,6 +118,13 @@ inherited frmTradeFtyClothStkList: TfrmTradeFtyClothStkList
       Font.Style = [fsBold]
       ParentFont = False
     end
+    object Label5: TLabel
+      Left = 633
+      Top = 11
+      Width = 48
+      Height = 12
+      Caption = #25351#31034#21333#21495
+    end
     object C_name: TEdit
       Tag = 2
       Left = 254
@@ -162,6 +170,15 @@ inherited frmTradeFtyClothStkList: TfrmTradeFtyClothStkList
       ParentBackground = False
       TabOrder = 4
     end
+    object FromOrdNo: TEdit
+      Tag = 2
+      Left = 687
+      Top = 6
+      Width = 121
+      Height = 20
+      TabOrder = 5
+      OnChange = FromCoNameChange
+    end
   end
   object cxGrid1: TcxGrid [2]
     Left = 0

T02贸易汇总仓库/U_TradeFtyClothStkList.pas

@@ -68,6 +68,8 @@ type
     Tv1Column11: TcxGridDBColumn;
     Label1: TLabel;
     Panel2: TPanel;
+    Label5: TLabel;
+    FromOrdNo: TEdit;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBRafreshClick(Sender: TObject);