[زكريا النابهي]

داله عرض الصلاحيات توضع داخل كلاس او موديل

Public Sub Permission(ByVal Form As Form, ByVal FormName As String)

       Dim da As New SqlDataAdapter("select use_no,frm_name,use_Add,use_Modify,use_Del,use_Ser,use_show from users where use_no=" & UserId, con)
       Dim ds As New DataSet
       da.Fill(ds, "users")
       Dim dt As DataTable = ds.Tables("users")
       Dim NameFrm As String
       For Each btnname As DataRow In dt.Rows

           NameFrm = btnname("frm_name")
           If NameFrm = Trim(CStr(FormName.ToString)) Then

               If btnname("use_show") = False Then

                   MessageBox.Show("!!! عفواً لا تمتلك صلاحيات الدخول لشاشة " & FormName.ToString, "", _
                   MessageBoxButtons.OK, MessageBoxIcon.Stop, MessageBoxDefaultButton.Button1, _
                   MessageBoxOptions.RightAlign) : Form.Close() : frm_main.Show() : frm_main.Timer5.Start() _
                       : frm_main.Timer6.Start() : Exit Sub

               Else

                   Form.Controls.Item("btn_new").Enabled = btnname("use_Add")
                   Form.Controls.Item("btn_modify").Enabled = btnname("use_Modify")
                   Form.Controls.Item("btn_delete").Enabled = btnname("use_Del")
                   Form.Controls.Item("btn_search").Enabled = btnname("use_Ser")

               End If

           End If
       Next

   End Sub


كود الاستدعاء اثناء الإقلاع
في الحدث Load في كل النوافذ
Permission(Me, Me.Text)