Befolkar trädobjekt med rekordgrupp i Oracle-formulär

Nedanstående plsql-programenhet skulle kunna användas i en WHEN-NEW-FORM-INSTANCE-utlösare för att initialt fylla det hierarkiska trädet med data i Oracle-formulär.

DECLARE
htree ITEM;
v_ignore NUMBER;
rg_emps RECORDGROUP;
BEGIN
-- Hitta själva trädet.
htree :=Find_Item('treeblock. htree1');
-- Kontrollera om postgruppen finns.
rg_emps :=Find_Group('emps');
OM INTE Id_Null(rg_emps) SÅ
DELETE_GROUP( rg_emps);
END IF;
-- Skapa postgruppen.
rg_emps :=Create_Group_From_Query('rg_emps',
'välj 1, nivå, ename, NULL, to_char( empno) ' ||
'från emp ' ||
'anslut med tidigare empno =mgr ' ||
'börja med jobb =''PRESIDENT''');
-- Fyll postgruppen med data.
v_ignore :=Populate_Group(rg_emps);
-- Överför data från postgruppen till det hierarkiska
-- trädet och få det att visas.
Ftree.Set_Tree_Property(htree, Ftree.RECORD_GROUP, rg_emps);
END;