diff --git a/应收应付(YSYF.dll)/U_YSMXlist.dfm b/应收应付(YSYF.dll)/U_YSMXlist.dfm index 6da1162..8eb7f3c 100644 --- a/应收应付(YSYF.dll)/U_YSMXlist.dfm +++ b/应收应付(YSYF.dll)/U_YSMXlist.dfm @@ -79,7 +79,7 @@ object frmYSMXlist: TfrmYSMXlist Left = 0 Top = 31 Width = 1306 - Height = 38 + Height = 42 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered @@ -92,13 +92,6 @@ object frmYSMXlist: TfrmYSMXlist Height = 12 Caption = #21697#21517 end - object Label3: TLabel - Left = 510 - Top = 45 - Width = 48 - Height = 12 - Caption = #20986#24211#21333#21495 - end object Label2: TLabel Left = 22 Top = 13 @@ -134,6 +127,13 @@ object frmYSMXlist: TfrmYSMXlist Height = 12 Caption = #25351#31034#21333#21495 end + object Label3: TLabel + Left = 510 + Top = 45 + Width = 48 + Height = 12 + Caption = #20986#24211#21333#21495 + end object MPRTCodeName: TEdit Tag = 2 Left = 726 @@ -143,15 +143,6 @@ object frmYSMXlist: TfrmYSMXlist TabOrder = 0 OnChange = MPRTCodeNameChange end - object OrderNo: TEdit - Tag = 2 - Left = 558 - Top = 41 - Width = 120 - Height = 20 - TabOrder = 1 - OnChange = OrderNoChange - end object begdate: TDateTimePicker Left = 72 Top = 9 @@ -160,7 +151,7 @@ object frmYSMXlist: TfrmYSMXlist Date = 41256.918237847230000000 Format = 'yyyy-MM-dd' Time = 41256.918237847230000000 - TabOrder = 2 + TabOrder = 1 end object Enddate: TDateTimePicker Left = 182 @@ -170,7 +161,7 @@ object frmYSMXlist: TfrmYSMXlist Date = 41256.918237847230000000 Format = 'yyyy-MM-dd' Time = 41256.918237847230000000 - TabOrder = 3 + TabOrder = 2 end object OrdDefNote3: TComboBox Tag = 1 @@ -179,7 +170,7 @@ object frmYSMXlist: TfrmYSMXlist Width = 145 Height = 20 ItemHeight = 12 - TabOrder = 4 + TabOrder = 3 OnChange = MPRTCodeNameChange Items.Strings = ( #24050#20132#21333 @@ -197,26 +188,25 @@ object frmYSMXlist: TfrmYSMXlist Top = 9 Width = 120 Height = 20 - TabOrder = 5 + TabOrder = 4 OnChange = MPRTCodeNameChange OnKeyPress = factoryNameKeyPress end - object Edit1: TEdit + object OrderNo: TEdit Tag = 2 - Left = 556 + Left = 557 Top = 9 Width = 120 Height = 20 - TabOrder = 6 - OnChange = MPRTCodeNameChange - OnKeyPress = factoryNameKeyPress + TabOrder = 5 + OnChange = OrderNoChange end end object cxGrid2: TcxGrid Left = 0 - Top = 69 + Top = 73 Width = 1306 - Height = 459 + Height = 455 Align = alClient TabOrder = 2 object TV1: TcxGridDBBandedTableView diff --git a/应收应付(YSYF.dll)/U_YSMXlist.pas b/应收应付(YSYF.dll)/U_YSMXlist.pas index bdcb89b..26cbbab 100644 --- a/应收应付(YSYF.dll)/U_YSMXlist.pas +++ b/应收应付(YSYF.dll)/U_YSMXlist.pas @@ -5,30 +5,28 @@ 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, cxDropDownEdit, RM_e_Xls, - cxGridBandedTableView, cxGridDBBandedTableView, cxLookAndFeels, - cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, - dxSkinscxPCPainter, cxCurrencyEdit, dxSkinBlack, dxSkinBlue, - dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, - dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, - dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, - dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, - dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins, + IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, + cxTextEdit, cxDropDownEdit, RM_e_Xls, cxGridBandedTableView, + cxGridDBBandedTableView, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, + dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter, cxCurrencyEdit, + 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; + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, + dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, + dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, + dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue; type TfrmYSMXlist = class(TForm) @@ -43,8 +41,6 @@ type MPRTCodeName: TEdit; ADOQueryMain: TADOQuery; ToolButton1: TToolButton; - Label3: TLabel; - OrderNo: TEdit; cxGrid2: TcxGrid; cxGridLevel1: TcxGridLevel; Label2: TLabel; @@ -84,7 +80,8 @@ type TV1Column1: TcxGridDBBandedColumn; TV1Column3: TcxGridDBBandedColumn; Label7: TLabel; - Edit1: TEdit; + OrderNo: TEdit; + Label3: TLabel; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -102,36 +99,33 @@ type { Private declarations } procedure InitGrid(); - public - { Public declarations } - RKFlag,FCYID:String; - fType:string; - + { Public declarations } + RKFlag, FCYID: string; + fType: string; end; var frmYSMXlist: TfrmYSMXlist; implementation + uses - U_DataLink,U_Fun,U_ZDYHelp, U_ProductOrderNewList; + U_DataLink, U_Fun, U_ZDYHelp, U_ProductOrderNewList; {$R *.dfm} - - procedure TfrmYSMXlist.InitGrid(); begin - IF trim(factoryName.Text)='' then + if trim(factoryName.Text) = '' then begin - application.MessageBox('ÇëÊäÈë¿Í»§£¬ÒÔ±ãÌá¸ß²éѯËٶȣ¡','ÌáʾÐÅÏ¢',MB_ICONERROR); + application.MessageBox('ÇëÊäÈë¿Í»§£¬ÒÔ±ãÌá¸ß²éѯËٶȣ¡', 'ÌáʾÐÅÏ¢', MB_ICONERROR); exit; end; - screen.Cursor:=crsqlwait; - Panetime.Visible:=true; - Panetime.Left:=(Width-Panetime.Width) div 2; - Panetime.top:=(Height-Panetime.Height-200) div 2; + screen.Cursor := crsqlwait; + Panetime.Visible := true; + Panetime.Left := (Width - Panetime.Width) div 2; + Panetime.top := (Height - Panetime.Height - 200) div 2; application.ProcessMessages; try ADOQueryMain.DisableControls; @@ -139,43 +133,43 @@ begin begin Close; SQL.Clear; - Filtered:=False; + Filtered := False; sql.Add(' exec P_Qry_Ysk_mx :begdate,:enddate,:factoryName'); - Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime)); - Parameters.ParamByName('Enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)); + Parameters.ParamByName('begdate').Value := Trim(FormatDateTime('yyyy-MM-dd', begdate.DateTime)); + Parameters.ParamByName('Enddate').Value := Trim(FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1)); // Parameters.ParamByName('Type').Value:=Trim(fType); - Parameters.ParamByName('factoryName').Value:=Trim(factoryName.Text); + Parameters.ParamByName('factoryName').Value := Trim(factoryName.Text); Open; end; - SCreateCDS20(ADOQueryMain,CDS_HZ); - SInitCDSData20(ADOQueryMain,CDS_HZ); + SCreateCDS20(ADOQueryMain, CDS_HZ); + SInitCDSData20(ADOQueryMain, CDS_HZ); finally ADOQueryMain.EnableControls; ToolButton2.Click; - Panetime.Visible:=false; - screen.Cursor:=crdefault; + Panetime.Visible := false; + screen.Cursor := crdefault; end; end; - procedure TfrmYSMXlist.FormDestroy(Sender: TObject); begin - frmYSMXlist:=nil; + frmYSMXlist := nil; end; procedure TfrmYSMXlist.FormClose(Sender: TObject; var Action: TCloseAction); begin - Action:=caFree; + Action := caFree; end; procedure TfrmYSMXlist.TBCloseClick(Sender: TObject); begin - WriteCxBandedGrid(self.Caption+'2',Tv1,'²ÆÎñ¹ÜÀí1'); + WriteCxBandedGrid(self.Caption + '2', Tv1, '²ÆÎñ¹ÜÀí1'); Close; end; + procedure TfrmYSMXlist.FormShow(Sender: TObject); -begin - readCxBandedGrid(self.Caption+'2',Tv1,'²ÆÎñ¹ÜÀí1'); +begin + readCxBandedGrid(self.Caption + '2', Tv1, '²ÆÎñ¹ÜÀí1'); end; @@ -189,9 +183,9 @@ procedure TfrmYSMXlist.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; @@ -202,13 +196,15 @@ end; procedure TfrmYSMXlist.ToolButton1Click(Sender: TObject); begin - if ADOQueryMain.IsEmpty then Exit; - TcxGridToExcel(self.Caption,cxgrid2); + if ADOQueryMain.IsEmpty then + Exit; + TcxGridToExcel(self.Caption, cxgrid2); end; procedure TfrmYSMXlist.OrderNoChange(Sender: TObject); begin - if Length(Trim(OrderNo.Text))<3 then Exit; + if Length(Trim(OrderNo.Text)) < 3 then + Exit; ToolButton2.Click; end; @@ -219,19 +215,20 @@ end; procedure TfrmYSMXlist.FormCreate(Sender: TObject); begin - cxGrid2.Align:=AlClient; - Enddate.DateTime:=SGetServerDate(ADOQueryTemp); - begdate.DateTime:=Enddate.DateTime; + cxGrid2.Align := AlClient; + Enddate.DateTime := SGetServerDate(ADOQueryTemp); + begdate.DateTime := Enddate.DateTime; end; procedure TfrmYSMXlist.ToolButton3Click(Sender: TObject); var - filepath:string; - mBegdate,mEnddate:string; + filepath: string; + mBegdate, mEnddate: string; begin - mbegdate:=FormatDateTime('yyyy-MM-dd',begdate.Date); - menddate:=FormatDateTime('yyyy-MM-dd',enddate.Date); - if CDS_HZ.IsEmpty then exit; + mBegdate := FormatDateTime('yyyy-MM-dd', begdate.Date); + mEnddate := FormatDateTime('yyyy-MM-dd', enddate.Date); + if CDS_HZ.IsEmpty then + exit; { with ADOQueryPrint do @@ -250,21 +247,21 @@ begin end; } try - filepath:=ExtractFilePath(Application.ExeName) + 'report\Ó¦ÊÕ¿î¶ÔÕ˵¥.rmf'; - if not FileExists(Pchar(filepath)) then + filepath := ExtractFilePath(Application.ExeName) + 'report\Ó¦ÊÕ¿î¶ÔÕ˵¥.rmf'; + if not FileExists(Pchar(filepath)) then begin - application.MessageBox(pchar('Îļþ['+filepath+']²»´æÔÚ£¡'),'ÌáʾÐÅÏ¢',MB_IConError); + application.MessageBox(pchar('Îļþ[' + filepath + ']²»´æÔÚ£¡'), 'ÌáʾÐÅÏ¢', MB_IConError); exit; end; - RMVariables['dtxz'] :=FormatDateTime('yyyy-mm-dd',date()); - RmVariables['begDate'] :=FormatDateTime('yyyy-mm-dd',begDate.Date); - RmVariables['enddate'] :=FormatDateTime('yyyy-mm-dd',enddate.Date); - RMVariables['zdr'] :=trim(DName); - RmVariables['begDate'] :=FormatDateTime('yymmdd',begDate.Date)+'-'+FormatDateTime('yymmdd',enddate.Date); + RMVariables['dtxz'] := FormatDateTime('yyyy-mm-dd', date()); + RmVariables['begDate'] := FormatDateTime('yyyy-mm-dd', begDate.Date); + RmVariables['enddate'] := FormatDateTime('yyyy-mm-dd', enddate.Date); + RMVariables['zdr'] := trim(DName); + RmVariables['begDate'] := FormatDateTime('yymmdd', begDate.Date) + '-' + FormatDateTime('yymmdd', enddate.Date); CDS_HZ.First; - RmVariables['QCNum'] :=CDS_HZ.fieldbyname('MoneyYe').AsFloat - CDS_HZ.fieldbyname('YMoney').AsFloat + CDS_HZ.fieldbyname('Money').AsFloat; //+ CDS_HZ.fieldbyname('DerateMoney').AsFloat ; + RmVariables['QCNum'] := CDS_HZ.fieldbyname('MoneyYe').AsFloat - CDS_HZ.fieldbyname('YMoney').AsFloat + CDS_HZ.fieldbyname('Money').AsFloat; //+ CDS_HZ.fieldbyname('DerateMoney').AsFloat ; CDS_HZ.Last; - RmVariables['endNum'] :=CDS_HZ.fieldbyname('MoneyYe').AsString; + RmVariables['endNum'] := CDS_HZ.fieldbyname('MoneyYe').AsString; RMGridReport1.LoadFromFile(filepath); // RMGridReport1.PrintReport; RMGridReport1.ShowReport; @@ -272,7 +269,7 @@ begin finally end; - end; +end; //var // filepath:string; // mBegdate,mEnddate:string; @@ -322,10 +319,9 @@ begin // //end; - procedure TfrmYSMXlist.factoryNameKeyPress(Sender: TObject; var Key: Char); begin - if Key = #13 then + if Key = #13 then begin if Length(factoryName.Text) < 2 then Exit; @@ -336,3 +332,4 @@ begin end; end. +