frmmain.vb

自己找的图书管理系统 功能还蛮齐全的没有解压密码

        '
        'ToolBarButton1
        '
        Me.ToolBarButton1.ImageIndex = 0
        Me.ToolBarButton1.Text = "新增书籍"
        '
        'ToolBarButton2
        '
        Me.ToolBarButton2.ImageIndex = 1
        Me.ToolBarButton2.Text = "书籍借阅"
        '
        'ToolBarButton5
        '
        Me.ToolBarButton5.ImageIndex = 2
        Me.ToolBarButton5.Text = "书籍查询"
        '
        'ToolBarButton3
        '
        Me.ToolBarButton3.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'ToolBarButton4
        '
        Me.ToolBarButton4.ImageIndex = 3
        Me.ToolBarButton4.Text = "新增读者"
        '
        'ToolBarButton7
        '
        Me.ToolBarButton7.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'ToolBarButton6
        '
        Me.ToolBarButton6.ImageIndex = 4
        Me.ToolBarButton6.Text = "退出"
        '
        'ImageList1
        '
        Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
        '
        'frmMain
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(504, 342)
        Me.Controls.Add(Me.ToolBar1)
        Me.Controls.Add(Me.StatusBar1)
        Me.IsMdiContainer = True
        Me.Menu = Me.MainMenu1
        Me.Name = "frmMain"
        Me.Text = "图书管理系统"
        Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
        CType(Me.StatusBarPanel1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.StatusBarPanel2, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.StatusBarPanel3, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region


    Private Sub MenuItem12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem12.Click
        Me.Close()
        Application.Exit()
    End Sub
#Region "判断窗体是否已经打开,若打开后则不能再打开新的"
    Private Function IsMDIChi(ByVal chiFormName As String) As Boolean
        Dim chiForm As Form
        For Each chiForm In Me.MdiChildren
            If chiForm.Name = chiFormName Then
                If chiForm.Visible Then
                    chiForm.Activate()
                Else
                    chiForm.Show()
                End If
                Return True
            End If
        Next
        Return False
    End Function
#End Region
    Private Sub ToolBar1_ButtonClick(ByVal sender As Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
        Select Case Me.ToolBar1.Buttons.IndexOf(e.Button)
            Case 0
                Me.MenuItem4.PerformClick()    'MenuPurchase为菜单中的命令项
            Case 1
                Me.MenuItem16.PerformClick()
            Case 2
                Me.MenuItem5.PerformClick()
            Case 3
            Case 4
                Me.MenuItem13.PerformClick()
            Case 5
            Case 6
                Me.Close()
                Application.Exit()
        End Select

    End Sub

    Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
        If IsMDIChi("frmXzSj") Then
            Exit Sub
        End If
        Dim childfrm As New frmXzSj
        childfrm.MdiParent = Me
        childfrm.Show()
        'Dim childFrm As frmXzSj = New frmXzSj
        'childFrm.MdiParent = Me
        'childFrm.Show()
        'Dim frm As New frmXzSj
        'frm.Show()
    End Sub

    Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
        If IsMDIChi("frmSjWh") Then
            Exit Sub
        End If
        Dim childfrm As New frmSjWh
        childfrm.MdiParent = Me
        childfrm.Show()
    End Sub

    'Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    '    If IsMDIChi("frmSjGl") Then
    '        Exit Sub
    '    End If
    '    Dim childfrm As New frmSjGl
    '    childfrm.MdiParent = Me
    '    childfrm.Show()
    'End Sub

    Private Sub MenuItem13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem13.Click
        If IsMDIChi("frmXzDz") Then
            Exit Sub
        End If
        Dim childfrm As New frmXzDz
        childfrm.MdiParent = Me
        childfrm.Show()
    End Sub

    Private Sub MenuItem14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem14.Click
        If IsMDIChi("frmDzWh") Then
            Exit Sub
        End If
        Dim childfrm As New frmDzWh
        childfrm.MdiParent = Me
        childfrm.Show()
    End Sub

    Private Sub MenuItem15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If IsMDIChi("frmJyCx") Then
            Exit Sub
        End If
        Dim childfrm As New frmJyCx
        childfrm.MdiParent = Me
        childfrm.Show()
    End Sub

    Private Sub MenuItem16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem16.Click
        If IsMDIChi("frmSjJy") Then
            Exit Sub
        End If
        Dim childfrm As New frmSjJy
        childfrm.MdiParent = Me
        childfrm.Show()
    End Sub

    Private Sub MenuItem17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        If IsMDIChi("frmDzJy") Then
            Exit Sub
        End If
        Dim childfrm As New frmDzJy
        childfrm.MdiParent = Me
        childfrm.Show()
    End Sub

    Private Sub MenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem9.Click
        If IsMDIChi("frmXzYh") Then
            Exit Sub
        End If
        Dim childfrm As New frmXzYh
        childfrm.MdiParent = Me
        childfrm.Show()
    End Sub

    Private Sub MenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem10.Click
        If IsMDIChi("frmMmXg") Then
            Exit Sub
        End If
        Dim childfrm As New frmMmXg
        childfrm.MdiParent = Me
        childfrm.Show()
    End Sub

    Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.StatusBarPanel3.Text = Now.ToString
    End Sub

    Private Sub frmMain_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed
        Application.Exit()
    End Sub
End Class