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 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\Dp7Repo\项目代码\陈丰\合同管理(ContractManagement.dll)\testDll.exe HostApplication=E:\项目资料\02_梭织厂\陈丰\D7szChenfeng\合同管理(ContractManagement.dll)\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

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

@ -8,7 +8,7 @@ uses
WinProcs, WinProcs,
MidasLib, MidasLib,
U_GetDllForm in 'U_GetDllForm.pas', 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_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote},
U_DataLink in 'U_DataLink.pas' {DataLink_ContractManagement: TDataModule}, U_DataLink in 'U_DataLink.pas' {DataLink_ContractManagement: TDataModule},
U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel}, U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel},
@ -18,7 +18,7 @@ uses
U_ColumnSet in '..\Z99Dependency\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet}, U_ColumnSet in '..\Z99Dependency\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet},
U_ColumnBandSet in '..\Z99Dependency\ThreeFun\Form\U_ColumnBandSet.pas' {frmColumnBandSet}, U_ColumnBandSet in '..\Z99Dependency\ThreeFun\Form\U_ColumnBandSet.pas' {frmColumnBandSet},
U_SelPrintFieldNew in '..\Z99Dependency\ThreeFun\Form\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew}, 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_CompressionFun in '..\Z99Dependency\ThreeFun\Fun\U_CompressionFun.pas',
U_SysLogHelp in '..\Z99Dependency\ThreeFun\Form\U_SysLogHelp.pas' {frmSysLogHelp}, U_SysLogHelp in '..\Z99Dependency\ThreeFun\Form\U_SysLogHelp.pas' {frmSysLogHelp},
U_FactoryGYS in 'U_FactoryGYS.pas' {frmFactoryGYS}, 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 $** DCC = $(ROOT)\bin\dcc32.exe $**
BRCC = $(ROOT)\bin\brcc32.exe $** BRCC = $(ROOT)\bin\brcc32.exe $**
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
PROJECTS = testDll.exe ProductPrice.dll PROJECTS = ContractManagement.dll testDll.exe
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
default: $(PROJECTS) default: $(PROJECTS)
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
ContractManagement.dll: ContractManagement.dpr
$(DCC)
testDll.exe: testDll.dpr testDll.exe: testDll.dpr
$(DCC) $(DCC)
ProductPrice.dll: ProductPrice.dpr
$(DCC)

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

@ -68,15 +68,20 @@ begin
SetLength(dtbase, 255); SetLength(dtbase, 255);
SetLength(user, 255); SetLength(user, 255);
SetLength(pswd, 255); SetLength(pswd, 255);
if trim(DataBaseStr) = '' then
server := '101.132.143.144,7781'; begin
dtbase := 'chenfengdata'; server := '101.132.143.144,7781';
user := 'rtsa'; dtbase := 'chenfengdata';
pswd := 'rightsoft@5740'; user := 'rtsa';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; pswd := 'rightsoft@5740';
DConString := DataBaseStr; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
// DName:='ADMIN'; // DName:='ADMIN';
// DParameters1:='高权限'; // DParameters1:='高权限';
end
else
begin
DConString := DataBaseStr;
end;
if not ConnData() then if not ConnData() then
begin begin

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

@ -9,7 +9,7 @@ uses
WinProcs, WinProcs,
MIDASLIB, MIDASLIB,
U_GetDllForm in 'U_GetDllForm.pas', 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_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote},
U_DataLink in 'U_DataLink.pas' {DataLink_PBMDDJ: TDataModule}, U_DataLink in 'U_DataLink.pas' {DataLink_PBMDDJ: TDataModule},
U_GYSList in 'U_GYSList.pas' {frmGYSList}, U_GYSList in 'U_GYSList.pas' {frmGYSList},

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

@ -7,7 +7,7 @@ uses
WinTypes, WinTypes,
WinProcs, WinProcs,
U_GetDllForm in 'U_GetDllForm.pas', 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_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote},
U_DataLink in 'U_DataLink.pas' {DataLink_BaseInfo: TDataModule}, U_DataLink in 'U_DataLink.pas' {DataLink_BaseInfo: TDataModule},
U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel}, U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel},

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

@ -8,7 +8,7 @@ uses
WinProcs, WinProcs,
MidasLib, MidasLib,
U_GetDllForm in 'U_GetDllForm.pas', 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_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote},
U_DataLink in 'U_DataLink.pas' {DataLink_Company: TDataModule}, U_DataLink in 'U_DataLink.pas' {DataLink_Company: TDataModule},
U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel}, U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel},

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

@ -7,7 +7,7 @@ uses
WinTypes, WinTypes,
WinProcs, WinProcs,
U_GetDllForm in 'U_GetDllForm.pas', 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_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote},
U_DataLink in 'U_DataLink.pas' {DataLink_Wage: TDataModule}, U_DataLink in 'U_DataLink.pas' {DataLink_Wage: TDataModule},
U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel}, U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel},

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

