frmmain.vb

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

Imports System
Imports System.IO
Imports System.Data
Imports System.Drawing
Imports System.Data.SqlClient
Namespace HZC.DinningService

    Public Class frmMain
        Inherits System.Windows.Forms.Form

#Region " Windows 窗体设计器生成的代码 "

        Public Sub New()
            MyBase.New()

            '该调用是 Windows 窗体设计器所必需的。
            InitializeComponent()

            '在 InitializeComponent() 调用之后添加任何初始化

        End Sub

        '窗体重写处置以清理组件列表。
        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 MainMenu1 As System.Windows.Forms.MainMenu
        Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
        Friend WithEvents StatusBar1 As System.Windows.Forms.StatusBar
        Friend WithEvents ToolBarButton1 As System.Windows.Forms.ToolBarButton
        Friend WithEvents ToolBarButton2 As System.Windows.Forms.ToolBarButton
        Friend WithEvents ToolBarButton3 As System.Windows.Forms.ToolBarButton
        Friend WithEvents ToolBarButton4 As System.Windows.Forms.ToolBarButton
        Friend WithEvents ToolBarButton5 As System.Windows.Forms.ToolBarButton
        Friend WithEvents ToolBarButton6 As System.Windows.Forms.ToolBarButton
        Friend WithEvents ToolBarButton7 As System.Windows.Forms.ToolBarButton
        Friend WithEvents ToolBarButton8 As System.Windows.Forms.ToolBarButton
        Friend WithEvents ToolBarButton9 As System.Windows.Forms.ToolBarButton
        Friend WithEvents StatusBarPanel1 As System.Windows.Forms.StatusBarPanel
        Friend WithEvents StatusBarPanel2 As System.Windows.Forms.StatusBarPanel
        Friend WithEvents StatusBarPanel3 As System.Windows.Forms.StatusBarPanel
        Friend WithEvents StatusBarPanel4 As System.Windows.Forms.StatusBarPanel
        Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
        Friend WithEvents Panel1 As System.Windows.Forms.Panel
        Friend WithEvents Splitter1 As System.Windows.Forms.Splitter
        Friend WithEvents Label1 As System.Windows.Forms.Label
        Friend WithEvents Button1 As System.Windows.Forms.Button
        Friend WithEvents menuSystem As System.Windows.Forms.MenuItem
        Friend WithEvents menuModPwd As System.Windows.Forms.MenuItem
        Friend WithEvents menuForeSvc As System.Windows.Forms.MenuItem
        Friend WithEvents menuResure As System.Windows.Forms.MenuItem
        Friend WithEvents menuCustomer As System.Windows.Forms.MenuItem
        Friend WithEvents menuChkBill As System.Windows.Forms.MenuItem
        Friend WithEvents menuOrderSvc As System.Windows.Forms.MenuItem
        Friend WithEvents menuEngageOrder As System.Windows.Forms.MenuItem
        Friend WithEvents menuEngageSvc As System.Windows.Forms.MenuItem
        Friend WithEvents menuExpandSvc As System.Windows.Forms.MenuItem
        Friend WithEvents menuExpandOrder As System.Windows.Forms.MenuItem
        Friend WithEvents menuTransSvc As System.Windows.Forms.MenuItem
        Friend WithEvents menuClerk As System.Windows.Forms.MenuItem
        Friend WithEvents menuSep1 As System.Windows.Forms.MenuItem
        Friend WithEvents menuDBRestr As System.Windows.Forms.MenuItem
        Friend WithEvents menuSep2 As System.Windows.Forms.MenuItem
        Friend WithEvents menuExit As System.Windows.Forms.MenuItem
        Friend WithEvents menuHelp As System.Windows.Forms.MenuItem
        Friend WithEvents menuHelpContent As System.Windows.Forms.MenuItem
        Friend WithEvents menuSep3 As System.Windows.Forms.MenuItem
        Friend WithEvents menuSupport As System.Windows.Forms.MenuItem
        Friend WithEvents menuEmail As System.Windows.Forms.MenuItem
        Friend WithEvents menuSep4 As System.Windows.Forms.MenuItem
        Friend WithEvents menuAbout As System.Windows.Forms.MenuItem
        Friend WithEvents ToolBarButton10 As System.Windows.Forms.ToolBarButton
        Friend WithEvents ToolBarButton11 As System.Windows.Forms.ToolBarButton
        Friend WithEvents ToolBarButton12 As System.Windows.Forms.ToolBarButton
        Friend WithEvents ToolBarButton13 As System.Windows.Forms.ToolBarButton
        Friend WithEvents ToolBarButton14 As System.Windows.Forms.ToolBarButton
        Friend WithEvents ToolBarButton15 As System.Windows.Forms.ToolBarButton
        Friend WithEvents ToolBarButton16 As System.Windows.Forms.ToolBarButton
        Friend WithEvents ToolBarButton17 As System.Windows.Forms.ToolBarButton
        Friend WithEvents ToolBarButton18 As System.Windows.Forms.ToolBarButton
        Friend WithEvents menuUser As System.Windows.Forms.MenuItem
        Friend WithEvents menuDie As System.Windows.Forms.MenuItem
        Friend WithEvents menuHorizon As System.Windows.Forms.MenuItem
        Friend WithEvents menuVertify As System.Windows.Forms.MenuItem
        Friend WithEvents menuClsAll As System.Windows.Forms.MenuItem
        Friend WithEvents menuWindows As System.Windows.Forms.MenuItem
        Friend WithEvents menuMMenu As System.Windows.Forms.MenuItem
        Friend WithEvents menuEmployee As System.Windows.Forms.MenuItem
        Friend WithEvents menuDBShrink As System.Windows.Forms.MenuItem
        Friend WithEvents StatusTimer As System.Windows.Forms.Timer
        Friend WithEvents PanelTimer As System.Windows.Forms.Timer
        Friend WithEvents TreeView1 As System.Windows.Forms.TreeView
        Friend WithEvents menuDBBackup As System.Windows.Forms.MenuItem
        Friend WithEvents menuResources As System.Windows.Forms.MenuItem
        Friend WithEvents menuSeparators As System.Windows.Forms.MenuItem
        Friend WithEvents menuCustomerManager As System.Windows.Forms.MenuItem
        <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.MainMenu1 = New System.Windows.Forms.MainMenu
            Me.menuSystem = New System.Windows.Forms.MenuItem
            Me.menuModPwd = New System.Windows.Forms.MenuItem
            Me.menuUser = New System.Windows.Forms.MenuItem
            Me.menuSeparators = New System.Windows.Forms.MenuItem
            Me.menuMMenu = New System.Windows.Forms.MenuItem
            Me.menuResources = New System.Windows.Forms.MenuItem
            Me.menuCustomerManager = New System.Windows.Forms.MenuItem
            Me.menuSep1 = New System.Windows.Forms.MenuItem
            Me.menuDBBackup = New System.Windows.Forms.MenuItem
            Me.menuDBShrink = New System.Windows.Forms.MenuItem
            Me.menuDBRestr = New System.Windows.Forms.MenuItem
            Me.menuSep2 = New System.Windows.Forms.MenuItem
            Me.menuExit = New System.Windows.Forms.MenuItem
            Me.menuForeSvc = New System.Windows.Forms.MenuItem
            Me.menuResure = New System.Windows.Forms.MenuItem
            Me.menuCustomer = New System.Windows.Forms.MenuItem
            Me.menuChkBill = New System.Windows.Forms.MenuItem
            Me.menuOrderSvc = New System.Windows.Forms.MenuItem
            Me.menuEngageOrder = New System.Windows.Forms.MenuItem
            Me.menuEngageSvc = New System.Windows.Forms.MenuItem
            Me.menuExpandSvc = New System.Windows.Forms.MenuItem
            Me.menuExpandOrder = New System.Windows.Forms.MenuItem
            Me.menuTransSvc = New System.Windows.Forms.MenuItem
            Me.menuEmployee = New System.Windows.Forms.MenuItem
            Me.menuClerk = New System.Windows.Forms.MenuItem
            Me.menuWindows = New System.Windows.Forms.MenuItem
            Me.menuDie = New System.Windows.Forms.MenuItem
            Me.menuHorizon = New System.Windows.Forms.MenuItem
            Me.menuVertify = New System.Windows.Forms.MenuItem
            Me.menuClsAll = New System.Windows.Forms.MenuItem
            Me.menuHelp = New System.Windows.Forms.MenuItem
            Me.menuHelpContent = New System.Windows.Forms.MenuItem
            Me.menuSep3 = New System.Windows.Forms.MenuItem
            Me.menuSupport = New System.Windows.Forms.MenuItem
            Me.menuEmail = New System.Windows.Forms.MenuItem
            Me.menuSep4 = New System.Windows.Forms.MenuItem
            Me.menuAbout = New System.Windows.Forms.MenuItem
            Me.ToolBar1 = New System.Windows.Forms.ToolBar
            Me.ToolBarButton1 = New System.Windows.Forms.ToolBarButton
            Me.ToolBarButton2 = New System.Windows.Forms.ToolBarButton
            Me.ToolBarButton3 = New System.Windows.Forms.ToolBarButton
            Me.ToolBarButton4 = New System.Windows.Forms.ToolBarButton
            Me.ToolBarButton5 = New System.Windows.Forms.ToolBarButton
            Me.ToolBarButton6 = New System.Windows.Forms.ToolBarButton
            Me.ToolBarButton7 = New System.Windows.Forms.ToolBarButton
            Me.ToolBarButton8 = New System.Windows.Forms.ToolBarButton
            Me.ToolBarButton9 = New System.Windows.Forms.ToolBarButton
            Me.ToolBarButton10 = New System.Windows.Forms.ToolBarButton
            Me.ToolBarButton11 = New System.Windows.Forms.ToolBarButton
            Me.ToolBarButton12 = New System.Windows.Forms.ToolBarButton
            Me.ToolBarButton13 = New System.Windows.Forms.ToolBarButton
            Me.ToolBarButton14 = New System.Windows.Forms.ToolBarButton
            Me.ToolBarButton15 = New System.Windows.Forms.ToolBarButton
            Me.ToolBarButton16 = New System.Windows.Forms.ToolBarButton
            Me.ToolBarButton17 = New System.Windows.Forms.ToolBarButton
            Me.ToolBarButton18 = New System.Windows.Forms.ToolBarButton
            Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
            Me.StatusBar1 = New System.Windows.Forms.StatusBar
            Me.StatusBarPanel1 = New System.Windows.Forms.StatusBarPanel
            Me.StatusBarPanel2 = New System.Windows.Forms.StatusBarPanel
            Me.StatusBarPanel3 = New System.Windows.Forms.StatusBarPanel
            Me.StatusBarPanel4 = New System.Windows.Forms.StatusBarPanel
            Me.Panel1 = New System.Windows.Forms.Panel
            Me.TreeView1 = New System.Windows.Forms.TreeView
            Me.Button1 = New System.Windows.Forms.Button
            Me.Label1 = New System.Windows.Forms.Label
            Me.Splitter1 = New System.Windows.Forms.Splitter
            Me.StatusTimer = New System.Windows.Forms.Timer(Me.components)
            Me.PanelTimer = New System.Windows.Forms.Timer(Me.components)
            CType(Me.StatusBarPanel1, System.ComponentModel.ISupportInitialize).BeginInit()
            CType(Me.StatusBarPanel2, System.ComponentModel.ISupportInitialize).BeginInit()
            CType(Me.StatusBarPanel3, System.ComponentModel.ISupportInitialize).BeginInit()
            CType(Me.StatusBarPanel4, System.ComponentModel.ISupportInitialize).BeginInit()
            Me.Panel1.SuspendLayout()
            Me.SuspendLayout()
            '
            'MainMenu1
            '
            Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.menuSystem, Me.menuForeSvc, Me.menuOrderSvc, Me.menuExpandSvc, Me.menuEmployee, Me.menuWindows, Me.menuHelp})
            '
            'menuSystem
            '
            Me.menuSystem.Index = 0
            Me.menuSystem.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.menuModPwd, Me.menuUser, Me.menuSeparators, Me.menuMMenu, Me.menuResources, Me.menuCustomerManager, Me.menuSep1, Me.menuDBBackup, Me.menuDBShrink, Me.menuDBRestr, Me.menuSep2, Me.menuExit})
            Me.menuSystem.Text = "系统管理"
            '
            'menuModPwd
            '
            Me.menuModPwd.Index = 0
            Me.menuModPwd.Text = "修改密码"
            '
            'menuUser
            '
            Me.menuUser.Index = 1
            Me.menuUser.Text = "用户管理"
            '
            'menuSeparators
            '
            Me.menuSeparators.Index = 2
            Me.menuSeparators.Text = "-"
            '
            'menuMMenu
            '
            Me.menuMMenu.Index = 3
            Me.menuMMenu.Text = "菜谱管理"
            '
            'menuResources
            '
            Me.menuResources.Index = 4
            Me.menuResources.Text = "资源管理"
            '
            'menuCustomerManager
            '
            Me.menuCustomerManager.Index = 5
            Me.menuCustomerManager.Text = "会员管理"
            '
            'menuSep1
            '
            Me.menuSep1.Index = 6
            Me.menuSep1.Text = "-"
            '
            'menuDBBackup
            '
            Me.menuDBBackup.Index = 7
            Me.menuDBBackup.Text = "数据库备份"
            '
            'menuDBShrink
            '
            Me.menuDBShrink.Index = 8
            Me.menuDBShrink.Text = "数据库压缩"
            '
            'menuDBRestr
            '
            Me.menuDBRestr.Index = 9
            Me.menuDBRestr.Text = "数据库恢复"
            '
            'menuSep2
            '
            Me.menuSep2.Index = 10
            Me.menuSep2.Text = "-"
            '
            'menuExit
            '
            Me.menuExit.Index = 11
            Me.menuExit.Text = "退出系统"
            '
            'menuForeSvc
            '
            Me.menuForeSvc.Index = 1
            Me.menuForeSvc.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.menuResure, Me.menuCustomer, Me.menuChkBill})
            Me.menuForeSvc.Text = "前台营业"
            '
            'menuResure
            '
            Me.menuResure.Index = 0
            Me.menuResure.Text = "资源浏览"
            '
            'menuCustomer
            '
            Me.menuCustomer.Index = 1
            Me.menuCustomer.Text = "登记账单"
            '
            'menuChkBill
            '
            Me.menuChkBill.Index = 2
            Me.menuChkBill.Text = "结帐"
            '
            'menuOrderSvc
            '
            Me.menuOrderSvc.Index = 2
            Me.menuOrderSvc.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.menuEngageOrder, Me.menuEngageSvc})
            Me.menuOrderSvc.Text = "预定服务"
            '
            'menuEngageOrder
            '