Foxtable(狐表) → 用户栏目 → 专家坐堂 → openqq 怎样与用户登录结合起来用？


  共有2794人关注过本帖树形打印复制链接

主题：openqq 怎样与用户登录结合起来用？
帅哥哟，离线，有人找我吗？
zhchling
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：385 积分：3893 威望：0 精华：0 注册：2012/2/9 20:09:00 		openqq 怎样与用户登录结合起来用？  发帖心情 Post By：2015/11/16 13:20:00 [只看该作者]

openqq 怎样与用户登录结合起来用？

系统登陆后， 同时登录OPENQQ， OPENQQ的用户表和系统登陆的用户数据表是同一个表。  怎么实现？  
 回到顶部
帅哥哟，离线，有人找我吗？
zhchling
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：385 积分：3893 威望：0 精华：0 注册：2012/2/9 20:09:00 		  发帖心情 Post By：2015/11/16 13:29:00 [只看该作者]

能否用系统内置的用户管理？  还是说必须用外部数据表的用户管理？

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/11/16 14:26:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
jpg7
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：437 积分：3682 威望：0 精华：0 注册：2014/4/28 18:50:00 		  发帖心情 Post By：2015/11/26 9:40:00 [只看该作者]

内置的不知道，我是两者结合的

 回到顶部
帅哥哟，离线，有人找我吗？
jpg7
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：437 积分：3682 威望：0 精华：0 注册：2014/4/28 18:50:00 		  发帖心情 Post By：2015/11/26 9:44:00 [只看该作者]

 登陆项目依然用内置加密方式的数据表
登陆openQQ用“用户”表
保持两者密码一致就好了
afteropenproject————————————————————
Dim dr As DataRow = DataTables("用户").Find("姓名 = '" & User.Name & "'")
    QQClient.ServerIP = "192.168.1.108" 
QQClient.ServerPort = 52177 
    QQClient.UserName = dr("部门") & "." & dr("姓名")
       QQClient.Password = dr("密码")   
    
    If QQClient.Start() = True '如果登录成功
        
        Dim msg As String =  "欢迎使用OpenQQ!"
        If QQClient.ServerMessage > "" Then '如果服务器返回了欢迎信息
            msg = msg & QQClient.ServerMessage
        End If
        popMessage(msg,"提示",PopiconEnum.Infomation,5)
    Else '如果登录失败,显示服务器返回错误信息
        
        PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)
    End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.02344 秒, 4 次数据查询