main.vb

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

        Me.menuEngageSvc.Text = "酒宴服务"
        '
        'menuExpandSvc
        '
        Me.menuExpandSvc.Index = 3
        Me.menuExpandSvc.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.menuExpandOrder, Me.menuTransSvc})
        Me.menuExpandSvc.Text = "外卖服务"
        '
        'menuExpandOrder
        '
        Me.menuExpandOrder.Index = 0
        Me.menuExpandOrder.Text = "外卖订单"
        '
        'menuTransSvc
        '
        Me.menuTransSvc.Index = 1
        Me.menuTransSvc.Text = "送货服务"
        '
        'menuEmployee
        '
        Me.menuEmployee.Index = 4
        Me.menuEmployee.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.menuClerk})
        Me.menuEmployee.Text = "员工管理"
        '
        'menuClerk
        '
        Me.menuClerk.Index = 0
        Me.menuClerk.Text = "员工管理"
        '
        'menuWindows
        '
        Me.menuWindows.Index = 5
        Me.menuWindows.MdiList = True
        Me.menuWindows.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.menuDie, Me.menuHorizon, Me.menuVertify, Me.menuClsAll})
        Me.menuWindows.Text = "窗体"
        '
        'menuDie
        '
        Me.menuDie.Index = 0
        Me.menuDie.Text = "窗体层叠"
        '
        'menuHorizon
        '
        Me.menuHorizon.Index = 1
        Me.menuHorizon.Text = "水平平铺"
        '
        'menuVertify
        '
        Me.menuVertify.Index = 2
        Me.menuVertify.Text = "垂直平铺"
        '
        'menuClsAll
        '
        Me.menuClsAll.Index = 3
        Me.menuClsAll.Text = "关闭所有子窗体"
        '
        'menuHelp
        '
        Me.menuHelp.Index = 6
        Me.menuHelp.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.menuHelpContent, Me.menuSep3, Me.menuSupport, Me.menuEmail, Me.menuSep4, Me.menuAbout})
        Me.menuHelp.Text = "帮助"
        '
        'menuHelpContent
        '
        Me.menuHelpContent.Index = 0
        Me.menuHelpContent.Text = "帮助主题"
        '
        'menuSep3
        '
        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.Location = New System.Drawing.Point(0, 0)
        Me.ToolBar1.Name = "ToolBar1"
        Me.ToolBar1.ShowToolTips = True
        Me.ToolBar1.Size = New System.Drawing.Size(656, 30)
        Me.ToolBar1.TabIndex = 0
        '
        'ToolBarButton1
        '
        Me.ToolBarButton1.Name = "ToolBarButton1"
        Me.ToolBarButton1.Pushed = True
        Me.ToolBarButton1.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'ToolBarButton2
        '
        Me.ToolBarButton2.Name = "ToolBarButton2"
        Me.ToolBarButton2.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'ToolBarButton3
        '
        Me.ToolBarButton3.ImageIndex = 16
        Me.ToolBarButton3.Name = "ToolBarButton3"
        Me.ToolBarButton3.ToolTipText = "修改密码"
        '
        'ToolBarButton4
        '
        Me.ToolBarButton4.ImageIndex = 4
        Me.ToolBarButton4.Name = "ToolBarButton4"
        Me.ToolBarButton4.ToolTipText = "员工管理"
        '
        'ToolBarButton5
        '
        Me.ToolBarButton5.Name = "ToolBarButton5"
        Me.ToolBarButton5.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'ToolBarButton6
        '
        Me.ToolBarButton6.ImageIndex = 5
        Me.ToolBarButton6.Name = "ToolBarButton6"
        Me.ToolBarButton6.ToolTipText = "点菜菜谱"
        '
        'ToolBarButton7
        '
        Me.ToolBarButton7.ImageIndex = 8
        Me.ToolBarButton7.Name = "ToolBarButton7"
        Me.ToolBarButton7.ToolTipText = "资源浏览"
        '
        'ToolBarButton8
        '
        Me.ToolBarButton8.ImageIndex = 9
        Me.ToolBarButton8.Name = "ToolBarButton8"
        Me.ToolBarButton8.ToolTipText = "登记账单"
        '
        'ToolBarButton9
        '
        Me.ToolBarButton9.ImageIndex = 0
        Me.ToolBarButton9.Name = "ToolBarButton9"
        Me.ToolBarButton9.ToolTipText = "结账"
        '
        'ToolBarButton10
        '
        Me.ToolBarButton10.Name = "ToolBarButton10"
        Me.ToolBarButton10.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'ToolBarButton11
        '
        Me.ToolBarButton11.ImageIndex = 10
        Me.ToolBarButton11.Name = "ToolBarButton11"
        Me.ToolBarButton11.ToolTipText = "预订订单"
        '
        'ToolBarButton12
        '
        Me.ToolBarButton12.ImageIndex = 12
        Me.ToolBarButton12.Name = "ToolBarButton12"
        Me.ToolBarButton12.ToolTipText = "酒宴服务"
        '
        'ToolBarButton13
        '
        Me.ToolBarButton13.Name = "ToolBarButton13"
        Me.ToolBarButton13.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'ToolBarButton14
        '
        Me.ToolBarButton14.ImageIndex = 11
        Me.ToolBarButton14.Name = "ToolBarButton14"
        Me.ToolBarButton14.ToolTipText = "外卖订单"
        '
        'ToolBarButton15
        '
        Me.ToolBarButton15.ImageIndex = 13
        Me.ToolBarButton15.Name = "ToolBarButton15"
        Me.ToolBarButton15.ToolTipText = "外送服务"
        '
        'ToolBarButton16
        '
        Me.ToolBarButton16.Name = "ToolBarButton16"
        Me.ToolBarButton16.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'ToolBarButton17
        '
        Me.ToolBarButton17.ImageIndex = 15
        Me.ToolBarButton17.Name = "ToolBarButton17"
        Me.ToolBarButton17.ToolTipText = "帮助"
        '
        'ToolBarButton18
        '
        Me.ToolBarButton18.ImageIndex = 14
        Me.ToolBarButton18.Name = "ToolBarButton18"
        Me.ToolBarButton18.ToolTipText = "退出系统"
        '
        'ImageList1
        '
        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
        Me.ImageList1.Images.SetKeyName(0, "")
        Me.ImageList1.Images.SetKeyName(1, "")
        Me.ImageList1.Images.SetKeyName(2, "")
        Me.ImageList1.Images.SetKeyName(3, "")
        Me.ImageList1.Images.SetKeyName(4, "")
        Me.ImageList1.Images.SetKeyName(5, "")
        Me.ImageList1.Images.SetKeyName(6, "")
        Me.ImageList1.Images.SetKeyName(7, "")
        Me.ImageList1.Images.SetKeyName(8, "")
        Me.ImageList1.Images.SetKeyName(9, "")
        Me.ImageList1.Images.SetKeyName(10, "")
        Me.ImageList1.Images.SetKeyName(11, "")
        Me.ImageList1.Images.SetKeyName(12, "")
        Me.ImageList1.Images.SetKeyName(13, "")
        Me.ImageList1.Images.SetKeyName(14, "")
        Me.ImageList1.Images.SetKeyName(15, "")
        Me.ImageList1.Images.SetKeyName(16, "")
        '
        '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.Name = "StatusBarPanel1"
        Me.StatusBarPanel1.Text = "  欢迎光临"
        Me.StatusBarPanel1.Width = 340
        '
        'StatusBarPanel2
        '
        Me.StatusBarPanel2.Name = "StatusBarPanel2"
        Me.StatusBarPanel2.Text = "软件名称"
        '
        'StatusBarPanel3
        '
        Me.StatusBarPanel3.Name = "StatusBarPanel3"
        Me.StatusBarPanel3.Text = "操作人"
        '
        'StatusBarPanel4
        '
        Me.StatusBarPanel4.Alignment = System.Windows.Forms.HorizontalAlignment.Center
        Me.StatusBarPanel4.Name = "StatusBarPanel4"
        Me.StatusBarPanel4.Text = "时间"
        '
        'Panel1
        '
        Me.Panel1.Controls.Add(Me.TreeView1)
        Me.Panel1.Controls.Add(Me.Button1)
        Me.Panel1.Controls.Add(Me.Label1)
        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Left
        Me.Panel1.Location = New System.Drawing.Point(0, 30)
        Me.Panel1.Name = "Panel1"
        Me.Panel1.Size = New System.Drawing.Size(220, 421)
        Me.Panel1.TabIndex = 3
        '
        'TreeView1
        '
        Me.TreeView1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)