vb9351.tmp

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

        
        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 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 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 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 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 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 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 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 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 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 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 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 cardtypeselected(ByVal vData As cardtypeselects)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.cardtypeselected = 5
    mvarcardtypeselected = vData
End Property


Public Property Get cardtypeselected() As cardtypeselects
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.cardtypeselected
    Set cardtypeselected = mvarcardtypeselected
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 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 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