📄 frmmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmmain
BackColor = &H00FFFFFF&
Caption = "实验室设备管理系统"
ClientHeight = 9240
ClientLeft = 675
ClientTop = 975
ClientWidth = 13800
Icon = "frmmain.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
Picture = "frmmain.frx":08CA
ScaleHeight = 9240
ScaleWidth = 13800
StartUpPosition = 2 '屏幕中心
Begin MSComctlLib.ImageList ImageList1
Left = 6840
Top = 120
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 6
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":1194
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":17B9
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":1E05
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":22EF
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":2908
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":2FD8
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 660
Left = 0
TabIndex = 37
Top = 0
Width = 13800
_ExtentX = 24342
_ExtentY = 1164
ButtonWidth = 1032
ButtonHeight = 1005
Appearance = 1
ImageList = "ImageList1"
HotImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 6
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "重新登录系统"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "修改密码"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "关于我们"
ImageIndex = 5
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "帮助"
ImageIndex = 6
EndProperty
EndProperty
End
Begin MSComctlLib.StatusBar StatusBar2
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 33
Top = 8865
Width = 13800
_ExtentX = 24342
_ExtentY = 661
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 2
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 2
Bevel = 0
Object.Width = 3519
MinWidth = 3528
Text = "当前用户："
TextSave = "当前用户："
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 5821
MinWidth = 5821
Text = "登录时间："
TextSave = "登录时间："
EndProperty
EndProperty
OLEDropMode = 1
End
Begin VB.Timer Timer1
Interval = 1
Left = 3240
Top = 960
End
Begin VB.PictureBox Picture1
BackColor = &H00404040&
FillColor = &H00FF0000&
Height = 8415
Left = 0
ScaleHeight = 8355
ScaleWidth = 3075
TabIndex = 0
Top = 600
Width = 3135
Begin VB.PictureBox XPMenu
BackColor = &H00FFFFFF&
Height = 1215
Index = 4
Left = 120
ScaleHeight = 1155
ScaleWidth = 2715
TabIndex = 9
Top = 5640
Width = 2775
Begin MSComctlLib.StatusBar StatusBar1
Height = 30
Left = 2640
TabIndex = 32
Top = 1200
Width = 135
_ExtentX = 238
_ExtentY = 53
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 1
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
EndProperty
End
Begin VB.Label Lab
BackColor = &H00FFFFFF&
Caption = "数据库初始化"
DragIcon = "frmmain.frx":3474
Height = 255
Index = 23
Left = 600
TabIndex = 36
Top = 840
Width = 1335
End
Begin VB.Label Lab
BackColor = &H00FFFFFF&
Caption = "数据库初始化"
DragIcon = "frmmain.frx":3D3E
Height = 255
Index = 22
Left = 600
TabIndex = 35
Top = 480
Width = 1335
End
Begin VB.Label lblHeader
BackColor = &H00FFFFFF&
Caption = "【帮助】"
Height = 255
Index = 4
Left = 120
TabIndex = 29
Top = 120
Width = 1335
End
Begin VB.Image MenuHeader
Height = 375
Index = 4
Left = 0
Top = 0
Width = 2655
End
End
Begin VB.PictureBox XPMenu
BackColor = &H00FFFFFF&
Height = 2415
Index = 3
Left = 120
ScaleHeight = 2355
ScaleWidth = 2715
TabIndex = 7
Top = 3720
Width = 2775
Begin VB.Label Lab
BackColor = &H00FFFFFF&
Caption = "数据库初始化"
DragIcon = "frmmain.frx":4608
Height = 255
Index = 21
Left = 600
TabIndex = 34
Top = 1920
Width = 1335
End
Begin VB.Label Lab
BackColor = &H00FFFFFF&
Caption = "数据库初始化"
DragIcon = "frmmain.frx":4ED2
Height = 255
Index = 20
Left = 600
TabIndex = 31
Top = 1560
Width = 1335
End
Begin VB.Label Lab
BackColor = &H00FFFFFF&
Caption = "数据备份与恢复"
DragIcon = "frmmain.frx":579C
Height = 255
Index = 19
Left = 600
TabIndex = 30
Top = 1200
Width = 1335
End
Begin VB.Label Lab
BackColor = &H00FFFFFF&
Caption = "权限管理"
DragIcon = "frmmain.frx":6066
Height = 255
Index = 18
Left = 600
TabIndex = 28
Top = 840
Width = 1335
End
Begin VB.Label Lab
BackColor = &H00FFFFFF&
Caption = "用户管理"
DragIcon = "frmmain.frx":6930
Height = 255
Index = 17
Left = 600
TabIndex = 27
Top = 480
Width = 1335
End
Begin VB.Label lblHeader
BackColor = &H00FFFFFF&
Caption = "系统管理"
Height = 255
Index = 3
Left = 120
TabIndex = 8
Top = 120
Width = 1455
End
Begin VB.Image MenuHeader
Height = 375
Index = 3
Left = 0
Top = 0
Width = 2775
End
End
Begin VB.PictureBox XPMenu
BackColor = &H00FFFFFF&
Height = 2655
Index = 2
Left = 120
ScaleHeight = 2595
ScaleWidth = 2715
TabIndex = 3
Top = 2160
Width = 2775
Begin VB.Label Lab
BackColor = &H00FFFFFF&
Caption = "设备使用者管理"
DragIcon = "frmmain.frx":71FA
Height = 255
Index = 16
Left = 600
TabIndex = 26
Top = 2280
Width = 1575
End
Begin VB.Label Lab
BackColor = &H00FFFFFF&
Caption = "设备供应商管理"
DragIcon = "frmmain.frx":7AC4
Height = 255
Index = 15
Left = 600
TabIndex = 25
Top = 1920
Width = 1575
End
Begin VB.Label Lab
BackColor = &H00FFFFFF&
Caption = "实验室信息管理"
DragIcon = "frmmain.frx":838E
Height = 255
Index = 14
Left = 600
TabIndex = 24
Top = 1560
Width = 1575
End
Begin VB.Label Lab
BackColor = &H00FFFFFF&
Caption = "实验室管理员管理"
DragIcon = "frmmain.frx":8C58
Height = 255
Index = 13
Left = 600
TabIndex = 23
Top = 1200
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -