frmexampasswordpas.pas

是一个用delphi设计的考勤系统

unit frmExamPassWordPas;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ModalForm, StdCtrls, Menus, UErrDisplay, ExtCtrls, ImgList;

type
  TfrmExamPassWord = class(TMyModalForm)
    Label1: TLabel;
    Edit1: TEdit;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure imgCloseButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmExamPassWord: TfrmExamPassWord;

implementation

uses UGlobal, UGeneralFunc, UPublicFunc;

{$R *.dfm}

procedure TfrmExamPassWord.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if key = #13 then
  begin      // Decode Encode
 // showmessage(gtUser.password);
    if trim(edit1.Text) <> gtUser.password then
    begin
      application.MessageBox('密码有误，请重新输入！', '系统提示', mb_ok + mb_iconwarning);
      edit1.SetFocus;
      edit1.SelectAll;
    end
    else
    begin
      ModalResult := mrOK;
    end;
  end;
end;

procedure TfrmExamPassWord.FormShow(Sender: TObject);
begin
  inherited;
  edit1.SetFocus;
  edit1.SelectAll;
end;

procedure TfrmExamPassWord.imgCloseButtonClick(Sender: TObject);
begin
  ModalResult := mrCancel;
  exit;
  inherited;
end;

end.