数据库权限管理树形框自动勾选选择框源码

树型框1.项目 ＝ { }
.如果真 (打开数据库 ())
加入成员 (父项目数组, 0)
.判断循环首 (取数组成员数 (父项目数组) ≠ 0)
上级ID ＝ 父项目数组 [1]
删除成员 (父项目数组, 1, 1)
SQL ＝ “Select * From GroupCompetence where ParentID=” ＋ 到文本 (上级ID) ＋ “ Order By CompetenceID Asc”
记录集1.打开 (SQL, #SQL语句)
父项目索引 ＝ 取项目索引 (上级ID)
.判断循环首 (记录集1.尾记录后 ＝ 假)
记录集1.读整数 (“CompetenceID”, 权限ID)
记录集1.读文本 (“CompetenceName”, 权限名称)
加入成员 (父项目数组, 权限ID)
树型框1.加入项目 (父项目索引, 权限名称, 0, 0, 权限ID)
记录集1.到下一条 ()
.判断循环尾 ()
树型框1.扩展 (父项目索引)
记录集1.关闭 ()
.判断循环尾 ()
关闭数据库 ()
.如果真结束
树型框句柄 ＝ 树型框1.取窗口句柄 ()
树型框_加入选择框 ()
树型框_遍历句柄 ()