main.vb

Visual Basic 2005数据库通用模块开发与系统移植 餐饮服务管理系统

        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"
        TreeNode1.ImageIndex = 5
        TreeNode1.Name = ""
        TreeNode1.SelectedImageIndex = 5
        TreeNode1.Text = "浏览资源"
        TreeNode2.ImageIndex = 9
        TreeNode2.Name = ""
        TreeNode2.SelectedImageIndex = 9
        TreeNode2.Text = "登记账单"
        TreeNode3.ImageIndex = 8
        TreeNode3.Name = ""
        TreeNode3.SelectedImageIndex = 8
        TreeNode3.Text = "点菜菜谱"
        TreeNode4.ImageIndex = 3
        TreeNode4.Name = ""
        TreeNode4.SelectedImageIndex = 3
        TreeNode4.Text = "结账清单"
        TreeNode5.ImageIndex = 0
        TreeNode5.Name = ""
        TreeNode5.SelectedImageIndex = 0
        TreeNode5.Text = "前台营业管理"
        TreeNode6.ImageIndex = 10
        TreeNode6.Name = ""
        TreeNode6.SelectedImageIndex = 10
        TreeNode6.Text = "预订订单"
        TreeNode7.ImageIndex = 12
        TreeNode7.Name = ""
        TreeNode7.SelectedImageIndex = 12
        TreeNode7.Text = "酒宴服务"
        TreeNode8.ImageIndex = 0
        TreeNode8.Name = ""
        TreeNode8.SelectedImageIndex = 0
        TreeNode8.Text = "预订酒宴服务"
        TreeNode9.ImageIndex = 11
        TreeNode9.Name = ""
        TreeNode9.SelectedImageIndex = 11
        TreeNode9.Text = "外卖订单"
        TreeNode10.ImageIndex = 13
        TreeNode10.Name = ""
        TreeNode10.SelectedImageIndex = 13
        TreeNode10.Text = "送货服务"
        TreeNode11.ImageIndex = 0
        TreeNode11.Name = ""
        TreeNode11.SelectedImageIndex = 0
        TreeNode11.Text = "扩展外卖服务"
        TreeNode12.ImageIndex = 9
        TreeNode12.Name = ""
        TreeNode12.SelectedImageIndex = 9
        TreeNode12.Text = "员工管理"
        TreeNode13.ImageIndex = 4
        TreeNode13.Name = ""
        TreeNode13.SelectedImageIndex = 4
        TreeNode13.Text = "员工管理"
        Me.TreeView1.Nodes.AddRange(New System.Windows.Forms.TreeNode() {TreeNode5, TreeNode8, TreeNode11, TreeNode13})
        Me.TreeView1.SelectedImageIndex = 7
        Me.TreeView1.Size = New System.Drawing.Size(220, 411)
        Me.TreeView1.TabIndex = 2
        '
        'Button1
        '
        Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        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 = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.Label1.ForeColor = System.Drawing.Color.Blue
        Me.Label1.Location = New System.Drawing.Point(0, 0)
        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, 30)
        Me.Splitter1.Name = "Splitter1"
        Me.Splitter1.Size = New System.Drawing.Size(4, 421)
        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.Add(Me.Splitter1)
        Me.Controls.Add(Me.Panel1)
        Me.Controls.Add(Me.StatusBar1)
        Me.Controls.Add(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)
        Me.PerformLayout()

    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
            frmMenu.Show()
        End If

    End Sub

    Public Function OpenOnce(ByVal myform As Form) As Boolean
        Dim form As Form
        For Each form In Me.MdiChildren
            If form.Text = myform.Text Then
                form.Activate()
                Return True
            End If
        Next
        Return False
    End Function

    Private Sub menuResure_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuResure.Click
        Dim frmres As New Form3()
        If OpenOnce(frmres) = False Then
            frmres.MdiParent = Me
            frmres.Show()
        End If
    End Sub

    Private Sub menuCustomer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuCustomer.Click
        Dim frmbill As New Form4()
        If OpenOnce(frmbill) = False Then
            frmbill.MdiParent = Me
            frmbill.Show()
        End If
    End Sub

    Private Sub menuChkBill_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuChkBill.Click
        Dim frmcheck As New Form5()
        If OpenOnce(frmcheck) = False Then
            frmcheck.MdiParent = Me
            frmcheck.Show()
        End If
    End Sub

    Private Sub menuEngageOrder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuEngageOrder.Click
        Dim frmbook As New Form6()
        If OpenOnce(frmbook) = False Then
            frmbook.MdiParent = Me
            frmbook.Show()
        End If
    End Sub

    Private Sub menuEngageSvc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuEngageSvc.Click

    End Sub

    Private Sub menuExpandOrder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuExpandOrder.Click
        Dim frmout As New Form7()
        If OpenOnce(frmout) = False Then
            frmout.MdiParent = Me
            frmout.Show()
        End If
    End Sub