tm08.cls

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

        hotelcode = CLng("&H" + temp)
        
        temp = Mid(ptemp, 33, 2)
        building = CLng("&H" + temp)
        
        temp = Mid(ptemp, 35, 2)
        floor = CLng("&H" + temp)
        
        temp = Mid(ptemp, 37, 2)
        room = CLng("&H" + temp)
        
        temp = Mid(ptemp, 39, 2)

        Select Case temp

            Case "00"
                CleanMemoryFlag = True

            Case "FF"
                CleanMemoryFlag = False

        End Select
        
        temp = Mid(ptemp, 53, 4)
        mastercardpwd = CLng("&H" + temp)

        temp = Mid(ptemp, 57, 4)
        securitycardpwd = CLng("&H" + temp)

        temp = Mid(ptemp, 61, 4)
        floorcardpwd = CLng("&H" + temp)
        
        temp = Mid(ptemp, 65, 4)
        guestcardpwd = CLng("&H" + temp)
        
        temp = Mid(ptemp, 69, 4)
        terminatecardpwd = CLng("&H" + temp)
        
        temp = Mid(ptemp, 73, 4)
        modifycardpwd = CLng("&H" + temp)
        
        temp = Mid(ptemp, 77, 4)
        regioncardpwd = CLng("&H" + temp)
    
        temp = Mid(ptemp, 81, 4)
        initealizecardpwd = CLng("&H" + temp)
        
        temp = Mid(ptemp, 85, 4)
        timecardpwd = CLng("&H" + temp)
    
        temp = Mid(ptemp, 89, 4)
        datacardpwd = CLng("&H" + temp)
        
        temp = Mid(ptemp, 93, 4)
        cardpwd = CLng("&H" + temp)
        
        temp = Mid(ptemp, 97, 4)
        operatorid = CLng("&H" + temp)
        
        temp = Mid(ptemp, 101, 4)
        userid = CLng("&H" + temp)
        
    End If

End Function

Public Property Let timecardpwd(ByVal vData As Long)

    If vData > 65534 Or vData < 1 Then

        Err.Raise 60012, "initealizecard.timecardpwd", GetError(12)
        Exit Property

    End If

    mvartimecardpwd = vData

End Property

Public Property Get timecardpwd() As Long

    timecardpwd = mvartimecardpwd

End Property

Public Property Let terminatecardpwd(ByVal vData As Long)

    If vData > 65534 Or vData < 1 Then

        Err.Raise 60012, "initealizecard.terminatecardpwd", GetError(12)
        Exit Property

    End If

    mvarterminatecardpwd = vData

End Property

Public Property Get terminatecardpwd() As Long

    terminatecardpwd = mvarterminatecardpwd

End Property

Public Property Let securitycardpwd(ByVal vData As Long)

    If vData > 65534 Or vData < 1 Then

        Err.Raise 60012, "initealizecard.securitycardpwd", GetError(12)
        Exit Property

    End If

    mvarsecuritycardpwd = vData

End Property

Public Property Get securitycardpwd() As Long

    securitycardpwd = mvarsecuritycardpwd

End Property

Public Property Let room(ByVal vData As Byte)

    mvarroom = vData

End Property

Public Property Get room() As Byte

    room = mvarroom

End Property

Public Property Let regioncardpwd(ByVal vData As Long)

    If vData > 65534 Or vData < 1 Then

        Err.Raise 60012, "initealizecard.regioncardpwd", GetError(12)
        Exit Property

    End If

    mvarregioncardpwd = vData

End Property

Public Property Get regioncardpwd() As Long

    regioncardpwd = mvarregioncardpwd

End Property

Public Property Let operatorid(ByVal vData As Long)

    If vData > 65534 Or vData < 1 Then

        Err.Raise 60012, "initealizecard.operatorid", GetError(12)
        Exit Property

    End If

    mvaroperatorid = vData

End Property

Public Property Get operatorid() As Long

    operatorid = mvaroperatorid

End Property

Public Property Let modifycardpwd(ByVal vData As Long)

    If vData > 65534 Or vData < 1 Then

        Err.Raise 60012, "initealizecard.modifycardpwd", GetError(12)
        Exit Property

    End If

    mvarmodifycardpwd = vData

End Property

Public Property Get modifycardpwd() As Long

    modifycardpwd = mvarmodifycardpwd

End Property

Public Property Let mastercardpwd(ByVal vData As Long)

    If vData > 65534 Or vData < 1 Then

        Err.Raise 60012, "initealizecard.mastercardpwd", GetError(12)
        Exit Property

    End If

    mvarmastercardpwd = vData

End Property

Public Property Get mastercardpwd() As Long

    mastercardpwd = mvarmastercardpwd

End Property

Public Property Let initealizecardpwd(ByVal vData As Long)

    If vData > 65534 Or vData < 1 Then

        Err.Raise 60012, "initealizecard.initealizecardpwd", GetError(12)
        Exit Property

    End If

    mvarinitealizecardpwd = vData

