انا عاوز اعمل tree نفس المرسومه بالصوره
و عند call form
بدي افتح form معين
و عند active procedure
بدي افعل procedure
ممكن حد يساعدني بالخطوات
لأني جديد بالتعامل مع الtrees
او إذا حد قدر يعملي ايا فبكوون شاكرو

الامر بسيط ان شاء الله بس انت شغال ايه 6i ولا 10g

6i
و شكرا كتير إلك

للاسف انا شغال 10g
مش هعرف اعملهالك لكن الاكواد المطلوبه لانشاء تري زي دي انت هتعمل 2 بلوك بلوك لتري لوحده وبلوك لو هضيف اي ازرار او اي حاجه تانيه
لازم التري تكون في بلوك لوحدها ممعهاش اي ايتيم تاني "دا بلنسبه ل10g معرفش نفس النظام في 6i ولا لا"

المهم
بعد معملت التري اضف زرار في البلوك التاني وليكن اسمه c وبلوك التري اسمه t

وضع الكود دا فيه

declare
new_node varchar2(500);
child_node varchar2(500);
tr item;
begin
tr:=find_item('t.tree5');

new_node:=ftree.add_tree_node(tr,Ftree.ROOT_NODE,Ftree.PARENT_OFFSET,Ftree.last_child
,Ftree.EXPANDED_NODE,'file' ,null,10 );
	child_node:=ftree.add_tree_node(tr,new_node,Ftree.PARENT_OFFSET,Ftree.last_child
,Ftree.EXPANDED_NODE,'exit' ,null,1 );


new_node:=ftree.add_tree_node(tr,Ftree.ROOT_NODE,Ftree.PARENT_OFFSET,Ftree.last_child
,Ftree.EXPANDED_NODE,'call' ,null,20 );
	child_node:=ftree.add_tree_node(tr,new_node,Ftree.PARENT_OFFSET,Ftree.last_child
,Ftree.EXPANDED_NODE,'form1' ,null,2 );
	child_node:=ftree.add_tree_node(tr,new_node,Ftree.PARENT_OFFSET,Ftree.last_child
,Ftree.EXPANDED_NODE,'form2' ,null,3 );


	new_node:=ftree.add_tree_node(tr,Ftree.ROOT_NODE,Ftree.PARENT_OFFSET,Ftree.last_child
,Ftree.EXPANDED_NODE,'procedure' ,null,30 );
		child_node:=ftree.add_tree_node(tr,new_node,Ftree.PARENT_OFFSET,Ftree.last_child
,Ftree.EXPANDED_NODE,'pro1' ,null,4 );
end;

اول واحده هيعمل نود اسمها file وتحتيها exit
وبعد كدا هيعمل call وتحتيها form1 , form 2
وبعد كدا البروسيدجر زي الي في الصوره بتعتك وعلشان تحدد لما اليوزر يضغط علي اي نوده يفير تريجر معين اضغط علي التري بالزر الايمن
واختار when-tree-node-selected
واكتب فيها

node_value := Ftree.Get_Tree_Node_Property(tr, :SYSTEM.TRIGGER_NODE, Ftree.node_value);

طبعا بعد متعمل ديكلير لل node_value نوعها ftree.node او number
و tr نوعه ايتيم وفيند فيه التري زي المثال اللي فوق
علشان يجيبلك الرقم اللي احنا وضعناه فوق اول مضغط عي التري واكتب انت جمله if لو الرقم بيساوي1 اخرج من الفورمه وهكذا

تم تعديل 20 يوليو 201015 سنة بواسطة HELL-BOY

للاسف انا شغال 10g
مش هعرف اعملهالك لكن الاكواد المطلوبه لانشاء تري زي دي انت هتعمل 2 بلوك بلوك لتري لوحده وبلوك لو هضيف اي ازرار او اي حاجه تانيه
لازم التري تكون في بلوك لوحدها ممعهاش اي ايتيم تاني "دا بلنسبه ل10g معرفش نفس النظام في 6i ولا لا"

المهم
بعد معملت التري اضف زرار في البلوك التاني وليكن اسمه c وبلوك التري اسمه t

وضع الكود دا فيه

declare
new_node varchar2(500);
child_node varchar2(500);
tr item;
begin
tr:=find_item('t.tree5');

new_node:=ftree.add_tree_node(tr,Ftree.ROOT_NODE,Ftree.PARENT_OFFSET,Ftree.last_child
,Ftree.EXPANDED_NODE,'file' ,null,10 );
	child_node:=ftree.add_tree_node(tr,new_node,Ftree.PARENT_OFFSET,Ftree.last_child
,Ftree.EXPANDED_NODE,'exit' ,null,1 );


new_node:=ftree.add_tree_node(tr,Ftree.ROOT_NODE,Ftree.PARENT_OFFSET,Ftree.last_child
,Ftree.EXPANDED_NODE,'call' ,null,20 );
	child_node:=ftree.add_tree_node(tr,new_node,Ftree.PARENT_OFFSET,Ftree.last_child
,Ftree.EXPANDED_NODE,'form1' ,null,2 );
	child_node:=ftree.add_tree_node(tr,new_node,Ftree.PARENT_OFFSET,Ftree.last_child
,Ftree.EXPANDED_NODE,'form2' ,null,3 );


	new_node:=ftree.add_tree_node(tr,Ftree.ROOT_NODE,Ftree.PARENT_OFFSET,Ftree.last_child
,Ftree.EXPANDED_NODE,'procedure' ,null,30 );
		child_node:=ftree.add_tree_node(tr,new_node,Ftree.PARENT_OFFSET,Ftree.last_child
,Ftree.EXPANDED_NODE,'pro1' ,null,4 );
end;

اول واحده هيعمل نود اسمها file وتحتيها exit
وبعد كدا هيعمل call وتحتيها form1 , form 2
وبعد كدا البروسيدجر زي الي في الصوره بتعتك وعلشان تحدد لما اليوزر يضغط علي اي نوده يفير تريجر معين اضغط علي التري بالزر الايمن
واختار when-tree-node-selected
واكتب فيها

node_value := Ftree.Get_Tree_Node_Property(tr, :SYSTEM.TRIGGER_NODE, Ftree.node_value);

طبعا بعد متعمل ديكلير لل node_value نوعها ftree.node او number
و tr نوعه ايتيم وفيند فيه التري زي المثال اللي فوق
علشان يجيبلك الرقم اللي احنا وضعناه فوق اول مضغط عي التري واكتب انت جمله if لو الرقم بيساوي1 اخرج من الفورمه وهكذا

والله شكرا كتيير إلك
الحمد لله إشتغل معي

السلام عليكم ورحمه الله وبركاته
لو سمحت ازاى اعمل ترى نود مبينه على جمله سيلكت من جدول معين وليكن جدول الموظفين او الادارات بس يا ريت يكون الرد بسرعه الله يكرمكم ولكم جزيل الشكر

لو سمحتم يا جماعه حد يرد عليا