主题：[求助]权限

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

老师，下面是我原来登录的密码。还是不行啊。

Dim UserName As String = e.Form.Controls("用户名").Value

Dim dr As DataRow

If UserName = ""  Then

    Messagebox.show("请选择用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    Return

End If

dr = _UserTable.SQLFind("[Name] = '" & UserName & "'") 

If dr Is Nothing Then

    Messagebox.show("此用户不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    Return

End If

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

    _UserName = UserName

    _UserGroup = dr("config") 

    e.Form.Close

Else

    Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If