盒子论坛 v2.1

工程文件：
begin
  passwordform:=tpasswordform.Create(application);
  passwordform.ShowModal;
  if passwordform.modalresult=1 then
  begin
  Application.Initialize;
  Application.CreateForm(Tmainfrm, mainfrm);
  Application.Run;
  end;
end.

tpasswordform窗口部分源码（确定按键）：
procedure Tpasswordform.BitBtn1Click(Sender: TObject);//按下确定键
begin
times:=times+1;
if times<=3 then
begin
  usertable.Filter:='user=''+user.text+'';
  usertable.Filtered:=true;
  if usertable.FieldByName('password').AsString=password.Text then
    passwordform.ModalResult:=1
  else
   begin
    showmessage('您输入的密码出错！');
    passwordform.ModalResult:=2
   end;
  end
else
application.Terminate;
end;

为什么当我每次输错密码后，登录窗口就会自动关闭，程序终止运行了；
密码输正确，程序正常运行，小弟百思不得其解，请各位大哥帮帮忙啊！
还有小弟对ModealResult这个属性不是很了解，望高手请教。

----------------------------------------------
-

作者：

diflay (diflay)	★☆☆☆☆	-
	盒子活跃会员

2003/12/26 15:44:27

1楼：

你可能没处理密码错误后，程序应做什么动作
----------------------------------------------
-

作者：

rhlw (lw)	★☆☆☆☆	-
	盒子活跃会员

2003/12/26 16:42:01

2楼：

passwordform.ModalResult:=2
这个地方出错了.
----------------------------------------------
-你的一句话，会令我少走许多弯路，衷心的多谢指点。

作者：

whhuzq (whhuzq)	★☆☆☆☆	-
	盒子活跃会员

2003/12/26 17:02:43

3楼：

else
   begin
    showmessage('您输入的密码出错！');
    passwordform.ModalResult:=2
   end;
程序根本都跳过这段代码。
----------------------------------------------
-

作者：

leon7808 (烟灰)	★☆☆☆☆	-
	普通会员

2003/12/26 17:55:41

4楼：

passwordform.ModalResult := MrOK ;

passwordform.ModalResult := MrCancel ;

当用户输错密码你想让他重输就不能用 passwordform.ModalResult := MrCancel ;

用一个变量判断错了几次再执行
----------------------------------------------
-

信息

登陆以后才能回复