qsumgzd.pas

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

unit QSumGzD;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, DBCtrls,
  ComCtrls, Mask, FormStore, MyGrid, StoreForm, ADODB, ADOQry;

type
  TfrmQSumGzD = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TMyGrid;
    qryBrowse: TADOQry;
    Panel2: TPanel;
    cmdExit: TBitBtn;
    cmdPrint: TBitBtn;
    qryBrowseFDate: TDateTimeField;
    StoreForm1: TStoreForm;
    qryG_Hsxm: TADOQry;
    qryG_HsxmCode: TStringField;
    qryG_HsxmName: TStringField;
    qryG_HsxmFDataType: TSmallintField;
    qryG_HsxmFDataLen: TSmallintField;
    procedure cmdExitClick(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  	tdDate0,tdDate1:String;
    tsEmpCode,tsEmpName:String;
	procedure SetHsxmBrowse(oDataSet:TDataSet; oGrid:TDBGrid; oHsxmDs:TDataSet);
  public
    { Public declarations }
  	procedure Requery(nEmpID:integer; dDate0:TDate; dDate1:TDate; sEmpCode:string; sEmpName:string);
  end;

var
  frmQSumGzD: TfrmQSumGzD;

implementation

uses SelfFunc, Main, RptExcel;

{$R *.DFM}

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