kq_resultc.pas

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

unit Kq_ResultC;

interface

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

type
  TfrmKq_ResultC = class(TForm)
    DataSource1: TDataSource;
    MyGrid1: TMyGrid;
    cmdExit: TBitBtn;
    qrySource: TADOQry;
    qrySourceFDateTime: TDateTimeField;
    qrySourceCardNo: TStringField;
    qrySourceMachNo: TStringField;
    Label1: TLabel;
    DataSource2: TDataSource;
    MyGrid2: TMyGrid;
    qrySourceQk: TADOQry;
    Label2: TLabel;
    qrySourceQkFDateTime: TDateTimeField;
    DataSource3: TDataSource;
    MyGrid3: TMyGrid;
    qryQqDj: TADOQry;
    Label3: TLabel;
    qryQqDjQ0Date: TDateTimeField;
    qryQqDjQqType: TStringField;
    qryQqDjsQqType: TStringField;
    qryQqDjQ0Time: TTimeIntField;
    qryQqDjQ1Time: TTimeIntField;
    qryQqDjQqHours: TFloatField;
    qryQqDjQqDays: TIntegerField;
    qryQqDjQ1Date: TDateTimeField;
    DataSource4: TDataSource;
    MyGrid4: TMyGrid;
    qrySgqk: TADOQry;
    Label4: TLabel;
    qrySgqkQkTime: TTimeIntField;
    qrySgqkQkr: TStringField;
    qrySgqksDkXh: TStringField;
    DataSource5: TDataSource;
    MyGrid5: TMyGrid;
    qryJbdj: TADOQry;
    Label5: TLabel;
    qryJbdjSbTime: TTimeIntField;
    qryJbdjXbTime: TTimeIntField;
    qryJbdjJbSj: TFloatField;
    qryJbdjXxSj: TIntegerField;
    qrySgqkDkXh: TIntegerField;
    procedure cmdExitClick(Sender: TObject);
    procedure qrySgqkCalcFields(DataSet: TDataSet);
  private
  public
    { Public declarations }
    procedure View(tdFDate:TDate;tnEmpID:integer);
  end;

var
  frmKq_ResultC: TfrmKq_ResultC;

implementation

uses RptExcel;

{$R *.DFM}

procedure TfrmKq_ResultC.View(tdFDate:TDate;tnEmpID:integer);
var i :integer;
	oQuerys :Array[1..5] of TADOQry;
begin
	oQuerys[1] :=qrySource;
    oQuerys[2] :=qrySourceQK;
    oQuerys[3] :=qrySgqk;
    oQuerys[4] :=qryJbDj;
    oQuerys[5] :=qryQqDj;

	for i :=1 to 5 do
   	with oQuerys[i] do
    begin
        Close;
        Parameters[0].Value :=tnEmpID;
        SetParamByName('dDate', tdFDate);
        Open;
    end;

    Self.ShowModal;
end;

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

procedure TfrmKq_ResultC.qrySgqkCalcFields(DataSet: TDataSet);
const taDkXh :Array[0..3] of string
		=('