qemptotal4.pas

来自「感应IC卡电脑考勤、门禁、售饭一卡通管理系统是基于我公司开发生产的ESW型智能卡」· PAS 代码 · 共 86 行

unit QEmpTotal4;

interface

uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, Db, Mask, DBCtrls,
  Provider, DBClient, ObeyTable, jpeg, MyGrid, FormStore, AdoCodeEd, ComCtrls,
  MacroQuery, PivotTable, ADODB, AdoMacroQry, AdoPivotTbl, StoreForm,
  ADOQry;

type
  TfrmQEmpTotal4 = class(TForm)
    DataSource1: TDataSource;
    Panel1: TPanel;
    cmdExit: TBitBtn;
    Label1: TLabel;
    Image1: TImage;
    StoreForm1: TStoreForm;
    cmdPrint: TBitBtn;
    qryLzdz: TAdoPivotTbl;
    qryLzdzLzqj: TIntegerField;
    qryLzdzRs: TIntegerField;
    qryLzdzLzDate: TDateTimeField;
    MyGrid1: TMyGrid;
    Panel2: TPanel;
    Label2: TLabel;
    dpLzDate0: TDateTimePicker;
    dpLzDate1: TDateTimePicker;
    rgDatePart: TRadioGroup;
    cmdLzQuery: TBitBtn;
    procedure cmdExitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cmdLzQueryClick(Sender: TObject);
    procedure rgDatePartClick(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
  private
  public
    { Public declarations }
  end;

var
  frmQEmpTotal4: TfrmQEmpTotal4;

implementation

uses RptExcel, SelfFunc, Main;

{$R *.DFM}

procedure TfrmQEmpTotal4.cmdExitClick(Sender: TObject);
begin
	Close;
end;

procedure TfrmQEmpTotal4.FormCreate(Sender: TObject);
begin
	Image1.Picture.Assign(frmMain.imgTitle.Picture);

    dpLzDate0.Date :=Date()-150;
    dpLzDate1.Date :=Date();
end;

procedure TfrmQEmpTotal4.cmdLzQueryClick(Sender: TObject);
const sDatePart :Array[0..2] of string
		=('month', 'quarter', 'year');
begin
	with qryLzdz do
    begin
    	Close;
        ParamByN('dDate0').Value :=dpLzDate0.Date;
        ParamByN('dDate1').Value :=dpLzDate1.Date;
        ParamByN('DatePart').Value :=sDatePart[rgDatePart.ItemIndex];
    	Open;
    end;
end;

procedure TfrmQEmpTotal4.rgDatePartClick(Sender: TObject);
begin
	cmdLzQuery.OnClick(nil);
end;

procedure TfrmQEmpTotal4.cmdPrintClick(Sender: TObject);
var tsRptName :string;
begin
    tsRptName :='