exui 虚表问题

小麒QCC

下滑下载数据的时候，窗口感觉很卡，上滑一点都不卡，但是内容显示到窗口后，上滑一次，再下滑就不卡了，求大佬帮忙优化一下看看
111.e (1.44 MB, 下载次数: 0)

2025-3-28 22:14 上传

点击文件名下载附件

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
颜色组	整数型	6
角标	整数型
image1	整数型
随机按钮标题色	逻辑型
总项目数	整数型
数据缓存	文本型	0
预加载数量	整数型
Control_Sl	整数型

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

变量名	类 型	静态	数组	备 注
n	整数型
当前项目数	整数型
i	整数型
Title	字节集
表头角标	整数型
index	整数型
懒加载	逻辑型
sql语句	文本型
记录集	整数型
数据库记录总数	长整数型

全_mysql句柄 ＝ 连接MySql (“127.0.0.1”, “root”, “123123”, “123”, 3306)
如果 (全_mysql句柄 ＝ 0)
信息框 (“数据库连接失败！”, 0, , )
返回 ()


执行SQL语句 (全_mysql句柄, “set names GBK”)
Control_Sl ＝ 组件取窗口绑定组件 (超级列表框EX1.取窗口句柄 ())
组件暂停重画 (Control_Sl)
' cha询jizhang_account表的记录总数，使用AS指定别名
sql语句 ＝ “SELECT COUNT(*) AS record_count FROM jizhang_account”
如果 (执行SQL语句 (全_mysql句柄, sql语句) ＝ 假)
信息框 (“cha询记录总数失败！”, 0, , )
返回 ()


记录集 ＝ 取记录集 (全_mysql句柄)
如果 (记录集 ＝ 0)
信息框 (“获取记录集失败！”, 0, , )
返回 ()


到首行 (记录集)
读字段值 (记录集, “record_count”, 数据库记录总数)
释放记录集 (记录集)
总项目数 ＝ 数据库记录总数
' 预加载数据到缓存
预加载数据 ()
' 设置虚表回调
如果 (到整数 (&虚表回调) ＝ 0)
信息框 (“虚表回调函数指针获取失败！”, 0, , )
返回 ()


