SOS--关于程序的启动顺序问题SOS

Question

project->view source,然后按照如下代码修改
给你一个登录数据库的例子,
程序开始弹出登录对话框,如果选择"确定"就弹出一个闪屏,数据库连结完毕后该窗口自动关闭.如果取消登录,程序会自动终结
  Application.Initialize;
  Application.CreateForm(TDataBase, DataBase);
  LoginDlg := TLogin.Create(Application);
  SplashDlg := TSplashForm.Create(Application);
  for i := 0 to 3 do
  begin
    if LoginDlg.ShowModal = 1 then
    begin
      UserID := LoginDlg.ComboBox1.Text;
      Password := LoginDlg.Edit1.Text;
      SplashDlg.MakeSplash;
      Database.DormConnection.Open(UserID, Password);
      SplashDlg.Close;
      if Database.DormConnection.Connected = True then
      begin
        SplashDlg.Free;
        Application.CreateForm(TMain, Main);
        break;
      end
      else
        Application.MessageBox ('用户名或密码错误','登录出错');
    end
    else
      break;
  end;
  Application.Run;

Answer 1

各位大哥大姐,有没有更好的,或是更容易理解的??还是不行啊,我改了一天了,繁.................