مرحبا بكم في سلسلة دروس برمجة قواعد البيانات في الدلفي
رابط الدرس الأول
http://www.startimes2.com/f.aspx?t=19028714
رابط الدرس الثاني
http://www.startimes2.com/f.aspx?mode=f&t=19047855
رابط الدرس الثالث
http://www.startimes2.com/f.aspx?t=19071084
الدرس الرابـــــــــــــــــــــع
قبل بدأ الدرس سنتطرق الى شرح آداة جد مهمة و التي نعتمد عليها كثيرا و هي TDBNavigator
1 الأول | تقوم بجلب أولى المعطيات المسجلة في قاعدة البيانات لتجعلها البيانات التي يتم العمل عليا حاليا |
2 السابق | تقوم بجلب البيانات السابقة لتجعلها البيانات التي نعمل عليها حاليا |
3 التالي | و هي عبارة عن next تقوم بجعل التسجيل التالي هو التسجيل الحالي |
4 الأخير | تقوم بجلب آخر تسجيل من قاعدة البيانات و تجعله التسجيل الذي يتم العمل عليه حاليا |
5 ادخال Insertion | تقوم بزيادة تسجيل لقاعدة البيانات قبل التسجيل الذي يتم العمل عليه حاليا |
6 حذف | تقوم بحذف التسجيل الذي يتم العمل عليه |
7 عرض | تجعل قاعدة البيانات قابلة للتسجيل |
8 تسجيل | تقوم بتسجيل جميع المعلومات التي تم ادخالها في قاعدة البيانات |
9 الغاء | تقوم بالغاء الأمر 7 و تجعل قاعدة البيانات غير قابلة للتسجيل |
10 تحديث | تقوم بافراغ المصفوفة و اعادة ملأها بالمعلومات المخزنة في قاعدة البيانات |
يمكن حذف بعض الأزرار من هذا المكون و التي لا نريد العمل بها بالاتجاه الى الخاصية visibleButton و عمل True أو False للأزرار
أعمـــــال موجـــــــــــــــــــــــــــــهة
التطبيــــق الأول :
نفرض أننا نسير مؤسسة خاصة .
كل موظف بهذه المؤسسة له ملفه الخاص ، الذي يحتوي المعلومات التالية :
رقم الضمان الاجتماعي
الاسم و اللقب
تاريخ الميلاد
العنوان
الوظيفة
الراتب الشهري
المطلوب منا هو انجاز قاعدة بيانات للموظفين اسمها Employé بالدلفي ، فماذا سنفعل ؟
توجيهات :
- استعمال وحدات قاعدة البيانات
- وضع بعض التسجيلات بقاعدة البيانات
- انجاز رابط Alias لهذه القاعدة
النتيجة التي نريدها :
التطبيــــق الثاني :
نعتبر دائما قاعدة البيانات المنجزة في التطبيق الأول الخاصة بالموظفين ، و المطلوب منا الآن هو انجاز واجهة للتحكم في قاعدة البيانات باستخدام DataBase Form Wizard ( تسجيل موظفين جدد ، حذف موظفين أحيلوا على التقاعد ...) فما هي الخطوات التي نتبعها ؟؟
توجيهات :
- استعمال DataBase form Wizard
- انجاز واجهة مع حقول الادخال
- انجاز واجهة ثانية مع جدول
الحلــــول المقترحـــــــــــــــــــــــــــة
التطبيق الأول :
لانجاز قاعدة بيانات من هذا النوع نتبع الخطوات التالية :
- افتح DataBase DeskTop و اختر File/New/Table
في النافذة تظهر اختر Paradox7 كنوع للطاولة و اضغط على Ok
تظهر الآن نافذة تحتوى الخانات التي يجب ملأها
يجب ملأ الخانات بالمعلومات السابقة الذكر ( رقم الضمان ، الاسم ,,,, الخ )
أما بالنسبة للدليل Index فأختر Num_SS ( رقم الضمان الاجتماعي)
ملاحظة :
لاختيار نوع الحقل Type نضغط بيمين الفأرة في Type لتظهر هذه القائمة و نختار منها أحد الأنواع المتاحة .
املا جميع الخانات حتى تحصل على هذا
احفظ قاعدة البيانات هته ، و أعطى لها اسما و ليكن مثلا Employé.db
و اختر لها مسارا مثلا C:/Exercices/BD
ستغلق النافذة تلقائيا بعد الحفظ لكن يمكنك اعادة فتحه مرة ثانية للتعديل ان كان هناك خطأ من قائمة File/open/Table و للتعديل عليها من قائمة Table/Restructure
الآن و بعدما صارت جاهزة يجب ملأها بمعلومات الموظفين ، اضغط على الزر Edit Data الذي تجده في الشريط
يمكنك ملئها بالمعلومات التالية :
Employé 1 : numéro 1 , Nom = Salim , Prénom = Rabah , Date Naissance = 10/03/1979 , Adresse = 06,Rue rabah Asslah Alger , Poste = Direction, Salaire = 1400
Employé 2 : numéro 2 , Nom = Karim , Prénom = Mehdi , Date Naissance = 02/06/1975 , Adresse = Cité Séllier Hydra, Poste =Secrétariat, Salaire = 1200
بقي الآن تحديد الرابط Alias
دائما DataBase DeskTop اذهب الى قائمة Outils أو Tools و نختار Alias Manager اضغط على New
في الحقل DataBase Alias ادخل اسم الرابط مثال Employé ثم اضغط على Browse لاختيار مكان وجود قاعدة البيانات (المسار الذي قمنا بحفظ قاعدة البيانات فيه) و اضغط OK ثم اضغط على Provisoire أو Keep New ثم Save As و احفظ دون أي تغيير .
التطبيق الثاني :
انجاز واجهة للمستخدم ليتحكم في قاعدة البيانات المنجزة من قبل :
- افتح دلفي و اختر قائمة File/new/Application المشروع مكون من نافذة واحدة تدعى
Form1 سنستعمل DataBase Form Wizard لانشاء النافذة Form1 لهذا نتبع الطوات التالية :
- الخطوة 1 : في قائمة Base de données نختار Form Wizard
- الخطوة 2 :
ستظهر نافذة تختار مثل ما في الصورة
الخطوة 3 :
في الخانة Drive or alias name تختار الرابط الذي أنجزناه في مثالنا ُ Employés ثم اضغط على اسم الطاولة التي انجزناها و هي Employé.db ثم اضغط التالي
الخطوة 4 :
في النافذة الموالية اختر الحقول التي تريد استعمالها هنا اخترها كلها ثم التالي
الخطوة 5 :
في هذه النافذة اختر وضع الحقول في مثالنا عمودي Verticale ثم التالي
الخطوة 6 :
في هذه النافذة اختر وضع Label بالنسبة للحقل ، هنا اختار Left ثم التالي
الخطوة 7 :
افعل مثل ما هو موضح في الصورة
اضغط Finish ثم عدل الفورم ليصبح جميل المنظر
ثم في الخاصية ِ Caption للـــ Form1 ضع Gestion des employées أو '' ادارة الموظفين''
اذهب الآن الى Standard و أضف المكون Button و غير له الخاصية Caption الى
'' اطهار الجدول''
ثم اضعط مرتين على المكون Button و أكتب الأمر الذي يسمح باظهار Form2
procedure TForm2.Button1Click(Sender: TObject);
begin
Form2.Show ;
end ;
الآن انجز Form2 باستعمال Form Wizard كما فعلت مع Form1 الا في الخطوة 5 اختر In a Gird
اتبع الخطوات المتبقية حتى النهاية ستحصل على فورم جديد غير له خاصية caption الى Grille des employées
الآن عند تشغيل البرنامج ستلاحظ ان الفورم 2 هو الذي يبدأ الأول لهذا اذهب الى القائمة Project ثم اختر Options و في Form ضع Main Form هو Form1 ثم Ok
يمكنك تجريب البرنامج الآن
و هذه هي النتيجة