From bb41a862cd0a481362a7dbf958948cc592568cdf Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Thu, 16 Oct 2025 14:39:08 +0800 Subject: [PATCH] 1 --- 应收应付/U_GetDllForm.pas | 22 ++++++++++++++-------- 应收应付/U_YFFKList.dfm | 4 ++-- 应收应付/U_YFFKList.pas | 16 +++++++++++++++- 应收应付/U_YFMXlist.dfm | 4 ++-- 应收应付/U_YFMXlist.pas | 15 ++++++++++++++- 应收应付/U_YfMXHZlist.dfm | 4 ++-- 应收应付/U_YfMXHZlist.pas | 17 +++++++++++++++-- 应收应付/YSYF.dof | 2 +- 应收应付/testDll.cfg | 4 ++-- 9 files changed, 67 insertions(+), 21 deletions(-) diff --git a/应收应付/U_GetDllForm.pas b/应收应付/U_GetDllForm.pas index 3ed8da8..f2bf128 100644 --- a/应收应付/U_GetDllForm.pas +++ b/应收应付/U_GetDllForm.pas @@ -80,20 +80,27 @@ begin SetLength(dtbase, 255); SetLength(user, 255); SetLength(pswd, 255); - - server := '121.40.233.100,7781'; + if trim(DataBaseStr) = '' then + begin + server := '121.40.233.100,7781'; // server := '.'; - dtbase := 'tuoxuan10data'; - user := 'sa'; - pswd := 'rightsoft@123'; + dtbase := 'tuoxuan10data'; + user := 'sa'; + pswd := 'rightsoft@123'; // pswd := 'rightsoft'; - DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; - DConString := DataBaseStr; + DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; + // DName := '²ÌÀöö©'; // DParameters1 := '¹ÜÀí'; // DParameters2 := ''; // DParameters2 := 'ÉÜÐËÓùº¯·Ä֯ƷÓÐÏÞ¹«Ë¾'; + end + else + begin + DConString := DataBaseStr; + end; + if not ConnData() then begin result := 0; @@ -768,7 +775,6 @@ begin end; ////////////////////// - /////////////////////// 241: //Ó¦ÊÕ¶ÔÕ˵¥ diff --git a/应收应付/U_YFFKList.dfm b/应收应付/U_YFFKList.dfm index 51a4f37..13bdd05 100644 --- a/应收应付/U_YFFKList.dfm +++ b/应收应付/U_YFFKList.dfm @@ -1,6 +1,6 @@ object frmYFFKList: TfrmYFFKList - Left = 281 - Top = 123 + Left = 531 + Top = 207 Width = 1134 Height = 618 Caption = #24212#20184#27454#20184#27454#32479#35745 diff --git a/应收应付/U_YFFKList.pas b/应收应付/U_YFFKList.pas index b1620a4..c70e22e 100644 --- a/应收应付/U_YFFKList.pas +++ b/应收应付/U_YFFKList.pas @@ -13,7 +13,21 @@ uses RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, cxTextEdit, Clipbrd, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, - dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter; + dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter, + 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, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, + dxSkinXmas2008Blue; type TfrmYFFKList = class(TForm) diff --git a/应收应付/U_YFMXlist.dfm b/应收应付/U_YFMXlist.dfm index fdd2959..72e015b 100644 --- a/应收应付/U_YFMXlist.dfm +++ b/应收应付/U_YFMXlist.dfm @@ -1,6 +1,6 @@ object frmYFMXlist: TfrmYFMXlist - Left = 237 - Top = 147 + Left = 509 + Top = 232 Width = 1293 Height = 614 Caption = #24212#20184#23545#36134#20449#24687#34920 diff --git a/应收应付/U_YFMXlist.pas b/应收应付/U_YFMXlist.pas index 27c7842..e00d78e 100644 --- a/应收应付/U_YFMXlist.pas +++ b/应收应付/U_YFMXlist.pas @@ -15,7 +15,20 @@ uses cxTextEdit, cxDropDownEdit, RM_e_Xls, cxGridBandedTableView, cxGridDBBandedTableView, BtnEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, MovePanel, Menus, dxSkinsCore, - dxSkinsDefaultPainters, dxSkinscxPCPainter; + dxSkinsDefaultPainters, dxSkinscxPCPainter, 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, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, + dxSkinXmas2008Blue; type TfrmYFMXlist = class(TForm) diff --git a/应收应付/U_YfMXHZlist.dfm b/应收应付/U_YfMXHZlist.dfm index 6199e86..63e27ff 100644 --- a/应收应付/U_YfMXHZlist.dfm +++ b/应收应付/U_YfMXHZlist.dfm @@ -1,6 +1,6 @@ object frmYFMXlHZist: TfrmYFMXlHZist - Left = 230 - Top = 123 + Left = 466 + Top = 197 Width = 1230 Height = 614 Caption = #24212#20184#23545#36134#27719#24635#26597#35810 diff --git a/应收应付/U_YfMXHZlist.pas b/应收应付/U_YfMXHZlist.pas index 4f5379b..7a21a63 100644 --- a/应收应付/U_YfMXHZlist.pas +++ b/应收应付/U_YfMXHZlist.pas @@ -15,7 +15,20 @@ uses cxTextEdit, cxDropDownEdit, RM_e_Xls, cxGridBandedTableView, cxGridDBBandedTableView, BtnEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Menus, dxSkinsCore, dxSkinsDefaultPainters, - dxSkinscxPCPainter; + dxSkinscxPCPainter, 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, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, + dxSkinXmas2008Blue; type TfrmYFMXlHZist = class(TForm) ToolBar1: TToolBar; @@ -547,7 +560,7 @@ begin if FileExists(fPrintFile) then begin RmVariables['GSTT'] := Trim(ComboBox1.Text); - RmVariables['djmoney'] := Trim(CDS_HZ.fieldbyname('djmoney').AsString); +// RmVariables['djmoney'] := Trim(CDS_HZ.fieldbyname('djmoney').AsString); RM1.LoadFromFile(fPrintFile); RM1.ShowReport; diff --git a/应收应付/YSYF.dof b/应收应付/YSYF.dof index 1a187d4..089491a 100644 --- a/应收应付/YSYF.dof +++ b/应收应付/YSYF.dof @@ -101,7 +101,7 @@ DebugSourceDirs= UsePackages=0 [Parameters] RunParams= -HostApplication=D:\Dp7Repo\ÏîÄ¿´úÂë\ÍØÐù\Ó¦ÊÕÓ¦¸¶\testDll.exe +HostApplication=E:\ÏîÄ¿×ÊÁÏ\06_óÒ×¹«Ë¾\ÍØÐù\D7myTuoxuan\Ó¦ÊÕÓ¦¸¶\testDll.exe Launcher= UseLauncher=0 DebugCWD= diff --git a/应收应付/testDll.cfg b/应收应付/testDll.cfg index 0ee74bb..e9c1cc1 100644 --- a/应收应付/testDll.cfg +++ b/应收应付/testDll.cfg @@ -31,8 +31,8 @@ -M -$M16384,1048576 -K$00400000 --LE"d:\program files (x86)\borland\delphi7\Projects\Bpl" --LN"d:\program files (x86)\borland\delphi7\Projects\Bpl" +-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl" +-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl" -w-UNSAFE_TYPE -w-UNSAFE_CODE -w-UNSAFE_CAST