frmmain.vb

本系统利用vb.net做为前台开发工具

'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