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


ماذا تعني جملة is system.mesage_level:= 50 then



وشكرا

أخى الكريم \ awn78

لا يوجد قيمة 50 لل SYSTEM.MESSAGE_LEVEL ....... و هذا شرح تفصيلى لل SYSTEM.MESSAGE_LEVEL أتمنى أن يعجبك .


ال SYSTEM.MESSAGE_LEVEL هو متغير من متغيرات ال system الذى تستطيع من خلاله التحكم فى أظهار ال messages او أخفائها .

و ال Syntax هو :-

:System.Message_Level := value;

حيث أن ال value هى القيمة التى يجب ان تكون واحده من هذه القيم :-

0 , 5 , 10 , 15 , 20 , 25

و القيمة الافتراضية هى الصفر 0

و هذا معناه ان اى رسالة ال level بتاعها اكبر من 0 سوف يتم عرضها .... و من ثم فأن تغير الوضع الأفتراضى لأعلى قيمة سيؤدى لعدم أظهار اى رسالة ، فوضع القيمة 25 لل System.Message_Level لتريجر ال PRE-FORM سوف يؤدى لعدم عرض اى رسالة .... لأن كده الفورم هيتبرمج على ان ال 25 - و ما أدناه - هو الوضع الافتراضى ، و بذلك فهو لن يعرض الا اللى فوق ال 25 .... و ذى ما أخنا عارفيين مفيش أعلى من 25 ..... و من ثم لن يعرض اى رسالة أطلاقاً .

مثال بسيط للتحكم فى الرسالة التى تظهر بعد عمل حفظ للبيانات للفورم :-

عندما تقوم بعمل أى تغير فى الفورم فعند تأكيدك لحفظ هذه التغيرات تظهر لك رسالة بكود FRM-40400 ذى اللى فى الصورة دى :-



و أحنا عاوزيين لما نعمل حفظ للبيانات متطلعش الرسالة دى ........ هنا أحنا هنستخدم ال SYSTEM.MESSAGE_LEVEL

هنعمل تريجر ON-MESSAGE على مستوى الفورم و نكتب فيه :-

IF MESSAGE_CODE = 40400 THEN
:SYSTEM.MESSAGE_LEVEL := 0;
END IF;

و ده لأن انت حددت ان تكون ال MESSAGE دى اللى كودها 40400 فى المستوى الافتراضى الذى لا يتم عرضه ، اللى هو الصفر 0

خلى بالك كل رسالة و كل خطاء له كود ، انت عليك تفرق ما بين الخطاء و الرسالة
علشان تعرف هتحط كودك فى تريجر ال ON-ERROR ولا ال ON-MESSGAE
و دى سهل جداً انك تعرفها بأستخدام ال HELP بتاع الفورم ، كل ما عليك انك تاخد رقم الكود و تبحث فى ال HELP عليه .

ذى المثال اللى فات ..... ابحث عن رقمه هتلاقى بيقولك :-

FRM-40400: Transaction complete: %d records applied and saved. 

Cause:  Save complete. 
Action:  No action is necessary. 
Level:  5 
Type:  Informative

طالما جنب ال Type هو كاتب Informative .... يبقى أكتب كودك فى ال ON-MESSAGE
لكن لو جنب ال Type هو كاتب Error ........... يبقى أكتب كودك فى ال ON-ERROR


أضغط هنا لقراءة شرح موقع أوراكل لل SYSTEM.MESSAGE_LEVEL

أتمنى تكون المعلومة وصلت ....... و بالتوفيق

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

بقي طلب واحد يا اخ هاني ياريت لو في فورمه جاهزه يكون فيها ادخال وتعديل وحذف والسابق والتالي وحفظ وطباعه اي تقرير

وشكرا

ياريت لو في فورمه جاهزه يكون فيها ادخال وتعديل وحذف والسابق والتالي وحفظ وطباعه اي تقرير

كل الازرار التى ذكرتها موجوده بالفعل فى اى فورمه ، لو انت عاوز تمسح الشريط الافتراضى
و تقوم بعمل شريط جديد من تصميمك الخاص ، فقم بالدخول على ال property palette لل module اللى عملتها
و عند قسم ال Functional هتلاقى الMenu Module و جنبيها هيبقى مكتوب DEFAULT&SMARTBAR
و ده أسم الشريطان اللى بيطلعوا أثناء ال RunTime فال DEFAULT هو شريط القوائم ، أما ال SMARTBAR فهو الشريط الذى يحتوى على الازرار .

قم بمسح ال SMARTBAR و طبعاً لا تنسى تمسح علامة ال & معها .

قم بعمل ال toolbar و ضع عليه الازرار - push buttons - و بالنسبة للاكواد .... فالموضوع بسيط جداً ..... أحنا هنعمل عملية أستبدال ..... بمعنى اننا لما كنا بندوس على زر ال Exit اللى عليه شكل باب فى ال SMARTBAR كان اللى بيحصل انه بينفذ الكود الافتراضى اللى موجود فى تريجر ال KEY-EXIT و اللى كوده :-

EXIT_FORM;

فأحنا اللى هنعمله اننا هنيجى عند الزر الجديد اللى عملنا على الشريط الجديد و نكتب الكود ده فى تريجر WHEN-BUTTON-PRESSED

DO_KEY('EXIT_FORM');

و بكده بتكون نفذت الكود اللى جوه تريجر ال KEY-EXIT

قم بقراءة شرح موقع أوراكل لل DO_KEY Built-in جيداً ...... أضغط هنا

شوف المثاليين المرفقيين الل do_key لزيادة التوضيح

و بالتوفيق

Do_Key.zip

DO_KEY_EXAMPLE2.zip