delphi 数据分页怎么实现?

Question

..

Answer 1

分页设置页大小pagesize；
设置页面pagecount；
设置数据位置dataad;
设置数据库总数据条数：datasum;
datasum:=adotable.recordcount;
dataadd:=1;
pagecount:=1;
while datasum>=(pagesize*(pagecount-1)+dataadd) do
begin
if pageadd<=pagesize then
begin
adotable.first;
adotable.moveby((pagecount-1)*pagesize+pageadd);
if pageadd=pagesize then
  begin
  inc(pagecount);
  pageadd:=0;
  end;
inc(pageadd);
end;
end;
加入button事件来处理pagecount就可以了  

Answer 2

实现方式有很多种，首先你要清楚思路，拿就是：
确保数据库的记录有唯一的排序字段，那么如果你想要每次查询25条记录，那么第一页就是你查询排序后的记录前25个，那么第二页就是排序后的记录的第26条到第（26＋25）条记录，就是这么简单，第n页自然就是从第((n-1)*25+1)开始到第(n*25)条记录，就是这样的算法。
实现起来是用存储过程来实现查询还是用简单的SQL语句来查询就自己控制好了。
就是这样的了。