mainform.frm

一个用VB编写的IC卡读写各种操作的源程序

      Case Else: List1.AddItem ("回收门禁考勤机用户卡失败")
    End Select
    
End Sub

Private Sub cmdopt_Click()
    Dim cardserno As Long
    Dim opt_num As Long
    
    Beep
    List1.Clear
    opt_num = 1
    st = Init_Pos_OPTCard(icdev, opt_num, 20, cardserno)
    Select Case st
      Case 0: List1.AddItem ("初始化消费机操作员卡成功,ID号:" & cardserno)
      Case -3: List1.AddItem ("初始化消费机操作员卡失败:没有消费系统授权信息")
      Case -5: List1.AddItem ("初始化消费机操作员卡失败:参数错")
      Case -7: List1.AddItem ("初始化消费机操作员卡失败:找不到卡")
      Case -9: List1.AddItem ("初始化消费机操作员卡失败:找不到消费授权卡")
      Case -11: List1.AddItem ("初始化消费机操作员卡失败:用户卡错误")
      Case -12: List1.AddItem ("初始化消费机操作员卡失败:读卡错")
      Case -13: List1.AddItem ("初始化消费机操作员卡失败:写卡错")
      Case -15: List1.AddItem ("初始化消费机操作员卡失败:不可识别的卡")
      Case Else: List1.AddItem ("初始化消费机操作员卡失败")
    End Select
 
''    st = RST_Pos_OPTCard(icdev, cardserno, 20)
''    Select Case st
''      Case 0: List1.AddItem ("回收消费操作员卡成功,ID号:" & cardserno)
''      Case -3: List1.AddItem ("回收消费操作员卡失败:没有消费系统授权信息")
''      Case -5: List1.AddItem ("回收消费操作员卡失败:参数错")
''      Case -7: List1.AddItem ("回收消费操作员卡失败:找不到卡")
''      Case -9: List1.AddItem ("回收消费操作员卡失败:找不到消费授权卡")
''      Case -11: List1.AddItem ("回收消费操作员卡失败:用户卡错误")
''      Case -12: List1.AddItem ("回收消费操作员卡失败:读卡错")
''      Case -13: List1.AddItem ("回收消费操作员卡失败:写卡错")
''      Case -15: List1.AddItem ("回收消费操作员卡失败:不可识别的卡")
''      Case Else: List1.AddItem ("回收消费操作员卡失败")
''    End Select
End Sub

Private Sub cmdsys_Click()
    Beep
    List1.Clear
    Dim userpwd As String
    'Dim commpwd(0 To 8) As Byte
    Dim commpwd As String * 8
    namename = "dassfxt.das"
    Dim systype%, mjsector%, mjcardtype%, xfsector%
    
    userpwd = "12345678"
    systype = 2
    mjsector = 1
    mjcardtype = 1
    xfsector = 4 '
    
    ''st = Init_SysCard_N(icdev, userpwd, systype, mjsector, mjcardtype, xfsector, namename, commpwd)
    st = Init_SysCard(icdev, userpwd, systype, mjsector, mjcardtype, xfsector, commpwd) '初始化消费系统卡
    Select Case st
      Case 0: List1.AddItem ("初始化系统卡成功,通讯密码:" & commpwd)
      Case -5: List1.AddItem ("初始化系统卡失败:参数错")
      Case -6: List1.AddItem ("初始化系统卡失败:不能再初始化系统卡")
      Case -7: List1.AddItem ("初始化系统卡失败:找不到卡")
      Case -10: List1.AddItem ("初始化系统卡失败:系统卡错误")
      Case -11: List1.AddItem ("初始化系统卡失败:用户卡错误")
      Case -12: List1.AddItem ("初始化系统卡失败:读卡错")
      Case -13: List1.AddItem ("初始化系统卡失败:写卡错")
      Case -14: List1.AddItem ("初始化系统卡失败:建立授权文档错误")
      Case -15: List1.AddItem ("初始化系统卡失败:不可识别的卡")
      Case Else: List1.AddItem ("初始化系统卡失败")
    End Select
