请帮我看看

Question

str :=inputbox('请输入您的编号','您的编号', '');if str=inttostr(adotable2.FieldByName('编号').AsInteger) then
edit12.Text :=inttostr(adotable2.fieldbyname('编号').AsInteger)
else
begin
showmessage('没有此人');
halt;
end怎么会找不能呢我添加了adotable2,编号也是对的呀
ERROR提示：
'ADOTable2:fiel'编号'not found ',

Answer 1

你没有进行查找啊!with adotable2 do
begin
  Filter:='编号='+str;//如为字符类型，则 + QuotedStr(str);
  if FindFirst then
    edit12.Text :=inttostr(adotable2.fieldbyname('编号').AsInteger)
  else
  begin
   showmessage('没有此人');
   halt;
  end;

Answer 2

with adotable2 do
begin
  Filter:='编号='+str;//如为字符类型，则 + QuotedStr(str);  这个filter是什么呀
  if FindFirst then  //findfirst是什么
    edit12.Text :=inttostr(adotable2.fieldbyname('编号').AsInteger)
  else
  begin
   showmessage('没有此人');
   halt;
  end;

Answer 3

Filter 是筛选条件
FindFirst 找第一个符合条件的记录