使用Active属性判断可否使用远程数据库

procedure TForm1.FormShow(Sender: TObject)；
begin
Query1.Active := False；
//改变数据库之前，必须将数据集关闭
try
  Query1.DatabaseName := 'ORACLE'；
  //首先将查询组件的数据库名设置成远程数据库，即ORACLE，然后打开查询
  Query1.Active := True；
except
  on EDatabaseError do
    //如果无法连接远程数据库，将出现EDatabaseError异常
    Query1.DatabaseName := 'YaoJian'；
    //如果打开查询出错，则存取本地的Paradox数据库，其数据库名为‘YaoJian’
    Query1.Active := True；
    //打开使用本地数据库的SQL查询
End；
End；