一个非常简单的查询问题

Question

procedure TForm1.Button1Click(Sender: TObject);begin
    with ADOTable1 do
    begin
    Label1.Caption := '';
    Label2.Caption := '';
    IndexFieldNames := 'name';
    Adotable1.setkey;
    FieldByName('name').AsString := Edit1.Text;
    GotoKey;
    If GotoKey then
      begin
      Label1.Caption :='查找成功';
      Label2.Caption :=ADOTable1password.AsString;
      end
      else
      Label1.Caption := '查找失败';
      end;
end;
[Error] Unit1.pas(43): Undeclared identifier: 'setkey'
  [Error] Unit1.pas(45): Undeclared identifier: 'GotoKey'
  [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'请大家帮我看下错误的原因。要如何才能解决？？？谢谢了，加我的QQ与我讲也行。272780979

Answer 1

with 结构下只可对ADOTable1的属性进行设置 label怎么跑到里面去了，还有判断语句 看清with结构

Answer 2

setkey，GotoKey显然是标识，你在那定义的？

Answer 3

晕
是没有这些方法,bde的控件才有把

Answer 4

Label1.Caption := '';
    Label2.Caption := '';
    IndexFieldNames := 'name';
    Adotable1.setkey;
Label1.Caption :='查找成功';
      Label2.Caption :=ADOTable1password.AsString;
      end
      else
      Label1.Caption := '查找失败';这些都将造成错误

Answer 5

哦，对了，只有TTable才有这些方法

Answer 6

那我想在ADO中实行查询呢。该如何写啊。各位再帮我一下。

Answer 7

ADO的就用
Locate(),Lookup() 方法可以

Answer 8

能否给我详细点的代码，我delphi才用的。麻烦你一下。要不就加我的QQ，我到那上面再问也行。

Answer 9

IF Adotable1.Locate('name';Edit1.Text,[loCaseInsensitive]) then Label1.Caption:='查找成功'
else
  Label2.Caption:='没有找到相关数据';

Answer 10

暈死, SetKey不是ADOTable1的方法, 當然會報錯啊, yinzhiw(不懂OOP) 用Locate(),Lookup() 方法可以.