10/20/14

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

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

أولا : الفكرة

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

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

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

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

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

إجعل جميع المكونات في الوضع 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 في النموذج الثاني :