Oracle Form Builder中使用树的心得

　　一、树的简介
　　
　　Developer 6.0以上版本提供了hierarchy tree（层次树）的概念，htree控件非常方便，只需要少量的编程即可实现显示层次结构的目的。
　　
　　树的特有属性中如下几个较为重要：
　　
　　l 多项选择（Multi-Selection）：是否允许一次选中树的多个节点。如果不允许，那么 选中第二个节点时，第一个被选中的节点会取消选择。
　　
　　l 记录组（Record Group）：指定生成树的记录组的名字。
　　
　　简单介绍一下跟树相关的触发子（Built-in）：
　　
　　l FUNCTION GET_TREE_NODE_PROPERTY (item_name VARCHAR2, node NODE, property NUMBER);
　　
　　功能：取得树节点的属性
　　
　　其中property有如下几种：
　　
　　NODE_STATE：EXPANDED_NODE（扩展节点）
　　
　　COLLAPSED_NODE（收缩节点）
　　
　　LEAF_NODE（叶节点）--注：不能展开或收缩
　　
　　NODE_DEPTH：既节点在树中的层级。
　　
　　NODE_LABEL：节点的显示文本
　　
　　NODE_ICON：节点的图标
　　
　　NODE_VALUE：节点的值。
　　
　　例子：
　　
　　DECLARE
　　
　　htree ITEM;
　　
　　node_value VARCHAR2(100);
　　
　　BEGIN
　　
　　-- 得到树
　　
　　htree := Find_Item('tree_block.htree3');
　　
　　-- 得到当前选中节点的值
　　
　　node_value := Ftree.Get_Tree_Node_Property(htree, :SYSTEM.TRIGGER_NODE, Ftree.NODE_VALUE);
　　
　　...
　　
　　END;
　　
　　注释：其中: SYSTEM.TRIGGER_NODE指当前选中的树节点。
　　
　　l FUNCTION GET_TREE_PROPERTY (item_name VARCHAR2,property NUMBER);
　　
　　功能：取得树的属性
　　
　　其中property有如下几种：
　　
　　DATASOURCE
　　
　　RECORD_GROUP
　　
　　QUERY_TEXT
　　
　　NODE_COUNT：返回树中节点的个数。
　　
　　SELECTION_COUNT
　　
　　ALLOW_EMPTY_BRANCHES
　　
　　ALLOW_MULTI-SELECT
　　
　　l PROCEDURE SET_TREE_NODE_PROPERTY (item_name VARCHAR2,node FTREE.NODE,property NUMBER,value VARCHAR2);
　　
　　功能：设置树节点的属性
　　
　　l PROCEDURE SET_TREE_PROPERTY (item_name VARCHAR2,property NUMBER, value VARCHAR2);
　　
　　PROCEDURE SET_TREE_PROPERTY (item_name VARCHAR2,property NUMBER, value RECORDGROUP);
　　
　　功能：设置树的属性
　　
　　l PROCEDURE POPULATE_TREE (item_name VARCHAR2);
　　
　　功能：清空树中已有数据，并根据记录组或数据查询重新生成树。
　　
　　l PROCEDURE ADD_TREE_DATA (item_name VARCHAR2,node FTREE.NODE, offset_type NUMBER,offset NUMBER,data_source NUMBER,data VARCHAR2);
　　
　　功能：在指定节点下添加树中数据
　　
　　注：使用比较麻烦。
　　
　　l FUNCTION FIND_TREE_NODE(item_name VARCHAR2,earch_string VARCHAR2, search_type NUMBER,search_by NUMBER,search_root NODE,start_point NODE);
　　
　　功能：找到显示文本或值符合search_string的节点。
　　
　　参数：
　　
　　search_type：FIND_NEXT
　　
　　FIND_NEXT_CHILD
　　
　　Search_by：NODE_LABEL
　　
　　NODE_VALUE
　　
　　Search_root：查询的根节点，一般是Ftree.ROOT_NODE
　　
　　Start_point：查找的开始节点，一般是Ftree.ROOT_NODE
　　
　　l FUNCTION ADD_TREE_NODE(item_name VARCHAR2,node FTREE.NODE, offset_type NUMBER,offset NUMBER,state NUMBER,label VARCHAR2, icon VARCHAR2,value VARCHAR2);
　　
　　功能：添加树节点。
　　
　　Offset_type：指定节点的分支类型，PARENT_OFFSET和SIBLING_OFFSET
　　
　　Offset：指定新节点的位置，
　　
　　PARENT_OFFSET：1..N
　　
　　LAST_CHILD
　　
　　SIBLING_OFFSET：NEXT_NODE
　　
　　PREVIOUS_NODE
　　
　　State：EXPANDED_NODE（扩展节点）
　　
　　COLLAPSED_NODE（收缩节点）
　　
　　LEAF_NODE（叶节点）
　　
　　l PROCEDURE DELETE_TREE_NODE(item_name VARCHAR2,node NODE);
　　
　　功能：删除树节点
　　
　　l FUNCTION GET_TREE_NODE_PARENT(item_name VARCHAR2,node NODE);
　　
　　功能：得到指定节点的父节点。
　　
　　l FUNCTION GET_TREE_SELECTION(item_name VARCHAR2,selection NUMBER);
　　
　　功能：得到处于选中状态的节点。
　　
　　l PROCEDURE SET_TREE_SELECTION(item_name VARCHAR2,node NODE, selection_type NUMBER);
　　
　　功能：指定单个节点的选中状态
　　
　　参数：
　　
　　selection_type：SELECT_ON
　　
　　SELECT_OFF
　　
　　SELECT_TOGGLE
　　
　　FORM运行态时有关的触发器：
　　
　　l When-Tree-Node-Activated：用户双击节点或在节点选中时按[ENTER]键时触发。
　　
　　l When-Tree-Node-Expanded：节点展开或收缩时触发
　　
　　l When-Tree-Node-Selected：当节点选中或取消选择时触发
　　
　　二、生成树的方式
　　
　　树控件一般单独放在一个控制块中（注：不能放在数据块中），在画布（CANVAS）上放置树很容易，并且，如无必要，树的属性也不需要设置。
　　
　　生成树的方式有几种：
　　
　　l 运行前通过设置记录组或数据查询属性来生成
　　
　　l 通过ADD_TREE_DATA触发子来实现
　　
　　l 运行态，通过ADD_TREE_NODE等触发子来实现
　　
　　l 运行态，通过添加或删除记录组的数据元素来实现
　　
　　分析：
　　
　　一、 对树直接操作
　　
　　描述：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_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.COLLAPSED_NODE THEN
　　
　　Ftree.Set_Tree_Node_Property(htree, j, Ftree.NODE_STATE, Ftree.EXPANDED_NODE);
　　
　　END IF;
　　
　　END LOOP;
　　
　　二、 动态记录组
　　
　　层次树所使用记录组的数据格式：
　　
　　+ ― Car
　　
　　|
　　
　　- ― Airplane
　　
　　| ― Boeing
　　
　　| ― Boeing
　　
　　
　　初始状态
　　层数
　　显示文本
　　图标
　　值
　　
　　-1（收缩节点）
　　1
　　‘Car’
　　''
　　‘car’
　　
　　0（叶节点）
　　2
　　'Honda'
　　''
　　'civic'
　　
　　1（展开节点）
　　1
　　'Airplane'
　　''
　　'plane'
　　
　　0
　　2
　　'Boeing'
　　''
　　'747'
　　
　　0
　　2
　　'Boeing'
　　''<b

查看本文来源