module1.bas

来自「<Visual Basic 数据库开发实例精粹（第二版）>一书首先介」· BAS 代码 · 共 22 行

Attribute VB_Name = "Module1"
'定义全局ADO对象连接，用于连接数据库
Public DBCnn As New ADODB.Connection

'现存的连接sock控件数(不包括静态生成的那个保持侦听的控件,0)
Public MaxSvrSock As Integer
'服务器端口
Public SvrPort As String

'允许连接100个客户端
Public Client(1 To 100) As ClType
'记录客户端连接最大下标
Public ClMax As Integer

'定义客户端类型
Type ClType
    UsrID As String     '管理员ID
    index As Integer    '通道号
End Type