📄 frmmain.frm
字号:
Height = 195
Index = 4
Left = 180
TabIndex = 25
Top = 1200
Value = 1 'Checked
Width = 1155
End
Begin VB.CheckBox chkWeekDay
Caption = "星期三"
Height = 195
Index = 3
Left = 180
TabIndex = 24
Top = 960
Value = 1 'Checked
Width = 1155
End
Begin VB.CheckBox chkWeekDay
Caption = "星期二"
Height = 195
Index = 2
Left = 180
TabIndex = 23
Top = 720
Value = 1 'Checked
Width = 1155
End
Begin VB.CheckBox chkWeekDay
Caption = "星期一"
Height = 195
Index = 1
Left = 180
TabIndex = 22
Top = 480
Value = 1 'Checked
Width = 1155
End
Begin VB.CheckBox chkWeekDay
Caption = "星期日"
Height = 195
Index = 0
Left = 180
TabIndex = 21
Top = 240
Width = 1155
End
End
Begin MSComCtl2.DTPicker dtpStartTime
Height = 315
Left = 180
TabIndex = 17
Top = 960
Width = 1935
_ExtentX = 3413
_ExtentY = 556
_Version = 393216
CustomFormat = "yyyy-MM-dd HH:mm:ss"
Format = 59703299
CurrentDate = 38776.3333333333
End
Begin VB.TextBox txtTimezoneID
Height = 285
Left = 900
TabIndex = 14
Text = "1"
Top = 300
Width = 795
End
Begin MSComCtl2.DTPicker dtpEndTime
Height = 315
Left = 180
TabIndex = 18
Top = 1620
Width = 1935
_ExtentX = 3413
_ExtentY = 556
_Version = 393216
CustomFormat = "yyyy-MM-dd HH:mm:ss"
Format = 59703299
CurrentDate = 38776.8333333333
End
Begin VB.Label Label5
Caption = "结束时间："
Height = 195
Left = 180
TabIndex = 19
Top = 1380
Width = 975
End
Begin VB.Label Label4
Caption = "开始时间："
Height = 195
Left = 180
TabIndex = 16
Top = 720
Width = 975
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "时区ID"
Height = 195
Left = 180
TabIndex = 15
Top = 360
Width = 525
End
End
Begin VB.Frame Frame1
Height = 4695
Left = -74880
TabIndex = 7
Top = 420
Width = 7215
Begin VB.CheckBox chkEnableTimer
Caption = "实时收集读卡记录"
Height = 195
Left = 120
TabIndex = 88
Top = 4380
Width = 2295
End
Begin VB.Timer tmrGetEvent
Enabled = 0 'False
Interval = 300
Left = 3120
Top = 4140
End
Begin VB.CommandButton cmdGetEvents
Caption = "获取读卡记录"
Height = 315
Left = 120
TabIndex = 11
Top = 300
Width = 1575
End
Begin VB.TextBox txtEventCount
Height = 315
Left = 2640
TabIndex = 10
Text = "100"
Top = 300
Width = 675
End
Begin VB.CheckBox chkMovePointer
Caption = "获取读卡记录后自动移动指针"
Height = 255
Left = 3540
TabIndex = 8
Top = 360
Width = 3135
End
Begin VSFlex7LCtl.VSFlexGrid vsGrid
Height = 3615
Left = 120
TabIndex = 9
Top = 720
Width = 6975
_cx = 12303
_cy = 6376
_ConvInfo = 1
Appearance = 1
BorderStyle = 1
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
MousePointer = 0
BackColor = -2147483643
ForeColor = -2147483640
BackColorFixed = -2147483633
ForeColorFixed = -2147483630
BackColorSel = -2147483635
ForeColorSel = -2147483634
BackColorBkg = -2147483636
BackColorAlternate= -2147483643
GridColor = -2147483633
GridColorFixed = -2147483632
TreeColor = -2147483632
FloodColor = 192
SheetBorder = -2147483642
FocusRect = 1
HighLight = 1
AllowSelection = -1 'True
AllowBigSelection= -1 'True
AllowUserResizing= 0
SelectionMode = 0
GridLines = 1
GridLinesFixed = 2
GridLineWidth = 1
Rows = 1
Cols = 6
FixedRows = 1
FixedCols = 0
RowHeightMin = 0
RowHeightMax = 0
ColWidthMin = 0
ColWidthMax = 0
ExtendLastCol = 0 'False
FormatString = $"frmMain.frx":C9EE
ScrollTrack = 0 'False
ScrollBars = 3
ScrollTips = 0 'False
MergeCells = 0
MergeCompare = 0
AutoResize = -1 'True
AutoSizeMode = 0
AutoSearch = 0
AutoSearchDelay = 2
MultiTotals = -1 'True
SubtotalPosition= 1
OutlineBar = 0
OutlineCol = 0
Ellipsis = 0
ExplorerBar = 0
PicturesOver = 0 'False
FillStyle = 0
RightToLeft = 0 'False
PictureType = 0
TabBehavior = 0
OwnerDraw = 0
Editable = 0
ShowComboButton = -1 'True
WordWrap = 0 'False
TextStyle = 0
TextStyleFixed = 0
OleDragMode = 0
OleDropMode = 0
ComboSearch = 3
AutoSizeMouse = -1 'True
FrozenRows = 0
FrozenCols = 0
AllowUserFreezing= 0
BackColorFrozen = 0
ForeColorFrozen = 0
WallPaperAlignment= 9
End
Begin VB.Label lbReceivedEvent
AutoSize = -1 'True
Caption = "收到0条读卡记录"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 180
Left = 5400
TabIndex = 87
Top = 4380
Width = 1470
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "数量："
Height = 195
Index = 0
Left = 2100
TabIndex = 12
Top = 360
Width = 540
End
End
End
Begin VB.CommandButton cmdGetEventServer
Caption = "获取控制器参数"
Height = 315
Left = 1740
TabIndex = 4
Top = 600
Width = 1650
End
Begin VB.CommandButton cmdConnectServer
Caption = "连接门禁控制器"
Height = 315
Left = 180
TabIndex = 1
Top = 600
Width = 1470
End
Begin VB.CommandButton cmdSearchIP
Caption = "搜索门禁控制器"
Height = 315
Left = 180
TabIndex = 0
Top = 120
Width = 1470
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "未连接"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 195
Left = 2340
TabIndex = 5
Top = 180
Width = 585
End
Begin VB.Label lbComPwd
AutoSize = -1 'True
Caption = "通讯密码："
Height = 195
Left = 4140
TabIndex = 3
Top = 600
Width = 900
End
Begin VB.Label lbServerIP
AutoSize = -1 'True
Caption = "控制器IP地址："
Height = 195
Left = 4140
TabIndex = 2
Top = 180
Width = 1230
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim nIP As Long
Dim nCommPwd As Long
Private Sub chkEnableTimer_Click()
If Me.chkEnableTimer.Value = 1 Then
Me.tmrGetEvent.Enabled = True
Else
Me.tmrGetEvent.Enabled = False
End If
End Sub
Private Sub cmdClearDoorCtrl_Click()
Dim intret As Integer
intret = M8_ClearDoorCtrl(nIP)
If intret = -1 Then
MsgBox "成功清空"
Else
MsgBox "失败，返回：" & CStr(intret), vbCritical
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -