为什么在登陆模块，当我输入错误的密码是提示＇请输入正确的用户名和密码＇后点击确定，可进入主界面．请指教！！！急！谢谢！！！(0分)

L

luole103

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-07

• #1

为什么在登陆模块，当我输入错误的密码是提示＇请输入正确的用户名和密码＇后点击确定，可进入主界面，我的程序如下：
MessageDlg('请输入正确的用户名和密码',mtError,[mbok],0);
Exit;
是那里缺少什么？
请指教！！！急！谢谢！！！

 

Z

zkktom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-08

• #2

你用exit就是错误的！ 这样就退出了这个判定
应该这样使用
repeat
密码校验语句
MessageDlg('请输入正确的用户名和密码',mtError,[mbok],0);
untile
帐号正确

 

B

babibean

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-08

• #3

Exit;
改成
abort;
看看

 

H

hairboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-08

• #4

将主Form设成登录的Form

 

D

Delphiboy_lwb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-08

• #5

很简单,看看下边的代码
buttononclick()
begin
if isOk then ModelResult:= mrOk
else "密码输入错误"
end;
这样当密码输入错误后永远的停在原先的登录界面