本例子附有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;
【责编:admin】
--------------------next---------------------
