qgxkk.pas

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

unit QGxkk;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, StdCtrls, Buttons, Mask, DBCtrls, ExtCtrls, Db,
  CodeEd, ADODB, ADOQry, ADOProcedure, AdoCodeEd;

type
  TfrmQGxkk = class(TForm)
    qrySession: TADOQry;
    qrySessionID: TIntegerField;
    qrySessionDate0: TDateTimeField;
    qrySessionDate1: TDateTimeField;
    qrySessionMemo: TStringField;
    qrySessionIsEnd: TBooleanField;
    DataSource3: TDataSource;
    Panel1: TPanel;
    Label1: TLabel;
    Label5: TLabel;
    cboSession: TDBLookupComboBox;
    cmdExit: TBitBtn;
    DBGrid1: TDBGrid;
    qryBrowse: TADOQry;
    qryBrowseName: TStringField;
    qryBrowseCode: TStringField;
    DataSource1: TDataSource;
    qryEmp: TADOQry;
    cedEmp: TAdoCodeEd;
    qryBrowseSAmount: TFloatField;
    qryBrowseSCost: TFloatField;
    cmdKouKuan: TBitBtn;
    procAddGxJj: TADOProcedure;
    qryGx: TADOQry;
    qryEmpID: TIntegerField;
    qryEmpCode: TStringField;
    qryEmpName: TStringField;
    qryEmpState: TSmallintField;
    Image1: TImage;
    qryGxID: TIntegerField;
    qryGxCode: TStringField;
    procedure cmdExitClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure cedEmpCodeChange(Sender: TObject);
    procedure cedEmpGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure cmdKouKuanClick(Sender: TObject);
    procedure cboSessionExit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmQGxkk: TfrmQGxkk;

implementation

uses RptExcel, SelfFunc, Main;

{$R *.DFM}

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

procedure TfrmQGxkk.FormKeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
    begin
		key :=#0;
		SelectNext(ActiveControl,True,True);
    end
end;

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