emptotal.pas

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

unit EmpTotal;

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

type
  TfrmEmpTotal = 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;
    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;
    TabSheet4: TTabSheet;
    MyGrid4: TMyGrid;
    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;
    MyGrid6: TMyGrid;
    qryByHunYin: TAdoPivotTbl;
    StringField1: TStringField;
    StringField2: TStringField;
    IntegerField1: TIntegerField;
    SmallintField1: TSmallintField;
    StringField3: TStringField;
    DataSource7: TDataSource;
    panDeptFilter: TPanel;
    Label3: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    cmdQuery: TBitBtn;
    qryByBornM: TAdoMacroQry;
    DataSource8: TDataSource;
    qryByBornMBornM: TIntegerField;
    qryByBornMZrs: TIntegerField;
    qryByBornMZrs1: TIntegerField;
    qryByBornMZrs0: TIntegerField;
    TabSheet7: TTabSheet;
    MyGrid7: TMyGrid;
    TabSheet8: TTabSheet;
    TabSheet9: TTabSheet;
    DataSource9: TDataSource;
    qryByZhiJi: TAdoPivotTbl;
    DataSource10: TDataSource;
    qryByZhiJiCode: TStringField;
    qryByZhiJiLName: TStringField;
    qryByZhiJiZrs: TIntegerField;
    qryByZhiJiTreeLevel: TSmallintField;
    qryByZhiJiNote: TStringField;
    MyGrid8: TMyGrid;
    Panel4: TPanel;
    Label4: TLabel;
    DBGrid2: TDBGrid;
    Panel5: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    MyGrid9: TMyGrid;
    tblNianZList: TADOTbl;
    DataSource11: TDataSource;
    tblNianZListNianZ0: TIntegerField;
    tblNianZListNianZ1: TIntegerField;
    tblNianZListFText: TStringField;
    qryByNianZ: TAdoMacroQry;
    qryByNianZFText: TStringField;
    qryByNianZZrs0: TIntegerField;
    qryByNianZZrs1: TIntegerField;
    qryByNianZZrs: TIntegerField;
    TabSheet10: TTabSheet;
    DataSource12: TDataSource;
    MyGrid10: TMyGrid;
    qryByNianZD: TAdoPivotTbl;
    qryByNianZDCode: TStringField;
    qryByNianZDLName: TStringField;
    qryByNianZDZrs: TIntegerField;
    qryByNianZDTreeLevel: TSmallintField;
    qryByNianZDNote: TStringField;
    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 RadioButton1Click(Sender: TObject);
    procedure cmdQueryClick(Sender: TObject);
    procedure tblNianZListBeforePost(DataSet: TDataSet);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure qryByNianZBeforeOpen(DataSet: TDataSet);
    procedure qryByOldBeforeOpen(DataSet: TDataSet);
    procedure qryByNianZDBeforeOpen(DataSet: TDataSet);
  private
    dlgMultiFilter :TfrmZlEmployeeF;
  	oQuerys :Array[0..9] of TADOMacroQry;
  public
    { Public declarations }
  end;

var
  frmEmpTotal: TfrmEmpTotal;

implementation

uses RptExcel, SelfFunc, Main;

{$R *.DFM}

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

procedure TfrmEmpTotal.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] :=qryByZhiJi;
    oQuerys[4] :=qryByHunYin;
    oQuerys[5] :=qryByBornM;
  	oQuerys[6] :=qryByNianZ;
    oQuerys[7] :=qryByZhiWu;
  	oQuerys[8] :=qryByJiGuan;
    oQuerys[9] :=qryByNianZD;
end;

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