الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

اضافه صلاحيات للمستخدمين

بدأه vetch في 8 سبتمبر 2012 · 1 رد · 2,483 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

قمت بانشاء مشروع وتم الانتهاء منه vb.net2005

يمكن اضافه مستخدمين للمشروع عن طريق مدير البرنامج

اسم المستخدم: . اختيارى

الرقم السرى : . اختيارى

القسم : محدد " الاداره - الحسابات - المهندسين - العاملين"

يتم الحفظ على جدول المستخدمين فى قواعد البيانات

قواعد البيانات sql2005

الاقسام تم تحديدها من داخل البرنامج فهى " الاداره - الحسابات - المهندسين - العاملين "

البرنامج يحتوى على شاشات كثيره

ارغب فى ان يكون المستخدمين المنتميين الى قسم العاملين مثلا لا يستطيع الدخول الا الى شاشات مثلا 1.2.3. والمستخدمين المنتميين الى الحسابات لا يستطيع الدخول الا الى شاشات 4.5.6 مثلا

وهكذا

#2

السلام عليكم ..

  1. قم بإنشاء جدول للصلاحيات ... و لديك حالتان :
    1. فقط معرفة النوافذ فقط , و هنا يحوي الجدول (رقم المستخدم - الصلاحيات ) , حيث تكون الصلاحيات عبارة عن سلسلة نصية من أرقام النوافذ بينها نقطة مثل (1.2.13) أي المستخد يمكنه رؤية النوافذ 1 و 2 و 13
    2. إذا كنت تريد أن تحدد هل المستخدم يمكنه الحذف و التعديل على البيانات و فيكون الجدول (رقم المستخدم - رقم النافذة - إمكانية التعديل - إمكانية الحذف)
    3. في حدث الــ FormLoad تجلب نوافذ المستخدم , فإذا كان معه صلاحية لرؤوية النافذة تظهر الــ toolStripMenuItem الموافق و إلا تخفيه : استخدم كود مثل

      For Each menuLoop As ToolStripMenuItem In mnuMain.Items
      menuLoop.Enabled = False
      For Each toolStripMenuItem As ToolStripItem In menuLoop.DropDownItems
      toolStripMenuItem.Visible = False
      Next
      Next


      windowsToolStripMenuItem.Enabled = True
      For Each userWindow As UserWindow In user.userWindowList
      If userWindow.WindowID = 1 Then
      salaryStripMenuItem.Visible = True
      salaryStripMenuItem.OwnerItem.Enabled = True
      End If
      Next

      For i As Integer = mnuMain.Items.Count - 1 To 0 Step -1
      If mnuMain.Items(i).Enabled = False Then
      mnuMain.Items.RemoveAt(i)

      End If
      Next
      mnuMain.ResumeLayout()
       mnuMain.SuspendLayout()

تم تعديل هذه المشاركة بواسطة houssam11350_11350 في 8 سبتمبر 2012 في 16:11

لا إله إلا الله ... محمد رسول الله

لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة

المعرًف القديم : houssam11350_11350

من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر

مواضيع مشابهة