📄 icmainform.frm
字号:
VERSION 5.00
Begin VB.Form ICMainForm
Caption = "IC卡综合应用实验"
ClientHeight = 4320
ClientLeft = 60
ClientTop = 450
ClientWidth = 4560
LinkTopic = "Form1"
ScaleHeight = 4320
ScaleWidth = 4560
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton dataBaseTest
Caption = "数据库测试"
Height = 375
Left = 3240
TabIndex = 16
Top = 240
Width = 1095
End
Begin VB.CommandButton gradeManage
Caption = "卡片管理"
Height = 375
Left = 2280
TabIndex = 15
Top = 3720
Width = 975
End
Begin VB.CommandButton gradeSerch
Caption = "卡片查询"
Height = 375
Left = 1200
TabIndex = 14
Top = 3720
Width = 975
End
Begin VB.CommandButton provideCard
Caption = "卡片发行"
Height = 375
Left = 120
TabIndex = 13
Top = 3720
Width = 975
End
Begin VB.CommandButton keyAuth
Caption = "密码认证"
Height = 375
Left = 1200
TabIndex = 12
Top = 3240
Width = 975
End
Begin VB.CommandButton loadKey
Caption = "密码下载"
Height = 375
Left = 120
TabIndex = 11
Top = 3240
Width = 975
End
Begin VB.CommandButton activeCard
Caption = "激活卡"
Height = 375
Left = 3360
TabIndex = 10
Top = 2760
Width = 975
End
Begin VB.CommandButton callCard
Caption = "呼叫卡"
Height = 375
Left = 2280
TabIndex = 9
Top = 2760
Width = 975
End
Begin VB.CommandButton readCardNo
Caption = "读卡号"
Height = 375
Left = 1200
TabIndex = 8
Top = 2760
Width = 975
End
Begin VB.CommandButton clearScr
Caption = "清屏"
Height = 375
Left = 2280
TabIndex = 7
Top = 2280
Width = 975
End
Begin VB.CommandButton quit
Caption = "退出"
Height = 375
Left = 3360
TabIndex = 6
Top = 2280
Width = 975
End
Begin VB.CommandButton moduleNo
Caption = "读模块号"
Height = 375
Left = 120
TabIndex = 5
Top = 2760
Width = 975
End
Begin VB.CommandButton disconnect
Caption = "断开连接"
Height = 375
Left = 1200
TabIndex = 4
Top = 2280
Width = 975
End
Begin VB.CommandButton connect
Caption = "建立连接"
Height = 375
Left = 120
TabIndex = 3
Top = 2280
Width = 975
End
Begin VB.ListBox Listbox
Height = 1320
Left = 120
TabIndex = 2
Top = 840
Width = 4215
End
Begin VB.Frame Frame1
Caption = "卡片序列号"
Height = 615
Left = 120
TabIndex = 0
Top = 120
Width = 2775
Begin VB.Label cardNo
Caption = "Label1"
Height = 255
Left = 240
TabIndex = 1
Top = 240
Width = 2295
End
End
End
Attribute VB_Name = "ICMainForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'C:\Program Files\Common Files\System\ado\msado15.dll
Private Sub activeCard_Click()
status = RFMifare_Select(cdsnr)
Listbox.AddItem " "
If status = 0 Then
Listbox.AddItem "卡片激活成功！"
Else
Listbox.AddItem "卡片激活失败！"
End If
End Sub
Private Sub callCard_Click()
'callMode.Show 1
ans = 1
ycallmode = 1
If ans = 0 Then
Listbox.AddItem "请重新输入命令！"
Exit Sub
End If
If ycallmode = 2 Then
Listbox.Clear
Listbox.AddItem "呼叫操作取消！"
Exit Sub
End If
status = RFMifare_Request(ycallmode, cdtype)
Listbox.Clear
Listbox.AddItem " "
If status = 0 Then
If cdtype = 4 Then
Listbox.AddItem "呼叫成功！"
End If
Else
Listbox.AddItem "呼叫失败！"
End If
End Sub
Private Sub clearScr_Click()
Listbox.Clear
End Sub
Private Sub connect_Click()
Dim Port As Long
Dim mcmno As Long
'Grade表
'字段：cardNumber,studentsNumber,studentName,value
Set cnGrade = New ADODB.Connection
Set rsGrade = New ADODB.Recordset
cnGrade.ConnectionString = "provider=Microsoft.jet.OLEDB.4.0;data source=" & App.Path & "\database.mdb"
cnGrade.Open
rsGrade.Open "select * from grade ", cnGrade, , adLockPessimistic
status = AutoLinkCom(Port)
Listbox.AddItem " "
If status = 0 Then
status = RFMifare_Mcmno(mcmno)
If mcmno = 17 Then
Listbox.AddItem "连接成功!"
'driver.enable = True
'连接成功，按钮可用
'Cnt.Enabled = False
'ReadVer.Enabled = True
'Discnt.Enabled = True
'ClearScreen.Enabled = True
'Discnt.Enabled = True
'LightCtl.Enabled = True
'callCard.Enabled = True
'readCardNo.Enabled = True
'activeCard.Enabled = True
'downloadPwd.Enabled = True
'pwdAuth.Enabled = True
'readData.Enabled = True
'writeData.Enabled = True
Else
Listbox.AddItem "请重新连接!"
End If
Else
Listbox.AddItem "通信口连接失败!"
End If
End Sub
Private Sub dataBaseTest_Click()
Set cnGrade = New ADODB.Connection
Set rsGrade = New ADODB.Recordset
cnGrade.ConnectionString = "provider=Microsoft.jet.OLEDB.4.0;data source=" & App.Path & "\database.mdb"
cnGrade.Open
rsGrade.Open "select * from grade ", cnGrade, , adLockPessimistic
rsGrade.MoveFirst
Do While Not rsGrade.EOF
Listbox.AddItem rsGrade.Fields("cardNumber")
rsGrade.MoveNext
Loop
test.Show 1
End Sub
Private Sub disconnect_Click()
status = UnLinkCom()
If status = 0 Then
Listbox.Clear
Listbox.AddItem " "
Listbox.AddItem "断开连接成功!"
'Cnt.Enabled = True
'ReadVer.Enabled = False
'Discnt.Enabled = False
'ClearScreen.Enabled = False
'Discnt.Enabled = False
'LightCtl.Enabled = False
'callCard.Enabled = False
'readCardNo.Enabled = False
'activeCard.Enabled = False
'downloadPwd.Enabled = False
'pwdAuth.Enabled = False
'readData.Enabled = False
'writeData.Enabled = False
Else
Listbox.Clear
Listbox.AddItem " "
Listbox.AddItem "断开连接失败!"
End If
Set rsGrade = Nothing
Set cnGrade = Nothing
rsGrade.Close
cnGrade.Close
End Sub
Private Sub gradeManage_Click()
guanli.Show 1
End Sub
Private Sub gradeSerch_Click()
chaxun.Show 1
End Sub
Private Sub keyAuth_Click()
Dim mode As Long
Dim sector As Long
Dim blockno As Long
mimaflag = 0
If cdtype = 4 Then
mimaflag = 0
'mima.Show 1
ans = 1: datasector = 15: mimanum = 0
cdpage = datasector
mode = mimanum * 4
If mimanum = 2 Then
Listbox.Clear
Listbox.AddItem "密码输入错误！"
Exit Sub
End If
blockno = (datasector + 1) * 4 - 1
status = RFMifare_Authentication(mode, cdpage, blockno)
End If
Listbox.Clear
Listbox.AddItem " "
If status = 0 Then
Listbox.AddItem "密码认证通过！"
Else
Listbox.AddItem "密码认证未通过！"
End If
End Sub
Private Sub loadKey_Click()
Dim Ymima(6) As Byte
Dim mode As Long
If cdtype = 4 Then
mimaflag = 1
'mima.Show 1
mimanum = 0
ans = 1
If ans = 0 Then
Listbox.AddItem "请重新输入命令！"
Exit Sub
End If
cdpage = 15
mode = mimanum * 4
For i = 0 To 5
Ymima(i) = Val("&h" + Mid("ffffffffffff", i * 2 + 1, 2))
Next i
status = RFMifare_LoadKey(mode, cdpage, Ymima(0))
Listbox.Clear
Listbox.AddItem " "
If status = 0 Then
Listbox.AddItem "密码传送成功！"
Listbox.AddItem ""
Else
Listbox.AddItem "密码传送失败！"
End If
End If
End Sub
Private Sub moduleNo_Click()
Dim mcmver(20) As Byte
Dim temp As String
Dim i As Byte
status = DEVVER(mcmver(0))
If status = 0 Then
Listbox.Clear
Listbox.AddItem " "
Listbox.AddItem "读控制软件版本号成功!"
temp = " "
For i = 0 To 7
temp = temp + Hex(mcmver(i))
Next
Listbox.AddItem temp
Else
Listbox.AddItem " "
Listbox.AddItem "读控制软件版本号失败!"
End If
End Sub
Private Sub provideCard_Click()
faka.Show 1
End Sub
Private Sub quit_Click()
On Error Resume Next
status = UnLinkCom()
Set rsGrade = Nothing
Set cnGrade = Nothing
rsGrade.Close
cnGrade.Close
End
End Sub
Private Sub readCardNo_Click()
Dim temp As String
'Dim j As Integer
Listbox.Clear
Listbox.AddItem " "
status = RFMifare_AntiColl(cdsnr)
If status = 0 Then
Listbox.AddItem "卡片序列号读取成功！"
temp = "000000" + Hex(cdsnr)
cardNo.Caption = Mid(temp, Len(temp) - 7, 8)
Else
Listbox.AddItem "序列号读取失败！"
cardNo.Caption = ""
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -