Group_99/D7szChenfeng
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

1

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-07-22 16:53:10 +08:00
parent 99741c74eb
commit 7cf37d83fd
17 changed files with 33 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
合同管理(ContractManagement.dll)/ContractManagement.dof
View File

@ -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=

4
合同管理(ContractManagement.dll)/ContractManagement.dpr
View File

@ -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},

8
合同管理(ContractManagement.dll)/ProjectGroup1.bpg
View File

@ -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)

9
合同管理(ContractManagement.dll)/U_GetDllForm.pas
View File

@ -68,15 +68,20 @@ begin
SetLength(dtbase, 255);
SetLength(user, 255);
SetLength(pswd, 255);
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;
DConString := DataBaseStr;
// DName:='ADMIN';
// DParameters1:='¸ßȨÏÞ';
end
else
begin
DConString := DataBaseStr;
end;
if not ConnData() then
begin

2
坯布码单待检(PBMDDJ.dll)/PBMDDJ.dpr
View File

@ -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},

2
基础资料(BaseInfo.dll)/BaseInfo.dpr
View File

@ -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},

2
客户供应商管理(Company.dll)/Company.dpr
View File

@ -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},

2
工资管理(Wage.dll)/Wage.dpr
View File

@ -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},

2
布匹检验(FabricInspection.dll)/FabricInspection.dpr
View File

@ -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},

2
微信管理(WechatManage.dll)/WechatManage.dpr
View File

@ -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},

2
成品仓库(FinishedClothWarehouse.dll)/FinishedClothWarehouse.dpr
View File

@ -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},

2
样品(YPGL.dll)/YPGL.dpr
View File

@ -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};

4
梭织计划单(ShuttleSchedule.dll)/ShuttleSchedule.dpr
View File

@ -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}

2
消息提醒(MessageAlert.dll)/MessageAlert.dpr
View File

@ -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},

2
纱线仓库/Yarn.dpr
View File

@ -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},

2
经轴仓库(Warehouse.dll)/Warehouse.dpr
View File

@ -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},

2
进度统计查询(Statistics.dll)/Statistics.dpr
View File

@ -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},