السلام عليكم ورحمة الله 

 

ممكن مساعدة في صلاحيات برنامج ( Forms Builder ) ..

 

اريد ان اسند الصلاحيات الى اسم المستخدم الذي سجلت الدخول الية ، واسم البلوك ( Block ) الذي ساتحكم به .!!

 

 حيث انني قمت بعمل جدول للمستخدمين ،،  وجدول للشاشات ،،  

و جدول وسيط يحمل " رقم المستخدم " و "رقم الشاشة " وفية اربعة (  Check Box ) كل واحدة تعبر عن صلاحية وهي (استعلام - اضافة -  تعديل - حذف ) 

 

وبعد اضافة بيانات اسماء الشاشات والمستخدمين ووضع قيم ( 1 و 0 ) للـ( Check Box ) ،

 

عملت ( Triggers ) على مستوى ( WHEN-NEW-FORM-INSTANCE ) وكتبت الكود التالي :

DECLARE

	o number (1);

	i number (1);

	p number (1);

	d number (1);

	f varchar2 (100);

	u varchar2 (100);

	

begin 

	select user_id , form_id , S_open , S_insert , S_updete , S_delet

	into u,f,o,i,p,d 

	from scrt ;

	

	

	if u = :global.user_id  and  f = 'DON' then





if o = 1 then Set_block_Property('DON',Query_Allowed,PROPERTY_True) ;

	else  Set_block_Property('DON',Query_Allowed,PROPERTY_FALSE);

	end if ;	

	

	if i = 1 then Set_block_Property('DON',Insert_Allowed,PROPERTY_True) ;

	else  Set_block_Property('DON',Insert_Allowed,PROPERTY_FALSE);

	end if ;

	

	if p = 1 then Set_block_Property('DON',Update_Allowed,PROPERTY_True) ; 

	else  Set_block_Property('DON',Update_Allowed,PROPERTY_FALSE);

	end if ;

	



	if d = 1 then Set_block_Property('DON',Delete_Allowed,PROPERTY_True) ; 

	else  Set_block_Property('DON',Delete_Allowed,PROPERTY_FALSE);

		end if ;

	

	end if ;

	end ;

تنفذ الكود معي ، لكن على جميع المستخدمين  .!

 حيث وضعت مستخدم مفعل جميع الصلاحيات ، ومستخدم غير مفعلة  له الصلاحيات  ،  وكانت النتيجة واحدة  نفس الصلاحيات تنفذت على الجيمع ..؟

 

فما هو الحل المناسب وكيف استطيع ان اجعل الصلاحيات تتعرف على المستخدم الذي قام بتسجيل الدخول الى البرنامج ..؟

 

وشكراً لكم ... 

 

 

السلام عليكم

مكن تجرب تعدل هذا الكود

select user_id , form_id , S_open , S_insert , S_updete , S_delet
	into u,f,o,i,p,d 
	from scrt ;

 بحيث تضيف له شرط ويكون مثل هذذا 

select user_id , form_id , S_open , S_insert , S_updete , S_delet
	into u,f,o,i,p,d 
	from scrt 
where user_id=:Globl.user_id ;

 

وعليكم السلام ورحمة الله

 شكرا جزيلاً اخي .. تنفذ البرنامج معي .. الف شكر لك