End Sub
Private Sub cmdxf_Click()
    Dim serno As Long
    Dim cardserno As Long
    Dim usertype As Long
    Dim cardno(0 To 9) As Byte
    Dim cardtype As Long
    Dim opt_num As Long
    Dim value As Long
    Dim count As Long
    
    Beep
    List1.Clear
    serno = 1
    usertype = 1
    st = Init_Pos_UserCard(icdev, serno, "0000000001", usertype, 20, cardserno)
    Select Case st
      Case 0: List1.AddItem ("初始化消费用户卡成功,ID号:" & cardserno)
      Case -3: List1.AddItem ("初始化消费用户卡失败:没有消费系统授权信息")
      Case -5: List1.AddItem ("初始化消费用户卡失败:参数错")
      Case -7: List1.AddItem ("初始化消费用户卡失败:找不到卡")
      Case -9: List1.AddItem ("初始化消费用户卡失败:找不到消费授权卡")
      Case -11: List1.AddItem ("初始化消费用户卡失败:用户卡错误")
      Case -12: List1.AddItem ("初始化消费用户卡失败:读卡错")
      Case -13: List1.AddItem ("初始化消费用户卡失败:写卡错")
      Case -15: List1.AddItem ("初始化消费用户卡失败:不可识别的卡")
      Case Else: List1.AddItem ("初始化消费用户卡失败")
    End Select

    st = Query_Pos_Card(icdev, cardtype, opt_num, serno, cardno(0), cardserno, value, count, usertype, 20)
    Select Case st
      Case 0: List1.AddItem ("消费使用卡查询成功,ID号:" & cardserno & ",value:" & value)
      Case -3: List1.AddItem ("消费使用卡查询失败:没有消费系统授权信息")
      Case -5: List1.AddItem ("消费使用卡查询失败:参数错")
      Case -7: List1.AddItem ("消费使用卡查询失败:找不到卡")
      Case -9: List1.AddItem ("消费使用卡查询失败:找不到消费授权卡")
      Case -11: List1.AddItem ("消费使用卡查询失败:用户卡错误")
      Case -12: List1.AddItem ("消费使用卡查询失败:读卡错")
      Case -13: List1.AddItem ("消费使用卡查询失败:写卡错")
      Case -15: List1.AddItem ("消费使用卡查询失败:不可识别的卡")
      Case Else: List1.AddItem ("消费使用卡查询失败")
    End Select
    
    st = WRT_Pos_UserCard(icdev, 10000, cardserno, 20)
    Select Case st
      Case 0: List1.AddItem ("消费使用卡写值100成功,ID号:" & cardserno)
      Case -3: List1.AddItem ("消费使用卡写值100失败:没有消费系统授权信息")
      Case -5: List1.AddItem ("消费使用卡写值100失败:参数错")
      Case -7: List1.AddItem ("消费使用卡写值100失败:找不到卡")
      Case -9: List1.AddItem ("消费使用卡写值100失败:找不到消费授权卡")
      Case -10: List1.AddItem ("消费使用卡写值100失败:系统卡错误")
      Case -11: List1.AddItem ("消费使用卡写值100失败:用户卡错误")
      Case -12: List1.AddItem ("消费使用卡写值100失败:读卡错")
      Case -13: List1.AddItem ("消费使用卡写值100失败:写卡错")
      Case -15: List1.AddItem ("消费使用卡写值100失败:不可识别的卡")
      Case Else: List1.AddItem ("消费使用卡写值100失败")
    End Select

    st = RST_Pos_UserCard(icdev, cardserno, 20)
    Select Case st
      Case 0: List1.AddItem ("回收消费用户卡成功,ID号:" & cardserno)
      Case -3: List1.AddItem ("回收消费用户卡失败:没有消费系统授权信息")
      Case -5: List1.AddItem ("回收消费用户卡失败:参数错")
      Case -7: List1.AddItem ("回收消费用户卡失败:找不到卡")
      Case -9: List1.AddItem ("回收消费用户卡失败:找不到消费授权卡")
      Case -11: List1.AddItem ("回收消费用户卡失败:用户卡错误")
      Case -12: List1.AddItem ("回收消费用户卡失败:读卡错")
      Case -13: List1.AddItem ("回收消费用户卡失败:写卡错")
      Case -15: List1.AddItem ("回收消费用户卡失败:不可识别的卡")
      Case Else: List1.AddItem ("回收消费用户卡失败")
    End Select
