1 - منع الدخول للنظام ايام الاجازات الرسمية , وخارج ساعات الدوام الرسمي :

IF(TO_CHAR(SYSDATE,'DY') IN ('THU','FRI')) OR (TO_CHAR(SYSDATE,'HH24') NOT BETWEEN '08', AND '18') THEN
MESSAGE(' SORY YOUR CANNOT RUN A PROGRAM ...');
EXIT_FORM(NO_COMMIT);
END IF;

2 - منع بعض العمليات (اضافة ,تعديل , حذف , استعلام) عن مستخدمين معينين علي جداول معينة :

في الفورم او الشاشة المعنية اكتب الكود التالي :

IF GET_APPLICATION_PROPERTY(USERNAME) <>'SCOTT' THEN
SET_block_PROPERTY('emp',insert_allowed,PROPERTY_FALSE);
SET_block_PROPERTY('emp',UPDATE_allowed,PROPERTY_FALSE);
SET_block_PROPERTY('emp',DELETE_allowed,PROPERTY_FALSE);
SET_block_PROPERTY('emp',QUERY_allowed,PROPERTY_FALSE);
END IF;

3 - كود مراقبة عملية الحذف الذي يقوم بها المستخدمين , بهدف استرجاع البيانات اذا تم حذفها سهوا :

في TRIGGER علي مستوي قاعدة البيانات :-

create or replace trigger p2
after delete on emp
for each row
begin
insert into to_wach(user_name,date_log,time_log,pro_type,old_empno,old_ename,old_job,old_mgr,old
_hiredate,old_sal,old_comm,old_deptno)
values(user,sysdate,to_char(sysdate,'hh:mi:ss'),'DELETE',:old.empno,:old.ename,:old.job,:old.mgr,:old.hiredate,:old.sal,:old.comm,:old.deptno);
end;
/

4 - كود مراقبة عمليات التعديل علي بيانات جدول معين :

create or replace trigger p3
after update on emp
for each row
begin
insert into to_wach(user_name,date_log,time_log,pro_type,new_empno,old_empno,new_ename,old_ename
,new_job,old_job,new_mgr,old_mgr,new_hiredate,old_hiredate,new_sal,old_sal,new_c
o
mm,old_comm,new_deptno,old_deptno)
values(user,sysdate,to_char(sysdate,'hh:mi:ss'),'UPDATE',:new.empno,:old.empno,:new.ename,:old.ename,:new.job,:old.job,:new.mgr,:old.mgr,:new.hiredate,:old.hiredate,:new.sal,:old.sal,:new.comm,:old.comm,:new.deptno,:old.deptno);
end;
/

5 - كود مراقبة عمليات الادخال التي يقوم بها الموظفين علي جدول معين :-

create or replace trigger p1
after insert on emp
for each row
begin
insert into to_wach(user_name,date_log,time_log,pro_type,new_empno,new_ename,new_job,new_mgr,new
_hiredate,new_sal,new_comm,new_deptno)
values(user,sysdate,to_char(sysdate,'hh:mi:ss'),'INSERT',:new.empno,:new.ename,:new.job,:new.mgr,:new.hiredate,:new.sal,:new.comm,:new.deptno);
end;

/


بالتوفيق .......................

تم تعديل 24 يوليو 200916 سنة بواسطة samdanger

الله يعطيك العافيه اخي محمود
بارك الله فيك والى الامام...
بالتوفيق

خيركم من تعلم العلم وعلمه

السلام عليكم اخواني الكرام...

بارك الله فيكم جميعا , لولا وقوفكم بجانبي في البداية لما استطعت تحصيل اي شيئ

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