可以在form上放一个RadioGroup控件,在items中添加一些选项
procedure form1.onbitbtn1click(sender)
var s:string;
begin
query1.close;
s:='select a.*,b.* from mytable1 a,mytable2 b where a.bh=b.bh';
case RadioGroup1.itemindex of
0:begin
s:=s+' and a.field1='''+trim(edit1.text)+'''';
//or s:=s+' and field1 like '''+trim(edit1.text)+''''+'%'
end;
1:begin
s:=s+' and a.field2=:rq';
end;
......
end;
try
query1.sql.add(s);
query1.parambyname('???').as???=???;
//???表示自己要用到的参数
query1.open;
except
on e:exceptiondo
showmessage('打开数据库出错!'+#13+#13+e.message);
end;
end;
主要是多加判断。