عملت برنامج وفيه اكثر من شاشه وفيه menu عايز اعمل صلحيه لكل مستخدم في القوائم

في عندك تعليمة اسمها set_menu_item_property

واللي فيها ممكن تعمل enable/disable لعنصر القائمة

بالتالي، ممكن مثلا تعمل table تخزن فيها صلاحيات الوصول لكل مستخدم لكل عنصر قائمة، وتعمل enable/disable لعناصر القائمة حسب الداتا الموجودة في هذه ال table

اخي العزيز انا عملت جدول  المستخدمين

 

CREATE TABLE USERS_TB(COD_U  VARCHAR2(10),NAME_USER  VARCHAR2(50),PASS_USER  VARCHAR2(30),DEP_USR  NUMBER(2),STAT_US  NUMBER(1));

وعند الدخول من شاشة المستخدم يحفظ  كود المستخدم في متغير GLOBAL

حيث يمررة علي الشاشة الرئيسية 

 

      

    declare

 

 cns  number;

 cnb  number;

 al number;

 MI_IDadin MENUITEM;

      MI_IDdut MENUITEM;

      MI_IDemp MENUITEM;

      MI_IDhelth MENUITEM;

      MI_IDinsu MENUITEM;

      MI_Iattend MENUITEM;

       MI_Idvact MENUITEM;

     

begin

         

        replace_menu(''||:global.path||'\'||'employeeup.MMX');

         MI_IDadin:=FIND_MENU_ITEM('MENU1.admin');

   MI_IDdut:=FIND_MENU_ITEM('MENU1.DUT');

      MI_IDemp:=FIND_MENU_ITEM('MENU1.EMPLOYEE');

      MI_IDhelth:=FIND_MENU_ITEM('MENU1.HEALTH');

      MI_IDinsu:=FIND_MENU_ITEM('MENU1.INSUR');

      MI_Iattend:=find_menu_item('menu1.attend');

      MI_Idvact:=find_menu_item('menu1.vact');

     

 

IF :global.dp=0 THEN

    null;

elsIF :global.dp=1 THEN

    SET_MENU_ITEM_PROPERTY(MI_IDadin,ENABLED,PROPERTY_FALSE);      اللتي تحب تخفيهاهذة المنيو

SET_MENU_ITEM_PROPERTY(MI_IDemp,ENABLED,PROPERTY_FALSE);

SET_MENU_ITEM_PROPERTY(MI_IDhelth,ENABLED,PROPERTY_FALSE);

SET_MENU_ITEM_PROPERTY(MI_IDinsu,ENABLED,PROPERTY_false);

SET_MENU_ITEM_PROPERTY( MI_Iattend,ENABLED,PROPERTY_false);

SET_MENU_ITEM_PROPERTY( MI_Idvact,ENABLED,PROPERTY_false);

elsIF :global.dp=2 THEN    

    SET_MENU_ITEM_PROPERTY(MI_IDadin,ENABLED,PROPERTY_FALSE);

SET_MENU_ITEM_PROPERTY(MI_IDdut,ENABLED,PROPERTY_FALSE);

SET_MENU_ITEM_PROPERTY(MI_IDhelth,ENABLED,PROPERTY_FALSE);

SET_MENU_ITEM_PROPERTY(MI_IDinsu,ENABLED,PROPERTY_false);

SET_MENU_ITEM_PROPERTY( MI_Iattend,ENABLED,PROPERTY_false);

SET_MENU_ITEM_PROPERTY( MI_Idvact,ENABLED,PROPERTY_false);

elsIF :global.dp=3 THEN    

    SET_MENU_ITEM_PROPERTY(MI_IDadin,ENABLED,PROPERTY_FALSE);

SET_MENU_ITEM_PROPERTY(MI_IDemp,ENABLED,PROPERTY_FALSE);

SET_MENU_ITEM_PROPERTY(MI_IDdut,ENABLED,PROPERTY_FALSE);

SET_MENU_ITEM_PROPERTY(MI_IDinsu,ENABLED,PROPERTY_false);

SET_MENU_ITEM_PROPERTY( MI_Iattend,ENABLED,PROPERTY_false);

SET_MENU_ITEM_PROPERTY( MI_Idvact,ENABLED,PROPERTY_false);

elsIF :global.dp=4 THEN    

    SET_MENU_ITEM_PROPERTY(MI_IDadin,ENABLED,PROPERTY_FALSE);

SET_MENU_ITEM_PROPERTY(MI_IDemp,ENABLED,PROPERTY_FALSE);

SET_MENU_ITEM_PROPERTY(MI_IDhelth,ENABLED,PROPERTY_FALSE);

SET_MENU_ITEM_PROPERTY(MI_IDdut,ENABLED,PROPERTY_false);

SET_MENU_ITEM_PROPERTY( MI_Iattend,ENABLED,PROPERTY_false);

SET_MENU_ITEM_PROPERTY( MI_Idvact,ENABLED,PROPERTY_false);

elsIF :global.dp=5 THEN

    SET_MENU_ITEM_PROPERTY(MI_IDadin,ENABLED,PROPERTY_FALSE);

SET_MENU_ITEM_PROPERTY(MI_IDemp,ENABLED,PROPERTY_FALSE);

SET_MENU_ITEM_PROPERTY(MI_IDhelth,ENABLED,PROPERTY_FALSE);

SET_MENU_ITEM_PROPERTY(MI_IDinsu,ENABLED,PROPERTY_false);

SET_MENU_ITEM_PROPERTY(MI_IDdut,ENABLED,PROPERTY_false);

SET_MENU_ITEM_PROPERTY( MI_Idvact,ENABLED,PROPERTY_false);

elsIF :global.dp=6 THEN

    SET_MENU_ITEM_PROPERTY(MI_IDadin,ENABLED,PROPERTY_FALSE);

SET_MENU_ITEM_PROPERTY(MI_IDemp,ENABLED,PROPERTY_FALSE);

SET_MENU_ITEM_PROPERTY(MI_IDhelth,ENABLED,PROPERTY_FALSE);

SET_MENU_ITEM_PROPERTY(MI_IDinsu,ENABLED,PROPERTY_false);

SET_MENU_ITEM_PROPERTY(MI_IDdut,ENABLED,PROPERTY_false);

SET_MENU_ITEM_PROPERTY( MI_Iattend,ENABLED,PROPERTY_false);

END IF;

END;

مشكورررر