totalemp.pas

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

unit TotalEmp;

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, AdoPivotTbl, ADODB, ADOTbl, AdoMacroQry,
  StoreForm, ADOQry;

type
  TfrmTotalEmp = class(TForm)
    DataSource1: TDataSource;
    Panel1: TPanel;
    cmdExit: TBitBtn;
    Label1: TLabel;
    Image1: TImage;
    StoreForm1: TStoreForm;
    cmdPrint: TBitBtn;
    oPages: TPageControl;
    TabSheet1: TTabSheet;
    MyGrid1: TMyGrid;
    TabSheet2: TTabSheet;
    qryByOld: TAdoMacroQry;
    DataSource2: TDataSource;
    qryByOldZrs0: TIntegerField;
    qryByOldZrs1: TIntegerField;
    qryByOldFText: TStringField;
    qryByOldZrs: TIntegerField;
    MyGrid2: TMyGrid;
    Panel2: TPanel;
    tblOldList: TADOTbl;
    tblOldListOld0: TIntegerField;
    tblOldListOld1: TIntegerField;
    tblOldListFText: TStringField;
    DataSource3: TDataSource;
    DBGrid1: TDBGrid;
    Panel3: TPanel;
    cmdAdd: TBitBtn;
    cmdDel: TBitBtn;
    cmdSave: TBitBtn;
    cmdCancel: TBitBtn;
    Label2: TLabel;
    Panel4: TPanel;
    rgByDept: TRadioGroup;
    qryByXueLi: TAdoPivotTbl;
    qryByXueLiCode: TStringField;
    qryByXueLiZrs: TIntegerField;
    qryByXueLiTreeLevel: TSmallintField;
    qryByXueLiLName: TStringField;
    TabSheet3: TTabSheet;
    MyGrid3: TMyGrid;
    DataSource4: TDataSource;
    qryByDept: TAdoMacroQry;
    qryByDeptCode: TStringField;
    qryByDeptLName: TStringField;
    qryByDeptTreeLevel: TSmallintField;
    qryByDeptRs: TIntegerField;
    qryByDeptRs0: TIntegerField;
    qryByDeptRs1: TIntegerField;
    Panel5: TPanel;
    RadioGroup1: TRadioGroup;
    TabSheet4: TTabSheet;
    MyGrid4: TMyGrid;
    Panel6: TPanel;
    RadioGroup2: TRadioGroup;
    qryByZhiWu: TAdoPivotTbl;
    DataSource5: TDataSource;
    qryByZhiWuCode: TStringField;
    qryByZhiWuLName: TStringField;
    qryByZhiWuZrs: TIntegerField;
    qryByZhiWuTreeLevel: TSmallintField;
    qryByDeptNote: TStringField;
    qryByXueLiNote: TStringField;
    qryByZhiWuNote: TStringField;
    qryByDeptBianZhiRs: TIntegerField;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
    qryByJiGuan: TAdoPivotTbl;
    DataSource6: TDataSource;
    qryByJiGuanCode: TStringField;
    qryByJiGuanLName: TStringField;
    qryByJiGuanZrs: TIntegerField;
    qryByJiGuanTreeLevel: TSmallintField;
    qryByJiGuanNote: TStringField;
    MyGrid5: TMyGrid;
    Panel7: TPanel;
    RadioGroup3: TRadioGroup;
    MyGrid6: TMyGrid;
    Panel8: TPanel;
    RadioGroup4: TRadioGroup;
    qryByHunYin: TAdoPivotTbl;
    StringField1: TStringField;
    StringField2: TStringField;
    IntegerField1: TIntegerField;
    SmallintField1: TSmallintField;
    StringField3: TStringField;
    DataSource7: TDataSource;
    procedure cmdExitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
    procedure oPagesChange(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure tblOldListBeforePost(DataSet: TDataSet);
    procedure cmdAddClick(Sender: TObject);
    procedure cmdDelClick(Sender: TObject);
    procedure cmdSaveClick(Sender: TObject);
    procedure cmdCancelClick(Sender: TObject);
    procedure rgByDeptClick(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure RadioGroup2Click(Sender: TObject);
    procedure RadioGroup3Click(Sender: TObject);
    procedure RadioGroup4Click(Sender: TObject);
  private
  	oQuerys :Array[0..5] of TADOMacroQry;
  public
    { Public declarations }
    procedure Total(tsWhere:string);
  end;

var
  frmTotalEmp: TfrmTotalEmp;

implementation

uses RptExcel, SelfFunc, Main;

{$R *.DFM}

procedure TfrmTotalEmp.Total(tsWhere:string);
var i :integer;
begin
    for i :=0 to High(oQuerys) do
    with oQuerys[i] do
    begin
    	Close;
        oQuerys[i].ParamByN('sWhere').Value :=tsWhere;
    end;

    Self.ShowModal;
end;

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

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

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

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