Group_DJD/D7DJshengxing
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-09-20 12:59:59 +08:00
parent 3beb1f9cb7
commit 49668c4c80
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
检验管理/TradeManage.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=E:\李建博开发代码\项目代码\盛兴\检验管理\testDll.exe HostApplication=D:\Dp7Repo\项目代码\D7DJshengxing\检验管理\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

8
检验管理/U_GetDllForm.pas
View File

@ -70,11 +70,11 @@ begin
SetLength(user, 255); SetLength(user, 255);
SetLength(pswd, 255); SetLength(pswd, 255);
server := '121.40.233.100,7781'; server := '101.132.143.144,7781';
// server:='.'; // server:='.';
dtbase := 'yintaijydata'; dtbase := 'shengxingjydata';
user := 'sa'; user := 'rtsa';
pswd := 'rightsoft@123'; pswd := 'rightsoft@5740';
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;
IF trim(DataBaseStr)<>''then IF trim(DataBaseStr)<>''then