gz_totalf.pas

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

unit Gz_TotalF;

interface

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

type
  TfrmGz_TotalF = 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;
    cboSession0: TDBLookupComboBox;
    panState: TPanel;
    RadioButton1: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton2: TRadioButton;
    qrySession: TADOQry;
    qrySessionID: TIntegerField;
    qrySessionDate0: TDateTimeField;
    qrySessionDate1: TDateTimeField;
    qrySessionMemo: TStringField;
    qryG_Hsxm: TADOQry;
    qryG_HsxmCode: TStringField;
    qryG_HsxmName: TStringField;
    qryG_HsxmFDataType: TSmallintField;
    qryG_HsxmFDataLen: TSmallintField;
    qryFields: TADOQry;
    qryFieldsPyDate: TDateTimeField;
    qryFieldsZzDate: TDateTimeField;
    qryFieldsState: TSmallintField;
    qryFieldsLzDate: TDateTimeField;
    qryFieldsZhiJi: TStringField;
    qryFieldsZhiWu: TStringField;
    qryFieldsXueLi: TStringField;
    qryFieldsJxfs: TStringField;
    DataSource1: TDataSource;
    qryFieldsCode: TStringField;
    qryEmp: TADOQry;
    qryEmpID: TIntegerField;
    qryEmpCode: TStringField;
    qryEmpName: TStringField;
    qryEmpState: TSmallintField;
    Label3: TLabel;
    cedEmp: TAdoCodeEd;
    RadioButton4: TRadioButton;
    qryCurID: TADOQry;
    qryCurIDCurID: TIntegerField;
    qryJxfs: TADOQry;
    qryJxfsCode: TStringField;
    qryJxfsName: TStringField;
    Label5: TLabel;
    cedJxfs: TAdoCodeEd;
    RadioButton5: TRadioButton;
    cboSession1: TDBLookupComboBox;
    Label6: TLabel;
    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 cedJxfsGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure cboSession0Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
	Function SetFilter(tsWhere:string) :Boolean; override;
  end;

var
  frmGz_TotalF: TfrmGz_TotalF;

implementation

uses Main, SelfFunc;

{$R *.dfm}

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

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