Điền mục cây với nhóm bản ghi trong các biểu mẫu Oracle

DECLARE
htree ITEM;
v_ignore NUMBER;
rg_emps RECORDGROUP;
BEGIN
- Tự tìm cây.
htree:=Find_Item ('treeblock. htree1 ');
- Kiểm tra sự tồn tại của nhóm bản ghi.
rg_emps:=Find_Group (' emps ');
IF NOT Id_Null (rg_emps) THEN
DELETE_GROUP ( rg_emps);
END IF;
- Tạo nhóm bản ghi.
rg_emps:=Create_Group_From_Query ('rg_emps',
'select 1, level, ename, NULL, to_char ( empno) '||
' từ emp '||
' kết nối bởi trước empno =mgr '||
' bắt đầu với job ='' PRESIDENT '' ');
- Đưa dữ liệu vào nhóm bản ghi.
v_ignore:=Populate_Group (rg_emps);
- Chuyển dữ liệu từ nhóm bản ghi sang cây
phân cấp và hiển thị nó.
Ftree.Set_Tree_Property (htree, Ftree.RECORD_GROUP, rg_emps);
HẾT;