diff --git a/桂华管理系统/U_ClothContractList_HZ.dfm b/桂华管理系统/U_ClothContractList_HZ.dfm index f97953c..bc6acb3 100644 --- a/桂华管理系统/U_ClothContractList_HZ.dfm +++ b/桂华管理系统/U_ClothContractList_HZ.dfm @@ -55,29 +55,29 @@ object frmClothContractList_HZ: TfrmClothContractList_HZ ImageIndex = 59 OnClick = TBFindClick end - object TBExport: TToolButton + object ToolButton1: TToolButton Left = 126 Top = 0 + Caption = #26597#30475#26126#32454 + ImageIndex = 57 + Visible = False + end + object TBExport: TToolButton + Left = 209 + Top = 0 AutoSize = True Caption = #23548#20986 ImageIndex = 75 OnClick = TBExportClick end object TBClose: TToolButton - Left = 189 + Left = 272 Top = 0 AutoSize = True Caption = #20851#38381 ImageIndex = 55 OnClick = TBCloseClick end - object ToolButton1: TToolButton - Left = 252 - Top = 0 - Caption = #26597#30475#26126#32454 - ImageIndex = 56 - Visible = False - end end object Panel1: TPanel Left = 0 diff --git a/桂华管理系统/U_ClothContractList_HZ.pas b/桂华管理系统/U_ClothContractList_HZ.pas index fcf66f3..7ce02d1 100644 --- a/桂华管理系统/U_ClothContractList_HZ.pas +++ b/桂华管理系统/U_ClothContractList_HZ.pas @@ -11,7 +11,20 @@ uses cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxCheckBox, cxCurrencyEdit, cxLookAndFeels, - cxLookAndFeelPainters, cxNavigator; + cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinBlack, dxSkinBlue, + dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, + dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, + dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, + dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, + dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins, + dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, + dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, + dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, + dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, + dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, + dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine, + dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter; type TfrmClothContractList_HZ = class(TForm) diff --git a/桂华管理系统/U_ClothContractList_PBKC.dfm b/桂华管理系统/U_ClothContractList_PBKC.dfm index 646bb76..624ec0d 100644 --- a/桂华管理系统/U_ClothContractList_PBKC.dfm +++ b/桂华管理系统/U_ClothContractList_PBKC.dfm @@ -55,31 +55,31 @@ object frmClothContractList_PBKC: TfrmClothContractList_PBKC ImageIndex = 59 OnClick = TBFindClick end - object TBExport: TToolButton + object ToolButton1: TToolButton Left = 126 Top = 0 AutoSize = True + Caption = #26597#30475#26126#32454 + ImageIndex = 57 + Visible = False + OnClick = ToolButton1Click + end + object TBExport: TToolButton + Left = 213 + Top = 0 + AutoSize = True Caption = #23548#20986 ImageIndex = 75 OnClick = TBExportClick end object TBClose: TToolButton - Left = 189 + Left = 276 Top = 0 AutoSize = True Caption = #20851#38381 ImageIndex = 55 OnClick = TBCloseClick end - object ToolButton1: TToolButton - Left = 252 - Top = 0 - AutoSize = True - Caption = #26597#30475#26126#32454 - ImageIndex = 56 - Visible = False - OnClick = ToolButton1Click - end end object Panel1: TPanel Left = 0 diff --git a/桂华管理系统/U_ClothContractList_SJD.dfm b/桂华管理系统/U_ClothContractList_SJD.dfm index 051da8a..dbd1b3b 100644 --- a/桂华管理系统/U_ClothContractList_SJD.dfm +++ b/桂华管理系统/U_ClothContractList_SJD.dfm @@ -55,30 +55,30 @@ object frmClothContractList_SJD: TfrmClothContractList_SJD ImageIndex = 59 OnClick = TBFindClick end - object TBExport: TToolButton + object ToolButton1: TToolButton Left = 126 Top = 0 AutoSize = True + Caption = #26597#30475#26126#32454 + ImageIndex = 57 + OnClick = ToolButton1Click + end + object TBExport: TToolButton + Left = 213 + Top = 0 + AutoSize = True Caption = #23548#20986 ImageIndex = 75 OnClick = TBExportClick end object TBClose: TToolButton - Left = 189 + Left = 276 Top = 0 AutoSize = True Caption = #20851#38381 ImageIndex = 55 OnClick = TBCloseClick end - object ToolButton1: TToolButton - Left = 252 - Top = 0 - AutoSize = True - Caption = #26597#30475#26126#32454 - ImageIndex = 56 - OnClick = ToolButton1Click - end end object Panel1: TPanel Left = 0 diff --git a/桂华管理系统/U_ClothContractList_SJD.pas b/桂华管理系统/U_ClothContractList_SJD.pas index 38de956..6569929 100644 --- a/桂华管理系统/U_ClothContractList_SJD.pas +++ b/桂华管理系统/U_ClothContractList_SJD.pas @@ -30,7 +30,7 @@ type TfrmClothContractList_SJD = class(TForm) ToolBar1: TToolBar; TBRafresh: TToolButton; - TBFind: TToolButton; + TBFind: TToolButton; TBClose: TToolButton; Panel1: TPanel; BegDate: TDateTimePicker; diff --git a/桂华管理系统/U_ClothContractList_SJDCK.dfm b/桂华管理系统/U_ClothContractList_SJDCK.dfm index cf1f96a..11a27e9 100644 --- a/桂华管理系统/U_ClothContractList_SJDCK.dfm +++ b/桂华管理系统/U_ClothContractList_SJDCK.dfm @@ -24,7 +24,7 @@ object frmClothContractList_SJDCK: TfrmClothContractList_SJDCK Width = 1366 AutoSize = True ButtonHeight = 30 - ButtonWidth = 83 + ButtonWidth = 59 Caption = 'ToolBar1' Color = clSkyBlue Flat = True @@ -71,14 +71,6 @@ object frmClothContractList_SJDCK: TfrmClothContractList_SJDCK ImageIndex = 55 OnClick = TBCloseClick end - object ToolButton1: TToolButton - Left = 252 - Top = 0 - AutoSize = True - Caption = #26597#30475#26126#32454 - ImageIndex = 56 - Visible = False - end end object Panel1: TPanel Left = 0 diff --git a/桂华管理系统/U_ClothContractList_SJDCK.pas b/桂华管理系统/U_ClothContractList_SJDCK.pas index f7f22c4..9518b2a 100644 --- a/桂华管理系统/U_ClothContractList_SJDCK.pas +++ b/桂华管理系统/U_ClothContractList_SJDCK.pas @@ -31,9 +31,9 @@ type ToolBar1: TToolBar; TBRafresh: TToolButton; TBFind: TToolButton; - TBClose: TToolButton; + TBClose: TToolButton; Panel1: TPanel; - BegDate: TDateTimePicker; + BegDate: TDateTimePicker; EndDate: TDateTimePicker; Label1: TLabel; Label2: TLabel; @@ -91,7 +91,6 @@ type Label7: TLabel; JHPlace: TEdit; Order_Main: TClientDataSet; - ToolButton1: TToolButton; Tv1Column1: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn; @@ -152,7 +151,7 @@ procedure TfrmClothContractList_SJDCK.InitGrid(); begin try ADOQueryMain.DisableControls; - with ADOQueryMain do + with ADOQueryMain do begin Close; sql.Clear; diff --git a/桂华管理系统/U_ClothContractList_SJDMX.dfm b/桂华管理系统/U_ClothContractList_SJDMX.dfm index 1601fac..24264a2 100644 --- a/桂华管理系统/U_ClothContractList_SJDMX.dfm +++ b/桂华管理系统/U_ClothContractList_SJDMX.dfm @@ -55,30 +55,30 @@ object frmClothContractList_SJDMX: TfrmClothContractList_SJDMX ImageIndex = 59 OnClick = TBFindClick end - object TBExport: TToolButton + object ToolButton1: TToolButton Left = 126 Top = 0 AutoSize = True + Caption = #26597#30475#26126#32454 + ImageIndex = 57 + OnClick = ToolButton1Click + end + object TBExport: TToolButton + Left = 213 + Top = 0 + AutoSize = True Caption = #23548#20986 ImageIndex = 75 OnClick = TBExportClick end object TBClose: TToolButton - Left = 189 + Left = 276 Top = 0 AutoSize = True Caption = #20851#38381 ImageIndex = 55 OnClick = TBCloseClick end - object ToolButton1: TToolButton - Left = 252 - Top = 0 - AutoSize = True - Caption = #26597#30475#26126#32454 - ImageIndex = 56 - OnClick = ToolButton1Click - end end object Panel1: TPanel Left = 0