tm06.cls

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

        tread = True
        
        temp = Mid(ptemp, 1, 2)
        cardtype = CLng("&H" + temp)
        
        temp = Mid(ptemp, 3, 4)
        cardno = CLng("&H" + temp)
        
        temp = Mid(ptemp, 17, 4)
        hotelcode = CLng("&H" + temp)
        
        tmcardmark = Mid(ptemp, 39, 2)

        Select Case tmcardmark

            Case "71"
                temp = Mid(ptemp, 53, 4)
                mastercardpwd = CLng("&H" + temp)
                cardtypeselected = mmastercard
                
            Case "72"
                temp = Mid(ptemp, 57, 4)
                securitycardpwd = CLng("&H" + temp)
                cardtypeselected = msecuritycard

            Case "73"
                temp = Mid(ptemp, 61, 4)
                floorcardpwd = CLng("&H" + temp)
                temp = Mid(ptemp, 33, 2)
                building = CLng("&H" + temp)
                temp = Mid(ptemp, 35, 2)
                floor = CLng("&H" + temp)
                cardtypeselected = mfloorcard

            Case "74"
                temp = Mid(ptemp, 65, 4)
                guestcardpwd = 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)
                cardtypeselected = mGuestCard

            Case "75"
                temp = Mid(ptemp, 69, 4)
                terminatecardpwd = CLng("&H" + temp)
                temp = Mid(ptemp, 33, 2)
                building = CLng("&H" + temp)
                temp = Mid(ptemp, 35, 2)
                floor = CLng("&H" + temp)
                cardtypeselected = mterminatecard

            Case "77"
                temp = Mid(ptemp, 77, 4)
                regioncardpwd = CLng("&H" + temp)
                cardtypeselected = mregioncard

            Case "79"
                temp = Mid(ptemp, 85, 4)
                timecardpwd = CLng("&H" + temp)
                cardtypeselected = mtimecard

            Case "7A"
                temp = Mid(ptemp, 89, 4)
                datacardpwd = CLng("&H" + temp)
                cardtypeselected = mdatacard

        End Select
        
        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, "modifycard.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, "modifycard.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, "modifycard.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, "modifycard.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 > 65535 Or vData < 0 Then

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

    End If

    mvaroperatorid = vData

End Property

Public Property Get operatorid() As Long

    operatorid = mvaroperatorid

End Property

Public Property Let mastercardpwd(ByVal vData As Long)

    If vData > 65534 Or vData < 1 Then

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

    End If

    mvarmastercardpwd = vData

End Property

Public Property Get mastercardpwd() As Long

    mastercardpwd = mvarmastercardpwd

End Property

Public Property Let hotelpwd(ByVal vData As Long)

    If vData > 65535 Or vData < 0 Then

        Err.Raise 60012, "modifycard.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, "modifycard.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, "modifycard.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, "modifycard.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 > 65535 Or vData < 0 Then

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

    End If

    mvardatacardpwd = vData

End Property

Public Property Get datacardpwd() As Long

    datacardpwd = mvardatacardpwd

End Property

Public Property Let cardtypeselected(ByVal vData As cardtypeselects)

    mvarcardtypeselected = vData

End Property

Public Property Get cardtypeselected() As cardtypeselects

    cardtypeselected = mvarcardtypeselected

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 > 65534 Or vData < 1 Then

        Err.Raise 60012, "modifycard.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, "modifycard.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
    
    Select Case cardtypeselected

        Case mmastercard
            Info = Info & "，修改总控卡密码=" & mastercardpwd

        Case msecuritycard
            Info = Info & "，修改保安卡密码=" & securitycardpwd

        Case mregioncard
            Info = Info & "，修改区域卡密码=" & regioncardpwd


        Case mfloorcard
            Info = Info & "，修改楼层卡密码=" & floorcardpwd

        Case mGuestCard
            Info = Info & "，修改客人卡密码=" & guestcardpwd

        Case mterminatecard
            Info = Info & "，修改终止卡密码=" & terminatecardpwd

    End Select
    
    CardInfo = Info

End Function

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