سلسلة دروس Base des Données + أمثلة ====] الدرس4 ===] Delphi

قبل بدأ الدرس سنتطرق الى شرح آداة جد مهمة و التي نعتمد عليها كثيرا و هي TDBNavigator

نفرض أننا نسير مؤسسة خاصة .

كل موظف بهذه المؤسسة له ملفه الخاص ، الذي يحتوي المعلومات التالية :

رقم الضمان الاجتماعي

الاسم و اللقب

تاريخ الميلاد

العنوان

الوظيفة

الراتب الشهري

 

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

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

يمكنك ملئها بالمعلومات التالية :

بقي الآن تحديد الرابط 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

[ltr]procedure TForm2.Button1Click(Sender: TObject);[/ltr]

[ltr]begin [/ltr]

[ltr]Form2.Show ;[/ltr]

[ltr]end ;[/ltr]

الآن انجز Form2 باستعمال Form Wizard كما فعلت مع Form1 الا في الخطوة 5 اختر In a Gird

اتبع الخطوات المتبقية حتى النهاية ستحصل على فورم جديد غير له خاصية caption الى Grille des employées

الآن عند تشغيل البرنامج ستلاحظ ان الفورم 2 هو الذي يبدأ الأول لهذا اذهب الى القائمة Project ثم اختر Options و في Form  ضع Main Form هو Form1 ثم Ok

يمكنك تجريب البرنامج الآن

و هذه هي النتيجة

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

 

 

منقول من منتدى اخر
مغلق