Mengisi Item Pohon Dengan Grup Rekaman Dalam Formulir Oracle

MENYATAKAN
htree ITEM;
v_ignore NUMBER;
rg_emps RECORDGROUP;
BEGIN
-- Temukan pohon itu sendiri.
htree :=Find_Item('treeblock. htree1');
-- Periksa keberadaan grup rekaman.
rg_emps :=Find_Group('emps');
JIKA TIDAK Id_Null(rg_emps) MAKA
DELETE_GROUP( rg_emps);
END IF;
-- Buat grup rekaman.
rg_emps :=Create_Group_From_Query('rg_emps',
'pilih 1, level, ename, NULL, to_char( empno) ' ||
'from emp ' ||
'hubungkan dengan empno sebelumnya =mgr ' ||
'mulai dengan pekerjaan =''PRESIDEN''');
-- Mengisi grup rekaman dengan data.
v_ignore :=Populate_Group(rg_emps);
-- Mentransfer data dari grup rekaman ke hierarki
-- pohon dan menampilkannya.
Ftree.Set_Tree_Property(htree, Ftree.RECORD_GROUP, rg_emps);
END;