procedure TForm3.Button1Click(Sender: TObject);
var bir,cardno,area,jiang,te:string;
begin
label3.Caption:='';
if rb1.Checked=true then
with query1 do
begin
close;
sql.clear;
sql.Add('select * from khzl where ÐÕÃû=:xm');
ParamByName('xm').asstring:=trim(combobox1.text);
open;
end;
if rb2.Checked=true then
begin
bir:='select * from khzl where ÉúÈÕ like '+'''%-'+trim(combobox5.text)+'-'+ trim(combobox6.text)+'''';
with query1 do
begin
close;
sql.clear;
sql.Add(bir);
open;
end;
end;
if rb3.Checked=true then
begin
cardno:='select * from khzl where »áÔ±¿¨ºÅ like '+'''%'+trim(combobox2.Text)+'''';
with query1 do
begin
close;
sql.clear;
sql.Add(cardno);
open;
end
end ;
if rb4.Checked=true then
begin
with query1 do
begin
close;
sql.clear;
sql.Add('select * from khzl where ¼¶±ð=:jb');
ParamByName('jb').asstring:=trim(combobox3.Text);
open;
end
end;
if rb5.Checked=true then
begin
area:='select * from khzl where ÇøÓò like '+'''%'+trim(combobox4.Text)+'%''';
with query1 do
begin
close;
sql.clear;
sql.Add(area);
open;
end;
end;
if rb6.Checked=true then
begin
jiang:='select * from khzl where »ñ½±Çé¿ö like '+'''%'+trim(edit1.Text)+'%''';
with query1 do
begin
close;
sql.clear;
sql.Add(jiang);
open;
end;
end;
if rb7.Checked=true then
begin
te:='select * from khzl where Ìس¤°®ºÃ like '+'''%'+trim(edit2.Text)+'%''';
with query1 do
begin
close;
sql.clear;
sql.Add(te);
open;
end;
end;
label3.Caption:='¹²ÓÐ'+inttostr(query1.RecordCount)+'Ìõ¼Ç¼';
dbgrid1.Visible:=true;
end;