SQL SERVER（47）图书管理系统之三主窗体设计

添加菜单栏，状态栏和一个Datagridview控件

主窗体的代码

Public Class Main

    Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DataGridView1.DataSource = Nothing

        Dim pubf As New PubFunction
        pubf.Ref(DataGridView1)

    End Sub

    Private Sub mnItemExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnItemExit.Click
        Application.Exit()
    End Sub

    Private Sub mnItemAddBook_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnItemAddBook.Click
        Dim newFrmAddbook As New frmAddbook
        Me.AddOwnedForm(newFrmAddbook)
        newFrmAddbook.Show()
    End Sub

    Private Sub mnIteimModify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnIteimModify.Click
        Dim newFrmModify As New frmModify
        Me.AddOwnedForm(newFrmModify)
        newFrmModify.Show()
    End Sub

    Private Sub mnItemDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnItemDelete.Click
        Dim newFrmDelete As New frmDelete
        Me.AddOwnedForm(newFrmDelete)
        newFrmDelete.Show()
    End Sub

    Private Sub mnItemQuery_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnItemQuery.Click
        Dim newFrmQuery As New frmQuery
        Me.AddOwnedForm(newFrmQuery)
        newFrmQuery.Show()
    End Sub

End Class