تحميل برنامج متعد للمستخدمين على قاعدة بينات
عمل برنامج متعدد المستخدمين بالدلفي 'لكل مستخدم كلمة مرور و تفضيلات'
برنامج يتعلق بتعدد المستخدمين مثلا هناك برنامج فيه الكثير من المستخدمين و كل مستخدم لديك تفضيلاته و لهذا تم التوصل لهاذا الدرس :
أولا : الفكرة
يعتمد تعدد المستخدمين على قاعدة بينات و هذا أمر بديهي و الفكرة هي عمل قاعدة بينات تحتوي على أسماء المستخدمين و كلمات المرور الخاصة بهم بالإضافة لحقل أو حقلين خاص بتفضيلات أو تعديلات إذا كان لكل مستخدم الكثير من التعديلات يجب عمل أكثر من حقل في الجدول
ثانيا : إن شاء قاعدة بينات
في هذا الدرس سنعمل بقاعدة بينات أكسس و للقيام بإنشاء قاعدة بينات يرجى مراجعة درس : ربط قاعدة بينات أكسس بالدلفي
ثالثا : بداية العمل
بعد القيم بإنشاء قاعدة بينات يجب القيام بإنشاء نموذج نضع فيه ما يلي حسب ما توضح الصورة التالية :
إجعل جميع المكونات في الوضع 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 هكذا
في الأخير
الكود سورس و قاعدة البيانات متاحان للتحميل
=
بلغ الادارة عن محتوى مخالف من هنا
ابلغون على الروابط التي لا تعمل من هنا