kq_resultf.pas

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

unit Kq_ResultF;

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_ResultF = 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;
    panZhuangTai: TPanel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label1: TLabel;
    dpDate0: TDateTimePicker;
    dpDate1: TDateTimePicker;
    qryEmp: TADOQry;
    qryEmpID: TIntegerField;
    qryEmpCode: TStringField;
    qryEmpName: TStringField;
    qryEmpState: TSmallintField;
    Label3: TLabel;
    cedEmp: TAdoCodeEd;
    qryFields: TADOQry;
    qryG_Hsxm: TADOQry;
    qryG_HsxmCode: TStringField;
    qryG_HsxmName: TStringField;
    qryG_HsxmFDataType: TSmallintField;
    qryG_HsxmFDataLen: TSmallintField;
    qryBrowseFDate: TDateTimeField;
    qryFieldsCode: TStringField;
    qryFieldsName: TStringField;
    qryFieldsB1SbTime: TTimeIntField;
    qryFieldsB1XbTime: TTimeIntField;
    qryFieldsB2SbTime: TTimeIntField;
    qryFieldsB2XbTime: TTimeIntField;
    qryFieldsB3SbTime: TTimeIntField;
    qryFieldsB3XbTime: TTimeIntField;
    qryFieldsB4SbTime: TTimeIntField;
    qryFieldsB4XbTime: TTimeIntField;
    qryFieldsB5SbTime: TTimeIntField;
    qryFieldsB5XbTime: TTimeIntField;
    qryFieldsB6SbTime: TTimeIntField;
    qryFieldsB6XbTime: TTimeIntField;
    qryFieldsChiDaoSj: TIntegerField;
    qryFieldsChiDaoCs: TIntegerField;
    qryFieldsChiDaoCs2: TIntegerField;
    qryFieldsZaoTuiSj: TIntegerField;
    qryFieldsZaoTuiCs: TIntegerField;
    qryFieldsZaoTuiCs2: TIntegerField;
    qryFieldsKgSj: TFloatField;
    qryFieldsKgSjJb: TFloatField;
    qryFieldsKgSjCd: TFloatField;
    qryFieldsKgCdCs: TIntegerField;
    qryFieldsKgSjZt: TFloatField;
    qryFieldsKgZtCs: TIntegerField;
    qryFieldsJbSjRc: TFloatField;
    qryFieldsJbSjRc1: TFloatField;
    qryFieldsJbSjRc2: TFloatField;
    qryFieldsJbSjRc0: TFloatField;
    qryFieldsJbSj67: TFloatField;
    qryFieldsJbSj9: TFloatField;
    qryFieldsYcqZbsj: TFloatField;
    qryFieldsYcqJbsj: TFloatField;
    qryFieldsScqZbsj: TFloatField;
    qryFieldsScqJbsj: TFloatField;
    qryFieldsZhiWu: TStringField;
    qryFieldsZhiJi: TStringField;
    qryFieldsBCode: TStringField;
    qryFieldsSState: TStringField;
    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 }
  public
    { Public declarations }
	Function SetFilter(tsWhere:string) :Boolean; override;
  end;

var
  frmKq_ResultF: TfrmKq_ResultF;

implementation

uses Main, SelfFunc;

{$R *.dfm}

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

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