بسم الله الرحمن الرحيم
اخواني الكرام ،،، السلام عليكم ورحمة الله وبركاته
اخواني انا مبتدئ بالاوراكل ، وعندي جدول اسمه Department وبه ثلاثة حقول Dep_No , Dep_Name , Dep_Hours
وبدأت اعمل له Desgin على الـ Form ، ووضعت بعض الازرار الاضافة والمسح والحذف والبحث والتعديل ، وبعض هذه الازرار قد عمل بصورة جيدة والاخرى لم يعمل نهائيا او لم اعرف كيفية كتابة الكود
-------------------------
زر الاضافة Insert
commit;
clear_form;
-----------------------
رز البحث Search (عن طريق رقم القسم)
begin
select dep_no,dep_name,dep_hours
into :depblock.dep_no,:depblock.dep_name,:depblock.dep_hours
from department
where dep_no=:depblock.dep_no;
exception
when no_data_found then
message('Department No. not found.');
raise form_trigger_failure;
end;
المشكلة في هذا الكود : ان الرسالة لا تظهر عندما لا يجد رقم القسم
-------------------------------------------
زر المسح Clean
clear_form;
---------------------------------------
زر الحذف Delete
delete from department
where dep_no=:depblock.dep_no;
delete_record;
Display_Delete_Alert;
------
PROCEDURE Display_Delete_Alert IS
return_alert Number;
BEGIN
return_alert :=show_alert('Delete Alart');
if return_alert = alert_button1 then
commit;
else
rollback;
end if;
END;
المشكلة في كود الحذف انه لا يحذف نهائيا
------------------------------------------
زر Update
لم استطع عمل هذا الكود
------------------------------------
يا ريت ياريت يا ريت يا شباب تساعدوني ولكم جزيل الشكر ،،،،
وبارك الله فيكم

ممكن ارفاق الملف

تحياتي لك ، ممكن ارفاق الملف