Populating Tree Item With Record Group In Oracle Forms

最新推荐文章于 2025-08-15 10:38:51 发布

转载最新推荐文章于 2025-08-15 10:38:51 发布 · 123 阅读

文章标签：

#数据库

本文介绍了一个PL/SQL程序单元，该程序用于在Oracle Forms中通过WHEN-NEW-FORM-INSTANCE触发器初始化层级树控件。文章详细展示了如何创建记录组、填充数据并将其与树形控件关联。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

The below plsql program unit could be used in a WHEN-NEW-FORM-INSTANCE trigger to initially populate the hierarchical tree with data in Oracle forms.

DECLARE
htree ITEM;
v_ignore NUMBER;
rg_emps RECORDGROUP;
BEGIN
-- Find the tree itself.
htree := Find_Item(’treeblock.htree1’);
-- Check for the existence of the record group.
rg_emps := Find_Group(’emps’);
IF NOT Id_Null(rg_emps) THEN
DELETE_GROUP(rg_emps);
END IF;
-- Create the record group.
rg_emps := Create_Group_From_Query(’rg_emps’,
’select 1, level, ename, NULL, to_char(empno) ’ ||
’from emp ’ ||
’connect by prior empno = mgr ’ ||
’start with job = ’’PRESIDENT’’’);
-- Populate the record group with data.
v_ignore := Populate_Group(rg_emps);
-- Transfer the data from the record group to the hierarchical
-- tree and cause it to display.
Ftree.Set_Tree_Property(htree, Ftree.RECORD_GROUP, rg_emps);
END;