Adotable findkey

Question

我这有一段程序，是用Table 连接的access数据库，想请教如果换作Adotable连接，语句该怎么改？
procedure TForm1.Button1Click(Sender: TObject);
    var
      SeekValue:string;
    begin
      with Table1 do
      begin
        Label1.Caption:=' ';
        Label1.Caption:=' ';
        IndexFieldNames:='工号';
        SeekValue:=Edit1.Text;
        If FindKey([SeekValue])  then
          begin
            Label2.Caption:='查找成功';
            Label1.Caption:=FieldByName('姓名').AsString;
          end
        else
          Label2.Caption:='查找失败';
      end;       end;    

Answer 1

简化一下：
procedure TForm1.Button1Click(Sender: TObject);
    var
      SeekValue:string;
    begin
      with Table1 do
      begin
        IndexFieldNames:='工号';
        SeekValue:=Edit1.Text;
        If FindKey([SeekValue])  then
          begin
            Label2.Caption:='查找成功';
          end
        else
          Label2.Caption:='查找失败';
      end;
       end;    

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  SeekValue:string;
begin
  with AdoTable1 do
  begin
    IndexFieldNames:='工号';
    SeekValue:=Edit1.Text;
    If AdoTable1.Seek(SeekValue,soFirstEQ)  then
      begin
        Label2.Caption:='查找成功';
      end
    else
      Label2.Caption:='查找失败';
  end;end;

Answer 3

也可以用locate函数
  procedure TForm1.Button1Click(Sender: TObject);
var
  SeekValue:string;
begin
  with AdoTable1 do
  begin
    SeekValue:=Edit1.Text;
    If Locate('工号',SeekValue,[])  then
      begin
        Label2.Caption:='查找成功';
      end
    else
      Label2.Caption:='查找失败';
  end;end;