此主题相关图片如下: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
[此贴子已经被作者于2016/6/29 22:36:41编辑过]