1

2025-10-16 14:39:08 +08:00 · 2025-10-16 14:39:08 +08:00 · bb41a862cd
commit bb41a862cd
parent 11ca45eac1
9 changed files with 67 additions and 21 deletions
--- 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:  //应收对账单
--- 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
--- 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)
--- 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
--- 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)
--- 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
--- 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;
--- 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=
--- 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