Attribute VB_Name = "聲明變量"


Public remotenum As Byte

Public m_delaytype As Byte

Public uname As String
Public pword As String
Public userCheck As Long

Public m_bframenum As Long

Public ServerPort As Long
Public ClientPort As Long


Public m_linktype As Byte

Public Totalnum As Long

Global stockhandle(0 To 32) As Long

Global IPAddress As String

'Type UserData
'Name As String * 10
'PassWord As String * 8
'End Type

'Global User As UserData

'----------------------用戶管理------------------------------------------------------
' 聲明用戶自定義類型，即記錄類型（最多16條記錄）
Private Type UserDataType         '自定義類型的名稱為UserDataType
         UserID As String         '登陸名稱
         UserPassword As String   '登陸密碼
         UserLevel As String      '用戶權(quán)限
         UserTime As String       '注冊日期
End Type

Dim User(1 To 10) As UserDataType   '將變量UserTYPE定義為自定義類型
Dim UserName(1 To 10) As String


'Global AllUser(0 To 50) As UserData

Global OutValue(0 To 14) As String
Global CheckSum(0 To 10) As String


Global CurrentNum  As Long


Global Segment(0 To 23) As Integer
Global bChoose(0 To 15, 1 To 7, 0 To 23) As Integer
Global bChoose1(0 To 15, 1 To 7, 0 To 23) As Integer



Global RecordDate As String
Global StartTime As String
Global EndTime As String

Global bRecord(0 To 50) As Boolean
Global bflag(0 To 23) As Boolean

'*********錄像****************
Global DriveName As String
Global ServerNum As Integer
Global flag As Integer
Global kk As Integer

Global OldName(0 To 23) As String
Global NewName(0 To 23) As String



Global ServerName(1 To 16) As String

'-----------------視頻選擇------------------
Global Channel(0 To 100, 0 To 3)
Global ChannelPara(0 To 350, 0 To 3)
Global TotalShowNum As Integer


Global Address As String
Global iShowNum As Integer
Global ServerNo(0 To 15) As Integer
Global ifRecord(0 To 15) As Boolean

Global TabIndex As Integer


Public strCapDriver As String           '錄象/抓圖盤符

Global PlayQuality As Integer

'----------翻頁顯示------------
Global Num As Integer
Global iNext As Integer
Global bswitch As Integer

'----------------報警狀態(tài)值-------------------
Public iChannelStatus(16, 16) As Integer '通道號狀態(tài) (前端機號，通道號）
Public iLostStatus(16, 16) As Integer    '視頻丟失狀態(tài)
Public iBaojingStatus(16, 50, 10) As Integer   '報警器狀態(tài) (前端機號,報警器號,防區(qū)號)

Global SwitchInterval As Integer
Global PlayTime As Boolean
Global PlayCount As Integer