zlemployeef.pas

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

unit ZlEmployeeF;

interface

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

type
  TfrmZlEmployeeF = class(TfrmMultiFilter)
    qryDept: TADOQry;
    qryDeptCode: TStringField;
    qryDeptLongName: TStringField;
    panState: TPanel;
    rgState0: TRadioButton;
    rgState9: TRadioButton;
    rgStateAll: TRadioButton;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label2: TLabel;
    cedDept: TAdoCodeEd;
    qryFEmp: TADOQry;
    qryFEmpDept: TStringField;
    qryFEmpCode: TStringField;
    qryFEmpCardNo: TStringField;
    qryFEmpName: TStringField;
    qryFEmpSfz: TStringField;
    qryFEmpBornDate: TDateTimeField;
    qryFEmpBornDateM: TIntegerField;
    qryFEmpBornDateD: TIntegerField;
    qryFEmpSex: TBooleanField;
    qryFEmpPyDate: TDateTimeField;
    qryFEmpSyMonths: TIntegerField;
    qryFEmpZzDate: TDateTimeField;
    qryFEmpLzDate: TDateTimeField;
    qryFEmpLzCause: TStringField;
    qryFEmpZhiWu: TStringField;
    qryFEmpZhiJi: TStringField;
    qryFEmpJxfs: TStringField;
    qryFEmpXueLi: TStringField;
    qryFEmpHunYin: TStringField;
    qryFEmpJiGuan: TStringField;
    qryFEmpNation: TStringField;
    qryFEmpRoomBed: TStringField;
    qryFEmpMemo: TStringField;
    qryG_Hsxm: TADOQry;
    qryG_HsxmCode: TStringField;
    qryG_HsxmName: TStringField;
    qryG_HsxmFDataType: TSmallintField;
    qryG_HsxmFDataLen: TSmallintField;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    edYear0: TEdit;
    edYear1: TEdit;
    edMonth: TEdit;
    edDay: TEdit;
    dpLzDate0: TDateTimePicker;
    Label24: TLabel;
    dpLzDate1: TDateTimePicker;
    Label12: TLabel;
    dpPyDate0: TDateTimePicker;
    dpPyDate1: TDateTimePicker;
    Label14: TLabel;
    Label4: TLabel;
    Label17: TLabel;
    panSex: TPanel;
    RadioButton3: TRadioButton;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    tblE_LzCause: TADOTbl;
    tblE_ZhiWu: TADOTbl;
    tblE_ZhiJi: TADOTbl;
    tblE_XueLi: TADOTbl;
    cedZhiWu: TAdoCodeEd;
    qryZhiWu: TADOQry;
    qryZhiWuName: TStringField;
    qryZhiWuCode: TStringField;
    cedXueLi: TAdoCodeEd;
    qryXueLi: TADOQry;
    qryXueLiCode: TStringField;
    qryXueLiName: TStringField;
    Label1: TLabel;
    Label3: TLabel;
    dpZzDate0: TDateTimePicker;
    dpZzDate1: TDateTimePicker;
    Label5: TLabel;
    Label11: TLabel;
    cedZhiJi: TAdoCodeEd;
    qryZhiJi: TADOQry;
    qryZhiJiName: TStringField;
    Label13: TLabel;
    cedJiGuan: TAdoCodeEd;
    qryJiGuan: TADOQry;
    qryZhiJiCode: TStringField;
    qryJiGuanCode: TStringField;
    qryJiGuanName: TStringField;
    Label15: TLabel;
    qryFEmpPyDateM: TIntegerField;
    Label16: TLabel;
    edPyMonth: TEdit;
    qryFEmpBanZu: TStringField;
    procedure FormCreate(Sender: TObject);
    procedure cedDeptGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure edYear0Exit(Sender: TObject);
    procedure cedZhiWuGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure cedXueLiGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure cedZhiJiGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure cedJiGuanGetDisplayText(Sender: TObject;
      var sDisplayText: String);
  private
    { Private declarations }
  public
    { Public declarations }
	Function SetFilter(tsWhere:string) :Boolean; override;
  end;

var
  frmZlEmployeeF: TfrmZlEmployeeF;

implementation

uses Main, SelfFunc;

{$R *.dfm}

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

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