26-06-16, 06:03 AM
(آخر تعديل لهذه المشاركة : 27-06-16, 05:10 AM {2} بواسطة زكريا النابهي.)
داله عرض الصلاحيات توضع داخل كلاس او موديل
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)
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)