frmordersmanager.vb

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

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

Namespace HZC.DinningService

    Public Class frmOrdersManager
        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 btnAdd As System.Windows.Forms.Button
        Friend WithEvents btnOk As System.Windows.Forms.Button
        Friend WithEvents btnQuery As System.Windows.Forms.Button
        Friend WithEvents QueryPages As System.Windows.Forms.TabControl
        Friend WithEvents OrdersPage As System.Windows.Forms.TabPage
        Friend WithEvents txtOrderID As System.Windows.Forms.TextBox
        Friend WithEvents lbOrderID As System.Windows.Forms.Label
        Friend WithEvents rdtInnerOrder As System.Windows.Forms.RadioButton
        Friend WithEvents rdtOuterOrder As System.Windows.Forms.RadioButton
        Friend WithEvents lbExcuteDate As System.Windows.Forms.Label
        Friend WithEvents OrderDateTime As System.Windows.Forms.DateTimePicker
        Friend WithEvents lbOrderDate As System.Windows.Forms.Label
        Friend WithEvents ProviderTables As System.Windows.Forms.CheckedListBox
        Friend WithEvents lbOrderPerson As System.Windows.Forms.Label
        Friend WithEvents lbOrderTelphone As System.Windows.Forms.Label
        Friend WithEvents lbOrderAddress As System.Windows.Forms.Label
        Friend WithEvents txtOrderName As System.Windows.Forms.TextBox
        Friend WithEvents txtOrderTelphone As System.Windows.Forms.TextBox
        Friend WithEvents txtOrderAddress As System.Windows.Forms.TextBox
        Friend WithEvents gpOrderInfo As System.Windows.Forms.GroupBox
        Friend WithEvents gpParator As System.Windows.Forms.GroupBox
        Friend WithEvents ExcuteDate As System.Windows.Forms.DateTimePicker
        Friend WithEvents txtQueryAddress As System.Windows.Forms.TextBox
        Friend WithEvents txtQueryTel As System.Windows.Forms.TextBox
        Friend WithEvents txtQueryName As System.Windows.Forms.TextBox
        Friend WithEvents QueryOrderDate As System.Windows.Forms.DateTimePicker
        Friend WithEvents rdtQueryOuterOrder As System.Windows.Forms.RadioButton
        Friend WithEvents rdtQueryInnerOrder As System.Windows.Forms.RadioButton
        Friend WithEvents QueryExcuteDate As System.Windows.Forms.DateTimePicker
        Friend WithEvents chkOrderDate As System.Windows.Forms.CheckBox
        Friend WithEvents chkQueryExcute As System.Windows.Forms.CheckBox
        Friend WithEvents chkQueryName As System.Windows.Forms.CheckBox
        Friend WithEvents chkQueryTel As System.Windows.Forms.CheckBox
        Friend WithEvents chkQueryAddress As System.Windows.Forms.CheckBox
        Friend WithEvents BillsPage As System.Windows.Forms.TabPage
        Friend WithEvents gpBillInfo As System.Windows.Forms.GroupBox
        Friend WithEvents btnAddBill As System.Windows.Forms.Button
        Friend WithEvents lbOrderContents As System.Windows.Forms.Label
        Friend WithEvents txtOrderContents As System.Windows.Forms.TextBox
        Friend WithEvents txtQueryContents As System.Windows.Forms.TextBox
        Friend WithEvents QueryList As System.Windows.Forms.ListBox
        Friend WithEvents BillsQueryPage As System.Windows.Forms.TabPage
        Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
        Friend WithEvents MenuGrid As System.Windows.Forms.DataGrid
        Friend WithEvents MenuList As System.Windows.Forms.ListBox
        Friend WithEvents ConsumeDateTime As System.Windows.Forms.DateTimePicker
        Friend WithEvents btnStartQuery As System.Windows.Forms.Button
        Friend WithEvents QueryDataGrid As System.Windows.Forms.DataGrid
        Friend WithEvents lbTableNum As System.Windows.Forms.Label
        Friend WithEvents lbBillCode As System.Windows.Forms.Label
        Friend WithEvents gpQuerInfo As System.Windows.Forms.GroupBox
        Friend WithEvents lbServiceTable As System.Windows.Forms.Label
        Friend WithEvents lbConsumeDate As System.Windows.Forms.Label
        Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
        Friend WithEvents cmbRooms As System.Windows.Forms.ComboBox
        Friend WithEvents cmbTables As System.Windows.Forms.ComboBox
        Friend WithEvents Label1 As System.Windows.Forms.Label
        Friend WithEvents txtRoomName As System.Windows.Forms.TextBox
        Friend WithEvents txtTableNumber As System.Windows.Forms.TextBox
        Friend WithEvents OrdersQueryPage As System.Windows.Forms.TabPage
        Friend WithEvents lbTablesList As System.Windows.Forms.Label
        Friend WithEvents gpOrdersQuery As System.Windows.Forms.GroupBox
        Friend WithEvents lbQueryTabelList As System.Windows.Forms.Label
        Friend WithEvents lbQueryOderContents As System.Windows.Forms.Label
        Friend WithEvents gpSeparator As System.Windows.Forms.GroupBox
        Friend WithEvents lbQueryOrderID As System.Windows.Forms.Label
        Friend WithEvents txtQueryOrderID As System.Windows.Forms.TextBox
        <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
            Me.gpOrderInfo = New System.Windows.Forms.GroupBox
            Me.txtOrderContents = New System.Windows.Forms.TextBox
            Me.lbOrderContents = New System.Windows.Forms.Label
            Me.gpParator = New System.Windows.Forms.GroupBox
            Me.txtOrderAddress = New System.Windows.Forms.TextBox
            Me.lbOrderAddress = New System.Windows.Forms.Label
            Me.txtOrderTelphone = New System.Windows.Forms.TextBox
            Me.lbOrderTelphone = New System.Windows.Forms.Label
            Me.txtOrderName = New System.Windows.Forms.TextBox
            Me.lbOrderPerson = New System.Windows.Forms.Label
            Me.ProviderTables = New System.Windows.Forms.CheckedListBox
            Me.OrderDateTime = New System.Windows.Forms.DateTimePicker
            Me.lbOrderDate = New System.Windows.Forms.Label
            Me.rdtOuterOrder = New System.Windows.Forms.RadioButton
            Me.rdtInnerOrder = New System.Windows.Forms.RadioButton
            Me.ExcuteDate = New System.Windows.Forms.DateTimePicker
            Me.lbTablesList = New System.Windows.Forms.Label
            Me.lbExcuteDate = New System.Windows.Forms.Label
            Me.txtOrderID = New System.Windows.Forms.TextBox
            Me.lbOrderID = New System.Windows.Forms.Label
            Me.btnAdd = New System.Windows.Forms.Button
            Me.btnOk = New System.Windows.Forms.Button
            Me.btnQuery = New System.Windows.Forms.Button
            Me.QueryPages = New System.Windows.Forms.TabControl
            Me.BillsPage = New System.Windows.Forms.TabPage
            Me.gpBillInfo = New System.Windows.Forms.GroupBox
            Me.cmbTables = New System.Windows.Forms.ComboBox
            Me.cmbRooms = New System.Windows.Forms.ComboBox
            Me.MenuList = New System.Windows.Forms.ListBox
            Me.GroupBox3 = New System.Windows.Forms.GroupBox
            Me.MenuGrid = New System.Windows.Forms.DataGrid
            Me.lbTableNum = New System.Windows.Forms.Label
            Me.lbBillCode = New System.Windows.Forms.Label
            Me.btnAddBill = New System.Windows.Forms.Button
            Me.BillsQueryPage = New System.Windows.Forms.TabPage
            Me.gpQuerInfo = New System.Windows.Forms.GroupBox
            Me.txtRoomName = New System.Windows.Forms.TextBox
            Me.Label1 = New System.Windows.Forms.Label
            Me.GroupBox4 = New System.Windows.Forms.GroupBox
            Me.QueryDataGrid = New System.Windows.Forms.DataGrid
            Me.btnStartQuery = New System.Windows.Forms.Button
            Me.txtTableNumber = New System.Windows.Forms.TextBox
            Me.ConsumeDateTime = New System.Windows.Forms.DateTimePicker
            Me.lbServiceTable = New System.Windows.Forms.Label
            Me.lbConsumeDate = New System.Windows.Forms.Label
            Me.OrdersPage = New System.Windows.Forms.TabPage
            Me.OrdersQueryPage = New System.Windows.Forms.TabPage
            Me.gpOrdersQuery = New System.Windows.Forms.GroupBox
            Me.QueryList = New System.Windows.Forms.ListBox
            Me.lbQueryTabelList = New System.Windows.Forms.Label
            Me.txtQueryContents = New System.Windows.Forms.TextBox
            Me.lbQueryOderContents = New System.Windows.Forms.Label
            Me.chkQueryAddress = New System.Windows.Forms.CheckBox
            Me.chkQueryTel = New System.Windows.Forms.CheckBox
            Me.chkQueryName = New System.Windows.Forms.CheckBox
            Me.chkQueryExcute = New System.Windows.Forms.CheckBox
            Me.chkOrderDate = New System.Windows.Forms.CheckBox
            Me.gpSeparator = New System.Windows.Forms.GroupBox
            Me.txtQueryAddress = New System.Windows.Forms.TextBox
            Me.txtQueryTel = New System.Windows.Forms.TextBox
            Me.txtQueryName = New System.Windows.Forms.TextBox
            Me.QueryOrderDate = New System.Windows.Forms.DateTimePicker
            Me.rdtQueryOuterOrder = New System.Windows.Forms.RadioButton
            Me.rdtQueryInnerOrder = New System.Windows.Forms.RadioButton
            Me.QueryExcuteDate = New System.Windows.Forms.DateTimePicker
            Me.txtQueryOrderID = New System.Windows.Forms.TextBox
            Me.lbQueryOrderID = New System.Windows.Forms.Label
            Me.gpOrderInfo.SuspendLayout()
            Me.QueryPages.SuspendLayout()
            Me.BillsPage.SuspendLayout()
            Me.gpBillInfo.SuspendLayout()
            Me.GroupBox3.SuspendLayout()
            CType(Me.MenuGrid, System.ComponentModel.ISupportInitialize).BeginInit()
            Me.BillsQueryPage.SuspendLayout()
            Me.gpQuerInfo.SuspendLayout()
            Me.GroupBox4.SuspendLayout()
            CType(Me.QueryDataGrid, System.ComponentModel.ISupportInitialize).BeginInit()
            Me.OrdersPage.SuspendLayout()
            Me.OrdersQueryPage.SuspendLayout()
            Me.gpOrdersQuery.SuspendLayout()
            Me.SuspendLayout()
            '
            'gpOrderInfo
            '
            Me.gpOrderInfo.Controls.Add(Me.txtOrderContents)
            Me.gpOrderInfo.Controls.Add(Me.lbOrderContents)
            Me.gpOrderInfo.Controls.Add(Me.gpParator)
            Me.gpOrderInfo.Controls.Add(Me.txtOrderAddress)
            Me.gpOrderInfo.Controls.Add(Me.lbOrderAddress)
            Me.gpOrderInfo.Controls.Add(Me.txtOrderTelphone)
            Me.gpOrderInfo.Controls.Add(Me.lbOrderTelphone)
            Me.gpOrderInfo.Controls.Add(Me.txtOrderName)
            Me.gpOrderInfo.Controls.Add(Me.lbOrderPerson)
            Me.gpOrderInfo.Controls.Add(Me.ProviderTables)
            Me.gpOrderInfo.Controls.Add(Me.OrderDateTime)
            Me.gpOrderInfo.Controls.Add(Me.lbOrderDate)
            Me.gpOrderInfo.Controls.Add(Me.rdtOuterOrder)
            Me.gpOrderInfo.Controls.Add(Me.rdtInnerOrder)
            Me.gpOrderInfo.Controls.Add(Me.ExcuteDate)
            Me.gpOrderInfo.Controls.Add(Me.lbTablesList)
            Me.gpOrderInfo.Controls.Add(Me.lbExcuteDate)
            Me.gpOrderInfo.Controls.Add(Me.txtOrderID)
            Me.gpOrderInfo.Controls.Add(Me.lbOrderID)
            Me.gpOrderInfo.Controls.Add(Me.btnAdd)
            Me.gpOrderInfo.Dock = System.Windows.Forms.DockStyle.Fill
            Me.gpOrderInfo.ForeColor = System.Drawing.Color.Navy
            Me.gpOrderInfo.Location = New System.Drawing.Point(0, 0)
            Me.gpOrderInfo.Name = "gpOrderInfo"
            Me.gpOrderInfo.Size = New System.Drawing.Size(448, 335)
            Me.gpOrderInfo.TabIndex = 0
            Me.gpOrderInfo.TabStop = False
            '
            'txtOrderContents
            '
            Me.txtOrderContents.BackColor = System.Drawing.Color.Cornsilk
            Me.txtOrderContents.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
            Me.txtOrderContents.Enabled = False
            Me.txtOrderContents.Location = New System.Drawing.Point(80, 216)
            Me.txtOrderContents.Name = "txtOrderContents"
            Me.txtOrderContents.Size = New System.Drawing.Size(176, 21)
            Me.txtOrderContents.TabIndex = 25
            Me.txtOrderContents.Text = ""
            '
            'lbOrderContents
            '
            Me.lbOrderContents.Location = New System.Drawing.Point(8, 216)
            Me.lbOrderContents.Name = "lbOrderContents"
            Me.lbOrderContents.Size = New System.Drawing.Size(64, 21)
            Me.lbOrderContents.TabIndex = 24
            Me.lbOrderContents.Text = "订单内容"
            Me.lbOrderContents.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
            '
            'gpParator
            '
            Me.gpParator.Location = New System.Drawing.Point(8, 40)
            Me.gpParator.Name = "gpParator"
            Me.gpParator.Size = New System.Drawing.Size(432, 8)
            Me.gpParator.TabIndex = 23
            Me.gpParator.TabStop = False
            '
            'txtOrderAddress
            '
            Me.txtOrderAddress.BackColor = System.Drawing.Color.Cornsilk
            Me.txtOrderAddress.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
            Me.txtOrderAddress.Enabled = False
            Me.txtOrderAddress.Location = New System.Drawing.Point(80, 248)
            Me.txtOrderAddress.Multiline = True
            Me.txtOrderAddress.Name = "txtOrderAddress"