大家好!

    今天我把权限重新理顺了一下

    在所有按钮和菜单上加了权限

    发布完后,启动后好用,过了一两分钟所有按钮就没有反应了

    再重新登陆又好了,再过一二两分钟又不好用了

请专家指导,我的版本是4月21日的.

附:权限代码

Dim nms As New List(of String)

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.C

cmd.CommandText = "SELECT * From {员工资料} Where [姓名] = \'" & _UserName & "\'"

dt = cmd.ExecuteReader

If dt.DataRows.Count > 0 Then

    If  dt.DataRows(0).IsNull("权限") = False Then

        nms.AddRange(dt.DataRows(0)("权限").Split(","))

    End If

End If

If nms.Contains("查询") = False Then

    MessageBox.Show("你没有权限,请申请权限后再执行操作!","提示!")

    Return

End If