mdimain.vb

vb.net写的图书管理系统,功能完备,能正常使用,可用于二次开发.

Public Class MDImain
    Inherits System.Windows.Forms.Form

#Region " Windows 窗体设计器生成的代码 "

    Public Sub New()
        MyBase.New()

        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    '窗体重写 dispose 以清理组件列表。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer

    '注意: 以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
    Friend WithEvents mntBookAdd As System.Windows.Forms.MenuItem
    Friend WithEvents mntBook As System.Windows.Forms.MenuItem
    Friend WithEvents mntExit As System.Windows.Forms.MenuItem
    Friend WithEvents mntBorrow As System.Windows.Forms.MenuItem
    Friend WithEvents mntHelp As System.Windows.Forms.MenuItem
    Friend WithEvents mntHelpAbout As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
    Friend WithEvents mntBookEdit As System.Windows.Forms.MenuItem
    Friend WithEvents mntBookType As System.Windows.Forms.MenuItem
    Friend WithEvents mntReader As System.Windows.Forms.MenuItem
    Friend WithEvents mntReaderAdd As System.Windows.Forms.MenuItem
    Friend WithEvents mntReaderEdit As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
    Friend WithEvents mntBookSearch As System.Windows.Forms.MenuItem
    Friend WithEvents mntBorrowManage As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
    Friend WithEvents mntViewHistory As System.Windows.Forms.MenuItem
    Friend WithEvents mntReaderSearch As System.Windows.Forms.MenuItem
    Friend WithEvents mntBorrowSearch As System.Windows.Forms.MenuItem
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.MainMenu1 = New System.Windows.Forms.MainMenu
        Me.mntBook = New System.Windows.Forms.MenuItem
        Me.mntBookAdd = New System.Windows.Forms.MenuItem
        Me.mntBookEdit = New System.Windows.Forms.MenuItem
        Me.MenuItem3 = New System.Windows.Forms.MenuItem
        Me.mntBookType = New System.Windows.Forms.MenuItem
        Me.MenuItem2 = New System.Windows.Forms.MenuItem
        Me.mntExit = New System.Windows.Forms.MenuItem
        Me.mntReader = New System.Windows.Forms.MenuItem
        Me.mntReaderAdd = New System.Windows.Forms.MenuItem
        Me.mntReaderEdit = New System.Windows.Forms.MenuItem
        Me.MenuItem4 = New System.Windows.Forms.MenuItem
        Me.mntViewHistory = New System.Windows.Forms.MenuItem
        Me.mntBorrow = New System.Windows.Forms.MenuItem
        Me.mntBorrowManage = New System.Windows.Forms.MenuItem
        Me.MenuItem1 = New System.Windows.Forms.MenuItem
        Me.mntBookSearch = New System.Windows.Forms.MenuItem
        Me.mntReaderSearch = New System.Windows.Forms.MenuItem
        Me.mntHelp = New System.Windows.Forms.MenuItem
        Me.mntHelpAbout = New System.Windows.Forms.MenuItem
        Me.mntBorrowSearch = New System.Windows.Forms.MenuItem
        '
        'MainMenu1
        '
        Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mntBook, Me.mntReader, Me.mntBorrow, Me.MenuItem1, Me.mntHelp})
        '
        'mntBook
        '
        Me.mntBook.Index = 0
        Me.mntBook.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mntBookAdd, Me.mntBookEdit, Me.MenuItem3, Me.mntBookType, Me.MenuItem2, Me.mntExit})
        Me.mntBook.Text = "书籍管理"
        '
        'mntBookAdd
        '
        Me.mntBookAdd.Index = 0
        Me.mntBookAdd.Text = "新增书籍"
        '
        'mntBookEdit
        '
        Me.mntBookEdit.Index = 1
        Me.mntBookEdit.Text = "书籍信息维护"
        '
        'MenuItem3
        '
        Me.MenuItem3.Index = 2
        Me.MenuItem3.Text = "-"
        '
        'mntBookType
        '
        Me.mntBookType.Index = 3
        Me.mntBookType.Text = "书籍类别管理"
        '
        'MenuItem2
        '
        Me.MenuItem2.Index = 4
        Me.MenuItem2.Text = "-"
        '
        'mntExit
        '
        Me.mntExit.Index = 5
        Me.mntExit.Text = "退出"
        '
        'mntReader
        '
        Me.mntReader.Index = 1
        Me.mntReader.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mntReaderAdd, Me.mntReaderEdit, Me.MenuItem4, Me.mntViewHistory})
        Me.mntReader.Text = "读者管理"
        '
        'mntReaderAdd
        '
        Me.mntReaderAdd.Index = 0
        Me.mntReaderAdd.Text = "新增读者"
        '
        'mntReaderEdit
        '
        Me.mntReaderEdit.Index = 1
        Me.mntReaderEdit.Text = "读者信息维护"
        '
        'MenuItem4
        '
        Me.MenuItem4.Index = 2
        Me.MenuItem4.Text = "-"
        '
        'mntViewHistory
        '
        Me.mntViewHistory.Index = 3
        Me.mntViewHistory.Text = "借阅历史查看"
        '
        'mntBorrow
        '
        Me.mntBorrow.Index = 2
        Me.mntBorrow.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mntBorrowManage})
        Me.mntBorrow.Text = "借阅管理"
        '
        'mntBorrowManage
        '
        Me.mntBorrowManage.Index = 0
        Me.mntBorrowManage.Text = "书籍借阅管理"
        '
        'MenuItem1
        '
        Me.MenuItem1.Index = 3
        Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mntBookSearch, Me.mntReaderSearch, Me.mntBorrowSearch})
        Me.MenuItem1.Text = "查询"
        '
        'mntBookSearch
        '
        Me.mntBookSearch.Index = 0
        Me.mntBookSearch.Text = "书籍信息查询"
        '
        'mntReaderSearch
        '
        Me.mntReaderSearch.Index = 1
        Me.mntReaderSearch.Text = "读者信息查询"
        '
        'mntHelp
        '
        Me.mntHelp.Index = 4
        Me.mntHelp.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mntHelpAbout})
        Me.mntHelp.Text = "帮助"
        '
        'mntHelpAbout
        '
        Me.mntHelpAbout.Index = 0
        Me.mntHelpAbout.Text = "关于..."
        '
        'mntBorrowSearch
        '
        Me.mntBorrowSearch.Index = 2
        Me.mntBorrowSearch.Text = "借阅信息查询"
        '
        'MDImain
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.BackColor = System.Drawing.SystemColors.Control
        Me.ClientSize = New System.Drawing.Size(796, 421)
        Me.IsMdiContainer = True
        Me.Menu = Me.MainMenu1
        Me.Name = "MDImain"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "书籍借阅管理系统"

    End Sub

