Macking button to expand the tree and collapse tree and another to add node

Question

macking button to expand the tree and collapse tree and another to add node and saving the changes in the database ( this is problem)
and finally delete node from database
so what is proper code for those buttons
thanks my mail is :
[email protected]

Answer 1

Hello,
Use the ftree package's functions
code to expand all nodes:
PROCEDURE explose_tree IS
node    ftree.node;
htree   ITEM;
state   varchar2(30);
BEGIN
   -- search the tree ID --
   htree := Find_Item('BL_TREE.TREE_1');
    -- search the root --
       node  := Ftree.Find_Tree_Node(htree, '');
    -- expand all nodes --
   WHILE NOT Ftree.ID_NULL(node) LOOP
      state := Ftree.Get_Tree_Node_Property(htree, node, Ftree.NODE_STATE);
      IF state = Ftree.COLLAPSED_NODE THEN
        Ftree.Set_Tree_Node_Property(htree, node, Ftree.NODE_STATE, Ftree.EXPANDED_NODE);
      END IF;
      node := Ftree.Find_Tree_Node(htree, '', ftree.find_NEXT,Ftree.NODE_LABEL,'', node);
   END LOOP;
END;and to collapse all nodes:
PROCEDURE Implose_tree IS
   node   ftree.node;
   htree  ITEM;
   state  varchar2(30);
BEGIN
   -- search the root ID --
   htree := Find_Item('BL_TREE.TREE_1'); 
   -- search the root --
   node  := Ftree.Find_Tree_Node(htree, '');  
   -- Collapse all nodes --
   WHILE NOT ftree.ID_NULL(node) LOOP
     state := Ftree.Get_Tree_Node_Property(htree, node, Ftree.NODE_STATE);
     IF state = Ftree.EXPANDED_NODE THEN
      Ftree.Set_Tree_Node_Property(htree, node, Ftree.NODE_STATE, Ftree.COLLAPSED_NODE);
     END IF;
    node := Ftree.Find_Tree_Node(htree, '', Ftree.FIND_NEXT,Ftree.NODE_LABEL, '', node);
   END LOOP;
END; Francois