以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]QQclient账号使用外部表，怎么改造？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77316)
--  作者：浙江仔
--  发布时间：2015/11/16 13:37:00
--  [求助]QQclient账号使用外部表，怎么改造？
狐表的用户管理-使用外部数据表的时候，如果这些账号同时也作为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
--  作者：大红袍
--  发布时间：2015/11/16 14:24:00
--  

呃，不是可以直接登陆的么？

 

http://www.foxtable.com/help/topics/3015.htm
--  作者：mxm121
--  发布时间：2015/11/16 15:51:00
--  
如果想和原有的外部认证一起使用

那直接允许注册就好了

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




客户端发起连接前 先完成原始的登录认证过程即可
--  作者：浙江仔
--  发布时间：2015/11/16 15:57:00
--  
谢谢