diff --git a/A05基础资料管理/BaseInfo.skincfg b/A05基础资料管理/BaseInfo.skincfg index f0fe216..0849faf 100644 --- a/A05基础资料管理/BaseInfo.skincfg +++ b/A05基础资料管理/BaseInfo.skincfg @@ -1,5 +1,5 @@ [ExpressSkins] -Default=0 +Default=1 ShowNotifications=1 Enabled=1 dxSkinBasic=0 diff --git a/A05基础资料管理/U_PositionInPut.dfm b/A05基础资料管理/U_PositionInPut.dfm index b0527b4..c69d905 100644 --- a/A05基础资料管理/U_PositionInPut.dfm +++ b/A05基础资料管理/U_PositionInPut.dfm @@ -7,8 +7,8 @@ inherited frmPositionInPut: TfrmPositionInPut Color = clWhite Font.Height = -16 Position = poMainFormCenter - ExplicitWidth = 648 - ExplicitHeight = 372 + ExplicitWidth = 640 + ExplicitHeight = 364 PixelsPerInch = 96 TextHeight = 21 object cxGrid2: TcxGrid [0] @@ -68,7 +68,6 @@ inherited frmPositionInPut: TfrmPositionInPut DataBinding.FieldName = 'orientation' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Options.Editing = False Width = 78 end end diff --git a/T02贸易汇总仓库/U_TradeClothTotalInList.dfm b/T02贸易汇总仓库/U_TradeClothTotalInList.dfm index 31cccd4..2663394 100644 --- a/T02贸易汇总仓库/U_TradeClothTotalInList.dfm +++ b/T02贸易汇总仓库/U_TradeClothTotalInList.dfm @@ -8,8 +8,8 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList Font.Height = -16 FormStyle = fsMDIChild Visible = True - ExplicitWidth = 1311 - ExplicitHeight = 645 + ExplicitWidth = 1303 + ExplicitHeight = 637 PixelsPerInch = 96 TextHeight = 21 object ToolBar1: TToolBar [0] @@ -515,6 +515,9 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList object cxTabSheet2: TcxTabSheet Caption = #20135#21697#26126#32454 ImageIndex = 1 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 object cxGrid1: TcxGrid Left = 0 Top = 0 diff --git a/T02贸易汇总仓库/U_TradeTotallClothOutinput.dfm b/T02贸易汇总仓库/U_TradeTotallClothOutinput.dfm index a5852ea..0d00618 100644 --- a/T02贸易汇总仓库/U_TradeTotallClothOutinput.dfm +++ b/T02贸易汇总仓库/U_TradeTotallClothOutinput.dfm @@ -8,8 +8,8 @@ inherited frmTradeTotallClothOutinput: TfrmTradeTotallClothOutinput Font.Height = -16 Position = poMainFormCenter OnClose = FormClose - ExplicitWidth = 1541 - ExplicitHeight = 556 + ExplicitWidth = 1533 + ExplicitHeight = 548 PixelsPerInch = 96 TextHeight = 21 object ToolBar1: TToolBar [0] @@ -66,8 +66,6 @@ inherited frmTradeTotallClothOutinput: TfrmTradeTotallClothOutinput Height = 390 Align = alClient TabOrder = 1 - ExplicitLeft = 288 - ExplicitTop = 97 object Tv1: TcxGridDBTableView OnMouseDown = Tv1MouseDown Navigator.Buttons.CustomButtons = <> @@ -387,7 +385,7 @@ inherited frmTradeTotallClothOutinput: TfrmTradeTotallClothOutinput Width = 149 end object IOTime: TcxDateEdit - Left = 346 + Left = 348 Top = 17 Properties.ImmediatePost = True Properties.ShowTime = False diff --git a/T02贸易汇总仓库/U_TradeTotallClothOutinput.pas b/T02贸易汇总仓库/U_TradeTotallClothOutinput.pas index c0d0fbe..c746c45 100644 --- a/T02贸易汇总仓库/U_TradeTotallClothOutinput.pas +++ b/T02贸易汇总仓库/U_TradeTotallClothOutinput.pas @@ -80,6 +80,7 @@ type procedure v1Column13PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure ToolButton2Click(Sender: TObject); procedure ToCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure FormCreate(Sender: TObject); private { Private declarations } function SaveData(): Boolean; @@ -325,6 +326,12 @@ begin Close; end; +procedure TfrmTradeTotallClothOutinput.FormCreate(Sender: TObject); +begin + inherited; + IOTime.Date := SGetServerDate(ADOQueryTemp); +end; + procedure TfrmTradeTotallClothOutinput.FormShow(Sender: TObject); var fsj: string; @@ -413,6 +420,11 @@ var begin if CDS_Sub.IsEmpty then Exit; +// if IOTime.Text = '' then +// begin +// Application.MessageBox('ʱ䲻Ϊ!', 'ʾ', 0); +// Exit; +// end; if IOType.Text = '' then begin Application.MessageBox('ͲΪ!', 'ʾ', 0);