各位大俠：
小弟想用幾個COMBOBOX和Edit組件，將所選其值賦值給ListBox組件(運行時設為不可見)，以實現組合查詢功能，
查詢結果顯示在DBGRID中！
請問要怎麼實現,
萬分感謝！！！
如圖：（若圖不可見，請點擊：http://hiphotos.baidu.com/lzkevin/pic/item/8ec9e61e024dad16304e15d4.jpg 謝謝！）

procedure TForm2.BitBtn1Click(Sender: TObject);
var
str,str1,str2,str3,str4:string;
begin
str2:=trim(ComboBOX1.Text);
Str3:=comboBox2.Text;
str4:=trim(Edit1.Text);
str1:='''';
str:='select * from user_base where ' str2 '' str3 '' str1 str4 str1;
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Add(str);
Adoquery1.Open;
close;
end;

以上代碼隻能實現一組條件查詢，
我想實現三組條件組合查詢要怎麼寫？？？

編輯記錄

樓上大俠：
附個圖吧，實在想不出來您要作什!
另外，您寫到那裏了，Po點程式碼看看吧!
感謝！！！

------
努力會更接近成功

麻煩再幫忙看看，不用ListBox也可以，
隻要能實現三組條件組合查詢就可以！
謝謝！

你那些代碼有沒有執行過
寫得很亂 (既然STR1是空白為什麼又要寫出來,其他變數又什麼要宣告而不直接使用,還有那個STR 又不知怎跑出來)


簡單來說就是記錄3次,單次執行

既然你是要記錄string
就用tstringlist吧
var a,b,c:tstringlist;
formcreate:
a:=tstringlist.create;
b:=..
c..

加一個but(按這個就會記錄)
a.add(text1)
b.add(text2)
c.add(text3)

當執行時
for i:=0 to 2 do begin
...
'select * from user_base where ' a[i] '' b[i] '' c[i];
...
end;



===================引 用 lzkevin 文 章===================
各位大俠：
小弟想用幾個COMBOBOX和Edit組件，將所選其值賦值給ListBox組件(運行時設為不可見)，以實現組合查詢功能，
查詢結果顯示在DBGRID中！
請問要怎麼實現,
萬分感謝！！！
如圖：（若圖不可見，請點擊：http://hiphotos.baidu.com/lzkevin/pic/item/8ec9e61e024dad16304e15d4.jpg 謝謝！）

procedure TForm2.BitBtn1Click(Sender: TObject);
var
str,str1,str2,str3,str4:string;
begin
str2:=trim(ComboBOX1.Text);
Str3:=comboBox2.Text;
str4:=trim(Edit1.Text);
str1:='''';
str:='select * from user_base where ' str2 '' str3 '' str1 str4 str1;
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Add(str);
Adoquery1.Open;
close;
end;

以上代碼隻能實現一組條件查詢，
我想實現三組條件組合查詢要怎麼寫？？？

編輯記錄