loginunit.pas

-个人文档管理专家V1.10版本源码

unit LoginUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, SUIButton, StdCtrls, SUIEdit, SUIForm, PublicUnit;

type
  TLoginFrm = class(TForm)
    suiForm1: TsuiForm;
    sedt_password: TsuiEdit;
    StaticText1: TStaticText;
    sbtn_Ok: TsuiButton;
    sbtn_cancel: TsuiButton;
    procedure sbtn_OkClick(Sender: TObject);
    procedure sbtn_cancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  LoginFrm: TLoginFrm;

implementation

{$R *.dfm}

procedure TLoginFrm.sbtn_OkClick(Sender: TObject);
begin
  if sedt_password.Text <>PUserPassword then
  begin
    MessageBox(Handle,'密码错误，请重试！','提示',MB_OK+MB_ICONERROR);
    Exit;
  end;
  ModalResult:=mrOk;
end;

procedure TLoginFrm.sbtn_cancelClick(Sender: TObject);
begin
  ModalResult:=mrCancel;
end;

end.