End Sub



Private Sub Command1_Click()
 Dim cardserno As Long
    Dim opt_num As Long
    
    Beep
    List1.Clear
    opt_num = 1
    st = Init_Pos_OPTCard(icdev, opt_num, 20, cardserno)
    Select Case st
      Case 0: List1.AddItem ("初始化消费机操作员卡成功,ID号:" & cardserno)
      Case -3: List1.AddItem ("初始化消费机操作员卡失败:没有消费系统授权信息")
      Case -5: List1.AddItem ("初始化消费机操作员卡失败:参数错")
      Case -7: List1.AddItem ("初始化消费机操作员卡失败:找不到卡")
      Case -9: List1.AddItem ("初始化消费机操作员卡失败:找不到消费授权卡")
      Case -11: List1.AddItem ("初始化消费机操作员卡失败:用户卡错误")
      Case -12: List1.AddItem ("初始化消费机操作员卡失败:读卡错")
      Case -13: List1.AddItem ("初始化消费机操作员卡失败:写卡错")
      Case -15: List1.AddItem ("初始化消费机操作员卡失败:不可识别的卡")
      Case Else: List1.AddItem ("初始化消费机操作员卡失败")
    End Select
 
    st = RST_Pos_OPTCard(icdev, cardserno, 20)
    Select Case st
      Case 0: List1.AddItem ("回收消费操作员卡成功,ID号:" & cardserno)
      Case -3: List1.AddItem ("回收消费操作员卡失败:没有消费系统授权信息")
      Case -5: List1.AddItem ("回收消费操作员卡失败:参数错")
      Case -7: List1.AddItem ("回收消费操作员卡失败:找不到卡")
      Case -9: List1.AddItem ("回收消费操作员卡失败:找不到消费授权卡")
      Case -11: List1.AddItem ("回收消费操作员卡失败:用户卡错误")
      Case -12: List1.AddItem ("回收消费操作员卡失败:读卡错")
      Case -13: List1.AddItem ("回收消费操作员卡失败:写卡错")
      Case -15: List1.AddItem ("回收消费操作员卡失败:不可识别的卡")
      Case Else: List1.AddItem ("回收消费操作员卡失败")
    End Select
End Sub

Private Sub Form_Load()
    Beep
    List1.Clear
    Dim aa(0 To 4) As Byte
    'Dim aa As String * 5
    Dim xfsec&
    Dim sysxf&
    Dim sysmj&
    Dim pwd(0 To 7) As Byte
    namename = "license.das"
    st = Load_Author(namename)
'          Dim str As String
'        str = ""
'        Dim i As Integer
'        For i = 0 To 4
'            str = Trim(str) + Chr(aa(i))
'        Next i
    If st <> 0 Then
        List1.AddItem "Load error"
    End If
    icdev = OpenComm(1)
    If icdev > 0 Then
        st = Check_Reader(icdev)
        If st <> 0 Then
            icdev = OpenComm(0)
            If icdev > 0 Then
                st = Check_Reader(icdev)
                If st <> 0 Then
                    MsgBox ("读写器通讯错!")
                    Unload Me
                Else
                    List1.AddItem ("初始化串口成功,串口号:" & icdev)
                End If
            Else
                MsgBox ("读写器通讯错!")
                Unload Me
            End If
        Else
            List1.AddItem ("初始化串口成功,串口号:" & icdev)
        End If
    Else
        MsgBox ("初始化串口错误!")
        Unload Me
    End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Beep
    st = CloseComm(icdev)
End Sub