setpasspas.pas

DELPHI 编写个人工作计划事务管理软件

unit SetpassPas;

interface

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

type
  TSetPassForm = class(TForm)
    NewPassLabel: TLabel;
    NewPassComfirmLabel: TLabel;
    ED_NewPass: TEdit;
    ED_ComfirmNew: TEdit;
    IsokBut: TBitBtn;
    CancelBut: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure CancelButClick(Sender: TObject);
    procedure ED_NewPassChange(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure IsokButClick(Sender: TObject);
    procedure ED_ComfirmNewKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SetPassForm: TSetPassForm;
  NewPassOk : Boolean;           //==== 新密码标记 ====//

implementation

{$R *.dfm}

procedure TSetPassForm.FormCreate(Sender: TObject);
begin
  //==== 窗体创建时代码 ====//
  NewPassOk := FALSE;

  ED_NewPass.Clear;
  ED_ComfirmNew.Clear;
end;

procedure TSetPassForm.FormActivate(Sender: TObject);
begin
  ED_NewPass.SetFocus;
end;

procedure TSetPassForm.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  if ModalResult <> mrOK then NewPassOk := TRUE;
end;

procedure TSetPassForm.CancelButClick(Sender: TObject);
begin
  NewPassOk := TRUE;
end;

procedure TSetPassForm.ED_NewPassChange(Sender: TObject);
begin
  if Trim(ED_NewPass.Text) <> '' then IsokBut.Enabled := TRUE
  else IsokBut.Enabled := FALSE;
end;

procedure TSetPassForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  if NewPassOk = FALSE then Action := caNone
  else Action := caFree;
end;

procedure TSetPassForm.IsokButClick(Sender: TObject);
begin
  if CompareStr(Trim(ED_NewPass.Text), Trim(ED_ComfirmNew.Text)) <> 0 then begin
    NewPassOk := FALSE;
    Application.MessageBox('两次密码不相同，请重新输入', '提示', MB_OK);
    ED_ComfirmNew.Clear;
    ED_NewPass.SetFocus;
  end else NewPassOk := TRUE;
  Close;
  ModalResult := mrOK;
end;

procedure TSetPassForm.ED_ComfirmNewKeyPress(Sender: TObject;
  var Key: Char);
begin
  if Key = #13 then IsokButClick(IsokBut);
end;

end.