Visual Basic 2010 数据库开发之超市管理系统03主窗体

添加菜单栏、工具栏、状态栏

窗体代码

Public Class FrmMain

    Private Sub 进货管理ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 进货管理ToolStripMenuItem.Click
        FrmJinHuo.Show()
    End Sub

    Private Sub 售货管理ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 售货管理ToolStripMenuItem.Click
        FrmShouHuo.Show()
    End Sub

    Private Sub 价格管理ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 价格管理ToolStripMenuItem.Click
        FrmPrice.Show()
    End Sub

    Private Sub 售货查询ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 售货查询ToolStripMenuItem.Click
        FrmSHChaXun.Show()
    End Sub

    Private Sub 进货查询ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 进货查询ToolStripMenuItem1.Click
        FrmJHChaXun.Show()
    End Sub

    Private Sub 修改密码ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 修改密码ToolStripMenuItem.Click
        FrmModifyPwd.Show()
    End Sub

    Private Sub 增加用户ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 增加用户ToolStripMenuItem.Click
        FrmAddUser.Show()
    End Sub

    Private Sub 关于ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 关于ToolStripMenuItem.Click
        FrmAbout.Show()
    End Sub

    Private Sub 退出系统ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出系统ToolStripMenuItem.Click
        If MessageBox.Show("确定要退出退出吗？", "提示信息", MessageBoxButtons.YesNo) = DialogResult.Yes Then
            Application.Exit()
        End If
    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        进货管理ToolStripMenuItem.PerformClick()
    End Sub

    Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
        售货管理ToolStripMenuItem.PerformClick()
    End Sub

    Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
        进货查询ToolStripMenuItem.PerformClick()
    End Sub

    Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click
        售货查询ToolStripMenuItem.PerformClick()
    End Sub

    Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click
        价格管理ToolStripMenuItem.PerformClick()
    End Sub

    Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton6.Click
        修改密码ToolStripMenuItem.PerformClick()
    End Sub

    Private Sub ToolStripButton7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton7.Click
        增加用户ToolStripMenuItem.PerformClick()
    End Sub

    Private Sub ToolStripButton8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton8.Click
        关于ToolStripMenuItem.PerformClick()
    End Sub

    Private Sub ToolStripButton9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton9.Click
        退出系统ToolStripMenuItem.PerformClick()
    End Sub


    Private Sub FrmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        sttLabel2.Text = "操作员：" & username
        sttLabel3.Text = Today
        sttLabel4.Text = TimeOfDay
        Label1.Text = "超市管理系统"
        Label1.BackColor = Color.Transparent
        Label1.Parent = PictureBox1
    End Sub

End Class