我是用winsock控件实现的,有些代码量。我的做法是在主窗口放置一个winsocket控件数组,控件数组0在固定端口监听连接,一旦有客户端申请连接的,就加载一个winsocket控件,成为控件数组1,这个客户端以后的通讯就是和数组1了,数组0继续监听,另外我还在模块里定义一个自定义的数据类型和一个该类型的数组变量,用于存储连接的客户端信息,我把连接sql的信息都存在一个access数据库里,包含这些内容(见图,其中密码是密文,对应实际密码为DWjO5pMS,要通过专门解密算法解密出来。):服务器ip,sql连接端口(默认1433,可以改),sql用户名,sql用户密码,sql数据库名。自定义类型和变量如下,供你参考:
Type Link
ComputerName As String
'计算机名称
ComputerIP As String
'计算机ip地址
ComputerPort As Long
'计算机端口地址
LinkNumber As Integer
'连接编号,在所有连接中唯一存在
LinkUser As String
'登陆用户名称
Ver As String
'所使用的客户端版本号
OpPos As String
'当前操作员所在的操作位置
LinkTime As Date
'客户端开始连接服务器的时间
NoSendOk As Boolean
'网络数据发送未完成标志,True:正在发送
False:已经发送完毕
End Type
'定义网络连接类型
Public ComputerLink(250) As Link
'计算机连接清单
图片附件: 游客没有浏览图片的权限,请
登录 或
注册
[
本帖最后由 lowxiong 于 2013-2-16 19:06 编辑 ]