组件发送消息 (Control_Sl, #组件接口命令_启用虚表, 到整数 (&虚表回调), 0, 0, 0)
' 设置滚动回调实现懒加载
懒加载 ＝ 真
如果 (懒加载)
如果 (到整数 (&滚动回调) ＝ 0)
信息框 (“滚动回调函数指针获取失败！”, 0, , )
返回 ()


组件发送消息 (Control_Sl, #组件接口命令_置内容滚动回调, 到整数 (&滚动回调), 0, 0, 0)
' 先插入10个
超级列表框EX1.插入项目 (-1, 10, 0, 30)
' 一次插入总项目数量
超级列表框EX1.插入项目 (-1, 10, 0, 30)
' 之后不需要设置项目数据 当项目需要显示时 会调用虚表回调 来装填数据
组件容许重画 (Control_Sl)

子程序名	返回值类型	公开	备 注
预加载数据

变量名	类 型	静态	数组	备 注
sql语句	文本型
记录集	整数型
i	整数型
编号	文本型
金额	文本型
备注	文本型
支fu类型	文本型
项目	文本型
时间	文本型
支fuID	文本型

sql语句 ＝ “SELECT ja.acid, ja.acmoney, ja.actime, ja.acremark, ja.zhifu, jc.classname, jp.proname FROM jizhang_account ja JOIN jizhang_program jp ON ja.proid = jp.proid JOIN jizhang_account_class jc ON ja.zhifu = jc.classid JOIN jizhang_bank jb ON ja.bankid = jb.bankid order by acid desc LIMIT ” ＋ 到文本 (预加载数量)
如果 (执行SQL语句 (全_mysql句柄, sql语句) ＝ 假)
信息框 (“预加载数据cha询失败！”, 0, , )
返回 ()


记录集 ＝ 取记录集 (全_mysql句柄)
如果 (记录集 ＝ 0)
信息框 (“预加载数据获取记录集失败！”, 0, , )
返回 ()


i ＝ 0
判断循环首 (到下一行 (记录集) ＝ 真)
读字段值 (记录集, “acid”, 编号)
读字段值 (记录集, “acmoney”, 金额)
读字段值 (记录集, “actime”, 时间)
读字段值 (记录集, “acremark”, 备注)
读字段值 (记录集, “zhifu”, 支fuID)
读字段值 (记录集, “classname”, 支fu类型)
读字段值 (记录集, “proname”, 项目)
数据缓存 [i ＋ 1] ＝ 编号 ＋ “|” ＋ 金额 ＋ “|” ＋ 时间 ＋ “|” ＋ 备注 ＋ “|” ＋ 支fuID ＋ “|” ＋ 支fu类型 ＋ “|” ＋ 项目
i ＝ i ＋ 1
判断循环尾 ()
释放记录集 (记录集)

子程序名	返回值类型	公开	备 注
滚动回调	整数型
参数名	类 型	参考	可空	数组	备 注
组件句柄
消息					目前只有659
参数1					横滚动条位置
参数2					纵滚动条位置
参数3					暂时无效
参数4					类型 0无效 1纵滚动条 2横滚动条 3横纵滚动条

变量名	类 型	静态	数组	备 注
现有项目数	整数型
可插入数量	整数型
i	整数型

判断 (消息 ＝ 659)
如果真 (参数4 ＝ 2)
返回 (0)
现有项目数 ＝ 超级列表框EX1.取项目数量 ()
可插入数量 ＝ 总项目数 － 现有项目数
如果真 (现有项目数 ＞ 0 且 可插入数量 ＞ 0)
如果真 (参数2 ＞ 组件发送消息 (组件句柄, 12593, 0, 0, 0, 0) － 组件发送消息 (组件句柄, 12595, 0, 0, 0, 0) × 1.1)
如果 (可插入数量 ＞ 10)
超级列表框EX1.插入项目 (-1, 10, 0, 30)
超级列表框EX1.插入项目 (-1, 可插入数量, 0, 30)
' 插入新项目后，通知虚表回调更新数据
计次循环首 (可插入数量, i)
组件发送消息 (Control_Sl, #组件接口命令_置虚表项目更新模式, 现有项目数 ＋ i － 1, 0, 0, 0)
计次循环尾 ()




返回 (0)

子程序名	返回值类型	公开	备 注
虚表回调	整数型
参数名	类 型	参考	可空	数组	备 注
组件句柄
消息
参数1
参数2
参数3
参数4					项目装载模式   初始为0

变量名	类 型	静态	数组	备 注
i	整数型
sql语句	文本型
记录集	整数型
编号	文本型
金额	文本型
备注	文本型
支fu类型	文本型
项目	文本型
时间	文本型
支fuID	文本型
缓存数据	文本型		0

判断 (消息 ＝ 1)  ' 请求装填表项数据
判断 (参数4 ＝ 0)  ' 在装填数据时 需要将 项目数据全部装填(通常如此)
如果 (取数组成员数 (数据缓存) ＜ 参数1 ＋ 1)
重定义数组 (数据缓存, 真, 参数1 ＋ 1)
sql语句 ＝ “SELECT ja.acid, ja.acmoney, ja.actime, ja.acremark, ja.zhifu, jc.classname, jp.proname FROM jizhang_account ja JOIN jizhang_program jp ON ja.proid = jp.proid JOIN jizhang_account_class jc ON ja.zhifu = jc.classid JOIN jizhang_bank jb ON ja.bankid = jb.bankid order by acid desc LIMIT ” ＋ 到文本 (参数1) ＋ “, 1”
如果 (执行SQL语句 (全_mysql句柄, sql语句) ＝ 假)
信息框 (“单条数据cha询失败！”, 0, , )
返回 (0)


记录集 ＝ 取记录集 (全_mysql句柄)
如果 (记录集 ＝ 0)
信息框 (“单条数据获取记录集失败！”, 0, , )
返回 (0)


读字段值 (记录集, “acid”, 编号)
读字段值 (记录集, “acmoney”, 金额)
读字段值 (记录集, “actime”, 时间)
读字段值 (记录集, “acremark”, 备注)
读字段值 (记录集, “zhifu”, 支fuID)
读字段值 (记录集, “classname”, 支fu类型)
读字段值 (记录集, “proname”, 项目)
数据缓存 [参数1 ＋ 1] ＝ 编号 ＋ “|” ＋ 金额 ＋ “|” ＋ 时间 ＋ “|” ＋ 备注 ＋ “|” ＋ 支fuID ＋ “|” ＋ 支fu类型 ＋ “|” ＋ 项目
释放记录集 (记录集)
缓存数据 ＝ 分割文本 (数据缓存 [参数1 ＋ 1], “|”, )
编号 ＝ 缓存数据 [1]
金额 ＝ 缓存数据 [2]
时间 ＝ 缓存数据 [3]
备注 ＝ 缓存数据 [4]
支fuID ＝ 缓存数据 [5]
支fu类型 ＝ 缓存数据 [6]
项目 ＝ 缓存数据 [7]

超级列表框EX1.置项目文本_W (参数1, 0, ATU (编号))
如果 (支fuID ＝ “1”)
超级列表框EX1.置项目文本_W (参数1, 1, ATU (“收入>>” ＋ 支fu类型))
超级列表框EX1.置项目文本_W (参数1, 1, ATU (“支出>>” ＋ 支fu类型))

超级列表框EX1.置项目文本_W (参数1, 2, ATU (项目))
超级列表框EX1.置项目文本_W (参数1, 3, ATU (金额))
超级列表框EX1.置项目文本_W (参数1, 4, ATU (时间))
超级列表框EX1.置项目文本_W (参数1, 5, ATU (备注))


返回 (1)


返回 (0)

i支持库列表	支持库注释
mysql	MySql支持库
ExuiKrnln	(未知支持库)

.版本 2<br /> .支持库 mysql<br /> .支持库 ExuiKrnln<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 颜色组, 整数型, , "6"<br /> .程序集变量 角标, 整数型<br /> .程序集变量 image1, 整数型<br /> .程序集变量 随机按钮标题色, 逻辑型<br /> .程序集变量 总项目数, 整数型<br /> .程序集变量 数据缓存, 文本型, , "0"<br /> .程序集变量 预加载数量, 整数型<br /> .程序集变量 Control_Sl, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 n, 整数型<br /> .局部变量 当前项目数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 Title, 字节集<br /> .局部变量 表头角标, 整数型<br /> .局部变量 index, 整数型<br /> .局部变量 懒加载, 逻辑型<br /> .局部变量 sql语句, 文本型<br /> .局部变量 记录集, 整数型<br /> .局部变量 数据库记录总数, 长整数型<br /> <br /> 全_mysql句柄 ＝ 连接MySql (“127.0.0.1”, “root”, “123123”, “123”, 3306)<br /> .如果 (全_mysql句柄 ＝ 0)<br />     信息框 (“数据库连接失败！”, 0, , )<br />     返回 ()<br /> .否则<br /> <br /> .如果结束<br /> 执行SQL语句 (全_mysql句柄, “set names GBK”)<br /> <br /> Control_Sl ＝ 组件取窗口绑定组件 (超级列表框EX1.取窗口句柄 ())<br /> <br /> 组件暂停重画 (Control_Sl)<br /> ' cha询jizhang_account表的记录总数，使用AS指定别名<br /> sql语句 ＝ “SELECT COUNT(*) AS record_count FROM jizhang_account”<br /> .如果 (执行SQL语句 (全_mysql句柄, sql语句) ＝ 假)<br />     信息框 (“cha询记录总数失败！”, 0, , )<br />     返回 ()<br /> .否则<br /> <br /> .如果结束<br /> 记录集 ＝ 取记录集 (全_mysql句柄)<br /> .如果 (记录集 ＝ 0)<br />     信息框 (“获取记录集失败！”, 0, , )<br />     返回 ()<br /> .否则<br /> <br /> .如果结束<br /> 到首行 (记录集)<br /> 读字段值 (记录集, “record_count”, 数据库记录总数)<br /> 释放记录集 (记录集)<br /> 总项目数 ＝ 数据库记录总数<br /> <br /> ' 预加载数据到缓存<br /> 预加载数据 ()<br /> <br /> ' 设置虚表回调<br /> .如果 (到整数 (&虚表回调) ＝ 0)<br />     信息框 (“虚表回调函数指针获取失败！”, 0, , )<br />     返回 ()<br /> .否则<br /> <br /> .如果结束<br /> 组件发送消息 (Control_Sl, #组件接口命令_启用虚表, 到整数 (&虚表回调), 0, 0, 0)<br /> <br /> ' 设置滚动回调实现懒加载<br /> 懒加载 ＝ 真<br /> .如果 (懒加载)<br />     .如果 (到整数 (&滚动回调) ＝ 0)<br />         信息框 (“滚动回调函数指针获取失败！”, 0, , )<br />         返回 ()<br />     .否则<br /> <br />     .如果结束<br />     组件发送消息 (Control_Sl, #组件接口命令_置内容滚动回调, 到整数 (&滚动回调), 0, 0, 0)<br />     ' 先插入10个<br />     超级列表框EX1.插入项目 (-1, 10, 0, 30)<br /> .否则<br />     ' 一次插入总项目数量<br />     超级列表框EX1.插入项目 (-1, 10, 0, 30)<br /> .如果结束<br /> ' 之后不需要设置项目数据 当项目需要显示时 会调用虚表回调 来装填数据<br /> 组件容许重画 (Control_Sl)<br /> <br /> .子程序 预加载数据<br /> .局部变量 sql语句, 文本型<br /> .局部变量 记录集, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 编号, 文本型<br /> .局部变量 金额, 文本型<br /> .局部变量 备注, 文本型<br /> .局部变量 支fu类型, 文本型<br /> .局部变量 项目, 文本型<br /> .局部变量 时间, 文本型<br /> .局部变量 支fuID, 文本型<br /> <br /> sql语句 ＝ “SELECT ja.acid, ja.acmoney, ja.actime, ja.acremark, ja.zhifu, jc.classname, jp.proname FROM jizhang_account ja JOIN jizhang_program jp ON ja.proid = jp.proid JOIN jizhang_account_class jc ON ja.zhifu = jc.classid JOIN jizhang_bank jb ON ja.bankid = jb.bankid order by acid desc LIMIT ” ＋ 到文本 (预加载数量)<br /> .如果 (执行SQL语句 (全_mysql句柄, sql语句) ＝ 假)<br />     信息框 (“预加载数据cha询失败！”, 0, , )<br />     返回 ()<br /> .否则<br /> <br /> .如果结束<br /> 记录集 ＝ 取记录集 (全_mysql句柄)<br /> .如果 (记录集 ＝ 0)<br />     信息框 (“预加载数据获取记录集失败！”, 0, , )<br />     返回 ()<br /> .否则<br /> <br /> .如果结束<br /> i ＝ 0<br /> .判断循环首 (到下一行 (记录集) ＝ 真)<br />     读字段值 (记录集, “acid”, 编号)<br />     读字段值 (记录集, “acmoney”, 金额)<br />     读字段值 (记录集, “actime”, 时间)<br />     读字段值 (记录集, “acremark”, 备注)<br />     读字段值 (记录集, “zhifu”, 支fuID)<br />     读字段值 (记录集, “classname”, 支fu类型)<br />     读字段值 (记录集, “proname”, 项目)<br /> <br />     数据缓存 [i ＋ 1] ＝ 编号 ＋ “|” ＋ 金额 ＋ “|” ＋ 时间 ＋ “|” ＋ 备注 ＋ “|” ＋ 支fuID ＋ “|” ＋ 支fu类型 ＋ “|” ＋ 项目<br />     i ＝ i ＋ 1<br /> .判断循环尾 ()<br /> 释放记录集 (记录集)<br /> <br /> .子程序 滚动回调, 整数型<br /> .参数 组件句柄<br /> .参数 消息, , , 目前只有659<br /> .参数 参数1, , , 横滚动条位置<br /> .参数 参数2, , , 纵滚动条位置<br /> .参数 参数3, , , 暂时无效<br /> .参数 参数4, , , 类型 0无效 1纵滚动条 2横滚动条 3横纵滚动条<br /> .局部变量 现有项目数, 整数型<br /> .局部变量 可插入数量, 整数型<br /> .局部变量 i, 整数型<br /> <br /> .判断开始 (消息 ＝ 659)<br />     .如果真 (参数4 ＝ 2)<br />         返回 (0)<br />     .如果真结束<br />     现有项目数 ＝ 超级列表框EX1.取项目数量 ()<br />     可插入数量 ＝ 总项目数 － 现有项目数<br />     .如果真 (现有项目数 ＞ 0 且 可插入数量 ＞ 0)<br />         .如果真 (参数2 ＞ 组件发送消息 (组件句柄, 12593, 0, 0, 0, 0) － 组件发送消息 (组件句柄, 12595, 0, 0, 0, 0) × 1.1)<br />             .如果 (可插入数量 ＞ 10)<br />                 超级列表框EX1.插入项目 (-1, 10, 0, 30)<br />             .否则<br />                 超级列表框EX1.插入项目 (-1, 可插入数量, 0, 30)<br />             .如果结束<br />             ' 插入新项目后，通知虚表回调更新数据<br />             .计次循环首 (可插入数量, i)<br /> <br />                 组件发送消息 (Control_Sl, #组件接口命令_置虚表项目更新模式, 现有项目数 ＋ i － 1, 0, 0, 0)<br />             .计次循环尾 ()<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .默认<br /> <br /> .判断结束<br /> 返回 (0)<br /> <br /> .子程序 虚表回调, 整数型<br /> .参数 组件句柄<br /> .参数 消息<br /> .参数 参数1<br /> .参数 参数2<br /> .参数 参数3<br /> .参数 参数4, , , 项目装载模式   初始为0<br /> .局部变量 i, 整数型<br /> .局部变量 sql语句, 文本型<br /> .局部变量 记录集, 整数型<br /> .局部变量 编号, 文本型<br /> .局部变量 金额, 文本型<br /> .局部变量 备注, 文本型<br /> .局部变量 支fu类型, 文本型<br /> .局部变量 项目, 文本型<br /> .局部变量 时间, 文本型<br /> .局部变量 支fuID, 文本型<br /> .局部变量 缓存数据, 文本型, , "0"<br /> <br /> .判断开始 (消息 ＝ 1)  ' 请求装填表项数据<br />     .判断开始 (参数4 ＝ 0)  ' 在装填数据时 需要将 项目数据全部装填(通常如此)<br />         .如果 (取数组成员数 (数据缓存) ＜ 参数1 ＋ 1)<br />             重定义数组 (数据缓存, 真, 参数1 ＋ 1)<br />             sql语句 ＝ “SELECT ja.acid, ja.acmoney, ja.actime, ja.acremark, ja.zhifu, jc.classname, jp.proname FROM jizhang_account ja JOIN jizhang_program jp ON ja.proid = jp.proid JOIN jizhang_account_class jc ON ja.zhifu = jc.classid JOIN jizhang_bank jb ON ja.bankid = jb.bankid order by acid desc LIMIT ” ＋ 到文本 (参数1) ＋ “, 1”<br />             .如果 (执行SQL语句 (全_mysql句柄, sql语句) ＝ 假)<br />                 信息框 (“单条数据cha询失败！”, 0, , )<br />                 返回 (0)<br />             .否则<br /> <br />             .如果结束<br />             记录集 ＝ 取记录集 (全_mysql句柄)<br />             .如果 (记录集 ＝ 0)<br />                 信息框 (“单条数据获取记录集失败！”, 0, , )<br />                 返回 (0)<br />             .否则<br /> <br />             .如果结束<br />             读字段值 (记录集, “acid”, 编号)<br />             读字段值 (记录集, “acmoney”, 金额)<br />             读字段值 (记录集, “actime”, 时间)<br />             读字段值 (记录集, “acremark”, 备注)<br />             读字段值 (记录集, “zhifu”, 支fuID)<br />             读字段值 (记录集, “classname”, 支fu类型)<br />             读字段值 (记录集, “proname”, 项目)<br /> <br />             数据缓存 [参数1 ＋ 1] ＝ 编号 ＋ “|” ＋ 金额 ＋ “|” ＋ 时间 ＋ “|” ＋ 备注 ＋ “|” ＋ 支fuID ＋ “|” ＋ 支fu类型 ＋ “|” ＋ 项目<br />             释放记录集 (记录集)<br />         .否则<br />             缓存数据 ＝ 分割文本 (数据缓存 [参数1 ＋ 1], “|”, )<br />             编号 ＝ 缓存数据 [1]<br />             金额 ＝ 缓存数据 [2]<br />             时间 ＝ 缓存数据 [3]<br />             备注 ＝ 缓存数据 [4]<br />             支fuID ＝ 缓存数据 [5]<br />             支fu类型 ＝ 缓存数据 [6]<br />             项目 ＝ 缓存数据 [7]<br />         .如果结束<br /> <br />         超级列表框EX1.置项目文本_W (参数1, 0, ATU (编号))<br />         .如果 (支fuID ＝ “1”)<br />             超级列表框EX1.置项目文本_W (参数1, 1, ATU (“收入>>” ＋ 支fu类型))<br />         .否则<br />             超级列表框EX1.置项目文本_W (参数1, 1, ATU (“支出>>” ＋ 支fu类型))<br />         .如果结束<br /> <br />         超级列表框EX1.置项目文本_W (参数1, 2, ATU (项目))<br />         超级列表框EX1.置项目文本_W (参数1, 3, ATU (金额))<br />         超级列表框EX1.置项目文本_W (参数1, 4, ATU (时间))<br />         超级列表框EX1.置项目文本_W (参数1, 5, ATU (备注))<br />     .默认<br /> <br />     .判断结束<br />     返回 (1)<br /> .默认<br /> <br /> .判断结束<br /> 返回 (0)

zs5819

把数据库的数据存到数组，然后插入数量哪里写你数组的成员数。
那个滚动回调不要用，每次只加载一页，滚到到底才会再次加载，使用起来就感觉卡

aipca

数据多了，虚表加载的一瞬间卡一下是正常的吧，加载以后就不会卡了。

小麒QCC

aipca 发表于 2025-3-28 23:14
数据多了，虚表加载的一瞬间卡一下是正常的吧，加载以后就不会卡了。

我现在用的是分段加载，一次加载20个数据，滚动超级列表框到底部的时候再加载20个数据，有一点点卡，我以为虚表能解决这个问题的

小麒QCC

zs5819 发表于 2025-3-30 00:29
把数据库的数据存到数组，然后插入数量哪里写你数组的成员数。
那个滚动回调不要用，每次只加载一页，滚到 ...

算了，不折腾虚表了，感觉还是分段加载快一些