?? 實例——使用active屬性判斷可否使用遠程數據庫.txt
字號:
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;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -