📄 frmmain.frm
字号:
VERSION 5.00
Object = "{C0A63B80-4B21-11D3-BD95-D426EF2C7949}#1.0#0"; "Vsflex7L.ocx"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "tabctl32.ocx"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
Begin VB.Form frmMain
Caption = "RALID-TCP控制器测试工具"
ClientHeight = 6420
ClientLeft = 60
ClientTop = 345
ClientWidth = 7710
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
ScaleHeight = 6420
ScaleWidth = 7710
StartUpPosition = 2 'CenterScreen
Begin VB.TextBox txtCommPwd
Height = 285
Left = 5520
TabIndex = 99
Text = "88888888"
Top = 540
Width = 1575
End
Begin VB.TextBox txtCtrlIP
Height = 285
Left = 5520
TabIndex = 98
Text = "192.168.15.212"
Top = 120
Width = 1575
End
Begin TabDlg.SSTab SSTab1
Height = 5235
Left = 180
TabIndex = 6
Top = 1080
Width = 7485
_ExtentX = 13203
_ExtentY = 9234
_Version = 393216
Style = 1
Tabs = 5
Tab = 3
TabsPerRow = 5
TabHeight = 520
TabCaption(0) = "读卡记录"
TabPicture(0) = "frmMain.frx":C84A
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "Frame1"
Tab(0).ControlCount= 1
TabCaption(1) = "时区权限"
TabPicture(1) = "frmMain.frx":C866
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Frame2"
Tab(1).Control(1)= "Frame5"
Tab(1).ControlCount= 2
TabCaption(2) = "卡片管理"
TabPicture(2) = "frmMain.frx":C882
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Frame7"
Tab(2).ControlCount= 1
TabCaption(3) = "参数设置"
TabPicture(3) = "frmMain.frx":C89E
Tab(3).ControlEnabled= -1 'True
Tab(3).Control(0)= "Frame8"
Tab(3).Control(0).Enabled= 0 'False
Tab(3).Control(1)= "Frame9"
Tab(3).Control(1).Enabled= 0 'False
Tab(3).ControlCount= 2
TabCaption(4) = "读卡器接口"
TabPicture(4) = "frmMain.frx":C8BA
Tab(4).ControlEnabled= 0 'False
Tab(4).Control(0)= "Frame10"
Tab(4).ControlCount= 1
Begin VB.Frame Frame10
Height = 4755
Left = -74880
TabIndex = 89
Top = 360
Width = 7215
Begin VB.CommandButton cmdClearDoorCtrl
Caption = "清空读卡器接口"
Height = 315
Left = 300
TabIndex = 97
Top = 1260
Width = 1635
End
Begin VB.ComboBox cmbDoorAddr5
Height = 315
ItemData = "frmMain.frx":C8D6
Left = 2280
List = "frmMain.frx":C8F2
Style = 2 'Dropdown List
TabIndex = 96
Top = 780
Width = 735
End
Begin VB.CommandButton cmdSearchDC
Caption = "搜索读卡器接口"
Height = 315
Left = 300
TabIndex = 94
Top = 300
Width = 1650
End
Begin VB.CommandButton cmdGetDoorCtrl
Caption = "获取门读卡器接口"
Height = 315
Left = 300
TabIndex = 93
Top = 780
Width = 1650
End
Begin VB.CommandButton cmdSetDoorCtrl
Caption = "设置读卡器接口"
Height = 315
Left = 300
TabIndex = 92
Top = 1740
Width = 1635
End
Begin VB.ComboBox cmbDoorAddr4
Height = 315
ItemData = "frmMain.frx":C90E
Left = 3960
List = "frmMain.frx":C92A
Style = 2 'Dropdown List
TabIndex = 91
Top = 1740
Width = 735
End
Begin VB.TextBox txtDCSN
Height = 315
Left = 3180
TabIndex = 90
Text = "1001"
Top = 1740
Width = 675
End
Begin VB.Label Label13
Caption = "序列号："
Height = 255
Left = 2280
TabIndex = 95
Top = 1800
Width = 795
End
End
Begin VB.Frame Frame9
Height = 1635
Left = 120
TabIndex = 82
Top = 2100
Width = 7215
Begin VB.TextBox txtLATime
Height = 285
Left = 5700
TabIndex = 102
Text = "15"
Top = 300
Width = 435
End
Begin VB.CommandButton cmdLockAssist
Caption = "关闭辅助电锁输出"
Height = 315
Index = 1
Left = 3720
TabIndex = 101
Top = 720
Width = 1815
End
Begin VB.CommandButton cmdLockAssist
Caption = "激活辅助电锁输出"
Height = 315
Index = 0
Left = 3720
TabIndex = 100
Top = 300
Width = 1815
End
Begin VB.CommandButton cmdGetDoorStatus
Caption = "查询门开关状态"
Height = 315
Left = 1500
TabIndex = 86
Top = 1140
Width = 1515
End
Begin VB.CommandButton cmdCloseDoor
Caption = "软件关门"
Height = 315
Left = 1500
TabIndex = 85
Top = 720
Width = 1515
End
Begin VB.ComboBox cmbDoorAddr3
Height = 315
ItemData = "frmMain.frx":C946
Left = 420
List = "frmMain.frx":C962
Style = 2 'Dropdown List
TabIndex = 84
Top = 720
Width = 795
End
Begin VB.CommandButton cmdOpenDoor
Caption = "软件开门"
Height = 315
Left = 1500
TabIndex = 83
Top = 300
Width = 1515
End
Begin VB.Label Label14
AutoSize = -1 'True
Caption = "秒"
Height = 195
Left = 6180
TabIndex = 103
Top = 360
Width = 180
End
End
Begin VB.Frame Frame8
Height = 1635
Left = 120
TabIndex = 74
Top = 360
Width = 7215
Begin VB.CommandButton cmdSetIPAddr
Caption = "设置IP地址"
Height = 315
Left = 180
TabIndex = 81
Top = 1080
Width = 1515
End
Begin VB.TextBox txtIPAddr
Height = 285
Left = 2100
TabIndex = 80
Text = "192.168.15.210"
Top = 1080
Width = 1695
End
Begin VB.TextBox txtRelayTime
Height = 285
Left = 3360
TabIndex = 78
Text = "3"
Top = 660
Width = 435
End
Begin VB.ComboBox cmbDoorAddr2
Height = 315
ItemData = "frmMain.frx":C97E
Left = 2100
List = "frmMain.frx":C99A
Style = 2 'Dropdown List
TabIndex = 77
Top = 660
Width = 795
End
Begin VB.CommandButton cmdSetRelayTime
Caption = "设置开门延时"
Height = 315
Left = 180
TabIndex = 76
Top = 660
Width = 1515
End
Begin VB.CommandButton cmdSetTime
Caption = "同步控制器时间"
Height = 315
Left = 180
TabIndex = 75
Top = 240
Width = 1515
End
Begin VB.Label Label12
AutoSize = -1 'True
Caption = "秒"
Height = 195
Left = 3840
TabIndex = 79
Top = 720
Width = 180
End
End
Begin VB.Frame Frame7
Height = 1755
Left = -74880
TabIndex = 64
Top = 360
Width = 7215
Begin VB.CommandButton cmdSetCard
Caption = "设置"
Height = 315
Left = 5640
TabIndex = 73
Top = 300
Width = 1095
End
Begin VB.CommandButton cmdDelCard
Caption = "删除"
Height = 315
Left = 5640
TabIndex = 72
Top = 780
Width = 1095
End
Begin VB.CommandButton cmdGetCard
Caption = "获取"
Height = 315
Left = 5640
TabIndex = 71
Top = 1260
Width = 1095
End
Begin VB.TextBox txtCardLevelID
Height = 285
Left = 1140
TabIndex = 70
Text = "1"
Top = 1080
Width = 1515
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 315
Left = 1140
TabIndex = 67
Top = 660
Width = 1515
_ExtentX = 2672
_ExtentY = 556
_Version = 393216
Format = 59703297
CurrentDate = 38776
End
Begin VB.TextBox txtCardNumber
Height = 285
Left = 1140
TabIndex = 66
Text = "1235813"
Top = 240
Width = 1515
End
Begin VB.Label Label11
AutoSize = -1 'True
Caption = "权限ID："
Height = 195
Left = 240
TabIndex = 69
Top = 1140
Width = 705
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "失效日期："
Height = 195
Left = 240
TabIndex = 68
Top = 720
Width = 900
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -