منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

اتمني الافادة