1

报关管理(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=

报关管理(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)
-
 

报关管理(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

报关管理(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.
 

报关管理(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:='';