frmresourcebrowse.vb

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

Imports System
Imports System.Data
Imports System.Drawing
Imports System.Collections
Imports System.Data.SqlClient

Namespace HZC.DinningService

    Public Class frmResourceBrowse
        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 ResourceStatus As System.Windows.Forms.StatusBar
        Friend WithEvents RoomsPanel As System.Windows.Forms.Panel
        Friend WithEvents VerticleSplitter As System.Windows.Forms.Splitter
        Friend WithEvents lbTable As System.Windows.Forms.Label
        Friend WithEvents lbRooms As System.Windows.Forms.Label
        Friend WithEvents RoomsTree As System.Windows.Forms.TreeView
        Friend WithEvents TablesPanel As System.Windows.Forms.Panel
        Friend WithEvents CurrentRoom As System.Windows.Forms.StatusBarPanel
        Friend WithEvents CurrentTable As System.Windows.Forms.StatusBarPanel
        Friend WithEvents CurrentStatus As System.Windows.Forms.StatusBarPanel
        Friend WithEvents RoomNamePanel As System.Windows.Forms.StatusBarPanel
        Friend WithEvents TableNumberPanel As System.Windows.Forms.StatusBarPanel
        Friend WithEvents TableStatusPanel As System.Windows.Forms.StatusBarPanel
        Friend WithEvents ContainPersons As System.Windows.Forms.StatusBarPanel
        Friend WithEvents ContainPersonsPanel As System.Windows.Forms.StatusBarPanel
        Friend WithEvents TreesImageList As System.Windows.Forms.ImageList
        <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
            Me.components = New System.ComponentModel.Container
            Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmResourceBrowse))
            Me.ResourceStatus = New System.Windows.Forms.StatusBar
            Me.CurrentRoom = New System.Windows.Forms.StatusBarPanel
            Me.RoomNamePanel = New System.Windows.Forms.StatusBarPanel
            Me.CurrentTable = New System.Windows.Forms.StatusBarPanel
            Me.TableNumberPanel = New System.Windows.Forms.StatusBarPanel
            Me.ContainPersons = New System.Windows.Forms.StatusBarPanel
            Me.ContainPersonsPanel = New System.Windows.Forms.StatusBarPanel
            Me.CurrentStatus = New System.Windows.Forms.StatusBarPanel
            Me.TableStatusPanel = New System.Windows.Forms.StatusBarPanel
            Me.RoomsPanel = New System.Windows.Forms.Panel
            Me.RoomsTree = New System.Windows.Forms.TreeView
            Me.TreesImageList = New System.Windows.Forms.ImageList(Me.components)
            Me.lbRooms = New System.Windows.Forms.Label
            Me.VerticleSplitter = New System.Windows.Forms.Splitter
            Me.lbTable = New System.Windows.Forms.Label
            Me.TablesPanel = New System.Windows.Forms.Panel
            CType(Me.CurrentRoom, System.ComponentModel.ISupportInitialize).BeginInit()
            CType(Me.RoomNamePanel, System.ComponentModel.ISupportInitialize).BeginInit()
            CType(Me.CurrentTable, System.ComponentModel.ISupportInitialize).BeginInit()
            CType(Me.TableNumberPanel, System.ComponentModel.ISupportInitialize).BeginInit()
            CType(Me.ContainPersons, System.ComponentModel.ISupportInitialize).BeginInit()
            CType(Me.ContainPersonsPanel, System.ComponentModel.ISupportInitialize).BeginInit()
            CType(Me.CurrentStatus, System.ComponentModel.ISupportInitialize).BeginInit()
            CType(Me.TableStatusPanel, System.ComponentModel.ISupportInitialize).BeginInit()
            Me.RoomsPanel.SuspendLayout()
            Me.SuspendLayout()
            '
            'ResourceStatus
            '
            Me.ResourceStatus.Location = New System.Drawing.Point(0, 482)
            Me.ResourceStatus.Name = "ResourceStatus"
            Me.ResourceStatus.Panels.AddRange(New System.Windows.Forms.StatusBarPanel() {Me.CurrentRoom, Me.RoomNamePanel, Me.CurrentTable, Me.TableNumberPanel, Me.ContainPersons, Me.ContainPersonsPanel, Me.CurrentStatus, Me.TableStatusPanel})
            Me.ResourceStatus.ShowPanels = True
            Me.ResourceStatus.Size = New System.Drawing.Size(698, 22)
            Me.ResourceStatus.TabIndex = 0
            '
            'CurrentRoom
            '
            Me.CurrentRoom.AutoSize = System.Windows.Forms.StatusBarPanelAutoSize.Contents
            Me.CurrentRoom.Text = "所在房间"
            Me.CurrentRoom.Width = 64
            '
            'RoomNamePanel
            '
            Me.RoomNamePanel.Alignment = System.Windows.Forms.HorizontalAlignment.Center
            Me.RoomNamePanel.AutoSize = System.Windows.Forms.StatusBarPanelAutoSize.Contents
            Me.RoomNamePanel.ToolTipText = "显示所在的房间"
            Me.RoomNamePanel.Width = 10
            '
            'CurrentTable
            '
            Me.CurrentTable.AutoSize = System.Windows.Forms.StatusBarPanelAutoSize.Contents
            Me.CurrentTable.Text = "桌号"
            Me.CurrentTable.Width = 39
            '
            'TableNumberPanel
            '
            Me.TableNumberPanel.Alignment = System.Windows.Forms.HorizontalAlignment.Center
            Me.TableNumberPanel.ToolTipText = "显示当前选中的桌号"
            Me.TableNumberPanel.Width = 50
            '
            'ContainPersons
            '
            Me.ContainPersons.AutoSize = System.Windows.Forms.StatusBarPanelAutoSize.Contents
            Me.ContainPersons.Text = "容纳人数"
            Me.ContainPersons.Width = 64
            '
            'ContainPersonsPanel
            '
            Me.ContainPersonsPanel.Alignment = System.Windows.Forms.HorizontalAlignment.Center
            Me.ContainPersonsPanel.ToolTipText = "显示可容纳最大人数"
            Me.ContainPersonsPanel.Width = 50
            '
            'CurrentStatus
            '
            Me.CurrentStatus.AutoSize = System.Windows.Forms.StatusBarPanelAutoSize.Contents
            Me.CurrentStatus.Text = "当前状态"
            Me.CurrentStatus.Width = 64
            '
            'TableStatusPanel
            '
            Me.TableStatusPanel.Alignment = System.Windows.Forms.HorizontalAlignment.Center
            Me.TableStatusPanel.AutoSize = System.Windows.Forms.StatusBarPanelAutoSize.Spring
            Me.TableStatusPanel.ToolTipText = "显示当前状态"
            Me.TableStatusPanel.Width = 341
            '
            'RoomsPanel
            '
            Me.RoomsPanel.Controls.Add(Me.RoomsTree)
            Me.RoomsPanel.Controls.Add(Me.lbRooms)
            Me.RoomsPanel.Dock = System.Windows.Forms.DockStyle.Left
            Me.RoomsPanel.Location = New System.Drawing.Point(0, 0)
            Me.RoomsPanel.Name = "RoomsPanel"
            Me.RoomsPanel.Size = New System.Drawing.Size(200, 482)
            Me.RoomsPanel.TabIndex = 1
            '
            'RoomsTree
            '
            Me.RoomsTree.BackColor = System.Drawing.SystemColors.Info
            Me.RoomsTree.Dock = System.Windows.Forms.DockStyle.Fill
            Me.RoomsTree.ForeColor = System.Drawing.Color.Navy
            Me.RoomsTree.FullRowSelect = True
            Me.RoomsTree.ImageList = Me.TreesImageList
            Me.RoomsTree.Indent = 24
            Me.RoomsTree.ItemHeight = 18
            Me.RoomsTree.Location = New System.Drawing.Point(0, 24)
            Me.RoomsTree.Name = "RoomsTree"
            Me.RoomsTree.Size = New System.Drawing.Size(200, 458)
            Me.RoomsTree.TabIndex = 1
            '
            'TreesImageList
            '
            Me.TreesImageList.ImageSize = New System.Drawing.Size(16, 16)
            Me.TreesImageList.ImageStream = CType(resources.GetObject("TreesImageList.ImageStream"), System.Windows.Forms.ImageListStreamer)
            Me.TreesImageList.TransparentColor = System.Drawing.Color.Transparent
            '
            'lbRooms
            '
            Me.lbRooms.Dock = System.Windows.Forms.DockStyle.Top
            Me.lbRooms.ForeColor = System.Drawing.Color.Navy
            Me.lbRooms.Location = New System.Drawing.Point(0, 0)
            Me.lbRooms.Name = "lbRooms"
            Me.lbRooms.Size = New System.Drawing.Size(200, 24)
            Me.lbRooms.TabIndex = 0
            Me.lbRooms.Text = "资源使用状态"
            Me.lbRooms.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
            '
            'VerticleSplitter
            '
            Me.VerticleSplitter.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
            Me.VerticleSplitter.Location = New System.Drawing.Point(200, 0)
            Me.VerticleSplitter.MinExtra = 425
            Me.VerticleSplitter.MinSize = 125
            Me.VerticleSplitter.Name = "VerticleSplitter"
            Me.VerticleSplitter.Size = New System.Drawing.Size(3, 482)
            Me.VerticleSplitter.TabIndex = 2
            Me.VerticleSplitter.TabStop = False
            '
            'lbTable
            '
            Me.lbTable.BackColor = System.Drawing.SystemColors.Control
            Me.lbTable.Dock = System.Windows.Forms.DockStyle.Top
            Me.lbTable.ForeColor = System.Drawing.Color.Navy
            Me.lbTable.Location = New System.Drawing.Point(203, 0)