ارجو من الاخوه مساعدتي في عمل شجره للتنقل بين الشاشات .....يعني بس افتح البرنامج يكون بالفورمه الرئيسيه شجره تحتوي على عناوين باقي الفورمز وعندما اضغط على اي عنوان على الشجره  يعطيني الفورم الخاص بهذا العنوان وعلى ان يكون على نفس الصفحه ...يعني تكون الشجره على اليمين والفورم التي تظهر على نفس الصفحه على اليسار....وتحياتي للجميع 

السلام عليكم

 

على فرض انك عملت Populate للـ Tree:

 

على مستوى الترجر: WHEN-TREE-NODE-ACTIVATED ستسخدم الكود التالي:

DECLARE   vnodevallbl   VARCHAR2 (200);
BEGIN
   -- For NODE VALUE
   vnodevallbl :=
      ftree.GET_TREE_NODE_PROPERTY ('tree_name',
                                    :SYSTEM.trigger_node,
                                    ftree.node_value
                                   );
   -- For NODE LABEL
   vnodevallbl :=
      ftree.GET_TREE_NODE_PROPERTY ('tree_name',
                                    :SYSTEM.trigger_node,
                                    ftree.node_label
                                   );
END;

باستخدام الكود السابق انت حصلت على value/label الخاص باسم الفورم.

 

لاستدعائة:

PROCEDURE MENU_CALL IS
BEGIN
  IF vNodeValLbl='EMPLOYEE' THEN
    CALL_FORM(GETPATH||'BANKS',HIDE);
  ...
END;

واذا اردت عد تحديد اسم الفورم استخدم الكود التالي:

 

DECLARE
   node_value   VARCHAR2 (100);
   frm_name     VARCHAR2 (100);
   PATH         VARCHAR2 (100);
BEGIN
   node_value :=
      ftree.GET_TREE_NODE_PROPERTY ('block33.sub_TREE',
                                    :SYSTEM.trigger_node,
                                    ftree.node_value
                                   );


   SELECT frm_name
     INTO frm_name
     FROM forms_list
    WHERE fo_id = node_value;


   PATH := (frm_name || '.fmx');
   CALL_FORM (PATH);
   PATH := NULL;
   frm_name := NULL;
EXCEPTION
   WHEN NO_DATA_FOUND
   THEN
      NULL;
END;

 

بالتوفيق.

السلام عليكم ورحمه الله ممكن شكل الفورم وشكل البرنامج

 

شكرا جزيلا على الشرح الوافي وجزاك الله خير

لكن المشكلة في تكرار فتح الشاشات عند التنقل