chgpasswd.pas

来自「这是一个DELPHI7应用案例开发篇有配套程序种子光盘」· PAS 代码 · 共 50 行

unit ChgPasswd;

interface

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

type
  TfrmChgPasswd = class(TForm)
    Label1: TLabel;
    edOldPW: TEdit;
    Label2: TLabel;
    edNewPW: TEdit;
    Label3: TLabel;
    edVerifyPW: TEdit;
    Bevel1: TBevel;
    btnOK: TButton;
    btnCancel: TButton;
    procedure btnOKClick(Sender: TObject);
  private
    { Private declarations }
  public
    Password:String;
    NewPassword:String;
  end;

var
  frmChgPasswd: TfrmChgPasswd;

implementation

uses DataM;

{$R *.dfm}

procedure TfrmChgPasswd.btnOKClick(Sender: TObject);
begin
    if (Password = edOldPW.Text) and
        (edNewPW.Text = edVerifyPW.Text) and
        (Length(edNewPW.Text)>5) then
    begin
        NewPassword := edNewPW.Text;
        ModalResult := mrOK;
    end;
end;

end.