مقدمة في مطور الاوركل

رغم انه لم يرد شخص علي الموضوع حتي الان لكني سانشر الدرس الثاني للفائدة

سنتعلم في هذا الدرس انشاء واجهات المستخدم end-user interface و اضافة عدد من المهام للنموذج الاساس الذي انشأناه في الدرس الاول تفصيلا سندرس:-

• انشاء قائمة القيم LOV لتربط نموذجك بالجدول الذي يريد المستخدم ان يختار منه القيم

• انشاء ازرار الراديو

• انشاء صناديق قافزة Combo Box و قوائم منبثقة Poplist

• انشاء ازرار الاوامر Push Button

• انشاء احداث للازار للقيام باضافة و حذف و عرض السجلات

انشاء قائمة القيم LOV

سنحاول انشاء قائمة للتخصص الرئيس major في النموذج الذي انشأناه و للقيام بذلك نحتاج أولا لإنشاء الجدول Major_List

أفتح محرر SQL و اكتب

الرمز:

SQL> CREATE TABLE MAJOR_LIST (MAJOR VARCHAR2(20));

ثم أكتب التعليمات ادناه لإدخال قيم في الجدول

الرمز:

SQL> INSERT INTO MAJOR_LIST VALUES ('Accounting');

SQL> INSERT INTO MAJOR_LIST VALUES ('Info. Systems');

SQL> INSERT INTO MAJOR_LIST VALUES ('Marketing');

SQL> INSERT INTO MAJOR_LIST VALUES ('Finance');

SQL> INSERT INTO MAJOR_LIST VALUES ('Decision Sciences');

SQL> COMMIT;

يمكنك الان كتابة العبارة

الرمز:

Select * from Major_List;

لتتمكن من رؤية القيم التي ادخلتها

من متصفح الكائنات اضغط ضغطا مزدوجا علي LOV و اختر LOV Wizard.

ستظهر نافذة معالج LOV نختار Next

نختار SQL Query ثم اشر علي جدول MAJOR_LIST و اضغط Include

اضغط زر Close لإغلاق نافذة Select Data Tables و اختر MAJOR في النافذة التي تظهر

نضغط OK فتنشأ تعليمات SQL

نضغط next

نضغط Major و ننقله الي LOV Columns ثم Next

موافق علي القيم الابتدائة ثم نضغط Look up return item نختار STUDENT.MAJOR ثم OK

اضغط Next ثم أكتب في العنوان MAJOR_LOV

نضغط علي Finish يمكن الان ان تعود الي متصفح و تضغط ضغط مزدوج علي LOV لتغيير اسمها الي MAJOR_LOV

عد الي متصفح الكائنات تحت Canvas اضغط علي البند الذي فيه اسم Canvas

سننشيء الان زر في الكنفاس و ارسمه الي يمين صندوق النص Major

اضغط علي الزر الذي انشأته و أضغط عليه بالأيمن و اختر خصائص Property Palette

امسح الملصق label و غير Iconic الي Yes و في icon Filename اكتب Down ثم أغلق نافذة الخصائص

اضغط علي الزر الذي انشأته و أضغط عليه بالأيمن و اختر PL/SQL Editor

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

سننشي حدث When-Button-Pressed اختر هذا الحدث

ستظهر نافذة معالج PL/SQL أكتب الكود أدناه

الرمز:

Declare

Return_LOV Boolean;

Begin

Return_LOV :=show_LOV('Major_LOV');

End;

اضغط الان الزر compile

لتجريب البرنامج اختر Run Form من قائمة Program

سينفذ معك البرنامج اضغط علي الزر لتري اللائحة

سنقوم الان بانشاء زر راديو للبند FTPT_Status لإعطاء المستخدم إمكانية اختيار دوام كامل Full-Time او دوام جزئي Part-Time

لفعل ذلك اضغط بالزر الايمن علي FTPT_Status في الكنفاس و اختر Property palette

نغير الخاصية item type الي Radio Group و نضع القيمة الافتراضية initial value له علي FT أو PT ثم أغلق نافذة الخصائص

عندما تعود للكنفاس ستجد ان الحقل FTPT_Status لم يعد ظاهرا. اختر الان زر راديو من لوحة الادوات و ارسمه علي الكنفاس

ستظهر نافذة radio group اختر منها FTPT_Status و اضغط OK

اضغط بالزر الايمن علي زر الراديو و اختر Property Palette غير الملصق label الي 'Full_Time' و غير لون الخلفية background color الي Gray رمادي و الخاصة radio button a value الي FT

في الكنفاس انشي زر راديو اخر اربطه مع FTPT_Status و ليكن الملصق Part-Time و القيمة PT

اختر المستطيل rectangle من لوحة الادوات و ارسمه حول زري الراديو

اضغط علي المستطيل بالايمن و اختر خصائص و غير الخاصية fill pattern الي blank

غير Bevel الي Lowered

اختبر من Program Run

سننشيء الان لائحة منسدلة drop-down poplist للمتغير Start_Sem و الذي سيحتوي علي اربعة قيم Fall, Spring, Summer 1 and Summer 2 باختيار خصائص Start_Sem و غير خاصية item type الي list items و list style الي poplist

اضغط علي الخاصة Elements in List و أكتب في عناصر اللائحة list elements و قيم اللائحة list values. في هذا المثال ستتماثل كل من قيم و عناصر اللائحة و ستكون Fall, Spring, Summer 1 and Summer 2 (أو 01, 02, 03, 04 استنادا علي النوع البياني لهذا الحقل في قاعدة البيانات لديك)

الان قم بتجريب النموذج من Programs Run

سننشيء الان ثلاثة ازرار و نكتب حدث لكل منها اختر الزر من لوحة الادوات الي يسارك و ارسم الزر علي الكنفاس

غير ملصق label الزر الي Retrieve

ثم بالضغط بالزر الايمن علي الزر اختر PL/SQL editor ثم حدد الحدث WHEN-BUTTON-PRESSED-TRIGGER و كتب الشفرة ادناه ثم اضغط Compile

الرمز:

begin

select studid, studname, ftpt_status, sex, start_sem, start_year, major

into :student.studid, :student.studname, :student.ftpt_status,

:student.sex, :student.start_sem, :student.start_year, :student.major

from student

where studid = :student.studid;

exception

when no_data_found then

message ('Invalid Student Id:Please enter a valid Id.');

raise form_trigger_failure;

end;

في الشفرة اعلاه قمنا باختيار حقول من جدول الطالب لإسترجاع retrieving كل سجلات الطالب صاحب المعرف ID المحدد فاذا لم يجد بيانات قسيعرض رسالة محددة

الان بطرسقة مشابهة قم بانشاء الزرين الاخرين

سم الاول ادراج Insert و اكتب له الشفرة التالية للحدث When-Button-Pressed بعدها اضغط Compile

الرمز:

Commit;

Clear_Form;

سم الثاني مسح Clear و أكتب فيه الشفرة التالية للحدث When-Button-Pressed بعدها اضغط Compile

Clear_Form;

ملخص الدرس

في هذا الدرس تعرفنا علي كيفية اضافة عدة مكونات للنموذج و كتابة الاحداث

• انشاء قائمة القيم LOV لتربط نموذجك بالجدول الذي يريد المستخدم ان يختار منه القيم

• انشاء ازرار الراديو

• انشاء صناديق قافزة Combo Box و قوائم منبثقة Poplist

• انشاء ازرار الاوامر Push Button

• انشاء احداث للازار للقيام باضافة و حذف و عرض السجلات