qemptotal1.pas

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

unit QEmpTotal1;

interface

uses MultiFilter,
  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
  TfrmQEmpTotal1 = class(TForm)
    Panel1: TPanel;
    cmdExit: TBitBtn;
    Label1: TLabel;
    Image1: TImage;
    StoreForm1: TStoreForm;
    cmdPrint: TBitBtn;
    Panel2: TPanel;
    Label5: TLabel;
    Label7: TLabel;
    dpYdzw0: TDateTimePicker;
    cmdYdzwQuery: TBitBtn;
    RadioGroup1: TRadioGroup;
    qryYdzw: TADOQry;
    qryYdzwCode: TStringField;
    qryYdzwLName: TStringField;
    qryYdzwZhiWu: TStringField;
    qryYdzwsZhiWu: TStringField;
    qryYdzwRs1: TIntegerField;
    qryYdzwRs2: TIntegerField;
    qryYdzwRs3: TIntegerField;
    qryYdzwRs4: TIntegerField;
    qryYdzwRs5: TIntegerField;
    qryYdzwRs6: TIntegerField;
    qryYdzwTreeLevel: TSmallintField;
    qryYdzwNote: TStringField;
    DataSource4: TDataSource;
    MyGrid4: TMyGrid;
    dpYdzw1: TDateTimePicker;
    procedure cmdExitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
    procedure cmdYdzwQueryClick(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure qryYdzwCalcFields(DataSet: TDataSet);
  private
  public
    { Public declarations }
  end;

var
  frmQEmpTotal1: TfrmQEmpTotal1;

implementation

uses RptExcel, SelfFunc, Main;

{$R *.DFM}

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

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

    dpYdzw0.Date :=Date() -7;
    dpYdzw1.Date :=Date() -7;
end;

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