kq_resultcqf.pas

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

unit Kq_ResultCqF;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MultiFilter, DB, ComCtrls, StdCtrls, Mask, DBCtrls, Grids,
  Buttons, ExtCtrls, AdoCodeEd, TimeIntField, ADODB, ADOQry;

type
  TfrmKq_ResultCqF = class(TfrmMultiFilter)
    qryDept: TADOQry;
    qryDeptCode: TStringField;
    qryDeptLongName: TStringField;
    Label2: TLabel;
    cedDept: TAdoCodeEd;
    Label4: TLabel;
    cedZhiWu: TAdoCodeEd;
    qryZhiWu: TADOQry;
    qryZhiWuName: TStringField;
    qryZhiWuCode: TStringField;
    Label11: TLabel;
    cedZhiJi: TAdoCodeEd;
    qryZhiJi: TADOQry;
    qryZhiJiName: TStringField;
    qryZhiJiCode: TStringField;
    Label1: TLabel;
    dpDate0: TDateTimePicker;
    dpDate1: TDateTimePicker;
    qryEmp: TADOQry;
    qryEmpID: TIntegerField;
    qryEmpCode: TStringField;
    qryEmpName: TStringField;
    qryEmpState: TSmallintField;
    Label3: TLabel;
    cedEmp: TAdoCodeEd;
    panState: TPanel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    qryFields: TADOQry;
    qryFieldsFDate: TDateTimeField;
    qryFieldsCode: TStringField;
    qryFieldsName: TStringField;
    qryFieldsBanZhi: TStringField;
    qryFieldsB1SbTime: TTimeIntField;
    qryFieldsB1XbTime: TTimeIntField;
    qryFieldsB2SbTime: TTimeIntField;
    qryFieldsB2XbTime: TTimeIntField;
    qryFieldsB3SbTime: TTimeIntField;
    qryFieldsB3XbTime: TTimeIntField;
    qryFieldsB4SbTime: TTimeIntField;
    qryFieldsB4XbTime: TTimeIntField;
    qryFieldsEmpID: TIntegerField;
    qryFieldsCardNo: TStringField;
    qryFieldsDept: TStringField;
    qryFieldsZhiWu: TStringField;
    qryFieldsB1YSbTime: TTimeIntField;
    qryFieldsB1YXbTime: TTimeIntField;
    qryFieldsB2YSbTime: TTimeIntField;
    qryFieldsB2YXbTime: TTimeIntField;
    qryFieldsB3YSbTime: TTimeIntField;
    qryFieldsB3YXbTime: TTimeIntField;
    qryFieldsB4YSbTime: TTimeIntField;
    qryFieldsB4YXbTime: TTimeIntField;
    qryFieldsB1ChiDao: TIntegerField;
    qryFieldsB1ZaoTui: TIntegerField;
    qryFieldsB2ChiDao: TIntegerField;
    qryFieldsB2ZaoTui: TIntegerField;
    qryFieldsB3ChiDao: TIntegerField;
    qryFieldsB3ZaoTui: TIntegerField;
    qryFieldsB4ChiDao: TIntegerField;
    qryFieldsB4ZaoTui: TIntegerField;
    qryG_Hsxm: TADOQry;
    qryG_HsxmCode: TStringField;
    qryG_HsxmName: TStringField;
    qryG_HsxmFDataType: TSmallintField;
    qryG_HsxmFDataLen: TSmallintField;
    procedure FormCreate(Sender: TObject);
    procedure cedDeptGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure cedZhiWuGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure cedZhiJiGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure cedEmpGetDisplayText(Sender: TObject;
      var sDisplayText: String);
  private
    { Private declarations }
    sNoQueQin :string;
  public
    { Public declarations }
	Function SetFilter(tsWhere:string) :Boolean; override;
  end;

var
  frmKq_ResultCqF: TfrmKq_ResultCqF;

implementation

uses Main, SelfFunc;

{$R *.dfm}

procedure TfrmKq_ResultCqF.FormCreate(Sender: TObject);
var ts :string;
	n :integer;
begin
	inherited;

	if frmMain.czyQxDept <>'' then //场