|
楼主 |
发表于 2020-8-4 13:33:44
|
显示全部楼层
浙江省杭州市
.版本 2
.支持库 iext
.支持库 spec
.子程序 读原材料数据库填充树型框
.参数 树型框_, 树型框
.参数 进度条_, 进度条, 可空
.参数 标签_, 标签, 可空
.局部变量 时间, 整数型
.局部变量 局部_计次, 整数型
.局部变量 局部_索引, 整数型
时间 = 取启动时间 ()
标签2.标题 = “”
全局_sql = “select * from ” + #常量_原材料类型表
调试输出 (全局_sql)
全局_记录集句柄 = 全局_数据库.查询 (全局_sql, )
进度条1.最小位置 = 0
进度条1.最大位置 = 全局_数据库.取记录数 (#常量_原材料类型表, )
.如果真 (全局_记录集句柄 = 0)
信息框 (“请检查数据库文件是否正确!”, 64, “查询失败”, )
全局_数据库.释放记录集 (全局_记录集句柄)
结束 ()
.如果真结束
树型框_.清空 ()
树型框_.加入项目 (0, “原材料类型资料”, 0, 0, 0, , )
全局_数据库.到首记录 (全局_记录集句柄)
.计次循环首 (全局_数据库.取记录数 (#常量_原材料类型表), 局部_计次)
分类编号 = 全局_数据库.读字段整数 (全局_记录集句柄, “id”)
分类名称 = 全局_数据库.读字段文本 (全局_记录集句柄, “原材料名称”)
上级分类 = 到数值 (全局_数据库.读字段文本 (全局_记录集句柄, “上级分类”))
.如果 (上级分类 = 0)
树型框_.加入项目 (0, 分类名称, , , 分类编号, , )
.否则
.计次循环首 (树型框_.取项目数 (), 循环变量A)
.如果真 (树型框_.取项目数值 (循环变量A - 1) = 上级分类)
树型框_.加入项目 (循环变量A - 1, 分类名称, , , 分类编号, , )
.如果真结束
.计次循环尾 ()
.如果结束
全局_数据库.到下一条 (全局_记录集句柄)
进度条1.位置 = 局部_计次
处理事件 ()
标签2.标题 = “一共” + 到文本 (全局_数据库.取记录数 (#常量_原材料类型表)) + “条数据” + “使用” + 到文本 ((取启动时间 () - 时间) ÷ 1000) + “ 秒 \ 共导出” + 到文本 (进度条1.位置) + “条数据”
.计次循环尾 ()
全局_数据库.释放记录集 (全局_记录集句柄)
树型框_.扩展 (0)
各位大神,请帮忙看一下这个怎么修改一下源码,谢谢 |
|