frmpwd.pas

来自「详细说明:毕业论文中关于小型宾馆管理系统的详细设计毕 业论文中关于小型宾馆...」· PAS 代码 · 共 73 行

unit frmPwd;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons,dialogs;

type
  TPasswordDlg = class(TForm)
    Label1: TLabel;
    Password: TEdit;
    OKBtn: TButton;
    CancelBtn: TButton;
    edConf: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    eOldpwd: TEdit;
    procedure OKBtnClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
  private

    { Private declarations }
  public
    { Public declarations }
  end;

var
  isClose:boolean;
//  PasswordDlg: TPasswordDlg;

implementation

{$R *.DFM}

procedure TPasswordDlg.OKBtnClick(Sender: TObject);
begin
  isclose:=true;
  if length(Password.text)<6 then begin
         MessageDlg('The password must be between six and sixteen inclusive !', mtWarning,[mbOk], 0);
         isClose:=false;
         Exit;
  end;
 if Password.text<> edConf.text then begin
     isclose:=false;
     MessageDlg('The Password doesn''t match', mtWarning,[mbOk], 0);

  end;


end;

procedure TPasswordDlg.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
 CanClose:=isClose;
end;

procedure TPasswordDlg.FormCreate(Sender: TObject);
begin
isclose:=true;
end;

procedure TPasswordDlg.CancelBtnClick(Sender: TObject);
begin
  isclose:=true;
  Close;
end;

end.