📄 frmmain.frm
字号:
VERSION 5.00
Object = "{FE9DED34-E159-408E-8490-B720A5E632C7}#1.0#0"; "zkemkeeper.dll"
Begin VB.Form frmMain
Caption = "Main Menu"
ClientHeight = 5010
ClientLeft = 4830
ClientTop = 3150
ClientWidth = 7710
FillColor = &H008080FF&
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 5010
ScaleWidth = 7710
StartUpPosition = 2 'CenterScreen
Begin VB.Frame Frame1
Caption = "Management Group"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3960
Left = 3990
TabIndex = 11
Top = 840
Width = 3600
Begin VB.CommandButton cmdConnect
Caption = "Connect"
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 = 480
Left = 240
TabIndex = 22
Top = 360
Width = 3045
End
Begin VB.CommandButton cmdProuctCode
Caption = "User Info Management"
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 = 240
TabIndex = 16
Top = 2160
Width = 3045
End
Begin VB.CommandButton cmdEnrollData
Caption = "Enroll Data Management"
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 = 255
TabIndex = 15
Top = 960
Width = 3045
End
Begin VB.CommandButton cmdLogData
Caption = "Log Data Management"
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 = 255
TabIndex = 14
Top = 1530
Width = 3045
End
Begin VB.CommandButton cmdSystemInfo
Caption = "System Info Management"
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 = 255
TabIndex = 13
Top = 2760
Width = 3045
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 = 255
TabIndex = 12
Top = 3345
Width = 3045
End
End
Begin VB.OptionButton optNetworkDevice
Caption = "Network Device"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 252
Left = 405
TabIndex = 2
Top = 3195
Width = 2205
End
Begin VB.OptionButton optSerialDevice
Caption = "Serial Device"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 252
Left = 420
TabIndex = 1
Top = 870
Value = -1 'True
Width = 2085
End
Begin VB.Frame Frame3
Caption = " "
Height = 2010
Left = 240
TabIndex = 3
Top = 900
Width = 3660
Begin VB.ComboBox cmbBaudRate
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 = "frmMain.frx":0442
Left = 1785
List = "frmMain.frx":044F
TabIndex = 20
Text = "115200"
Top = 1440
Width = 1695
End
Begin VB.ComboBox cmbMachineNum
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 = "frmMain.frx":0468
Left = 1785
List = "frmMain.frx":0484
TabIndex = 18
Text = "1"
Top = 840
Width = 1695
End
Begin VB.ComboBox cmbComPort
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 = "frmMain.frx":04A0
Left = 1800
List = "frmMain.frx":04BC
TabIndex = 4
Text = "4"
Top = 285
Width = 1695
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Baud Rate: "
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 = 660
TabIndex = 21
Top = 1500
Width = 1065
End
Begin VB.Label Label1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -