jc_result.pas

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

unit Jc_Result;

interface

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

type
  TfrmJc_Result = class(TForm)
    DataSource1: TDataSource;
    Panel1: TPanel;
    cmdPrint: TBitBtn;
    cmdExit: TBitBtn;
    Label1: TLabel;
    Image1: TImage;
    StoreForm1: TStoreForm;
    Label2: TLabel;
    dpDate0: TDateTimePicker;
    dpDate1: TDateTimePicker;
    qryDept: TADOQry;
    qryDeptCode: TStringField;
    qryDeptLongName: TStringField;
    cmdQuery: TBitBtn;
    Label5: TLabel;
    cedEmpCode: TAdoCodeEd;
    qryEmp: TADOQry;
    qryEmpID: TIntegerField;
    qryEmpCode: TStringField;
    qryEmpName: TStringField;
    qryEmpState: TSmallintField;
    oPages: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DBGrid1: TMyGrid;
    MyGrid1: TMyGrid;
    DataSource2: TDataSource;
    qryBrowse: TAdoPivotTbl;
    qryBrowseCs: TIntegerField;
    qryBrowseMoney: TFloatField;
    qryBrowseEmpID: TIntegerField;
    qryBrowseFDate: TDateTimeField;
    qryBrowseCode: TStringField;
    qryBrowseName: TStringField;
    qrySum: TAdoPivotTbl;
    qrySumEmpID: TIntegerField;
    qrySumCode: TStringField;
    qrySumName: TStringField;
    qrySumCs: TIntegerField;
    qrySumMoney: TFloatField;
    TabSheet3: TTabSheet;
    DataSource3: TDataSource;
    MyGrid2: TMyGrid;
    qrySumDays: TAdoMacroQry;
    qrySumDaysEmpID: TIntegerField;
    qrySumDaysCode: TStringField;
    qrySumDaysName: TStringField;
    qrySumDaysDays: TIntegerField;
    procedure cmdExitClick(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cmdQueryClick(Sender: TObject);
    procedure cedDeptCodeChange(Sender: TObject);
    procedure cedEmpCodeGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure oPagesChange(Sender: TObject);
    procedure cedEmpCodeCodeChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmJc_Result: TfrmJc_Result;

implementation

uses RptExcel, SelfFunc, Main;

{$R *.DFM}

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

procedure TfrmJc_Result.cmdPrintClick(Sender: TObject);
begin
	case oPages.ActivePageIndex of
    0: frmRptExcel.PrintRpt(Self.Caption+'-