一、樹的簡介
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簡化了樹的設計，那么一些對樹的轉移、拷貝等操作就不太容易實現。這個課題還需要繼續研究。
