01-01-14, 10:56 AM
01-01-14, 05:01 PM
السلام عليكم ورحمة الله
الموضوع سهل
هتعمل مثلا Structure وتضع فيه كل الخيارات المتاحة
مثال فتح فورم معين جلب بينات معينة
واعمل Enum واكتب فيه كل المجموعات الي انتا محتاجها مثال
واخيرا اعمل Function يحدد صلاحيات كل مجموعة
مثال
الان صار الامر سهل جدا
مثلا عندك فورم لارسال التعليقات تحقق من القيمة usr.Coment قبل فتح الفورم ان كان العضو ينتمي للمجموعة المسموح لها بفتح الفورم افتح
اتمني الافادة
الموضوع سهل
هتعمل مثلا Structure وتضع فيه كل الخيارات المتاحة
مثال فتح فورم معين جلب بينات معينة
كود :
Public Structure User
Public Log_in_Net As Boolean '- تسجيل الدخول بدون انترنت
Public Coment As Boolean '- ارسال التعليقات
Public Rcvry_Pas As Boolean '- تغير كلمة المرور
Public Rcvry_Det As Boolean '- تغير المعلومات الاضافية لبينات المستخدم
End Structure
واعمل Enum واكتب فيه كل المجموعات الي انتا محتاجها مثال
كود :
'- المجموعات
Public Enum Group As Byte
Not_cached '- ينتظر التفعيل
Stoop '- موقوف
Normal_user '- عضو عادى
Manager '- مدير
End Enum
واخيرا اعمل Function يحدد صلاحيات كل مجموعة
مثال
كود :
'- خصائص المجموعة
Public Function Get_user(grp As Group) As User
Dim usr As New User
Select Case grp
Case Group.Not_cached '-=======================< ينتظر التفعيل
usr.Coment = True '- ارسال التعليقات
usr.Rcvry_Pas = True '- تغير كلمة المرور
usr.Rcvry_Det = True '- تغير المعلومات الاضافية
'
Case Group.Stoop '-============================< موقوف >= ###
usr.Coment = False '- ارسال التعليقات
usr.Rcvry_Pas = False '- تغير كلمة المرور
usr.Rcvry_Det = False '- تغير المعلومات الاضافية
'
Case Group.Normal_user '-======================< عضو عادى
usr.Coment = False '- ارسال التعليقات
usr.Coment = True '- ارسال التعليقات
usr.Rcvry_Det = True '- تغير المعلومات الاضافية
'
Case Group.Manager '-==========================< مدير
usr.Coment = True '- ارسال التعليقات
usr.Rcvry_Pas = True '- تغير كلمة المرور
usr.Rcvry_Det = True '- تغير المعلومات الاضافية
'
End Select
Return usr
End Function
الان صار الامر سهل جدا
مثلا عندك فورم لارسال التعليقات تحقق من القيمة usr.Coment قبل فتح الفورم ان كان العضو ينتمي للمجموعة المسموح لها بفتح الفورم افتح
اتمني الافادة