以下是UserLogining代码，就是变更了用户信息表字段名
Dim pts() As String = e.UserName.Split(".")
Dim dr1 As DataRow
dr1 = DataTables("qq_user").Find("s_dept = '" & pts(0) & "' And s_name = '" & pts(1) & "'")
If dr1 Is Nothing Then '判断此用户不存在
e.Message = "用户名错误!" '返回给登录者的提示信息
Return
End If
If dr1("s_pass") <> e.Password Then '如果密码错误
e.Message = "登录密码错误!" '返回给登录者的提示信息
Return
End If
e.Success = True '允许用户登录
'添加所有同事为好友
For Each dr2 As DataRow In DataTables("qq_user").DataRows
Dim nm As String = dr2("s_dept") & "." & dr2("s_name")
If nm <> e.UserName Then '如果不是登录者本人
e.Buddies.Add(nm)
End If
Next
1.客户端用户能够正确登录。
2.用户表里的信息与样本信息一样内容。
[此贴子已经被作者于2019/11/17 20:30:20编辑过]
加好友 
发短信
Post By：2019/11/17 11:32:00 [只看该作者]
