اذهب الي المحتوي
ehmxp

الازرار الاضافة والمسح والحذف والبحث والتعديل

Recommended Posts

ehmxp

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

شارك هذه المشاركه


رابط المشاركه
شارك
sms423

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

create_record();


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

commit work;


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

enter_query();


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

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

execute_query();




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

delete_record();


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


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

  • أعجبني 3

شارك هذه المشاركه


رابط المشاركه
شارك
ehmxp

بسم الله الرحمن الرحيم
اخي الكريم
اشكرك جزيل الشكر على مساعدتك لي .... وجعلها الله في ميزان حسناتك يا رب العالمين ،،،،
اخي الكريم ...
يا ريت إذا ممكن تساعدني في هذه المشاكل إذا ممكن ...
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.');

  • أعجبني 1

شارك هذه المشاركه


رابط المشاركه
شارك
tareq_saqri

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


clear_form(no_commit);



والله أعلم

شارك هذه المشاركه


رابط المشاركه
شارك
faiedyassin

شــكراااااااااا على الاكواد الحلوة &&&&&&&&&&&&&& :blink: :) :rolleyes: :) :blink:

شارك هذه المشاركه


رابط المشاركه
شارك
Abdulrahman Abad

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

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

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

شارك هذه المشاركه


رابط المشاركه
شارك

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

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان

×
×
  • اضف...

برجاء الإنتباه

بإستخدامك للموقع فأنت تتعهد بالموافقة على هذه البنود: إتفاقية الخصوصية