以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 老师 加了UserLogging还是连不上 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=146227) |
||||
-- 作者:和谐 -- 发布时间:2020/2/19 14:58:00 -- 老师 加了UserLogging还是连不上
请老师帮我检查一下例子,到底是什么故障? |
||||
-- 作者:有点蓝 -- 发布时间:2020/2/19 15:20:00 -- 1、连接不到数据库,无法测试 2、DDD用户要添加到外部的用户表http://www.foxtable.com/webhelp/topics/3015.htm 3、普通用户登录的时候不需要添加姓名和密码 QQClient.ServerIP = "127.0.0.1" \'指定服务器IP地址 QQClient.ServerPort = 52177 \'指定服务器端口 If user.Type = UserTypeEnum.User Then \'如果是普通用户 QQClient.UserName ="" QQClient.Password = "" Else \'如果是开发者或管理员 Dim pwd As String If InputPassWord(pwd,"提示","请输入" & User.Name & "的密码:") Then QQClient.UserName = User.Name QQClient.Password = pwd Else Return End If End If |
||||
-- 作者:和谐 -- 发布时间:2020/2/19 17:01:00 -- 此主题相关图片如下:33.jpg 此主题相关图片如下:22.jpg 老师还是不行
[此贴子已经被作者于2020/2/19 17:01:42编辑过]
|
||||
-- 作者:有点蓝 -- 发布时间:2020/2/19 17:01:00 -- 数据库发上来测试 |
||||
-- 作者:和谐 -- 发布时间:2020/2/19 17:05:00 -- 老师请看一下上面的贴图,服务端与客户端的连接,还差什么语句吗? |
||||
-- 作者:有点蓝 -- 发布时间:2020/2/19 17:11:00 -- QQClient.ServerIP = "127.0.0.1" \'指定服务器IP地址 QQClient.ServerPort = 52177 \'指定服务器端口 If user.Type = UserTypeEnum.User Then \'如果是普通用户 QQClient.UserName ="" QQClient.Password = "" Else \'如果是开发者或管理员 Dim pwd As String If InputPassWord(pwd,"提示","请输入" & User.Name & "的密码:") Then QQClient.UserName = User.Name QQClient.Password = pwd Else Return End If End If 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 |
||||
-- 作者:和谐 -- 发布时间:2020/2/19 17:16:00 -- 。
还是不行,这个附加数据库 请老师指正
[此贴子已经被作者于2020/2/19 17:17:41编辑过]
|
||||
-- 作者:有点蓝 -- 发布时间:2020/2/19 17:29:00 --
|
||||
-- 作者:和谐 -- 发布时间:2020/2/19 17:33:00 -- 老师提示版本过高? |
||||
-- 作者:有点蓝 -- 发布时间:2020/2/19 17:35:00 -- 更新到最新版的foxtable |