各位好： 我在做一个有关数据库的查询时使用了4个CHECKBOX，四个CHECKBOX分别对应着四个combobox，我希望能够通过选中其中一个或者几个CHECKBOX就能够以其对应的combobox的内容作为查询条件，从数据库中查询出符合条件的数据显示在dbgrid中，请问该如何实现啊？

您好： 使用SMDBGRID http://delphi.ktop.com.tw/topic.php?topic_Id=33751 ~~應無所住而生其心~~

THANK YOU !可是我觉得SMDBGRID有些不适合我啊！因为我的数据库中的内容比较多，我希望用单独选中了combobox中的某一项（combobox中的内容也有若干项呢）来实现查询的，如果我选中了一个checkbox对应的combobox那么我就以一个combobox对应的内容作为查询条件，如果选中了若干个checkbox，那么我就以其对应的多个内容作为查询条件！还有更好的推荐么？

Hi:    有兩個方法， 1.動態產生 SQL 語法

procedure TForm1.Button36Click(Sender: TObject);
VAR
    SQLCommand : String;
begin
    SQLCommand := 'SELECT  *'   #13  
                  'FROM    SALES_CUSTOMER'   #13  
                  'WHERE   0 = 0'   #13;
    IF ((CheckBox1.Checked) AND (ComboBox1.Text <> '')) THEN
        SQLCommand := SQLCommand   'AND     CUSTOMER_NAME = '   QuotedStr(ComboBox1.Text)   #13;
    QRY_CUSTOMERS.Close;
    QRY_CUSTOMERS.SQL.Clear;
    QRY_CUSTOMERS.SQL.Add(SQLCommand);
    QRY_CUSTOMERS.Open;
end;

2.將 SQL Command 寫死，然後傳參數去 Open

SQl Command :
SELECT  *
FROM    SALES_CUSTOMER
WHERE   (:P_CHECK1 <> 'Y' OR ((:P_CHECK1 = 'Y') AND (CUSTOMER_NAME = :P_CUSTOMER_NAME )))    procedure TForm1.Button35Click(Sender: TObject);
begin
    QRY_CUSTOMERS.Close;
    IF CheckBox2.Checked THEN
        QRY_CUSTOMERS.ParamByName('P_CHECK1').AsString := 'Y'
    ELSE
        QRY_CUSTOMERS.ParamByName('P_CHECK1').AsString := 'N';
    QRY_CUSTOMERS.ParamByName('P_CUSTOMER_NAME').AsString := ComboBox1.Text;
    QRY_CUSTOMERS.Open;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman