اضافه مستخدمين واعطاء صلاحيات

أخي السائل

مرفق ملف بداخلة أمثلة عديدة عن موضوع الصلاحيات كما أرجو الاطلاع علي الرابط التالي فستجد بداخلة مثال آخر

صلاحيات المستخدمين.rar

بارك الله فيك ياخى

لكن انا المثال لم يفتح عندى

انا اسال عن

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

الاداره - شئون العاملين - الحسابات - المهندسين

عند فتح الموظف البرنامج بيقوم البرنامج بطلب اسم الدخول والرقم السرى ويقوم بادخاله تفتح شاشه اخرى وفيها بيانات الموظف وصلاحياته

البرنامج قائم على هذه الاركان الاربعه ولكل ركن عدد من الشاشات داخل البرنامج

انا عاوز الى ياخد صلاحيات مثلا العاملين يدخل على شاشات 1.2.3. فقط لا غير وباقى الشاشات غير متاحه

 If l3.Text = "العاملين" Then


            ' المتـــاح للعاملين 
            ' العاملين
            'cli.Enabled = True 'اضافه عميل جديد
            cli_r.Enabled = True 'تقارير العملاء


  ' الغير متاح  

            'الحسابات
            acc_r.Enabled = False   ' تقارير الحسابات
            account.Enabled = False  ' اضافه حساب جديد

  ElseIf l3.Text = "الحسابات" Then


            'الحسابات
            acc_r.Enabled = True  ' تقارير الحسابات
            account.Enabled = True  ' اضافه حساب جديد

وهكذا

لكن هذه الطريقه لم تفلح فعند دخول موظف شئون العاملين الى شاشاه الحسابات بالفعل تكون غير متاحه له لكن ستم الخروج منها ثم الدخول اليها يجدها متاحه

الرجاء الحل