度量快速开发平台分页构建介绍

王爱东 · 发表于 2020-4-16 21:47:15

  度量快速开发平台中，网格部件使用非常多，一般情况下，比如数据在1万以内的，都可以直接快速查询出来，如果数据量很大，考虑到一次性打开可能有效率影响，因此可能有网格部件显示数据的分页需求。
虽然数据量大后分页显示效率提高，但是查看数据还是不太方便。如果确实要分页，那么分页功能如何在度量快速开发平台中来实现呢？

对于mysql数据库，分页还很好实现，在sql中直接就提供了limit分页的功能。度量快速开发平台一般是sqlserver或者是oracle，我们同样可以利用sql语句来实现分页效果。

主要实现思路就是利用sql语句查询不同数据，再界面上构建类似上一页，下一页，指定页的数据，以下是实现步骤：

1、建立业务表
业务表建立的时候，就需要考虑分页的功能，下面代码示例对oracle与sqlserver通用：

  select * from
(
select
ROW_NUMBER() over(order by id ) as rownum,
COUNT(*) over() rowscount,

ID,TITLE,HEIGHT , WIDTH, CREATE_TIME,  CREATE_USER from form_list

) t
where rownum>= ([：PAGE] -1) * [:ROW] +1 and rownum< [：PAGE] * [:ROW]+1

说明：
rownum表示每一行数据的序号，rowscount表示该查询的所有记录。
两个整数型的业务表变量 PAGE,ROW 分别表示页数，每页显示条数。

2、建立窗体
分别拖入一个网格部件，一个下拉选择（页选择），两个按钮（上页，下页）。
网格部件选择好上面建立的业务表。

2.1）窗体加载事件代码:

'定义每页显示条数
dim PAGE_OF_ROW = 19

'定义页数，默认查询第一页
dim PAGE_NUM = 1
Call("刷新")
'------------------------配置页选项功能开始----------------------------
'页选项刷新标志(0不刷新,1刷新)
dim RefreshGlag=0
'总条数
dim allCount=网格部件1.GetFocusedRowValue("ROWSCOUNT")
dim ALL_PAGE=0
'因为cint四舍五入了，为了保证有效行数，加0.4999,这样，小数点后有值的，就表示要多一页。
ALL_PAGE=cint(allCount/PAGE_OF_ROW+0.4999999)
dim stringset=""
for iLoop=1 to ALL_PAGE
stringset=stringset+cstr(iLoop)+","
next
if len(stringset)>0 then
stringset=left(stringset,len(stringset)-1)

      页选项.SetItems(stringset,false)
      页选项.Value=PAGE_NUM
else
      stringset="1"
      页选项.SetItems(stringset,false)
      页选项.Value=PAGE_NUM
end if
RefreshGlag=1
文本标签1.Text = "共计 "&allCount &" 条数据，每页 "&PAGE_OF_ROW&" 条。 "
'------------------------配置页选项功能结束----------------------------

2.2)页选项与上页，下页代码：

'页选项的值变化事件事件代码：
if RefreshGlag=1 then
  PAGE_NUM = 页选项.Value
  Call("刷新")
end if

'上页的单击事件事件代码：
if cint(PAGE_NUM) > 1 then
  PAGE_NUM = cint(PAGE_NUM) - 1
  页选项.Value= PAGE_NUM
end if

'下页的单击事件事件代码：
if cint(PAGE_NUM) < ALL_PAGE then
  PAGE_NUM = cint(PAGE_NUM) + 1
页选项.Value= PAGE_NUM
end if

2.3)刷新功能代码：
'刷新数据
网格部件1.SetVaribleValue("PAGE",PAGE_NUM)
网格部件1.SetVaribleValue("ROW",PAGE_OF_ROW)
网格部件1.RefreshData()

3、效果：

分页还有多种方式，其他的请google查询sql分页