关于用户密码登录的问题

Question

请问大家，如何在主窗体没有出现的情况下，让用户登录录窗体先弹出，然后等用户输入完用户名和密码后，主窗体在弹出来。谢谢。

Answer 1

1。把你的登录窗口用UNIT级函数包起来
2。在BPL里面写代码，就是在APPLICATION.RUN的前面调用登录窗口，根据登录窗口的返回值来决定是否弹出主窗口

Answer 2

好多种办法了，
一个简单的就是创建form1implementation
uses unit2;
procedure TForm1.FormShow(Sender: TObject);
var
myform:Tform;
begin
try
  myform:=Tform2.Create(form1);
  form2.ShowModal;
  except
  end;
end;
//这是因为delphi创建顺序是form1的show，然后是form2的show
//所以先用showmodal创建form2,如果form2没有返回，就不会
回去创建form1
//如果要密码不对就推出那么在form2的确定时间中加入 application.Terminate,
//如果对了就form2.close;进入form1