لوحة القادة

السلام عليكم ورحمة الله وبركاته انا مبتدئة في تعلم الاوراكل والديفيلوبر وافضل طريقة للفهم وتثبيت المعلومات هي عن طريق تعليم الاخرين. انا انشاء الله اليوم حبدأ هذا الدرس واي استفسار او سؤال او تصحيح ياريت تتكرموا وتعلموني به. طبعا اولا نفتح الفورم بيلدر ومن قائمة ملف نختار connect ثم ندخل على scott / tiger. اما من معالج انشاء بلوك data block wizard او عن طريق الرسم اليدوي نرسم ثلاثة text item نعطي لكل منهم اسم برمجي وهو اسم خاص بالمبرمج وغير مرئي من قبل المستخدم ابتدئنا الاسم بالمقطع txt وذلك لسهوله المراجعة لاحقا. الاول: name:txt_deptno column name:deptno الثاني: name:txt_dname column name:dname والثالث: name:txt_loc column name:loc نرسم ايضا خمسة ازرار على الفورم. الاول: label:new اي لانشاء سجل جديد. احداث triggers الازرار كلها when-button-pressed اي بعد رسم الزر على الفورم من لوحة الادوات ننقر عليه بالزر الايمن ونختار smart triggers ثم نختار الحدث المطلوب when-button-pressed اي عندما يتم الضغط على الزر زر ادخال سجل جديد: begin insert into dept (deptno,dname,loc)values(:txt_deptno,:txt_dname,:txt_loc); commit; message('a new record has been added'); end;[/left] شرح الشفرة: دليل بداية الكود begin insert into dept(deptno,dname,loc)values(:txt_deptno,:txt_dname,:txt_loc); اي ادخل الى حقول الجدول dept وهي رقم القسم deptno ,اسم القسم dname, والموقع loc القيم التالية: قيمة الكائنات المذكورة.فقيمة الكائن المسمىtxt_deptno تذهب للحقل deptno, ووضعت النقاط : امام الاسم لانه كائن في الفورم وليس متغير.وهكذا للبقية مع ضرورة الترتيب. ومن اجل الحفظ للسجل الجديد يجب عمل commit; message(' ');تستخدم لارسال رسالة للمستخدم تفيد ان السجل قد تم انشائة وحفظة بنجاح واخيرا نهاية الكود end; وانشاء الله اتمم بقية الازرار وهي تعديل،حذف,بحث,وخروج

بالنسبة للزر الثاني "تعديل" وضيفته هي تعديل سجل موجود وبما ان رقم القسم مفتاح اساسي primary key من الافضل عدم تعديله وذلك لامكانية وجود عدة سجلات في جدول الموظفين مرتبطه بهذا الرقم لذلك عند التعيل سنعمل على تغيير الاسم والموقع فقط. طبعا تبع الحدث when-button-pressed زر التعديل: label:update الشفرة: begin update dept set dname=:txt_dname,loc=:txt_loc where deptno=:txt_deptno; commit; message('a record has been updated'); end; الشرح: يمكن الاستغنا عن begin , end وهما كم ذكرت للدلالة على بداية ونهاية الكود update dept set dname=:txt_dname,loc=:txt_loc where deptno=:txt_deptno; اي عدل الجدول dept وذلك بجعل dname=:txt_dname اي عدل الحقل اسم القسم ليصبح ما هو مكتوب في الكائن txt_dname ,وكذلك بالنسبة للموقع where deptno=:txt_deptno بشرط ان يكون رقم القسم مساااوي للكائن txt_deptno وذلك حتى لا يقوم بتعديل بيانات الجدول كامل.(عدل السجل الذي يتحقق فيه الشرط المذكور فقط). ثم حفظ التعديل commit; واخيرا نهاية الكود end; وهذه شفرة الزر delete حذف سجل موجود begin delete from dept where deptno=:txt_deptno; commit; message('a record has been deleted'); end; والزر خروج begin exit_form; end;