تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] صلاحيات المستخدمين
#1
السلام عليكم ورحمة الله وبركاته
الاخوة الكرام ...اعمل فى مشروع به عدد كبير من الشاشات وكل شاشة بها بالطبع ازرار حذف واضافة وتعديل..الخ اريد عمل صلاحيات محددة لكل مستخدم لفتح شاشات معينة دون اخرى او القيام بصلاحية معينة دون الاخرى بداخل نفس الشاشة ....بالله عليكم من لديه تصور شامل عن هذا الموضوع فلا يبخل علينا به ولكم الشكر مقدما
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام
استخدم صندوقي للنص
واستخدم عند كتابة الكود اداة الشرط لاكثر من اسم وباسبورد فعند تطابق الشرط لاحد المستخدمين على سبيل المثال يفتح الفورم الفلاني وهكذا لكل مستخدم ماعدا المدير فتضع له تحقيق اداة الشرط تفتح جميع الفورمات
اختكم الاصيله
الرد }}}
تم الشكر بواسطة: hamada558
#3
شكرا لك اختى الكريمة....انا بالفعل عملت ذلك ...وموضوع ان مستخدم معين يفتح الفورم الفلانى هذه سهلة انما انا اريد مستخدم ما مثلا يفتح فورم معين ولكن لا توجد له صلاحيات كاملة على الفورم مثلا يستطيع الاضافة ولكن لا يستطيع الحذف...وهكذا ومع تعدد الفورمات تتعقد العملية نوعا ما...انااريد الية بسيطة تختصر الموضوع باكمله....اكرر لك جزيل الشكر
الرد }}}
تم الشكر بواسطة:
#4
في حالة تحديد بعض الصلاحيات وقفل الاخرى كان يكون زر الحذف تستطيع تعطيله من خاصيته فلا يعمل مع هذا المستخدم
هكذا

If TextBox2.Text = "الاصيله" And TextBox3.Text = "234" Then
Form2.Visible = True
Form2.Button3.Enabled = False
End If
اختكم الاصيله
الرد }}}
تم الشكر بواسطة: hamada558
#5
فكرة برضه....ممكن عمل ذلك ...اشكرك على الاهتمام والرد
الرد }}}
تم الشكر بواسطة:
#6
في VB ممكن تعمل موديول وفي تستخدم هيكل بيانات Structure متل
كود :
Structure str_user
    Dim fullname As String
    Dim update As Boolean
    Dim insert As Boolean
    Dim delete As Boolean
    Dim print As Boolean
    Dim search As Boolean
End Structure
Public user As New str_user
حتستخدم user منشان تعرف بيانات المستخدم (fullname, update, insert, delete, print, search)

ومنشان تملاهم بالبيانات بكود الدخول
كود :
Public Function GetUser(ByVal username As String, ByVal password As String) As Boolean

    Dim da As New OleDb.OleDbDataAdapter("SELECT * FROM users WHERE username=? AND password=?", cnn)
    da.SelectCommand.Parameters.AddWithValue("@u", username)
    da.SelectCommand.Parameters.AddWithValue("@p", password)

    Dim dt As New DataTable
    Dim ret As Integer = da.Fill(dt)

    If ret > 0 Then
        user.fullname = dt.Rows(0)("fullname")
        user.update = dt.Rows(0)("update")
        user.insert = dt.Rows(0)("insert")
        user.delete = dt.Rows(0)("delete")
        user.print = dt.Rows(0)("print")
        user.search = dt.Rows(0)("search")
        Return True

    Else
        Return False

    End If

End Function
ولمن المستخدم يريد الدخول في البرنامج تستخدم LoginUser واذا رجعت ب true يبقى تمام تم الدخول والا خطا

هاد متال ممككن يوضح اكتر


الملفات المرفقة
.rar   WindowsApplication1.rar (الحجم : 30.67 ك ب / التحميلات : 477)
الرد }}}
تم الشكر بواسطة: HASAN6.0 , عدنان الشمري , الاصيله


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] نظام المستخدمين khairallah 5 2,374 14-06-19, 10:44 PM
آخر رد: asemshahen
  مشكلة في كود صلاحيات المستخدمين مصمم هاوي 4 2,237 30-01-19, 06:32 PM
آخر رد: عبد العزيز البسكري
  [سؤال] صلاحيات المستخدمين Dody Mo 5 3,365 12-12-15, 07:43 AM
آخر رد: مبرمج أوتار
  [C#.NET] صلاحيات للمستخدمين abdo saleh 1 3,235 01-01-14, 05:01 PM
آخر رد: ali.alfoly

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم