Public Class frmMain
    Inherits System.Windows.Forms.Form

#Region " Windows 窗體設(shè)計器生成的代碼 "

    Public Sub New()
        MyBase.New()

        '該調(diào)用是 Windows 窗體設(shè)計器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 調(diào)用之后添加任何初始化

    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 窗體設(shè)計器所必需的
    Private components As System.ComponentModel.IContainer

    '注意: 以下過程是 Windows 窗體設(shè)計器所必需的
    '可以使用 Windows 窗體設(shè)計器修改此過程。
    '不要使用代碼編輯器修改它。
    Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
    Friend WithEvents StatusBar As System.Windows.Forms.StatusBar
    Friend WithEvents mnBillManage As System.Windows.Forms.MenuItem
    Friend WithEvents mnBillList As System.Windows.Forms.MenuItem
    Friend WithEvents mnCalendar As System.Windows.Forms.MenuItem
    Friend WithEvents mnDemand As System.Windows.Forms.MenuItem
    Friend WithEvents mnMPS As System.Windows.Forms.MenuItem
    Friend WithEvents mnMRP As System.Windows.Forms.MenuItem
    Friend WithEvents mnSearch As System.Windows.Forms.MenuItem
    Friend WithEvents mnCascade As System.Windows.Forms.MenuItem
    Friend WithEvents mnHorizontal As System.Windows.Forms.MenuItem
    Friend WithEvents mnBasic As System.Windows.Forms.MenuItem
    Friend WithEvents mnMan As System.Windows.Forms.MenuItem
    Friend WithEvents mnWindows As System.Windows.Forms.MenuItem
    Friend WithEvents mnExit As System.Windows.Forms.MenuItem
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmMain))
        Me.MainMenu1 = New System.Windows.Forms.MainMenu
        Me.mnBasic = New System.Windows.Forms.MenuItem
        Me.mnBillManage = New System.Windows.Forms.MenuItem
        Me.mnBillList = New System.Windows.Forms.MenuItem
        Me.mnCalendar = New System.Windows.Forms.MenuItem
        Me.mnMan = New System.Windows.Forms.MenuItem
        Me.mnDemand = New System.Windows.Forms.MenuItem
        Me.mnMPS = New System.Windows.Forms.MenuItem
        Me.mnMRP = New System.Windows.Forms.MenuItem
        Me.mnSearch = New System.Windows.Forms.MenuItem
        Me.mnWindows = New System.Windows.Forms.MenuItem
        Me.mnHorizontal = New System.Windows.Forms.MenuItem
        Me.mnCascade = New System.Windows.Forms.MenuItem
        Me.mnExit = New System.Windows.Forms.MenuItem
        Me.StatusBar = New System.Windows.Forms.StatusBar
        Me.SuspendLayout()
        '
        'MainMenu1
        '
        Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnBasic, Me.mnMan, Me.mnWindows, Me.mnExit})
        '
        'mnBasic
        '
        Me.mnBasic.Index = 0
        Me.mnBasic.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnBillManage, Me.mnBillList, Me.mnCalendar})
        Me.mnBasic.Text = "基礎(chǔ)數(shù)據(jù)管理(&X)"
        '
        'mnBillManage
        '
        Me.mnBillManage.Index = 0
        Me.mnBillManage.Text = "物料主文件(&Y)"
        '
        'mnBillList
        '
        Me.mnBillList.Index = 1
        Me.mnBillList.Text = "物料清單（ROM）(&B)"
        '
        'mnCalendar
        '
        Me.mnCalendar.Index = 2
        Me.mnCalendar.Text = "工廠日歷(&Z)"
        '
        'mnMan
        '
        Me.mnMan.Index = 1
        Me.mnMan.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnDemand, Me.mnMPS, Me.mnMRP, Me.mnSearch})
        Me.mnMan.Text = "生產(chǎn)計劃管理(&Y)"
        '
        'mnDemand
        '
        Me.mnDemand.Index = 0
        Me.mnDemand.Text = "主需求計劃(&Z)"
        '
        'mnMPS
        '
        Me.mnMPS.Index = 1
        Me.mnMPS.Text = "MPS主生產(chǎn)計劃(&M)"
        '
        'mnMRP
        '
        Me.mnMRP.Index = 2
        Me.mnMRP.Text = "MRP計算(&R)"
        '
        'mnSearch
        '
        Me.mnSearch.Index = 3
        Me.mnSearch.Text = "MRP查詢(&P)"
        '
        'mnWindows
        '
        Me.mnWindows.Index = 2
        Me.mnWindows.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnHorizontal, Me.mnCascade})
        Me.mnWindows.Text = "窗口(&X)"
        '
        'mnHorizontal
        '
        Me.mnHorizontal.Index = 0
        Me.mnHorizontal.Text = "平鋪(&Z)"
        '
        'mnCascade
        '
        Me.mnCascade.Index = 1
        Me.mnCascade.Text = "層疊(&Y)"
        '
        'mnExit
        '
        Me.mnExit.Index = 3
        Me.mnExit.Text = "退出系統(tǒng)(&Z)"
        '
        'StatusBar
        '
        Me.StatusBar.Location = New System.Drawing.Point(0, 251)
        Me.StatusBar.Name = "StatusBar"
        Me.StatusBar.Size = New System.Drawing.Size(488, 22)
        Me.StatusBar.SizingGrip = False
        Me.StatusBar.TabIndex = 2
        Me.StatusBar.Text = "數(shù)據(jù)庫開發(fā)經(jīng)典實例解析  清華大學(xué)出版社 用戶登陸功能和權(quán)限管理功能參考進(jìn)銷存實例"
        '
        'frmMain
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(488, 273)
        Me.Controls.Add(Me.StatusBar)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.IsMdiContainer = True
        Me.Menu = Me.MainMenu1
        Me.Name = "frmMain"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "生產(chǎn)管理系統(tǒng)"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Function GetInstanceState(ByVal name As String) As Boolean
        '獲得frmMain窗體的子窗體的數(shù)量
        Dim i As Integer = Me.MdiChildren.Length
        '循環(huán)判斷是否有名為name的子窗體實例
        For i = 0 To Me.MdiChildren.Length - 1
            If Me.MdiChildren(i).Name = name Then
                '存在名為name的子窗體，是子窗體獲得焦點并返回True
                Me.MdiChildren(i).Focus()
                Return True
            End If
        Next
        '不存在名為Name的子窗體False
        Return False
    End Function

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

    Private Sub mnBillManage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnBillManage.Click
        If GetInstanceState("frmBillManage") Then
            Exit Sub
        End If
        Dim childFrm As frmBillManage = New frmBillManage
        childFrm.MdiParent = Me
        childFrm.Show()
    End Sub

    Private Sub mnBillList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnBillList.Click
        If GetInstanceState("frmBillList") Then
            Exit Sub
        End If
        Dim childFrm As frmBillList = New frmBillList
        childFrm.MdiParent = Me
        childFrm.Show()
    End Sub

    Private Sub mnCalendar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnCalendar.Click
        If GetInstanceState("frmCalendarMan") Then
            Exit Sub
        End If
        Dim childFrm As frmCalendarMan = New frmCalendarMan
        childFrm.MdiParent = Me
        childFrm.Show()
    End Sub

    Private Sub mnDemand_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnDemand.Click
        If GetInstanceState("frmProductsDemand") Then
            Exit Sub
        End If
        Dim childFrm As frmProductsDemand = New frmProductsDemand
        childFrm.MdiParent = Me
        childFrm.Show()
    End Sub

    Private Sub mnMPS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnMPS.Click
        If GetInstanceState("frmMPS") Then
            Exit Sub
        End If
        Dim childFrm As frmMPS = New frmMPS
        childFrm.MdiParent = Me
        childFrm.Show()
    End Sub

    Private Sub mnMRP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnMRP.Click
        If GetInstanceState("frmMRP") Then
            Exit Sub
        End If
        Dim childFrm As frmMRP = New frmMRP
        childFrm.MdiParent = Me
        childFrm.Show()
    End Sub

    Private Sub mnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnSearch.Click
        If GetInstanceState("frmMRP") Then
            Exit Sub
        End If
        Dim childFrm As frmSearch = New frmSearch
        childFrm.MdiParent = Me
        childFrm.Show()

    End Sub


    Private Sub mnHorizontal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnHorizontal.Click
        '平鋪所有子窗體
        LayoutMdi(MdiLayout.TileHorizontal)
    End Sub

    Private Sub mnCascade_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnCascade.Click
        '層疊所有子窗體
        LayoutMdi(MdiLayout.Cascade)
    End Sub
End Class