//设置初始查询条件
procedure TForm1.Button3Click(Sender: TObject);
var zdname01,czf01,zdvalue01:string;
begin
  if trim(cmb1.Text) = '' then
  begin
    showmessage('字段名不能为空');
    exit;
  end;
  if trim(cmb2.Text) = '' then
  begin
    showmessage('操作符不能为空');
    exit;
  end;
  zdname01:= Cmb1.items[cmb1.itemindex];
  //xx101Name := fields[cmb_zdm.Itemindex];
  czf01:= cmb2.items[cmb2.itemindex];
  if czf01 = 'like' then
    zdvalue01 := '%' + Cmb3.text + '%'
  else
    zdvalue01 :=Trim(cmb2.text);
  filtervalue := zdName01 + ' ' + czf01 + ' ''' + zdvalue01 + ''' ';
  memo1.lines.add(zdname01 + ' ' + czf01 + ' ' + cmb3.text);
end;//设置并列组合查询条件
procedure TForm1.Button4Click(Sender: TObject);
var zdname02,czf02,zdvalue02:string;
begin
  if trim(cmb1.Text) = '' then
  begin
    showmessage('字段名不能为空');
    exit;
  end;
  if trim(cmb2.Text) = '' then
  begin
    showmessage('操作符不能为空');
    exit;
  end;
  zdname02:= Cmb1.items[cmb1.itemindex];
  //xx101Name := fields[cmb_zdm.Itemindex];
  czf02:= cmb2.items[cmb2.itemindex];
  if czf02 = 'like' then
    zdvalue02 := '%' + Trim(Cmb3.text) + '%'
  else
    zdvalue02 :=Trim(cmb2.text);
  filtervalue :=filtervalue+' and ' + zdName02 + ' ' + czf02 + ' ''' + zdvalue02 + ''' ';
  memo1.lines.add('并且 ' +zdname02 + ' ' + czf02 + ' ' + cmb3.text);
end;//设置或者组合查询条件
procedure TForm1.Button5Click(Sender: TObject);
var zdname03,czf03,zdvalue03:string;
begin
  if trim(cmb1.Text) = '' then
  begin
    showmessage('字段名不能为空');
    exit;
  end;
  if trim(cmb2.Text) = '' then
  begin
    showmessage('操作符不能为空');
    exit;
  end;
  zdname03:= Cmb1.items[cmb1.itemindex];
  czf03:= cmb2.items[cmb2.itemindex];
  if czf03 = 'like' then
    zdvalue03 := '%' + Cmb3.text + '%'
  else
    zdvalue03 :=Trim(cmb2.text);
  filtervalue :=filtervalue+' or ' + zdName03 + ' ' + czf03 + ' ''' + zdvalue03 + ''' ';
  memo1.lines.add('或者 ' +zdname03 + ' ' + czf03 + ' ' + cmb3.text);
end;//执行查询
procedure TForm1.Button2Click(Sender: TObject);
var sqlstr:string;
begin
sqlstr:='select * from wz_qxgl_yhsz where ''' + filtervalue + ''' ';
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add(sqlstr);
adoquery2.Open;
end;
说明:cmb1、cmb2、cmb3是三个combobox分别是存储字段名、操作符、字段值