📄 frmmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm frmMain
AutoShowChildren= 0 'False
BackColor = &H8000000C&
Caption = "图书管理系统"
ClientHeight = 8055
ClientLeft = 165
ClientTop = 855
ClientWidth = 10575
Icon = "frmMain.frx":0000
LinkTopic = "MDIForm1"
LockControls = -1 'True
Picture = "frmMain.frx":0442
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin MSComctlLib.ImageList ImageList1
Left = 240
Top = 5760
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 45
ImageHeight = 45
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 7
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":4723C
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":48A78
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":4A2B4
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":4BAF0
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":4D32C
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":4D780
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":4EA04
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 1050
Left = 0
TabIndex = 1
Top = 0
Width = 10575
_ExtentX = 18653
_ExtentY = 1852
ButtonWidth = 2090
ButtonHeight = 1693
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 13
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "图书管理(&B)"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "学生管理(&M)"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "借书管理(&I)"
ImageIndex = 3
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "还书管理(&N)"
ImageIndex = 4
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "用户退出"
ImageIndex = 5
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "关闭所有"
ImageIndex = 7
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出系统"
ImageIndex = 6
EndProperty
EndProperty
End
Begin MSComctlLib.StatusBar status
Align = 2 'Align Bottom
Height = 495
Left = 0
TabIndex = 0
Top = 7560
Width = 10575
_ExtentX = 18653
_ExtentY = 873
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 4
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 4410
MinWidth = 4410
Text = "毕业设计人：陶望路"
TextSave = "毕业设计人：陶望路"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
TextSave = "2008-5-8"
Object.ToolTipText = "System Date"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
TextSave = "12:40"
Object.ToolTipText = "System Time"
EndProperty
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 2
Bevel = 0
Object.Width = 11112
MinWidth = 11112
Text = "湖南工学院 计0501班 "
TextSave = "湖南工学院 计0501班 "
EndProperty
EndProperty
MousePointer = 99
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
MouseIcon = "frmMain.frx":4ED20
End
Begin VB.Menu mnuNewEntry
Caption = "添加/编辑(&N)"
Begin VB.Menu mnuAddBookInfo
Caption = "图书信息(&B)"
End
Begin VB.Menu mnuAddPublicationInfo
Caption = "出版社信息(&P)"
End
Begin VB.Menu mnuCategory
Caption = "图书类别信息(&C)"
End
Begin VB.Menu mnuSepBookInfo
Caption = "-"
End
Begin VB.Menu mnuClassInfo
Caption = "班级信息(&A)"
End
Begin VB.Menu mnuSepClass
Caption = "-"
End
Begin VB.Menu mnuAddMemberInfo
Caption = "学生信息(&M)"
End
End
Begin VB.Menu mnuTransaction
Caption = "处理(&T)"
Begin VB.Menu mnuTransIssue
Caption = "借书(&I)"
End
Begin VB.Menu mnuTransReturn
Caption = "还书(&R)"
End
End
Begin VB.Menu mnuSearch
Caption = "查找(&S)"
Begin VB.Menu mnuSearchBookInfo
Caption = "查找图书信息(&B)"
End
Begin VB.Menu mnuSearchMemberInfo
Caption = "查找学生信息(&M)"
End
Begin VB.Menu mnuSearchIssue
Caption = "查找借书信息(&I)"
End
End
Begin VB.Menu mnuReports
Caption = "详细报告(&R)"
Begin VB.Menu mnuRPTIssueDet
Caption = "借书明细(&I)"
End
Begin VB.Menu muRPTStockDet
Caption = "藏书明细(&B)"
End
Begin VB.Menu mnuRPTMemberDet
Caption = "学生明细(&M)"
End
End
Begin VB.Menu mnuSetting
Caption = "设置(&G)"
Begin VB.Menu mnuSettingUser
Caption = "用户信息(&U)"
End
Begin VB.Menu mnuSettingBackup
Caption = "数据库备份(&B)"
End
End
Begin VB.Menu mnuLogoff
Caption = "用户退出(&L)"
End
Begin VB.Menu mnuAboutMe
Caption = "关于(&A)"
End
Begin VB.Menu mnuExit
Caption = "退出系统(&X)"
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'Declarations
'=====================================================
'Code for Opening WebLink
'API Declaration for opening my WebLink on Clicking StatusBar
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -