📄 frmuserinfo.frm
字号:
VERSION 5.00
Begin VB.Form frmUserInfo
Caption = "Serial Number"
ClientHeight = 5220
ClientLeft = 5010
ClientTop = 3120
ClientWidth = 7560
Icon = "frmUserInfo.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 5220
ScaleWidth = 7560
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton cmdSetUserInfo
Caption = "Set User Info"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 4920
TabIndex = 13
Top = 1920
Width = 2160
End
Begin VB.CommandButton cmdGetAllUserInfo
Caption = "Get all User Info"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 4920
TabIndex = 12
Top = 2760
Width = 2160
End
Begin VB.CommandButton cmdGetUserInfo
Caption = "Get User Info"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 4920
TabIndex = 11
Top = 960
Width = 2160
End
Begin VB.ListBox lstEnrollData
Height = 1815
Left = 855
TabIndex = 8
Top = 2985
Width = 3240
End
Begin VB.TextBox txtUserName
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 2745
MaxLength = 8
TabIndex = 6
Top = 1440
Width = 1215
End
Begin VB.TextBox txtEnrollNumber
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 2745
MaxLength = 8
TabIndex = 3
Text = "113"
Top = 840
Width = 1215
End
Begin VB.ComboBox cmbPrivilege
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 1
EndProperty
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
ItemData = "frmUserInfo.frx":0442
Left = 2745
List = "frmUserInfo.frx":0452
TabIndex = 2
Text = "0"
Top = 2070
Width = 1215
End
Begin VB.CommandButton cmdExit
Caption = "Exit"
Default = -1 'True
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 4920
TabIndex = 0
Top = 3720
Width = 2160
End
Begin VB.Label lblEnrollData
AutoSize = -1 'True
Caption = "Enroll Data :"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 840
TabIndex = 10
Top = 2640
Width = 1125
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "Total : "
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 2760
TabIndex = 9
Top = 2640
Width = 630
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "User Name:"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 720
TabIndex = 7
Top = 1500
Width = 1095
End
Begin VB.Label lblEnrollNum
AutoSize = -1 'True
Caption = "Enroll Number :"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 720
TabIndex = 5
Top = 900
Width = 1440
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "Privilege :"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 720
TabIndex = 4
Top = 2130
Width = 870
End
Begin VB.Label lblMessage
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "Message"
BeginProperty Font
Name = "Times New Roman"
Size = 14.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 240
TabIndex = 1
Top = 240
Width = 5895
End
End
Attribute VB_Name = "frmUserInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim vEMachineNumber As Integer
Private Sub cmdExit_Click()
Unload Me
frmMain.Visible = True
End Sub
Private Sub cmdGetAllUserInfo_Click()
Dim vEnrollNumber As Integer
Dim vFingerNumber As Integer
Dim vPrivilege As Integer
Dim vUserName As String
Dim vPassword As String
Dim vEnable As Integer
Dim vRet As Boolean
Dim vFlag As Boolean
Dim vErrorCode As Long
Dim i As Long
lblEnrollData = "User IDs"
lstEnrollData.Clear
lblMessage.Caption = "Working..."
DoEvents
vRet = frmMain.CZKEM1.ReadAllUserID(frmMain.vMachineNumber)
If vRet Then
lblMessage.Caption = "ReadAllUserID OK"
Else
frmMain.CZKEM1.GetLastError vErrorCode
lblMessage.Caption = ErrorPrint(vErrorCode)
Exit Sub
End If
'------ Show all enroll information ----------
vFlag = False
i = 1
lstEnrollData.AddItem ("No. EnNo Name Priv Enable")
Do
vRet = frmMain.CZKEM1.GetAllUserID(frmMain.vMachineNumber, _
vEnrollNumber, _
vEMachineNumber, _
vFingerNumber, _
vPrivilege, _
vEnable)
If (vRet = False) Then Exit Do
'MsgBox CStr(vEnrollNumber)
vFlag = True
vRet = frmMain.CZKEM1.GetUserInfo(frmMain.vMachineNumber, vEnrollNumber, vUserName, vPassword, vPrivilege, vEnable)
If (vRet = False) Then Exit Do
'MsgBox vUserName
lstEnrollData.AddItem (Format(i, "00#") & " " & _
Format(vEnrollNumber, "000#") & " " & _
vUserName & _
CStr(vPrivilege) & " " & _
CStr(vEnable))
i = i + 1
Label2.Caption = "Total : " & i
Loop
If vFlag = True Then
lblMessage.Caption = "GetAllUserID OK"
Else
lblMessage.Caption = ErrorPrint(vErrorCode)
End If
End Sub
Private Sub cmdGetUserInfo_Click()
Dim vEnrollNumber As Integer
Dim vPrivilege As Integer
Dim vEnabled As Boolean
Dim vRet As Boolean
Dim vErrorCode As Long
Dim vUserName As String
Dim vPassword As String
vEnrollNumber = CInt(txtEnrollNumber.Text)
vRet = frmMain.CZKEM1.GetUserInfo(frmMain.vMachineNumber, vEnrollNumber, vUserName, vPassword, vPrivilege, vEnabled)
If vRet Then
txtUserName.Text = vUserName
cmbPrivilege.Text = CStr(vPrivilege)
lblMessage.Caption = "GetUserInfo OK"
Else
frmMain.CZKEM1.GetLastError vErrorCode
lblMessage.Caption = ErrorPrint(vErrorCode)
End If
End Sub
Private Sub cmdSetUserInfo_Click()
Dim vEnrollNumber As Integer
Dim vPrivilege As Integer
Dim vEnabled As Boolean
Dim vRet As Boolean
Dim vErrorCode As Long
Dim vUserName As String
Dim vPassword As String
vEnrollNumber = CInt(txtEnrollNumber.Text)
vPrivilege = CInt(cmbPrivilege.Text)
vUserName = txtUserName.Text
vPassword = "f123" 'This is only for demo
vEnabled = True
vRet = frmMain.CZKEM1.SetUserInfo(frmMain.vMachineNumber, vEnrollNumber, CStr(vUserName), CStr(vPassword), vPrivilege, CBool(vEnabled))
If vRet Then
txtUserName.Text = vUserName
cmbPrivilege.Text = CStr(vPrivilege)
lblMessage.Caption = "SetUserInfo OK"
Else
frmMain.CZKEM1.GetLastError vErrorCode
lblMessage.Caption = ErrorPrint(vErrorCode)
End If
End Sub
Private Sub Form_Load()
vEMachineNumber = frmMain.vMachineNumber
End Sub
Private Sub Form_Unload(Cancel As Integer)
Unload Me
frmMain.Visible = True
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -