diff --git a/T02贸易汇总仓库/TradeTotalClothStk.identcache b/T02贸易汇总仓库/TradeTotalClothStk.identcache index 86c1986..122024a 100644 Binary files a/T02贸易汇总仓库/TradeTotalClothStk.identcache and b/T02贸易汇总仓库/TradeTotalClothStk.identcache differ diff --git a/T02贸易汇总仓库/U_TradeFtyClothInList.dfm b/T02贸易汇总仓库/U_TradeFtyClothInList.dfm index 51761bf..eddcd14 100644 --- a/T02贸易汇总仓库/U_TradeFtyClothInList.dfm +++ b/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 diff --git a/T02贸易汇总仓库/U_TradeFtyClothInList.pas b/T02贸易汇总仓库/U_TradeFtyClothInList.pas index 3208da9..d1c479c 100644 --- a/T02贸易汇总仓库/U_TradeFtyClothInList.pas +++ b/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); diff --git a/T02贸易汇总仓库/U_TradeFtyClothStkList.dfm b/T02贸易汇总仓库/U_TradeFtyClothStkList.dfm index 5096517..e0becd1 100644 --- a/T02贸易汇总仓库/U_TradeFtyClothStkList.dfm +++ b/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 diff --git a/T02贸易汇总仓库/U_TradeFtyClothStkList.pas b/T02贸易汇总仓库/U_TradeFtyClothStkList.pas index e7cf0c5..9a14a2c 100644 --- a/T02贸易汇总仓库/U_TradeFtyClothStkList.pas +++ b/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);