?? module1.bas
字號:
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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -