条件cha询分页显示-2种cha询显示方法 - 精易论坛

子程序名	返回值类型	公开	备注
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).取文本 ()

计次循环尾 ()

记录集.到下一条 ()

计次循环尾 ()
记录集.关闭 ()