📄 frmcancelic.frm
字号:
Caption = "卡号"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 4800
TabIndex = 22
Top = 1200
Width = 615
End
Begin VB.Label LblICtype
Caption = "卡型"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 600
TabIndex = 21
Top = 1080
Width = 615
End
Begin VB.Label Label6
Caption = "发行人"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 720
TabIndex = 20
Top = 4800
Width = 855
End
Begin VB.Label Label7
Caption = "发行时间"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 4440
TabIndex = 19
Top = 4800
Width = 975
End
Begin VB.Label Label5
Caption = "楼层"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 4920
TabIndex = 18
Top = 3840
Width = 615
End
Begin VB.Label Label3
Caption = "房间号"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 720
TabIndex = 17
Top = 4320
Width = 855
End
Begin VB.Label LblBuildingNumber
Caption = "楼号"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 720
TabIndex = 16
Top = 3840
Width = 615
End
Begin VB.Label Label8
Caption = "区域"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 4920
TabIndex = 15
Top = 4320
Width = 495
End
Begin VB.Label LblHeader
Alignment = 2 'Center
Caption = "注销各种卡"
BeginProperty Font
Name = "隶书"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 2160
TabIndex = 30
Top = 120
Width = 4095
End
End
Attribute VB_Name = "FrmCancelIC"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim sICType As String
Sub Init_Win(pReadCancel As String) '注销和读卡共用
If StrComp(pReadCancel, "Cancel", vbTextCompare) = 0 Then
CmdAccept.Visible = True
Caption = "注销各类卡"
Else
CmdAccept.Visible = False
Caption = "读取各类卡"
End If
LblHeader.Caption = Caption
End Sub
Private Sub CmdAccept_Click()
Timer1.Enabled = False
CmdAccept.Enabled = False
If CancelIC Then 'write卡注销成功
gICProperty.ICNumber = TxtICNumber.Text
gICProperty.CancelReason = "有卡注销"
gICProperty.OperatorCancel = gUserName
gICProperty.CancelSDate = "" & Year(Date) & "年" & Right("00" & Month(Date), 2) & "月" & Right("00" & Day(Date), 2) & "日" & _
Right("00" & Hour(Time), 2) & ":" & Right("00" & Minute(Time), 2) & ":" & Right("00" & Second(Time), 2)
If ICCardCancel(sICType) Then
Call RC_EventLog_Add("注销" & TxtICType & TxtICNumber.Text, gUserName, "")
End If
sTmp = "注销成功！"
Else
sTmp = "注销失败！"
End If
PicMSG.Cls
PicMSG.Print sTmp
CmdAccept.Enabled = True
Timer1.Enabled = True
End Sub
Private Sub CmdCancel_Click()
Unload Me
End Sub
Private Sub Timer1_Timer()
Dim sTmp As String
Dim iTmp As Integer
Dim bReturn As Byte
PicMSG.Cls
II = FrmMain.MSCommIC.Input 'clear read data
FrmMain.MSCommIC.Output = Chr(&HA) + Chr(&HC) + Chr(&HF)
bReturn = DelaySecond(DelaySecondConst + 1) '延时间
If bReturn <> 0 Then
Select Case bReturn
Case &H1C
sTmp = "新卡"
TxtICNumber.Text = ""
Case &H1D
sTmp = "非法卡,请插卡"
TxtICNumber.Text = ""
Case &H1E
sTmp = "卡损坏,请插卡"
TxtICNumber.Text = ""
Case &H1F
sTmp = "无卡,请插卡"
TxtICNumber.Text = ""
Case &H1, &H2, &H3, &H4, &H5, &H6, &H7, &H8, &H9, &HA, &HB, &HC, &HD
sICType = CodeToIC((bReturn))
If (sICType = "客人卡") Or (sICType = "采集卡") Then
sTmp = sICType & ",此处不可以用！"
Else
iTmp = gReceiveBuffer.SendBuffer_Array(3) + gReceiveBuffer.SendBuffer_Array(2) * 256
TxtICNumber.Text = Right("00000000" & iTmp, 6)
sTmp = sICType
End If
Case Else
sTmp = "无卡,请插卡！"
TxtICNumber.Text = ""
End Select
Else
sTmp = "无卡,请插卡！"
End If
PicMSG.Cls
PicMSG.Print sTmp
End Sub
Function CancelIC() As Boolean
Dim i As Integer
Dim sTmp As String
Dim bReturn As Byte
Timer1.Enabled = False
CancelIC = False
'获得发送信息,写入gSendBuffer内
'0AH+0EH+旧密码（6）+新密码（6）+0CH
gSendBuffer.SendBuffer_Array(0) = &HA
gSendBuffer.SendBuffer_Array(1) = &HE
gSendBuffer.SendBuffer_Array(2) = &HF
gSendBuffer.ArrayLen = 3
II = FrmMain.MSCommIC.Input
For i = 0 To gSendBuffer.ArrayLen - 1
' DelayTimeMills (1)
FrmMain.MSCommIC.Output = Chr(gSendBuffer.SendBuffer_Array(i))
Next
bReturn = DelaySecond(DelaySecondConst * 4) '延时间
If bReturn <> 0 Then
If bReturn = &H55 Then 'return 55H success
CancelIC = True
Else
CancelIC = False
End If
End If
Timer1.Enabled = True
End Function
Private Sub TxtICNumber_Change()
Dim sTmp As String
If Val(TxtICNumber.Text) = 0 Then
CmdAccept.Enabled = False
ClearICMSG
Else
CmdAccept.Enabled = True
' If ICHavePutOut(TxtICNumber.Text) Then '该已经IC发行True
sTmp = GetICMSG(TxtICNumber.Text)
' CmdAccept.SetFocus
' End If
End If
End Sub
'******************************
' 功能：获得各种IC卡信息，
' 编者：韩国栋
' 时间：2000-03-02
' 参数：pICTypeName 确定发送哪种卡
'******************************
Sub ClearICMSG()
TxtICType = ""
TxtValidBeginDate = ""
TxtValidEndDate = ""
TxtValidBeginTime1 = ""
TxtValidEndTime1 = ""
TxtValidBeginTime2 = ""
TxtValidEndTime2 = ""
TxtValidBeginTime3 = ""
TxtValidEndTime3 = ""
TxtBuildingNumber = ""
TxtFloorNumber = ""
TxtRoomNumber = ""
TxtSectNumber = ""
TxtOperatorOut = ""
TxtPutoutSDate = ""
TxtName.Text = ""
TxtIDCard.Text = ""
TxtAccount.Text = ""
TxtRemark.Text = ""
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -