让程序启动时装载启动画面同时判断数据库连接是否正常,如果连不上显示数据库设置窗体,怎样写代码.

Question

要让程序启动时装载启动画面和判断数据库连接是否正常,如果连不上显示数据库设置窗体,怎样写代码.
请给段代码提示,谢谢!

Answer 1

先显示装载启动画面，利用timer启动一段代码，检测数据库连接是否正常，如果不正常弹出数据库连接设置窗体，正常则启动另一窗体！

Answer 2

try 
   query1.open;
  ......except 
   启动画面

Answer 3

不知道你用的什么数据库,还有是否用DataModule
编译时,不要连接数据库和数据表active 和connected都为false;
如果没有用DataMoule,直接把数据控件放在主窗口的话,添加主窗口的OnCreate事件
procedure TForm1.FormCreate(Sender: TObject);begin
try
database1.Connected := true;
table1.Open;
except
showmessage('Cannot open the database!'+ e.Message);
end;
end;
如果用DataModule,就把以上代码放在DataModule的OnCreate事件

Answer 4

更正:你用的ADO,还是BDE连接?
ADO方式: 
//设计时adoconnection1.Connected=false, adoquery1.active =false;
uses forms;
procedure TDataModule1.DataModuleCreate(Sender: TObject);
begin
try
adoconnection1.Connected;
adoconnection1.ConnectionString:=
'Provider=Microsoft.Jet.OLEDB.4.0;'+
'Data Source=your.mdb;'+
'Persist Security Info=True;'+
'Jet OLEDB:Database Password=your password';
AdoQuery1.Active :=true;
except
application.MessageBox('数据库连接出错,请与我联系',
'数据库连接出错',mb_ICONError+MB_OK);
end;
end;