大家帮帮我!急!(50分)

  • 主题发起人 主题发起人 hurryman
  • 开始时间 开始时间
H

hurryman

Unregistered / Unconfirmed
GUEST, unregistred user!
begin
Application.Initialize;
Application.CreateForm(TDataModule2, DataModule2);
try
logform:=tlogform.Create(application);
logform.ShowModal ;
if logform.ModalResult=mrok then
begin
Application.CreateForm(Tmainform, mainform);
application.Run ;
end;
finally
logform.Free ;
end;
Application.CreateForm(TmainForm, mainForm);
Application.Run;
end.

这是我的项目文件,我用的是MDI,那么,当我在主菜单选择注销的时候,又要调用登陆
的窗体,但,登陆窗体是在MDI的主窗体前生成的,我可以在MDI 的主窗体调用登陆的的
窗体,但是,我不能使用登陆窗体上的登陆按牛的功能了,就是说,我调出了登陆窗体,
输入用户名和密码后按确认没有效。大家帮我看看
 
登录窗体只不过改变了几个变量的值
考虑一下用其它方法改变
 
if logform.ModalResult=mrok then

窗体岂不是要创建两次,好像有问题,和和

本来那个功能不是挺简单的? 怎么搞得那么麻烦?
 
你为什么要去创建MainForm???
你到底那个是主form?
+++++++++++++++++++++++++++++++++++++++++++++
我的做法是show出主form后,显示login form,如果密码3次错误
自动退出
登出就是恢复程序的初始设定,自动在跳出Login Form,不会有问题
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
要不要给你个例子?


 
你在登陆按钮里做了什么事情
 
把您的密码验证,防到mainform.onactive 中
 
不是这样写的,先Create主Form窗体,再Create登录窗体,登录窗体用StayOnTop,就可以了。
如果三次密码错误,就Terminate主窗体。
 

Similar threads

后退
顶部