gz_txjl.pas

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

unit Gz_Txjl;

interface

uses MultiFilter,
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, Db, Mask, DBCtrls,
  Provider, DBClient, ObeyTable, jpeg, MyGrid, FormStore, AdoCodeEd,
  MacroQuery, ComCtrls, AdoMacroQry, ADODB, ADOQry, StoreForm;

type
  TfrmGz_Txjl = class(TForm)
    DataSource1: TDataSource;
    MyGrid1: TMyGrid;
    Panel1: TPanel;
    cmdExit: TBitBtn;
    Label1: TLabel;
    Image1: TImage;
    StoreForm1: TStoreForm;
    qryDept: TADOQry;
    qryDeptCode: TStringField;
    qryDeptLongName: TStringField;
    qryG_Hsxm: TADOQry;
    qryG_HsxmCode: TStringField;
    qryG_HsxmName: TStringField;
    qryG_HsxmFDataType: TSmallintField;
    qryG_HsxmFDataLen: TSmallintField;
    cmdPrint: TBitBtn;
    Label2: TLabel;
    cedDept: TAdoCodeEd;
    qryBrowse: TAdoMacroQry;
    qryBrowseDept: TStringField;
    qryBrowseCode: TStringField;
    qryBrowseName: TStringField;
    qryBrowsesSex: TStringField;
    qryBrowsesDept: TStringField;
    qryBrowsesZhiWu: TStringField;
    qryBrowsesZhiJi: TStringField;
    qryBrowsesJxfs: TStringField;
    cmdLocate: TBitBtn;
    cmdQuery: TBitBtn;
    qryBrowsePyDate: TDateTimeField;
    qryBrowseXuHao: TIntegerField;
    procedure cmdExitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cedDeptGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure rgIfLz0Click(Sender: TObject);
    procedure cmdLocateClick(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure cmdQueryClick(Sender: TObject);
    procedure cedDeptCodeChange(Sender: TObject);
  private
	dlgMultiFilter :TfrmMultiFilter;
  public
    { Public declarations }
  end;

var
  frmGz_Txjl: TfrmGz_Txjl;

implementation

uses RptExcel, SelfFunc, Main, DsLocate;

{$R *.DFM}

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

procedure TfrmGz_Txjl.FormCreate(Sender: TObject);
var ts :string;
	n :integer;
begin
	if frmMain.czyQxDept <>'' then //场