Vyplnění položky stromu skupinou záznamů v Oracle Forms

Níže uvedená programová jednotka plsql by mohla být použita ve spouštěči WHEN-NEW-FORM-INSTANCE k počátečnímu naplnění hierarchického stromu daty ve formulářích Oracle.

DECLARE
htree ITEM;
v_ignore NUMBER;
rg_emps RECORDGROUP;
BEGIN
-- Najděte samotný strom.
htree :=Find_Item('treeblock. htree1');
-- Zkontrolujte existenci skupiny záznamů.
rg_emps :=Find_Group('emps');
POKUD NE Id_Null(rg_emps) THEN
DELETE_GROUP( rg_emps);
END IF;
-- Vytvořte skupinu záznamů.
rg_emps :=Create_Group_From_Query('rg_emps',
'select 1, level, ename, NULL, to_char( empno) ' ||
'od emp ' ||
'připojit předchozím empno =mgr ' ||
'začít s prací =''PREZIDENT''');
-- Naplňte skupinu záznamů daty.
v_ignore :=Populate_Group(rg_emps);
-- Přeneste data ze skupiny záznamů do hierarchického
-- stromu a nechte je zobrazit.
Ftree.Set_Tree_Property(htree, Ftree.RECORD_GROUP, rg_emps);
END;