1.
with AdoQuery1 do
  begin
   Close;
   SQL.Clear;
   SQL.Add('select * from beijing_table where times='''+Edit1.Text+'''');
   Open;
   if recordcount <>0 then
     showmessage('表中有此记录')
   else
     showmessage('没有此记录!!');
  end;
2.
var
  ads2:TAdoDataSet;
  dsc2:TDataSource;
begin
   ads2:=TAdoDataSet.Create(self);
   dsc2:=TDataSource.Create(self);
   ads2.Prepared:=true;
   ads2.Active:=false;
   ads2.Connection:=ADOConnection1;
   ads2.CommandText:='select * from beijing_table where times='''+Edit1.Text+'''';
   ads2.Active:=true;
   ads2.Open;
   if ads2.RecordCount<>0 then
     showmessage('找到了');
   else
     showmessage('没找到啦');
end;
请大家来比较一下吧,从各个方面..谢喽!!