empchart.pas

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

unit EmpChart;

interface

uses ZlEmployeeF,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, TeEngine, Series, TeeProcs, Chart, DbChart,
  ADODB, AdoMacroQry, StoreForm, ADOQry;

type
  TfrmEmpChart = class(TForm)
    DataSource1: TDataSource;
    Panel1: TPanel;
    cmdExit: TBitBtn;
    Label1: TLabel;
    Image1: TImage;
    StoreForm1: TStoreForm;
    cmdPrint: TBitBtn;
    oPages: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DataSource2: TDataSource;
    TabSheet3: TTabSheet;
    DataSource4: TDataSource;
    TabSheet4: TTabSheet;
    DataSource5: TDataSource;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
    DataSource6: TDataSource;
    DataSource7: TDataSource;
    cmdQuery: TBitBtn;
    qryByDept: TAdoMacroQry;
    qryByDeptZrs: TIntegerField;
    qryByDeptsSex: TStringField;
    DBChart1: TDBChart;
    Series1: TPieSeries;
    qryByOld: TAdoMacroQry;
    qryByOldFText: TStringField;
    qryByOldZrs: TIntegerField;
    DBChart2: TDBChart;
    PieSeries1: TPieSeries;
    qryByXueLi: TAdoMacroQry;
    qryByXueLiZrs: TIntegerField;
    qryByXueLiName: TStringField;
    DBChart3: TDBChart;
    PieSeries2: TPieSeries;
    qryByZhiWu: TAdoMacroQry;
    qryByZhiWuZrs: TIntegerField;
    qryByZhiWuName: TStringField;
    DBChart4: TDBChart;
    PieSeries3: TPieSeries;
    qryByJiGuan: TAdoMacroQry;
    qryByJiGuanZrs: TIntegerField;
    qryByJiGuanName: TStringField;
    DBChart5: TDBChart;
    PieSeries4: TPieSeries;
    qryByHunYin: TAdoMacroQry;
    DBChart6: TDBChart;
    PieSeries5: TPieSeries;
    qryByHunYinName: TStringField;
    qryByHunYinZrs: TIntegerField;
    cmdPrintChart: TBitBtn;
    procedure cmdExitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
    procedure oPagesChange(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure cmdQueryClick(Sender: TObject);
    procedure qryByDeptAfterOpen(DataSet: TDataSet);
    procedure qryByOldAfterOpen(DataSet: TDataSet);
    procedure qryByXueLiAfterOpen(DataSet: TDataSet);
    procedure qryByZhiWuAfterOpen(DataSet: TDataSet);
    procedure qryByJiGuanAfterOpen(DataSet: TDataSet);
    procedure qryByHunYinAfterOpen(DataSet: TDataSet);
    procedure cmdPrintChartClick(Sender: TObject);
  private
    dlgMultiFilter :TfrmZlEmployeeF;
  	oQuerys :Array[0..5] of TADOMacroQry;
  public
    { Public declarations }
  end;

var
  frmEmpChart: TfrmEmpChart;

implementation

uses RptExcel, SelfFunc, Main;

{$R *.DFM}

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

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

	dlgMultiFilter :=TfrmZlEmployeeF.Create(Self);
    //dlgMultiFilter.qryBrowse :=qryByDept;

  	oQuerys[0] :=qryByDept;
  	oQuerys[1] :=qryByOld;
  	oQuerys[2] :=qryByXueLi;
    oQuerys[3] :=qryByZhiWu;
  	oQuerys[4] :=qryByJiGuan;
    oQuerys[5] :=qryByHunYin;
end;

procedure TfrmEmpChart.cmdPrintClick(Sender: TObject);
begin
	frmRptExcel.PrintRpt('