声明变量.bas

用vb实现在线考试系统

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      '用户权限
         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

'----------------报警状态值-------------------
Public iChannelStatus(16, 16) As Integer '通道号状态 (前端机号，通道号）
Public iLostStatus(16, 16) As Integer    '视频丢失状态
Public iBaojingStatus(16, 50, 10) As Integer   '报警器状态 (前端机号,报警器号,防区号)

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