[F.H.M]

الأخوة الأعزاء

السلام عليكم ورحمة الله وبركاته،،،

لدى هذا الكود لتحديد صلاحيات المستخدمين وقد وضعته في Module وهو يأخذ البيانات من جدول بقاعدة البيانات

كود :

Public Sub Userlogin(ByVal TextBox1 As String, ByVal TextBox2 As String)
    Try
     
        con.Open()
     
        da = New OleDbDataAdapter("Select * From User_info where User_Name = '" & TextBox1 & "' and User_Pass = '" & TextBox2 & "'", con)


   
        dt = New DataTable
             da.Fill(dt)
        Dim maxrow As Integer = dt.Rows.Count
        Dim type As String = dt.Rows(0).Item("User_Salahyat")

        If maxrow > 0 Then



            If type = "Admin" Then



                With Main_Form
                                     .Button1.Visible = True
                    .Button2.Visible = True
                    .Button3.Visible = True
                    .Button4.Visible = True
                                        .Button5.Visible = True
                    .Button7.Visible = True
                    .Button8.Visible = True
                                    .Button10.Text = dt.Rows(0).Item("User_Name") '& "::" & type
                    .Button11.Text = type

                End With

                MsgBox("لقد دخلت بصلاحيات " & type, , "الصلاحيات")
End If

وقد أضقت بعض المسمات لتحديد المسئولية مثل ( مبرمج - مسئول - مستعلم )

وأريد إعطاء المسئول الصلاحيات كاملة من بينها حذف وتعديل وإضافة مستخدمين ولكن لا أريده أن يعدل على بياناتي أنا كمبرمج بحيث لايستطيع حذفي ولا تعديل بياناتي

فهل من طريقة

جربت أن أجعل السطر الذي فيه بياناتي للقراءة فقط ولكن يفلح الأمر حيث لم تفعل هذه الخاصية

مع العلم بأن الفورم الخاص بالمستخدمين هو User_Form والفورم بالكود أعلاه هو للفورم الرئيسي Main_Form