数据库配置问题

Question

我现在想系统运行的时候如果数据库服务器连接错误的话就先把数据库服务器设置的窗口打开,重新设置完数据库后把系统关闭,然后再运行系统,主窗体为模式窗体,数据库服务器设置窗体为非模式窗体.我在主窗体的FormCreate中加入如下语句:
var
  frmSerSet:TfrmSerSet;
begin
  ReadIni;
  MainConn.Connected:=false;
  MainConn.ConnectionString:='Provider=SQLOLEDB.1;Persist Security  Info=true;User ID='+FUserName+';Password='+FPassWord+';Initial Catalog='+FDataBase+';Data Source='+FServerName+';';
  try
    MainConn.Connected:=true;
  except
    frmSerSet:=TfrmSerSet.Create(application);
    frmSerSet.Show;
    application.Terminate;
  end;
end;
为什么不出来数据库服务器设置窗体?请指教!多谢!

Answer 1

把下面代码放在窗体显示事件中
var
  frmSerSet:TfrmSerSet;
begin
  ReadIni;
  MainConn.Connected:=false;
  MainConn.ConnectionString:='Provider=SQLOLEDB.1;Persist Security  Info=true;User ID='+FUserName+';Password='+FPassWord+';Initial Catalog='+FDataBase+';Data Source='+FServerName+';';
  try
    MainConn.Connected:=true;
  except
  frmSerSet:=TfrmSerSet.Create(application);
    frmSerSet.Show;
    //application.Terminate;这句不应该放在这儿，刚显示就关掉程序，那还能吗
  end;  
end;

Answer 2

frmSerSet.Show;用showmodal要 = mrok 再退出吧