qemptotal2.pas

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

unit QEmpTotal2;

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, ADOQry, StoreForm;

type
  TfrmQEmpTotal2 = class(TForm)
    Panel1: TPanel;
    cmdExit: TBitBtn;
    Label1: TLabel;
    Image1: TImage;
    StoreForm1: TStoreForm;
    cmdPrint: 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;
    qryRyydNote: TStringField;
    MyGrid2: TMyGrid;
    Panel3: TPanel;
    Label3: TLabel;
    Label6: TLabel;
    dpRyyd0: TDateTimePicker;
    cmdYdQuery: TBitBtn;
    RadioGroup2: TRadioGroup;
    procedure cmdExitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
    procedure cmdYdQueryClick(Sender: TObject);
    procedure RadioGroup2Click(Sender: TObject);
  private
  public
    { Public declarations }
  end;

var
  frmQEmpTotal2: TfrmQEmpTotal2;

implementation

uses RptExcel, SelfFunc, Main;

{$R *.DFM}

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

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

    dpRyyd0.Date :=Date() -7;
end;

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