frmmain.vb

单机版餐饮服务系统,结合了SqlServer数据库

            '
            'Splitter1
            '
            Me.Splitter1.Location = New System.Drawing.Point(208, 30)
            Me.Splitter1.Name = "Splitter1"
            Me.Splitter1.Size = New System.Drawing.Size(4, 421)
            Me.Splitter1.TabIndex = 4
            Me.Splitter1.TabStop = False
            '
            'StatusTimer
            '
            Me.StatusTimer.Interval = 1000
            '
            'PanelTimer
            '
            Me.PanelTimer.Interval = 10
            '
            'frmMain
            '
            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 = "frmMain"
            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 m_LogonInfo As String = String.Empty
        Private modServer As Boolean = False
        Private modOrder As Boolean = False
        Private modSend As Boolean = False
        Private modEmployee As Boolean = False
        Private modBill As Boolean = False
        Private pepdom As Integer = -1
        Private UserName As String = String.Empty
        Private sqlstr As String = String.Empty

        Public Property LogonInfo() As String
            Get
                Return m_LogonInfo
            End Get
            Set(ByVal Value As String)
                m_LogonInfo = Value
            End Set
        End Property

        Private Sub ResolveLogonInfo()
            Dim strs() As String = Me.LogonInfo.Split("|")
            If strs.Length >= 6 Then
                UserName = strs(0).Trim
                pepdom = CInt(Val(strs(1)))
                modServer = CBool(strs(2))
                modOrder = CBool(strs(3))
                modSend = CBool(strs(4))
                modEmployee = CBool(strs(5))
                modBill = CBool(strs(6))
            End If
        End Sub

        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
                  
                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 frmModifyPassword
            If OpenOnce(frmPswd) = False Then
                frmPswd.MdiParent = Me
                frmPswd.lbCurrentUser.Text += UserName
                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 frmEmployee
            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
                AccessToDatabase.DisConnectToDataBase()
                Application.Exit()
            Else
                Exit Sub
            End If
        End Sub

        Private Sub menuMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
            Dim frm
        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 frmResourceBrowse
            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 frmMenu As New frmOrdersManager
            If OpenOnce(frmMenu) = False Then
                frmMenu.MdiParent = Me
                frmMenu.QueryPages.SelectedTab = frmMenu.BillsPage
                frmMenu.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 frmCheckBill
            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 frmMenu As New frmOrdersManager
            If OpenOnce(frmMenu) = False Then
                frmMenu.MdiParent = Me
                frmMenu.QueryPages.SelectedTab = frmMenu.OrdersPage
                frmMenu.rdtOuterOrder.Enabled = False
                frmMenu.rdtInnerOrder.Enabled = True
                frmMenu.rdtInnerOrder.Checked = True
                frmMenu.Show()
            End If
        End Sub

        Private Sub menuEngageSvc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuEngageSvc.Click
            Dim frmMenu As New frmOrdersManager
            If OpenOnce(frmMenu) = False Then
                frmMenu.MdiParent = Me
                frmMenu.QueryPages.SelectedTab = frmMenu.OrdersQueryPage
                frmMenu.rdtQueryInnerOrder.Enabled = True
                frmMenu.rdtQueryOuterOrder.Enabled = False
                frmMenu.rdtQueryInnerOrder.Checked = True
                frmMenu.Show()
            End If
        End Sub

        Private Sub menuExpandOrder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuExpandOrder.Click
            Dim frmMenu As New frmOrdersManager
            If OpenOnce(frmMenu) = False Then
                frmMenu.MdiParent = Me
                frmMenu.QueryPages.SelectedTab = frmMenu.OrdersPage
                frmMenu.rdtOuterOrder.Enabled = True
                frmMenu.rdtInnerOrder.Enabled = False
                frmMenu.rdtOuterOrder.Checked = True
                frmMenu.Show()
            End If
        End Sub

        Private Sub menuTransSvc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuTransSvc.Click
            Dim frmMenu As New frmOrdersManager
            If OpenOnce(frmMenu) = False Then
                frmMenu.MdiParent = Me
                frmMenu.QueryPages.SelectedTab = frmMenu.OrdersQueryPage
                frmMenu.rdtQueryInnerOrder.Enabled = False
                frmMenu.rdtQueryOuterOrder.Enabled = True
                frmMenu.rdtQueryOuterOrder.Checked = True
                frmMenu.Show()
            End If
        End Sub

        Private Sub TreeView1_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TreeView1.DoubleClick
            Dim curNode As TreeNode
            curNode = New TreeNode
            curNode = Me.TreeView1.SelectedNode
            If curNode.Parent Is Nothing Then
            Else
                Select Case curNode.Text
                    Case "点菜菜谱"
                        If modServer = False Then
                            MsgBox("对不起，你没有这个权限管理该模块。", _
                            MsgBoxStyle.OKOnly + MsgBoxStyle.Exclamation, "无权限访问")
                            Exit Sub
                        End If
                        menuMenu_Click(Nothing, Nothing)
                    Case "浏览资源"
                        If modServer = False Then
                            MsgBox("对不起，你没有这个权限管理该模块。", _
                            MsgBoxStyle.OKOnly + MsgBoxStyle.Exclamation, "无权限访问")
                            Exit Sub
                        End If
                        menuResure_Click(Nothing, Nothing)
                    Case "登记账单"
                        If modServer = False Then
                            MsgBox("对不起，你没有这个权限管理该模块。", _
                            MsgBoxStyle.OKOnly + MsgBoxStyle.Exclamation, "无权限访问")
                            Exit Sub
                        End If
                        menuCustomer_Click(Nothing, Nothing)
                    Case "结账清单"
                        If modBill = False Then
                            MsgBox("对不起，你没有这个权限管理该模块。", _
                            MsgBoxStyle.OKOnly + MsgBoxStyle.Exclamation, "无权限访问")
                            Exit Sub
                        End If
                        menuChkBill_Click(Nothing, Nothing)
                    Case "预定订单"
                        If modOrder = False Then
                            MsgBox("对不起，你没有这个权限管理该模块。", _
                            MsgBoxStyle.OKOnly + MsgBoxStyle.Exclamation, "无权限访问")
                            Exit Sub
                        End If