📄 mainform.frm
字号:
VERSION 5.00
Begin VB.Form Form1
Caption = "das"
ClientHeight = 5595
ClientLeft = 60
ClientTop = 345
ClientWidth = 6630
LinkTopic = "Form1"
ScaleHeight = 5595
ScaleWidth = 6630
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton Command1
Caption = "Command1"
Height = 495
Left = 5040
TabIndex = 8
Top = 3960
Width = 1095
End
Begin VB.CommandButton cmdsys
Caption = "初始系统"
Height = 375
Left = 5040
TabIndex = 7
Top = 720
Width = 975
End
Begin VB.CommandButton cmdmj
Caption = "门禁用卡"
Height = 420
Left = 5040
TabIndex = 6
Top = 1320
Width = 975
End
Begin VB.CommandButton cmdxf
Caption = "消费用卡"
Height = 375
Left = 5040
TabIndex = 5
Top = 1960
Width = 975
End
Begin VB.CommandButton cmdadd
Caption = "补消费卡"
Height = 375
Left = 5040
TabIndex = 4
Top = 2625
Width = 975
End
Begin VB.CommandButton cmdopt
Caption = "操作员卡"
Height = 375
Left = 5040
TabIndex = 3
Top = 3255
Width = 975
End
Begin VB.CommandButton cmdexit
Caption = "退出系统"
Height = 375
Left = 5040
TabIndex = 2
Top = 4800
Width = 975
End
Begin VB.ListBox List1
BackColor = &H80000018&
Height = 4350
Left = 120
TabIndex = 0
Top = 720
Width = 4815
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "发卡接口函数例程"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1800
TabIndex = 1
Top = 240
Width = 2655
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim namename As String * 30
Private Sub cmdadd_Click()
Dim serno As Long
Dim cardno(0 To 11) As Byte
Dim usertype As Long
Dim value As Long
Dim count As Long
Dim cardserno As Long
Dim cardtype As Long
Dim opt_num As Long
Dim i As Integer
Beep
List1.Clear
serno = 1
usertype = 1
value = 10
count = 0
st = Init_Pos_UserCard_N(icdev, serno, "0000000001", usertype, value, count, 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)
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_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 cmdexit_Click()
Unload Me
End Sub
Private Sub cmdmj_Click()
List1.Clear
Dim serno As Long
Dim cardno As Long
Dim usertype As Long
Dim cardserno As Long
Dim cardtype As Long
Beep
serno = 1
cardno = 100
usertype = 1
st = Init_Access_UserCard(icdev, serno, cardno, usertype, 20, cardserno)
Select Case st
Case 0: List1.AddItem ("初始化门禁考勤用户卡成功,ID号:" & cardserno)
Case -4: List1.AddItem ("初始化门禁考勤用户卡失败:没有门禁系统授权信息")
Case -5: List1.AddItem ("初始化门禁考勤用户卡失败:参数错")
Case -7: List1.AddItem ("初始化门禁考勤用户卡失败:找不到卡")
Case -8: List1.AddItem ("初始化门禁考勤用户卡失败:找不到门禁授权卡")
Case -10: 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_Access_Card(icdev, cardtype, serno, cardno, cardserno, usertype, 20)
Select Case st
Case 0: List1.AddItem ("门禁考勤机使用卡查询成功,ID号:" & cardserno)
Case -4: List1.AddItem ("门禁考勤机使用卡查询失败:没有门禁系统授权信息")
Case -5: List1.AddItem ("门禁考勤机使用卡查询失败:参数错")
Case -7: List1.AddItem ("门禁考勤机使用卡查询失败:找不到卡")
Case -8: 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 = Init_Access_UserCard_UsePassword(icdev, cardserno, 20)
Select Case st
Case 0: List1.AddItem ("初始化用户密码成功!")
Case -4: List1.AddItem ("初始化用户密码失败:没有门禁系统授权信息")
Case -5: List1.AddItem ("初始化用户密码失败:参数错")
Case -7: List1.AddItem ("初始化用户密码失败:找不到卡")
Case -8: 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_Access_UserCard(icdev, cardserno, 20)
Select Case st
Case 0: List1.AddItem ("回收门禁考勤机用户卡成功!")
Case -4: List1.AddItem ("回收门禁考勤机用户卡失败:没有门禁系统授权信息")
Case -5: List1.AddItem ("回收门禁考勤机用户卡失败:参数错")
Case -7: List1.AddItem ("回收门禁考勤机用户卡失败:找不到卡")
Case -8: List1.AddItem ("回收门禁考勤机用户卡失败:找不到门禁授权卡")
Case -11: List1.AddItem ("回收门禁考勤机用户卡失败:用户卡错误")
Case -12: List1.AddItem ("回收门禁考勤机用户卡失败:读卡错")
Case -13: List1.AddItem ("回收门禁考勤机用户卡失败:写卡错")
Case -15: List1.AddItem ("回收门禁考勤机用户卡失败:不可识别的卡")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -