求帮助看看关于登陆窗口的问题(50分)(50分)

  • 主题发起人 fobxoahn_hjc
  • 开始时间
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;
 
W

whatdelphi

Unregistered / Unconfirmed
GUEST, unregistred user!
with datamodule1.tbldl do
begin
if edit1.text<>tbldl.fieldbyname('password').asstring then
showmessage('密码输入错误,请重新输入!')
else
主窗体.show;
end;
end;
 
F

fobxoahn_hjc

Unregistered / Unconfirmed
GUEST, unregistred user!
不行呀,主窗体不能操作呀,
 
0

001zqk

Unregistered / Unconfirmed
GUEST, unregistred user!
你貼出的代碼不會導致程序關閉,應該是其它地方有總是.
frmdl窗口的Close事件中有沒有總題呀.
 
P

pub66cn

Unregistered / Unconfirmed
GUEST, unregistred user!
工程单元
begin
Application.Initialize;
Login :=TLoginfrm.Create(Application);//登录窗口
if Login.ShowModal =1 then
//登录窗口关闭时返回的值为1,说明登录成功
begin
Application.CreateForm(TMainfrm, Mainfrm);
end;
Login.Free();
Application.Run;
////////////////////////////////
登陆窗体
if 密码 =正确 then
Self.ModalResult :=1
 
B

babibean

Unregistered / Unconfirmed
GUEST, unregistred user!
frmdl.close ;
改成
frmdl.hide;
 

傷的傷痕

Unregistered / Unconfirmed
GUEST, unregistred user!
把主窗体隐藏,而不是关闭;
同意 babibean 的观点.
 
S

slf0205

Unregistered / Unconfirmed
GUEST, unregistred user!
不能是close;
 
S

sunnyfairy

Unregistered / Unconfirmed
GUEST, unregistred user!
这样的问题满天飞呀,建议查看一些离线包
 
W

whatdelphi

Unregistered / Unconfirmed
GUEST, unregistred user!
你那个 frmdl.ShowModal;不要写到Tmaiform.FormActivate事件中
写到主窗体Show里面就可以,然后调用登陆窗体,主窗体这时候不关闭,如果密码正确再把Frmdl.close;就可以了
 
X

xounter

Unregistered / Unconfirmed
GUEST, unregistred user!
同意,babibean,傷的傷痕
hide可以的,不用close
 

Similar threads

顶部