zlemployeev.pas

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

unit ZlEmployeeV;

interface

uses ZlEmployeeD,ZlEmployeeF,
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, Db, Mask, DBCtrls,
  jpeg, MyGrid, FormStore, AdoCodeEd,
  MacroQuery, FR_Class, FR_DSet, FR_DBSet, AdoMacroQry, StoreForm, ADODB,
  ADOQry;

type
  TfrmZlEmployeeV = class(TForm)
    DataSource1: TDataSource;
    MyGrid1: TMyGrid;
    Panel1: TPanel;
    cmdExit: TBitBtn;
    Label1: TLabel;
    Image1: TImage;
    qryDelete: TADOQry;
    StoreForm1: TStoreForm;
    qryG_Hsxm: TADOQry;
    qryG_HsxmCode: TStringField;
    qryG_HsxmName: TStringField;
    qryG_HsxmFDataType: TSmallintField;
    qryG_HsxmFDataLen: TSmallintField;
    cmdPrint: TBitBtn;
    qrySysSet: TADOQry;
    qrySysSetEmpRpts: TStringField;
    cboRptName: TComboBox;
    qryBrowse: TAdoMacroQry;
    qryBrowseID: TIntegerField;
    qryBrowseIfDaKa: TBooleanField;
    qryBrowseState: TSmallintField;
    qryBrowseDept: TStringField;
    qryBrowseCode: TStringField;
    qryBrowseCardNo: TStringField;
    qryBrowseName: TStringField;
    qryBrowseSfz: TStringField;
    qryBrowseBornDate: TDateTimeField;
    qryBrowsePyDate: TDateTimeField;
    qryBrowseSyMonths: TIntegerField;
    qryBrowseZzDate: TDateTimeField;
    qryBrowseLzDate: TDateTimeField;
    qryBrowseLzCause: TStringField;
    qryBrowseZhiWu: TStringField;
    qryBrowseZhiJi: TStringField;
    qryBrowseJxfs: TStringField;
    qryBrowseXueLi: TStringField;
    qryBrowseHunYin: TStringField;
    qryBrowseJiGuan: TStringField;
    qryBrowseNation: TStringField;
    qryBrowseRoomBed: TStringField;
    qryBrowsesSex: TStringField;
    qryBrowsesDept: TStringField;
    qryBrowsesZhiWu: TStringField;
    qryBrowsesZhiJi: TStringField;
    qryBrowsesJxfs: TStringField;
    qryBrowsesXueLi: TStringField;
    qryBrowsesHunYin: TStringField;
    qryBrowsesJiGuan: TStringField;
    qryBrowsesNation: TStringField;
    qryBrowsesLzCause: TStringField;
    qryBrowseMemo: TStringField;
    qryBrowseDeptName: TStringField;
    cmdQuery: TBitBtn;
    cmdLocate: TBitBtn;
    lblCount: TStaticText;
    procedure cmdExitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cmdQueryClick(Sender: TObject);
    procedure cmdLocateClick(Sender: TObject);
    procedure qryBrowseAfterOpen(DataSet: TDataSet);
    procedure MyGrid1DblClick(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
	dlgMultiFilter :TfrmZlEmployeeF;

    dlgZlEmployeeD :TfrmZlEmployeeD;
  public
    { Public declarations }
  end;

var
  frmZlEmployeeV: TfrmZlEmployeeV;

implementation

uses RptExcel, SelfFunc, Main, TEmpByOld, DsLocate;

{$R *.DFM}

procedure TfrmZlEmployeeV.cmdExitClick(Sender: TObject);
begin
	Close;
end;

procedure TfrmZlEmployeeV.FormCreate(Sender: TObject);
var ts :string;
begin
	Image1.Picture.Assign(frmMain.imgTitle.Picture);

	dlgMultiFilter :=TfrmZlEmployeeF.Create(Self);
    dlgMultiFilter.qryBrowse :=qryBrowse;
  with dlgMultiFilter do
  begin
    ts :=''; //