首页  »   Erlang

Erlang中怎么实现分页效果

网友分享于:2013-03-28  浏览:0次
Erlang中如何实现分页效果

1.前台

1.1.使用二维map来存储分页信息:

1.1.1.一维map存储页码和分页信息,key为页码,value为分页信息。

1.1.2.二维map存储分页的上一页,当前页,下一页信息。

1.1.3.当为第一页时,map[1]["prePage"]="",map[1]["currPage"]="",map[1]["nextPage"]=取到第一页数据后的continuation信息;当为第二页时,map[2]["prePage"]=map[1]["currPage"],map[2]["currPage"]=map[1]["nextPage"],map[2]["nextPage"]=取到第二页数据后的continuation信息。

2.后台

2.1.如果第一次获取:

{Tab,Continue} = ets:match(users,'$1',10),
Tab:取到的当前页的所有数据信息。
Continue:当前页的下一页信息。
将所有的数据信息和下一页信息发送到前台

2.2.如果下一次获取并且下一页的数据是从前台传过来的

%将前台传过来的分页数据进行解析
[Tab1,Int1,Int2,Bin,List,Int3] = string:tokens(Continuation,"_"),
%将前台传过来的分页数据按照Continue规则进行组装
Continue1 = {list_to_atom(Tab1),list_to_integer(Int1),list_to_integer(Int2),<<>>,[],0},
%将自定义的分页数据根据此规则进行修复
MS = ets:fun2ms(fun( OrderRecord = #users{}) -> [OrderRecord] end),
Continue2 = ets:repair_continuation(Continue1, MS),
%将下一页的数据信息取出
{Tab2,Continue3} = ets:match(Continue2),
将所有的数据信息和下一页信息发送到前台

2.3.获取的下一页的数据信息:

2.3.1.如果是最后一页:

Continue='$end_of_table'.

2.3.2.如果不是最后一页:

Continue={Tab,Int1,Int2,Bin,List,Int3}

 

相关解决方案

最新解决方案