عندي menu وبها مجموعه من العناصر التي تحتوي على مجموعات اسماء الفورمات

انا حاليا اصمم شاشة على الفورم لمنح الصلاحيات

اريد اعطي المستخدم صلاحية على اسم الفورم الموجود على المنو بحيث انة يكون قادر انة يفتح الفورم من المنيو او اني اخلية غير قادر انة يفتح الفورم


في احد عندة فكرة كيف اقدر اعمل كذا وشو هو الكود اللي اقدر اكتبة في WHEN-CHECKBOX-CHANGED

user_prev.doc

السلام عليكم
اخي الكريم الحل الاقوى والابسط هو ان تعمل GLOBAL VARIABLE
عند عمل LOGIN على البرنامج....ياخد بـــ GLOBAL VARIABLE قيمة هذا المستخدم
وتعمل بالمنيو IF STATEMENT تقدر من خلالها يشوف الفورم ولا لأ
-------------------------------------

هذا الكود تكتبه بشاشة الدخول عندك وممكن تكتبه بداخل PROGRAM UNIT

SELECT USR_TYPE
INTO VV_USRTYPE
FROM   UR_TABLE_NAME
WHERE  UPPER(USR_ID) = UPPER(:BLKLOGIN.USR_ID) AND UPPER(USR_PASSWORD) = UPPER(:BLKLOGIN.USR_PASSWORD);
EXCEPTION WHEN NO_DATA_FOUND THEN
NULL;
END;
:GLOBAL.P_USER_TYPE:=VV_USRTYPE;	
:GLOBAL.P_USER_ID:=:BLKLOGIN.USR_ID; 

----------------------------------------------------------------
وبداخل المنيو ممكن تكتب :
IF VV_USERTYPE = 1 THEN
SET_MENU_ITEM_PROPERTY('اسم المنيو',ENABLED,PROPERTY_FALSE(;

جرب وخبرني بالنتائج
بالتوفيق

شكرا اخي الكريم على ردك

بس هل افهم من ردك انة مافي داعي اعمل فورم خاص لمنح الصلاحيات يعني هل يكفي اني اعدل في الكود تبع الLOGIN FORM بس؟

سؤال ثاني كيف اقدر احدد في كل منيو شو هي الفورم اللي يقدر يشوفها المستخدم واللي لا يستطسع انة يشوفها

مثلا

if :USER_ID = 'SAMIA' then

Set_Menu_Item_Property('HRMS_MNU.BASIC_DATA.STAFF_DETAILS',ENABLED,PROPERTY_FALSE);
Set_Menu_Item_Property('HRMS_MNU.BASIC_DATA.LEAVE_APPLICATION_MANAGEMENT',ENABLED,PROPERTY_TRUE);
Set_Menu_Item_Property('HRMS_MNU.BASIC_DATA.APPRAISAL_MANAGEMENT',ENABLED,PROPERTY_FALSE);

وشو قصدك اني اكتب الكود في المنيو وين بالضبط؟؟؟؟؟

شاكرة لك تعاونك

if :USER_ID = 'SAMIA' then

Set_Menu_Item_Property('HRMS_MNU.BASIC_DATA.STAFF_DETAILS',ENABLED,PROPERTY_FALSE);
Set_Menu_Item_Property('HRMS_MNU.BASIC_DATA.LEAVE_APPLICATION_MANAGEMENT',ENABLED,PROPERTY_TRUE);
Set_Menu_Item_Property('HRMS_MNU.BASIC_DATA.APPRAISAL_MANAGEMENT',ENABLED,PROPERTY_FALSE);

CALL_FORM(); ----------وتعطيه اسم الفورم

-----------------------------
ولازم تعمل فورم لمنح الصلاحيات

قريبا ان شاءالله ساشرح هذا الموضوع بالتفصيل

شكرا اخي
بانتظار شرحك للموضوع

سوري اخي الكريم
بس عندي سؤال شو قصدك اني استدعي اسم الفورم اي واحد فيهم
هل قصدك يكون الكود بهذا الشكل

if :USER_ID = 'SAMIA' then

Set_Menu_Item_Property('HRMS_MNU.STAFF_DETAILS_MENU.STAFF_DETAILS',ENABLED,PROPERTY_FALSE);
CALL_FORM('\\192.168.50.18\oracle\HR_SYS\HR_NEW_STAFF.fmx');

Set_Menu_Item_Property('HRMS_MNU.LEAVE_APPLICATION_MANAGEMENT.LEAVE_APPLICATION_MANAGEMENT_MENU',ENABLED,PROPERTY_TRUE);
CALL_FORM('\\192.168.50.18\oracle\HR_SYS\LEAVE_APPLICATION_FORM.fmx');


Set_Menu_Item_Property('HRMS_MNU.APPRAISAL_MANAGEMENT_MENU.EDIT_STAFF_APPRAISAL',ENABLED,PROPERTY_FALSE);
call_FORM('\\192.168.50.18\oracle\HR_SYS\HR_STAFF_APPRAISAL.fmx');

END IF;

السلام عليكم
انت تستدعي الفوم مرة واحد فقط ما في داعي للتكرار

if :USER_ID = 'SAMIA' then

Set_Menu_Item_Property('HRMS_MNU.STAFF_DETAILS_MENU.STAFF_DETAILS',ENABLED,PROPERTY_FALSE);
Set_Menu_Item_Property('HRMS_MNU.LEAVE_APPLICATION_MANAGEMENT.LEAVE_APPLICATION_MANAGEMENT_MENU',ENABLED,PROPERTY_TRUE);
.
.
CALL_FORM('\\192.168.50.18\oracle\HR_SYS\HR_NEW_STAFF.fmx');