main.vb

.ent 编写的单机版餐饮服务系统 应用广泛

        '
        Me.menuSep3.Index = 1
        Me.menuSep3.Text = "-"
        '
        'menuSupport
        '
        Me.menuSupport.Index = 2
        Me.menuSupport.Text = "技术支持"
        '
        'menuEmail
        '
        Me.menuEmail.Index = 3
        Me.menuEmail.Text = "联系我们"
        '
        'menuSep4
        '
        Me.menuSep4.Index = 4
        Me.menuSep4.Text = "-"
        '
        'menuAbout
        '
        Me.menuAbout.Index = 5
        Me.menuAbout.Text = "关于餐饮服务"
        '
        'ToolBar1
        '
        Me.ToolBar1.Appearance = System.Windows.Forms.ToolBarAppearance.Flat
        Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBarButton1, Me.ToolBarButton2, Me.ToolBarButton3, Me.ToolBarButton4, Me.ToolBarButton5, Me.ToolBarButton6, Me.ToolBarButton7, Me.ToolBarButton8, Me.ToolBarButton9, Me.ToolBarButton10, Me.ToolBarButton11, Me.ToolBarButton12, Me.ToolBarButton13, Me.ToolBarButton14, Me.ToolBarButton15, Me.ToolBarButton16, Me.ToolBarButton17, Me.ToolBarButton18})
        Me.ToolBar1.DropDownArrows = True
        Me.ToolBar1.ImageList = Me.ImageList1
        Me.ToolBar1.Name = "ToolBar1"
        Me.ToolBar1.ShowToolTips = True
        Me.ToolBar1.Size = New System.Drawing.Size(656, 27)
        Me.ToolBar1.TabIndex = 0
        '
        'ToolBarButton1
        '
        Me.ToolBarButton1.Pushed = True
        Me.ToolBarButton1.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'ToolBarButton2
        '
        Me.ToolBarButton2.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'ToolBarButton3
        '
        Me.ToolBarButton3.ImageIndex = 16
        Me.ToolBarButton3.ToolTipText = "修改密码"
        '
        'ToolBarButton4
        '
        Me.ToolBarButton4.ImageIndex = 4
        Me.ToolBarButton4.ToolTipText = "员工管理"
        '
        'ToolBarButton5
        '
        Me.ToolBarButton5.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'ToolBarButton6
        '
        Me.ToolBarButton6.ImageIndex = 5
        Me.ToolBarButton6.ToolTipText = "点菜菜谱"
        '
        'ToolBarButton7
        '
        Me.ToolBarButton7.ImageIndex = 8
        Me.ToolBarButton7.ToolTipText = "资源浏览"
        '
        'ToolBarButton8
        '
        Me.ToolBarButton8.ImageIndex = 9
        Me.ToolBarButton8.ToolTipText = "登记账单"
        '
        'ToolBarButton9
        '
        Me.ToolBarButton9.ImageIndex = 0
        Me.ToolBarButton9.ToolTipText = "结账"
        '
        'ToolBarButton10
        '
        Me.ToolBarButton10.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'ToolBarButton11
        '
        Me.ToolBarButton11.ImageIndex = 10
        Me.ToolBarButton11.ToolTipText = "预定订单"
        '
        'ToolBarButton12
        '
        Me.ToolBarButton12.ImageIndex = 12
        Me.ToolBarButton12.ToolTipText = "酒宴服务"
        '
        'ToolBarButton13
        '
        Me.ToolBarButton13.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'ToolBarButton14
        '
        Me.ToolBarButton14.ImageIndex = 11
        Me.ToolBarButton14.ToolTipText = "外卖订单"
        '
        'ToolBarButton15
        '
        Me.ToolBarButton15.ImageIndex = 13
        Me.ToolBarButton15.ToolTipText = "外送服务"
        '
        'ToolBarButton16
        '
        Me.ToolBarButton16.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'ToolBarButton17
        '
        Me.ToolBarButton17.ImageIndex = 15
        Me.ToolBarButton17.ToolTipText = "帮助"
        '
        'ToolBarButton18
        '
        Me.ToolBarButton18.ImageIndex = 14
        Me.ToolBarButton18.ToolTipText = "退出系统"
        '
        'ImageList1
        '
        Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth16Bit
        Me.ImageList1.ImageSize = New System.Drawing.Size(18, 18)
        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
        '
        'StatusBar1
        '
        Me.StatusBar1.Location = New System.Drawing.Point(0, 451)
        Me.StatusBar1.Name = "StatusBar1"
        Me.StatusBar1.Panels.AddRange(New System.Windows.Forms.StatusBarPanel() {Me.StatusBarPanel1, Me.StatusBarPanel2, Me.StatusBarPanel3, Me.StatusBarPanel4})
        Me.StatusBar1.ShowPanels = True
        Me.StatusBar1.Size = New System.Drawing.Size(656, 22)
        Me.StatusBar1.TabIndex = 1
        Me.StatusBar1.Text = "StatusBar1"
        '
        'StatusBarPanel1
        '
        Me.StatusBarPanel1.AutoSize = System.Windows.Forms.StatusBarPanelAutoSize.Spring
        Me.StatusBarPanel1.Text = "  欢迎光临"
        Me.StatusBarPanel1.Width = 340
        '
        'StatusBarPanel2
        '
        Me.StatusBarPanel2.Text = "软件名称"
        '
        'StatusBarPanel3
        '
        Me.StatusBarPanel3.Text = "操作人"
        '
        'StatusBarPanel4
        '
        Me.StatusBarPanel4.Alignment = System.Windows.Forms.HorizontalAlignment.Center
        Me.StatusBarPanel4.Text = "时间"
        '
        'Panel1
        '
        Me.Panel1.Controls.AddRange(New System.Windows.Forms.Control() {Me.TreeView1, Me.Button1, Me.Label1})
        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Left
        Me.Panel1.Location = New System.Drawing.Point(0, 27)
        Me.Panel1.Name = "Panel1"
        Me.Panel1.Size = New System.Drawing.Size(220, 424)
        Me.Panel1.TabIndex = 3
        '
        'TreeView1
        '
        Me.TreeView1.Anchor = (((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right)
        Me.TreeView1.BackColor = System.Drawing.SystemColors.Info
        Me.TreeView1.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.TreeView1.ForeColor = System.Drawing.Color.Navy
        Me.TreeView1.ImageIndex = 6
        Me.TreeView1.ImageList = Me.ImageList1
        Me.TreeView1.Indent = 25
        Me.TreeView1.ItemHeight = 28
        Me.TreeView1.Location = New System.Drawing.Point(0, 24)
        Me.TreeView1.Name = "TreeView1"
        Me.TreeView1.Nodes.AddRange(New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("前台营业管理", 0, 0, New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("浏览资源", 5, 5), New System.Windows.Forms.TreeNode("登记账单", 9, 9), New System.Windows.Forms.TreeNode("点菜菜谱", 8, 8), New System.Windows.Forms.TreeNode("结账清单", 3, 3)}), New System.Windows.Forms.TreeNode("预定酒宴服务", 0, 0, New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("预定订单", 10, 10), New System.Windows.Forms.TreeNode("酒宴服务", 12, 12)}), New System.Windows.Forms.TreeNode("扩展外卖服务", 0, 0, New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("外卖订单", 11, 11), New System.Windows.Forms.TreeNode("送货服务", 13, 13)}), New System.Windows.Forms.TreeNode("员工管理", 4, 4, New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("员工管理", 9, 9)})})
        Me.TreeView1.SelectedImageIndex = 7
        Me.TreeView1.Size = New System.Drawing.Size(220, 414)
        Me.TreeView1.TabIndex = 2
        '
        'Button1
        '
        Me.Button1.Anchor = (System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right)
        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Bitmap)
        Me.Button1.ImageIndex = 2
        Me.Button1.ImageList = Me.ImageList1
        Me.Button1.Location = New System.Drawing.Point(196, 0)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(24, 24)
        Me.Button1.TabIndex = 1
        '
        'Label1
        '
        Me.Label1.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right)
        Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.Label1.ForeColor = System.Drawing.Color.Blue
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(196, 24)
        Me.Label1.TabIndex = 0
        Me.Label1.Text = "餐饮服务模块"
        Me.Label1.TextAlign = System.Drawing.ContentAlignment.BottomCenter
        '
        'Splitter1
        '
        Me.Splitter1.Location = New System.Drawing.Point(220, 27)
        Me.Splitter1.Name = "Splitter1"
        Me.Splitter1.Size = New System.Drawing.Size(4, 424)
        Me.Splitter1.TabIndex = 4
        Me.Splitter1.TabStop = False
        '
        'Timer1
        '
        Me.Timer1.Interval = 1000
        '
        'Timer2
        '
        Me.Timer2.Interval = 10
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(656, 473)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Splitter1, Me.Panel1, Me.StatusBar1, Me.ToolBar1})
        Me.IsMdiContainer = True
        Me.Menu = Me.MainMenu1
        Me.Name = "Form1"
        Me.Text = "单机版餐饮服务程序"
        Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
        CType(Me.StatusBarPanel1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.StatusBarPanel2, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.StatusBarPanel3, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.StatusBarPanel4, System.ComponentModel.ISupportInitialize).EndInit()
        Me.Panel1.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, _
    ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) _
    Handles ToolBar1.ButtonClick
        Select Case Me.ToolBar1.Buttons.IndexOf(e.Button)
            Case 2
                '修改密码
                menuModPwd.PerformClick()
            Case 3
                '员工管理
                menuClerk.PerformClick()
            Case 5
                '菜谱管理
                menuMenu.PerformClick()
            Case 6
                '资源浏览
                menuResure.PerformClick()
            Case 7
                '流水客户
                menuCustomer.PerformClick()
            Case 8
                '结帐清单
                menuChkBill.PerformClick()
            Case 10
                '预定订单
                menuEngageOrder.PerformClick()
            Case 11
                '预约服务
                menuEngageSvc.PerformClick()
            Case 13
                '外卖订单
                menuExpandOrder.PerformClick()
            Case 14
                '外送服务
                menuTransSvc.PerformClick()
            Case 16
                '帮助
                menuHelpContent.PerformClick()
            Case 17
                '退出系统
                menuExit.PerformClick()
        End Select
    End Sub

    Public Sub StatusBar()
        Me.ToolBar1.Buttons(3).Enabled = menuEmployee.Enabled
        Me.ToolBar1.Buttons(5).Enabled = menuForeSvc.Enabled
        Me.ToolBar1.Buttons(6).Enabled = menuForeSvc.Enabled
        Me.ToolBar1.Buttons(7).Enabled = menuForeSvc.Enabled
        Me.ToolBar1.Buttons(8).Enabled = menuForeSvc.Enabled
        Me.ToolBar1.Buttons(10).Enabled = menuOrderSvc.Enabled
        Me.ToolBar1.Buttons(11).Enabled = menuOrderSvc.Enabled
        Me.ToolBar1.Buttons(13).Enabled = menuExpandSvc.Enabled
        Me.ToolBar1.Buttons(14).Enabled = menuExpandSvc.Enabled
    End Sub

    Private Sub menuModPwd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuModPwd.Click
        Dim frmPswd As New Form11()
        If OpenOnce(frmPswd) = False Then
            frmPswd.MdiParent = Me
            frmPswd.Show()
        End If

    End Sub

    Private Sub menuClerk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuClerk.Click
        Dim frmClerk As New Employee()
        If OpenOnce(frmClerk) = False Then
            frmClerk.MdiParent = Me
            frmClerk.Show()
        End If

    End Sub

    Private Sub menuExit_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles menuExit.Click
        If MsgBox("您真的要退出餐饮服务管理系统吗？", _
        MsgBoxStyle.YesNo + MsgBoxStyle.Question, "退出系统") _
        = MsgBoxResult.Yes Then
            Application.Exit()
        Else
            Exit Sub
        End If
    End Sub

    Private Sub menuMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuMenu.Click
        Dim frmMenu As New Form13()
        If OpenOnce(frmMenu) = False Then
            frmMenu.MdiParent = Me