度量快速开发平台-专业、快速的软件定制快开平台

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
热搜: 部件 流程 SQL
查看: 2431|回复: 8

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

[复制链接]

198

主题

1313

帖子

3778

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
3778
发表于 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)窗体加载事件代码:
A1.jpg

'定义每页显示条数
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)页选项与上页,下页代码:
A2.jpg
'页选项 的 值变化事件 事件代码:
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、效果:
fenye1.jpg

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

使用道具 举报

348

主题

3572

帖子

9265

积分

论坛元老

Rank: 8Rank: 8

积分
9265
发表于 2020-4-17 05:06:20 | 显示全部楼层
还记得开始学编程就是做的数据的分页查询,感觉好难啊,基于平台的构建分页思路明朗多了
若現在就覺得失望無力,未來那麽遠妳該怎麽扛...
————————————————————————致自己
回复 支持 反对

使用道具 举报

348

主题

3572

帖子

9265

积分

论坛元老

Rank: 8Rank: 8

积分
9265
发表于 2020-4-17 14:21:47 | 显示全部楼层
看懂了业务表(sql),这个功能也就实现了一大半了
若現在就覺得失望無力,未來那麽遠妳該怎麽扛...
————————————————————————致自己
回复 支持 反对

使用道具 举报

348

主题

3572

帖子

9265

积分

论坛元老

Rank: 8Rank: 8

积分
9265
发表于 2020-4-17 14:59:15 | 显示全部楼层
若現在就覺得失望無力,未來那麽遠妳該怎麽扛...
————————————————————————致自己
回复 支持 反对

使用道具 举报

348

主题

3572

帖子

9265

积分

论坛元老

Rank: 8Rank: 8

积分
9265
发表于 2020-4-18 22:41:10 | 显示全部楼层
这么多的帖子这么没人顶( ⊙ o ⊙ )啊!不能沉,不能沉....
若現在就覺得失望無力,未來那麽遠妳該怎麽扛...
————————————————————————致自己
回复 支持 反对

使用道具 举报

348

主题

3572

帖子

9265

积分

论坛元老

Rank: 8Rank: 8

积分
9265
发表于 2020-4-19 23:29:59 | 显示全部楼层
好帖,不能沉!不能沉!不能沉!
若現在就覺得失望無力,未來那麽遠妳該怎麽扛...
————————————————————————致自己
回复 支持 反对

使用道具 举报

348

主题

3572

帖子

9265

积分

论坛元老

Rank: 8Rank: 8

积分
9265
发表于 2020-4-19 23:30:56 | 显示全部楼层

好帖,不能沉!不能沉!不能沉!
好帖,不能沉!不能沉!不能沉!
好帖,不能沉!不能沉!不能沉!
若現在就覺得失望無力,未來那麽遠妳該怎麽扛...
————————————————————————致自己
回复 支持 反对

使用道具 举报

348

主题

3572

帖子

9265

积分

论坛元老

Rank: 8Rank: 8

积分
9265
发表于 2020-4-22 23:45:38 | 显示全部楼层
不能沉《不能沉《不能沉《
若現在就覺得失望無力,未來那麽遠妳該怎麽扛...
————————————————————————致自己
回复 支持 反对

使用道具 举报

141

主题

1551

帖子

3573

积分

论坛元老

Rank: 8Rank: 8

积分
3573
发表于 2020-4-10 18:11:24 | 显示全部楼层
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|重庆度量科技  本站关键词:快速开发平台

GMT+8, 2024-10-7 22:05 , Processed in 0.144751 second(s), 30 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表