主题：[求助]权限

参考这个例子的登陆窗口

 

http://www.foxtable.com/webhelp/scr/2945.htm

 

老师好，我已参考这个例子的登陆窗口做了，问题是外部数据表有无法识别的字段和不能对应系统自带登录窗口的密码。我在取值时也不正确。

 

Dim s As String = e.Sender.Text
Tables("Users").Filter = "Name In ('" & s.replace("|", "','") & "')"

上面是复选框取值的代码。

此主题相关图片如下：2017-11-17 07 56 14.png


此主题相关图片如下：2017-11-17 08 00 28.png

1、登陆按钮这样处理

 

Dim fdr As DataRow = DataTables("users").find("Name = '张三'")

if fdr is nothing Then

    msgbox("用户名不存在")

ElseIf fdr("config").Contains(MD5Encrypt("123456")) = false then

    msgbox("密码错误")

Else

    msgbox("密码正确")

End If

 

2、分组名、用户名生成，参考

 

http://www.foxtable.com/webhelp/scr/0609.htm

 

If e.Form.Controls("密码").Value = dr("Type") Then

 

改成

 

If dr("config").Contains(MD5Encrypt(e.Form.Controls("密码").Value)) then

此主题相关图片如下：2017-11-17 10 31 27.png

For Each u As UserInfo In users
    msgbox(u.name)
    'cmb.items.add(u.name)
Next

此主题相关图片如下：2017-11-17 11 17 06.png

1、

 

For Each u As UserInfo In users
    msgbox(u.group)
Next

 

2、

 

Dim str As String = e.sender.text
Dim filter As String = "1=2"
For Each s As String In str.Split(",")
    filter &= " or config like '%" & s & "%'"
Next
Tables("users").filter = filter

老师，下面代码怎样赋值给CheckedListBox1控件

1、   For Each u As UserInfo In users     msgbox(u.group) Next   2、   Dim str As String = e.sender.text Dim filter As String = "1=2" For Each s As String In str.Split(",")     filter &= " or config like '%" & s & "%'" Next Tables("users").filter = filter