zlemployeel.pas

来自「感应IC卡电脑考勤、门禁、售饭一卡通管理系统是基于我公司开发生产的ESW型智能卡」· PAS 代码 · 共 85 行

unit ZlEmployeeL;

interface

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

type
  TfrmZlEmployeeL = class(TForm)
    qryEdit: TADOQry;
    DataSource1: TDataSource;
    cmdCancel: TBitBtn;
    cmdOK: TBitBtn;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    qryLzCause: TADOQry;
    qryLzCauseCode: TStringField;
    qryLzCauseName: TStringField;
    CodeEd1: TAdoCodeEd;
    Label5: TLabel;
    DBEdit4: TDBEdit;
    qryEditID: TIntegerField;
    qryEditCode: TStringField;
    qryEditName: TStringField;
    qryEditLzDate: TDateTimeField;
    qryEditLzCause: TStringField;
    qryEditMemo: TStringField;
    qryEditPyDate: TDateTimeField;
    qryEditCardNo: TStringField;
    Label6: TLabel;
    DBEdit5: TDBEdit;
    Label7: TLabel;
    DBEdit6: TDBEdit;
    qryEditState: TSmallintField;
    qrySetCard: TADOQry;
    chkClearCard: TCheckBox;
    procedure cmdOKClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure CodeEd1CodeChange(Sender: TObject);
    procedure CodeEd1GetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
	Function LiZhi(nCurID:integer):Boolean;
    { Public declarations }
  end;

var
  frmZlEmployeeL: TfrmZlEmployeeL;

implementation

uses SelfFunc;

{$R *.DFM}
Function TfrmZlEmployeeL.LiZhi(nCurID:integer):Boolean;
begin
    with qryEdit do
    begin
        Close;
        Parameters[0].Value :=nCurID;
        Open;
    end;

    qryEdit.Edit;
    qryEditLzDate.Value :=Date();
	CodeEd1.CodeText :=qryEditLzCause.Value;

    Result :=(Self.ShowModal()=mrOK);
end;

procedure TfrmZlEmployeeL.cmdOKClick(Sender: TObject);
begin
	if qryEditLzDate.IsNull then
    begin
    	MsgBox('叫块