[范例] forms 中层次树的使用方法

　　 
　　本例子附有create tabel 及insert 数据的sql 及forms的源文件, 经测试可以直接运行。
　　
　　运行界面如下：
　　

点击查看大图

　　trigger;　WHEN-NEW-FORMS-INSTANCE:　
　　
　　set_window_property('window1', window_state, maximize);
　　declare
　　 rg1 recordgroup;
　　 t number;
　　 uname varchar2(32);
　　BEGIN
　　:global.os := get_application_property(Operating_system);
　　
　　rg1 := find_group('RG1');
　　if not id_null(rg1) then
　　　delete_group(rg1);
　　end if;
　　uname := user;
　　:vdata := uname;
　　uname := lower(uname);
　　rg1 := create_group_from_query('RG1','select init,depth,lpad(substr(treeno,-1,2),2,''0'')||''.''||label,'''',data from menu order by treeno');
　　t := populate_group(rg1);
　　ftree.set_tree_property('TREE',Ftree.record_group, rg1);
　　　--psize();
　　END;
　　
　　trigger;　WHEN-TREE-NODE-ACTIVATED:　
　　
　　
　　DECLARE　
　　 htree　　　　　　　　　ITEM;　
　　 node_value　　　　VARCHAR2(100);　
　　 ftype　　　　　　　　varchar2(8);　
　　BEGIN　
　　node_value　:=　Ftree.Get_Tree_Node_Property('TREE',　:SYSTEM.TRIGGER_NODE,　Ftree.NODE_VALUE);　
　　
　　ftype:=lower(substr(node_value,-1,3));　
　　--ftype:='fmx';　
　　if　node_value　<>'node'　then　
　　if　ftype　=　'fmx'　then　
　　call_form(node_value　,no_hide);　
　　elsif　ftype　=　'sql'　then --　execute　those　sql　need　not　parameter　--　
　　host('plus80w　@'||:vdata,　NO_SCREEN);　
　　end　if;　
　　end　if;　
　　END;

原文转自：http://www.ltesting.net