#End Region

    '新增书籍信息
    Private Sub mntBookAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mntBookAdd.Click
        '生成一个新增书籍信息类（BookAdd）的新实例
        Dim frm As New BookAdd
        ' 获取或设置此窗体的当前多文档界面 (MDI) 父窗体
        frm.MdiParent = Me
        '显示新增书籍窗体
        frm.Show()

    End Sub
    '书籍信息维护
    Private Sub mntBookEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mntBookEdit.Click
        Dim frm As New BookEdit
        'frm.MdiParent = Me
        frm.Show()
    End Sub
    '书籍类别管理
    Private Sub mntBookType_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mntBookType.Click
        Dim frm As New BookTypeManage
        'frm.MdiParent = Me
        frm.Show()
    End Sub
    '退出系统
    Private Sub mntExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mntExit.Click
        Me.Close()
    End Sub
    '新增读者信息
    Private Sub mntReaderAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mntReaderAdd.Click
        Dim frm As New ReaderAdd
        'frm.MdiParent = Me
        frm.Show()
    End Sub
    '读者信息维护
    Private Sub mntReaderEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mntReaderEdit.Click
        Dim frm As New ReaderEdit
        'frm.MdiParent = Me
        frm.Show()
    End Sub

    '借阅历史查看
    Private Sub mntViewHistory_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mntViewHistory.Click
        Dim frm As New ViewHistory
        'frm.MdiParent = Me
        frm.Show()
    End Sub
    '借阅管理
    Private Sub mntBorrowManage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mntBorrowManage.Click
        Dim frm As New BorrowManage
        'frm.MdiParent = Me
        frm.Show()
    End Sub

    '查找书籍信息
    Private Sub mntBookSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mntBookSearch.Click
        Dim frm As New BookSearch
        'frm.MdiParent = Me
        frm.Show()
    End Sub
    '查找读者信息
    Private Sub mntReaderSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mntReaderSearch.Click
        Dim frm As New ReaderSearch
        'frm.MdiParent = Me
        frm.Show()
    End Sub

    '帮助信息
    Private Sub mntHelpAbout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mntHelpAbout.Click
        Dim frm As New About
        'frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub MDImain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub mntBorrowSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mntBorrowSearch.Click
        Dim frm As New BorrowSearch
        'frm.MdiParent = Me
        frm.Show()
    End Sub
End Class