How do we create Hierarchical tree??

Question

Can I get help on creating hirerchical tree with detailed description ?? I tried basing hierarchical item on query but it didn't work.Do i need to specifically give code for populating it ??
Also I need help on basing it on Record Group ??
Is there any rule for having specific no of columns for a tree ??

Answer 1

You can create Hierarchical Tree in two ways.
One using "connect by prior" and another
by Adding columns and row to record group at run time.
If your table has Self reference Key then
you can create using connect by prior.
Otherwise you have to go for second one.
Go and check the navwiz.fmb in oracle demo files.
Following example is from navwiz.fmb
(open navwiz.pll and then check refresh_tree)
In this example they used both.For Emp they used connect by prior.
PROCEDURE refresh_trees(p_view VARCHAR2) IS
cursor cursor_dept is
select dname, deptno
from dept
order by dname;
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
if p_view = 'EMP' then
--the emps hierarchy
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 mgr IS NULL');
v_ignore := populate_group(rg_emps);
ftree.set_tree_property('navigator.nav_display', ftree.record_group, rg_emps);
else
--the organization
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('navigator.nav_display', ftree.record_group, rg_depts);
end if;
My query******
procedure refresh1 is
v_i number;
v_ignore number;
Rg_Menus recordgroup;
rg_depts recordgroup;
Begin
Rg_Menus := find_group('MENUS');
If not id_null(Rg_Menus) then
delete_group(Rg_Menus);
End If;
Rg_Menus := create_group_from_query('MENUS',
'select 1, level, item_name, NULL, item_id ' | |
'from Item_all '
| |' where Item_id in (select Item_id from Item_access_all where role_id in
(select role_id from org_access_all where user_id =
(select gsp_user_id from users_all where upper(user_name) = upper(USER))
and code = :global.code) )
and item_id not in (select item_id from item_Exception where Code = :Global.Code)' | |
'connect by prior item_name = main_name ' | |
'start with item_name = ''MAIN''');
v_ignore := populate_group(Rg_Menus);
ftree.set_tree_property('tree_blk.tree_menu', ftree.record_group,Rg_Menus);
Exception
When Others then
Bell;
Message('You cannot Access any menu item...');
Raise Form_trigger_Failure;
End;
viji.
null