狐表的用户管理-使用外部数据表的时候，如果这些账号同时也作为QQclient登陆账号的话，该怎么改动这些代码？特别是密码这里是怎么处理的？如表：Access_User
Groups 5 培训机构|管理部门
Roles 6
培训中心 2 PassWord EmIR5WBjrFGjO7SHZdBWwQ== Type 2 Group 培训机构
培训签到 2 PassWord EmIR5WBjrFGjO7SHZdBWwQ== Type 2 Group 培训机构
Server_UserLogging
Dim pts() As
String = e.UserName.Split(".")
Dim dr1 As DataRow
dr1 =
DataTables("用户").Find("部门 = '" & pts(0) & "'
And 姓名 = '" & pts(1) & "'")
If dr1 Is
Nothing Then '判断此用户不存在
e.Message
= "用户名错误!" '返回给登录者的提示信息
Return
End If
If dr1("密码")
<> e.Password Then '如果密码错误
e.Message
= "登录密码错误!" '返回给登录者的提示信息
Return
End If
e.Success = True '允许用户登录
'添加所有同事为好友
For Each dr2 As
DataRow In DataTables("用户").DataRows
Dim nm As String = dr2("部门") & "." &
dr2("姓名")
If nm <> e.UserName Then '如果不是登录者本人
e.Buddies.Add(nm)
End If
Next
加好友 
发短信
Post By：2015/11/16 13:37:00 [只看该作者]
