qemptotal.pas

感应IC卡电脑考勤、门禁、售饭一卡通管理系统是基于我公司开发生产的ESW型智能卡记录器所具有的对持卡人刷卡卡号、时间、次数进行读取贮存等功能

unit QEmpTotal;

interface

uses ZlEmployeeE,ZlEmployeeL,MultiFilter,
 EmpJiaTing,EmpJiaoYu,EmpGongZuo,EmpJiangLi,EmpChengFa,EmpPeiXun,EmpDaShi,
 EmpDiaoZhiE,
  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, ADOQry, ADODB, AdoMacroQry, AdoPivotTbl,
  StoreForm;

type
  TfrmQEmpTotal = class(TForm)
    DataSource1: TDataSource;
    Panel1: TPanel;
    cmdExit: TBitBtn;
    Label1: TLabel;
    Image1: TImage;
    StoreForm1: TStoreForm;
    cmdPrint: TBitBtn;
    oPages: TPageControl;
    TabSheet1: TTabSheet;
    MyGrid1: TMyGrid;
    Panel2: TPanel;
    Label2: TLabel;
    dpLzDate0: TDateTimePicker;
    dpLzDate1: TDateTimePicker;
    rgDatePart: TRadioGroup;
    cmdLzQuery: TBitBtn;
    TabSheet2: TTabSheet;
    MyGrid2: TMyGrid;
    Panel3: TPanel;
    Label3: TLabel;
    dpRyyd0: TDateTimePicker;
    cmdYdQuery: TBitBtn;
    DataSource2: TDataSource;
    qryRyyd: TADOQry;
    qryRyydCode: TStringField;
    qryRyydRsNow: TIntegerField;
    qryRyydRsNow0: TIntegerField;
    qryRyydRsNow1: TIntegerField;
    qryRyydRsLz: TIntegerField;
    qryRyydRsLz0: TIntegerField;
    qryRyydRsLz1: TIntegerField;
    qryRyydRsPy: TIntegerField;
    qryRyydRsPy0: TIntegerField;
    qryRyydRsPy1: TIntegerField;
    qryRyydRsDr: TIntegerField;
    qryRyydRsDr0: TIntegerField;
    qryRyydRsDr1: TIntegerField;
    qryRyydRsDc: TIntegerField;
    qryRyydRsDc0: TIntegerField;
    qryRyydRsDc1: TIntegerField;
    qryRyydLName: TStringField;
    qryRyydTreeLevel: TSmallintField;
    TabSheet3: TTabSheet;
    MyGrid3: TMyGrid;
    Panel4: TPanel;
    Label4: TLabel;
    dpPyDate0: TDateTimePicker;
    dpPyDate1: TDateTimePicker;
    rgPyDatePart: TRadioGroup;
    cmdPyxlQuery: TBitBtn;
    DataSource3: TDataSource;
    TabSheet4: TTabSheet;
    Panel5: TPanel;
    Label5: TLabel;
    dpYdzw0: TDateTimePicker;
    cmdYdzwQuery: TBitBtn;
    MyGrid4: TMyGrid;
    DataSource4: TDataSource;
    qryYdzw: TADOQry;
    qryYdzwCode: TStringField;
    qryYdzwLName: TStringField;
    qryYdzwTreeLevel: TSmallintField;
    qryYdzwZhiWu: TStringField;
    qryYdzwRs1: TIntegerField;
    qryYdzwRs2: TIntegerField;
    qryYdzwRs3: TIntegerField;
    qryYdzwRs4: TIntegerField;
    qryYdzwRs5: TIntegerField;
    qryYdzwsZhiWu: TStringField;
    qryYdzwRs6: TIntegerField;
    RadioGroup2: TRadioGroup;
    Label6: TLabel;
    RadioGroup1: TRadioGroup;
    Label7: TLabel;
    qryRyydNote: TStringField;
    qryYdzwNote: TStringField;
    qryLzdz: TAdoPivotTbl;
    qryLzdzLzqj: TIntegerField;
    qryLzdzLzDate: TDateTimeField;
    qryLzdzRs: TIntegerField;
    qryXpxl: TAdoPivotTbl;
    qryXpxlCxqj: TIntegerField;
    qryXpxlPyDate: TDateTimeField;
    qryXpxlRs: TIntegerField;
    dpYdzw1: TDateTimePicker;
    procedure cmdExitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cmdLzQueryClick(Sender: TObject);
    procedure rgDatePartClick(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
    procedure cmdYdQueryClick(Sender: TObject);
    procedure cmdPyxlQueryClick(Sender: TObject);
    procedure rgPyDatePartClick(Sender: TObject);
    procedure cmdYdzwQueryClick(Sender: TObject);
    procedure RadioGroup2Click(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure qryYdzwCalcFields(DataSet: TDataSet);
  private
  public
    { Public declarations }
  end;

var
  frmQEmpTotal: TfrmQEmpTotal;

implementation

uses RptExcel, SelfFunc, Main;

{$R *.DFM}

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

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

    dpLzDate0.Date :=Date()-150;
    dpLzDate1.Date :=Date();
    dpRyyd0.Date :=Date() -7;
    dpPyDate0.Date :=Date()-150;
    dpPyDate1.Date :=Date();
    dpYdzw0.Date :=Date() -7;
    dpYdzw1.Date :=Date() +1;
end;

procedure TfrmQEmpTotal.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 TfrmQEmpTotal.rgDatePartClick(Sender: TObject);
begin
	cmdLzQuery.OnClick(nil);
end;

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