@ -8,7 +8,7 @@ uses
WinProcs, WinProcs,
MidasLib, MidasLib,
U_GetDllForm in 'U_GetDllForm.pas', 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_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote},
U_DataLink in 'U_DataLink.pas' {DataLink_FabricInspection: TDataModule}, U_DataLink in 'U_DataLink.pas' {DataLink_FabricInspection: TDataModule},
U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel}, U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel},

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

@ -7,7 +7,7 @@ uses
WinTypes, WinTypes,
WinProcs, WinProcs,
U_GetDllForm in 'U_GetDllForm.pas', 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_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote},
U_DataLink in 'U_DataLink.pas' {DataLink_WechatManage: TDataModule}, U_DataLink in 'U_DataLink.pas' {DataLink_WechatManage: TDataModule},
U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel}, U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel},

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

@ -8,7 +8,7 @@ uses
WinProcs, WinProcs,
MidasLib, MidasLib,
U_GetDllForm in 'U_GetDllForm.pas', 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_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote},
U_DataLink in 'U_DataLink.pas' {DataLink_FinishedClothWarehouse: TDataModule}, U_DataLink in 'U_DataLink.pas' {DataLink_FinishedClothWarehouse: TDataModule},
U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel}, 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_Fun in '..\Z99Dependency\ThreeFun\Fun\U_Fun.pas',
U_Fun10 in '..\Z99Dependency\ThreeFun\Fun\U_Fun10.pas', U_Fun10 in '..\Z99Dependency\ThreeFun\Fun\U_Fun10.pas',
U_CPSel in 'U_CPSel.pas' {frmCPSel}, 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_SLT in 'U_SLT.pas' {frmSLT: TFrame},
U_ZdyAttachGYS in 'U_ZdyAttachGYS.pas' {frmZdyAttachGYS}; U_ZdyAttachGYS in 'U_ZdyAttachGYS.pas' {frmZdyAttachGYS};

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

@ -8,7 +8,7 @@ uses
WinProcs, WinProcs,
midaslib, midaslib,
U_GetDllForm in 'U_GetDllForm.pas', 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_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote},
U_DataLink in 'U_DataLink.pas' {DataLink_ShuttleSchedule: TDataModule}, U_DataLink in 'U_DataLink.pas' {DataLink_ShuttleSchedule: TDataModule},
U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel}, U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel},
@ -20,7 +20,7 @@ uses
U_ColumnBandSet in '..\Z99Dependency\ThreeFun\Form\U_ColumnBandSet.pas' {frmColumnBandSet}, U_ColumnBandSet in '..\Z99Dependency\ThreeFun\Form\U_ColumnBandSet.pas' {frmColumnBandSet},
U_SelPrintFieldNew in '..\Z99Dependency\ThreeFun\Form\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew}, U_SelPrintFieldNew in '..\Z99Dependency\ThreeFun\Form\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew},
U_CompressionFun in '..\Z99Dependency\ThreeFun\Fun\U_CompressionFun.pas', 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} {$R *.res}

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

@ -7,7 +7,7 @@ uses
WinTypes, WinTypes,
WinProcs, WinProcs,
U_GetDllForm in 'U_GetDllForm.pas', 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_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote},
U_DataLink in 'U_DataLink.pas' {DataLink_MessageAlert: TDataModule}, U_DataLink in 'U_DataLink.pas' {DataLink_MessageAlert: TDataModule},
U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel}, U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel},

2
纱线仓库/Yarn.dpr
View File

@ -8,7 +8,7 @@ uses
WinProcs, WinProcs,
MidasLib, MidasLib,
U_GetDllForm in 'U_GetDllForm.pas', 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_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote},
U_DataLink in 'U_DataLink.pas' {DataLink_Yarn: TDataModule}, U_DataLink in 'U_DataLink.pas' {DataLink_Yarn: TDataModule},
U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel}, U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel},

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

@ -8,7 +8,7 @@ uses
WinProcs, WinProcs,
midaslib, midaslib,
U_GetDllForm in 'U_GetDllForm.pas', 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_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote},
U_DataLink in 'U_DataLink.pas' {DataLink_Warehouse: TDataModule}, U_DataLink in 'U_DataLink.pas' {DataLink_Warehouse: TDataModule},
U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel}, U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel},

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

@ -7,7 +7,7 @@ uses
WinTypes, WinTypes,
WinProcs, WinProcs,
U_GetDllForm in 'U_GetDllForm.pas', 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_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote},
U_DataLink in 'U_DataLink.pas' {DataLink_Statistics: TDataModule}, U_DataLink in 'U_DataLink.pas' {DataLink_Statistics: TDataModule},
U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel}, U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel},