如何安排这几个窗体？

Question

1。闪现窗体2。正在连接数据库提示窗体（C/S版）3。登录窗体4。主窗体 启动顺序应该是这样：
1.“闪现窗体”，
2.2分钟后，提示“数据库正在连接”
3.若连接成功，出现“登录窗体”，否则结束程序
4.若登录成功，主窗体出现。
5.结束程序各个窗体中代码如何如何写，如何安排？
另外，提示正在连接数据库的代码怎么写，写在什么地方？

Answer 1

问题在帖子里讲很难一下讲清楚，因为有些细节方面的问题比较具体。最好的办法是下个相关的程序，自己慢慢研究。提供几个相关站点：http://www.delphifans.comhttp://www.delphibox.com

Answer 2

每个窗体基本不太需要程序，需要在主程序中对窗体的SHOW，HIDE进行控制，并且需要根据主程序的执行状态进行判断，是不是需要SHOW或HIDE。
比如数据库连接成功
if @@error<>0 then
begin
messagebox(0,'Wrong information','Tip',mb_ok);
return
end
else begin
  flashform.hide;
  connform.hide;
  login.show;
end;
if 用户合法　then begin
  login.hide;
  main.show;
end;
具体内容您就自己加吧

Answer 3

var
  n:DWORD;
begin
  Application.Initialize;
  startform:=tstartform.create(application);
  startform.Show;
  startform.Update;
  n:=GetTickOut;
  while n+3000>GetTickOut do
    Application.ProcessMessages;
  startform.hide;
  startform.free;
  
  //try
    //同上，此处载入数据库正在连接窗体
  
    Application.Title := '人事管理系统';
    Application.CreateForm(TDataModule1, DataModule1);//连接数据库  //Finally
    //释放数据库正在连接窗体
    //Application.Terminate;
  //end;  F_login:=TF_login.Create(nil);
  if F_login.ShowModal = mrOk then
  begin
    Application.CreateForm(TF_main, F_main);
    Application.Run;
  end else Application.Terminate;
end;

Answer 4

在Application代码段做文章连接请求后，用Application.processmessage把消息处理转移给系统

Answer 5

谢谢高手们大力相助，最后用的是show/hide来控制！

Answer 6

1。 请问下@@error<>0  这句是什么意思？2。再有 
  T..form.creat(self)
  T..form.creat(application)
  T..form.creat(nil)
  不同的参数有什么不同？