在delphi中经adoquery查询得到多个数据，如何做个下一个、上一个按钮使数据在edit中一条条显示呢？

Question

记得以前见过这样的做法。一下子想不起来如何做了。所以向大家请教一下：
就是比如在数据库中检索到20岁以上的人有多个，用两个edit分别显示姓名及年龄。我想一次显示一条，然后让客户点“下一个”按钮可以查看下一条记录，查看“上一个”可以查看上一条记录。这两个按钮中应如何判断呢？

Answer 1

AdoQuery1.Prior;AdoQuery1.next;
当然换有第一个，最后一个，，

Answer 2

用TDBNavigator这个控件就行了啊，设置一下属性就可以了。

Answer 3

TDBNavigator控件和qr1.Prior,qry1.next都可以实现这个问题

Answer 4

還有還回最前面一個呢。AdoQuery1.First;  最後一筆AdoQuery1.Last;

Answer 5

TDBNavigator控件最方便,代碼都不用寫.

Answer 6

下一个:
 if not ADOquery1.eof then ADOQuery1.Next;
上一个:
 if Not ADOQuery1.Bof then ADOQuery1.Last;

Answer 7

就是不想用TDBNavigator才想自己写这个的

Answer 8

next 或 last 过后：
  Edit1.text:=ADOQuery1.FieldByName('姓名').asString;
  edit2.text:=ADoQuery1.FieldByname('年龄').asString;
就可以啊