主题：[求助]窗口登录权限判断修改（已解决）

此主题相关图片如下：qq截图20160626204259.png

此主题相关图片如下：22.png

问题1、我登录窗口如图,一个部门或机构有多个用户，登录时需要判断用户是否属于注册表中的那个部门，这个代码怎么修改啊？

问题2、我有多个表，登录的用户只允许看自己部门内容，这个又怎么改？

Dim bm As WinForm.TextBox = e.Form.Controls("部门")
Dim zh As WinForm.TextBox = e.Form.Controls("账号")
Dim mm As WinForm.TextBox = e.Form.Controls("密码")

If bm.Value ="" Then
    MessageBox.Show ("请输入机构或部门!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
    Return
End If
If zh.Value ="" Then
    MessageBox.Show ("请输入账号!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
    Return
End If
If mm.value = "" Then
    MessageBox.Show ("密码不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
    Return
End If

Dim fdr As DataRow = DataTables("账号密码").Find("账号 = '" & zh.text & "'")
If fdr IsNot Nothing Then
Dim mms As String = fdr("密码")
    If  mm.value= mms  Then
        vars("当前用户") = fdr
        DataTables("分公司管理").LoadFilter = "所属机构 = '" & vars("当前用户")("部门") & "'"
        DataTables("分公司管理").load
        For Each tb As Table In Tables
            tb.Visible = True
        Next     
e.Form.close
    Else
        MessageBox.Show ("账号不存在,或者密码错误!","提示",MessageBoxButtons.OK)
        zh.value=""
        mm.value=""
    End If
End If

大红袍老师，我分公司管理是单独的一张表，我现在有很多张表啊？

大红袍老师，登录按钮代码如下，提示错误，怎么修改？

此主题相关图片如下：11.jpg

 

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

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

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

 

If zh.Value ="" Then

    MessageBox.Show ("请选择账号!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)

    Return

End If

If mm.value = "" Then

    MessageBox.Show ("密码不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)

    Return

End If

 

Dim tbs() As String = { "分公司管理", "外经证管理", "保证金管理" }

If tbs IsNot Nothing Then

For Each tb As String In tbs

        DataTables(tb).LoadFilter = "所属机构 = '" & vars("当前用户")("部门") & "'"

        DataTables(tb).load

        Next

 

e.Form.close

    Else

        MessageBox.Show ("账号不存在,或者密码错误!","提示",MessageBoxButtons.OK)

        zh.value=""

        mm.value=""

 End If

不知道怎么调啊，代码贴出，请老师直接修改，感谢感谢。

谢谢大红袍老师耐心指导，又有新问题

1、修改后，登录时点一个按钮打开一个表，不是加载完所有表

此主题相关图片如下：1.jpg

2、机构为总公司时，加载所有行，为其他机构登录时，只加载登陆的机构，这句代码怎么修改

DataTables(tb).LoadFilter = "所属机构 = '" & vars("当前用户")("部门") & "'"
                DataTables(tb).load

 

终于搞定，谢谢大红袍老师耐心指点，空了把示例文件发出来供大家参考。