| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- openqq 怎样与用户登录结合起来用？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=77314) |
| -- 作者：zhchling -- 发布时间：2015/11/16 13:20:00 -- openqq 怎样与用户登录结合起来用？ openqq 怎样与用户登录结合起来用？ 系统登陆后， 同时登录OPENQQ， OPENQQ的用户表和系统登陆的用户数据表是同一个表。 怎么实现？
|
| -- 作者：zhchling -- 发布时间：2015/11/16 13:29:00 -- 能否用系统内置的用户管理？ 还是说必须用外部数据表的用户管理？ |
| -- 作者：大红袍 -- 发布时间：2015/11/16 14:26:00 -- 参考 http://www.foxtable.com/help/topics/3015.htm
|
| -- 作者：jpg7 -- 发布时间：2015/11/26 9:40:00 -- 内置的不知道，我是两者结合的 |
| -- 作者：jpg7 -- 发布时间：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 |