checkpswdfrm.pas

我觉得是很好的一个程序是关于房产中介的管理系统包跨哦出租出售求租求售的

unit CheckPswdFrm;

interface

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

type
  TCheckPswdForm = class(TForm)
    Label2: TLabel;
    CheckPswdEdit: TEdit;
    OkBtn: TBitBtn;
    CancelBtn: TBitBtn;
    procedure OkBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Password:string;
    IsRight:Boolean;
  end;

var
  CheckPswdForm: TCheckPswdForm;

implementation

{$R *.DFM}

procedure TCheckPswdForm.OkBtnClick(Sender: TObject);
begin
  if CheckPswdEdit.Text=Password then
  begin
    IsRight:=True;
    Close;
  end else
  begin
    MessageBox(Handle,'密码验证错误','密码错误',MB_OK);
    CheckPswdEdit.SetFocus;
  end;
end;

procedure TCheckPswdForm.FormCreate(Sender: TObject);
begin
  IsRight:=False;
end;

end.