delphi 数据分页怎么实现?
..
[解决办法]
分页
设置页大小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就可以了
[解决办法]
实现方式有很多种,首先你要清楚思路,拿就是:
确保数据库的记录有唯一的排序字段,那么如果你想要每次查询25条记录,那么第一页就是你查询排序后的记录前25个,那么第二页就是排序后的记录的第26条到第(26+25)条记录,就是这么简单,第n页自然就是从第((n-1)*25+1)开始到第(n*25)条记录,就是这样的算法。
实现起来是用存储过程来实现查询还是用简单的SQL语句来查询就自己控制好了。
就是这样的了。