📄 frmmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmMain
Caption = "主窗口"
ClientHeight = 6285
ClientLeft = 60
ClientTop = 345
ClientWidth = 7575
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 6285
ScaleWidth = 7575
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton cmdSet
Caption = "设置(&S)"
Height = 375
Left = 5760
TabIndex = 91
Top = 5640
Visible = 0 'False
Width = 1095
End
Begin VB.CommandButton cmdRead
Caption = "读取(&R)"
Height = 375
Left = 4560
TabIndex = 90
Top = 5640
Visible = 0 'False
Width = 1095
End
Begin TabDlg.SSTab stbP
Height = 5475
Left = 0
TabIndex = 1
Top = 60
Width = 8655
_ExtentX = 15266
_ExtentY = 9657
_Version = 393216
Style = 1
Tabs = 9
TabsPerRow = 9
TabHeight = 520
ForeColor = -2147483640
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TabCaption(0) = "基本操作"
TabPicture(0) = "frmMain.frx":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Label1"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "cbCardStyle"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "BtnReadTime"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "btnSetTime"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "btnSetMangCard"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "btnSetClockId"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "btnSetClockmark"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "btnBaudrate"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "btnSetPsw"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).Control(9)= "btnReadRecord"
Tab(0).Control(9).Enabled= 0 'False
Tab(0).Control(10)= "btnClearData"
Tab(0).Control(10).Enabled= 0 'False
Tab(0).Control(11)= "lvClocks"
Tab(0).Control(11).Enabled= 0 'False
Tab(0).Control(12)= "cmdVer"
Tab(0).Control(12).Enabled= 0 'False
Tab(0).ControlCount= 13
TabCaption(1) = "设备管理"
TabPicture(1) = "frmMain.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Frame15"
Tab(1).Control(1)= "btnadd"
Tab(1).Control(2)= "btndel"
Tab(1).Control(3)= "cmdsave"
Tab(1).Control(4)= "lvDev"
Tab(1).ControlCount= 5
TabCaption(2) = "IC 读写"
TabPicture(2) = "frmMain.frx":0038
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Frame1"
Tab(2).Control(1)= "Frame14"
Tab(2).Control(2)= "Frame3"
Tab(2).ControlCount= 3
TabCaption(3) = "名单管理"
TabPicture(3) = "frmMain.frx":0054
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "Label9(0)"
Tab(3).Control(1)= "Label12"
Tab(3).Control(2)= "lb"
Tab(3).Control(3)= "cbListKind"
Tab(3).Control(4)= "lvList"
Tab(3).Control(5)= "cmdAdd"
Tab(3).Control(6)= "cmdDel"
Tab(3).Control(7)= "cmdReaddev"
Tab(3).Control(8)= "cmdWritedev"
Tab(3).Control(9)= "cmdClearAll"
Tab(3).ControlCount= 10
TabCaption(4) = "实时控制"
TabPicture(4) = "frmMain.frx":0070
Tab(4).ControlEnabled= 0 'False
Tab(4).Control(0)= "Frame2"
Tab(4).Control(1)= "Frame4"
Tab(4).Control(2)= "Frame5"
Tab(4).ControlCount= 3
TabCaption(5) = "机器设置"
TabPicture(5) = "frmMain.frx":008C
Tab(5).ControlEnabled= 0 'False
Tab(5).Control(0)= "SSTab1"
Tab(5).ControlCount= 1
TabCaption(6) = "批量发卡"
TabPicture(6) = "frmMain.frx":00A8
Tab(6).ControlEnabled= 0 'False
Tab(6).Control(0)= "txtGroupid"
Tab(6).Control(1)= "txtCardmoney"
Tab(6).Control(2)= "cmdStartMake"
Tab(6).Control(3)= "cmdNomake"
Tab(6).Control(4)= "cmdMake"
Tab(6).Control(5)= "lvMake"
Tab(6).Control(6)= "lvCardlist"
Tab(6).Control(7)= "cbCardLen2"
Tab(6).Control(8)= "Label28"
Tab(6).Control(9)= "Label27"
Tab(6).Control(10)= "Label10(1)"
Tab(6).ControlCount= 11
TabCaption(7) = "门禁时段"
TabPicture(7) = "frmMain.frx":00C4
Tab(7).ControlEnabled= 0 'False
Tab(7).Control(0)= "ckSave"
Tab(7).Control(1)= "cmdSaveperiods"
Tab(7).Control(2)= "CmdWritePeriods"
Tab(7).Control(3)= "CmdClearPeriods"
Tab(7).Control(4)= "CmdDeletePeriods"
Tab(7).Control(5)= "CmdAddPeriods"
Tab(7).Control(6)= "lvDoorPeriods"
Tab(7).Control(7)= "cbPeriodKind"
Tab(7).Control(8)= "Label33"
Tab(7).ControlCount= 9
TabCaption(8) = "关于"
TabPicture(8) = "frmMain.frx":00E0
Tab(8).ControlEnabled= 0 'False
Tab(8).Control(0)= "Label11"
Tab(8).Control(1)= "lbPublish"
Tab(8).Control(2)= "Label22"
Tab(8).ControlCount= 3
Begin VB.CheckBox ckSave
Caption = "自动保存配置文件"
Height = 255
Left = -72720
TabIndex = 181
Top = 720
Value = 1 'Checked
Width = 2055
End
Begin VB.CommandButton cmdSaveperiods
Caption = "写文件"
Height = 375
Left = -68460
TabIndex = 180
Top = 4800
Width = 855
End
Begin VB.CommandButton CmdWritePeriods
Caption = "写设备"
Height = 375
Left = -72015
TabIndex = 179
Top = 4800
Width = 855
End
Begin VB.CommandButton CmdClearPeriods
Caption = "清除"
Height = 375
Left = -72960
TabIndex = 178
Top = 4800
Width = 855
End
Begin VB.CommandButton CmdDeletePeriods
Caption = "删除"
Height = 375
Left = -73920
TabIndex = 177
Top = 4800
Width = 855
End
Begin VB.CommandButton CmdAddPeriods
Caption = "添加"
Height = 375
Left = -74865
TabIndex = 176
Top = 4800
Width = 855
End
Begin MSComctlLib.ListView lvDoorPeriods
Height = 3495
Left = -74880
TabIndex = 175
Top = 1080
Width = 7335
_ExtentX = 12938
_ExtentY = 6165
View = 3
Arrange = 1
LabelEdit = 1
Sorted = -1 'True
MultiSelect = -1 'True
LabelWrap = -1 'True
HideSelection = 0 'False
FullRowSelect = -1 'True
_Version = 393217
SmallIcons = "ImageList1"
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 0
End
Begin VB.ComboBox cbPeriodKind
Height = 300
ItemData = "frmMain.frx":00FC
Left = -74880
List = "frmMain.frx":0112
Style = 2 'Dropdown List
TabIndex = 174
Top = 720
Width = 1935
End
Begin VB.TextBox txtGroupid
Height = 345
Left = -68520
TabIndex = 148
Text = "0"
Top = 420
Width = 975
End
Begin VB.TextBox txtCardmoney
Height = 345
Left = -70185
TabIndex = 147
Text = "0"
Top = 420
Width = 1125
End
Begin VB.CommandButton cmdStartMake
Caption = "开始批量发卡"
Height = 375
Left = -70920
TabIndex = 144
Top = 840
Width = 1695
End
Begin VB.CommandButton cmdNomake
Caption = "<-"
Height = 375
Left = -71520
TabIndex = 143
Top = 2940
Width = 375
End
Begin VB.CommandButton cmdMake
Caption = "->"
Height = 375
Left = -71520
TabIndex = 142
Top = 2220
Width = 375
End
Begin MSComctlLib.ListView lvMake
Height = 3765
Left = -70920
TabIndex = 141
Top = 1320
Width = 3270
_ExtentX = 5768
_ExtentY = 6641
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 MSComctlLib.ListView lvCardlist
Height = 4260
Left = -74895
TabIndex = 140
Top = 840
Width = 3180
_ExtentX = 5609
_ExtentY = 7514
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.ComboBox cbCardLen2
Height = 315
ItemData = "frmMain.frx":016C
Left = -73920
List = "frmMain.frx":0176
Style = 2 'Dropdown List
TabIndex = 139
Top = 420
Width = 1935
End
Begin VB.Frame Frame5
Caption = "实时监控"
Height = 2295
Left = -72240
TabIndex = 134
Top = 480
Width = 4455
Begin VB.TextBox txtKeyboard
BackColor = &H8000000F&
Height = 375
Left = 360
TabIndex = 150
Top = 1320
Width = 1695
End
Begin VB.CheckBox ckKeyboard
Caption = "按键"
Height = 255
Left = 360
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -