عمل برنامج متعدد المستخدمين بالدلفي 'لكل مستخدم كلمة مرور و تفضيلات'

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

أولا : الفكرة

يعتمد تعدد المستخدمين على قاعدة بينات و هذا أمر بديهي و الفكرة هي عمل قاعدة بينات تحتوي على أسماء المستخدمين و كلمات المرور الخاصة بهم بالإضافة لحقل أو حقلين خاص بتفضيلات أو تعديلات إذا كان لكل مستخدم الكثير من التعديلات يجب عمل أكثر من حقل في الجدول

ثانيا : إن شاء قاعدة بينات

في هذا الدرس سنعمل بقاعدة بينات أكسس و للقيام بإنشاء قاعدة بينات يرجى مراجعة درس : ربط قاعدة بينات أكسس بالدلفي

ثالثا : بداية العمل

بعد القيم بإنشاء قاعدة بينات يجب القيام بإنشاء نموذج نضع فيه ما يلي حسب ما توضح الصورة التالية  :

إجعل جميع المكونات في الوضع  false في خاصية visible  ما عدا مكونين هما edit2 /labels مع جعل button1  false  في خاصية enabled

بعدها قم بربط قاعدة البينات التي تحتوي على الحقول : username/password/nom/prenom وبعدها اربط مكون

Dbedit1  بالحقل username عن طريق الخاصيتين :

و اربط dbedit2  مع الحقل Password  :

بعدها أكتب الكود التالي في حدث onchange  الخاص بمكون edit2  

شرح الكود: يقول لنا هذا الكود :

1 اجعل محتوى edit2  هو محتوى edit1

2 جملة شرط تقول إذا كان محتوى dbedi1 لا يساوي محتوى edit1  إذا لا تفعل شيئا ويمكن وضع مجموعة من الاقتراحات مثل إظهار رسالة  و إذا كان المحتوى متساويا يظهر لنا مكون edit3

بعدها أكتب الكود التالي في حدث onchange الخاص بمكون edit1  هذا الكود تم شرحه في الموضوع التالي : من هنا

هذا الكود للبحث داخل قاعدة البينات

قم بكتابة نفس الكود في حدث Onchange  الخاص بمكون edit4  مع تغير المعطيات الموجودة فقط حيث username  هو اسم الحثل في قاعدة البينات ز edit1 هو المكون الذي سنبحث فيه في هذه الحالة نغير كلاهما ل: password و edit4 الآن في حدث onchange  الخاص بمكون edit3  الكود التالي :

و الذي هو نفسه شرح السابق ما عدا إضافة كود button1.enabled:=true  و هو يجعل الزر نشط أي يمكن الضغط عليه و في حالة حدوث استثناء أي أن اسم المستخدم و كلمة المرور صحيحان سيظهر النموذج الثاني و الشيء الذي نريد إضافته هو أنه إذا أراد أحدكم أن يجعل لكل مستخدم خصائص فعليه بالآتي

وضع مكون dbtext  و ربطه بالجدول في النموذج الأول عن طريق الخاصية datasource  مثلا سنظهر لقب nom هذا المستخدم يعني سنربط المكون بالحقل Nom  و للقيام بهذا تقوم بربط الحقل النموذج الثاني بالأول عن طريق إضافة هذا unit1  إلى قسم uses  في النموذج الثاني :

ثم ربط المكون dbtext  بالحقل Nom  هكذا

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

لأي استفسار أو طلب إضافة أتركو هاذا في تعليق و السلام عليكم و رحمة الله تعالى و بركاته