kq_carde.pas

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

unit Kq_CardE;

interface

uses Variants,
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, DBCtrls, ExtCtrls, Db, ObeyTable, Buttons,
  CodeEd, OleCtnrs, ComCtrls, TimeIntField, ADODB, ADOQry, AdoCodeEd;

type
  TfrmKq_CardE = class(TForm)
    qryEdit: TADOQry;
    DataSource1: TDataSource;
    Bevel8: TBevel;
    cmdOK: TBitBtn;
    cmdCancel: TBitBtn;
    qryEditID: TIntegerField;
    qryEditCardNo: TStringField;
    qryEditEmpID: TIntegerField;
    qryEditDate0: TDateTimeField;
    qryEditDate1: TDateTimeField;
    qryEditFType: TSmallintField;
    qryEditNote: TStringField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    cedEmp: TAdoCodeEd;
    qryEmp: TADOQry;
    qryEmpCode: TStringField;
    qryEmpName: TStringField;
    Label5: TLabel;
    edEmpName: TEdit;
    Label6: TLabel;
    qryEmpCardNo: TStringField;
    Label7: TLabel;
    edOldCard: TEdit;
    qryEditOldCardNo: TStringField;
    qryEmpID: TIntegerField;
    qryCheck: TADOQry;
    qryChecklOk: TIntegerField;
    qryEmpState: TSmallintField;
    qrySysSet: TADOQry;
    qrySysSetKzType: TStringField;
    qryLast: TADOQry;
    qryLastEmpID: TIntegerField;
    qryLastDate0: TDateTimeField;
    qryLastDate1: TDateTimeField;
    qryLastID: TIntegerField;
    qryLastCardNo: TStringField;
    qryUpdEmp: TADOQry;
    qryUpdLast: TADOQry;
    qryDelete: TADOQry;
    Label8: TLabel;
    qryEditCzy: TStringField;
    Label9: TLabel;
    DBEdit5: TDBEdit;
    procedure cmdOKClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure cedEmpCodeChange(Sender: TObject);
    procedure qryEditBeforePost(DataSet: TDataSet);
    procedure qryEditCardNoSetText(Sender: TField; const Text: String);
    procedure FormCreate(Sender: TObject);
    procedure qryEditNewRecord(DataSet: TDataSet);
  private
    { Private declarations }
  	lIsNew :Boolean;
    lCardNo_5 :Boolean;
  public
	{ Public declarations }
	Function FaKa():Boolean;
	Function Edit(tnID:integer;tnEmpID:integer):Boolean;
	Function Delete(tnID:integer;tnEmpID:integer):Boolean;
  end;

var
  frmKq_CardE: TfrmKq_CardE;

implementation

uses SelfFunc, Kq_Card, Main;

{$R *.DFM}

Function TfrmKq_CardE.FaKa():Boolean;
begin
	lIsNew :=True;
    Self.Caption :='祇/干