changeuserfrm.pas

来自「考勤管理是企业内部管理的重要环节和基础」· PAS 代码 · 共 52 行

unit ChangeUserFrm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  logofrm, DBCtrls, StdCtrls, Buttons;


resourcestring
  sPassword='您的口令不正确,请再输一次!';
  
type
  TChangeUserForm = class(TLogoform)
    procedure bbtnCancelClick(Sender: TObject);
    procedure bbtnConfrimClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ChangeUserForm: TChangeUserForm;

implementation

uses unDM2, Globals, dialog;

{$R *.DFM}

procedure TChangeUserForm.bbtnCancelClick(Sender: TObject);
begin
  ChangeUserForm.Close;
end;

procedure TChangeUserForm.bbtnConfrimClick(Sender: TObject);
begin
   if UpperCase(Trim(edtID.text))=DM2.tblLogoPassWord.Value then begin
     glUserID:=DM2.tblLogoUserID.Value;
     Accredit:=DM2.tblLogoLiberty.Value;
      ModalResult := mrOK;
   end
   else begin
     MessageDlg(Pchar(sPassword),mtInformation,[mbOK],0);
     edtID.text:='';
     edtID.SetFocus;
   end;
end;

end.