empjyxle.pas

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

unit EmpJyxlE;

interface

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

type
  TfrmEmpJyxlE = class(TForm)
    qryEdit: TADOQry;
    DataSource1: TDataSource;
    Bevel8: TBevel;
    cmdOK: TBitBtn;
    cmdCancel: TBitBtn;
    cedEmp: TAdoCodeEd;
    qryEmp: TADOQry;
    qryEmpCode: TStringField;
    qryEmpName: TStringField;
    lblCode: TLabel;
    qryEmpID: TIntegerField;
    qryGenByDept: TADOQry;
    cedDept: TAdoCodeEd;
    qryDept: TADOQry;
    qryDeptCode: TStringField;
    qryDeptLongName: TStringField;
    qryEmpState: TSmallintField;
    Label2: TLabel;
    cedKcCode: TAdoCodeEd;
    qryE_PeiXun: TADOQry;
    qryE_PeiXunCode: TStringField;
    qryE_PeiXunName: TStringField;
    qryEditID: TIntegerField;
    qryEditEmpID: TIntegerField;
    qryEditDate0: TDateTimeField;
    qryEditDate1: TDateTimeField;
    qryEditKcCode: TStringField;
    qryEditSxss: TFloatField;
    qryEditCjpy: TStringField;
    Label3: TLabel;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    Label5: TLabel;
    DBEdit4: TDBEdit;
    Label6: TLabel;
    DBEdit5: TDBEdit;
    DataSource2: TDataSource;
    qryByBatch: TAdoMacroQry;
    Label9: TLabel;
    cedPxjs: TAdoCodeEd;
    qryPxjs: TADOQry;
    DataSource3: TDataSource;
    qryEditPxjs: TStringField;
    qryPxjsCode: TStringField;
    qryPxjsName: TStringField;
    qryEditPxJh: TStringField;
    Label4: TLabel;
    cedPxjh: TAdoCodeEd;
    qryPxjh: TADOQry;
    DataSource4: TDataSource;
    qryPxjhCode: TStringField;
    qryPxjhDate0: TDateTimeField;
    qryPxjhPxjc: TStringField;
    qryPxjhJcName: TStringField;
    procedure cmdOKClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure qryEditPostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure cedEmpCodeChange(Sender: TObject);
    procedure qryEditNewRecord(DataSet: TDataSet);
    procedure cedEmpGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure cedDeptGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure FormCreate(Sender: TObject);
    procedure cedKcCodeGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure cedKcCodeCodeChange(Sender: TObject);
    procedure cedPxjsCodeChange(Sender: TObject);
    procedure cedPxjsGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure cedPxjhCodeChange(Sender: TObject);
  private
  	lIsNew :Boolean;
    { Private declarations }
  public
	Function DjByEmp():Boolean;
	Function DjByDept():Boolean;
	Function DjByBatch():Boolean;
	Function DjByJh():Boolean;
	Function Edit(tnID:integer):Boolean;
	{ Public declarations }
  end;

var
  frmEmpJyxlE: TfrmEmpJyxlE;

implementation

uses SelfFunc, EmpJyxl, Main, EmpChoice;

{$R *.DFM}

Function TfrmEmpJyxlE.DjByEmp():Boolean;
begin
	lIsNew :=True;
    Self.Caption :='毙▅癡絤祅癘(