From f4eb7f81bc4bfd40e1b707a4977c628438e32ad0 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Wed, 30 Apr 2025 16:15:24 +0800 Subject: [PATCH] ~ --- 基础资料维护(BaseInfo.dll)/U_DataLink.pas | 16 +- 基础资料维护(BaseInfo.dll)/U_GetDllForm.pas | 6 +- 基础资料维护(BaseInfo.dll)/U_ZdyAttInput.dfm | 12 +- 基础资料维护(BaseInfo.dll)/U_ZdyAttInput.pas | 192 ++--- .../U_ZdyAttInputCP.pas | 21 +- .../U_ZdyAttInputGYS.dfm | 1 + .../U_ZdyAttInputGYS.pas | 18 +- .../U_ZdyAttachment.dfm | 12 +- .../U_ZdyAttachment.pas | 115 +-- 应收应付/U_GetDllForm.pas | 2 +- 应收应付/U_SKCR.dfm | 4 +- 应收应付/U_SKCR.pas | 737 +++++++++--------- 桂华管理系统/U_ClothContractInPut.dfm | 14 +- 桂华管理系统/U_ClothContractInPut.pas | 20 +- 桂华管理系统/U_GetDllForm.pas | 4 +- 15 files changed, 646 insertions(+), 528 deletions(-) diff --git a/基础资料维护(BaseInfo.dll)/U_DataLink.pas b/基础资料维护(BaseInfo.dll)/U_DataLink.pas index 6df4a99..882ab4c 100644 --- a/基础资料维护(BaseInfo.dll)/U_DataLink.pas +++ b/基础资料维护(BaseInfo.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/基础资料维护(BaseInfo.dll)/U_GetDllForm.pas b/基础资料维护(BaseInfo.dll)/U_GetDllForm.pas index fc2ed1e..3cda029 100644 --- a/基础资料维护(BaseInfo.dll)/U_GetDllForm.pas +++ b/基础资料维护(BaseInfo.dll)/U_GetDllForm.pas @@ -78,10 +78,11 @@ begin IF trim(DataBaseStr)<>''then DConString := DataBaseStr; - // DParameters1:='ѯ'; - // DParameters1:='1'; +// DParameters1:='ѯ'; + // DParameters1:='1'; // DataBase:='ӹ'; //DataBase:='𻪷֯'; +// DParameters4:='Ȩ'; if not ConnData() then begin result:=0; @@ -114,6 +115,7 @@ begin caption:=Trim(Title); fkhType:=trim(DataBase); canshu1:=trim(DParameters1); + FParameters4:=trim(DParameters4); FormStyle := mstyle ; windowState := mstate ; BorderStyle := mborderstyle; diff --git a/基础资料维护(BaseInfo.dll)/U_ZdyAttInput.dfm b/基础资料维护(BaseInfo.dll)/U_ZdyAttInput.dfm index 9799a3f..bae842e 100644 --- a/基础资料维护(BaseInfo.dll)/U_ZdyAttInput.dfm +++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttInput.dfm @@ -1,6 +1,6 @@ object frmZdyAttInput: TfrmZdyAttInput - Left = -8 - Top = -8 + Left = 269 + Top = 229 Width = 1382 Height = 754 Caption = #23458#25143#36164#26009#24405#20837 @@ -53,13 +53,13 @@ object frmZdyAttInput: TfrmZdyAttInput Left = 0 Top = 31 Width = 1366 - Height = 685 + Height = 684 Align = alClient TabOrder = 1 object Tv2: TcxGridDBTableView - NavigatorButtons.ConfirmDelete = False - NavigatorButtons.Delete.Enabled = False - NavigatorButtons.Delete.Visible = False + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.Delete.Visible = False DataController.DataSource = DS_HZ DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> diff --git a/基础资料维护(BaseInfo.dll)/U_ZdyAttInput.pas b/基础资料维护(BaseInfo.dll)/U_ZdyAttInput.pas index 00ba142..ce08284 100644 --- a/基础资料维护(BaseInfo.dll)/U_ZdyAttInput.pas +++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttInput.pas @@ -5,14 +5,27 @@ interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, - cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, - StdCtrls, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, + cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls, + cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls, cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, - IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar, - cxButtonEdit, cxTextEdit; + IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, + cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, 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, cxNavigator; type TfrmZdyAttInput = class(TForm) @@ -54,31 +67,28 @@ type procedure FormShow(Sender: TObject); procedure TBRafreshClick(Sender: TObject); procedure ToolButton3Click(Sender: TObject); - procedure v2Column14PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); + procedure v2Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); private { Private declarations } procedure InitGrid(); - function SaveData():Boolean; - + function SaveData(): Boolean; public - fkhType:string; + fkhType: string; { Public declarations } - RKFlag,FCYID:String; - + RKFlag, FCYID: string; + canshu1, canshu2,FParameters4: string; end; var frmZdyAttInput: TfrmZdyAttInput; implementation + uses - U_DataLink,U_Fun,U_ZDYHelp, U_WeiXinHelp; + U_DataLink, U_Fun, U_ZDYHelp, U_WeiXinHelp; {$R *.dfm} - - procedure TfrmZdyAttInput.InitGrid(); begin try @@ -86,20 +96,19 @@ begin ADOQueryMain.DisableControls; with ADOQueryMain do begin - Filtered:=False; + Filtered := False; Close; SQL.Clear; - sql.Add(' select * from KH_Zdy_Attachment where ATID='''+Trim(FCYID)+''''); + sql.Add(' select * from KH_Zdy_Attachment where ATID=''' + Trim(FCYID) + ''''); Open; end; - SCreateCDS20(ADOQueryMain,CDS_HZ); - SInitCDSData20(ADOQueryMain,CDS_HZ); + SCreateCDS20(ADOQueryMain, CDS_HZ); + SInitCDSData20(ADOQueryMain, CDS_HZ); finally ADOQueryMain.EnableControls; end; end; - procedure TfrmZdyAttInput.FormDestroy(Sender: TObject); begin //frmZdyAttInput:=nil; @@ -112,16 +121,22 @@ end; procedure TfrmZdyAttInput.TBCloseClick(Sender: TObject); begin - WriteCxGrid('ͻ¼1',Tv2,'ͻԶ'); + WriteCxGrid('ͻ¼1', Tv2, 'ͻԶ'); Close; end; + procedure TfrmZdyAttInput.FormShow(Sender: TObject); begin - ReadCxGrid('ͻ¼1',Tv2,'ͻԶ'); + ReadCxGrid('ͻ¼1', Tv2, 'ͻԶ'); InitGrid(); - if Trim(FCYID)='' then + if Trim(FCYID) = '' then begin CDS_HZ.Append; + if trim(FParameters4) = 'Ȩ' then + begin + CDS_HZ.FieldByName('DEFstr5').Value := Trim(DName); + + end; CDS_HZ.Post; end; end; @@ -131,151 +146,152 @@ begin InitGrid(); end; -function TfrmZdyAttInput.SaveData():Boolean; +function TfrmZdyAttInput.SaveData(): Boolean; var - maxId,CRID:String; - fzdyCode:string; + maxId, CRID: string; + fzdyCode: string; begin try ADOQueryCmd.Connection.BeginTrans; - if Trim(FCYID)='' then + if Trim(FCYID) = '' then begin - if GetLSNo(ADOQueryCmd,maxId,'AT','KH_Zdy_Attachment',4,1)=False then + if GetLSNo(ADOQueryCmd, maxId, 'AT', 'KH_Zdy_Attachment', 4, 1) = False then begin - Result:=False; + Result := False; ADOQueryCmd.Connection.RollbackTrans; - Application.MessageBox('ȡʧܣ','ʾ',0); + Application.MessageBox('ȡʧܣ', 'ʾ', 0); Exit; end; - IF trim(fkhType)='㶫ͻ' then + if trim(fkhType) = '㶫ͻ' then begin - if GetLSNo(ADOQueryCmd,fzdyCode,'KH','KH_Zdy_Attachment',4,0)=False then + if GetLSNo(ADOQueryCmd, fzdyCode, 'KH', 'KH_Zdy_Attachment', 4, 0) = False then begin - Result:=False; + Result := False; ADOQueryCmd.Connection.RollbackTrans; - Application.MessageBox('ȡʧܣ','ʾ',0); + Application.MessageBox('ȡʧܣ', 'ʾ', 0); Exit; end; end - else - IF trim(fkhType)='ݿͻ' then + else if trim(fkhType) = 'ݿͻ' then begin - if GetLSNo(ADOQueryCmd,fzdyCode,'HZ','KH_Zdy_Attachment',4,0)=False then + if GetLSNo(ADOQueryCmd, fzdyCode, 'HZ', 'KH_Zdy_Attachment', 4, 0) = False then begin - Result:=False; + Result := False; ADOQueryCmd.Connection.RollbackTrans; - Application.MessageBox('ȡʧܣ','ʾ',0); + Application.MessageBox('ȡʧܣ', 'ʾ', 0); Exit; end; end else begin - if GetLSNo(ADOQueryCmd,fzdyCode,'KF','KH_Zdy_Attachment',4,0)=False then + if GetLSNo(ADOQueryCmd, fzdyCode, 'KF', 'KH_Zdy_Attachment', 4, 0) = False then begin - Result:=False; - ADOQueryCmd.Connection.RollbackTrans; - Application.MessageBox('ȡʧܣ','ʾ',0); - Exit; + Result := False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ', 'ʾ', 0); + Exit; end; end end else begin - maxId:=Trim(FCYID); + maxId := Trim(FCYID); end; with ADOQueryCmd do begin Close; SQL.Clear; - sql.Add('select * from KH_Zdy_Attachment where ATID='''+Trim(FCYID)+''''); + sql.Add('select * from KH_Zdy_Attachment where ATID=''' + Trim(FCYID) + ''''); Open; end; with ADOQueryCmd do begin - if Trim(FCYID)='' then + if Trim(FCYID) = '' then begin Append; - FieldByName('Filler').Value:=Trim(DName); - FieldByName('zdyCode').Value:=Trim(fzdyCode); - end else + FieldByName('Filler').Value := Trim(DName); + FieldByName('zdyCode').Value := Trim(fzdyCode); + end + else begin Edit; - FieldByName('Editer').Value:=Trim(DName); - FieldByName('Edittime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('Editer').Value := Trim(DName); + FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTemp); end; - FieldByName('ATID').Value:=Trim(maxId); - FieldByName('ZdyName').Value:=Trim(CDS_HZ.fieldbyname('ZdyName').AsString); - RTSetSaveDataCDS(ADOQueryCmd,Tv2,CDS_HZ,'',0); - FieldByName('Type').Value:='KHName'; - FieldByName('khType').Value:=trim(fkhType); - FieldByName('DefFlt1').Value:=CDS_HZ.fieldbyname('DefFlt1').AsFloat; - FieldByName('Filler').Value:=Trim(DName); + FieldByName('ATID').Value := Trim(maxId); + FieldByName('ZdyName').Value := Trim(CDS_HZ.fieldbyname('ZdyName').AsString); + RTSetSaveDataCDS(ADOQueryCmd, Tv2, CDS_HZ, '', 0); + FieldByName('Type').Value := 'KHName'; + FieldByName('khType').Value := trim(fkhType); + FieldByName('DefFlt1').Value := CDS_HZ.fieldbyname('DefFlt1').AsFloat; + FieldByName('Filler').Value := Trim(DName); Post; end; with ADOQueryCmd do begin Close; SQL.Clear; - sql.Add('select * from KH_Zdy where ZdyNo='''+Trim(FCYID)+''''); + sql.Add('select * from KH_Zdy where ZdyNo=''' + Trim(FCYID) + ''''); Open; end; with ADOQueryCmd do begin - if Trim(FCYID)='' then + if Trim(FCYID) = '' then begin Append; - end else + end + else begin Edit; end; - FieldByName('ZdyNo').Value:=Trim(maxId); - FieldByName('ZdyName').Value:=Trim(CDS_HZ.fieldbyname('ZdyName').AsString); - FieldByName('Type').Value:='KHName'; - FieldByName('MainType').Value:=Trim(CDS_HZ.fieldbyname('DEFstr5').AsString); + FieldByName('ZdyNo').Value := Trim(maxId); + FieldByName('ZdyName').Value := Trim(CDS_HZ.fieldbyname('ZdyName').AsString); + FieldByName('Type').Value := 'KHName'; + FieldByName('MainType').Value := Trim(CDS_HZ.fieldbyname('DEFstr5').AsString); Post; end; with ADOQueryCmd do begin Close; sql.Clear; - sql.Add('select * from KH_Zdy_Attachment where ZdyName='''+Trim(CDS_HZ.fieldbyname('ZdyName').AsString)+''''); + sql.Add('select * from KH_Zdy_Attachment where ZdyName=''' + Trim(CDS_HZ.fieldbyname('ZdyName').AsString) + ''''); sql.Add(' and Type=''KHName'' '); - sql.Add(' and isnull(khType,'''')='+quotedstr(trim(fkhType))); + sql.Add(' and isnull(khType,'''')=' + quotedstr(trim(fkhType))); Open; end; - if ADOQueryCmd.RecordCount>1 then + if ADOQueryCmd.RecordCount > 1 then begin ADOQueryCmd.Connection.RollbackTrans; - Application.MessageBox('ͻظ!','ʾ',0); + Application.MessageBox('ͻظ!', 'ʾ', 0); Exit; end; with ADOQueryCmd do begin Close; sql.Clear; - sql.Add('select * from KH_Zdy_Attachment where ZdyCode='''+Trim(CDS_HZ.fieldbyname('ZdyCode').AsString)+''''); + sql.Add('select * from KH_Zdy_Attachment where ZdyCode=''' + Trim(CDS_HZ.fieldbyname('ZdyCode').AsString) + ''''); sql.Add(' and Type=''KHName'' '); Open; end; - if ADOQueryCmd.RecordCount>1 then + if ADOQueryCmd.RecordCount > 1 then begin ADOQueryCmd.Connection.RollbackTrans; - Application.MessageBox('ظ!','ʾ',0); + Application.MessageBox('ظ!', 'ʾ', 0); Exit; end; with CDS_HZ do begin Edit; - FieldByName('ATID').Value:=Trim(maxId); + FieldByName('ATID').Value := Trim(maxId); Post; end; ADOQueryCmd.Connection.CommitTrans; - Result:=True; + Result := True; except - Result:=True; + Result := True; ADOQueryCmd.Connection.RollbackTrans; - Application.MessageBox('쳣!','ʾ',0); + Application.MessageBox('쳣!', 'ʾ', 0); end; end; @@ -283,32 +299,31 @@ procedure TfrmZdyAttInput.ToolButton3Click(Sender: TObject); begin cxGrid2.SetFocus; - if Trim(CDS_HZ.FieldByName('ZdyName').AsString)='' then + if Trim(CDS_HZ.FieldByName('ZdyName').AsString) = '' then begin - Application.MessageBox('ͻƲΪ!','ʾ',0); + Application.MessageBox('ͻƲΪ!', 'ʾ', 0); Exit; end; - if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + if Application.MessageBox('ȷҪ', 'ʾ', 32 + 4) <> IDYES then + Exit; if SaveData() then begin - Application.MessageBox('ɹ!','ʾ',0); - ModalResult:=1; + Application.MessageBox('ɹ!', 'ʾ', 0); + ModalResult := 1; end; end; - -procedure TfrmZdyAttInput.v2Column14PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmZdyAttInput.v2Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin - frmWeiXinHelp:=TfrmWeiXinHelp.create(self); + frmWeiXinHelp := TfrmWeiXinHelp.create(self); with frmWeiXinHelp do begin - if showmodal=1 then + if showmodal = 1 then begin CDS_HZ.Edit; - CDS_HZ.fieldbyName('weixinID').Value:=trim(CDS_Help.fieldbyName('OPENID').asstring); - CDS_HZ.fieldbyName('weixinName').Value:=trim(CDS_Help.fieldbyName('NICKNAME').asstring); + CDS_HZ.fieldbyName('weixinID').Value := trim(CDS_Help.fieldbyName('OPENID').asstring); + CDS_HZ.fieldbyName('weixinName').Value := trim(CDS_Help.fieldbyName('NICKNAME').asstring); CDS_HZ.Post; end; free; @@ -317,3 +332,4 @@ begin end; end. + diff --git a/基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP.pas b/基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP.pas index 9588a84..8f76dad 100644 --- a/基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP.pas +++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP.pas @@ -13,7 +13,20 @@ uses RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, cxTextEdit, cxDropDownEdit, strutils, cxCurrencyEdit, cxLookAndFeels, - cxLookAndFeelPainters, cxNavigator; + cxLookAndFeelPainters, cxNavigator, 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 TfrmZdyAttInputCP = class(TForm) @@ -144,7 +157,7 @@ procedure TfrmZdyAttInputCP.TBCloseClick(Sender: TObject); begin WriteCxGrid('Ʒ¼1', Tv2, 'ͻԶ'); Close; - ModalResult := 1; + ModalResult := 1; end; procedure TfrmZdyAttInputCP.FormShow(Sender: TObject); @@ -392,7 +405,7 @@ begin begin mvalue := trim(mvalue) + '#'; end; - +// mvalue := trim(mvalue); with CDS_HZ do begin Edit; @@ -440,7 +453,7 @@ begin begin mvalue := trim(mvalue) + '#'; end; - +// mvalue := trim(mvalue) ; with CDS_HZ do begin Edit; diff --git a/基础资料维护(BaseInfo.dll)/U_ZdyAttInputGYS.dfm b/基础资料维护(BaseInfo.dll)/U_ZdyAttInputGYS.dfm index 3192947..a783ab6 100644 --- a/基础资料维护(BaseInfo.dll)/U_ZdyAttInputGYS.dfm +++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttInputGYS.dfm @@ -11,6 +11,7 @@ object frmZdyAttInputGYS: TfrmZdyAttInputGYS Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False + Position = poScreenCenter OnClose = FormClose OnDestroy = FormDestroy OnShow = FormShow diff --git a/基础资料维护(BaseInfo.dll)/U_ZdyAttInputGYS.pas b/基础资料维护(BaseInfo.dll)/U_ZdyAttInputGYS.pas index 1e0743d..80ba696 100644 --- a/基础资料维护(BaseInfo.dll)/U_ZdyAttInputGYS.pas +++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttInputGYS.pas @@ -1,7 +1,7 @@ unit U_ZdyAttInputGYS; interface - + uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, @@ -12,7 +12,21 @@ uses cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, - cxTextEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; + cxTextEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, + 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 TfrmZdyAttInputGYS = class(TForm) diff --git a/基础资料维护(BaseInfo.dll)/U_ZdyAttachment.dfm b/基础资料维护(BaseInfo.dll)/U_ZdyAttachment.dfm index ae85355..93ec596 100644 --- a/基础资料维护(BaseInfo.dll)/U_ZdyAttachment.dfm +++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttachment.dfm @@ -1,6 +1,6 @@ object frmZdyAttachment: TfrmZdyAttachment - Left = -8 - Top = 0 + Left = 293 + Top = 214 Width = 1378 Height = 754 Caption = #23458#25143#36164#26009#31649#29702 @@ -167,13 +167,13 @@ object frmZdyAttachment: TfrmZdyAttachment Left = 0 Top = 70 Width = 1362 - Height = 646 + Height = 645 Align = alClient TabOrder = 2 object Tv2: TcxGridDBTableView - NavigatorButtons.ConfirmDelete = False - NavigatorButtons.Delete.Enabled = False - NavigatorButtons.Delete.Visible = False + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.Delete.Visible = False DataController.DataSource = DS_HZ DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < diff --git a/基础资料维护(BaseInfo.dll)/U_ZdyAttachment.pas b/基础资料维护(BaseInfo.dll)/U_ZdyAttachment.pas index b5a7db0..881df70 100644 --- a/基础资料维护(BaseInfo.dll)/U_ZdyAttachment.pas +++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttachment.pas @@ -5,14 +5,27 @@ interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, - cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, - StdCtrls, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, + cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls, + cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls, cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, - IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar, - cxButtonEdit, cxTextEdit, cxDBLookupComboBox; + IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, + cxTextEdit, cxDBLookupComboBox, cxLookAndFeels, cxLookAndFeelPainters, + 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, cxNavigator; type TfrmZdyAttachment = class(TForm) @@ -78,23 +91,21 @@ type { Private declarations } procedure InitGrid(); - public - fkhType:string; - canshu1,canshu2:string; + fkhType: string; + canshu1, canshu2,FParameters4: string; end; var frmZdyAttachment: TfrmZdyAttachment; implementation + uses - U_DataLink,U_Fun,U_ZDYHelp,U_ZdyAttInput,U_ZdyInput; + U_DataLink, U_Fun, U_ZDYHelp, U_ZdyAttInput, U_ZdyInput; {$R *.dfm} - - procedure TfrmZdyAttachment.InitGrid(); begin try @@ -102,63 +113,67 @@ begin ADOQueryMain.DisableControls; with ADOQueryMain do begin - Filtered:=False; + Filtered := False; Close; SQL.Clear; sql.Add(' select * from KH_Zdy_Attachment where Type=''KHName'' '); - sql.Add(' and isnull(khType,'''')='+quotedstr(trim(fkhType))); + sql.Add(' and isnull(khType,'''')=' + quotedstr(trim(fkhType))); Open; end; - SCreateCDS20(ADOQueryMain,CDS_HZ); - SInitCDSData20(ADOQueryMain,CDS_HZ); + SCreateCDS20(ADOQueryMain, CDS_HZ); + SInitCDSData20(ADOQueryMain, CDS_HZ); finally ADOQueryMain.EnableControls; end; end; - procedure TfrmZdyAttachment.FormDestroy(Sender: TObject); begin - frmZdyAttachment:=nil; + frmZdyAttachment := nil; end; procedure TfrmZdyAttachment.FormClose(Sender: TObject; var Action: TCloseAction); begin - Action:=caFree; + Action := caFree; end; procedure TfrmZdyAttachment.TBCloseClick(Sender: TObject); begin - WriteCxGrid('ͻ',Tv2,'ͻԶ'); + WriteCxGrid('ͻ', Tv2, 'ͻԶ'); Close; end; + procedure TfrmZdyAttachment.TDelClick(Sender: TObject); begin - if CDS_HZ.IsEmpty then Exit; - if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; - if Trim(CDS_HZ.fieldbyname('ATID').AsString)<>'' then + if CDS_HZ.IsEmpty then + Exit; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + if Trim(CDS_HZ.fieldbyname('ATID').AsString) <> '' then begin with ADOQueryCmd do begin Close; SQL.Clear; - sql.Add('delete KH_Zdy_Attachment where ATID='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+''''); - sql.Add('delete KH_Zdy where ZdyNo='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+''''); + sql.Add('delete KH_Zdy_Attachment where ATID=''' + Trim(CDS_HZ.fieldbyname('ATID').AsString) + ''''); + sql.Add('delete KH_Zdy where ZdyNo=''' + Trim(CDS_HZ.fieldbyname('ATID').AsString) + ''''); ExecSQL; end; end; CDS_HZ.Delete; -end; +end; procedure TfrmZdyAttachment.FormShow(Sender: TObject); begin - ReadCxGrid('ͻ',Tv2,'ͻԶ'); - if trim(canshu1)='ѯ'then + ReadCxGrid('ͻ', Tv2, 'ͻԶ'); +// DParameters4:=Trim(DParameters4); + if trim(canshu1) = 'ѯ' then begin - Tadd.Visible:=false; - tedit.Visible:=false; - tdel.Visible:=false; + Tadd.Visible := false; + tedit.Visible := false; + tdel.Visible := false; end; + InitGrid(); end; @@ -171,9 +186,9 @@ procedure TfrmZdyAttachment.ToolButton2Click(Sender: TObject); begin if ADOQueryMain.Active then begin - SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); - SCreateCDS20(ADOQueryMain,CDS_HZ); - SInitCDSData20(ADOQueryMain,CDS_HZ); + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQueryMain, CDS_HZ); + SInitCDSData20(ADOQueryMain, CDS_HZ); end; end; @@ -182,23 +197,32 @@ begin ToolButton2.Click; end; - procedure TfrmZdyAttachment.ToolButton1Click(Sender: TObject); begin - if ADOQueryMain.IsEmpty then Exit; - TcxGridToExcel(self.Caption,cxgrid2); + if ADOQueryMain.IsEmpty then + Exit; + TcxGridToExcel(self.Caption, cxgrid2); // SelExportData(Tv2,ADOQueryMain,'ͻб'); end; procedure TfrmZdyAttachment.TeditClick(Sender: TObject); begin + if trim(DParameters4) = 'Ȩ' then + begin + if Trim(CDS_HZ.fieldbyname('Filler').AsString) <> Trim(DName) then + begin + Application.MessageBox('ܲ˵!', 'ʾ', 0); + Exit; + end; + end; + try - frmZdyAttInput:=TfrmZdyAttInput.Create(Application); + frmZdyAttInput := TfrmZdyAttInput.Create(Application); with frmZdyAttInput do begin - FCYID:=Trim(Self.CDS_HZ.fieldbyname('ATID').AsString); - fkhType:=self.fkhType; - if ShowModal=1 then + FCYID := Trim(Self.CDS_HZ.fieldbyname('ATID').AsString); + fkhType := self.fkhType; + if ShowModal = 1 then begin TBRafresh.Click; end; @@ -211,12 +235,14 @@ end; procedure TfrmZdyAttachment.TaddClick(Sender: TObject); begin try - frmZdyAttInput:=TfrmZdyAttInput.Create(Application); + frmZdyAttInput := TfrmZdyAttInput.Create(Application); with frmZdyAttInput do begin - fkhType:=self.fkhType; - FCYID:=''; - if ShowModal=1 then + fkhType := self.fkhType; + canshu1 := self.canshu1; + FParameters4:=Self.FParameters4; + FCYID := ''; + if ShowModal = 1 then begin TBRafresh.Click; end; @@ -224,9 +250,8 @@ begin finally frmZdyAttInput.Free; end; - + end; end. - diff --git a/应收应付/U_GetDllForm.pas b/应收应付/U_GetDllForm.pas index 2ef77b9..d4eafa3 100644 --- a/应收应付/U_GetDllForm.pas +++ b/应收应付/U_GetDllForm.pas @@ -90,7 +90,7 @@ begin // DParameters1:='޶'; //DParameters1:='';//103 - DParameters2:=''; + DParameters2:=''; // DataBase:='Ȩ'; // DParameters4:='0'; Parameters5:='𻪷֯'; diff --git a/应收应付/U_SKCR.dfm b/应收应付/U_SKCR.dfm index 8b8eab3..221f76a 100644 --- a/应收应付/U_SKCR.dfm +++ b/应收应付/U_SKCR.dfm @@ -1,6 +1,6 @@ object frmSKCR: TfrmSKCR - Left = 212 - Top = 205 + Left = 442 + Top = 301 Width = 1382 Height = 754 Caption = #25910#27454#31649#29702 diff --git a/应收应付/U_SKCR.pas b/应收应付/U_SKCR.pas index 58922b9..2eb9e5b 100644 --- a/应收应付/U_SKCR.pas +++ b/应收应付/U_SKCR.pas @@ -5,28 +5,27 @@ interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, - cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, - StdCtrls, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, + cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls, + cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls, cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, - IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar, - cxButtonEdit, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, - cxNavigator, 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; + IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, + cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, 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 TfrmSKCR = class(TForm) @@ -100,104 +99,96 @@ type procedure cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject); procedure cxGridDBColumn1PropertiesEditValueChanged(Sender: TObject); procedure ToolButton3Click(Sender: TObject); - procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); - procedure cxGridDBColumn6PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); - procedure v2Column3PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); + procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure cxGridDBColumn6PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v2Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure ToolButton1Click(Sender: TObject); procedure v2Column4PropertiesEditValueChanged(Sender: TObject); - procedure v2Column1PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); + procedure v2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure VBBPropertiesEditValueChanged(Sender: TObject); procedure OrderNoChange(Sender: TObject); procedure v2Column1PropertiesEditValueChanged(Sender: TObject); procedure v2DerateMoneyPropertiesEditValueChanged(Sender: TObject); - procedure v2SYRNamePropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); + procedure v2SYRNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure TsaveClick(Sender: TObject); procedure Panel2DblClick(Sender: TObject); procedure JZdateChange(Sender: TObject); - procedure v2Column4PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); + procedure v2Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure ToolButton4Click(Sender: TObject); procedure CheckBox1Click(Sender: TObject); private { Private declarations } - fopevent:string; + fopevent: string; procedure InitGrid(); - function SaveData():Boolean; + function SaveData(): Boolean; procedure SetStatus(); - Procedure JsYe(); + procedure JsYe(); procedure geteditRzhi(); - function SaveZL():Boolean; + function SaveZL(): Boolean; public - fDParameters1,fDParameters3:string; - fSYRName:string; - fstr2:string; + fDParameters1, fDParameters3: string; + fSYRName: string; + fstr2: string; { Public declarations } - RKFlag,FCYID:String; - + RKFlag, FCYID: string; end; - - implementation + uses - U_DataLink,U_Fun,U_ZDYHelp, U_ProductOrderList, U_ProductOrderNewList, + U_DataLink, U_Fun, U_ZDYHelp, U_ProductOrderList, U_ProductOrderNewList, U_ZdyAttachment, U_SysLogHelp; {$R *.dfm} procedure TfrmSKCR.geteditRzhi(); -begin - fopevent:=''; +begin + fopevent := ''; with ADOQueryTemp do - begin + begin Close; sql.Clear; - SQL.Add('select * from YF_Money_LL where fromMainID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''' '); + SQL.Add('select * from YF_Money_LL where fromMainID=''' + Trim(CDS_HZ.fieldbyname('YFID').AsString) + ''' '); // showmessage(SQL.text); open; end; - IF not ADOQueryTemp.IsEmpty then + if not ADOQueryTemp.IsEmpty then begin - IF formatdateTime('yyyy-MM-dd',CDS_HZ.fieldbyname('CRTime').AsDateTime)<> formatdateTime('yyyy-MM-dd',ADOQueryTemp.fieldbyName('CRTime').AsDateTime) then - fopevent:=fopevent+' :'+formatdateTime('yyyy-MM-dd',ADOQueryTemp.fieldbyName('CRTime').AsDateTime )+'->'+formatdateTime('yyyy-MM-dd',CDS_HZ.fieldbyname('CRTime').AsDateTime); + if formatdateTime('yyyy-MM-dd', CDS_HZ.fieldbyname('CRTime').AsDateTime) <> formatdateTime('yyyy-MM-dd', ADOQueryTemp.fieldbyName('CRTime').AsDateTime) then + fopevent := fopevent + ' :' + formatdateTime('yyyy-MM-dd', ADOQueryTemp.fieldbyName('CRTime').AsDateTime) + '->' + formatdateTime('yyyy-MM-dd', CDS_HZ.fieldbyname('CRTime').AsDateTime); - IF CDS_HZ.fieldbyname('BBMoney').AsFloat<> ADOQueryTemp.fieldbyName('inMoney').AsFloat then - fopevent:=fopevent+' :'+ADOQueryTemp.fieldbyName('inMoney').AsString+'->'+CDS_HZ.fieldbyname('BBMoney').AsString; + if CDS_HZ.fieldbyname('BBMoney').AsFloat <> ADOQueryTemp.fieldbyName('inMoney').AsFloat then + fopevent := fopevent + ' :' + ADOQueryTemp.fieldbyName('inMoney').AsString + '->' + CDS_HZ.fieldbyname('BBMoney').AsString; - IF trim(CDS_HZ.fieldbyname('bankNo').AsString)<> trim(ADOQueryTemp.fieldbyName('factoryName').AsString) then - fopevent:=fopevent+' ˻:'+trim(ADOQueryTemp.fieldbyName('factoryName').AsString)+'->'+trim(CDS_HZ.fieldbyname('bankNo').AsString); + if trim(CDS_HZ.fieldbyname('bankNo').AsString) <> trim(ADOQueryTemp.fieldbyName('factoryName').AsString) then + fopevent := fopevent + ' ˻:' + trim(ADOQueryTemp.fieldbyName('factoryName').AsString) + '->' + trim(CDS_HZ.fieldbyname('bankNo').AsString); - IF fopevent<>'' then - fopevent:='Էλ:'+Trim(CDS_HZ.fieldbyname('factoryName').AsString)+fopevent; + if fopevent <> '' then + fopevent := 'Էλ:' + Trim(CDS_HZ.fieldbyname('factoryName').AsString) + fopevent; end; end; -function TfrmSKCR.SaveZL():Boolean; +function TfrmSKCR.SaveZL(): Boolean; var - LLNO:string; + LLNO: string; begin - result:=false; + result := false; with ADOQueryTemp do begin close; sql.Clear; - sql.Add('select * from YF_Money_CR where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''' '); + sql.Add('select * from YF_Money_CR where YFID=''' + Trim(CDS_HZ.fieldbyname('YFID').AsString) + ''' '); open; end; - IF ADOQueryTemp.IsEmpty then + if ADOQueryTemp.IsEmpty then begin ADOQueryCMD.Connection.RollbackTrans; exit; end; - if GetLSNo(ADOQueryCMD,LLNO,'YL','YF_Money_LL',3,1)=False then + if GetLSNo(ADOQueryCMD, LLNO, 'YL', 'YF_Money_LL', 3, 1) = False then begin ADOQueryCMD.Connection.RollbackTrans; - Application.MessageBox('ȡˮʧ!','ʾ'); + Application.MessageBox('ȡˮʧ!', 'ʾ'); Exit; end; @@ -206,54 +197,54 @@ begin begin Close; sql.Clear; - SQL.Add('delete from YF_Money_LL where fromMainID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''' '); + SQL.Add('delete from YF_Money_LL where fromMainID=''' + Trim(CDS_HZ.fieldbyname('YFID').AsString) + ''' '); execsql; end; with ADOQueryCmd do begin Close; sql.Clear; - SQL.Add('select * from YF_Money_LL where fromMainID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''' '); + SQL.Add('select * from YF_Money_LL where fromMainID=''' + Trim(CDS_HZ.fieldbyname('YFID').AsString) + ''' '); Open; append; - fieldbyname('filler').Value:=trim(Dname); - FieldByName('LLNO').Value:=Trim(LLNO); - fieldbyname('CRTime').Value:=formatdateTime('yyyy-MM-dd',CDS_HZ.fieldbyname('CRTime').AsDateTime); - fieldbyname('CRType').Value:=Trim(CDS_HZ.fieldbyname('YFName').AsString); - fieldbyname('factoryName').Value:=Trim(CDS_HZ.fieldbyname('bankNo').AsString); - fieldbyname('TOfactoryName').Value:=Trim(CDS_HZ.fieldbyname('factoryName').AsString); - fieldbyname('NOTE').Value:=Trim(CDS_HZ.fieldbyname('note').AsString); - fieldbyname('inMoney').Value:=CDS_HZ.fieldbyname('BBMoney').AsFloat; - fieldbyname('OutMoney').Value:=0; - fieldbyname('status').Value:='0'; - FieldByName('fromMainID').Value:=Trim(CDS_HZ.fieldbyname('YFID').AsString); - FieldByName('syrName').Value:=Trim(fsyrName); + fieldbyname('filler').Value := trim(Dname); + FieldByName('LLNO').Value := Trim(LLNO); + fieldbyname('CRTime').Value := formatdateTime('yyyy-MM-dd', CDS_HZ.fieldbyname('CRTime').AsDateTime); + fieldbyname('CRType').Value := Trim(CDS_HZ.fieldbyname('YFName').AsString); + fieldbyname('factoryName').Value := Trim(CDS_HZ.fieldbyname('bankNo').AsString); + fieldbyname('TOfactoryName').Value := Trim(CDS_HZ.fieldbyname('factoryName').AsString); + fieldbyname('NOTE').Value := Trim(CDS_HZ.fieldbyname('note').AsString); + fieldbyname('inMoney').Value := CDS_HZ.fieldbyname('BBMoney').AsFloat; + fieldbyname('OutMoney').Value := 0; + fieldbyname('status').Value := '0'; + FieldByName('fromMainID').Value := Trim(CDS_HZ.fieldbyname('YFID').AsString); + FieldByName('syrName').Value := Trim(fsyrName); Post; end; - IF trim(fopevent)<>'' then + if trim(fopevent) <> '' then begin with ADOQueryCmd do begin Close; sql.Clear; sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); - sql.Add(' '+quotedstr(trim(DName))); + sql.Add(' ' + quotedstr(trim(DName))); sql.Add(',getdate() '); - sql.Add(','+quotedstr(trim('տǼ'))); - sql.Add(','+quotedstr(trim('տǼ޸'))); - sql.Add(','+quotedstr(trim(fopevent))); - sql.Add(','+quotedstr(trim('ɹ'))); + sql.Add(',' + quotedstr(trim('տǼ'))); + sql.Add(',' + quotedstr(trim('տǼ޸'))); + sql.Add(',' + quotedstr(trim(fopevent))); + sql.Add(',' + quotedstr(trim('ɹ'))); sql.Add(')'); execsql; end; end; - result:=true; + result := true; except end; end; -Procedure TfrmSKCR.JsYe(); +procedure TfrmSKCR.JsYe(); begin with ADOQueryTemp do begin @@ -262,68 +253,71 @@ begin sql.Add('select ysk=sum(case when CRType=''ӦտǼ'' then 1*(money - T_money) else 0 end), '); sql.Add(' sk=sum(case when CRType=''տǼ'' then 1*(BBmoney + DerateMoney) else 0 end) '); sql.Add('from YF_Money_CR '); - sql.Add(' where CRTime<'''+formatdateTime('yyyy-MM-dd',JZdate.DateTime+1)+''' ' ); - sql.Add(' and FactoryName='+quotedstr(trim(edit1.Text))); - sql.Add(' and syrName='+quotedstr(trim(fsyrName))); + sql.Add(' where CRTime<''' + formatdateTime('yyyy-MM-dd', JZdate.DateTime + 1) + ''' '); + sql.Add(' and FactoryName=' + quotedstr(trim(edit1.Text))); + sql.Add(' and syrName=' + quotedstr(trim(fsyrName))); sql.Add(' and CRFlag =''Ӧ'' '); open; - edit2.Text:=fieldbyname('ysk').AsString; - edit3.Text:=fieldbyname('sk').AsString; - edit4.Text:=format('%.2f',[fieldbyname('ysk').AsFloat - fieldbyname('sk').AsFloat]); - Panel2.Visible:=true; + edit2.Text := fieldbyname('ysk').AsString; + edit3.Text := fieldbyname('sk').AsString; + edit4.Text := format('%.2f', [fieldbyname('ysk').AsFloat - fieldbyname('sk').AsFloat]); + Panel2.Visible := true; end; end; + procedure TfrmSKCR.SetStatus(); begin - TBDel.Visible:=true; - IF trim(fDParameters1)='' then + TBDel.Visible := true; + if trim(fDParameters1) = '' then begin - TBDel.Visible:=true; + TBDel.Visible := true; end - else - IF trim(fDParameters1)='ѯ' then + else if trim(fDParameters1) = 'ѯ' then begin - tv2.OptionsData.Editing:=false; - TBDel.Visible:=false; - ToolButton3.Visible:=false; - end + tv2.OptionsData.Editing := false; + TBDel.Visible := false; + ToolButton3.Visible := false; + end else - begin + begin end; // IF trim(fSYRName)<>'˷֯' then Tsave.Visible:=false; end; - - - procedure TfrmSKCR.InitGrid(); begin try ADOQueryMain.DisableControls; with ADOQueryMain do begin - Filtered:=False; + Filtered := False; Close; - SQL.Clear; + SQL.Clear; sql.Add(' select A.*,C.OrderNo '); sql.Add(' from YF_Money_CR A'); sql.Add(' left join YF_Money_KC B on A.CRID=B.CRID'); SQL.Add(' left join JYOrder_Main C on A.MainId=C.MainId'); - sql.Add('where A.CRTime>='''+FormatDateTime('yyyy-MM-dd',begdate.DateTime)+''' '); - sql.Add(' and CRTime<'''+FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)+''' '); + sql.Add('where A.CRTime>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' '); + sql.Add(' and CRTime<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' '); sql.Add(' and A.CRType=''տǼ'' '); - IF trim(fSYRName)<>'' then - sql.Add(' and A.SYRName='+quotedstr(trim(fSyrName))); - IF trim(FactoryName.Text)<>'' then - sql.Add(' and A.FactoryName like '+quotedstr('%'+trim(FactoryName.Text)+'%')); - sql.Add(' and isnull(A.fstr2,'''')='+quotedstr(trim(fstr2))); + if trim(fSYRName) <> '' then + sql.Add(' and A.SYRName=' + quotedstr(trim(fSyrName))); + if trim(FactoryName.Text) <> '' then + sql.Add(' and A.FactoryName like ' + quotedstr('%' + trim(FactoryName.Text) + '%')); + sql.Add(' and isnull(A.fstr2,'''')=' + quotedstr(trim(fstr2))); + if trim(fDParameters1) = 'Ȩ' then + begin + sql.Add(' and isnull(A.Filler,'''')=' + quotedstr(trim(Dname))); + end; + + // ShowMessage(SQL.text); - Open; + Open; end; - SCreateCDS20(ADOQueryMain,CDS_HZ); - SInitCDSData20(ADOQueryMain,CDS_HZ); + SCreateCDS20(ADOQueryMain, CDS_HZ); + SInitCDSData20(ADOQueryMain, CDS_HZ); finally ADOQueryMain.EnableControls; ToolButton2.Click; @@ -332,12 +326,12 @@ end; procedure TfrmSKCR.FormClose(Sender: TObject; var Action: TCloseAction); begin - Action:=caFree; + Action := caFree; end; procedure TfrmSKCR.TBCloseClick(Sender: TObject); begin - WriteCxGrid('տǼ',Tv2,''); + WriteCxGrid('տǼ', Tv2, ''); {with ADOQueryCmd do begin Close; @@ -347,13 +341,16 @@ begin end;} Close; end; + procedure TfrmSKCR.TBDelClick(Sender: TObject); var - FBBMoney,CRID:string; + FBBMoney, CRID: string; begin - if CDS_HZ.IsEmpty then Exit; - if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; - if Trim(CDS_HZ.fieldbyname('YFID').AsString)<>'' then + if CDS_HZ.IsEmpty then + Exit; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + if Trim(CDS_HZ.fieldbyname('YFID').AsString) <> '' then begin try ADOQueryCmd.Connection.BeginTrans; @@ -361,15 +358,15 @@ begin begin Close; SQL.Clear; - sql.Add('delete YF_Money_CR where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); - sql.Add('delete YF_Money_LL where fromMainID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + sql.Add('delete YF_Money_CR where YFID=''' + Trim(CDS_HZ.fieldbyname('YFID').AsString) + ''''); + sql.Add('delete YF_Money_LL where fromMainID=''' + Trim(CDS_HZ.fieldbyname('YFID').AsString) + ''''); sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); - sql.Add(' '+quotedstr(trim(DName))); + sql.Add(' ' + quotedstr(trim(DName))); sql.Add(',getdate() '); - sql.Add(','+quotedstr(trim(self.Caption))); - sql.Add(','+quotedstr(trim('տɾ'))); - sql.Add(','+quotedstr(trim('ͻ:'+trim(CDS_HZ.FieldByName('factoryName').AsString)+' :'+trim(CDS_HZ.FieldByName('BBmoney').AsString)))); - sql.Add(','+quotedstr(trim('ɹ'))); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim('տɾ'))); + sql.Add(',' + quotedstr(trim('ͻ:' + trim(CDS_HZ.FieldByName('factoryName').AsString) + ' :' + trim(CDS_HZ.FieldByName('BBmoney').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); sql.Add(')'); ExecSQL; end; @@ -377,7 +374,7 @@ begin CDS_HZ.Delete; except ADOQueryCmd.Connection.RollbackTrans; - application.MessageBox('ɾʧܣ','ʾϢ',0); + application.MessageBox('ɾʧܣ', 'ʾϢ', 0); end; end; @@ -385,30 +382,30 @@ end; procedure TfrmSKCR.FormShow(Sender: TObject); begin - ReadCxGrid('տǼ',Tv2,''); - Enddate.DateTime:=SGetServerDate(ADOQueryTemp); - begdate.DateTime:=Enddate.DateTime; - if Trim(DParameters1)='޶' then + ReadCxGrid('տǼ', Tv2, ''); + Enddate.DateTime := SGetServerDate(ADOQueryTemp); + begdate.DateTime := Enddate.DateTime; + if Trim(DParameters1) = '޶' then begin - VOrderNo.Hidden:=True; - VOrderNo.Visible:=False; - label4.Visible:=False; - OrderNo.Visible:=False; + VOrderNo.Hidden := True; + VOrderNo.Visible := False; + label4.Visible := False; + OrderNo.Visible := False; end; - if Trim(DParameters2)='' then + if Trim(DParameters2) = '' then begin - VHL.Hidden:=True; - VHL.Visible:=False; - VBZ.Hidden:=True; - VBZ.Visible:=False; - VYB.Hidden:=True; - VYB.Visible:=False; - VBB.Caption:='ʵս'; + VHL.Hidden := True; + VHL.Visible := False; + VBZ.Hidden := True; + VBZ.Visible := False; + VYB.Hidden := True; + VYB.Visible := False; + VBB.Caption := 'ʵս'; end; - IF trim(fDParameters3)<>'' then + if trim(fDParameters3) <> '' then begin - factoryName.Text:=trim(fDParameters3); - factoryName.Enabled:=false; + factoryName.Text := trim(fDParameters3); + factoryName.Enabled := false; end; SetStatus(); InitGrid(); @@ -423,9 +420,9 @@ procedure TfrmSKCR.ToolButton2Click(Sender: TObject); begin if ADOQueryMain.Active then begin - SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); - SCreateCDS20(ADOQueryMain,CDS_HZ); - SInitCDSData20(ADOQueryMain,CDS_HZ); + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQueryMain, CDS_HZ); + SInitCDSData20(ADOQueryMain, CDS_HZ); end; end; @@ -436,45 +433,48 @@ end; procedure TfrmSKCR.Button2Click(Sender: TObject); begin - if CDS_HZ.IsEmpty then Exit; - if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; - if Trim(CDS_HZ.fieldbyname('SubID').AsString)<>'' then + if CDS_HZ.IsEmpty then + Exit; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + if Trim(CDS_HZ.fieldbyname('SubID').AsString) <> '' then begin with ADOQueryCmd do begin Close; SQL.Clear; - sql.Add('delete YCL_SG_HZ where SubID='''+Trim(CDS_HZ.fieldbyname('SubID').AsString)+''''); + sql.Add('delete YCL_SG_HZ where SubID=''' + Trim(CDS_HZ.fieldbyname('SubID').AsString) + ''''); ExecSQL; end; end; CDS_HZ.Delete; end; -function TfrmSKCR.SaveData():Boolean; +function TfrmSKCR.SaveData(): Boolean; var - maxId,CRID:String; + maxId, CRID: string; begin try ADOQueryCmd.Connection.BeginTrans; - if GetLSNo(ADOQueryCmd,maxId,'FK','YF_Money_CR',4,1)=False then + if GetLSNo(ADOQueryCmd, maxId, 'FK', 'YF_Money_CR', 4, 1) = False then begin - Result:=False; + Result := False; ADOQueryCmd.Connection.RollbackTrans; - Application.MessageBox('ȡʧܣ','ʾ',0); + Application.MessageBox('ȡʧܣ', 'ʾ', 0); Exit; end; with ADOQueryCmd do begin Close; SQL.Clear; - sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(CDS_HZ.fieldbyname('FactoryName').AsString)+''' and YFDefFlag1=0 '); + sql.Add('select * from YF_Money_KC where FactoryName=''' + Trim(CDS_HZ.fieldbyname('FactoryName').AsString) + ''' and YFDefFlag1=0 '); Open; end; - if ADOQueryCmd.IsEmpty=False then + if ADOQueryCmd.IsEmpty = False then begin - CRID:=ADOQueryCmd.fieldbyname('CRID').AsString; - end else + CRID := ADOQueryCmd.fieldbyname('CRID').AsString; + end + else begin with ADOQueryCmd do begin @@ -484,7 +484,7 @@ begin sql.Add('select * from YF_Money_CRID '); Open; end; - CRID:=ADOQueryCmd.fieldbyname('CRID').AsString; + CRID := ADOQueryCmd.fieldbyname('CRID').AsString; with ADOQueryCmd do begin Close; @@ -495,10 +495,10 @@ begin with ADOQueryCmd do begin Append; - FieldByName('CRID').Value:=StrToInt(CRID); - FieldByName('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); - FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); - FieldByName('ZdyStr1').Value:='Ӧ'; + FieldByName('CRID').Value := StrToInt(CRID); + FieldByName('FactoryNo').Value := Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value := Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('ZdyStr1').Value := 'Ӧ'; Post; end; end; @@ -512,46 +512,45 @@ begin with ADOQueryCmd do begin Append; - FieldByName('YFID').Value:=Trim(maxId); - FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('YFID').Value := Trim(maxId); + FieldByName('CRID').Value := StrToInt(CRID); //SSetSaveDataCDSNew(ADOQueryCmd,Tv2,CDS_HZ,'YF_Money_CR',3); - FieldByName('Filler').Value:=Trim(DName); - FieldByName('CRType').Value:='տǼ'; - FieldByName('CRFlag').Value:='Ӧ'; - FieldByName('QtyFlag').Value:=-1; - FieldByName('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); - FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); - FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); - FieldByName('SyRName').Value:=trim(fSyrName); - FieldByName('fstr2').Value:=trim(fstr2); + FieldByName('Filler').Value := Trim(DName); + FieldByName('CRType').Value := 'տǼ'; + FieldByName('CRFlag').Value := 'Ӧ'; + FieldByName('QtyFlag').Value := -1; + FieldByName('FactoryNo').Value := Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value := Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('CRTime').Value := SGetServerDate(ADOQueryTemp); + FieldByName('SyRName').Value := trim(fSyrName); + FieldByName('fstr2').Value := trim(fstr2); Post; end; with CDS_HZ do begin Edit; - FieldByName('YFId').Value:=Trim(maxId); - FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('YFId').Value := Trim(maxId); + FieldByName('CRID').Value := StrToInt(CRID); end; ADOQueryCmd.Connection.CommitTrans; - Result:=True; + Result := True; except - Result:=True; + Result := True; ADOQueryCmd.Connection.RollbackTrans; - Application.MessageBox('ʧ!','ʾ',0); + Application.MessageBox('ʧ!', 'ʾ', 0); end; end; -procedure TfrmSKCR.cxGridDBColumn8PropertiesEditValueChanged( - Sender: TObject); +procedure TfrmSKCR.cxGridDBColumn8PropertiesEditValueChanged(Sender: TObject); var - mvalue,FFieldName:String; + mvalue, FFieldName: string; begin - mvalue:=TcxTextEdit(Sender).EditingText; - FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + mvalue := TcxTextEdit(Sender).EditingText; + FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); with CDS_HZ do begin Edit; - FieldByName(FFieldName).Value:=Trim(mvalue); + FieldByName(FFieldName).Value := Trim(mvalue); Post; end; with ADOQueryCmd do @@ -559,83 +558,90 @@ begin Close; sql.Clear; sql.Add('UPdate YCL_SG_HZ '); - if Trim(mvalue)<>'' then + if Trim(mvalue) <> '' then begin - sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); - end else + sql.Add(' Set ' + FFieldName + '=''' + Trim(mvalue) + ''''); + end + else begin - sql.Add(' Set '+FFieldName+'=NULL'); + sql.Add(' Set ' + FFieldName + '=NULL'); end; - SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Editer=''' + Trim(DName) + ''''); SQL.Add(',Edittime=getdate() '); - SQL.Add(' where SubId='''+Trim(CDS_HZ.fieldbyname('SubId').AsString)+''''); + SQL.Add(' where SubId=''' + Trim(CDS_HZ.fieldbyname('SubId').AsString) + ''''); ExecSQL; end; end; -procedure TfrmSKCR.cxGridDBColumn5PropertiesEditValueChanged( - Sender: TObject); +procedure TfrmSKCR.cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject); var - mvalue,FQty,FPrice,FMoney,FHuiLv,FBBMoney,FKCBB,FFieldName:String; + mvalue, FQty, FPrice, FMoney, FHuiLv, FBBMoney, FKCBB, FFieldName: string; begin - mvalue:=TcxTextEdit(Sender).EditingText; - if Trim(mvalue)='' then + mvalue := TcxTextEdit(Sender).EditingText; + if Trim(mvalue) = '' then begin - mvalue:='0'; + mvalue := '0'; end; - FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); with CDS_HZ do begin Edit; - FieldByName(FFieldName).Value:=Trim(mvalue); + FieldByName(FFieldName).Value := Trim(mvalue); Post; end; with ADOQueryTemp do begin Close; sql.Clear; - sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID=''' + cds_hz.fieldbyname('YFID').AsString + ''''); Open; end; - FKCBB:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + FKCBB := ADOQueryTemp.fieldbyname('BBMoney').AsString; - FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); - if Trim(FQty)='' then FQty:='0'; + FQty := Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty) = '' then + FQty := '0'; - FPrice:=Trim(CDS_HZ.fieldbyname('Price').AsString); - if Trim(FPrice)='' then FPrice:='0'; - FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); - if Trim(FQty)='' then FQty:='0'; + FPrice := Trim(CDS_HZ.fieldbyname('Price').AsString); + if Trim(FPrice) = '' then + FPrice := '0'; + FQty := Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty) = '' then + FQty := '0'; - FMoney:=Trim(CDS_HZ.fieldbyname('Money').AsString); - if Trim(FMoney)='' then FMoney:='0'; + FMoney := Trim(CDS_HZ.fieldbyname('Money').AsString); + if Trim(FMoney) = '' then + FMoney := '0'; - FHuiLv:=Trim(CDS_HZ.fieldbyname('HuiLv').AsString); - if Trim(FHuiLv)='' then FHuiLv:='0'; + FHuiLv := Trim(CDS_HZ.fieldbyname('HuiLv').AsString); + if Trim(FHuiLv) = '' then + FHuiLv := '0'; {FBBMoney:=Trim(CDS_HZ.fieldbyname('BBMoney').AsString); if Trim(FBBMoney)='' then FBBMoney:='0'; } - if Trim(FFieldName)<>'Money' then + if Trim(FFieldName) <> 'Money' then begin - if Trim(FFieldName)<>'HuiLv' then + if Trim(FFieldName) <> 'HuiLv' then begin - FBBMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)*StrToFloat(FHuiLv)); - FMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)); - end else + FBBMoney := FloatToStr(StrToFloat(FQty) * StrToFloat(FPrice) * StrToFloat(FHuiLv)); + FMoney := FloatToStr(StrToFloat(FQty) * StrToFloat(FPrice)); + end + else begin - FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + FBBMoney := FloatToStr(StrToFloat(FMoney) * StrToFloat(FHuiLv)); end; - end else + end + else begin - FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + FBBMoney := FloatToStr(StrToFloat(FMoney) * StrToFloat(FHuiLv)); end; with CDS_HZ do begin Edit; - FieldByName('Money').Value:=StrToFloat(FMoney); - FieldByName('BBMoney').Value:=StrToFloat(FBBMoney); + FieldByName('Money').Value := StrToFloat(FMoney); + FieldByName('BBMoney').Value := StrToFloat(FBBMoney); Post; end; { with ADOQueryCmd do @@ -660,17 +666,16 @@ begin end; } end; -procedure TfrmSKCR.cxGridDBColumn1PropertiesEditValueChanged( - Sender: TObject); +procedure TfrmSKCR.cxGridDBColumn1PropertiesEditValueChanged(Sender: TObject); var - mvalue,FFieldName:String; + mvalue, FFieldName: string; begin - mvalue:=TcxTextEdit(Sender).EditingText; - FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + mvalue := TcxTextEdit(Sender).EditingText; + FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); with CDS_HZ do begin Edit; - FieldByName(FFieldName).Value:=Trim(mvalue); + FieldByName(FFieldName).Value := Trim(mvalue); Post; end; { with ADOQueryCmd do @@ -714,30 +719,30 @@ end; procedure TfrmSKCR.ToolButton3Click(Sender: TObject); begin try - frmZdyAttachment:=TfrmZdyAttachment.Create(Application); + frmZdyAttachment := TfrmZdyAttachment.Create(Application); with frmZdyAttachment do begin - fkhType:=trim(fsyrName); - if ShowModal=1 then + fkhType := trim(fsyrName); + if ShowModal = 1 then begin with Self.CDS_HZ do begin Append; - FieldByName('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); - FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('ZdyName').AsString); - FieldByName('SYRName').Value:=Trim(fSYRName); - FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); - if Trim(DParameters2)='' then + FieldByName('FactoryNo').Value := Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + FieldByName('FactoryName').Value := Trim(CDS_HZ.fieldbyname('ZdyName').AsString); + FieldByName('SYRName').Value := Trim(fSYRName); + FieldByName('CRTime').Value := SGetServerDate(ADOQueryTemp); + if Trim(DParameters2) = '' then begin - FieldByName('HuiLv').Value:=1; + FieldByName('HuiLv').Value := 1; end; Post; end; Self.SaveData(); - IF fsyrName='˷֯' then + if fsyrName = '˷֯' then begin - edit1.Text:=Self.CDS_HZ.fieldbyname('FactoryName').AsString; - JZdate.DateTime:=Self.CDS_HZ.fieldbyname('CRTime').AsDateTime; + edit1.Text := Self.CDS_HZ.fieldbyname('FactoryName').AsString; + JZdate.DateTime := Self.CDS_HZ.fieldbyname('CRTime').AsDateTime; jsYe(); end; @@ -748,24 +753,23 @@ begin end; end; -procedure TfrmSKCR.cxGridDBColumn3PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmSKCR.cxGridDBColumn3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try - frmZDYHelp:=TfrmZDYHelp.Create(Application); + frmZDYHelp := TfrmZDYHelp.Create(Application); with frmZDYHelp do begin - flag:='YFName'; - flagname:='ĿժҪ'; - if Trim(DParameters3)='Ŀֿ' then - MainType:='տ'; - if ShowModal=1 then + flag := 'YFName'; + flagname := 'ĿժҪ'; + if Trim(DParameters3) = 'Ŀֿ' then + MainType := 'տ'; + if ShowModal = 1 then begin with Self.CDS_HZ do begin Edit; - FieldByName('YFCode').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); - FieldByName('YFName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + FieldByName('YFCode').Value := Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('YFName').Value := Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); end; { with ADOQueryCmd do begin @@ -786,28 +790,27 @@ begin end; end; -procedure TfrmSKCR.cxGridDBColumn6PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmSKCR.cxGridDBColumn6PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try - frmZDYHelp:=TfrmZDYHelp.Create(Application); + frmZDYHelp := TfrmZDYHelp.Create(Application); with frmZDYHelp do begin - flag:='OrderUnit'; - flagname:='λ'; - if ShowModal=1 then + flag := 'OrderUnit'; + flagname := 'λ'; + if ShowModal = 1 then begin Self.CDS_HZ.Edit; - Self.CDS_HZ.FieldByName('QtyUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.CDS_HZ.FieldByName('QtyUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); with ADOQueryCmd do begin Close; sql.Clear; sql.Add('UPdate YF_Money_CR '); - sql.Add(' Set QtyUnit='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); - SQL.Add(',Editer='''+Trim(DName)+''''); + sql.Add(' Set QtyUnit=''' + Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + ''''); + SQL.Add(',Editer=''' + Trim(DName) + ''''); SQL.Add(',Edittime=getdate() '); - SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + SQL.Add(' where YFId=''' + Trim(CDS_HZ.fieldbyname('YFId').AsString) + ''''); ExecSQL; end; end; @@ -817,19 +820,18 @@ begin end; end; -procedure TfrmSKCR.v2Column3PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmSKCR.v2Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try - frmZDYHelp:=TfrmZDYHelp.Create(Application); + frmZDYHelp := TfrmZDYHelp.Create(Application); with frmZDYHelp do begin - flag:='BZType'; - flagname:=''; - if ShowModal=1 then + flag := 'BZType'; + flagname := ''; + if ShowModal = 1 then begin Self.CDS_HZ.Edit; - Self.CDS_HZ.FieldByName('BZType').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.CDS_HZ.FieldByName('BZType').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); { with ADOQueryCmd do begin Close; @@ -850,50 +852,53 @@ end; procedure TfrmSKCR.ToolButton1Click(Sender: TObject); begin - if ADOQueryMain.IsEmpty then Exit; - SelExportData(Tv2,ADOQueryMain,'б'); + if ADOQueryMain.IsEmpty then + Exit; + SelExportData(Tv2, ADOQueryMain, 'б'); end; procedure TfrmSKCR.v2Column4PropertiesEditValueChanged(Sender: TObject); var - mvalue,FMoney,FHuiLv,FBBMoney,FKCBB,FFieldName:String; + mvalue, FMoney, FHuiLv, FBBMoney, FKCBB, FFieldName: string; begin - mvalue:=TcxTextEdit(Sender).EditingText; - if Trim(mvalue)='' then + mvalue := TcxTextEdit(Sender).EditingText; + if Trim(mvalue) = '' then begin - mvalue:='0'; + mvalue := '0'; end; - FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); with CDS_HZ do begin Edit; - FieldByName(FFieldName).Value:=Trim(mvalue); + FieldByName(FFieldName).Value := Trim(mvalue); Post; end; with ADOQueryTemp do begin Close; sql.Clear; - sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID=''' + cds_hz.fieldbyname('YFID').AsString + ''''); Open; end; - FKCBB:=ADOQueryTemp.fieldbyname('BBMoney').AsString; + FKCBB := ADOQueryTemp.fieldbyname('BBMoney').AsString; - FMoney:=Trim(CDS_HZ.fieldbyname('Money').AsString); - if Trim(FMoney)='' then FMoney:='0'; + FMoney := Trim(CDS_HZ.fieldbyname('Money').AsString); + if Trim(FMoney) = '' then + FMoney := '0'; - FHuiLv:=Trim(CDS_HZ.fieldbyname('HuiLv').AsString); - if Trim(FHuiLv)='' then FHuiLv:='0'; + FHuiLv := Trim(CDS_HZ.fieldbyname('HuiLv').AsString); + if Trim(FHuiLv) = '' then + FHuiLv := '0'; {FBBMoney:=Trim(CDS_HZ.fieldbyname('BBMoney').AsString); if Trim(FBBMoney)='' then FBBMoney:='0'; } - FBBMoney:=FloatToStr(StrToFloat(FMoney)*StrToFloat(FHuiLv)); + FBBMoney := FloatToStr(StrToFloat(FMoney) * StrToFloat(FHuiLv)); with CDS_HZ do begin Edit; - FieldByName('Money').Value:=StrToFloat(FMoney); - FieldByName('BBMoney').Value:=StrToFloat(FBBMoney); + FieldByName('Money').Value := StrToFloat(FMoney); + FieldByName('BBMoney').Value := StrToFloat(FBBMoney); Post; end; { IF trim(fSYRName)<>'˷֯' then @@ -935,33 +940,32 @@ begin end;} end; -procedure TfrmSKCR.v2Column1PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmSKCR.v2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try - frmProductOrderNewList:=TfrmProductOrderNewList.Create(Application); + frmProductOrderNewList := TfrmProductOrderNewList.Create(Application); with frmProductOrderNewList do begin - DParameters1:='Ȩ'; - fsyrName:=self.fsyrName; + DParameters1 := 'Ȩ'; + fsyrName := self.fsyrName; //frmProductOrderList.v1Column4.Visible:=True; - if ShowModal=1 then + if ShowModal = 1 then begin with Self.CDS_HZ do begin Edit; - FieldByName('MainId').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('MainId').AsString); - FieldByName('OrderNo').Value:=Trim(frmProductOrderNewList.Order_Main.fieldbyname('OrderNo').AsString); + FieldByName('MainId').Value := Trim(frmProductOrderNewList.Order_Main.fieldbyname('MainId').AsString); + FieldByName('OrderNo').Value := Trim(frmProductOrderNewList.Order_Main.fieldbyname('OrderNo').AsString); with ADOQueryCmd do begin Close; sql.Clear; sql.Add('UPdate YF_Money_CR '); - sql.Add(' Set MainId='''+Trim(frmProductOrderNewList.Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' Set MainId=''' + Trim(frmProductOrderNewList.Order_Main.fieldbyname('MainId').AsString) + ''''); //sql.Add(' ,SubId='''+Trim(frmProductOrderList.Order_Main.fieldbyname('SubId').AsString)+''''); - SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Editer=''' + Trim(DName) + ''''); SQL.Add(',Edittime=getdate() '); - SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + SQL.Add(' where YFId=''' + Trim(CDS_HZ.fieldbyname('YFId').AsString) + ''''); ExecSQL; end; end; @@ -974,22 +978,23 @@ end; procedure TfrmSKCR.VBBPropertiesEditValueChanged(Sender: TObject); var - mvalue,FKCBB:string; + mvalue, FKCBB: string; begin - mvalue:=TcxTextEdit(Sender).EditingText; + mvalue := TcxTextEdit(Sender).EditingText; with ADOQueryTemp do begin Close; sql.Clear; - sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID='''+cds_hz.fieldbyname('YFID').AsString+''''); + sql.Add('select isnull(BBMoney,0) BBMoney from YF_Money_CR where YFID=''' + cds_hz.fieldbyname('YFID').AsString + ''''); Open; end; - FKCBB:=ADOQueryTemp.fieldbyname('BBMoney').AsString; - if Trim(mvalue)='' then mvalue:='0'; + FKCBB := ADOQueryTemp.fieldbyname('BBMoney').AsString; + if Trim(mvalue) = '' then + mvalue := '0'; with CDS_HZ do begin Edit; - FieldByName('BBMoney').Value:=StrToFloat(mvalue); + FieldByName('BBMoney').Value := StrToFloat(mvalue); Post; end; { IF trim(fSYRName)<>'˷֯' then @@ -1032,20 +1037,21 @@ end; procedure TfrmSKCR.OrderNoChange(Sender: TObject); begin - if Length(Trim(OrderNo.Text))<3 then Exit; + if Length(Trim(OrderNo.Text)) < 3 then + Exit; ToolButton2.Click; end; procedure TfrmSKCR.v2Column1PropertiesEditValueChanged(Sender: TObject); var - mvalue,FFieldName:String; + mvalue, FFieldName: string; begin - mvalue:=TcxTextEdit(Sender).EditingText; - FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + mvalue := TcxTextEdit(Sender).EditingText; + FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); with CDS_HZ do begin Edit; - FieldByName(FFieldName).Value:=Trim(mvalue); + FieldByName(FFieldName).Value := Trim(mvalue); Post; end; { with ADOQueryCmd do @@ -1058,18 +1064,19 @@ begin ExecSQL; end; } end; -procedure TfrmSKCR.v2DerateMoneyPropertiesEditValueChanged( - Sender: TObject); -var - mvalue:string; -begin - mvalue:=TcxTextEdit(Sender).EditingText; - if Trim(mvalue)='' then mvalue:='0'; +procedure TfrmSKCR.v2DerateMoneyPropertiesEditValueChanged(Sender: TObject); +var + mvalue: string; +begin + mvalue := TcxTextEdit(Sender).EditingText; + + if Trim(mvalue) = '' then + mvalue := '0'; with CDS_HZ do begin Edit; - FieldByName('DerateMoney').Value:=StrToFloatdef(mvalue,0); + FieldByName('DerateMoney').Value := StrToFloatdef(mvalue, 0); Post; end; { IF trim(fSYRName)<>'˷֯' then @@ -1086,21 +1093,20 @@ begin end; } end; -procedure TfrmSKCR.v2SYRNamePropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmSKCR.v2SYRNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try - frmZDYHelp:=TfrmZDYHelp.Create(Application); + frmZDYHelp := TfrmZDYHelp.Create(Application); with frmZDYHelp do begin - flag:='SYRName'; - flagname:='˾̧ͷ'; - if ShowModal=1 then + flag := 'SYRName'; + flagname := '˾̧ͷ'; + if ShowModal = 1 then begin with Self.CDS_HZ do begin Edit; - FieldByName('SYRName').Value:=Trim(ClientDataSet1.fieldbyname('zdyName').AsString); + FieldByName('SYRName').Value := Trim(ClientDataSet1.fieldbyname('zdyName').AsString); end; { with ADOQueryCmd do begin @@ -1120,11 +1126,12 @@ end; procedure TfrmSKCR.TsaveClick(Sender: TObject); begin - IF CDS_HZ.IsEmpty then exit; - begdate.SetFocus; - if CDS_HZ.Locate('ssel',true,[])=false then + if CDS_HZ.IsEmpty then + exit; + begdate.SetFocus; + if CDS_HZ.Locate('ssel', true, []) = false then begin - Application.MessageBox('ûѡ!','ʾ',0); + Application.MessageBox('ûѡ!', 'ʾ', 0); Exit; end; @@ -1136,7 +1143,7 @@ begin First; while not eof do begin - IF Fieldbyname('ssel').AsBoolean then + if Fieldbyname('ssel').AsBoolean then begin { IF trim(fieldbyName('bankNo').AsString)='' then begin @@ -1149,48 +1156,47 @@ begin close; sql.Clear; sql.Add('UPdate YF_Money_CR SET '); - sql.Add(' Money='''+floattostr(CDS_HZ.fieldbyname('Money').AsFloat)+''' '); - sql.Add(',BBMoney='''+floattostr(CDS_HZ.fieldbyname('BBMoney').AsFloat)+''' '); - sql.Add(',DerateMoney='''+floattostr(CDS_HZ.fieldbyname('DerateMoney').AsFloat)+''' '); - sql.Add(',bankNo='''+trim(CDS_HZ.fieldbyname('bankNo').AsString)+''' '); - sql.Add(',CRTime='''+formatdateTIme('yyyy-MM-dd',CDS_HZ.fieldbyname('CRTime').AsDateTime)+''' '); - sql.Add(',Note='''+trim(CDS_HZ.fieldbyname('Note').AsString)+''' '); - sql.Add(',huilv='''+floattostr(CDS_HZ.fieldbyname('huilv').AsFloat)+''' '); - sql.Add(',YFName='''+trim(CDS_HZ.fieldbyname('YFName').AsString)+''' '); - sql.Add(',BZType='''+trim(CDS_HZ.fieldbyname('BZType').AsString)+''' '); - sql.Add(',fstr1='''+trim(CDS_HZ.fieldbyname('fstr1').AsString)+''' '); - sql.Add(',SYRName='''+trim(CDS_HZ.fieldbyname('SYRName').AsString)+''' '); - SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + sql.Add(' Money=''' + floattostr(CDS_HZ.fieldbyname('Money').AsFloat) + ''' '); + sql.Add(',BBMoney=''' + floattostr(CDS_HZ.fieldbyname('BBMoney').AsFloat) + ''' '); + sql.Add(',DerateMoney=''' + floattostr(CDS_HZ.fieldbyname('DerateMoney').AsFloat) + ''' '); + sql.Add(',bankNo=''' + trim(CDS_HZ.fieldbyname('bankNo').AsString) + ''' '); + sql.Add(',CRTime=''' + formatdateTIme('yyyy-MM-dd', CDS_HZ.fieldbyname('CRTime').AsDateTime) + ''' '); + sql.Add(',Note=''' + trim(CDS_HZ.fieldbyname('Note').AsString) + ''' '); + sql.Add(',huilv=''' + floattostr(CDS_HZ.fieldbyname('huilv').AsFloat) + ''' '); + sql.Add(',YFName=''' + trim(CDS_HZ.fieldbyname('YFName').AsString) + ''' '); + sql.Add(',BZType=''' + trim(CDS_HZ.fieldbyname('BZType').AsString) + ''' '); + sql.Add(',fstr1=''' + trim(CDS_HZ.fieldbyname('fstr1').AsString) + ''' '); + sql.Add(',SYRName=''' + trim(CDS_HZ.fieldbyname('SYRName').AsString) + ''' '); + SQL.Add(' where YFId=''' + Trim(CDS_HZ.fieldbyname('YFId').AsString) + ''''); // ShowMessage(sql.text); execsql; end; try geteditRzhi(); - IF trim(fieldbyName('bankNo').AsString)<>'' then + if trim(fieldbyName('bankNo').AsString) <> '' then begin with ADOqueryCmd do begin Close; sql.Clear; - SQL.Add('delete from YF_Money_LL where fromMainID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''' '); + SQL.Add('delete from YF_Money_LL where fromMainID=''' + Trim(CDS_HZ.fieldbyname('YFID').AsString) + ''' '); execsql; end; - IF (CDS_HZ.FieldByName('BBMoney').AsFloat<>0) and - (trim(CDS_HZ.fieldbyname('bankNo').AsString)<>'') then + if (CDS_HZ.FieldByName('BBMoney').AsFloat <> 0) and (trim(CDS_HZ.fieldbyname('bankNo').AsString) <> '') then begin - IF not saveZL() then + if not saveZL() then begin - application.MessageBox('˻ˮϢʧ','ʾϢ',0); + application.MessageBox('˻ˮϢʧ', 'ʾϢ', 0); end; end; end else begin - with ADOqueryCmd do + with ADOqueryCmd do begin Close; sql.Clear; - SQL.Add('delete from YF_Money_LL where fromMainID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''' '); + SQL.Add('delete from YF_Money_LL where fromMainID=''' + Trim(CDS_HZ.fieldbyname('YFID').AsString) + ''' '); // ShowMessage(sql.text); execsql; end; @@ -1207,13 +1213,13 @@ begin //InitGrid(); except ADOQueryCmd.Connection.RollbackTrans; - application.MessageBox('ʧܣ','ʾϢ',0); + application.MessageBox('ʧܣ', 'ʾϢ', 0); end; end; procedure TfrmSKCR.Panel2DblClick(Sender: TObject); begin - Panel2.Visible:=false; + Panel2.Visible := false; end; procedure TfrmSKCR.JZdateChange(Sender: TObject); @@ -1221,21 +1227,20 @@ begin jsYe(); end; -procedure TfrmSKCR.v2Column4PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmSKCR.v2Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try - frmZDYHelp:=TfrmZDYHelp.Create(Application); + frmZDYHelp := TfrmZDYHelp.Create(Application); with frmZDYHelp do begin - flag:=trim(fsyrName)+'XJLLFLAG'; - flagname:='˻Ͷ'; - if ShowModal=1 then + flag := trim(fsyrName) + 'XJLLFLAG'; + flagname := '˻Ͷ'; + if ShowModal = 1 then begin with Self.CDS_HZ do begin Edit; - FieldByName('bankNo').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + FieldByName('bankNo').Value := Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); end; { with ADOQueryCmd do begin @@ -1276,10 +1281,10 @@ end; procedure TfrmSKCR.ToolButton4Click(Sender: TObject); begin - frmSysLogHelp:=TfrmSysLogHelp.create(self); + frmSysLogHelp := TfrmSysLogHelp.create(self); with frmSysLogHelp do begin - facction:='տǼ޸'; + facction := 'տǼ޸'; showmodal; free; end; @@ -1287,7 +1292,8 @@ end; procedure TfrmSKCR.CheckBox1Click(Sender: TObject); begin - IF CDS_HZ.IsEmpty then exit; + if CDS_HZ.IsEmpty then + exit; with CDS_HZ do begin DisableControls; @@ -1295,7 +1301,7 @@ begin while not eof do begin edit; - fieldbyname('ssel').Value:=checkbox1.Checked; + fieldbyname('ssel').Value := checkbox1.Checked; post; next; end; @@ -1305,3 +1311,4 @@ begin end; end. + diff --git a/桂华管理系统/U_ClothContractInPut.dfm b/桂华管理系统/U_ClothContractInPut.dfm index 895609a..b03f336 100644 --- a/桂华管理系统/U_ClothContractInPut.dfm +++ b/桂华管理系统/U_ClothContractInPut.dfm @@ -1,6 +1,6 @@ object frmClothContractInPut: TfrmClothContractInPut - Left = 213 - Top = 163 + Left = 404 + Top = 253 Width = 1046 Height = 541 Caption = #22383#24067#21040#36135 @@ -588,6 +588,16 @@ object frmClothContractInPut: TfrmClothContractInPut HeaderAlignmentHorz = taCenter Width = 118 end + object Tv1Column2: TcxGridDBColumn + Caption = #24211#23384#35843#25972#21305#25968 + DataBinding.FieldName = 'kctzps' + Width = 90 + end + object Tv1Column3: TcxGridDBColumn + Caption = #24211#23384#35843#25972#25968#37327 + DataBinding.FieldName = 'kctzsl' + Width = 90 + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 diff --git a/桂华管理系统/U_ClothContractInPut.pas b/桂华管理系统/U_ClothContractInPut.pas index 8e269b3..c7d4c53 100644 --- a/桂华管理系统/U_ClothContractInPut.pas +++ b/桂华管理系统/U_ClothContractInPut.pas @@ -10,7 +10,21 @@ uses cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxDropDownEdit, cxGridCustomPopupMenu, cxGridPopupMenu, - cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, 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 TfrmClothContractInPut = class(TForm) @@ -78,6 +92,8 @@ type Panel1: TPanel; Label11: TLabel; Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; procedure TBCloseClick(Sender: TObject); procedure TVZDYCellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; @@ -690,7 +706,7 @@ begin JHPlace.Text:=''; Order_Sub.EmptyDataSet; PState:=0; - FMainId:=''; } + FMainId:=''; } end; end; diff --git a/桂华管理系统/U_GetDllForm.pas b/桂华管理系统/U_GetDllForm.pas index 1164207..bd49cf0 100644 --- a/桂华管理系统/U_GetDllForm.pas +++ b/桂华管理系统/U_GetDllForm.pas @@ -621,10 +621,10 @@ begin BorderStyle := mborderstyle; //show; end; - end + end else frmCpRkSaoMNew.BringToFront; - // + // mnewHandle := frmCpRkSaoMNew.Handle; end;