Group_01/D7wmguihua
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-08-30 16:53:43 +08:00
parent bbe0d4e993
commit aada1fb524
6 changed files with 44 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=D:\其속螺淃커덜쯤\淃커덜쯤\뱅빽\툰꼈쯤데덤쇱(PBMDDJ.dll)\testDll.exe
HostApplication=D:\Dp7Repo\淃커덜쯤\D7wmguihua\툰꼈쯤데덤쇱(PBMDDJ.dll)\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=

16
坯布码单待检(PBMDDJ.dll)/U_DataLink.pas
View File

@ -4,7 +4,21 @@ interface
uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses;
Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, dxSkinsCore,
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans,
dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue;
var
DConString:String; {全局连接字符串}
server, dtbase, user, pswd: String; {数据库连接参数}

25
坯布码单待检(PBMDDJ.dll)/U_SXCKOutListDBCK.pas
View File

@ -11,7 +11,20 @@ uses
cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class,
RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxPC, cxCheckBox,
cxCurrencyEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxBarBuiltInMenu;
dxBarBuiltInMenu, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters,
dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue,
dxSkinscxPCPainter;
type
TfrmSXCKOutListDBCK = class(TForm)
@ -192,7 +205,7 @@ begin
begin
Filtered := False;
Close;
sql.Clear;
sql.Clear;
sql.Add('exec P_Get_Contract_copy1');
sql.Add('@begdate=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''' ');
sql.Add(',@enddate=''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + ''' ');
@ -859,9 +872,9 @@ begin
begin
close;
sql.Clear;
sql.Add('update Contract_Main SET status=''1'' ');
sql.Add('update Contract_Sub SET C_status=''1'' ');
sql.Add('where mainID =' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString)));
// sql.Add('and subID ='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString)));
sql.Add('and subID =' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString)));
execsql;
end;
end;
@ -981,9 +994,9 @@ begin
begin
close;
sql.Clear;
sql.Add('update Contract_Main SET status=''0'' ');
sql.Add('update Contract_Sub SET C_status=''0'' ');
sql.Add('where mainID =' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString)));
// sql.Add('and subID =' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString)));
sql.Add('and subID =' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString)));
execsql;
end;
with ADOQueryCmd do

10
应收应付/U_SKCR.pas
View File

@ -278,9 +278,9 @@ begin
tv2.OptionsData.Editing := false;
TBDel.Visible := false;
ToolButton3.Visible := false;
end
end
else
begin
begin
end;
// IF trim(fSYRName)<>'龙运纺织' then Tsave.Visible:=false;
@ -314,7 +314,7 @@ begin
// ShowMessage(SQL.text);
Open;
Open;
end;
SCreateCDS20(ADOQueryMain, CDS_HZ);
SInitCDSData20(ADOQueryMain, CDS_HZ);
@ -1233,6 +1233,10 @@ begin
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
TBAdd.Visible := False;
TBEdit.Visible := False;
TBDel.Visible := False;
flag := trim(fsyrName) + 'XJLLFLAG';
flagname := '账户类型定义';
if ShowModal = 1 then

2
应收应付/YSYF.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=D:\其속螺淃커덜쯤\淃커덜쯤\뱅빽\壇澗壇마\testDll.exe
HostApplication=D:\Dp7Repo\淃커덜쯤\D7wmguihua\壇澗壇마\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=

2
桂华管理系统/TradeManage.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=D:\徐加艳项目代码\项目代码\桂华\桂华管理系统\testDll.exe
HostApplication=D:\Dp7Repo\项目代码\D7wmguihua\桂华管理系统\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=