From 7cf37d83fd63368a2c2492699130b18b7797ca75 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Tue, 22 Jul 2025 16:53:10 +0800 Subject: [PATCH] 1 --- .../ContractManagement.dof | 2 +- .../ContractManagement.dpr | 4 ++-- .../ProjectGroup1.bpg | 8 ++++---- .../U_GetDllForm.pas | 19 ++++++++++++------- 坯布码单待检(PBMDDJ.dll)/PBMDDJ.dpr | 2 +- 基础资料(BaseInfo.dll)/BaseInfo.dpr | 2 +- 客户供应商管理(Company.dll)/Company.dpr | 2 +- 工资管理(Wage.dll)/Wage.dpr | 2 +- .../FabricInspection.dpr | 2 +- 微信管理(WechatManage.dll)/WechatManage.dpr | 2 +- .../FinishedClothWarehouse.dpr | 2 +- 样品(YPGL.dll)/YPGL.dpr | 2 +- .../ShuttleSchedule.dpr | 4 ++-- 消息提醒(MessageAlert.dll)/MessageAlert.dpr | 2 +- 纱线仓库/Yarn.dpr | 2 +- 经轴仓库(Warehouse.dll)/Warehouse.dpr | 2 +- 进度统计查询(Statistics.dll)/Statistics.dpr | 2 +- 17 files changed, 33 insertions(+), 28 deletions(-) diff --git a/合同管理(ContractManagement.dll)/ContractManagement.dof b/合同管理(ContractManagement.dll)/ContractManagement.dof index ab508b5..5307b55 100644 --- a/合同管理(ContractManagement.dll)/ContractManagement.dof +++ b/合同管理(ContractManagement.dll)/ContractManagement.dof @@ -101,7 +101,7 @@ DebugSourceDirs= UsePackages=0 [Parameters] RunParams= -HostApplication=D:\Dp7Repo\Ŀ\·\ͬ(ContractManagement.dll)\testDll.exe +HostApplication=E:\Ŀ\02_֯\·\D7szChenfeng\ͬ(ContractManagement.dll)\testDll.exe Launcher= UseLauncher=0 DebugCWD= diff --git a/合同管理(ContractManagement.dll)/ContractManagement.dpr b/合同管理(ContractManagement.dll)/ContractManagement.dpr index 0cf0500..20bd532 100644 --- a/合同管理(ContractManagement.dll)/ContractManagement.dpr +++ b/合同管理(ContractManagement.dll)/ContractManagement.dpr @@ -8,7 +8,7 @@ uses WinProcs, MidasLib, U_GetDllForm in 'U_GetDllForm.pas', - U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas', + U_RTFun in '..\Z99Dependency\RTFunAndForm\Fun\U_RTFun.pas', U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote}, U_DataLink in 'U_DataLink.pas' {DataLink_ContractManagement: TDataModule}, U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel}, @@ -18,7 +18,7 @@ uses U_ColumnSet in '..\Z99Dependency\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet}, U_ColumnBandSet in '..\Z99Dependency\ThreeFun\Form\U_ColumnBandSet.pas' {frmColumnBandSet}, U_SelPrintFieldNew in '..\Z99Dependency\ThreeFun\Form\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew}, - U_RTZDYHelp in '..\..\..\RTFunAndForm\Form\U_RTZDYHelp.pas' {frmRTZDYHelp}, + U_RTZDYHelp in '..\Z99Dependency\RTFunAndForm\Form\U_RTZDYHelp.pas' {frmRTZDYHelp}, U_CompressionFun in '..\Z99Dependency\ThreeFun\Fun\U_CompressionFun.pas', U_SysLogHelp in '..\Z99Dependency\ThreeFun\Form\U_SysLogHelp.pas' {frmSysLogHelp}, U_FactoryGYS in 'U_FactoryGYS.pas' {frmFactoryGYS}, diff --git a/合同管理(ContractManagement.dll)/ProjectGroup1.bpg b/合同管理(ContractManagement.dll)/ProjectGroup1.bpg index 7c050f6..fd380d3 100644 --- a/合同管理(ContractManagement.dll)/ProjectGroup1.bpg +++ b/合同管理(ContractManagement.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 = ContractManagement.dll testDll.exe #------------------------------------------------------------------------------ default: $(PROJECTS) #------------------------------------------------------------------------------ +ContractManagement.dll: ContractManagement.dpr + $(DCC) + testDll.exe: testDll.dpr $(DCC) -ProductPrice.dll: ProductPrice.dpr - $(DCC) - diff --git a/合同管理(ContractManagement.dll)/U_GetDllForm.pas b/合同管理(ContractManagement.dll)/U_GetDllForm.pas index 46ea98d..f229c84 100644 --- a/合同管理(ContractManagement.dll)/U_GetDllForm.pas +++ b/合同管理(ContractManagement.dll)/U_GetDllForm.pas @@ -68,15 +68,20 @@ begin SetLength(dtbase, 255); SetLength(user, 255); SetLength(pswd, 255); - - server := '101.132.143.144,7781'; - dtbase := 'chenfengdata'; - user := 'rtsa'; - pswd := 'rightsoft@5740'; - DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; - DConString := DataBaseStr; + if trim(DataBaseStr) = '' then + begin + server := '101.132.143.144,7781'; + dtbase := 'chenfengdata'; + user := 'rtsa'; + pswd := 'rightsoft@5740'; + DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; // DName:='ADMIN'; // DParameters1:='Ȩ'; + end + else + begin + DConString := DataBaseStr; + end; if not ConnData() then begin diff --git a/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dpr b/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dpr index 3a20e76..1e0c9c0 100644 --- a/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dpr +++ b/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dpr @@ -9,7 +9,7 @@ uses WinProcs, MIDASLIB, U_GetDllForm in 'U_GetDllForm.pas', - U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas', + U_RTFun in '..\Z99Dependency\RTFunAndForm\Fun\U_RTFun.pas', U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote}, U_DataLink in 'U_DataLink.pas' {DataLink_PBMDDJ: TDataModule}, U_GYSList in 'U_GYSList.pas' {frmGYSList}, diff --git a/基础资料(BaseInfo.dll)/BaseInfo.dpr b/基础资料(BaseInfo.dll)/BaseInfo.dpr index e1ba675..ba48c05 100644 --- a/基础资料(BaseInfo.dll)/BaseInfo.dpr +++ b/基础资料(BaseInfo.dll)/BaseInfo.dpr @@ -7,7 +7,7 @@ uses WinTypes, WinProcs, U_GetDllForm in 'U_GetDllForm.pas', - U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas', + U_RTFun in '..\Z99Dependency\RTFunAndForm\Fun\U_RTFun.pas', U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote}, U_DataLink in 'U_DataLink.pas' {DataLink_BaseInfo: TDataModule}, U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel}, diff --git a/客户供应商管理(Company.dll)/Company.dpr b/客户供应商管理(Company.dll)/Company.dpr index 3bdae49..6553ae5 100644 --- a/客户供应商管理(Company.dll)/Company.dpr +++ b/客户供应商管理(Company.dll)/Company.dpr @@ -8,7 +8,7 @@ uses WinProcs, MidasLib, U_GetDllForm in 'U_GetDllForm.pas', - U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas', + U_RTFun in '..\Z99Dependency\RTFunAndForm\Fun\U_RTFun.pas', U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote}, U_DataLink in 'U_DataLink.pas' {DataLink_Company: TDataModule}, U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel}, diff --git a/工资管理(Wage.dll)/Wage.dpr b/工资管理(Wage.dll)/Wage.dpr index a276d09..96e8dfb 100644 --- a/工资管理(Wage.dll)/Wage.dpr +++ b/工资管理(Wage.dll)/Wage.dpr @@ -7,7 +7,7 @@ uses WinTypes, WinProcs, U_GetDllForm in 'U_GetDllForm.pas', - U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas', + U_RTFun in '..\Z99Dependency\RTFunAndForm\Fun\U_RTFun.pas', U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote}, U_DataLink in 'U_DataLink.pas' {DataLink_Wage: TDataModule}, U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel}, diff --git a/布匹检验(FabricInspection.dll)/FabricInspection.dpr b/布匹检验(FabricInspection.dll)/FabricInspection.dpr index e1e5c2f..a2e75ca 100644 --- a/布匹检验(FabricInspection.dll)/FabricInspection.dpr +++ b/布匹检验(FabricInspection.dll)/FabricInspection.dpr @@ -8,7 +8,7 @@ uses WinProcs, MidasLib, U_GetDllForm in 'U_GetDllForm.pas', - U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas', + U_RTFun in '..\Z99Dependency\RTFunAndForm\Fun\U_RTFun.pas', U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote}, U_DataLink in 'U_DataLink.pas' {DataLink_FabricInspection: TDataModule}, U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel}, diff --git a/微信管理(WechatManage.dll)/WechatManage.dpr b/微信管理(WechatManage.dll)/WechatManage.dpr index 9f12540..129e123 100644 --- a/微信管理(WechatManage.dll)/WechatManage.dpr +++ b/微信管理(WechatManage.dll)/WechatManage.dpr @@ -7,7 +7,7 @@ uses WinTypes, WinProcs, U_GetDllForm in 'U_GetDllForm.pas', - U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas', + U_RTFun in '..\Z99Dependency\RTFunAndForm\Fun\U_RTFun.pas', U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote}, U_DataLink in 'U_DataLink.pas' {DataLink_WechatManage: TDataModule}, U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel}, diff --git a/成品仓库(FinishedClothWarehouse.dll)/FinishedClothWarehouse.dpr b/成品仓库(FinishedClothWarehouse.dll)/FinishedClothWarehouse.dpr index c17c1e3..770eb7a 100644 --- a/成品仓库(FinishedClothWarehouse.dll)/FinishedClothWarehouse.dpr +++ b/成品仓库(FinishedClothWarehouse.dll)/FinishedClothWarehouse.dpr @@ -8,7 +8,7 @@ uses WinProcs, MidasLib, U_GetDllForm in 'U_GetDllForm.pas', - U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas', + U_RTFun in '..\Z99Dependency\RTFunAndForm\Fun\U_RTFun.pas', U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote}, U_DataLink in 'U_DataLink.pas' {DataLink_FinishedClothWarehouse: TDataModule}, U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel}, diff --git a/样品(YPGL.dll)/YPGL.dpr b/样品(YPGL.dll)/YPGL.dpr index 7be95e0..00c9c4a 100644 --- a/样品(YPGL.dll)/YPGL.dpr +++ b/样品(YPGL.dll)/YPGL.dpr @@ -19,7 +19,7 @@ uses U_Fun in '..\Z99Dependency\ThreeFun\Fun\U_Fun.pas', U_Fun10 in '..\Z99Dependency\ThreeFun\Fun\U_Fun10.pas', U_CPSel in 'U_CPSel.pas' {frmCPSel}, - U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas', + U_RTFun in '..\Z99Dependency\RTFunAndForm\Fun\U_RTFun.pas', U_SLT in 'U_SLT.pas' {frmSLT: TFrame}, U_ZdyAttachGYS in 'U_ZdyAttachGYS.pas' {frmZdyAttachGYS}; diff --git a/梭织计划单(ShuttleSchedule.dll)/ShuttleSchedule.dpr b/梭织计划单(ShuttleSchedule.dll)/ShuttleSchedule.dpr index 267c8cf..9b607d0 100644 --- a/梭织计划单(ShuttleSchedule.dll)/ShuttleSchedule.dpr +++ b/梭织计划单(ShuttleSchedule.dll)/ShuttleSchedule.dpr @@ -8,7 +8,7 @@ uses WinProcs, midaslib, U_GetDllForm in 'U_GetDllForm.pas', - U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas', + U_RTFun in '..\Z99Dependency\RTFunAndForm\Fun\U_RTFun.pas', U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote}, U_DataLink in 'U_DataLink.pas' {DataLink_ShuttleSchedule: TDataModule}, U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel}, @@ -20,7 +20,7 @@ uses U_ColumnBandSet in '..\Z99Dependency\ThreeFun\Form\U_ColumnBandSet.pas' {frmColumnBandSet}, U_SelPrintFieldNew in '..\Z99Dependency\ThreeFun\Form\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew}, U_CompressionFun in '..\Z99Dependency\ThreeFun\Fun\U_CompressionFun.pas', - U_Fun10 in '..\..\..\RTFunAndForm\Fun\U_Fun10.pas'; + U_Fun10 in '..\Z99Dependency\RTFunAndForm\Fun\U_Fun10.pas'; {$R *.res} diff --git a/消息提醒(MessageAlert.dll)/MessageAlert.dpr b/消息提醒(MessageAlert.dll)/MessageAlert.dpr index 5d5597d..0c323af 100644 --- a/消息提醒(MessageAlert.dll)/MessageAlert.dpr +++ b/消息提醒(MessageAlert.dll)/MessageAlert.dpr @@ -7,7 +7,7 @@ uses WinTypes, WinProcs, U_GetDllForm in 'U_GetDllForm.pas', - U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas', + U_RTFun in '..\Z99Dependency\RTFunAndForm\Fun\U_RTFun.pas', U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote}, U_DataLink in 'U_DataLink.pas' {DataLink_MessageAlert: TDataModule}, U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel}, diff --git a/纱线仓库/Yarn.dpr b/纱线仓库/Yarn.dpr index 83be94c..420a878 100644 --- a/纱线仓库/Yarn.dpr +++ b/纱线仓库/Yarn.dpr @@ -8,7 +8,7 @@ uses WinProcs, MidasLib, U_GetDllForm in 'U_GetDllForm.pas', - U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas', + U_RTFun in '..\Z99Dependency\RTFunAndForm\Fun\U_RTFun.pas', U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote}, U_DataLink in 'U_DataLink.pas' {DataLink_Yarn: TDataModule}, U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel}, diff --git a/经轴仓库(Warehouse.dll)/Warehouse.dpr b/经轴仓库(Warehouse.dll)/Warehouse.dpr index 99ebd8e..9f318fb 100644 --- a/经轴仓库(Warehouse.dll)/Warehouse.dpr +++ b/经轴仓库(Warehouse.dll)/Warehouse.dpr @@ -8,7 +8,7 @@ uses WinProcs, midaslib, U_GetDllForm in 'U_GetDllForm.pas', - U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas', + U_RTFun in '..\Z99Dependency\RTFunAndForm\Fun\U_RTFun.pas', U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote}, U_DataLink in 'U_DataLink.pas' {DataLink_Warehouse: TDataModule}, U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel}, diff --git a/进度统计查询(Statistics.dll)/Statistics.dpr b/进度统计查询(Statistics.dll)/Statistics.dpr index cefd6de..12fd281 100644 --- a/进度统计查询(Statistics.dll)/Statistics.dpr +++ b/进度统计查询(Statistics.dll)/Statistics.dpr @@ -7,7 +7,7 @@ uses WinTypes, WinProcs, U_GetDllForm in 'U_GetDllForm.pas', - U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas', + U_RTFun in '..\Z99Dependency\RTFunAndForm\Fun\U_RTFun.pas', U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote}, U_DataLink in 'U_DataLink.pas' {DataLink_Statistics: TDataModule}, U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel},