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

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

@ -318,7 +318,8 @@ begin
end;
if trim(ConNo.Text) = '自动生成' then
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
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('取最合同编号失败!', '提示', 0);

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

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

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

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

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

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

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

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

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

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

@ -376,7 +376,8 @@ begin
// Application.MessageBox('客户编号不能为空!', '提示', 0);
// 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
Application.MessageBox('取最大号失败！', '提示', 0);

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

@ -66,18 +66,35 @@ begin
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;
end
else
begin
DConString := DataBaseStr;
//DName := 'ADMIN';
end;
// DName := 'ADMIN';
// DCode := 'ADMINCode';
// DParameters1:='ÒµÎñÔ±';
// DParameters1 := '¹ÜÀíÔ±';
// DParameters1:='¸ßȨÏÞ';
// DParameters3:='1';
if not ConnData() then
begin
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 $**
BRCC = $(ROOT)\bin\brcc32.exe $**
#------------------------------------------------------------------------------
PROJECTS = testDll.exe ProductPrice.dll
PROJECTS = Company.dll testDll.exe
#------------------------------------------------------------------------------
default: $(PROJECTS)
#------------------------------------------------------------------------------
testDll.exe: testDll.dpr
Company.dll: ..\客户供应商管理(Company.dll)\Company.dpr
$(DCC)
ProductPrice.dll: ProductPrice.dpr
testDll.exe: ..\客户供应商管理(Company.dll)\testDll.dpr
$(DCC)