zySqlite3数据库分页

haizhen00005

zySqlite3支持库在使用的时候发现分页不太好操作,于是乎在网站找了一个Sqlite数据库做分页的源码,修改后测试可以使用就贴出来了,分享一下zySqlite3数据库真的挺好用的！

  

窗口程序集名	保 留	保 留	备 注
zySqlite3数据库分页
变量名	类 型	数组	备 注
sqlit	zySqlite数据库
集_每页显示数	整数型
集_当前页码	整数型
集_总记录数	整数型
集_总页数	整数型
集_筛选条件	文本型
集_是否超限	逻辑型
集_表名	文本型
是否打开	逻辑型

子程序名	返回值类型	公开	备 注
_初始化			当基于本类的对象被创建后，此方法会被自动调用

子程序名	返回值类型	公开	备 注
_销毁			当基于本类的对象被销毁前，此方法会被自动调用

关闭 ()

子程序名	返回值类型	公开	备 注
初始化	整数型
参数名	类 型	参考	可空	数组	备 注
数据库路径	文本型
表名	文本型
每页显示数	整数型
筛选条件	文本型				可空。如：where 性别 = '男'

变量名	类 型	静态	数组	备 注
stmt	zySqlite记录集

' -----------------------------------------------------------------
集_表名 ＝ 表名
集_筛选条件 ＝ 筛选条件
集_每页显示数 ＝ 每页显示数
是否打开 ＝ sqlit.打开 (数据库路径, #SQLITE_打开_读写 )
stmt ＝ sqlit.取记录集 (“select count(*) from ” ＋ 集_表名 ＋ “ ” ＋ 筛选条件, )
集_总记录数 ＝ stmt.查询标量 ()
. ' 判断循环首 (stmt.到下一条 ())
' 集_总记录数 ＝ stmt.读整数型 (0)
. ' 判断循环尾 ()
stmt.关闭 ()
判断 (集_总记录数 ％ 集_每页显示数 ＝ 0)
集_总页数 ＝ 取整 (集_总记录数 ÷ 集_每页显示数)
集_总页数 ＝ 取整 (集_总记录数 ÷ 集_每页显示数) ＋ 1
返回 (集_总页数)

子程序名	返回值类型	公开	备 注
是否已连接	逻辑型

返回 (是否打开)

子程序名	返回值类型	公开	备 注
置表名
参数名	类 型	参考	可空	数组	备 注
欲操作的表名	文本型

变量名	类 型	静态	数组	备 注
stmt	zySqlite记录集

集_表名 ＝ 欲操作的表名
' 因为表明发生了变化，所以总记录数
' ---------------------------------------
stmt ＝ sqlit.取记录集 (“select count(*) from ” ＋ 集_表名 ＋ “ ” ＋ 集_筛选条件, )
集_总记录数 ＝ stmt.查询标量 ()
. ' 判断循环首 (stmt.到下一条 ())
' 集_总记录数 ＝ stmt.读整数型 (0)
. ' 判断循环尾 ()
stmt.关闭 ()
判断 (集_总记录数 ％ 集_每页显示数 ＝ 0)
集_总页数 ＝ 取整 (集_总记录数 ÷ 集_每页显示数)
集_总页数 ＝ 取整 (集_总记录数 ÷ 集_每页显示数) ＋ 1
' ---------------------------------------

子程序名	返回值类型	公开	备 注
关闭

连续赋值 (0, 集_每页显示数, 集_当前页码, 集_总记录数, 集_总页数)
集_是否超限 ＝ 假
集_表名 ＝ “”
sqlit.关闭 ()
是否打开 ＝ 假

子程序名	返回值类型	公开	备 注
取总记录数	整数型

返回 (集_总记录数)

子程序名	返回值类型	公开	备 注
置每页显示数	整数型		如果是超级列表框，请用 SendMessage (超级列表框1.取窗口句柄 (), 4136, 0, 0) 命令，自动设定
参数名	类 型	参考	可空	数组	备 注
数量	整数型

集_每页显示数 ＝ 数量
返回 (集_每页显示数)

子程序名	返回值类型	公开	备 注
取每页显示数	整数型

返回 (集_每页显示数)

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

返回 (集_总页数)

子程序名	返回值类型	公开	备 注
取当前页码	整数型

返回 (集_当前页码 ＋ 1)

子程序名	返回值类型	公开	备 注
取分页记录	zySqlite记录集
参数名	类 型	参考	可空	数组	备 注
筛选条件	文本型

变量名	类 型	静态	数组	备 注
sql	文本型
当前位置	整数型
i	整数型
id	整数型
记录集1	zySqlite记录集

当前位置 ＝ 集_当前页码 × 集_每页显示数
调试输出 (当前位置)
sql ＝ “SELECT * FROM (SELECT * FROM ” ＋ 集_表名 ＋ “ ” ＋ 筛选条件 ＋ “ LIMIT ” ＋ 到文本 (当前位置) ＋ “,” ＋ 到文本 (集_每页显示数) ＋ “)”
调试输出 (sql)
' 记录集1 ＝ sqlit.取记录集 (sql, )
记录集1.置SQL语句 (sql, sqlit)
记录集1.执行 ()
如果 (集_当前页码 ≥ 集_总页数)
集_是否超限 ＝ 真
集_是否超限 ＝ 假
调试输出 (记录集1.取行数 ())
返回 (记录集1)

子程序名	返回值类型	公开	备 注
到上一页

集_当前页码 ＝ 集_当前页码 － 1
如果真 (集_当前页码 ＜ 0)
集_当前页码 ＝ 0

子程序名	返回值类型	公开	备 注
到下一页

如果真 (集_是否超限 ＝ 假)
如果真 (集_当前页码 ＜ 集_总页数 － 1)
集_当前页码 ＝ 集_当前页码 ＋ 1

子程序名	返回值类型	公开	备 注
到首页

集_当前页码 ＝ 0

子程序名	返回值类型	公开	备 注
到尾页

集_当前页码 ＝ 集_总页数 － 1

子程序名	返回值类型	公开	备 注
跳转
参数名	类 型	参考	可空	数组	备 注
页码	整数型

判断 (页码 ≤ 集_总页数 且 页码 ＞ 0)
集_当前页码 ＝ 页码 － 1
信息框 (“超出范围！”, 48, “出错啦”, )

i支持库列表	支持库注释
esqlite31	(未知支持库)
spec	特殊功能支持库

.版本 2<br /> .支持库 esqlite31<br /> .支持库 spec<br /> <br /> .程序集 zySqlite3数据库分页<br /> .程序集变量 sqlit, zySqlite数据库<br /> .程序集变量 集_每页显示数, 整数型<br /> .程序集变量 集_当前页码, 整数型<br /> .程序集变量 集_总记录数, 整数型<br /> .程序集变量 集_总页数, 整数型<br /> .程序集变量 集_筛选条件, 文本型<br /> .程序集变量 集_是否超限, 逻辑型<br /> .程序集变量 集_表名, 文本型<br /> .程序集变量 是否打开, 逻辑型<br /> <br /> .子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用<br /> <br /> <br /> <br /> .子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用<br /> <br /> 关闭 ()<br /> <br /> <br /> <br /> <br /> .子程序 初始化, 整数型, 公开<br /> .参数 数据库路径, 文本型<br /> .参数 表名, 文本型<br /> .参数 每页显示数, 整数型<br /> .参数 筛选条件, 文本型, 可空, 可空。如：where 性别 = '男'<br /> .局部变量 stmt, zySqlite记录集<br /> <br /> ' -----------------------------------------------------------------<br /> 集_表名 ＝ 表名<br /> 集_筛选条件 ＝ 筛选条件<br /> 集_每页显示数 ＝ 每页显示数<br /> 是否打开 ＝ sqlit.打开 (数据库路径, #SQLITE_打开_读写)<br /> stmt ＝ sqlit.取记录集 (“select count(*) from ” ＋ 集_表名 ＋ “ ” ＋ 筛选条件, )<br /> 集_总记录数 ＝ stmt.查询标量 ()<br /> .' 判断循环首 (stmt.到下一条 ())<br /> ' 集_总记录数 ＝ stmt.读整数型 (0)<br /> .' 判断循环尾 ()<br /> stmt.关闭 ()<br /> .判断开始 (集_总记录数 ％ 集_每页显示数 ＝ 0)<br /> 集_总页数 ＝ 取整 (集_总记录数 ÷ 集_每页显示数)<br /> .默认<br /> 集_总页数 ＝ 取整 (集_总记录数 ÷ 集_每页显示数) ＋ 1<br /> .判断结束<br /> 返回 (集_总页数)<br /> <br /> .子程序 是否已连接, 逻辑型, 公开<br /> <br /> 返回 (是否打开)<br /> <br /> .子程序 置表名, , 公开<br /> .参数 欲操作的表名, 文本型<br /> .局部变量 stmt, zySqlite记录集<br /> <br /> 集_表名 ＝ 欲操作的表名<br /> ' 因为表明发生了变化，所以总记录数<br /> ' ---------------------------------------<br /> stmt ＝ sqlit.取记录集 (“select count(*) from ” ＋ 集_表名 ＋ “ ” ＋ 集_筛选条件, )<br /> 集_总记录数 ＝ stmt.查询标量 ()<br /> .' 判断循环首 (stmt.到下一条 ())<br /> ' 集_总记录数 ＝ stmt.读整数型 (0)<br /> .' 判断循环尾 ()<br /> stmt.关闭 ()<br /> .判断开始 (集_总记录数 ％ 集_每页显示数 ＝ 0)<br /> 集_总页数 ＝ 取整 (集_总记录数 ÷ 集_每页显示数)<br /> .默认<br /> 集_总页数 ＝ 取整 (集_总记录数 ÷ 集_每页显示数) ＋ 1<br /> .判断结束<br /> ' ---------------------------------------<br /> <br /> .子程序 关闭, , 公开<br /> <br /> 连续赋值 (0, 集_每页显示数, 集_当前页码, 集_总记录数, 集_总页数)<br /> 集_是否超限 ＝ 假<br /> 集_表名 ＝ “”<br /> sqlit.关闭 ()<br /> 是否打开 ＝ 假<br /> <br /> .子程序 取总记录数, 整数型, 公开<br /> <br /> 返回 (集_总记录数)<br /> <br /> .子程序 置每页显示数, 整数型, 公开, 如果是超级列表框，请用 SendMessage (超级列表框1.取窗口句柄 (), 4136, 0, 0) 命令，自动设定<br /> .参数 数量, 整数型<br /> <br /> 集_每页显示数 ＝ 数量<br /> 返回 (集_每页显示数)<br /> <br /> .子程序 取每页显示数, 整数型, 公开<br /> <br /> 返回 (集_每页显示数)<br /> <br /> .子程序 取总页数, 整数型, 公开<br /> <br /> 返回 (集_总页数)<br /> <br /> .子程序 取当前页码, 整数型, 公开<br /> <br /> 返回 (集_当前页码 ＋ 1)<br /> <br /> .子程序 取分页记录, zySqlite记录集, 公开<br /> .参数 筛选条件, 文本型, 可空<br /> .局部变量 sql, 文本型<br /> .局部变量 当前位置, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 id, 整数型<br /> .局部变量 记录集1, zySqlite记录集<br /> <br /> 当前位置 ＝ 集_当前页码 × 集_每页显示数<br /> 调试输出 (当前位置)<br /> sql ＝ “SELECT * FROM (SELECT * FROM ” ＋ 集_表名 ＋ “ ” ＋ 筛选条件 ＋ “ LIMIT ” ＋ 到文本 (当前位置) ＋ “,” ＋ 到文本 (集_每页显示数) ＋ “)”<br /> 调试输出 (sql)<br /> ' 记录集1 ＝ sqlit.取记录集 (sql, )<br /> 记录集1.置SQL语句 (sql, sqlit)<br /> 记录集1.执行 ()<br /> .如果 (集_当前页码 ≥ 集_总页数)<br /> 集_是否超限 ＝ 真<br /> .否则<br /> 集_是否超限 ＝ 假<br /> .如果结束<br /> 调试输出 (记录集1.取行数 ())<br /> 返回 (记录集1)<br /> <br /> .子程序 到上一页, , 公开<br /> <br /> 集_当前页码 ＝ 集_当前页码 － 1<br /> .如果真 (集_当前页码 ＜ 0)<br /> 集_当前页码 ＝ 0<br /> .如果真结束<br /> <br /> <br /> .子程序 到下一页, , 公开<br /> <br /> .如果真 (集_是否超限 ＝ 假)<br /> .如果真 (集_当前页码 ＜ 集_总页数 － 1)<br /> 集_当前页码 ＝ 集_当前页码 ＋ 1<br /> .如果真结束<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 到首页, , 公开<br /> <br /> 集_当前页码 ＝ 0<br /> <br /> .子程序 到尾页, , 公开<br /> <br /> 集_当前页码 ＝ 集_总页数 － 1<br /> <br /> .子程序 跳转, , 公开<br /> .参数 页码, 整数型<br /> <br /> .判断开始 (页码 ≤ 集_总页数 且 页码 ＞ 0)<br /> 集_当前页码 ＝ 页码 － 1<br /> .默认<br /> 信息框 (“超出范围！”, 48, “出错啦”, )<br /> .判断结束

ningjz

haizhen00005 发表于 2021-6-23 18:40
最近有时间会把例子传上去

兄弟，我最近准备写一个小工具，想用sqlite做数据库，苦于没有找到相关分页的例子，有没有参考源码分享？万分感谢！

huanyu1

谢谢分享

515667395

多谢分享

ghost12

很赞同，谢谢！

zkwt0012

新技能已get√

ghost12

新技能已get√

w3516330

支持开源~！感谢分享

杨明煜

真行..................

yuxuanju

感谢楼主分享

mgut

这个可以下来学习一下