1

应收应付/U_GetDllForm.pas

@@ -80,20 +80,27 @@ begin
   SetLength(dtbase, 255);
   SetLength(user, 255);
   SetLength(pswd, 255);
-
+  if trim(DataBaseStr) = '' then
-  server := '121.40.233.100,7781';
+  begin
+    server := '121.40.233.100,7781';
 //  server := '.';
-  dtbase := 'tuoxuan10data';
+    dtbase := 'tuoxuan10data';
-  user := 'sa';
+    user := 'sa';
-  pswd := 'rightsoft@123';
+    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 := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
-  DConString := DataBaseStr;
+
 
 //  DName := '蔡丽雯';
 //  DParameters1 := '管理';
 //  DParameters2 := '';
 //  DParameters2 := '绍兴御函纺织品有限公司';
+  end
+  else
+  begin
+    DConString := DataBaseStr;
+  end;
+
   if not ConnData() then
   begin
     result := 0;
@@ -768,7 +775,6 @@ begin
       end;
 
      //////////////////////
-
           ///////////////////////
 
     241:  //应收对账单

应收应付/U_YFFKList.dfm

@@ -1,6 +1,6 @@
 object frmYFFKList: TfrmYFFKList
-  Left = 281
+  Left = 531
-  Top = 123
+  Top = 207
   Width = 1134
   Height = 618
   Caption = #24212#20184#27454#20184#27454#32479#35745

应收应付/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)

应收应付/U_YFMXlist.dfm

@@ -1,6 +1,6 @@
 object frmYFMXlist: TfrmYFMXlist
-  Left = 237
+  Left = 509
-  Top = 147
+  Top = 232
   Width = 1293
   Height = 614
   Caption = #24212#20184#23545#36134#20449#24687#34920

应收应付/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)

应收应付/U_YfMXHZlist.dfm

@@ -1,6 +1,6 @@
 object frmYFMXlHZist: TfrmYFMXlHZist
-  Left = 230
+  Left = 466
-  Top = 123
+  Top = 197
   Width = 1230
   Height = 614
   Caption = #24212#20184#23545#36134#27719#24635#26597#35810

应收应付/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;

应收应付/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=

应收应付/testDll.cfg

@@ -31,8 +31,8 @@
 -M
 -$M16384,1048576
 -K$00400000
--LE"d:\program files (x86)\borland\delphi7\Projects\Bpl"
+-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
--LN"d:\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