كيف أعمل هالTrigger ؟

السلام عليكم

مبروك عليكم رمضان

declare

cont number;

begin

select count ( * ) into cont from emp where

empno = :empno;

if cont > 0 then

Message('سبق ادخال هذا الموظف');

RAISE Form_Trigger_Failure;

end if;

end;

(f) (f)

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

الاخ فايز المحترم

بالنسبه لطلبك فهناك طريقه اخرى غير التى طرحها

الاخ أبو عمر عبدالله جزاه الله خيرا وهي :

قم بإنشاء Trigger على حقل Empno وإسمه KEY-NEXT-ITEM

وأكتب به الCODE التالي

DECLARE
CURSOR E_NUMBER IS SELECT EMPNO  
FROM EMP WHERE EMPNO=:EMPNO;
NO NUMBER;
NAME VARCHAR2(20);
BEGIN
OPEN E_NUMBER;
FETCH E_NUMBER INTO NO;
IF E_NUMBER%NOTFOUND THEN
GO_ITEM('ENAME');
ELSE 
SELECT ENAME INTO  NAME FROM EMP
WHERE EMPNO = NO;
MESSAGE( NAME||' لقد تم إدخال بيانات الموظف'); 
MESSAGE( NAME||' لقد تم إدخال بيانات الموظف'); 
:EMPNO:=NULL;
RAISE FORM_TRIGGER_FAILURE; 
CLOSE E_NUMBER;
END IF;
END;

وقم بتشغيل النموذج وأدخل رقم موظف موجود لديك وسوف تظهر لك رساله تخبرك بوجود هذا

الموظف مع عرض إسمه أيضا .

** قد لاتظهر الحروف العربيه بطريقة صحيحه عندما تقوم بنسخ الكود ولصقه مباشرة من هنا الى الForm Builder

لذلك قم بكتابة الحروف العربيه بنفسك داخل في الTRIGGER لكي تظهر لك بطريقه صحيحه .

وكل عام وانت وكل الاخوان بألف خير

عمر باعقيل

المدينه المنوره

baaqeel@onebox.com

أشكركم على تجاوبكم , وقد جربت الحلين وكانت النتيجة طيبة.

أخوكم / فايز

السلام عليكم ـ إخواني ...

تطويرا لنفس الـForm التي بدأتها معكم , لدي بعض الأسئلة الأخرى , أرجو ـ في رمضان ـ أن أجد عندكم الجواب ولكم الأجر والثواب مضاعفا ..

1ـ عند إدخال رقم موظف موجود سابقا كيف لي أن أظهر بياناته على الفورم.

2ـ إذا دخلت بـAdd كيف أخفي DISABLE زر الـUpdate.

3ـ إذا دخلت بـAdd و تراجعت عن الإدخال فإن زر الـExit لايغلق الفورم, فلماذا ؟؟

مجموعة أسئلة قد تفيد بعض الإخوان المبتدئين أمثالي .. :o

جزاكم الله خيرا

أخوكم / فايز