登陆界面问题

Question

我在进主界面前先进一个登陆界面，输入用户名，密码，符合的进入主界面，但现在
不等我输入就直接进入了主界面。
代码如下
  Application.Initialize;
  frmlogin:=Tfrmlogin.create(application);
  frmlogin.show;
  frmlogin.update;
   If frmlogin.nameedit.Text='dd' then
     frmlogin.Free;
  Application.CreateForm(Tfrmlogin, frmlogin);
  Application.CreateForm(Tfrmmain, frmmain);
  Application.CreateForm(Tfrmsearch, frmsearch);
  Application.CreateForm(Tfrmuserpassword, frmuserpassword);
  AA:=TDATAMSAVETHREAD.CREATE(FALSE);
 
 Finallyend;//
 Application.Run;

Answer 1

Application.CreateForm(Tfrmlogin, frmlogin);
  Application.CreateForm(Tfrmmain, frmmain);
  Application.CreateForm(Tfrmsearch, frmsearch);
  Application.CreateForm(Tfrmuserpassword, frmuserpassword);
  AA:=TDATAMSAVETHREAD.CREATE(FALSE);
 frmlogin:=Tfrmlogin.create(application);
  frmlogin.show;
  frmlogin.update;
在frmlogin窗体的OnClose中写
   close ;
   if nameedit.text<>'dd' then
      Main.close;
注：frmlogin必须设置为Available Forms
      

Answer 2

在frmmain的oncreate事件里建立frmlogin并判断是否可以登陆成功！

Answer 3

weitao999(涛涛)的可以实现，用模态窗体即可。
另一种方式就是在程序文件中实现，不设置主窗体，所有窗体都手工创建。

Answer 4

Application.CreateForm(TFrm_Logo, Frm_Logo);
  Frm_Logo.Show;
  Application.Run;
然后在Frm_Logo中的OnActivate事件里写条件判断！
有问题请发信息到我的E-mail:[email protected]

Answer 5

忘了在project单元中
  Application.ShowMainForm:=false;
有问题请发信息到我的E-mail:[email protected]