⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 frmmain.vb

📁 The Management Information System of Library using .NET
💻 VB
📖 第 1 页 / 共 3 页
字号:
        '
        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 + -