~

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

@@ -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=

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

@@ -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;  {数据库连接参数}

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

@@ -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

应收应付/U_SKCR.pas

@@ -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

应收应付/YSYF.dof

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

桂华管理系统/TradeManage.dof

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