先把字段装载到COMBOBOX中去,然后在BUTTON中选择,判断条件,可用CASE来做
根据条件不同,可以作出不同的操作
例如:你先第一字段时:
你可以做一个操作
等等!

解决方案 »

  1.   

    sql.add('select * from tablename where ' +
    combobox1.text + ' like "%' + edit1.text + '%"');
      

  2.   

    Sql.Text := 'SELECT * FROM Table WHERE '+ComboBox.Items[ComboBox.ItemIndex]+'='''+Edit1.Text+'''';
      

  3.   

    table1.filter:='fieldname='+''''+combobox1.text+''''+''''edit1.text+'''';
      

  4.   

    一,往ComboBox中填充字段
    var
      I:integer;
    beginwith Query1 do
    begin
       Close;
       Sql.Text :=' Select * from YourTable'
       open;
       for I:=0 To FieldCount-1 do
           ComboBox1.Items.Add(Fields[I].FieldName)
     end;
    end;二,过滤选择:
    with Query1 do
    begin
     Close;
     Sql.Text :=' Select * from YourTable';
     Sql.Text.Add('Where'+Trim(ComBoBox1.Text)+'=:Text');
     paramByname('Text'):=Edit1.Text;
     open;
     if IsEmpty then
    begin
        ShowMessage('没有记录')
        Close;
    end;
     
    end;