实例——使用active属性判断可否使用远程数据库.txt

Delphi 7组件应用实例 书籍语言： 简体中文 书籍类型： 程序设计 授权方式： 免费软件 书籍大小： 105 KB

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；