kq_resultcq.pas

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

unit Kq_ResultCq;

interface

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

type
  TfrmKq_ResultCq = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TMyGrid;
    Panel1: TPanel;
    cmdPrint: TBitBtn;
    cmdExit: TBitBtn;
    qryBrowse: TAdoMacroQry;
    Label1: TLabel;
    Image1: TImage;
    StoreForm1: TStoreForm;
    qryBrowseCode: TStringField;
    qryBrowseName: TStringField;
    qryBrowseFDate: TDateTimeField;
    qryBrowseBanZhi: TStringField;
    qryBrowseB1SbTime: TTimeIntField;
    qryBrowseB1XbTime: TTimeIntField;
    qryBrowseB2SbTime: TTimeIntField;
    qryBrowseB2XbTime: TTimeIntField;
    qryBrowseB3SbTime: TTimeIntField;
    qryBrowseB3XbTime: TTimeIntField;
    qryBrowseB4SbTime: TTimeIntField;
    qryBrowseB4XbTime: TTimeIntField;
    qryBrowseEmpID: TIntegerField;
    qryBrowseCardNo: TStringField;
    qryBrowseDept: TStringField;
    qryBrowsesSex: TStringField;
    qryBrowseDeptName: TStringField;
    cboRptName: TComboBox;
    qrySysSet: TADOQry;
    qryBrowseBanZhiName: TStringField;
    cmdFilter: TBitBtn;
    qryBrowsesZhiWu: TStringField;
    qryBrowseB1YSbTime: TTimeIntField;
    qryBrowseB1YXbTime: TTimeIntField;
    qryBrowseB2YSbTime: TTimeIntField;
    qryBrowseB2YXbTime: TTimeIntField;
    qryBrowseB3YSbTime: TTimeIntField;
    qryBrowseB3YXbTime: TTimeIntField;
    qryBrowseB4YSbTime: TTimeIntField;
    qryBrowseB4YXbTime: TTimeIntField;
    qryBrowseZhiWu: TStringField;
    qryBrowseB1ChiDao: TIntegerField;
    qryBrowseB1ZaoTui: TIntegerField;
    qryBrowseB2ChiDao: TIntegerField;
    qryBrowseB2ZaoTui: TIntegerField;
    qryBrowseB3ChiDao: TIntegerField;
    qryBrowseB3ZaoTui: TIntegerField;
    qryBrowseB4ChiDao: TIntegerField;
    qryBrowseB4ZaoTui: TIntegerField;
    qrySysSetCqRpts: TStringField;
    qryBrowseB1ChiDao2: TIntegerField;
    qryBrowseB1ZaoTui2: TIntegerField;
    qryBrowseB2ChiDao2: TIntegerField;
    qryBrowseB2ZaoTui2: TIntegerField;
    qryBrowseB3ChiDao2: TIntegerField;
    qryBrowseB3ZaoTui2: TIntegerField;
    qryBrowseB4ChiDao2: TIntegerField;
    qryBrowseB4ZaoTui2: TIntegerField;
    chkHide: TCheckBox;
    procedure cmdExitClick(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure cmdFilterClick(Sender: TObject);
    procedure qryBrowseCalcFields(DataSet: TDataSet);
    procedure chkHideClick(Sender: TObject);
  private
    { Private declarations }
    dlgMultiFilter :TfrmKq_ResultCqF;
  public
    { Public declarations }
	procedure SetHsxmBrowse(oDataSet:TDataSet; oGrid:TDBGrid; oHsxmDs:TDataSet);
  end;

var
  frmKq_ResultCq: TfrmKq_ResultCq;

implementation

uses RptExcel, SelfFunc, Main;

{$R *.DFM}

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