Hierarchical tree in forms 10g

Question

dear member.
i am a beginner. and want to know about that how to make hierarchical form
i am using developer suit 10g.
thanks
mustafa
lahore,pakistan

Answer 1

Mustafa,
the way u have marked the node_id and parent_node_id in the two tables, it is done at form level. or what... this is a little confusing to me, i have to apply that ht form at other schema.Yes, I create Record Group that populates the HT in the When-New-Form-Instance (WNFI) trigger. You can populate an HT from just about anywhere, but I use the WNFI to ensure the tree is populated when the form loads.
To add a "Grandchild" node to your tree, you simply need to modify the WNFI trigger and add a Loop for these nodes. Using your data as an example, the code in the WNFI would look something like this (not tested):
DECLARE
   CURSOR c_comp IS
      SELEC T compcode, name
        FRO M company;
   CURSOR c_div (p_comp NUMBER) IS
      SELEC T div_id, div_name, dept_id
        FRO M s_div
      WHER E compcode = p_comp;
   CURSOR c_dept (IS
      SELEC T dept_id, dept_name
       FRO M s_dept
     WHER E dept_id = p_dept;
   n_level NUMBER := 1;
   n_row NUMBER := 1;
   rg_id  RECORDGROUP;
   node Ftree.Node;
BEGIN
   Tree_Control.v_item_name := 'MY_TREE_DATA.MY_TREE';
   rg_id := Tree_Control.Create_RG;
   <<parent>>
   FOR r_comp IN c_comp LOOP
      -- Add Parent Company
      Tree_Control.ADD_RG_ROW(rg_id, ftree.collapsed_node, n_row,
              n_level, r_comp.name, null, r_comp.compcode);
      n_row := n_row + 1;
      n_level := n_level + 1;
      -- Add any child Department records
      <<child>>
      FOR r_div IN c_div(r_comp.compcode) LOOP
         Tree_Control.ADD_RG_ROW(rg_id, ftree.collapsed_node, n_row,
              n_level, r_div.div_name, null, r_div.div_id);
         n_row := n_row+1;
         -- Now, add any Grandchildren
        <<grandchild>>
        FOR r_dept IN c_dept(r_div.dept_id) LOOP
           Tree_Control.ADD_RG_ROW(rg_id, ftree.collapsed_node, n_row,
               n_level, r_dept.dept_name, null, r_dept.dept_id);
        END LOOP grandchild;
      END LOOP child;
   END LOOP parent;
   ftree.Add_Tree_Data(Tree_Control.v_item_name, ftree.ROOT_NODE,
                   ftree.PARENT_OFFSET, ftree.LAST_CHILD,
                   ftree.RECORD_GROUD, rg_id);
END;You will still need to modify the Create_RG function in the Tree_Control package to support the above changes, but this code sample should get you started.
Craig...