Form_Form Tree树形结构HTree的引见（案例）

2013-02-09 Created By BaoXinjian

一、摘要

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

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

1. 多项选择（Multi-Selection）

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

2. 记录组（Record Group）

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

二、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);

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

三、Tree运行中的触发器

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

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

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

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

四、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;

Thanks and Regards

参考：Techwind - http://www.techwind.net/viewthread.php?tid=1689&page=1&extra=page%3D1