[求助]关于OpenQQ用户表的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我的用户表用的是外部表，如果使用OpenQQ的可不可以直接使用用户表？

此主题相关图片如下：1.png

看帮助，是需要在OpenQQ服务端再建一个用户表，用来存储用户名，密码、部门和好友。。。

图片点击可在新窗口打开查看

此主题相关图片如下：2.png

我想只用一个用户表，在登录系统的同时，自动登录OpenQQ客户端

请老师指点下

[此贴子已经被作者于2017/10/12 9:49:28编辑过]

服务端和客户端必须要做两个不同的项目吗?

以下是引用客人(110.74.*.*)在2017/10/12 11:16:00的发言：
服务端和客户端必须要做两个不同的项目吗?

服务器端要单独做一个项目，当然，你可以直接拷贝原来的项目然后修改加上openQQ的功能。

明白，

那么服务端，能不能启动后只显示这么一个窗口呢？

此主题相关图片如下：3.png

我启动QQ客户端，提示错误。

此主题相关图片如下：1.png

以下是代码，我是写在AfterOpenProject 中：

If QQClient.Ready Then

MessageBox.show("QQClient已经启动,请先关闭","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

Return

End If

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

If QQClient.Start() = True '如果登录成功

Dim msg As String = "恭喜,OpenQQ登录成功!"

If QQClient.ServerMessage > "" Then '如果服务器返回了欢迎信息

msg = msg & QQClient.ServerMessage

End If

ConfigBar.Items("OpenQQ").SmallImage = GetImage("online.ico")

popMessage(msg,"提示",PopiconEnum.Infomation,5)

Else '如果登录失败,显示服务器返回错误信息

PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)

End If

服务端是启动了的，我用的是开发者登录，有弹出输入密码的对话框，输入密码之后就弹出这个错误。

我用其他普通用户登录也是提示这个。

请帮看看我哪里错了。

我用的是外部表

此主题相关图片如下：2.png

[此贴子已经被作者于2017/10/12 14:32:23编辑过]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:openqqtest.zip

老师，你帮看看，我用的示例文件

我在设置外部用户表时提示错误。

此主题相关图片如下：qq图片20171012144330.png

用户表，参考

下载信息 [文件大小：10.1 KB 下载次数：9]
点击浏览该文件:用户.zip

http://www.foxtable.com/webhelp/scr/2723.htm

上个压缩包是我搞错了，请看这个，我按照帮助做的，但是还是提示未知错误，实在想不明白。。。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:openqqtest.zip

主题：[求助]关于OpenQQ用户表的问题