📄 frmmain.frm
字号:
Begin VB.CommandButton cmdDelClocktime
Caption = "删除"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1200
TabIndex = 162
Top = 2280
Width = 975
End
Begin VB.CommandButton cmdAddClocktime
Caption = "添加"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 161
Top = 2280
Width = 975
End
Begin MSComctlLib.ListView lvClockTime
Height = 1905
Left = 105
TabIndex = 160
Top = 270
Width = 3255
_ExtentX = 5741
_ExtentY = 3360
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = 0 'False
FullRowSelect = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 0
End
Begin VB.CheckBox ckUseClockTime
Caption = "使用考勤时段"
Height = 255
Left = 240
TabIndex = 159
Top = 0
Value = 1 'Checked
Width = 1575
End
End
Begin VB.Frame Frame6
Caption = "打卡间隔"
Height = 1455
Left = 3705
TabIndex = 151
Top = 510
Width = 3495
Begin VB.TextBox txtRepeattime
Height = 285
Left = 1170
TabIndex = 155
Text = "0"
Top = 915
Width = 1575
End
Begin VB.TextBox txtCardinterval
Height = 285
Left = 1170
TabIndex = 154
Text = "0"
Top = 435
Width = 1575
End
Begin VB.Label Label32
Caption = "分钟"
Height = 255
Left = 2880
TabIndex = 157
Top = 960
Width = 495
End
Begin VB.Label Label31
Caption = "秒"
Height = 255
Left = 2880
TabIndex = 156
Top = 480
Width = 375
End
Begin VB.Label Label30
AutoSize = -1 'True
Caption = "重复刷卡"
Height = 195
Left = 240
TabIndex = 153
Top = 960
Width = 720
End
Begin VB.Label Label29
Caption = "自由刷卡"
Height = 255
Left = 240
TabIndex = 152
Top = 480
Width = 855
End
End
Begin VB.Frame frm
Caption = "卡号长度"
Height = 1455
Left = 105
TabIndex = 106
Top = 510
Width = 3495
Begin VB.TextBox txtDatalen
Height = 285
Left = 1200
TabIndex = 110
Top = 960
Width = 1335
End
Begin VB.TextBox txtDisplen
Height = 285
Left = 1200
TabIndex = 109
Top = 480
Width = 1335
End
Begin VB.Label Label25
Caption = "数据长度"
Height = 255
Left = 360
TabIndex = 108
Top = 960
Width = 855
End
Begin VB.Label Label24
Caption = "显示长度"
Height = 375
Left = 360
TabIndex = 107
Top = 480
Width = 855
End
End
Begin VB.Frame FramGroup
Height = 2415
Left = -74760
TabIndex = 92
Top = 600
Width = 6255
Begin VB.CheckBox cbGroupUsed
Caption = "使用分组打卡功能"
Height = 360
Left = 135
TabIndex = 97
Top = -60
Width = 2040
End
Begin VB.TextBox txtGroupPara
Height = 310
Left = 240
TabIndex = 96
Text = "0-255"
Top = 720
Width = 3135
End
Begin VB.ComboBox cbGroupByte
Height = 315
ItemData = "frmMain.frx":01F2
Left = 240
List = "frmMain.frx":0229
TabIndex = 95
Top = 1680
Width = 1815
End
Begin VB.OptionButton OpOToM
Caption = "一对多分组打卡功能"
Height = 255
Left = 3720
TabIndex = 94
Top = 720
Value = -1 'True
Width = 2415
End
Begin VB.OptionButton OpMtoM
Caption = "多对多分组打卡功能"
Height = 255
Left = 3720
TabIndex = 93
Top = 1200
Width = 2295
End
Begin VB.Label Label23
Caption = "分组参数："
Height = 255
Left = 240
TabIndex = 99
Top = 480
Width = 975
End
Begin VB.Label Label2
Caption = "分组识别字节位置："
Height = 255
Index = 1
Left = 240
TabIndex = 98
Top = 1440
Width = 1695
End
End
Begin VB.Frame Frame11
Caption = "外设接口"
Height = 1575
Left = -71520
TabIndex = 86
Top = 3240
Width = 3855
Begin VB.OptionButton op7
Caption = "外接继电器等效於正错指示灯"
Height = 255
Left = 240
TabIndex = 89
Top = 1080
Width = 3495
End
Begin VB.OptionButton op6
Caption = "电锁外接继2,报警外接继1"
Height = 255
Left = 240
TabIndex = 88
Top = 720
Width = 3495
End
Begin VB.OptionButton op5
Caption = "电锁外接继1,报警外接继2"
Height = 255
Left = 240
TabIndex = 87
Top = 360
Width = 3495
End
End
Begin VB.Frame Frame9
Caption = "打铃设置"
Height = 1575
Left = -74880
TabIndex = 85
Top = 3240
Width = 3255
Begin VB.OptionButton op1
Caption = "无铃声"
Height = 255
Left = 105
TabIndex = 103
Top = 285
Width = 2295
End
Begin VB.OptionButton op2
Caption = "内置蜂鸣器打铃"
Height = 300
Left = 105
TabIndex = 102
Top = 570
Width = 2655
End
Begin VB.OptionButton op3
Caption = "继电器1外接电铃"
Height = 375
Left = 105
TabIndex = 101
Top = 795
Width = 2535
End
Begin VB.OptionButton op4
Caption = "继电器2外接电铃"
Height = 255
Left = 105
TabIndex = 100
Top = 1155
Width = 2655
End
End
Begin VB.Frame Frame10
Caption = "考勤机设置"
Height = 1815
Left = -71520
TabIndex = 80
Top = 1320
Width = 3855
Begin VB.CheckBox ckex5
Caption = "非刷卡时段存储数据"
Height = 195
Left = 255
TabIndex = 104
Top = 1380
Width = 2655
End
Begin VB.CheckBox ckex8
Caption = "重复刷卡限制（重复刷卡间隔）"
Height = 210
Left = 255
TabIndex = 84
Top = 1125
Width = 3495
End
Begin VB.CheckBox ckex7
Caption = "打卡数据满时允许打卡"
Height = 255
Left = 255
TabIndex = 83
Top = 825
Width = 2415
End
Begin VB.CheckBox ckex6
Caption = "考勤模式检查黑名单"
Height = 255
Left = 255
TabIndex = 82
Top = 540
Width = 2655
End
Begin VB.CheckBox ckex4
Caption = "考勤模式检查白名单"
Height = 225
Left = 255
TabIndex = 81
Top = 285
Width = 2775
End
End
Begin VB.Frame Frame8
Caption = "门禁设置"
Height = 1815
Left = -74880
TabIndex = 73
Top = 1320
Width = 3255
Begin VB.CheckBox ckex9
Caption = "门禁机执行反潜回功能"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -