IDC资讯中心
一、树的简介
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
757
生成记录组的方式又分为两种。
1、 从查询生成记录组
描述：利用树的查询语句（connect by…prior…start with…）生成记录组，设置树的属性来生成。
优点：编程简单，方便。
缺点：只适用于可以构造出树状查询语句的情况下。
例子：
v_ignore number;
rg_emps recordgroup;
begin
rg_emps := find_group(emps);
–如果非空，则清空数据
if not id_null(rg_emps) then
delete_group(rg_emps);
end if;
–构造记录组
rg_emps := create_group_from_query(emps,
select 1, level, ename, null, to_char(empno) ||
from emp ||
connect by prior empno = mgr ||
start with job = president);
v_ignore := populate_group(rg_emps);
ftree.set_tree_property(tree_view.tree_emp, ftree.record_group, rg_emps);
end;
2、 用行列数据直接构造记录组
描述：记录组一般为行列结构，以循环方式直接向记录组中添加单元数据。
优点：可直接控制记录组的样式。
缺点：对多层结构，编程也较为复杂。
例子：
–单位cursor
cursor cursor_dept is
select dname, deptno from dept order by dname;
–雇员cursor
cursor cursor_emp(p_dno number) is
select ename, empno from emp where deptno = p_dno order by ename;
v_i number;
v_ignore number;
rg_emps recordgroup;
rg_depts recordgroup;
v_init_state groupcolumn;
v_level groupcolumn;
v_label groupcolumn;
v_icon groupcolumn;
v_value groupcolumn;
begin
rg_depts := find_group(depts);
–如有数据，则清空记录组
if not id_null(rg_depts) then
delete_group(rg_depts);
end if;
rg_depts := create_group(depts);
–这里自定义你需要的记录组中列的数据类型和长度
–初始状态（指展开、收缩还是叶节点）
v_init_state := add_group_column(rg_depts, init_state, number_column);
–所在层数
v_level := add_group_column(rg_depts, level, number_column);
–显示文本
v_label := add_group_column(rg_depts, label, char_column, 40);
–图标
v_icon := add_group_column(rg_depts, icon, char_column, 20);
–值
v_value := add_group_column(rg_depts, value, char_column, 5);
v_i := 1;
for deptrec in cursor_dept loop
add_group_row(rg_depts, v_i);
set_group_number_cell(v_init_state, v_i, 1);
set_group_number_cell(v_level , v_i, 1);
set_group_char_cell (v_label , v_i, deptrec.dname);
set_group_char_cell (v_icon , v_i, null);
set_group_char_cell (v_value , v_i, to_char(deptrec.deptno));
v_i := v_i + 1;
for emprec in cursor_emp(deptrec.deptno) loop
add_group_row(rg_depts, v_i);
set_group_number_cell(v_init_state, v_i, 1);
set_group_number_cell(v_level , v_i, 2);
set_group_char_cell (v_label , v_i, emprec.ename);
set_group_char_cell (v_icon , v_i, null);
set_group_char_cell (v_value , v_i, to_char(emprec.empno));
v_i := v_i + 1;
end loop;
end loop;
ftree.set_tree_property(tree_view.tree_org, ftree.record_group, rg_depts);
end;
结论：进行数据库设计时尽量把父子结构放在一张表，这样，使用查询生成记录组再生成树的方式最简单实用。如果不能实现，那么直接构造记录组也可生成树。如无特殊要求，一般不采取对树直接操作的方式。
附注：作者一般将生成树的程序放在form builder的“程序单元”中，在需要的地方调用来实时刷新树。
参考：developer 6.0自带的pl/sql程序库：navigate.pll
三、遗留问题
由于developer简化了树的设计，那么一些对树的转移、拷贝等操作就不太容易实现。这个课题还需要继续研究。
