📄 frmmain.vb
字号:
Me.menuEngageOrder.Index = 0
Me.menuEngageOrder.Text = "预定订单"
'
'menuEngageSvc
'
Me.menuEngageSvc.Index = 1
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.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.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
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(208, 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)
Me.TreeView1.BackColor = System.Drawing.SystemColors.Info
Me.TreeView1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
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.FullRowSelect = True
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(208, 392)
Me.TreeView1.TabIndex = 3
'
'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(180, 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(180, 24)
Me.Label1.TabIndex = 0
Me.Label1.Text = "餐饮服务模块"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.BottomCenter
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -