📄 main.vb
字号:
'
'MenuItem20
'
Me.MenuItem20.Index = 1
Me.MenuItem20.Text = "-"
'
'mniSetupBookType
'
Me.mniSetupBookType.Index = 2
Me.mniSetupBookType.Text = "图书类别设置"
'
'mniSetupReaderType
'
Me.mniSetupReaderType.Index = 3
Me.mniSetupReaderType.Text = "读者类别设置"
'
'mniBookPlace
'
Me.mniBookPlace.Index = 4
Me.mniBookPlace.Text = "图书存放位置"
'
'MenuItem24
'
Me.MenuItem24.Index = 5
Me.MenuItem24.Text = "-"
'
'mniSetupPenalty
'
Me.mniSetupPenalty.Index = 6
Me.mniSetupPenalty.Text = "罚款设置"
'
'mniHelp
'
Me.mniHelp.Index = 4
Me.mniHelp.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mniInsturction, Me.MenuItem28, Me.mniAbout})
Me.mniHelp.Text = "帮助"
'
'mniInsturction
'
Me.mniInsturction.Index = 0
Me.mniInsturction.Text = "使用说明"
'
'MenuItem28
'
Me.MenuItem28.Index = 1
Me.MenuItem28.Text = "-"
'
'mniAbout
'
Me.mniAbout.Index = 2
Me.mniAbout.Text = "关于"
'
'tbrMain
'
Me.tbrMain.Appearance = System.Windows.Forms.ToolBarAppearance.Flat
Me.tbrMain.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.tbrMain.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.tbbBorrow, Me.tbbReturn, Me.tbbBookManage, Me.tbbReaderManage, Me.tbbQuery, Me.tbbCount, Me.tbbModifyPassword, Me.tbbAbout, Me.tbbExit})
Me.tbrMain.DropDownArrows = True
Me.HelpProvider1.SetHelpKeyword(Me.tbrMain, "借书/还书")
Me.HelpProvider1.SetHelpNavigator(Me.tbrMain, System.Windows.Forms.HelpNavigator.TableOfContents)
Me.tbrMain.ImageList = Me.ImageList1
Me.tbrMain.Location = New System.Drawing.Point(0, 0)
Me.tbrMain.Name = "tbrMain"
Me.HelpProvider1.SetShowHelp(Me.tbrMain, True)
Me.tbrMain.ShowToolTips = True
Me.tbrMain.Size = New System.Drawing.Size(752, 67)
Me.tbrMain.TabIndex = 0
'
'tbbBorrow
'
Me.tbbBorrow.Text = "借书"
'
'tbbReturn
'
Me.tbbReturn.Text = "还书"
'
'tbbBookManage
'
Me.tbbBookManage.ImageIndex = 1
Me.tbbBookManage.Text = "图书管理"
'
'tbbReaderManage
'
Me.tbbReaderManage.Text = "读者管理"
'
'tbbQuery
'
Me.tbbQuery.DropDownMenu = Me.ctxQuery
Me.tbbQuery.Style = System.Windows.Forms.ToolBarButtonStyle.DropDownButton
Me.tbbQuery.Text = "查询"
'
'ctxQuery
'
Me.ctxQuery.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mniAllBooks, Me.mniLendedBook, Me.mniLendBookToday, Me.mniReturnedBookToday, Me.mniAddedBookToday, Me.MenuItem30, Me.mniAllReaders, Me.mniBorrowedReaderToday, Me.mniReturnedReaderToday, Me.mniAddedReaderToday, Me.mniDelayedReader})
'
'mniAllBooks
'
Me.mniAllBooks.Index = 0
Me.mniAllBooks.Text = "所有图书"
'
'mniLendedBook
'
Me.mniLendedBook.Index = 1
Me.mniLendedBook.Text = "所有借出图书"
'
'mniLendBookToday
'
Me.mniLendBookToday.Index = 2
Me.mniLendBookToday.Text = "今日借出图书"
'
'mniReturnedBookToday
'
Me.mniReturnedBookToday.Index = 3
Me.mniReturnedBookToday.Text = "今日归还图书"
'
'mniAddedBookToday
'
Me.mniAddedBookToday.Index = 4
Me.mniAddedBookToday.Text = "今日新进图书"
'
'MenuItem30
'
Me.MenuItem30.Index = 5
Me.MenuItem30.Text = "-"
'
'mniAllReaders
'
Me.mniAllReaders.Index = 6
Me.mniAllReaders.Text = "所有读者"
'
'mniBorrowedReaderToday
'
Me.mniBorrowedReaderToday.Index = 7
Me.mniBorrowedReaderToday.Text = "今日借书读者"
'
'mniReturnedReaderToday
'
Me.mniReturnedReaderToday.Index = 8
Me.mniReturnedReaderToday.Text = "今日还书读者"
'
'mniAddedReaderToday
'
Me.mniAddedReaderToday.Index = 9
Me.mniAddedReaderToday.Text = "今日新增读者"
'
'mniDelayedReader
'
Me.mniDelayedReader.Index = 10
Me.mniDelayedReader.Text = "过期未还读者"
'
'tbbCount
'
Me.tbbCount.Text = "统计排名"
'
'tbbModifyPassword
'
Me.tbbModifyPassword.Text = "修改密码"
'
'tbbAbout
'
Me.tbbAbout.ImageIndex = 2
Me.tbbAbout.Text = "帮助"
'
'tbbExit
'
Me.tbbExit.ImageIndex = 0
Me.tbbExit.Text = "退出"
'
'ImageList1
'
Me.ImageList1.ImageSize = New System.Drawing.Size(40, 40)
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
'
'tabMain
'
Me.tabMain.Controls.Add(Me.tbpQBook)
Me.tabMain.Controls.Add(Me.tbpQReader)
Me.tabMain.Dock = System.Windows.Forms.DockStyle.Fill
Me.tabMain.ItemSize = New System.Drawing.Size(395, 20)
Me.tabMain.Location = New System.Drawing.Point(0, 67)
Me.tabMain.Name = "tabMain"
Me.tabMain.SelectedIndex = 0
Me.tabMain.Size = New System.Drawing.Size(752, 478)
Me.tabMain.SizeMode = System.Windows.Forms.TabSizeMode.Fixed
Me.tabMain.TabIndex = 1
'
'tbpQBook
'
Me.tbpQBook.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.tbpQBook.Controls.Add(Me.grdBook)
Me.tbpQBook.Controls.Add(Me.btnQueryBook)
Me.tbpQBook.Controls.Add(Me.cmbQueryBookType)
Me.tbpQBook.Controls.Add(Me.txtQueryBookContent)
Me.tbpQBook.Controls.Add(Me.Label1)
Me.tbpQBook.Controls.Add(Me.btnRefreshBook)
Me.tbpQBook.Controls.Add(Me.btnClearBook)
Me.tbpQBook.Controls.Add(Me.btnPrintViewBook)
Me.tbpQBook.Controls.Add(Me.btnExportExcelBook)
Me.tbpQBook.Location = New System.Drawing.Point(4, 24)
Me.tbpQBook.Name = "tbpQBook"
Me.tbpQBook.Size = New System.Drawing.Size(744, 450)
Me.tbpQBook.TabIndex = 0
Me.tbpQBook.Text = "图书查询"
'
'grdBook
'
Me.grdBook.DataMember = ""
Me.grdBook.Dock = System.Windows.Forms.DockStyle.Bottom
Me.grdBook.HeaderForeColor = System.Drawing.SystemColors.ControlText
Me.grdBook.Location = New System.Drawing.Point(0, 52)
Me.grdBook.Name = "grdBook"
Me.grdBook.ReadOnly = True
Me.grdBook.Size = New System.Drawing.Size(742, 396)
Me.grdBook.TabIndex = 4
'
'btnQueryBook
'
Me.HelpProvider1.SetHelpKeyword(Me.btnQueryBook, "查询/打印")
Me.btnQueryBook.Location = New System.Drawing.Point(408, 16)
Me.btnQueryBook.Name = "btnQueryBook"
Me.HelpProvider1.SetShowHelp(Me.btnQueryBook, True)
Me.btnQueryBook.Size = New System.Drawing.Size(48, 23)
Me.btnQueryBook.TabIndex = 3
Me.btnQueryBook.Text = "查询"
'
'cmbQueryBookType
'
Me.cmbQueryBookType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbQueryBookType.Items.AddRange(New Object() {"图书编号", "条形码", "书名", "作者", "出版社", "类别", "存放位置"})
Me.cmbQueryBookType.Location = New System.Drawing.Point(280, 16)
Me.cmbQueryBookType.Name = "cmbQueryBookType"
Me.cmbQueryBookType.Size = New System.Drawing.Size(112, 20)
Me.cmbQueryBookType.TabIndex = 2
'
'txtQueryBookContent
'
Me.txtQueryBookContent.Location = New System.Drawing.Point(120, 16)
Me.txtQueryBookContent.Name = "txtQueryBookContent"
Me.txtQueryBookContent.Size = New System.Drawing.Size(152, 21)
Me.txtQueryBookContent.TabIndex = 1
Me.txtQueryBookContent.Text = ""
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(8, 16)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(96, 21)
Me.Label1.TabIndex = 0
Me.Label1.Text = "请选择查询内容"
'
'btnRefreshBook
'
Me.btnRefreshBook.Location = New System.Drawing.Point(464, 16)
Me.btnRefreshBook.Name = "btnRefreshBook"
Me.btnRefreshBook.Size = New System.Drawing.Size(48, 23)
Me.btnRefreshBook.TabIndex = 3
Me.btnRefreshBook.Text = "刷新"
'
'btnClearBook
'
Me.btnClearBook.Location = New System.Drawing.Point(520, 16)
Me.btnClearBook.Name = "btnClearBook"
Me.btnClearBook.Size = New System.Drawing.Size(48, 23)
Me.btnClearBook.TabIndex = 3
Me.btnClearBook.Text = "清除"
'
'btnPrintViewBook
'
Me.HelpProvider1.SetHelpKeyword(Me.btnPrintViewBook, "查询/打印")
Me.btnPrintViewBook.Location = New System.Drawing.Point(576, 16)
Me.btnPrintViewBook.Name = "btnPrintViewBook"
Me.HelpProvider1.SetShowHelp(Me.btnPrintViewBook, True)
Me.btnPrintViewBook.Size = New System.Drawing.Size(72, 23)
Me.btnPrintViewBook.TabIndex = 3
Me.btnPrintViewBook.Text = "打印预览"
'
'btnExportExcelBook
'
Me.btnExportExcelBook.Location = New System.Drawing.Point(656, 16)
Me.btnExportExcelBook.Name = "btnExportExcelBook"
Me.btnExportExcelBook.Size = New System.Drawing.Size(72, 23)
Me.btnExportExcelBook.TabIndex = 3
Me.btnExportExcelBook.Text = "导至Excel"
'
'tbpQReader
'
Me.tbpQReader.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.tbpQReader.Controls.Add(Me.Button1)
Me.tbpQReader.Controls.Add(Me.grdReader)
Me.tbpQReader.Controls.Add(Me.cmbQueryReaderType)
Me.tbpQReader.Controls.Add(Me.txtQueryReaderContent)
Me.tbpQReader.Controls.Add(Me.btnQueryReader)
Me.tbpQReader.Controls.Add(Me.Label2)
Me.tbpQReader.Controls.Add(Me.btnRefreshReader)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -