ueditpassword.pas

Delphi学籍管理程序,以Delphi7.0为前台开发工具

unit uEditPassword;

interface

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

type
  TdlgEditPassword = class(TForm)
    leNewPassword1: TLabeledEdit;
    leNewPassword2: TLabeledEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


procedure EditPassword(Var PSW: string);

implementation

uses uDM;

{$R *.dfm}

procedure EditPassword(Var PSW: string);
var
  dlgEditPassword: TdlgEditPassword;
begin
  dlgEditPassword := TdlgEditPassword.Create(nil);
  try
    if dlgEditPassword.ShowModal = mrOK then begin
      SetPassword(dlgEditPassword.leNewPassword2.Text);
      PSW := dlgEditPassword.leNewPassword2.Text;
    end;
  finally
    FreeAndNil(dlgEditPassword);
  end;
end;

procedure TdlgEditPassword.BitBtn1Click(Sender: TObject);
begin
  if leNewPassword1.Text = leNewPassword2.Text then begin
    ModalResult := mrOk;
    exit;
  end else begin
    MessageBox(Handle, PChar('两遍密码不一致，请重新输入!'), PChar('警告'), 48);
    leNewPassword1.SetFocus;
  end;
end;

end.