forms 中层次树的使用方法

2024-07-21 02:39:26

字体：大中小

来源：转载

供稿：网友

　　本例子附有create tabel 及insert 数据的sql 及forms的源文件, 经测试可以直接运行。
　　
　　运行界面如下：
　　 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;

上一篇：对象库的使用

下一篇：某个数据文件损坏，如何打开数据库（for windows）

学习交流

如何查找有故障的配件

如何查找有故障的配件...

热门图片

猜你喜欢的新闻

猜你喜欢的关注