golbal.bas

这是一个银行IC卡门禁系统软件

Attribute VB_Name = "Golbal"
Option Explicit

'初始化函数,使用语音功能前必须首先调用,可在初始化时设置初始语音，初始语速，初始音量，并可自定义显示信息
'Public Declare Function SmartRead_Initial Lib "smartread.dll" (ByVal hwndFrom As Long, ByVal iSpeech As Long, _
          ByVal iRate As Long, ByVal iVolume As Long, ByVal strMessage As String, ByVal strTip As String) As Long
'关闭函数，推出程序前必须调用
'Public Declare Function SmartRead_Close Lib "smartread.dll" (ByVal bNull As Long) As Long
'打开语音设置对话框，用于改变中英文语音，音量，语速，可自定义下载连接
'Public Declare Function SmartRead_SetDialog Lib "smartread.dll" (ByVal hwndFrom As Long, ByVal strMessage As String) As Long
'朗读函数，第一个参数表示要朗读的文本，第二个参数表示朗读方式，第三个参数表示使用地语音，第四个参数表示使用的语速，第五个表示使用的音量
'Public Declare Function SmartRead_Speak Lib "smartread.dll" (ByVal str As String, ByVal iStyle As Long, _
                ByVal iSpeech As Long, ByVal iRate As Long, ByVal iVolume As Long, ByVal bPunctuation As Long, ByVal chLink As String) As Long
'停止朗读函数
'Public Declare Function SmartRead_Stop Lib "smartread.dll" (ByVal bNull As Long) As Long
'语音开发包版本信息，开在任何时候调用
'public Declare Function SmartRead_Version Lib "smartread.dll" (ByVal bNull As Long) As BE_VERSION
'将文本朗读到WAVE文件的函数，可设置输出的文件，朗读语音，朗读语速，朗读音量
'Public Declare Function SmartRead_SpeakToWave Lib "smartread.dll" (ByVal strText As String, ByVal strFile As String, ByVal iStyle As Long, _
            ByVal iSpeech As Long, ByVal iRate As Long, ByVal iVolume As Long, ByVal iFormat As Long, ByVal bPunctuation As Long, ByVal chLink As String) As Long


'##ModelId=3D338AF90020
Const EM_UNDO = &HC7

'##ModelId=3D338AFB02CC
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long

'##ModelId=3D338AFB0394
Declare Function OSWinHelp% Lib "user32" Alias "WinHelpA" (ByVal hwnd&, ByVal HelpFile$, ByVal wCommand%, dwData As Any)

'##ModelId=3D338AF90066
Public gRoomID As String
'##ModelId=3D338AF90098
Public gTMPRoomID As String

Public gStopVoice As Boolean

Public LockShow As Boolean

'##ModelId=3D338AF900D4
Public gRoomName As String
'##ModelId=3D338AF90106
Public gTMPRoomName As String

'##ModelId=3D338AF9014D
Public gRooms As New Rooms

'##ModelId=3D338AF901B0
Public DateTimeFormat As String

'CSEH: sunsgErr
'##ModelId=3D338AF901EC
Public OperatorID As Long
'##ModelId=3D338AF90228
Public Operator As String
'##ModelId=3D338AF90264
Public OperateLevel As String

'##ModelId=3D338AF90297
Public gHotelPWD As Long
'##ModelId=3D338AF902D3
Public gHotelCode As Long

'##ModelId=3D338AF9030F
Public gINPWD As Long
'##ModelId=3D338AF9034B
Public gMAPWD As Long
'##ModelId=3D338AF9037D
Public gSEPWD As Long
'##ModelId=3D338AF903B9
Public gOIPWD As Long
'##ModelId=3D338AFA0017
Public gMOPWD As Long
'##ModelId=3D338AFA0053
Public gREPWD As Long
'##ModelId=3D338AFA0099
Public gOPPWD As Long


'##ModelId=3D338AFA00CB
Public gRetireRoomTime As String
'##ModelId=3D338AFA011B
Public gAdditionTime As String
'##ModelId=3D338AFA0158
Public gGusestCardAmount As Byte

'##ModelId=3D338AFA018A
Public gCardNo As Long

'##ModelId=3D338AFA01C6
Public gFLPWD As Long
'##ModelId=3D338AFA0202
Public gGUPWD As Long
'##ModelId=3D338AFA023E
Public gTEPWD As Long

'##ModelId=3D338AFA027A
Public LockGID As Byte
'##ModelId=3D338AFA02AC
Public gMGID As Byte
'##ModelId=3D338AFA02E8
Public gSGID As Byte

'##ModelId=3D338AFA032E
Public LockGPWD As Byte
'##ModelId=3D338AFA0360
Public gMGPWD As Byte
'##ModelId=3D338AFA039C
Public gSGPWD As Byte

'##ModelId=3D338AFA03D8
Public ghelp As Boolean
'##ModelId=3D338AFB0037
Public gShowHelp As Boolean

'##ModelId=3D338AFB0074
Public dbcnn As LockDBConnection
'##ModelId=3D338AFB0204
Public cnnLock As ADODB.Connection

'##ModelId=3D338AFB0253
Public isProtect As Boolean
'##ModelId=3D338AFB0299
Public IsNetVersion As Boolean

Public Type KeyRecord

    ID As Integer
    KDatetime As String
    CardNo As String
    CardType As String
    LockID As String
    UserName As String
    LockArea As String
    
End Type

Public colKR() As KeyRecord

Public gAddress As String
Public gPD As String
Public gControl As String

Public gTVbyTime() As String
Public gGroupbyTime() As String
Public gTodayS() As String
Public gValue As Long

#If tm Then
Public TCardNo As Long
Public TCardType As String

#End If