diff --git a/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dof b/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dof index 7f7f94c..341ec6a 100644 --- a/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dof +++ b/坯布码单待检(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= diff --git a/坯布码单待检(PBMDDJ.dll)/U_DataLink.pas b/坯布码单待检(PBMDDJ.dll)/U_DataLink.pas index 6e08128..514b279 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_DataLink.pas +++ b/坯布码单待检(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; {ݿӲ} diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKOutListDBCK.pas b/坯布码单待检(PBMDDJ.dll)/U_SXCKOutListDBCK.pas index c9aa585..eab6f60 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_SXCKOutListDBCK.pas +++ b/坯布码单待检(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 diff --git a/应收应付/U_SKCR.pas b/应收应付/U_SKCR.pas index 2eb9e5b..9a4a604 100644 --- a/应收应付/U_SKCR.pas +++ b/应收应付/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 diff --git a/应收应付/YSYF.dof b/应收应付/YSYF.dof index 55c2367..6913818 100644 --- a/应收应付/YSYF.dof +++ b/应收应付/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= diff --git a/桂华管理系统/TradeManage.dof b/桂华管理系统/TradeManage.dof index 1c6e8d0..6bd2cb7 100644 --- a/桂华管理系统/TradeManage.dof +++ b/桂华管理系统/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=