为什么在登陆模块中，当输入错误地密码，还有取消登陆后还是可以进入主界面？(0分)

luole103 · 2006-06-06

为什么在登陆模块中，当输入错误地密码，还有取消登陆后还是可以进入主界面，取消的代码是：ModalResult := mrCancel;
LoginForm.Close ;
MainForm.Close;
？？？？？是那里有错误。谢谢

Chen Yu · 2006-06-07

单步调试一下就知道了

Mike1234567890 · 2006-06-07

来了更保险一点的
你把其它的窗口都设置成手工创建
只留下登陆窗口
只有登陆成功后由登陆窗口创建其它的窗口
就没问题了

huiyue · 2006-06-07

主程序中没有对登陆的结果进行判断。
应该是只有当ModalResult := mrOK的时候才可以
否则就Application。terminate；

天山雪莲 · 2006-06-07

不要在登录单元中写代码，在工程文件中写代码就可以了。

onlyonekgx · 2006-06-07

if ModalResult := mrCancel then
LoginForm.Close ;
MainForm.Close;

我猜想，只执行了 LoginForm.Close ，而 MainForm.Close; 没有执行，
可以直接用
Application。terminate

babibean · 2006-06-07

程序的主窗体不要设置,动态创建它.

ranyang · 2006-06-07

楼上说得对

lifangchao2008 · 2006-06-07

这个问题我也遇到过！你可以在窗体的Close事件写如这样的代码
begin
Application.terminate；
end;
这样就可以关闭整个程序了！