السلام عليكم ورحمة الله وبركاته
الاخوة الكرام ...اعمل فى مشروع به عدد كبير من الشاشات وكل شاشة بها بالطبع ازرار حذف واضافة وتعديل..الخ اريد عمل صلاحيات محددة لكل مستخدم لفتح شاشات معينة دون اخرى او القيام بصلاحية معينة دون الاخرى بداخل نفس الشاشة ....بالله عليكم من لديه تصور شامل عن هذا الموضوع فلا يبخل علينا به ولكم الشكر مقدما
وعليكم السلام
استخدم صندوقي للنص
واستخدم عند كتابة الكود اداة الشرط لاكثر من اسم وباسبورد فعند تطابق الشرط لاحد المستخدمين على سبيل المثال يفتح الفورم الفلاني وهكذا لكل مستخدم ماعدا المدير فتضع له تحقيق اداة الشرط تفتح جميع الفورمات
شكرا لك اختى الكريمة....انا بالفعل عملت ذلك ...وموضوع ان مستخدم معين يفتح الفورم الفلانى هذه سهلة انما انا اريد مستخدم ما مثلا يفتح فورم معين ولكن لا توجد له صلاحيات كاملة على الفورم مثلا يستطيع الاضافة ولكن لا يستطيع الحذف...وهكذا ومع تعدد الفورمات تتعقد العملية نوعا ما...انااريد الية بسيطة تختصر الموضوع باكمله....اكرر لك جزيل الشكر
في حالة تحديد بعض الصلاحيات وقفل الاخرى كان يكون زر الحذف تستطيع تعطيله من خاصيته فلا يعمل مع هذا المستخدم
هكذا
If TextBox2.Text = "الاصيله" And TextBox3.Text = "234" Then
Form2.Visible = True
Form2.Button3.Enabled = False
End If
فكرة برضه....ممكن عمل ذلك ...اشكرك على الاهتمام والرد
في 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 يبقى تمام تم الدخول والا خطا
هاد متال ممككن يوضح اكتر