'Imports 圖形化訂餐管理系統.frmLogin

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 tlbMain As System.Windows.Forms.ToolBar
    Friend WithEvents imlToolBar As System.Windows.Forms.ImageList
    Friend WithEvents tbbMenuManage As System.Windows.Forms.ToolBarButton
    Friend WithEvents ttbSiteManager As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbbUserManager As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbbExit As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbbSep1 As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbbSep2 As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbbSep3 As System.Windows.Forms.ToolBarButton
  Friend WithEvents tbbSep4 As System.Windows.Forms.ToolBarButton
  Friend WithEvents tbbAbout As System.Windows.Forms.ToolBarButton
  <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
    Me.components = New System.ComponentModel.Container
    Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmMain))
    Me.tlbMain = New System.Windows.Forms.ToolBar
    Me.tbbMenuManage = New System.Windows.Forms.ToolBarButton
    Me.tbbSep1 = New System.Windows.Forms.ToolBarButton
    Me.ttbSiteManager = New System.Windows.Forms.ToolBarButton
    Me.tbbSep2 = New System.Windows.Forms.ToolBarButton
    Me.tbbUserManager = New System.Windows.Forms.ToolBarButton
    Me.tbbSep3 = New System.Windows.Forms.ToolBarButton
    Me.tbbExit = New System.Windows.Forms.ToolBarButton
    Me.tbbSep4 = New System.Windows.Forms.ToolBarButton
    Me.tbbAbout = New System.Windows.Forms.ToolBarButton
    Me.imlToolBar = New System.Windows.Forms.ImageList(Me.components)
    Me.SuspendLayout()
    '
    'tlbMain
    '
    Me.tlbMain.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
    Me.tlbMain.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.tbbMenuManage, Me.tbbSep1, Me.ttbSiteManager, Me.tbbSep2, Me.tbbUserManager, Me.tbbSep3, Me.tbbExit, Me.tbbSep4, Me.tbbAbout})
    Me.tlbMain.DropDownArrows = True
    Me.tlbMain.ImageList = Me.imlToolBar
    Me.tlbMain.Location = New System.Drawing.Point(0, 0)
    Me.tlbMain.Name = "tlbMain"
    Me.tlbMain.ShowToolTips = True
    Me.tlbMain.Size = New System.Drawing.Size(638, 59)
    Me.tlbMain.TabIndex = 1
    '
    'tbbMenuManage
    '
    Me.tbbMenuManage.ImageIndex = 1
    Me.tbbMenuManage.Text = "菜譜管理"
    '
    'tbbSep1
    '
    Me.tbbSep1.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
    '
    'ttbSiteManager
    '
    Me.ttbSiteManager.ImageIndex = 2
    Me.ttbSiteManager.Text = "餐位管理"
    '
    'tbbSep2
    '
    Me.tbbSep2.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
    '
    'tbbUserManager
    '
    Me.tbbUserManager.ImageIndex = 3
    Me.tbbUserManager.Text = "用戶管理"
    '
    'tbbSep3
    '
    Me.tbbSep3.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
    '
    'tbbExit
    '
    Me.tbbExit.ImageIndex = 0
    Me.tbbExit.Text = "退出系統"
    '
    'tbbSep4
    '
    Me.tbbSep4.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
    '
    'tbbAbout
    '
    Me.tbbAbout.ImageIndex = 2
    Me.tbbAbout.Text = "系統信息"
    Me.tbbAbout.ToolTipText = "關于"
    '
    'imlToolBar
    '
    Me.imlToolBar.ImageSize = New System.Drawing.Size(32, 32)
    Me.imlToolBar.ImageStream = CType(resources.GetObject("imlToolBar.ImageStream"), System.Windows.Forms.ImageListStreamer)
    Me.imlToolBar.TransparentColor = System.Drawing.Color.Transparent
    '
    'frmMain
    '
    Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
    Me.ClientSize = New System.Drawing.Size(638, 403)
    Me.Controls.Add(Me.tlbMain)
    Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
    Me.IsMdiContainer = True
    Me.Name = "frmMain"
    Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
    Me.Text = "圖形化訂餐管理系統"
    Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
    Me.ResumeLayout(False)

  End Sub

#End Region

    Public Shared strLogRole As String       '記錄登錄用戶的權限名稱，據此確定工具欄顯示項

    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
                Handles MyBase.Load
        Dim m, n As Integer
        '用m和n記錄窗體的最大寬度和高度
        Me.WindowState = FormWindowState.Maximized
        m = Me.Height
        n = Me.Width
        '將窗體正常顯示時的高度和寬度設置為最大值
        '如此即可保證窗體大小始終為最大
        Me.WindowState = FormWindowState.Normal
        Me.Width = n
        Me.Height = m
        Me.Top = 0
        Me.Left = 0
        '根據登錄用戶的類型設置使用權限
        '標準用戶不能使用菜譜管理和用戶管理功能
        If strLogRole = "user" Then
            tlbMain.Buttons.Item(0).Enabled = False
            tlbMain.Buttons.Item(4).Enabled = False
        End If
        '主窗體中缺省打開最常用的餐位管理功能
        Dim myfrm As New frmSite
        myfrm.MdiParent = Me
        myfrm.Show()
    End Sub

    Private Sub tlbMain_ButtonClick(ByVal sender As System.Object, ByVal e _
                As System.Windows.Forms.ToolBarButtonClickEventArgs) _
                Handles tlbMain.ButtonClick
    '根據工具欄中按鈕的序號打開不同的窗體 
    Select Case tlbMain.Buttons.IndexOf(e.Button)
      Case 0
        '打開菜譜管理窗體
        If HowShowFrm("frmMenu") = True Then Exit Sub
        Dim myfrm As New frmMenu
        myfrm.MdiParent = Me
        myfrm.Show()
      Case 2
        '打開餐位管理窗體
        If HowShowFrm("frmSite") = True Then Exit Sub
        Dim myfrm As New frmSite
        myfrm.MdiParent = Me
        myfrm.Show()
      Case 4
        '打開用戶管理窗體
        If HowShowFrm("frmUser") = True Then Exit Sub
        Dim myfrm As New frmUser
        myfrm.MdiParent = Me
        myfrm.WindowState = FormWindowState.Maximized
        myfrm.Show()
      Case 6
        '關閉主窗體 
        Me.Close()
      Case 8
        MsgBox("歡迎使用定餐管理系統V1.0")
    End Select

    End Sub


    Private Function HowShowFrm(ByVal strFrmName As String) As Boolean
        'strFrmName表示需要檢查的窗體的名稱
        '返回True說明已有實例在運行
        '返回False說明沒有此窗體的實例運行
        Dim i As Integer
        '檢查主窗體所有的子窗體
        For i = 0 To Me.MdiChildren.Length - 1
            '如果子窗體中有窗體名稱和需要打開的窗體同名的
            '說明已經由此窗體的實例在運行，此時顯示這個實例即可
            If Me.MdiChildren(i).Name = strFrmName Then
                Me.MdiChildren(i).Focus()
                Me.MdiChildren(i).WindowState = FormWindowState.Maximized
                Return True
                Exit Function
            End If
        Next
        '沒有找到同名的窗體，則說明沒有此窗體的實例在運行
        Return False
    End Function

    Private Sub frmMain_Closing(ByVal sender As Object, ByVal e As _
                System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        '關閉主窗體時請求用戶確認退出
        If MsgBox("確定要退出系統嗎？", MsgBoxStyle.YesNo + MsgBoxStyle.Question) _
                = MsgBoxResult.No Then
            '如果用戶選擇了否則取消退出操作
            e.Cancel = True
        End If
    End Sub
End Class