أبغى أسوي باسوورد رئيسي (المدير) هو الذي يستطيع أضافة مستخدمين وحذفهم أم عند دخول أحد المستخدمين
لا يستطيع هذا المستخدم من أضافة مستخدم آخر وأنما يستطيع تغيير الباسوورد الخاص به فقط
أبغى أسوي باسوورد رئيسي (المدير) هو الذي يستطيع أضافة مستخدمين وحذفهم أم عند دخول أحد المستخدمين
لا يستطيع هذا المستخدم من أضافة مستخدم آخر وأنما يستطيع تغيير الباسوورد الخاص به فقط
بمعنى أوضح أبغى أصمم نافذه تطلب الرقم السري وأسم المستخدم في حال دخول المشرف الرئيسي للبرنامج (المدير ) يسمح له بأضافة أعضاؤ ومستخدمين جدد للدخول للبرنامج كما يسمح له بحذفهم مع أمكانية تغيير الباسورد له شخصياً
أم في حال
دخول أحد المستخدمين لا يتم أو لا يسمح له بأضافة مستخدم أخر ولا يمكنه رؤية المستخدمين بينما يمكنه تغيير الباسوورد الخاص به
ما في أحد راضي يرد على الموضوع
تكفووووووووووووون
لم أرد ليس لعدم المعرفة ، ولكن لصعوبة نسبية لصياغة كلام مقنع لك، حيث لا أستطيع حاليا إعطاءك كود ولكني سأعطيك الفكرة التي يعمل بها هذا الكود.
تقوم بعمل جدول في قااعدة بيانات فيه أسماء المستخدمين وكلمات السر الخاصة بهم، هذا الجدول يحوي في البدء حساب الAdministrator وكلمة سره.
في البرنامج، عند استدعاء بريمج إضافة المستخدمين ، يقوم البريمج أولا بالتحقق من اسم المستخدم الحالي ، فإذا كان غير Administrator لايعرض له خيار إضافة مستخدم أصلا (disable لعنصر القائمة)، وإذا كان Administrator يعرض له المستخدمين الموجودين في قاعدة البيانات ويسمح له بتعديل كلمات سرهم، وإنشاء مستخدمين جدد. كل مستخدم جديد ينشأ يحفظ في قاعدة البيانات، وعند الدخول للنظام ككل يتحقق بريمج الlogin من اسم المستخدم الذي يريد الدخول وكلمة سره مقابل المستخدمين الموجودين في قاعدة البيانات ، فإذا كان موجودا ضمنهم سمح له بالدخول وإلا فلا.
هذه هي الفكرة باختصار ، آمل أن أكون قد نجحت في إيصالها لك بصورة جيدة تستطيع تطبيقها.
فكر بطريقة أخرى
مشكور أخوي على الفكرة الجميل بس ياريت تقدر تعطيني مثال عملي قريب من الفكرة حتى أقدر أضيغة بشكل اللي أنا أبغاه
السلام عليكم
الفكرة بسيطة حيث يمكنك ان انشاء متغيير في module من النوع string , و لنسمه x_name و عند بداية البرنامج ياخذ هذا المتغير قيمة كلمة المرور المدخلة
و لنفرض ان اسم المرور للمدير هو smith
كلما اراد المستخدم فتح الفورم الخاص بالمدير لنفرض انه form1سيفاجأ بالكود التالي
if x_name="smith" ' then
form1.show
else
s=msgbox("You are not allowed here",vbcritical,"my program") ' fault msg
end ifمن قال لا إله إلا الله صادقا دخل الجنة
موقعي للتعارف و تبادل الأخبار http://www.xybond.com
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…