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

[ابونواف620]

السلام عليكم ورحمة الله وبركاتة
أريد المساعدة في ايجاد عمل كود لعمل صلاحيات من خلال الفورم مثل ( التعديل والأضافة والأستعلام والحذف )
بحيث يكون المستخدم رقم واحد له مثلا ( اضافة سجل جديد ) وليس له امكانية التعديل على السجل وهكذا

امل المساعدة في اسرع وقت لدي مشروع وبقي فقط الصلاحيات

امل المساعدة

مع تحيات
ابو نواف

[أسامة موسى]

الاخ الكريم
اليك هذا الرابط
http://www.araboug.org/ib/index.php?act...t=ST&f=5&t=8674

[ابونواف620]

الأخوة الأعزاء هذا كود لعمل الصلاحيات من خلال الفورم
أريد أعرف الخطأ فيه حيث انه لأيظهر خطأ عند عمل compile
وعند تشغيل البرنامج لاتطبق الصلاحيات الممنوحة على المستخدمين
أرجو الأفادة وجزاكم الله خيراً

PROCEDURE sec IS
module varchar2 (30);
TEMP VARCHAR2(30); 
ins varchar2(1);
upd varchar2(1);
sel varchar2(1);
del varchar2(1);
ACT varchar2(1);
U_NO NUMBER(10);
BEGIN
 U_NO := :GLOBAL.USER_NO;
 module := :system.current_form;
 TEMP := get_form_property(module,first_block);
 
 SELECT NVL(DELETE_FLAG,'Y'),NVL(INSERT_FLAG,'Y'),NVL(SELECT_FLAG,'Y'),NVL(UPDATE_FLAG,'Y'),NVL(ACTIVE_FLAG,'Y') INTO del,ins,sel,upd,ACT
 FROM   USER_MODULES
 WHERE  USER_ID =  U_NO
 AND    MOD_NAME = module;
  
 LOOP
 IF TEMP IS NOT NULL THEN
 	IF TEMP <> 'TOOLBAR' THEN
 	          	if sel = 'Y' then
              	set_block_property (TEMP,query_ALLOWED,property_TRUE);
               else
              	set_block_property (TEMP,query_ALLOWED,property_falsE);
               end if;  

          	if upd = 'Y' then
                   set_block_property (TEMP,update_ALLOWED,property_TRUE);
          	else
                   set_block_property (TEMP,update_ALLOWED,property_falsE);
          	end if;  

          	if del = 'Y' then
                   set_block_property (TEMP,delete_ALLOWED,property_TRUE);
          	else
                   set_block_property (TEMP,delete_ALLOWED,property_falsE);
          	end if;  
  
          	if ins = 'Y' then
                	set_block_property (TEMP,insert_ALLOWED,property_TRUE);
          	else
                	set_block_property (TEMP,insert_ALLOWED,property_falsE);
          	end if;
          	
    	else
           null;
 	END IF;
 
   TEMP := get_block_property (TEMP,nextblock);
   ELSE
   EXIT;
END IF;
END LOOP;
 
END;

u_o رقم المستخدم

[أسامة موسى]

السلام عليكم
الى الاخ الكريم
هذا تعديل بسيط على الاجراء

PROCEDURE sec IS
module varchar2 (30);
TEMP VARCHAR2(30); 
ins varchar2(1);
upd varchar2(1);
sel varchar2(1);
del varchar2(1);
ACT varchar2(1);
U_NO NUMBER(10);

CURSOR C IS 
SELECT NVL(DELETE_FLAG,'Y') DEL_1,NVL(INSERT_FLAG,'Y') INS_1,NVL(SELECT_FLAG,'Y') SEL_1,NVL(UPDATE_FLAG,'Y')UPD_1,NVL(ACTIVE_FLAG,'Y') ACT_1
FROM USER_MODULES WHERE USER_ID = U_NO AND MOD_NAME = module;

BEGIN U_NO := :GLOBAL.USER_NO;
module := :system.current_form;
TEMP := get_form_property(module,first_block);
FOR i IN C LOOP
del:=i.DEL_1;
ins:=i.INS_1;
sel:=i.SEL_1;
upd:=i.UPD_1;
ACT:=i.ACT_1;
END LOOP;
GO_BLOCK('BLOCK_NAME');
LOOP
IF TEMP IS NOT NULL THEN
 IF TEMP <> 'TOOLBAR' THEN
    if sel = 'Y' then
       set_block_property (TEMP,query_ALLOWED,property_TRUE);
    else
       set_block_property (TEMP,query_ALLOWED,property_falsE);
    end if; 

    if upd = 'Y' then
       set_block_property (TEMP,update_ALLOWED,property_TRUE);
    else
       set_block_property (TEMP,update_ALLOWED,property_falsE);
    end if; 

    if del = 'Y' then
       set_block_property (TEMP,delete_ALLOWED,property_TRUE);
    else
       set_block_property (TEMP,delete_ALLOWED,property_falsE);
    end if; 

    if ins = 'Y' then
        set_block_property (TEMP,insert_ALLOWED,property_TRUE);
    else
        set_block_property (TEMP,insert_ALLOWED,property_falsE);
    end if;
 ELSE
    null;
 END IF;
 TEMP := get_block_property (TEMP,nextblock);
ELSE
 EXIT;
END IF;
END LOOP;
END;

اذا لم ينجح الحل
ارجو ارسال نسخة من الفورم على الايميل
[email protected]
ودمتم

[ابونواف620]

إلى الأخ :admon
الف شكر سوف اجرب الكود بعد التعديل وان شاء يكون تمام
وسوف ارسل لك على الآيميل رد
والف شكر على التجاوب

مع تحيات ابو نواف620

[m_dba]

اخي admin بارك الله فيك وارجوك ان اتوجهني الى كيفية استعمال هذه الصلاحيات من البداية بدي اغلبك معي بس كيفية استعمالها وشكرا جزيلا لك.

__________________.txt

[أسامة موسى]

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