tm0608.cls

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

            End If
            
        End If
        
        
        
        temp = Mid(ptemp, 35, 2)
        floor = Val("&H" + temp)
        
        temp = Mid(ptemp, 37, 2)
        room = Val("&H" + temp)
        
        temp = Mid(ptemp, 39, 2)
        Select Case temp
            Case "AA"
                isvip = True
            Case "BB"
                normalorhourcard = False
            Case "00"
                normalorhourcard = True
            Case Else
                tread() = False
        End Select
        
        
        temp = Mid(ptemp, 41, 10)
        begindatetime = BCDToDate(temp)
        
        temp = Mid(ptemp, 51, 10)
        enddatetime = BCDToDate(temp)
        
        temp = Mid(ptemp, 61, 10)
        enddatetime = BCDToDate(temp)
        
        temp = Mid(ptemp, 71, 8)
        prepay = HexStrtoCur(temp)
        
        temp = Mid(ptemp, 79, 6)
        roomprice = HexStrtoCur(temp)
        
        temp = Mid(ptemp, 85, 8)
        consumefare = HexStrtoCur(temp)
        
        temp = Mid(ptemp, 93, 4)
        cardpwd = Val("&H" + temp)
        
        temp = Mid(ptemp, 97, 4)
        operatorid = Val("&H" + temp)
        
        temp = Mid(ptemp, 101, 4)
        userid = Val("&H" + temp)
        
        temp = Mid(ptemp, 71, 8)
        guestaccountid = Val("&H" + temp)
        
    End If

End Function

Public Property Let datacardpwd(ByVal vData As Long)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.datacardpwd = 5
    mvardatacardpwd = vData
End Property


Public Property Get datacardpwd() As Long
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.datacardpwd
    datacardpwd = mvardatacardpwd
End Property



Public Property Let timecardpwd(ByVal vData As Long)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.timecardpwd = 5
    mvartimecardpwd = vData
End Property


Public Property Get timecardpwd() As Long
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.timecardpwd
    timecardpwd = mvartimecardpwd
End Property



Public Property Let regioncardpwd(ByVal vData As Long)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.regioncardpwd = 5
    mvarregioncardpwd = vData
End Property


Public Property Get regioncardpwd() As Long
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.regioncardpwd
    regioncardpwd = mvarregioncardpwd
End Property



Public Property Let terminatecardpwd(ByVal vData As Long)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.terminatecardpwd = 5
    mvarterminatecardpwd = vData
End Property


Public Property Get terminatecardpwd() As Long
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.terminatecardpwd
    terminatecardpwd = mvarterminatecardpwd
End Property



Public Property Let guestcardpwd(ByVal vData As Long)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.guestcardpwd = 5
    mvarguestcardpwd = vData
End Property


Public Property Get guestcardpwd() As Long
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.guestcardpwd
    guestcardpwd = mvarguestcardpwd
End Property



Public Property Let floorcardpwd(ByVal vData As Long)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.floorcardpwd = 5
    mvarfloorcardpwd = vData
End Property


Public Property Get floorcardpwd() As Long
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.floorcardpwd
    floorcardpwd = mvarfloorcardpwd
End Property



Public Property Let securitycardpwd(ByVal vData As Long)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.securitycardpwd = 5
    mvarsecuritycardpwd = vData
End Property


Public Property Get securitycardpwd() As Long
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.securitycardpwd
    securitycardpwd = mvarsecuritycardpwd
End Property



Public Property Let userid(ByVal vData As Long)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.userid = 5
    mvaruserid = vData
End Property


Public Property Get userid() As Long
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.userid
    userid = mvaruserid
End Property



Public Property Let operatorid(ByVal vData As Long)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.operatorid = 5
    mvaroperatorid = vData
End Property


Public Property Get operatorid() As Long
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.operatorid
    operatorid = mvaroperatorid
End Property



Public Property Let mastercardpwd(ByVal vData As Long)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.mastercardpwd = 5
    mvarmastercardpwd = vData
End Property


Public Property Get mastercardpwd() As Long
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.mastercardpwd
    mastercardpwd = mvarmastercardpwd
End Property

Public Property Let hotelpwd(ByVal vData As Long)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.hotelpwd = 5
    mvarhotelpwd = vData
End Property


Public Property Get hotelpwd() As Long
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.hotelpwd
    hotelpwd = mvarhotelpwd
End Property



Public Property Let hotelcode(ByVal vData As Long)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.hotelcode = 5
    mvarhotelcode = vData
End Property


Public Property Get hotelcode() As Long
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.hotelcode
    hotelcode = mvarhotelcode
End Property



Public Property Let cardtype(ByVal vData As Byte)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.cardtype = 5
    mvarcardtype = vData
End Property


Public Property Get cardtype() As Byte
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.cardtype
    cardtype = mvarcardtype
End Property



Public Property Let room(ByVal vData As Byte)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.room = 5
    mvarroom = vData
End Property


Public Property Get room() As Byte
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.room
    room = mvarroom
End Property



Public Property Let floor(ByVal vData As Byte)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.floor = 5
    mvarfloor = vData
End Property


Public Property Get floor() As Byte
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.floor
    floor = mvarfloor
End Property



Public Property Let building(ByVal vData As Byte)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.building = 5
    mvarbuilding = vData
End Property


Public Property Get building() As Byte
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.building
    building = mvarbuilding
End Property



Public Property Let cardpwd(ByVal vData As Long)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.cardpwd = 5
    mvarcardpwd = vData
End Property


Public Property Get cardpwd() As Long
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.cardpwd
    cardpwd = mvarcardpwd
End Property



Public Property Let cardno(ByVal vData As Long)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.cardno = 5
    mvarcardno = vData
End Property


Public Property Get cardno() As Long
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.cardno
    cardno = mvarcardno
End Property

Public Property Let linktype(ByVal vData As Byte)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.linktype = 5
    mvarlinktype = vData
End Property


Public Property Get linktype() As Byte
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.linktype
    linktype = mvarlinktype
End Property



Public Property Let linkport(ByVal vData As Byte)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.linkport = 5
    mvarlinkport = vData
End Property


Public Property Get linkport() As Byte
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.linkport
    linkport = mvarlinkport
End Property



Public Property Let initealizecardpwd(ByVal vData As Long)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.initealizecardpwd = 5
    mvarinitealizecardpwd = vData
End Property


Public Property Get initealizecardpwd() As Long
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.initealizecardpwd
    initealizecardpwd = mvarinitealizecardpwd
End Property



Public Property Let modifycardpwd(ByVal vData As Long)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.modifycardpwd = 5
    mvarmodifycardpwd = vData
End Property


Public Property Get modifycardpwd() As Long
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.modifycardpwd
    modifycardpwd = mvarmodifycardpwd
End Property



Public Property Let cleanmoneyflag(ByVal vData As Boolean)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.cleanmoneyflag = 5
    mvarcleanmoneyflag = vData
End Property


Public Property Get cleanmoneyflag() As Boolean
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.cleanmoneyflag
    cleanmoneyflag = mvarcleanmoneyflag
End Property