📄 frmenroll.frm
字号:
VERSION 5.00
Begin VB.Form frmEnroll
Caption = "Manage Enroll Data"
ClientHeight = 6270
ClientLeft = 3090
ClientTop = 1545
ClientWidth = 7320
Icon = "frmEnroll.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 6270
ScaleWidth = 7320
StartUpPosition = 2 'CenterScreen
Begin VB.Data datEnroll
Caption = "0/0"
Connect = "Access"
DatabaseName = "D:\Prj\BioClock\zkemsdk\Sample\VB\datEnrollDat.mdb"
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 480
Left = 3780
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 1290
Width = 1965
End
Begin VB.CommandButton cmdGetAllEnrollData
Caption = "Get All Enroll Data"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 480
Left = 3780
TabIndex = 16
ToolTipText = "Get All Enroll Data From Device And Save To DataBase"
Top = 2400
Width = 3255
End
Begin VB.CommandButton cmdSetAllEnrollData
Caption = "Set All Enroll Data"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 480
Left = 3780
TabIndex = 15
ToolTipText = "Load All Enroll Data From DataBase And Set To Device"
Top = 3600
Width = 3255
End
Begin VB.CommandButton cmdDel
Caption = "Delete DB"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 480
Left = 5790
TabIndex = 14
ToolTipText = "Delete All Saved Data From DataBase"
Top = 1290
Width = 1245
End
Begin VB.CommandButton cmdClearData
Caption = "Clear All Data"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 480
Left = 3780
TabIndex = 13
ToolTipText = "Clear EnrollData and LogDat Into Device"
Top = 4755
Width = 3255
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 = "frmEnroll.frx":0442
Left = 2400
List = "frmEnroll.frx":0452
TabIndex = 11
Text = "cmbPrivilege"
Top = 2580
Width = 1215
End
Begin VB.CommandButton cmdExit
Caption = "Exit"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 480
Left = 3780
TabIndex = 10
Top = 5340
Width = 3255
End
Begin VB.ListBox lstEnrollData
Height = 1815
Left = 390
TabIndex = 7
Top = 4065
Width = 3240
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 = 2400
MaxLength = 8
TabIndex = 5
Top = 1350
Width = 1215
End
Begin VB.ComboBox cmbBackupNumber
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 = "frmEnroll.frx":0462
Left = 2400
List = "frmEnroll.frx":048D
TabIndex = 3
Text = "cmbBackupNumber"
Top = 2010
Width = 1215
End
Begin VB.CommandButton cmdDeleteEnrollData
Caption = "Delete Enroll Data"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 480
Left = 3780
TabIndex = 2
ToolTipText = "Delete Enroll Data Into Device"
Top = 4200
Width = 3255
End
Begin VB.CommandButton cmdSetEnrollData
Caption = "Set Enroll Data"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 480
Left = 3780
TabIndex = 1
ToolTipText = "Set Enroll Data To Device"
Top = 3015
Width = 3255
End
Begin VB.CommandButton cmdGetEnrollData
Caption = "Get Enroll Data"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 480
Left = 3780
TabIndex = 0
ToolTipText = "Get Enroll Data From Device"
Top = 1845
Width = 3255
End
Begin VB.Label Label2
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 = 2295
TabIndex = 17
Top = 3720
Width = 630
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 = 375
TabIndex = 12
Top = 2640
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 = 495
Left = 330
TabIndex = 9
Top = 390
Width = 6675
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 = 375
TabIndex = 8
Top = 3720
Width = 1125
End
Begin VB.Label lblBackupNumber
AutoSize = -1 'True
Caption = "Backup 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 = 375
TabIndex = 6
Top = 2040
Width = 1620
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 = 375
TabIndex = 4
Top = 1410
Width = 1440
End
End
Attribute VB_Name = "frmEnroll"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Const DATASIZE = 459
Public gGetState As Boolean
Dim glngEnrollData(DATASIZE) As Long
Dim glngEnrollPData As Integer
Dim gbytEnrollData(DATASIZE * 5) As Byte
Dim vEMachineNumber As Integer
Private Sub cmdClearData_Click()
Dim vRet As Boolean
Dim vErrorCode As Long
Dim lngReturnCode As Boolean
Dim lngErrorCode As Long
Dim par1 As Long
Dim lpszIPAddress As String
lblMessage.Caption = "Working..."
DoEvents
vRet = frmMain.CZKEM1.ClearKeeperData(frmMain.vMachineNumber)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -