frmmain.vb

生产管理系统。vb.net sql2

Public Class frmMain
    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 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    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 = "基础数据管理(&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 = "生产计划管理(&Y)"
        '
        'mnDemand
        '
        Me.mnDemand.Index = 0
        Me.mnDemand.Text = "主需求计划(&Z)"
        '
        'mnMPS
        '
        Me.mnMPS.Index = 1
        Me.mnMPS.Text = "MPS主生产计划(&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 = "退出系统(&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 = "数据库开发经典实例解析  清华大学出版社 用户登陆功能和权限管理功能参考进销存实例"
        '
        '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 = "生产管理系统"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Function GetInstanceState(ByVal name As String) As Boolean
        '获得frmMain窗体的子窗体的数量
        Dim i As Integer = Me.MdiChildren.Length
        '循环判断是否有名为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