main.vb

vb.net+sql进销存管理系统

Public Class main
    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 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        '
        'main
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(792, 566)
        Me.IsMdiContainer = True
        Me.Name = "main"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "main"

    End Sub

#End Region

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

        Dim check As Boolean = True
        Try
            Do
                Dim Login As New Login
                Login.ShowDialog()

                If Login.DialogResult = DialogResult.OK And Login.flag Then
                    check = False
                ElseIf Login.DialogResult = DialogResult.Cancel Then
                    Me.Close()
                    check = False
                End If

            Loop While check

        Catch ex As Exception
            Sample02.WriteErr(ex)
        End Try

        Me.InitializeMenu()

        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub

    Private Sub InitializeMenu()

        Dim Purview As String = Sample02.Purview.Trim()

        Dim MainMenu As New MainMenu

        Dim mItem00 As New MenuItem
        Dim mItem10 As New MenuItem
        Dim mItem20 As New MenuItem
        Dim mItem30 As New MenuItem
        Dim mItem40 As New MenuItem

        Dim mItem01 As New MenuItem
        Dim mItem02 As New MenuItem
        Dim mItem03 As New MenuItem
        Dim mItem04 As New MenuItem
        Dim mItem11 As New MenuItem
        Dim mItem21 As New MenuItem
        Dim mItem22 As New MenuItem
        Dim mItem31 As New MenuItem
        Dim mItem32 As New MenuItem
        Dim mItem33 As New MenuItem

        mItem00.Text = "系统管理(&S)"
        mItem10.Text = "订单管理(&O)"
        mItem20.Text = "出入库管理(&G)"
        mItem30.Text = "查询统计(&S)"
        mItem40.Text = "退出(&Q)"


        mItem01.Text = "用户管理"
        mItem02.Text = "厂商管理"
        mItem03.Text = "类别管理"
        mItem04.Text = "商品管理"

        mItem11.Text = "订单管理"

        mItem21.Text = "入库"
        mItem22.Text = "出库"

        mItem31.Text = "订单查询"
        mItem32.Text = "库存查询"
        mItem33.Text = "出入库查询"

        mItem01.Shortcut = Shortcut.CtrlU
        mItem02.Shortcut = Shortcut.CtrlF
        mItem03.Shortcut = Shortcut.CtrlS
        mItem04.Shortcut = Shortcut.CtrlG

        mItem11.Shortcut = Shortcut.CtrlI

        mItem21.Shortcut = Shortcut.CtrlR
        mItem22.Shortcut = Shortcut.CtrlO

        mItem31.Shortcut = Shortcut.CtrlD
        mItem32.Shortcut = Shortcut.CtrlC
        mItem33.Shortcut = Shortcut.CtrlB

        AddHandler mItem01.Click, AddressOf Me.mItem01_Click
        AddHandler mItem02.Click, AddressOf Me.mItem02_Click
        AddHandler mItem03.Click, AddressOf Me.mItem03_Click
        AddHandler mItem04.Click, AddressOf Me.mItem04_Click

        AddHandler mItem11.Click, AddressOf Me.mItem11_Click

        AddHandler mItem21.Click, AddressOf Me.mItem21_Click
        AddHandler mItem22.Click, AddressOf Me.mItem22_Click

        AddHandler mItem31.Click, AddressOf Me.mItem31_Click
        AddHandler mItem32.Click, AddressOf Me.mItem32_Click
        AddHandler mItem33.Click, AddressOf Me.mItem33_Click

        AddHandler mItem40.Click, AddressOf Me.mItem40_Click

        mItem00.MenuItems.Add(mItem01)
        mItem00.MenuItems.Add(mItem02)
        mItem00.MenuItems.Add(mItem03)
        mItem00.MenuItems.Add(mItem04)

        mItem10.MenuItems.Add(mItem11)

        mItem30.MenuItems.Add(mItem31)
        mItem30.MenuItems.Add(mItem32)
        mItem30.MenuItems.Add(mItem33)

        If Purview.IndexOf("A"c) <> -1 Then
            MainMenu.MenuItems.Add(mItem00)
            MainMenu.MenuItems.Add(mItem10)
            mItem20.MenuItems.Add(mItem21)
            mItem20.MenuItems.Add(mItem22)
            MainMenu.MenuItems.Add(mItem20)
            MainMenu.MenuItems.Add(mItem30)
            MainMenu.MenuItems.Add(mItem40)
        Else
            If Purview.IndexOf("0"c) <> -1 Then
                MainMenu.MenuItems.Add(mItem10)
            End If

            If Purview.IndexOf("1"c) <> -1 Then
                MainMenu.MenuItems.Add(mItem20)
                mItem20.MenuItems.Add(mItem21)
            End If

            If Purview.IndexOf("2"c) <> -1 Then
                If mItem21.Parent Is mItem20 Then
                    mItem20.MenuItems.Add(mItem22)
                Else
                    MainMenu.MenuItems.Add(mItem20)
                    mItem20.MenuItems.Add(mItem22)
                End If
            End If

            If Purview.IndexOf("3"c) <> -1 Then
                MainMenu.MenuItems.Add(mItem30)
            End If

            MainMenu.MenuItems.Add(mItem40)

        End If
        Me.Menu = MainMenu
    End Sub

    Private Sub mItem01_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim User As New UserForm
        User.MdiParent = Me
        User.Show()
    End Sub

    Private Sub mItem02_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim Fac As New FacForm
        Fac.MdiParent = Me
        Fac.Show()
    End Sub

    Private Sub mItem03_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim Sort As New SortForm
        Sort.MdiParent = Me
        Sort.Show()
    End Sub

    Private Sub mItem04_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim Goods As New GoodsForm
        Goods.MdiParent = Me
        Goods.Show()
    End Sub

    Private Sub mItem11_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim Order As New OrderForm
        Order.MdiParent = Me
        Order.Show()
    End Sub

    Private Sub mItem21_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim InF As New InForm
        InF.MdiParent = Me
        InF.Show()
    End Sub

    Private Sub mItem22_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim OutF As New FacForm
        OutF.MdiParent = Me
        OutF.Show()
    End Sub

    Private Sub mItem31_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim sOrder As New OrderSeek
        sOrder.MdiParent = Me
        sOrder.Show()
    End Sub

    Private Sub mItem32_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim sStore As New StoreSeek
        sStore.MdiParent = Me
        sStore.Show()
    End Sub

    Private Sub mItem33_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim sInOut As New InOutSeek
        sInOut.MdiParent = Me
        sInOut.Show()
    End Sub

    Private Sub mItem40_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        If MessageBox.Show("是否退出？", "确认", MessageBoxButtons.OKCancel, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = DialogResult.OK Then
            Application.Exit()
        End If
    End Sub

    Private Sub main_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        If MessageBox.Show("是否退出？", "确认", MessageBoxButtons.OKCancel, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = DialogResult.Cancel Then
            e.Cancel = True
        Else
            e.Cancel = False
        End If
    End Sub
End Class