Group_02/D7myzhenyong
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

1

Browse Source
This commit is contained in:
LZC 2025-09-22 10:27:38 +08:00
parent f1dcb7e76c
commit 33c30717f0
5 changed files with 23 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
报关管理(BaoGuan.dll)/BaoGuan.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\Dp7Repo\项目代码\振永\报关管理(BaoGuan.dll)\testDll.exe HostApplication=D:\移交\D7myzhenyong\报关管理(BaoGuan.dll)\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

8
报关管理(BaoGuan.dll)/ProjectGroup1.bpg
View File

@ -9,15 +9,15 @@ MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
DCC = $(ROOT)\bin\dcc32.exe $** DCC = $(ROOT)\bin\dcc32.exe $**
BRCC = $(ROOT)\bin\brcc32.exe $** BRCC = $(ROOT)\bin\brcc32.exe $**
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
PROJECTS = testDll.exe ProductPrice.dll PROJECTS = BaoGuan.dll testDll.exe
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
default: $(PROJECTS) default: $(PROJECTS)
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
BaoGuan.dll: BaoGuan.dpr
$(DCC)
testDll.exe: testDll.dpr testDll.exe: testDll.dpr
$(DCC) $(DCC)
ProductPrice.dll: ProductPrice.dpr
$(DCC)

10
报关管理(BaoGuan.dll)/U_BaoGuanList.dfm
View File

@ -250,10 +250,18 @@ object frmBaoGuanList: TfrmBaoGuanList
Visible = False Visible = False
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object ToolButton4: TToolButton
Left = 948 Left = 948
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #23548#20986#21015#34920
ImageIndex = 68
OnClick = ToolButton4Click
end
object TBClose: TToolButton
Left = 1035
Top = 30
AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
ImageIndex = 21 ImageIndex = 21
OnClick = TBCloseClick OnClick = TBCloseClick

8
报关管理(BaoGuan.dll)/U_BaoGuanList.pas
View File

@ -160,6 +160,7 @@ type
TV1Column2: TcxGridDBColumn; TV1Column2: TcxGridDBColumn;
Label18: TLabel; Label18: TLabel;
DCNO: TEdit; DCNO: TEdit;
ToolButton4: TToolButton;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -212,6 +213,7 @@ type
procedure btn2Click(Sender: TObject); procedure btn2Click(Sender: TObject);
procedure ZordernoChange(Sender: TObject); procedure ZordernoChange(Sender: TObject);
procedure ZordernoKeyPress(Sender: TObject; var Key: Char); procedure ZordernoKeyPress(Sender: TObject; var Key: Char);
procedure ToolButton4Click(Sender: TObject);
// procedure img1Click(Sender: TObject); // procedure img1Click(Sender: TObject);
@ -1926,5 +1928,11 @@ begin
// 2123 // 2123
end; end;
procedure TfrmBaoGuanList.ToolButton4Click(Sender: TObject);
begin
TcxGridToExcel(Trim(Self.Caption), cxGrid2);
end;
end. end.

2
报关管理(BaoGuan.dll)/U_GetDllForm.pas
View File

@ -86,7 +86,7 @@ begin
pswd := 'rightsoft@9101'; pswd := 'rightsoft@9101';
// pswd := 'rightsoft'; // pswd := 'rightsoft';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
DConString := DataBaseStr; // DConString := DataBaseStr;
// DName:='司洋'; // DName:='司洋';
//DParameters1:='高权限'; //DParameters1:='高权限';
//DParameters2:=''; //DParameters2:='';