F
fobxoahn_hjc
Unregistered / Unconfirmed
GUEST, unregistred user!
我想要在出现主窗口之后，再显示出一个登陆窗口，密码正确后才能进入，但是在close登陆窗口时，就程序都给关闭了，？？？？
1,我在主窗口的Tmaiform.FormActivate事件中
frmdl.ShowModal;//打开登陆窗口
2,在登陆窗口中我的'确认'按钮中的事件
with datamodule1.tbldl do
begin
if edit1.text<>tbldl.fieldbyname('password').asstring then
showmessage('密码输入错误，请重新输入!')
else
frmdl.close ;
end;
end;
1,我在主窗口的Tmaiform.FormActivate事件中
frmdl.ShowModal;//打开登陆窗口
2,在登陆窗口中我的'确认'按钮中的事件
with datamodule1.tbldl do
begin
if edit1.text<>tbldl.fieldbyname('password').asstring then
showmessage('密码输入错误，请重新输入!')
else
frmdl.close ;
end;
end;