login.pas

1. 直接安装并运行案例程序 运行“安装程序”文件夹中的setup.exe文件

unit login;

interface

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

type
  TfrmLogIn = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    name: TEdit;
    pwd: TEdit;
    Label3: TLabel;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmLogIn: TfrmLogIn;
  function checkPassword(s:string):integer;export;
implementation

uses pwdFunc;

{$R *.dfm}

function checkPassword(s:string):integer;export;
var
   count:integer;
   rt:integer;
begin
   count:=0;
   frmLogin:=TfrmLogin.Create(Application);
   frmLogin.Label3.Caption:=s;
   while count<3 do
   begin
      rt:=frmLogin.showModal;
      if rt=mrCancel then //用户按取消
      begin
         result:=0;
         break;
      end
      //登陆成功
      else
      begin
      result:=checkIt(frmLogin.name.text,frmLogin.pwd.text);
      if (rt=mrOK) and (result<>0) then
      begin
         break;
      end
      else                             //失败
         begin
            count:=count+1;
            if count>=3 then
            begin
               messageDlg('您已经失败3次，程序将终止',mtWarning,[mbOk],0);
               result:=0;
               break;
            end
            else
               messageDlg('密码错误，请重试',mtWarning,[mbOk],0);
         end;
      end;
   end;//end of while
   frmLogin.Free;
end;

{ TfrmLogIn }



end.