假設我要執行一個SQL指令，當User勾選連結Local端時，是用TSQLQuery去執行指令，
當User勾選連結Server端時，是用TQuery去執行指令，
想要請教一下，有什麼方法可以只寫一段程式，而不用寫兩段程式呢?

假設Chbx_Local.Checked=true表示要連結Local端
假設Chbx_Server.Checked=true表示要連結Server端

//以下是用最笨最簡單的方法，將程式寫成兩段，請問，有辦法寫成一段嗎?
if Chbx_Local.Checked=true then
begin
SQLQuery1.close;
SQLQuery1.sql.clear;
SQLQuery1.sql.add('SELECT * FROM TABLE1 ');
SQLQuery1.open;
end
else if Chbx_Server.Checked=true then
begin
Query1.close;
Query1.sql.clear;
Query1.sql.add('SELECT * FROM TABLE1 ');
Query1.open;
end;

因 Calss 不同, 很難以 subroutine 處理.
若用 Query1 與 Query2, 便可用 procudure ReOpen(QuerySelect : TQuery) 處理.

大大你好，因為要讓User選擇是不是離線作業，如果是離線作業，就要連到本機的Database，
如果是非離線作業，就要連到Server端的Database，
因為那段SQL指令很冗長，所以不想寫成兩段，所以才會提問，
如果沒有方法，也沒有關係，只好塗法練鋼了，謝謝你。

如 herbert2 大大講的，因 Calss 不同, 很難以 subroutine 處理.

但你若不想把SQL寫成兩段，不是把 SQL獨立出來就好了

SQLStr:='SELECT * FROM TABLE1 ';

if Chbx_Local.Checked=true then
begin
?? SQLQuery1.close;
?? SQLQuery1.sql.clear;
?? SQLQuery1.sql.add(SQLStr);
?? SQLQuery1.open;
end
else if Chbx_Server.Checked=true then
begin
???Query1.close;
?? Query1.sql.clear;
?? Query1.sql.add(SQLStr);
?? Query1.open;
end;




===================引 用 mnsf 文 章===================
假設我要執行一個SQL指令，當User勾選連結Local端時，是用TSQLQuery去執行指令，
當User勾選連結Server端時，是用TQuery去執行指令，
想要請教一下，有什麼方法可以只寫一段程式，而不用寫兩段程式呢?

假設Chbx_Local.Checked=true表示要連結Local端
假設Chbx_Server.Checked=true表示要連結Server端

//以下是用最笨最簡單的方法，將程式寫成兩段，請問，有辦法寫成一段嗎?
if Chbx_Local.Checked=true then
begin
?? SQLQuery1.close;
?? SQLQuery1.sql.clear;
?? SQLQuery1.sql.add('SELECT * FROM TABLE1 ');
?? SQLQuery1.open;
end
else if Chbx_Server.Checked=true then
begin
???Query1.close;
?? Query1.sql.clear;
?? Query1.sql.add('SELECT * FROM TABLE1 ');
?? Query1.open;
end;

如果是使用firebird emb + server同時併存，就可以用TSQLQuery一個來處理了
遠端連線和離線問題同時解決。