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

1、直接判断啊

 

http://www.foxtable.com/help/topics/0396.htm

 

2、直接加载啊

 

DataTables("分公司管理").LoadFilter = "所属机构 = '" & vars("当前用户")("部门") & "'"
DataTables("分公司管理").load

 多张表，就拷贝写多行

或者这样写

 

Dim tbs() As String = {"表1", "表2", "表2"}
For Each tb As String In tbs
    DataTables(tb).LoadFilter = "所属机构 = '" & vars("当前用户")("部门") & "'"
    DataTables(tb).load
Next

 去看登陆按钮的代码啊，用find函数找到对应的用户那一行。

查找对应的行，得到数据啊

 

Dim fdr As DataRow = DataTables("账号密码").Find("账号 = '" & zh.text & "'")

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
        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
        End If
    Else
        MessageBox.Show ("密码错误!","提示",MessageBoxButtons.OK)
    End If
Else
    MessageBox.Show ("账号不存在","提示",MessageBoxButtons.OK)
End If

1、

 

   For Each tb As Table In Tables
        tb.Visible = True
   Next   

 

2、

 

if vars("当前用户")("部门") = "总公司" then
    DataTables(tb).LoadFilter = ""
Else
    DataTables(tb).LoadFilter = "所属机构 = '" & vars("当前用户")("部门") & "'"
End If
DataTables(tb).load