From 49668c4c80478914737a267873a958ab1a34a798 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Sat, 20 Sep 2025 12:59:59 +0800 Subject: [PATCH] ~ --- 检验管理/TradeManage.dof | 2 +- 检验管理/U_GetDllForm.pas | 8 ++++---- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/检验管理/TradeManage.dof b/检验管理/TradeManage.dof index 37f8ca6..af4b2e3 100644 --- a/检验管理/TradeManage.dof +++ b/检验管理/TradeManage.dof @@ -101,7 +101,7 @@ DebugSourceDirs= UsePackages=0 [Parameters] RunParams= -HostApplication=E:\\Ŀ\ʢ\\testDll.exe +HostApplication=D:\Dp7Repo\Ŀ\D7DJshengxing\\testDll.exe Launcher= UseLauncher=0 DebugCWD= diff --git a/检验管理/U_GetDllForm.pas b/检验管理/U_GetDllForm.pas index bf9273c..2014ebc 100644 --- a/检验管理/U_GetDllForm.pas +++ b/检验管理/U_GetDllForm.pas @@ -70,11 +70,11 @@ begin SetLength(user, 255); SetLength(pswd, 255); - server := '121.40.233.100,7781'; + server := '101.132.143.144,7781'; // server:='.'; - dtbase := 'yintaijydata'; - user := 'sa'; - pswd := 'rightsoft@123'; + dtbase := 'shengxingjydata'; + user := 'rtsa'; + pswd := 'rightsoft@5740'; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; IF trim(DataBaseStr)<>''then