📄 frmmain.vb
字号:
'
Me.MenuItem1.Index = 0
Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.muiLockSystem, Me.MenuItem3, Me.muiChangeUser, Me.muiBackup, Me.MenuItem6, Me.muiExitSystem})
Me.MenuItem1.Text = "用户功能(&S)"
'
'muiLockSystem
'
Me.muiLockSystem.Index = 0
Me.muiLockSystem.Shortcut = System.Windows.Forms.Shortcut.CtrlL
Me.muiLockSystem.Text = "锁定系统(L)"
'
'MenuItem3
'
Me.MenuItem3.Index = 1
Me.MenuItem3.Text = "-"
'
'muiChangeUser
'
Me.muiChangeUser.Index = 2
Me.muiChangeUser.Text = "切换用户(&C)"
'
'muiBackup
'
Me.muiBackup.Index = 3
Me.muiBackup.Text = "数据备份(&B)"
'
'MenuItem6
'
Me.MenuItem6.Index = 4
Me.MenuItem6.Text = "-"
'
'muiExitSystem
'
Me.muiExitSystem.Index = 5
Me.muiExitSystem.Text = "退出(&X)"
'
'MenuItem8
'
Me.MenuItem8.Index = 1
Me.MenuItem8.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.muiBorrowBook, Me.muiReturnBook, Me.MenuItem11, Me.muiAuLost})
Me.MenuItem8.Text = "事务处理(&M)"
'
'muiBorrowBook
'
Me.muiBorrowBook.Index = 0
Me.muiBorrowBook.Shortcut = System.Windows.Forms.Shortcut.CtrlShiftB
Me.muiBorrowBook.Text = "借书管理(&B)..."
'
'muiReturnBook
'
Me.muiReturnBook.Index = 1
Me.muiReturnBook.Shortcut = System.Windows.Forms.Shortcut.CtrlShiftR
Me.muiReturnBook.Text = "还书管理(&R)..."
'
'MenuItem11
'
Me.MenuItem11.Index = 2
Me.MenuItem11.Text = "-"
'
'muiAuLost
'
Me.muiAuLost.Index = 3
Me.muiAuLost.Text = "图书证挂失处理(&L)..."
'
'muiDataManage
'
Me.muiDataManage.Index = 2
Me.muiDataManage.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.muiBookManage, Me.muiAuManage})
Me.muiDataManage.Text = "数据管理(&D)"
'
'muiBookManage
'
Me.muiBookManage.Index = 0
Me.muiBookManage.Text = "图书管理(&B)..."
'
'muiAuManage
'
Me.muiAuManage.Index = 1
Me.muiAuManage.Text = "读者管理(&R)..."
'
'MenuItem16
'
Me.MenuItem16.Index = 3
Me.MenuItem16.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.muiBookQuery, Me.muiAuQuery, Me.MenuItem19, Me.muiAuAllBorrowList, Me.MenuItem23, Me.muiAuMaxDateList, Me.MenuItem20, Me.muiTop10book, Me.MenuItem24, Me.muiCountBookSort})
Me.MenuItem16.Text = "查询统计(&Q)"
'
'muiBookQuery
'
Me.muiBookQuery.Index = 0
Me.muiBookQuery.Text = "图书综合查询(&B)..."
'
'muiAuQuery
'
Me.muiAuQuery.Index = 1
Me.muiAuQuery.Text = "读者综合查询(&R)..."
'
'MenuItem19
'
Me.MenuItem19.Index = 2
Me.MenuItem19.Text = "-"
'
'muiAuAllBorrowList
'
Me.muiAuAllBorrowList.Index = 3
Me.muiAuAllBorrowList.Text = "读者借阅记录查询(&Q)..."
'
'MenuItem23
'
Me.MenuItem23.Index = 4
Me.MenuItem23.Text = "-"
'
'muiAuMaxDateList
'
Me.muiAuMaxDateList.Index = 5
Me.muiAuMaxDateList.Text = "超期读者一览表(&M)"
'
'MenuItem20
'
Me.MenuItem20.Index = 6
Me.MenuItem20.Text = "-"
'
'muiTop10book
'
Me.muiTop10book.Index = 7
Me.muiTop10book.Text = "借阅次数最多10本书"
'
'MenuItem21
'
Me.MenuItem21.Index = 4
Me.MenuItem21.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.muiLibInfo, Me.MenuItem7, Me.muiBookSort, Me.muiBookPlace, Me.MenuItem13, Me.muiAuSort, Me.MenuItem15, Me.muiforfeitSet, Me.MenuItem2, Me.muiSetConnection})
Me.MenuItem21.Text = "系统设置(&S)"
'
'muiLibInfo
'
Me.muiLibInfo.Index = 0
Me.muiLibInfo.Text = "本馆信息设置(&L)"
'
'MenuItem7
'
Me.MenuItem7.Index = 1
Me.MenuItem7.Text = "-"
'
'muiBookSort
'
Me.muiBookSort.Index = 2
Me.muiBookSort.Text = "图书分类设定(&S)"
'
'muiBookPlace
'
Me.muiBookPlace.Index = 3
Me.muiBookPlace.Text = "图书存放位置(&P)"
'
'MenuItem13
'
Me.MenuItem13.Index = 4
Me.MenuItem13.Text = "-"
'
'muiAuSort
'
Me.muiAuSort.Index = 5
Me.muiAuSort.Text = "读者分类设定(&R)"
'
'MenuItem15
'
Me.MenuItem15.Index = 6
Me.MenuItem15.Text = "-"
'
'muiforfeitSet
'
Me.muiforfeitSet.Index = 7
Me.muiforfeitSet.Text = "超期罚款设定(&M)"
'
'MenuItem2
'
Me.MenuItem2.Index = 8
Me.MenuItem2.Text = "-"
'
'muiSetConnection
'
Me.muiSetConnection.Index = 9
Me.muiSetConnection.Text = "数据服务器设置(&D)"
'
'MenuItem22
'
Me.MenuItem22.Index = 5
Me.MenuItem22.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.muiHelp, Me.MenuItem4, Me.MenuItem5, Me.MenuItem9, Me.MenuItem10, Me.muiAboutUs})
Me.MenuItem22.Text = "帮助(&H)"
'
'muiHelp
'
Me.muiHelp.Index = 0
Me.muiHelp.Shortcut = System.Windows.Forms.Shortcut.CtrlF1
Me.muiHelp.Text = "目录(&C)"
'
'MenuItem4
'
Me.MenuItem4.Index = 1
Me.MenuItem4.Text = "-"
'
'MenuItem5
'
Me.MenuItem5.Index = 2
Me.MenuItem5.Text = "检查更新(&K)"
'
'MenuItem9
'
Me.MenuItem9.Index = 3
Me.MenuItem9.Text = "技术支持(T)"
'
'MenuItem10
'
Me.MenuItem10.Index = 4
Me.MenuItem10.Text = "-"
'
'muiAboutUs
'
Me.muiAboutUs.Index = 5
Me.muiAboutUs.Text = "关于 图书馆管理信息系统(&A)..."
'
'Panel1
'
Me.Panel1.Controls.Add(Me.ToolBar1)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(804, 56)
Me.Panel1.TabIndex = 1
'
'ToolBar1
'
Me.ToolBar1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.ToolBar1.Appearance = System.Windows.Forms.ToolBarAppearance.Flat
Me.ToolBar1.AutoSize = False
Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.tline1, Me.tbtnExitSystem, Me.TbtnLockSystem, Me.tline2, Me.tbtnBorrowBook, Me.tbtnReturnBook, Me.tbtnAuLost, Me.tline3, Me.tbtnBookManage, Me.tbtnAuManage, Me.tline4, Me.tbtnQuery, Me.tbtnSystemSet, Me.tline5, Me.tbtnHelp, Me.tbtnContactUs})
Me.ToolBar1.ButtonSize = New System.Drawing.Size(60, 50)
Me.ToolBar1.Dock = System.Windows.Forms.DockStyle.None
Me.ToolBar1.DropDownArrows = True
Me.ToolBar1.ImageList = Me.ImageList1
Me.ToolBar1.Location = New System.Drawing.Point(0, 0)
Me.ToolBar1.Name = "ToolBar1"
Me.ToolBar1.ShowToolTips = True
Me.ToolBar1.Size = New System.Drawing.Size(804, 56)
Me.ToolBar1.TabIndex = 2
'
'tline1
'
Me.tline1.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
'
'tbtnExitSystem
'
Me.tbtnExitSystem.ImageIndex = 10
Me.tbtnExitSystem.Text = "退出"
'
'TbtnLockSystem
'
Me.TbtnLockSystem.ImageIndex = 12
Me.TbtnLockSystem.Text = "锁定系统"
Me.TbtnLockSystem.ToolTipText = "暂时离开时将系统锁定,以防其它人员修改!"
'
'tline2
'
Me.tline2.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
'
'tbtnBorrowBook
'
Me.tbtnBorrowBook.ImageIndex = 0
Me.tbtnBorrowBook.Text = "借书"
'
'tbtnReturnBook
'
Me.tbtnReturnBook.ImageIndex = 13
Me.tbtnReturnBook.Text = "还书"
'
'tbtnAuLost
'
Me.tbtnAuLost.ImageIndex = 7
Me.tbtnAuLost.Text = "证件挂失"
'
'tline3
'
Me.tline3.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
'
'tbtnBookManage
'
Me.tbtnBookManage.ImageIndex = 1
Me.tbtnBookManage.Text = "图书管理"
'
'tbtnAuManage
'
Me.tbtnAuManage.ImageIndex = 11
Me.tbtnAuManage.Text = "读者管理"
'
'tline4
'
Me.tline4.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
Me.tline4.Text = "line"
'
'tbtnQuery
'
Me.tbtnQuery.DropDownMenu = Me.ctmQuery
Me.tbtnQuery.ImageIndex = 15
Me.tbtnQuery.Style = System.Windows.Forms.ToolBarButtonStyle.DropDownButton
Me.tbtnQuery.Text = "查询统计"
'
'tbtnSystemSet
'
Me.tbtnSystemSet.DropDownMenu = Me.ContextMenu1
Me.tbtnSystemSet.ImageIndex = 17
Me.tbtnSystemSet.Style = System.Windows.Forms.ToolBarButtonStyle.DropDownButton
Me.tbtnSystemSet.Text = "系统设置"
'
'tline5
'
Me.tline5.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
'
'tbtnHelp
'
Me.tbtnHelp.ImageIndex = 14
Me.tbtnHelp.Text = "帮助"
'
'tbtnContactUs
'
Me.tbtnContactUs.ImageIndex = 16
Me.tbtnContactUs.Text = "联系我们"
Me.tbtnContactUs.Visible = False
'
'MenuItem24
'
Me.MenuItem24.Index = 8
Me.MenuItem24.Text = "-"
'
'muiCountBookSort
'
Me.muiCountBookSort.Index = 9
Me.muiCountBookSort.Text = "图书馆书籍分类统计"
'
'MenuItem26
'
Me.MenuItem26.Index = 8
Me.MenuItem26.Text = "-"
'
'muiCCountBookSort
'
Me.muiCCountBookSort.Index = 9
Me.muiCCountBookSort.Text = "图书馆书籍分类统计"
'
'frmMain
'
Me.AutoScale = False
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.ClientSize = New System.Drawing.Size(804, 493)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.StatusBar1)
Me.Menu = Me.MainMenu1
Me.Name = "frmMain"
Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "图书馆管理信息系统.net版"
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
CType(Me.sbpUser, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.sbpdate, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.sbp, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.sbpAuthorInfo, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
Me.ResumeLayout(False)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -