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

客户编号和合同编号都改成CF开头

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-09-20 10:20:29 +08:00
parent fd0cb5fec9
commit e8e56e2828
10 changed files with 55 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
合同管理(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 = ContractManagement.dll testDll.exe PROJECTS = Company.dll testDll.exe
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
default: $(PROJECTS) default: $(PROJECTS)
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
ContractManagement.dll: ContractManagement.dpr Company.dll: ..\客户供应商管理(Company.dll)\Company.dpr
$(DCC) $(DCC)
testDll.exe: testDll.dpr testDll.exe: ..\客户供应商管理(Company.dll)\testDll.dpr
$(DCC) $(DCC)

3
合同管理(ContractManagement.dll)/U_ConInPutNX.pas
View File

@ -318,7 +318,8 @@ begin
end; end;
if trim(ConNo.Text) = '自动生成' then if trim(ConNo.Text) = '自动生成' then
begin begin
if GetLSNo(ADOCmd, fconNO, 'LH', 'Contract_Main', 2, 1) = False then // if GetLSNo(ADOCmd, fconNO, 'LH', 'Contract_Main', 2, 1) = False then
if GetLSNo(ADOCmd, fconNO, 'CF', 'Contract_Main', 2, 1) = False then
begin begin
ADOCmd.Connection.RollbackTrans; ADOCmd.Connection.RollbackTrans;
Application.MessageBox('取最合同编号失败!', '提示', 0); Application.MessageBox('取最合同编号失败!', '提示', 0);

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

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\Dp7Repo\项目代码\陈丰\客户供应商管理(Company.dll)\testDll.exe HostApplication=D:\项目代码\D7szChenfeng\客户供应商管理(Company.dll)\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

6
客户供应商管理(Company.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)
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
testDll.exe: testDll.dpr ContractManagement.dll: ..\合同管理(ContractManagement.dll)\ContractManagement.dpr
$(DCC) $(DCC)
ProductPrice.dll: ProductPrice.dpr testDll.exe: ..\合同管理(ContractManagement.dll)\testDll.dpr
$(DCC) $(DCC)

17
客户供应商管理(Company.dll)/U_Customer.dfm
View File

@ -1,6 +1,6 @@
object frmCustomer: TfrmCustomer object frmCustomer: TfrmCustomer
Left = 191 Left = 232
Top = 114 Top = 249
Width = 1388 Width = 1388
Height = 650 Height = 650
Caption = #23458#25143#36164#26009#31649#29702 Caption = #23458#25143#36164#26009#31649#29702
@ -21,7 +21,7 @@ object frmCustomer: TfrmCustomer
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1372 Width = 1380
Height = 31 Height = 31
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 95 ButtonWidth = 95
@ -102,7 +102,7 @@ object frmCustomer: TfrmCustomer
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 31 Top = 31
Width = 1372 Width = 1380
Height = 39 Height = 39
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -177,8 +177,8 @@ object frmCustomer: TfrmCustomer
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 70 Top = 70
Width = 1372 Width = 1380
Height = 337 Height = 345
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
@ -187,6 +187,7 @@ object frmCustomer: TfrmCustomer
Navigator.Buttons.Delete.Visible = False Navigator.Buttons.Delete.Visible = False
OnFocusedRecordChanged = Tv2FocusedRecordChanged OnFocusedRecordChanged = Tv2FocusedRecordChanged
DataController.DataSource = DS_HZ DataController.DataSource = DS_HZ
DataController.Filter.AutoDataSetFilter = True
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -289,8 +290,8 @@ object frmCustomer: TfrmCustomer
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 407 Top = 415
Width = 1372 Width = 1380
Height = 204 Height = 204
Align = alBottom Align = alBottom
TabOrder = 3 TabOrder = 3

1
客户供应商管理(Company.dll)/U_Customer.pas
View File

@ -142,6 +142,7 @@ begin
if Trim(canshu1) = '业务员' then if Trim(canshu1) = '业务员' then
sql.Add(' and YwyName=' + quotedstr(trim(DName))); sql.Add(' and YwyName=' + quotedstr(trim(DName)));
Open; Open;
//ShowMessage(SQL.Text);
end; end;
SCreateCDS20(ADOQueryMain, CDS_HZ); SCreateCDS20(ADOQueryMain, CDS_HZ);
SInitCDSData20(ADOQueryMain, CDS_HZ); SInitCDSData20(ADOQueryMain, CDS_HZ);

14
客户供应商管理(Company.dll)/U_CustomerInput.dfm
View File

@ -1,6 +1,6 @@
object frmCustomerInput: TfrmCustomerInput object frmCustomerInput: TfrmCustomerInput
Left = 261 Left = 210
Top = 149 Top = 420
Width = 1123 Width = 1123
Height = 574 Height = 574
Caption = #23458#25143#36164#26009#24405#20837 Caption = #23458#25143#36164#26009#24405#20837
@ -20,7 +20,7 @@ object frmCustomerInput: TfrmCustomerInput
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1107 Width = 1115
Height = 31 Height = 31
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -53,7 +53,7 @@ object frmCustomerInput: TfrmCustomerInput
object ToolBar2: TToolBar object ToolBar2: TToolBar
Left = 0 Left = 0
Top = 225 Top = 225
Width = 1107 Width = 1115
Height = 31 Height = 31
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 119 ButtonWidth = 119
@ -102,8 +102,8 @@ object frmCustomerInput: TfrmCustomerInput
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 256 Top = 256
Width = 1107 Width = 1115
Height = 279 Height = 287
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
@ -206,7 +206,7 @@ object frmCustomerInput: TfrmCustomerInput
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 0 Left = 0
Top = 31 Top = 31
Width = 1107 Width = 1115
Height = 194 Height = 194
Align = alTop Align = alTop
BevelInner = bvNone BevelInner = bvNone

3
客户供应商管理(Company.dll)/U_CustomerInput.pas
View File

@ -376,7 +376,8 @@ begin
// Application.MessageBox('客户编号不能为空!', '提示', 0); // Application.MessageBox('客户编号不能为空!', '提示', 0);
// Exit; // Exit;
// 自动读取客户编号 // 自动读取客户编号
if GetLSNo(ADOQueryCmd, FCoCode, 'KH', 'Company', 5, 0) = False then //if GetLSNo(ADOQueryCmd, FCoCode, 'KH', 'Company', 5, 0) = False then
if GetLSNo(ADOQueryCmd, FCoCode, 'CF', 'Company', 5, 0) = False then
begin begin
Application.MessageBox('取最大号失败！', '提示', 0); Application.MessageBox('取最大号失败！', '提示', 0);

31
客户供应商管理(Company.dll)/U_GetDllForm.pas
View File

@ -66,18 +66,35 @@ begin
SetLength(user, 255); SetLength(user, 255);
SetLength(pswd, 255); SetLength(pswd, 255);
server := '101.132.143.144,7781'; // server := '101.132.143.144,7781';
dtbase := 'chenfengdata'; // dtbase := 'chenfengdata';
user := 'rtsa'; // user := 'rtsa';
pswd := 'rightsoft@5740'; // 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;
DConString := DataBaseStr; // DConString := DataBaseStr;
//DName := 'ADMIN';
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;
end
else
begin
DConString := DataBaseStr;
end;
// DName := 'ADMIN';
// DCode := 'ADMINCode'; // DCode := 'ADMINCode';
// DParameters1:='业务员'; // DParameters1:='业务员';
// DParameters1 := '管理员'; // DParameters1 := '管理员';
// DParameters1:='高权限'; // DParameters1:='高权限';
// DParameters3:='1'; // DParameters3:='1';
if not ConnData() then if not ConnData() then
begin begin
result := 0; result := 0;

6
成品仓库(FinishedClothWarehouse.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 = Company.dll testDll.exe
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
default: $(PROJECTS) default: $(PROJECTS)
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
testDll.exe: testDll.dpr Company.dll: ..\客户供应商管理(Company.dll)\Company.dpr
$(DCC) $(DCC)
ProductPrice.dll: ProductPrice.dpr testDll.exe: ..\客户供应商管理(Company.dll)\testDll.dpr
$(DCC) $(DCC)