frmmain.vb

图书馆管理系统原代码

        Me.ToolBarButton1.ImageIndex = 0
        Me.ToolBarButton1.ToolTipText = "图书采购"
        '
        'ToolBarButton2
        '
        Me.ToolBarButton2.ImageIndex = 2
        Me.ToolBarButton2.ToolTipText = "图书编目"
        '
        'ToolBarButton3
        '
        Me.ToolBarButton3.ImageIndex = 1
        Me.ToolBarButton3.ToolTipText = "图书注销"
        '
        'ToolBarButton4
        '
        Me.ToolBarButton4.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'ToolBarButton5
        '
        Me.ToolBarButton5.ImageIndex = 3
        Me.ToolBarButton5.ToolTipText = "图书借阅"
        '
        'ToolBarButton6
        '
        Me.ToolBarButton6.ImageIndex = 4
        Me.ToolBarButton6.ToolTipText = "还书"
        '
        'ToolBarButton7
        '
        Me.ToolBarButton7.ImageIndex = 5
        Me.ToolBarButton7.ToolTipText = "图书续借"
        '
        'ToolBarButton8
        '
        Me.ToolBarButton8.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'ToolBarButton9
        '
        Me.ToolBarButton9.ImageIndex = 9
        Me.ToolBarButton9.ToolTipText = "书证管理"
        '
        'ToolBarButton10
        '
        Me.ToolBarButton10.ImageIndex = 8
        Me.ToolBarButton10.ToolTipText = "缴纳欠款"
        '
        'ToolBarButton11
        '
        Me.ToolBarButton11.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'ToolBarButton12
        '
        Me.ToolBarButton12.ImageIndex = 10
        Me.ToolBarButton12.ToolTipText = "数据字典"
        '
        'ToolBarButton13
        '
        Me.ToolBarButton13.ImageIndex = 11
        Me.ToolBarButton13.ToolTipText = "查询统计"
        '
        'ImageList1
        '
        Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
        Me.ImageList1.ImageSize = New System.Drawing.Size(32, 32)
        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(680, 449)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.ToolBar1})
        Me.IsMdiContainer = True
        Me.Menu = Me.MainMenu1
        Me.Name = "Form1"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "图书馆管理系统"
        Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
        Me.ResumeLayout(False)

    End Sub

#End Region
  
    Private Sub menuLendBooks_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuLendBooks.Click
        Dim frmMaintain As New frmMaintain()
        If OpenOnce(frmMaintain) = True Then
            frmMaintain.MdiParent = Me
            frmMaintain.GroupBox4.Enabled = False
            frmMaintain.Show()
        End If
    End Sub

    Private Sub menuFines_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles menuFines.Click
        Dim frmMaintain As New frmMaintain()
        If OpenOnce(frmMaintain) = True Then
            frmMaintain.MdiParent = Me
            frmMaintain.GroupBox2.Enabled = False
            frmMaintain.Show()
        End If
    End Sub

    Public Function OpenOnce(ByVal frm As Form) As Boolean
        Dim mdifrm As Form
        For Each mdifrm In Me.MdiChildren
            If frm.Text = mdifrm.Text Then
                mdifrm.Activate()
                Return False
                Exit Function
            End If
        Next
        Return True
    End Function

    Private Sub menuBorrow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuBorrow.Click
        Dim frmLend As New frmUtterBook()
        If OpenOnce(frmLend) = True Then
            frmLend.MdiParent = Me
            frmLend.TabCtr.SelectedIndex = 0
            frmLend.Show()
        End If
    End Sub

    Private Sub menuReLend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuReLend.Click
        Dim frmLend As New frmUtterBook()
        If OpenOnce(frmLend) = True Then
            frmLend.MdiParent = Me
            frmLend.TabCtr.SelectedIndex = 1
            frmLend.Show()
        End If
    End Sub

    Private Sub menuReturn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuReturn.Click
        Dim frmLend As New frmUtterBook()
        If OpenOnce(frmLend) = True Then
            frmLend.MdiParent = Me
            frmLend.TabCtr.SelectedIndex = 2
            frmLend.Show()
        End If
    End Sub

    Private Sub menuQuerySum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuQuerySum.Click
        Dim frmFind As New frmSearcher()
        If OpenOnce(frmFind) = True Then
            frmFind.MdiParent = Me
            frmFind.Show()
        End If
    End Sub

    Private Sub menuCatolgue_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuCatolgue.Click
        Dim frmList As New frmCatlogue()
        If OpenOnce(frmList) = True Then
            frmList.MdiParent = Me
            frmList.Show()
        End If
    End Sub

    Private Sub menuReaderID_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuReaderID.Click
        Dim frmReader As New frmReaders()
        If OpenOnce(frmReader) = True Then
            frmReader.MdiParent = Me
            frmReader.Button3.Enabled = False
            frmReader.Show()
        End If
    End Sub

    Private Sub menuReaderFine_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuReaderFine.Click
        Dim frmReader As New frmReaders()
        If OpenOnce(frmReader) = True Then
            frmReader.MdiParent = Me
            frmReader.Button1.Enabled = False
            frmReader.Button2.Enabled = False
            frmReader.Show()
        End If
    End Sub

    Private Sub menuPurchase_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuPurchase.Click
        Dim frmBuy As New frmStockBook()
        If OpenOnce(frmBuy) = True Then
            frmBuy.MdiParent = Me
            frmBuy.Show()
        End If
    End Sub

    Private Sub menuLogOut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuLogOut.Click
        Dim frmLogout As New frmBookManage()
        If OpenOnce(frmLogout) = True Then
            frmLogout.MdiParent = Me
            frmLogout.Show()
        End If
    End Sub


    Private Sub menuArrange_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles menuArrange.Click
        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub

    Private Sub menuHorizion_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles menuHorizion.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub

    Private Sub menuVertical_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles menuVertical.Click
        Me.LayoutMdi(MdiLayout.TileVertical)
    End Sub

    Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, _
    ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) _
    Handles ToolBar1.ButtonClick
        Select Case Me.ToolBar1.Buttons.IndexOf(e.Button)
            Case 0
                Me.menuPurchase.PerformClick()
            Case 1
                Me.menuCatolgue.PerformClick()
            Case 2
                Me.menuLogOut.PerformClick()
            Case 4
                Me.menuBorrow.PerformClick()
            Case 5
                Me.menuReturn.PerformClick()
            Case 6
                Me.menuReLend.PerformClick()
            Case 8
                Me.menuReaderID.PerformClick()
            Case 9
                Me.menuReaderFine.PerformClick()
            Case 11
                Me.menuLendBooks.PerformClick()
            Case 12
                Me.menuQuerySum.PerformClick()
        End Select
    End Sub

    Private Sub Form1_Closing(ByVal sender As Object, _
    ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        If MsgBox("您真的要退出图书馆管理系统吗？", _
        MsgBoxStyle.YesNo + MsgBoxStyle.Question, "退出系统") _
        = MsgBoxResult.Yes Then
            Application.Exit()
        Else
            e.Cancel = True
        End If
    End Sub
End Class