diff --git a/报关管理(BaoGuan.dll)/BaoGuan.dof b/报关管理(BaoGuan.dll)/BaoGuan.dof index 863ad05..9883f96 100644 --- a/报关管理(BaoGuan.dll)/BaoGuan.dof +++ b/报关管理(BaoGuan.dll)/BaoGuan.dof @@ -101,7 +101,7 @@ DebugSourceDirs= UsePackages=0 [Parameters] RunParams= -HostApplication=D:\Dp7Repo\Ŀ\\ع(BaoGuan.dll)\testDll.exe +HostApplication=D:\ƽ\D7myzhenyong\ع(BaoGuan.dll)\testDll.exe Launcher= UseLauncher=0 DebugCWD= diff --git a/报关管理(BaoGuan.dll)/ProjectGroup1.bpg b/报关管理(BaoGuan.dll)/ProjectGroup1.bpg index 7c050f6..974d7fa 100644 --- a/报关管理(BaoGuan.dll)/ProjectGroup1.bpg +++ b/报关管理(BaoGuan.dll)/ProjectGroup1.bpg @@ -9,15 +9,15 @@ MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$** DCC = $(ROOT)\bin\dcc32.exe $** BRCC = $(ROOT)\bin\brcc32.exe $** #------------------------------------------------------------------------------ -PROJECTS = testDll.exe ProductPrice.dll +PROJECTS = BaoGuan.dll testDll.exe #------------------------------------------------------------------------------ default: $(PROJECTS) #------------------------------------------------------------------------------ +BaoGuan.dll: BaoGuan.dpr + $(DCC) + testDll.exe: testDll.dpr $(DCC) -ProductPrice.dll: ProductPrice.dpr - $(DCC) - diff --git a/报关管理(BaoGuan.dll)/U_BaoGuanList.dfm b/报关管理(BaoGuan.dll)/U_BaoGuanList.dfm index 1305cdb..2f569b4 100644 --- a/报关管理(BaoGuan.dll)/U_BaoGuanList.dfm +++ b/报关管理(BaoGuan.dll)/U_BaoGuanList.dfm @@ -250,10 +250,18 @@ object frmBaoGuanList: TfrmBaoGuanList Visible = False OnClick = TBExportClick end - object TBClose: TToolButton + object ToolButton4: TToolButton Left = 948 Top = 30 AutoSize = True + Caption = #23548#20986#21015#34920 + ImageIndex = 68 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 1035 + Top = 30 + AutoSize = True Caption = #20851#38381 ImageIndex = 21 OnClick = TBCloseClick diff --git a/报关管理(BaoGuan.dll)/U_BaoGuanList.pas b/报关管理(BaoGuan.dll)/U_BaoGuanList.pas index 5ed9160..9f04efb 100644 --- a/报关管理(BaoGuan.dll)/U_BaoGuanList.pas +++ b/报关管理(BaoGuan.dll)/U_BaoGuanList.pas @@ -160,6 +160,7 @@ type TV1Column2: TcxGridDBColumn; Label18: TLabel; DCNO: TEdit; + ToolButton4: TToolButton; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); @@ -212,6 +213,7 @@ type procedure btn2Click(Sender: TObject); procedure ZordernoChange(Sender: TObject); procedure ZordernoKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton4Click(Sender: TObject); // procedure img1Click(Sender: TObject); @@ -1926,5 +1928,11 @@ begin // 2123 end; +procedure TfrmBaoGuanList.ToolButton4Click(Sender: TObject); +begin + TcxGridToExcel(Trim(Self.Caption), cxGrid2); + +end; + end. diff --git a/报关管理(BaoGuan.dll)/U_GetDllForm.pas b/报关管理(BaoGuan.dll)/U_GetDllForm.pas index bfcc14e..951cca5 100644 --- a/报关管理(BaoGuan.dll)/U_GetDllForm.pas +++ b/报关管理(BaoGuan.dll)/U_GetDllForm.pas @@ -86,7 +86,7 @@ begin pswd := 'rightsoft@9101'; // pswd := 'rightsoft'; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; - DConString := DataBaseStr; +// DConString := DataBaseStr; // DName:='˾'; //DParameters1:='Ȩ'; //DParameters2:='';