送分！一个简单的数据查询问题。

Question

procedure TForm1.but_runClick(Sender: TObject);
var
content:string;
begin
try
with datamoduleado.ADOQuery1 do
begin
content:=edit_ID.Text;
sql.Clear;
sql.Add('select * from book where ID like :edit_ID ');
parameters.ParamByName('edit_ID').Value:=content;
open;
first;
Edit_tel.Text:=fieldbyname('tel').AsString;
Edit_fax.Text:=fieldbyname('fax').AsString;
end;
except
messagedlg('查询失败',mterror,[mbok],0);
end;
end;我想在点“下一个”的button时，在edit_tel和edit_fax的对话框中显示出下一个同样ID的数据库中的记录。

Answer 1

上面的代码是查询button的，我想在一个不同的button也就是“下一个”的button(btn_next)点击后进行显示出下一个同样ID的数据库中的记录的操作。
3q3q

Answer 2

楼上说的，我试了
procedure TForm1.But_nextClick(Sender: TObject);
begin
DataModuleADO.ADOQuery1.Next;
end;可是点了还没反应

Answer 3

procedure TForm1.But_nextClick(Sender: TObject);
begin
DataModuleADO.ADOQuery1.Next;
end;可是点了还没反应

Answer 4

begin
  close;   //试试看

Answer 5

close 不就是把整个窗口都关了吗？这怎么能显示下一个数据呢？

Answer 6

like 是不是需要 % % 啊~~？？？

Answer 7

我设了好多条同样的这个查询字段的记录可是点了btn_next就是没反应

Answer 8

DataModuleADO.ADOQuery1.Next;
Edit_tel.Text:=fieldbyname('tel').AsString;
Edit_fax.Text:=fieldbyname('fax').AsString;

Answer 9

DataModuleADO.ADOQuery1.Next;
Edit_tel.Text:=fieldbyname('tel').AsString;
Edit_fax.Text:=fieldbyname('fax').AsString;