Attribute VB_Name = "Module1"
'定義全局ADO對象連接，用于連接數(shù)據(jù)庫
Public DBCnn As New ADODB.Connection

'現(xiàn)存的連接車隊(duì)sock控件數(shù)(不包括靜態(tài)生成的那個保持偵聽的控件,0)
Public MaxSvrSock As Integer
'服務(wù)器端口
Public SvrPort As String

'允許連接100個客戶端
Public Client(1 To 100) As ClType
'記錄客戶端連接最大下標(biāo)
Public ClMax As Integer

'定義客戶端類型
Type ClType
    UsrID As String     '管理員ID
    index As Integer    '通道號
End Type