?? 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 + -