kq_resultsum.pas

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

unit Kq_ResultSum;

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

type
  TfrmKq_ResultSum = class(TForm)
    DataSource1: TDataSource;
    Panel1: TPanel;
    cmdExit: TBitBtn;
    qryByEmp: TAdoMacroQry;
    Label1: TLabel;
    Image1: TImage;
    StoreForm1: TStoreForm;
    cmdPrint: TBitBtn;
    qryByEmpCode: TStringField;
    qryByEmpName: TStringField;
    qryByEmpCardNo: TStringField;
    qryByEmpDept: TStringField;
    qryByEmpsSex: TStringField;
    qryByEmpDeptName: TStringField;
    qryByEmpEmpID: TIntegerField;
    qryByEmpChiDaoSj: TIntegerField;
    qryByEmpChiDaoCs: TIntegerField;
    qryByEmpZaoTuiSj: TIntegerField;
    qryByEmpZaoTuiCs: TIntegerField;
    qryByEmpKgSj: TIntegerField;
    qryByEmpKgCs: TIntegerField;
    qryByEmpRcjb1: TIntegerField;
    qryByEmpRcjb2: TIntegerField;
    qryByEmpRcjbOver0: TIntegerField;
    qryByEmpRcjbAll: TIntegerField;
    qryByEmpYcqSj: TIntegerField;
    qryByEmpSjcqSj: TIntegerField;
    qryG_Hsxm: TADOQry;
    qryG_HsxmCode: TStringField;
    qryG_HsxmName: TStringField;
    qryG_HsxmFDataType: TSmallintField;
    qryG_HsxmFDataLen: TSmallintField;
    qryByEmpKgSj_cd: TIntegerField;
    qryByEmpKgCs_cd: TIntegerField;
    qryByEmpKgSj_zt: TIntegerField;
    qryByEmpKgCs_zt: TIntegerField;
    oPages: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    MyGrid1: TMyGrid;
    MyGrid2: TMyGrid;
    qryByDept: TAdoMacroQry;
    DataSource2: TDataSource;
    qryByDeptCode: TStringField;
    qryByDeptTreeLevel: TSmallintField;
    qryByDeptLName: TStringField;
    qryByDeptChiDaoCs: TIntegerField;
    qryByDeptChiDaoSj: TIntegerField;
    qryByDeptZaoTuiCs: TIntegerField;
    qryByDeptZaoTuiSj: TIntegerField;
    qryByDeptKgSj: TIntegerField;
    qryByDeptKgCs: TIntegerField;
    qryByDeptKgSj_cd: TIntegerField;
    qryByDeptKgCs_cd: TIntegerField;
    qryByDeptKgSj_zt: TIntegerField;
    qryByDeptKgCs_zt: TIntegerField;
    qryByDeptRcjbAll: TIntegerField;
    qryByDeptRcjbOver0: TIntegerField;
    qryByDeptRcjb2: TIntegerField;
    qryByDeptRcjb1: TIntegerField;
    qryByDeptYcqSj: TIntegerField;
    qryByDeptSjcqSj: TIntegerField;
    qryByEmpJbKgSj: TIntegerField;
    qryByDeptJbKgSj: TIntegerField;
    cmdPrintD: TBitBtn;
    procedure cmdExitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
    procedure oPagesChange(Sender: TObject);
    procedure cmdPrintDClick(Sender: TObject);
  private
    oSumQrys :Array[0..1] of TADOMacroQry;
	procedure SetHsxmBrowse(oDataSet:TDataSet; oGrid:TDBGrid; oHsxmDs:TDataSet);
  public
    { Public declarations }
    procedure Total(tsWhere:string);
  end;

var
  frmKq_ResultSum: TfrmKq_ResultSum;

implementation

uses RptExcel, SelfFunc, Main, Kq_Result;

{$R *.DFM}

procedure TfrmKq_ResultSum.SetHsxmBrowse(oDataSet:TDataSet; oGrid:TDBGrid; oHsxmDs:TDataSet);
var oField :TField;
begin
	//砞竚