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；