oracle 树 俩节点之间数据,Oracle Form Builder中使用树的心得-数据库专栏,ORACLE

一、树的简介

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简化了树的设计，那么一些对树的转移、拷贝等操作就不太容易实现。这个课题还需要继续研究。