procedure TForm1.BitBtn1Click(Sender: TObject);
begin
adoquery1.SQL.Clear ;
adoquery1.SQL.Add('select * from T养表费清单 where 户号>'+'2000'+' order by 户号');
adoquery1.Open ;
dbgrid1.Refresh;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
adoquery1.SQL.Clear ;
adoquery1.SQL.Add('select * from T养表费清单 where 户号>''2000'' order by 户号');
adoquery1.Open ;
dbgrid1.Refresh;
end;