关于树型框读数据库问题

qaz5080

读出来像黑色图片一样显示 树型框-数据库-修改后.rar (262.83 KB, 下载次数: 13)

2023-4-13 07:44 上传

点击文件名下载附件

mxsoft

  

子程序名	返回值类型	公开	备 注
读树型框项目

变量名	类 型	静态	数组	备 注
索引	整数型
计次	整数型
记录数量	整数型
数量	整数型
pid	整数型

树型框1.清空 ()
记录集_.打开 (“select * from  is_menu”, 数据库_, 真, )
记录集_.到首记录 ()
记录数量 ＝ 记录集_.记录数量 ()
索引 ＝ 0
数量 ＝ 0
计次循环首 (记录数量, )
处理事件 ()
pid ＝ 记录集_.读整数 (“pid”)
. ' 如果真 (记录集_.读整数 (“psonnum”) ≠ 0)
如果 (pid ≠ 0)
. ' 如果真 (记录集_.读整数 (“pid”) ≠ 0)
计次循环首 (树型框1.取项目数 (), 计次)
如果真 (到整数 (记录集_.读整数 (“pid”)) ＝ 树型框1.取项目数值 (计次 － 1))
索引 ＝ 计次 － 1
跳出循环 ()

计次循环尾 ()
树型框1.加入项目 (索引, 记录集_.读文本 (“name”), 0, 1, 到整数 (记录集_.读整数 (“id”)), , )

索引 ＝ 树型框1.加入项目 (-1, 记录集_.读文本 (“name”), 0, 1, 到整数 (记录集_.读整数 (“id”)), , )

记录集_.到下一条 ()
计次循环尾 ()
计次循环首 (树型框1.取项目数 (), 计次)
树型框1.扩展 (计次 － 1)
计次循环尾 ()
记录集_.关闭 ()
树型框1.现行选中项 ＝ 0
' 树型框1.获取焦点 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 读树型框项目<br /> .局部变量 索引, 整数型<br /> .局部变量 计次, 整数型<br /> .局部变量 记录数量, 整数型<br /> .局部变量 数量, 整数型<br /> .局部变量 pid, 整数型<br /> <br /> 树型框1.清空 ()<br /> 记录集_.打开 (“select * from  is_menu”, 数据库_, 真, )<br /> 记录集_.到首记录 ()<br /> 记录数量 ＝ 记录集_.记录数量 ()<br /> 索引 ＝ 0<br /> 数量 ＝ 0<br /> <br /> <br /> <br /> .计次循环首 (记录数量, )<br />     处理事件 ()<br />     pid ＝ 记录集_.读整数 (“pid”)<br />     .' 如果真 (记录集_.读整数 (“psonnum”) ≠ 0)<br />         .如果 (pid ≠ 0)<br />             .' 如果真 (记录集_.读整数 (“pid”) ≠ 0)<br />                 .计次循环首 (树型框1.取项目数 (), 计次)<br />                     .如果真 (到整数 (记录集_.读整数 (“pid”)) ＝ 树型框1.取项目数值 (计次 － 1))<br />                         索引 ＝ 计次 － 1<br />                         跳出循环 ()<br />                     .如果真结束<br /> <br />                 .计次循环尾 ()<br /> <br />                 树型框1.加入项目 (索引, 记录集_.读文本 (“name”), 0, 1, 到整数 (记录集_.读整数 (“id”)), , )<br /> <br />             .如果真结束<br /> <br /> <br />         .否则<br />             索引 ＝ 树型框1.加入项目 (-1, 记录集_.读文本 (“name”), 0, 1, 到整数 (记录集_.读整数 (“id”)), , )<br />         .如果结束<br /> <br /> <br /> <br /> <br /> <br /> <br />     .如果真结束<br />     记录集_.到下一条 ()<br /> .计次循环尾 ()<br /> .计次循环首 (树型框1.取项目数 (), 计次)<br />     树型框1.扩展 (计次 － 1)<br /> .计次循环尾 ()<br /> 记录集_.关闭 ()<br /> 树型框1.现行选中项 ＝ 0<br /> ' 树型框1.获取焦点 ()