📄 main.frm
字号:
Width = 210
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "查询次数"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Index = 11
Left = 240
TabIndex = 46
Top = 3645
Width = 840
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "职 称"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Index = 9
Left = 240
TabIndex = 29
Top = 2985
Width = 735
End
Begin VB.Image Image2
Height = 480
Left = 3255
Picture = "Main.frx":43B8
Top = 390
Width = 480
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "部 门"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Index = 3
Left = 240
TabIndex = 10
Top = 2385
Width = 735
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "班 组"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Index = 2
Left = 240
TabIndex = 9
Top = 1785
Width = 735
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "姓 名"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Index = 1
Left = 240
TabIndex = 8
Top = 1185
Width = 735
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "员工证号"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Index = 0
Left = 240
TabIndex = 7
Top = 585
Width = 840
End
End
Begin MSComctlLib.Toolbar Toolbar1
Height = 360
Left = 0
TabIndex = 49
Top = 0
Width = 3135
_ExtentX = 5530
_ExtentY = 635
ButtonWidth = 2408
ButtonHeight = 582
Appearance = 1
Style = 1
TextAlignment = 1
ImageList = "ImageList2"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 4
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "信 息 "
Object.ToolTipText = "添加编辑信息"
ImageIndex = 5
Style = 5
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 2
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "添加"
Text = "添加信息(&T)"
EndProperty
BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "编辑"
Text = "编辑信息(&B)"
EndProperty
EndProperty
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "员工/查询人"
Object.ToolTipText = "添加编辑查询人"
ImageIndex = 6
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.Visible = 0 'False
Caption = "管理员"
Object.ToolTipText = "修改管理员"
EndProperty
EndProperty
BorderStyle = 1
End
Begin MSComctlLib.ImageList ImageList1
Left = 8415
Top = 30
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 2
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Main.frx":4C82
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Main.frx":521C
Key = ""
EndProperty
EndProperty
End
Begin VB.Frame Frame6
BackColor = &H8000000A&
BorderStyle = 0 'None
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 300
Left = 3540
TabIndex = 31
Top = 15
Visible = 0 'False
Width = 1200
Begin VB.CommandButton cmdBackBook
Caption = "还书(&H)"
Height = 255
Left = -240
TabIndex = 43
Top = 4200
Width = 255
End
Begin VB.CommandButton cmdKong
BackColor = &H000080FF&
Caption = "清空(&K)"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = -15
Style = 1 'Graphical
TabIndex = 32
Top = 0
Width = 615
End
Begin VB.CommandButton CmdLogin
BackColor = &H000080FF&
Caption = "登录(&D)"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 570
Style = 1 'Graphical
TabIndex = 0
Top = 0
Width = 615
End
End
Begin MSComctlLib.ImageList ImageList2
Left = 9000
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 6
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Main.frx":57B6
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Main.frx":5D50
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Main.frx":62EA
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Main.frx":6884
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Main.frx":6E1E
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Main.frx":73B8
Key = ""
EndProperty
EndProperty
End
Begin VB.Shape Shape2
BackColor = &H005CE764&
BackStyle = 1 'Opaque
BorderColor = &H00008000&
Height = 360
Left = -30
Top = 0
Width = 75
End
Begin VB.Menu MnuFile
Caption = "控制(&M)"
Begin VB.Menu FenMnu
Caption = "信息分类(&F)"
Shortcut = ^F
End
Begin VB.Menu s5
Caption = "-"
End
Begin VB.Menu AddMnu
Caption = "添加信息(&A)"
Shortcut = ^A
End
Begin VB.Menu EditMnu
Caption = "编辑信息(&E)"
Shortcut = ^E
End
Begin VB.Menu s1
Caption = "-"
End
Begin VB.Menu EditIdMnu
Caption = "编辑查询人(&J)"
Shortcut = ^J
End
Begin VB.Menu s2
Caption = "-"
End
Begin VB.Menu ExitMnu
Caption = "退出(&X)"
End
End
Begin VB.Menu ToolMnu
Caption = "工具(&T)"
Begin VB.Menu LoginMnu
Caption = "登录(&D)"
End
Begin VB.Menu SearchMnu
Caption = "查找(&F)"
End
Begin VB.Menu BackMnu
Caption = "返回(&H)"
End
Begin VB.Menu s3
Caption = "-"
End
Begin VB.Menu MnuOP
Caption = "管理员资料"
Enabled = 0 'False
End
Begin VB.Menu q
Caption = "-"
End
Begin VB.Menu SetMnu
Caption = "参数设置(&S)"
Shortcut = ^S
End
End
Begin VB.Menu HelpMnu
Caption = "帮助(&H)"
Begin VB.Menu AboutMnu
Caption = "关于本软件(&A)"
End
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -