服务器的 userlogging 代码为:Dim pts() As String = e.UserName.Split(".")
Dim dr1 As DataRow
dr1 = DataTables("授权表").Find("Group = '" & pts(0) & "' And Name = '" & pts(1) & "'")
If dr1 Is Nothing Then '判断此用户不存在
e.Message = "用户名错误!" '返回给登录者的提示信息
Return
End If
If dr1("PassWord") <> e.Password Then '如果密码错误
e.Message = "登录密码错误!" '返回给登录者的提示信息
Return
End If
e.Success = True '允许用户登录
'添加所有同事为好友
For Each dr2 As DataRow In DataTables("授权表").DataRows
Dim nm As String = dr2("Group") & "." & dr2("Name")
If nm <> e.UserName Then '如果不是登录者本人
e.Buddies.Add(nm)
End If
Next
如果将find 改为sqlfind 则出现用户名错误提示