分享
 
 
 

Oracle Form Builder中使用树的心得

王朝oracle·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

一、树的简介

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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有