بسم الله الرحمن الرحيم
اخواني الكرام ،،، السلام عليكم ورحمة الله وبركاته
اخواني انا مبتدئ بالاوراكل ، وعندي جدول اسمه 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
لم استطع عمل هذا الكود
------------------------------------
يا ريت ياريت يا ريت يا شباب تساعدوني ولكم جزيل الشكر ،،،،
وبارك الله فيكم

السلام عليكم ورحمة الله وبركاته..
أخوي الغالي عندي بعض التعليقات على الكود..
ليش انت تتعب نفسك وتكتب كل هذا بينما الحل يسير وسهل جدا جدا جدا جدا..
أولا بالنسبة للإضافة
كودك أخوي الغالي خطأ لان commit خاصة بالحفظ وليس بالإضافة
والكود الخاص بإضافة سجل جديد هو

create_record();

بعد ذلك يمكنك إنشاء زر للحفظ وتكتب فيه

commit work;

----------
أما بالنسبة للبحث فيمكنك البحث بطريقة أخرى
وهي إنشاء زر تكتب فيه الكود التالي

enter_query();

وبعد الضغط على الزر تضع المؤشر في الحقل الذي تريد البحث به وتكتب ماتريد وبعد ذلك تنفذ الإستعلام..

ويمكنك تنفيذ الإستعلام عن طريق الكود التالي والذي يمكنك أن تضعه بزر مستقل

execute_query();

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

delete_record();

وعند الضغط على الزر سوف يقوم النموذج بحذف السجل من قاعدة البيانات.
وإذا أردت الحفظ كما قلنا أن هناك زر للحفظ أو انك تكتب أمر commit أسفل هذا الكود بنفس الزر ...كما تريد.
---------
أما بالنسبة للتحديث فأنت لن تحتاج غلى هذا الزر أبدا ياإخي الغالي لأن أي تعديل سيتم على السجل من خلال النموذج وبعد الحفظ سيتم تعديل كل البيانات ..
فلماذا زر التعديل؟؟؟؟؟؟ ليش التعب !!!!!!!!!!!!!!!!!!!!!!
اصلا النماذج عملت لتسهيل هاذه العملية ...


ان شاء الله أكون قدرت ان أرد على أسألتك وأي أسإله أنا جاهز..

بسم الله الرحمن الرحيم
اخي الكريم
اشكرك جزيل الشكر على مساعدتك لي .... وجعلها الله في ميزان حسناتك يا رب العالمين ،،،،
اخي الكريم ...
يا ريت إذا ممكن تساعدني في هذه المشاكل إذا ممكن ...
1. كل ما اضغط على زر Clear تظهر لي رسالة واريد ان اتخلص منها ...
Do you want to save the change you have made ?

2. اريد ان اظهر مربع حوار يظهر فيه رسالة معينة عند الحذف (تمت عملية الحذف بنجاح) او (هل تريد ان تحذف البيانات -نعم -لا)

3. حاولت ان اعمل زر update بس فشلت للأسف ، وحاولت اطبق إلي حضرتك قلت عنه بس كمان فشلت ، فياريت تساعدني ...
Dep.zip
شكرا اخي الكريم

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

message('Department No. not found.');
message('Department No. not found.');

اخي الكريم استخدم الكود التالي للتخلص من المسج (are you sure you want to save ....)

clear_form(no_commit);

والله أعلم

شــكراااااااااا على الاكواد الحلوة &&&&&&&&&&&&&&

لإظهار مربع حوار عليك ان تكرر ال message

message('تمت عملية الحذف بنجاح') ;

message('تمت عملية الحذف بنجاح');

عندي HDD  ظرب في السيرفر شغلي من بداية السنه انظرب

في مجال استطيع استعادته كل شي 

تم تعديل 13 فبراير 20205 سنة بواسطة Ahmed almansob