有关对dbgrid的中查询的问题

Question

  
我用存储过程把数据显示到dbgrid中，比如字段有2个：a，b；
  现在我要想在在edit1中输入一个数据，现在我要在dbgrid中的数据中查找a字段中是否有edit1中相同的数据，最好是完整的程序代码！
我是要写在一个添加的确定按钮中：作用是在添加前判断添加的数据是否与dbgrid中的数据相同，如果相同则提示不能重名，否则添加数据。
我想用if locate(...)不知道怎么写？

Answer 1

这样不行吗？with ADOQuery do
  begin
    Close;
    SQL.clear;
    SQL.add('Select * from TableA where Fields=:t1');
    Parameters[0].Value:=Edit1.text;
    Open;
    If RecordCoun>0 then
      begin
      .....
      end
      else
      begin
      end;
  end;

Answer 2

用DataSet的Locate方法进行收索呀！！！
有问题请发信息到我的E-mail:[email protected]

Answer 3

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i: Integer;
begin
  if DBGrid1.SelectedRows.Count <  0 then Exit;
  DBGrid1.SelectedIndex := 1
  for i := 1 to DBGrid1.SelectedRows.Count do
    if DBGrid1.Columns[n].Field.Value = Trim(Edit1.Text) then
    begin
      showmessage('Exist');
      Break;
    end
    else begin
      //dosomething
    end;
end;