tmwritetype.cls

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

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "tmwritetype"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Private mvarcardno As Long '局部复制
Private mvarcardtype As Byte '局部复制

Public Function twritetype() As Boolean
    
    Dim ptemp As String
    Dim temp As String
    Dim ntemp As String
    Dim i As Integer
    Dim card1 As New tmreadtype
    Set card1 = New tmreadtype
    
    With card1
        
        .treadtype
        temp = .romid
        i = CLng("&H" + Mid(temp, 15, 2))

        If i <> 2 Then

            Err.Raise 60005, , GetError(5)

            Exit Function

        End If
        
    End With
    
    ptemp = ""
    
    temp = Hex(cardtype)

    While Len(temp) < 2

        temp = "0" + temp

    Wend

    ptemp = ptemp + temp
    
    temp = Hex(cardno)

    While Len(temp) < 4

        temp = "0" + temp

    Wend

    ptemp = ptemp + temp
    
    ptemp = ptemp + "0101010101"
    
    For i = 0 To 6

        ptemp = ptemp + "0000000000000000"

    Next i
    
    twrite = writesub1(ptemp)

End Function

Public Property Let cardtype(ByVal vData As JalCardType)

    mvarcardtype = vData

End Property

Public Property Get cardtype() As JalCardType

    cardtype = mvarcardtype

End Property

Public Property Let cardno(ByVal vData As Long)

    mvarcardno = vData

End Property

Public Property Get cardno() As Long

    cardno = mvarcardno

End Property