End Property

Public Property Get initealizecardpwd() As Long

    initealizecardpwd = mvarinitealizecardpwd

End Property

Public Property Let hotelpwd(ByVal vData As Long)

    If vData > 65535 Or vData < 0 Then

        Err.Raise 60012, "initealizecard.hotelpwd", GetError(12)
        Exit Property

    End If

    mvarhotelpwd = vData

End Property

Public Property Get hotelpwd() As Long

    hotelpwd = mvarhotelpwd

End Property

Public Property Let hotelcode(ByVal vData As Long)

    If vData > 65535 Or vData < 0 Then

        Err.Raise 60012, "initealizecard.hotelcode", GetError(12)
        Exit Property

    End If

    mvarhotelcode = vData

End Property

Public Property Get hotelcode() As Long

    hotelcode = mvarhotelcode

End Property

Public Property Let guestcardpwd(ByVal vData As Long)

    If vData > 65534 Or vData < 1 Then

        Err.Raise 60012, "initealizecard.guestcardpwd", GetError(12)
        Exit Property

    End If

    mvarguestcardpwd = vData

End Property

Public Property Get guestcardpwd() As Long

    guestcardpwd = mvarguestcardpwd

End Property

Public Property Let floorcardpwd(ByVal vData As Long)

    If vData > 65534 Or vData < 1 Then

        Err.Raise 60012, "initealizecard.floorcardpwd", GetError(12)
        Exit Property

    End If

    mvarfloorcardpwd = vData

End Property

Public Property Get floorcardpwd() As Long

    floorcardpwd = mvarfloorcardpwd

End Property

Public Property Let floor(ByVal vData As Byte)

    mvarfloor = vData

End Property

Public Property Get floor() As Byte

    floor = mvarfloor

End Property

Public Property Let datacardpwd(ByVal vData As Long)

    If vData > 65534 Or vData < 1 Then

        Err.Raise 60012, "initealizecard.datacardpwd", GetError(12)
        Exit Property

    End If

    mvardatacardpwd = vData

End Property

Public Property Get datacardpwd() As Long

    datacardpwd = mvardatacardpwd

End Property

Public Property Let CleanMemoryFlag(ByVal vData As Boolean)

    mvarcleanmemoryflag = vData

End Property

Public Property Get CleanMemoryFlag() As Boolean

    CleanMemoryFlag = mvarcleanmemoryflag

End Property

Public Property Let cardtype(ByVal vData As JalTMCardType)

    mvarcardtype = vData

End Property

Public Property Get cardtype() As JalTMCardType

    cardtype = mvarcardtype

End Property

Public Property Let cardpwd(ByVal vData As Long)

    If vData > 65535 Or vData < 0 Then

        Err.Raise 60012, "initealizecard.cardpwd", GetError(12)
        Exit Property

    End If

    mvarcardpwd = vData

End Property

Public Property Get cardpwd() As Long

    cardpwd = mvarcardpwd

End Property

Public Property Let cardno(ByVal vData As Long)

    If vData > 65535 Or vData < 0 Then

        Err.Raise 60012, "initealizecard.cardno", GetError(12)
        Exit Property

    End If

    mvarcardno = vData

End Property

Public Property Get cardno() As Long

    cardno = mvarcardno

End Property

Public Property Let building(ByVal vData As Byte)

    mvarbuilding = vData

End Property

Public Property Get building() As Byte

    building = mvarbuilding

End Property

Public Function CardInfo() As String

    Dim Info As String
    
    Info = "幢号=" & building
    Info = Info & "，层号=" & floor
    Info = Info & "，房号=" & room

    Info = Info & "，清除锁内开门记录=" & IIf(CleanMemoryFlag = True, "是", "否")

    Info = Info & "，酒店代码=" & Me.hotelcode
    Info = Info & "，酒店密码=" & Me.hotelpwd

    Info = Info & "，数据卡密码=" & datacardpwd
    Info = Info & "，总控卡密码=" & Me.mastercardpwd
    Info = Info & "，保安卡密码=" & Me.securitycardpwd
    Info = Info & "，楼层卡密码=" & Me.floorcardpwd
    Info = Info & "，客人卡密码=" & Me.guestcardpwd
    Info = Info & "，终止卡密码" & Me.terminatecardpwd
    Info = Info & "，修改卡密码=" & Me.modifycardpwd
    Info = Info & "，区域卡密码=" & Me.regioncardpwd
    Info = Info & "，初始化卡密码=" & Me.initealizecardpwd
    Info = Info & "，时间卡密码=" & Me.timecardpwd
    Info = Info & "，数据卡密码=" & Me.datacardpwd
    
    CardInfo = Info

End Function

Private Sub Class_Initialize()
ReDim state_buffer(15360)
End Sub