高级表格定行分页显示sql数据

lywfyt

学习易语言一年了，来论坛学习了很多东西，从零开始，到自己写了一个自己工作的网络版软件，基本完工，放置了两个月的一个功能今天终于完成，摘取了其中的主题功能，即实现高级表格定行显示，自动翻页，连接的为sql数据库，经过几天测试，达到要求，回馈各位老师！

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1			' 本源码来自三叶资源网(www.sanye.cx)
变量名	类 型	数组	备 注
每页记录数	整数型
总记录数	整数型
记录集游标	整数型
当前页数	整数型
总页数	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

' 请根据自己的SQL2000自行修改 用户名 和 密码
时钟1.时钟周期 ＝ 5000

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

如果 (数据库连接1.连接SQLServer (“192.168.0.199”, “mmcallsystem”, “sa”, “123456lywfyt”) ＝ 假)
信息框 (“数据库连接失败”, 0, , )



记录集1.置连接 (数据库连接1)
记录集1.打开 (“select * from 呼叫记录表 where 完成时间 is Null”, #SQL语句, )
每页记录数 ＝ 5
总记录数 ＝ 记录集1.记录数量  ' 本源码来自三叶资源网(www.sanye.cx)
总页数 ＝ 计算总页数 ()
自动显示定义表 ()

子程序名	返回值类型	公开	备 注
计算总页数	整数型

判断 (寻找文本 (到文本 (总记录数 ÷ 每页记录数), “.”, , 假) ＝ -1)  ' -1为未找到小数点
返回 (取整 (总记录数 ÷ 每页记录数))
返回 (取整 (总记录数 ÷ 每页记录数))

子程序名	返回值类型	公开	备 注
自动显示定义表

变量名	类 型	静态	数组	备 注
temp	文本型
行数	整数型
K	整数型

当前页数 ＝ 1
高级表格1.行数 ＝ 每页记录数
高级表格1.列数 ＝ 记录集1.字段数量
如果 (总页数 ＞ 1)
时钟1.时钟周期 ＝ 0
变量循环首 (1, 总页数, 1, K)
如果 (K ＝ 1)
记录集游标 ＝ 1
记录集游标 ＝ (K － 1) × 每页记录数 ＋ 1
如果 (K ＞ 记录集1.记录数量)
K ＝ 1




记录集1.移到 (记录集游标)
高级表格1.清空数据 ()
计次循环首 (每页记录数, 行数)
记录集1.读文本 (0, temp)
高级表格1.置数据 (行数 － 1, 0, #表格常量 .文本型, temp)
记录集1.读文本 (1, temp)
高级表格1.置数据 (行数 － 1, 1, #表格常量 .文本型, temp)
记录集1.读文本 (2, temp)
高级表格1.置数据 (行数 － 1, 2, #表格常量 .文本型, temp)
记录集1.读文本 (3, temp)
高级表格1.置数据 (行数 － 1, 3, #表格常量 .文本型, temp)
记录集1.读文本 (4, temp)
记录集1.到下一条 ()
计次循环尾 ()
调试输出 (记录集游标)
延时 (5000)
变量循环尾 ()



时钟1.时钟周期 ＝ 5000

i支持库列表	支持库注释
eDB	数据库操作支持库
eGrid	高级表格支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 eDB<br /> .支持库 eGrid<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集1, , , ' 本源码来自三叶资源网(www.sanye.cx)<br /> .程序集变量 每页记录数, 整数型<br /> .程序集变量 总记录数, 整数型<br /> .程序集变量 记录集游标, 整数型<br /> .程序集变量 当前页数, 整数型<br /> .程序集变量 总页数, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> ' 请根据自己的SQL2000自行修改 用户名 和 密码<br /> <br /> 时钟1.时钟周期 ＝ 5000<br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> .如果 (数据库连接1.连接SQLServer (“192.168.0.199”, “mmcallsystem”, “sa”, “123456lywfyt”) ＝ 假)<br />     信息框 (“数据库连接失败”, 0, , )<br /> .否则<br /> <br /> .如果结束<br /> <br /> <br /> 记录集1.置连接 (数据库连接1)<br /> <br /> 记录集1.打开 (“select * from 呼叫记录表 where 完成时间 is Null”, #SQL语句, )<br /> 每页记录数 ＝ 5<br /> 总记录数 ＝ 记录集1.记录数量  ' 本源码来自三叶资源网(www.sanye.cx)<br /> 总页数 ＝ 计算总页数 ()<br /> <br /> 自动显示定义表 ()<br /> <br /> .子程序 计算总页数, 整数型<br /> <br /> .判断开始 (寻找文本 (到文本 (总记录数 ÷ 每页记录数), “.”, , 假) ＝ -1)  ' -1为未找到小数点<br />     返回 (取整 (总记录数 ÷ 每页记录数))<br /> .默认<br />     返回 (取整 (总记录数 ÷ 每页记录数))<br /> .判断结束<br /> <br /> <br /> .子程序 自动显示定义表<br /> .局部变量 temp, 文本型<br /> .局部变量 行数, 整数型<br /> .局部变量 K, 整数型<br /> <br /> 当前页数 ＝ 1<br /> 高级表格1.行数 ＝ 每页记录数<br /> 高级表格1.列数 ＝ 记录集1.字段数量<br /> <br /> .如果 (总页数 ＞ 1)<br />     时钟1.时钟周期 ＝ 0<br />     .变量循环首 (1, 总页数, 1, K)<br />         .如果 (K ＝ 1)<br />             记录集游标 ＝ 1<br />         .否则<br />             记录集游标 ＝ (K － 1) × 每页记录数 ＋ 1<br />             .如果 (K ＞ 记录集1.记录数量)<br />                 K ＝ 1<br />             .否则<br /> <br />             .如果结束<br /> <br />         .如果结束<br /> <br />         记录集1.移到 (记录集游标)<br />         高级表格1.清空数据 ()<br />         .计次循环首 (每页记录数, 行数)<br />             记录集1.读文本 (0, temp)<br />             高级表格1.置数据 (行数 － 1, 0, #表格常量.文本型, temp)<br />             记录集1.读文本 (1, temp)<br />             高级表格1.置数据 (行数 － 1, 1, #表格常量.文本型, temp)<br />             记录集1.读文本 (2, temp)<br />             高级表格1.置数据 (行数 － 1, 2, #表格常量.文本型, temp)<br />             记录集1.读文本 (3, temp)<br />             高级表格1.置数据 (行数 － 1, 3, #表格常量.文本型, temp)<br />             记录集1.读文本 (4, temp)<br />             记录集1.到下一条 ()<br />         .计次循环尾 ()<br /> <br />         调试输出 (记录集游标)<br />         延时 (5000)<br />     .变量循环尾 ()<br /> <br /> <br /> <br /> .否则<br /> <br /> .如果结束<br /> 时钟1.时钟周期 ＝ 5000

lywfyt

空竹 发表于 2024-7-22 14:46
在SQL语句里面做分页
limit

感谢！初学，sql语句也是现学现用！

空竹

在SQL语句里面做分页
limit

补充内容 (2024-5-23 12:14):
利用limit实现分页，语法为“SELECT*FROM 表名 limit 开始记录数,每页条数”；

补充内容 (2024-5-23 12:16):
不要用易语言去分页。直接从数据库去分页。。

wdjyltzh01

支持一下

wffhhy

支持开源~！感谢分享

dwcq

hackyxc

3333333333333333333333333333333333333

hackyxc

66666666666666666666666666666666

sn123zyc

支持开源~！感谢分享

476611649

感谢，学习到了