转载

Form_Form Tree树形结构的介绍（案例）

2013-02-09 Created By BaoXinjian

Form_Form Tree树形结构的介绍（案例）一、摘要

Developer 6.0以上版本提供了hierarchy tree（层次树）的概念，htree控件非常方便，只需要少量的编程即可实现显示层次结构的目的。

树的特有属性中如下几个较为重要

1. 多项选择（Multi-Selection）

是否允许一次选中树的多个节点。如果不允许，那么选中第二个节点时，第一个被选中的节点会取消选择。

2. 记录组（Record Group）

指定生成树的记录组的名字。

Form_Form Tree树形结构的介绍（案例）二、Tree常用方法

FUNCTION GET_TREE_NODE_PROPERTY (item_name VARCHAR2, node NODE, property NUMBER);

功能：取得树节点的属性

2. FUNCTION GET_TREE_PROPERTY (item_name VARCHAR2,property NUMBER);

功能：取得树的属性

3. PROCEDURE SET_TREE_NODE_PROPERTY (item_name VARCHAR2,node FTREE.NODE,property NUMBER,value VARCHAR2);

功能：设置树节点的属性

4. PROCEDURE SET_TREE_PROPERTY (item_name VARCHAR2,property NUMBER, value VARCHAR2);

功能：设置树的属性

5. PROCEDURE POPULATE_TREE (item_name VARCHAR2);

功能：清空树中已有数据，并根据记录组或数据查询重新生成树。

6. PROCEDURE ADD_TREE_DATA (item_name VARCHAR2,node FTREE.NODE, offset_type NUMBER,offset NUMBER,data_source NUMBER,data VARCHAR2);

功能：在指定节点下添加树中数据

7. FUNCTION FIND_TREE_NODE(item_name VARCHAR2,earch_string VARCHAR2, search_type NUMBER,search_by NUMBER,search_root NODE,start_point NODE);

功能：找到显示文本或值符合search_string的节点。

8. FUNCTION ADD_TREE_NODE(item_name VARCHAR2,node FTREE.NODE, offset_type NUMBER,offset NUMBER,state NUMBER,label VARCHAR2, icon VARCHAR2,value VARCHAR2);

功能：添加树节点。

9. PROCEDURE DELETE_TREE_NODE(item_name VARCHAR2,node NODE);

功能：删除树节点

10. FUNCTION GET_TREE_NODE_PARENT(item_name VARCHAR2,node NODE);

功能：得到指定节点的父节点。

11. FUNCTION GET_TREE_SELECTION(item_name VARCHAR2,selection NUMBER);

功能：得到处于选中状态的节点。

12. PROCEDURE SET_TREE_SELECTION(item_name VARCHAR2,node NODE, selection_type NUMBER);

功能：指定单个节点的选中状态

Form_Form Tree树形结构的介绍（案例）三、Tree运行中的触发器

FORM运行态时有关的触发器：

1. When-Tree-Node-Activated：用户双击节点或在节点选中时按[ENTER]键时触发。

2. When-Tree-Node-Expanded：节点展开或收缩时触发

3. When-Tree-Node-Selected：当节点选中或取消选择时触发

Form_Form Tree树形结构的介绍（案例）四、Tree运行中的简单例子

描述：Find_Tree_Node找到指定节点，Add_Tree_Node来添加其下级节点。

缺点：编程较为复杂，操作不灵活，而且易出错。

优点：可以对添加节点等过程进行控制，实现一些特殊要求。

--dept_cur为取单位的CURSOR，emp_cur为取雇员的CURSOR　　 htree := find_item('tree_view.tree_emp'); OPEN dept_cur; LOOP   FETCH dept_cur INTO aa;   EXIT WHEN dept_cur%notfound; 
  del_node := ftree.find_tree_node (htree, aa.kjmc, ftree.find_next, ftree.node_label, ftree.root_node, ftree.root_node);   -- 删除单位节点及其子节点   IF NOT ftree.id_null(del_node) THEN     ftree.delete_tree_node(htree, del_node);   END IF; END LOOP; CLOSE dept_cur;  -- 根据用CURSOR取得的单位生成树的第一层节点 OPEN dept_cur; LOOP   FETCH dept_cur INTO aa;   EXIT WHEN dept_cur%notfound;   new_node := ftree.add_tree_node(htree, ftree.root_node, ftree.parent_offset, ftree.last_child, ftree.expanded_node, aa.dname, '', aa.deptno); END LOOP; CLOSE dept_cur;  --根据雇员CURSOR生成树的下层节点 OPEN emp_cur; LOOP   FETCH emp_cur INTO bb;   EXIT WHEN emp_cur%notfound;   find_node := ftree.find_tree_node(htree, bb.kjbh, ftree.find_nextfind_next,ftree.node_value, ftree.root_node, ftree.root_node);   new_node := ftree.add_tree_node(htree, find_node, ftree.parent_offset, ftree.last_child, ftree.expanded_node, bb.ename, '', bb.empno); END LOOP; CLOSE emp_cur;  -- 得到树的根节点 ss := ftree.get_tree_property(htree,ftree.node_count);  -- 循环，直到树的所有节点都展开 FOR j IN 1..ss LOOP   exp_node := ftree.find_tree_node(htree, '');   state := ftree.get_tree_node_property(htree, j, Ftree.NODE_STATE);   IF state = ftree.collapset_node THEN     ftree.set_tree_node_property(htree, j, ftree.node_state, ftree.expanded_node);   END IF; END LOOP;