主题：关于权限控制代码

蓝老师，其实我是将以往成熟项目登录系统一模一样抄袭过来，可是这个系统出现这个提示问题我也头痛，提示问题都不知道怎么处理才好？

按我给的调试代码查找问题

输入数据是没错，提示感觉是乱码，很头痛，无从下手

把3个提示窗口截图发上来看看啊

Dim bm As WinForm.ComboBox = e.Form.Controls("部门")

Dim xm As WinForm.ComboBox = e.Form.Controls("姓名")

Dim zh As WinForm.TextBox = e.Form.Controls("账号")

Dim mm As WinForm.TextBox = e.Form.Controls("密码")

 

''判断部门账号是否一致

Dim dr As DataRow = DataTables("用户管理").Find("账号 = '" & zh.text & "'")

'Dim dr As DataRow = DataTables("用户管理").Find("账号 = '" & zh.text & "' and 部门='" & bm.text & "' and 姓名='" & xm.text & "'")

If dr Is Nothing Then

    MessageBox.Show ("账号不存在, 请确认账号是否注册!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)

    Return

End If

If bm.value = dr("部门") And xm.value = dr("姓名") And zh.value = dr("账号") Then

    If mm.value = dr("密码") Then

        If dr("用户状态") = "停用" Then '如果前面部门或姓名只加载了启用状态的,此处不用判断

            MessageBox.Show ("您的账号还未启用或已停用, 请与管理员联系!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)

            Return

        End If

        Forms("登录").close

        MainTable = Tables("用户管理") '打开主界面表

        e.Form.close

    Else

        MessageBox.Show ("密码错误,请重新输入!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)

        Return

    End If

Else

    MessageBox.Show ("部门,姓名,账号不一致, 请检查!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)

    Return

End If

 

 

将Dim dr As DataRow = DataTables("用户管理").Find("账号 = '" & zh.text & "'")

代码换成下面这一句就好用了

Dim dr As DataRow = DataTables("用户管理").Find("账号 = '" & zh.text & "' and 部门='" & bm.text & "' and 姓名='" & xm.text & "'")

要快速解决，就把项目发出来

已解决，谢谢

窗口数字计算代码，下面代码放在控件TextChanged事件。数字输入时计算正确，若将其中一个控件先填一个数后清空，则出现一个对话框提示出错，运行错误“从字符串“”到类型“Double”的转换无效。”请教老师，如何修改代码？

Dim h1 =Val( e.Form.Controls("TextBox1").text)

Dim h2 =Val( e.Form.Controls("TextBox2").text)

Dim h3 =Val( e.Form.Controls("TextBox3").text)

Dim h4 =Val( e.Form.Controls("TextBox4").text)

Dim h5 =Val( e.Form.Controls("TextBox5").text)

If e.Sender.text >= 0 Then

    e.Form.Controls("TextBox6").text = h1 + h2 + h3 + h4 + h5

End If

If e.Sender.text >= 0 Then

蓝老师，新代码没有错误提示，又产生一个新的问题，这个控件去掉这个数值后，后面的没有进行计算，这怎么修改？