請教各位前輩 SQL字串的處理是否有較好的方式 如在以下的SQL 字串中要加入Where條件 (業務員=112) 及排序方式改為 業務員,客戶編號,如下方的結果 因我的Table及查詢條件都是動態的不是固定Table,所以想由程式 去處理 Where 及 ORderby字串 請教各位前輩是否有較好的方式?? Select 客戶.* From 客戶 Where (區別='A') and (類別 between 001 and 500) and (客戶編號>100) Order by 區別,客戶編號 ------------ 要求結果 Select 客戶.* From 客戶 Where( (區別='A') and (類別 between 001 and 500) and (客戶編號>100) )And (業務員=112) Order by 業務員,客戶編號 謝謝各位前輩.........

Hi jeffreck :

Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('Select 客戶.* ');
Query1.SQL.Add('From 客戶 ');
Query1.SQL.Add('Where (區別='A') and (類別 between 001 and 500) and (客戶編號>100) ');

if .... then begin
   Query1.SQL.Add(' and (業務員=112) ');
   Query1.SQL.Add('Order by ... ');
end;
if ... then begin
   Query1.SQL.Add(' and ... ');
   Query1.SQL.Add('Order by ... ');
end;    或是先在Query裡下好靜態的SQL字串, 用StringReplace去取代    Select 客戶.*
From 客戶
Where( (區別='A') and (類別 between 001 and 500) and (客戶編號>100) )
/*WhereReplace*/
/*OrderByReplace*/    if .... then begin
   StrWhere := ' and (業務員=112)';
   StrOrder := 'Order by ... '
end;
if ... then begin
   StrWhere := ' and ... ';
   StrOrder := 'Order by ... ';
end;
Query1.SQL.Text := StringReplace(Query1.SQL.Text, /*WhereReplace*/, StrWhere, [rfIgnoreCase]);
Query1.SQL.Text := StringReplace(Query1.SQL.Text, /*OrderReplace*/, StrOrder, [rfIgnoreCase]);

我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

也可用Query1.SQL[x]的方式去修改原有的SQL敍述... 如 Query1.SQL [3] := 'Where xx = 123'

謝謝  Miles及minjiu 前輩教導 但我目前在作 Base Form 就是要處理 新增修改刪除查詢等功能 以後可以供繼承使用 所以未知未來的SQL的內容,但有要能去修改 Where 字串及Order By字串 Where 為要增加修件 , 所以想要自己去分析 SQL 的字串..... 當然兩位前輩的方式也可以,但我在想是否有自己去分析 SQL的Where 字串及Order By字串    各位是否可以提供意見......感謝