السلام عليكم يا جماعه
انا عملت الكود التالى بس مش مدينى النتيجه المطلوبه برجاء الافاده و التصليح
عملت شاشه login بها اتنين text item كالعاده واحد للuser name و التانى للpassword على بلوك اسمه b1
و الشاشه بها زرار اسمه ok و كتبت الكود التالى عليه

if :b1.tname='manager' and :b1.tpass='1234' then
new_form('main');
elsif
:b1.tname='ali' and :b1.pass='1111' then
new_form('main');
set_menu_item_property('my_form.form1',enabled,property_false);
else
message('wrong log');
raise form_trigger_failure;
end if;

يعنى المطلوب لو دخل اليوسر ali يفتح الفورم main ايضا و لكن يجعل الmenu item اللى اسمه my_form.form1 يكون لا يمكن الوصول اليه اى (disabled)
الصراحه بتشتغل و بتفتح لكن الmenu item مش عايز يكون disable مش عارفه السبب
ارجو الافاده و شكرا

الافضل هو استخدام ال menu security لانه افضل و اسهل وهذه الروابط تساعدك و اذا احتجة الى شياء ربنا يسهل و تتحل
privilge
privilge 2


ايهاب وجدى

تم تعديل 9 يونيو 200619 سنة بواسطة hobaa

الف شكر ايهاب على الرد لكن المطلوب هو اخفاء عناصر الmenu تبعا لليوسر اللى داخل حيث ان عناصر الmenu دى بتفتح شاشات معينه و مش عايزين اليوسر يدخل عليها من خلال الmenu
ارجو تكون الفكره وضحت . على فكره انا باستخدم oracle 9i و السؤال ليه الامر
set_menu_item_property(my_form.form1,enabled,property_false
مش عايز يتنفذ هل علشان موجود بعد امر new_form؟؟؟؟؟؟
طب و الحل ايه انا عايزة عناصر القائمة تكون غير متاحه بعد فتح الفورمه الرئيسيه من خلال الزرار(when_button_pressed)
انا فى انتظار اجابتكم

ممكن وضع اسم المستخد وكلمة المرور فى global variable و فى ال form التى ترغب عمل ذلك بها ممكن تعمل فى when-new-form ما تريد عن طريق if . اعتقد انها ممكن تشتغل

ايهاب وجدى

فكره كويسه بردو ايهاب و هجربها ان شاء الله
انا بردو وصلت لحل معين و هو انى اول فورمه تكون عباره عن المنيو و بها البلوك بتاع اليوسر و الباسورد
و مخليه كل المنيو ايتم
enabled =no
و على الزرار حسب كل يوسر باخليله خاصيه المنيو ايتم enabled , true و اى شاشه اخرى تتفتح من المنيو كلهم ليهم منيو تانيه خالص مختلفه طبعا عن المنيو الرئيسيه
يعنى عملت اتنين منيو واحده للفورمه الرئيسيه وواحده لباقى شاشات البرنامج
عموما انا متشكره جدا لاهتمامك

بالاضافه لرأى الأخ / ايهاب
بتحريك قيمة مستوى الصلاحية للمستخدم باستخدام ال global varaible من شاشة الدخول الرئيسيه للنظام

ثم من خلال شاشة ال Menu
وعند اختيار المستخدم لاختيار وظيفه معينه من وظائف النظام يكون هنا check على صلاحيات المستخدم بمعلومية ال global variable المنقول من شاشة الدخول الرئيسيه للنظام

DECLARE
MI_ID MENUITEM;
BEGIN
  MI_ID :=FIND_MENU_ITEM('BASIC_DATA_MENU.SUPPLIER_INFORMATION');
    IF NAME_IN('global.emp_level') in ('1' , '2') THEN 
   	SET_MENU_ITEM_PROPERTY(MI_ID,ENABLED,PROPERTY_FALSE);
      CALL_FORM('supplier',NO_HIDE);
      SET_MENU_ITEM_PROPERTY(MI_ID,ENABLED,PROPERTY_TRUE);
      else 
            SET_MENU_ITEM_PROPERTY(MI_ID,ENABLED,PROPERTY_FALSE);
    end if;
END;

تم تعديل 10 يونيو 200619 سنة بواسطة Amgad