条件cha询分页显示-2种cha询显示方法

李泽勇2

  

子程序名	返回值类型	公开	备 注
cha询数据_SQL_方法1
参数名	类 型	参考	可空	数组	备 注
页数	整数型
显示数量	整数型

变量名	类 型	静态	数组	备 注
SQL	文本型
已过数量	整数型
总行数	整数型
总列数	整数型
行数	整数型
列数	整数型

当前页编辑框.内容 ＝ 到文本 (页数)
页数 ＝ 页数 － 1  ' 默认从0开始
已过数量 ＝ 显示数量 × 页数
' ACCESS数据库已过数量不能小于0，否则SQL语法错误,这里+1，从第2行开始显示。
' SQL SERVER数据库是支持0的，使用这个数据库需要把+1删除。
' SQLite不支持 TOP 命令，不能用于这类数据库。
' ----------------------------------SQL方法1
' SQL ＝ “SELECT TOP ” ＋ 到文本 (显示数量) ＋ “ * FROM 基金净值 WHERE 序号 NOT IN (SELECT TOP ”
' SQL ＝ SQL ＋ 到文本 (已过数量) ＋ “ 序号 FROM 基金净值) AND 投资类型 like '%”
' SQL ＝ SQL ＋ 投资类型编辑框.内容 ＋ “%' and  管理公司 like '%” ＋ 管理公司编辑框.内容 ＋ “%'”
' ----------------------------------SQL方法2
' ACCESS数据库不支持这种方法，SQL SERVER数据库支持这种方法。
' SQLite不支持 TOP 命令，不能用于这类数据库。
' SQL ＝ “select top ” ＋ 到文本 (显示数量) ＋ “ * from (”
' ' -- 子cha询，多加一个rownumber列返回数据
' SQL ＝ SQL ＋ “select   row_number() over(order by 序号 asc) as rownumber, * from 基金净值) temp_row”
' ' --限制起始行标
' SQL ＝ SQL ＋ “ where rownumber>” ＋ 到文本 (已过数量)
' ----------------------------------SQL方法3
' 利用LIMIT限制输出数量实现分页显示，可惜支持MYSQL和SQLite而SQL SERVER 不支持
SQL ＝ “SELECT * FROM 基金净值 WHERE 投资类型 like '%” ＋ 投资类型编辑框.内容 ＋ “%' and  管理公司 like '%” ＋ 管理公司编辑框.内容 ＋ “%' LIMIT ” ＋ 到文本 (已过数量) ＋ “,” ＋ 到文本 (显示数量)
记录集.打开 (SQL, )
总行数 ＝ 记录集.记录数量 ()
总列数 ＝ 记录集.字段数量 ()
超级列表框1.全部删除 ()
计次循环首 (总行数, 行数)
超级列表框1.插入表项 (, , , , , )
计次循环首 (总列数, 列数)
超级列表框1.置标题 (行数 － 1, 列数 － 1, 记录集.读字段值 (, 列数 － 1).取文本 ())
计次循环尾 ()
记录集.到下一条 ()
计次循环尾 ()
记录集.关闭 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 cha询数据_SQL_方法1<br /> .参数 页数, 整数型<br /> .参数 显示数量, 整数型<br /> .局部变量 SQL, 文本型<br /> .局部变量 已过数量, 整数型<br /> .局部变量 总行数, 整数型<br /> .局部变量 总列数, 整数型<br /> .局部变量 行数, 整数型<br /> .局部变量 列数, 整数型<br /> <br /> 当前页编辑框.内容 ＝ 到文本 (页数)<br /> 页数 ＝ 页数 － 1  ' 默认从0开始<br /> 已过数量 ＝ 显示数量 × 页数<br /> ' ACCESS数据库已过数量不能小于0，否则SQL语法错误,这里+1，从第2行开始显示。<br /> ' SQL SERVER数据库是支持0的，使用这个数据库需要把+1删除。<br /> ' SQLite不支持 TOP 命令，不能用于这类数据库。<br /> <br /> ' ----------------------------------SQL方法1<br /> ' SQL ＝ “SELECT TOP ” ＋ 到文本 (显示数量) ＋ “ * FROM 基金净值 WHERE 序号 NOT IN (SELECT TOP ”<br /> ' SQL ＝ SQL ＋ 到文本 (已过数量) ＋ “ 序号 FROM 基金净值) AND 投资类型 like '%”<br /> ' SQL ＝ SQL ＋ 投资类型编辑框.内容 ＋ “%' and  管理公司 like '%” ＋ 管理公司编辑框.内容 ＋ “%'”<br /> <br /> ' ----------------------------------SQL方法2<br /> ' ACCESS数据库不支持这种方法，SQL SERVER数据库支持这种方法。<br /> ' SQLite不支持 TOP 命令，不能用于这类数据库。<br /> <br /> ' SQL ＝ “select top ” ＋ 到文本 (显示数量) ＋ “ * from (”<br /> ' ' -- 子cha询，多加一个rownumber列返回数据<br /> ' SQL ＝ SQL ＋ “select   row_number() over(order by 序号 asc) as rownumber, * from 基金净值) temp_row”<br /> ' ' --限制起始行标<br /> ' SQL ＝ SQL ＋ “ where rownumber>” ＋ 到文本 (已过数量)<br /> <br /> ' ----------------------------------SQL方法3<br /> ' 利用LIMIT限制输出数量实现分页显示，可惜支持MYSQL和SQLite而SQL SERVER 不支持<br /> SQL ＝ “SELECT * FROM 基金净值 WHERE 投资类型 like '%” ＋ 投资类型编辑框.内容 ＋ “%' and  管理公司 like '%” ＋ 管理公司编辑框.内容 ＋ “%' LIMIT ” ＋ 到文本 (已过数量) ＋ “,” ＋ 到文本 (显示数量)<br /> 记录集.打开 (SQL, )<br /> 总行数 ＝ 记录集.记录数量 ()<br /> 总列数 ＝ 记录集.字段数量 ()<br /> 超级列表框1.全部删除 ()<br /> .计次循环首 (总行数, 行数)<br />     超级列表框1.插入表项 (, , , , , )<br />     .计次循环首 (总列数, 列数)<br />         超级列表框1.置标题 (行数 － 1, 列数 － 1, 记录集.读字段值 (, 列数 － 1).取文本 ())<br />     .计次循环尾 ()<br />     记录集.到下一条 ()<br /> .计次循环尾 ()<br /> 记录集.关闭 ()

  

子程序名	返回值类型	公开	备 注
取数据_数组_方法2
参数名	类 型	参考	可空	数组	备 注
内容	文本型				二维数组
显示数量	整数型				行数
总数量	整数型
总页数	整数型

变量名	类 型	静态	数组	备 注
总列数	整数型
列数	整数型
行数	整数型
sql	文本型

sql ＝ “select * from 基金净值  where 投资类型 like '%” ＋ 投资类型编辑框.内容 ＋ “%' and  管理公司 like '%” ＋ 管理公司编辑框.内容 ＋ “%'”
记录集.打开 (sql, 数据库, 真)
总数量 ＝ 记录集.记录数量 ()
总列数 ＝ 记录集.字段数量 ()
如果真 (总数量 ≠ 0)
记录数编辑框.内容 ＝ “共” ＋ 到文本 (总数量) ＋ “条记录”
总页数 ＝ ���取整 (－总数量 ÷ 显示数量)
总页数编辑框.内容 ＝ 到文本 (总页数)
重定义数组 (内容, 假, 总数量, 总列数)
计次循环首 (总数量, 行数)
计次循环首 (总列数, 列数)
内容 [行数] [列数] ＝ 记录集.读字段值 (, 列数 － 1).取文本 ()
计次循环尾 ()
记录集.到下一条 ()
计次循环尾 ()
记录集.关闭 ()

.版本 2<br /> <br /> .子程序 取数据_数组_方法2<br /> .参数 内容, 文本型, 参考 数组, 二维数组<br /> .参数 显示数量, 整数型, , 行数<br /> .参数 总数量, 整数型, 参考<br /> .参数 总页数, 整数型, 参考<br /> .局部变量 总列数, 整数型<br /> .局部变量 列数, 整数型<br /> .局部变量 行数, 整数型<br /> .局部变量 sql, 文本型<br /> <br /> sql ＝ “select * from 基金净值  where 投资类型 like '%” ＋ 投资类型编辑框.内容 ＋ “%' and  管理公司 like '%” ＋ 管理公司编辑框.内容 ＋ “%'”<br /> 记录集.打开 (sql, 数据库, 真)<br /> 总数量 ＝ 记录集.记录数量 ()<br /> 总列数 ＝ 记录集.字段数量 ()<br /> .如果真 (总数量 ≠ 0)<br />     记录数编辑框.内容 ＝ “共” ＋ 到文本 (总数量) ＋ “条记录”<br />     总页数 ＝ －取整 (－总数量 ÷ 显示数量)<br />     总页数编辑框.内容 ＝ 到文本 (总页数)<br />     重定义数组 (内容, 假, 总数量, 总列数)<br />     .计次循环首 (总数量, 行数)<br />         .计次循环首 (总列数, 列数)<br />             内容 [行数] [列数] ＝ 记录集.读字段值 (, 列数 － 1).取文本 ()<br />         .计次循环尾 ()<br />         记录集.到下一条 ()<br />     .计次循环尾 ()<br /> .如果真结束<br /> 记录集.关闭 ()

条件cha询分页显示-2种cha询显示方法2.7z (554.82 KB, 下载次数: 22)

2024-7-24 16:02 上传

点击文件名下载附件

空竹

空竹，如果您要查看本帖隐藏内容请回复

ningjz

开源精神必须支持~

cdzch

感谢发布原创作品，精易因你更精彩！

lm88818

感谢分享，很给力！~

ttai000

认真学习！

784326742

其实都差不多，主要是语句

a萧哥

这是用的sql数据库吗？

hjinpwhe1

学习 学习 ~

ningjz

开源精神必须支持~