frmordersmanager.vb

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

            Me.MenuGrid.CaptionForeColor = System.Drawing.Color.White
            Me.MenuGrid.DataMember = ""
            Me.MenuGrid.FlatMode = True
            Me.MenuGrid.ForeColor = System.Drawing.Color.Black
            Me.MenuGrid.GridLineColor = System.Drawing.Color.White
            Me.MenuGrid.HeaderBackColor = System.Drawing.Color.DarkGray
            Me.MenuGrid.HeaderForeColor = System.Drawing.Color.Black
            Me.MenuGrid.LinkColor = System.Drawing.Color.DarkSlateBlue
            Me.MenuGrid.Location = New System.Drawing.Point(8, 16)
            Me.MenuGrid.Name = "MenuGrid"
            Me.MenuGrid.ParentRowsBackColor = System.Drawing.Color.Black
            Me.MenuGrid.ParentRowsForeColor = System.Drawing.Color.White
            Me.MenuGrid.PreferredColumnWidth = 60
            Me.MenuGrid.PreferredRowHeight = 18
            Me.MenuGrid.ReadOnly = True
            Me.MenuGrid.RowHeaderWidth = 20
            Me.MenuGrid.SelectionBackColor = System.Drawing.Color.DarkSlateBlue
            Me.MenuGrid.SelectionForeColor = System.Drawing.Color.White
            Me.MenuGrid.Size = New System.Drawing.Size(416, 192)
            Me.MenuGrid.TabIndex = 0
            '
            'lbTableNum
            '
            Me.lbTableNum.ForeColor = System.Drawing.Color.Navy
            Me.lbTableNum.Location = New System.Drawing.Point(16, 56)
            Me.lbTableNum.Name = "lbTableNum"
            Me.lbTableNum.Size = New System.Drawing.Size(72, 21)
            Me.lbTableNum.TabIndex = 2
            Me.lbTableNum.Text = "服务桌号："
            Me.lbTableNum.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
            '
            'lbBillCode
            '
            Me.lbBillCode.ForeColor = System.Drawing.Color.Navy
            Me.lbBillCode.Location = New System.Drawing.Point(16, 24)
            Me.lbBillCode.Name = "lbBillCode"
            Me.lbBillCode.Size = New System.Drawing.Size(72, 21)
            Me.lbBillCode.TabIndex = 0
            Me.lbBillCode.Text = "所在房间："
            Me.lbBillCode.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
            '
            'btnAddBill
            '
            Me.btnAddBill.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.btnAddBill.ForeColor = System.Drawing.Color.Navy
            Me.btnAddBill.Location = New System.Drawing.Point(160, 88)
            Me.btnAddBill.Name = "btnAddBill"
            Me.btnAddBill.Size = New System.Drawing.Size(72, 24)
            Me.btnAddBill.TabIndex = 3
            Me.btnAddBill.Text = "登记帐单"
            '
            'BillsQueryPage
            '
            Me.BillsQueryPage.Controls.Add(Me.gpQuerInfo)
            Me.BillsQueryPage.ForeColor = System.Drawing.Color.Navy
            Me.BillsQueryPage.Location = New System.Drawing.Point(4, 21)
            Me.BillsQueryPage.Name = "BillsQueryPage"
            Me.BillsQueryPage.Size = New System.Drawing.Size(448, 335)
            Me.BillsQueryPage.TabIndex = 3
            Me.BillsQueryPage.Text = "帐单查询"
            Me.BillsQueryPage.ToolTipText = "帐单查询"
            '
            'gpQuerInfo
            '
            Me.gpQuerInfo.Controls.Add(Me.txtRoomName)
            Me.gpQuerInfo.Controls.Add(Me.Label1)
            Me.gpQuerInfo.Controls.Add(Me.GroupBox4)
            Me.gpQuerInfo.Controls.Add(Me.btnStartQuery)
            Me.gpQuerInfo.Controls.Add(Me.txtTableNumber)
            Me.gpQuerInfo.Controls.Add(Me.ConsumeDateTime)
            Me.gpQuerInfo.Controls.Add(Me.lbServiceTable)
            Me.gpQuerInfo.Controls.Add(Me.lbConsumeDate)
            Me.gpQuerInfo.Dock = System.Windows.Forms.DockStyle.Fill
            Me.gpQuerInfo.Location = New System.Drawing.Point(0, 0)
            Me.gpQuerInfo.Name = "gpQuerInfo"
            Me.gpQuerInfo.Size = New System.Drawing.Size(448, 335)
            Me.gpQuerInfo.TabIndex = 0
            Me.gpQuerInfo.TabStop = False
            '
            'txtRoomName
            '
            Me.txtRoomName.BackColor = System.Drawing.Color.Cornsilk
            Me.txtRoomName.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
            Me.txtRoomName.Location = New System.Drawing.Point(88, 88)
            Me.txtRoomName.Name = "txtRoomName"
            Me.txtRoomName.Size = New System.Drawing.Size(264, 21)
            Me.txtRoomName.TabIndex = 8
            Me.txtRoomName.Text = ""
            Me.txtRoomName.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
            '
            'Label1
            '
            Me.Label1.Location = New System.Drawing.Point(8, 88)
            Me.Label1.Name = "Label1"
            Me.Label1.Size = New System.Drawing.Size(72, 21)
            Me.Label1.TabIndex = 7
            Me.Label1.Text = "所在房间："
            Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
            '
            'GroupBox4
            '
            Me.GroupBox4.Controls.Add(Me.QueryDataGrid)
            Me.GroupBox4.Location = New System.Drawing.Point(8, 112)
            Me.GroupBox4.Name = "GroupBox4"
            Me.GroupBox4.Size = New System.Drawing.Size(432, 216)
            Me.GroupBox4.TabIndex = 6
            Me.GroupBox4.TabStop = False
            '
            'QueryDataGrid
            '
            Me.QueryDataGrid.AlternatingBackColor = System.Drawing.Color.Gainsboro
            Me.QueryDataGrid.BackColor = System.Drawing.Color.Silver
            Me.QueryDataGrid.CaptionBackColor = System.Drawing.Color.DarkSlateBlue
            Me.QueryDataGrid.CaptionFont = New System.Drawing.Font("Tahoma", 8.0!)
            Me.QueryDataGrid.CaptionForeColor = System.Drawing.Color.White
            Me.QueryDataGrid.DataMember = ""
            Me.QueryDataGrid.FlatMode = True
            Me.QueryDataGrid.ForeColor = System.Drawing.Color.Black
            Me.QueryDataGrid.GridLineColor = System.Drawing.Color.White
            Me.QueryDataGrid.HeaderBackColor = System.Drawing.Color.DarkGray
            Me.QueryDataGrid.HeaderForeColor = System.Drawing.Color.Black
            Me.QueryDataGrid.LinkColor = System.Drawing.Color.DarkSlateBlue
            Me.QueryDataGrid.Location = New System.Drawing.Point(8, 16)
            Me.QueryDataGrid.Name = "QueryDataGrid"
            Me.QueryDataGrid.ParentRowsBackColor = System.Drawing.Color.Black
            Me.QueryDataGrid.ParentRowsForeColor = System.Drawing.Color.White
            Me.QueryDataGrid.ReadOnly = True
            Me.QueryDataGrid.SelectionBackColor = System.Drawing.Color.DarkSlateBlue
            Me.QueryDataGrid.SelectionForeColor = System.Drawing.Color.White
            Me.QueryDataGrid.Size = New System.Drawing.Size(416, 192)
            Me.QueryDataGrid.TabIndex = 5
            '
            'btnStartQuery
            '
            Me.btnStartQuery.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.btnStartQuery.Location = New System.Drawing.Point(360, 85)
            Me.btnStartQuery.Name = "btnStartQuery"
            Me.btnStartQuery.Size = New System.Drawing.Size(80, 24)
            Me.btnStartQuery.TabIndex = 4
            Me.btnStartQuery.Text = "开始查询"
            '
            'txtTableNumber
            '
            Me.txtTableNumber.BackColor = System.Drawing.Color.Cornsilk
            Me.txtTableNumber.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
            Me.txtTableNumber.Location = New System.Drawing.Point(88, 56)
            Me.txtTableNumber.Name = "txtTableNumber"
            Me.txtTableNumber.Size = New System.Drawing.Size(264, 21)
            Me.txtTableNumber.TabIndex = 3
            Me.txtTableNumber.Text = ""
            Me.txtTableNumber.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
            '
            'ConsumeDateTime
            '
            Me.ConsumeDateTime.Location = New System.Drawing.Point(88, 24)
            Me.ConsumeDateTime.Name = "ConsumeDateTime"
            Me.ConsumeDateTime.Size = New System.Drawing.Size(352, 21)
            Me.ConsumeDateTime.TabIndex = 2
            '
            'lbServiceTable
            '
            Me.lbServiceTable.Location = New System.Drawing.Point(8, 56)
            Me.lbServiceTable.Name = "lbServiceTable"
            Me.lbServiceTable.Size = New System.Drawing.Size(72, 21)
            Me.lbServiceTable.TabIndex = 1
            Me.lbServiceTable.Text = "服务桌号："
            Me.lbServiceTable.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
            '
            'lbConsumeDate
            '
            Me.lbConsumeDate.Location = New System.Drawing.Point(8, 24)
            Me.lbConsumeDate.Name = "lbConsumeDate"
            Me.lbConsumeDate.Size = New System.Drawing.Size(80, 21)
            Me.lbConsumeDate.TabIndex = 0
            Me.lbConsumeDate.Text = "消费日期："
            Me.lbConsumeDate.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
            '
            'OrdersPage
            '
            Me.OrdersPage.Controls.Add(Me.gpOrderInfo)
            Me.OrdersPage.Location = New System.Drawing.Point(4, 21)
            Me.OrdersPage.Name = "OrdersPage"
            Me.OrdersPage.Size = New System.Drawing.Size(448, 335)
            Me.OrdersPage.TabIndex = 0
            Me.OrdersPage.Text = "订单管理"
            '
            'OrdersQueryPage
            '
            Me.OrdersQueryPage.Controls.Add(Me.gpOrdersQuery)
            Me.OrdersQueryPage.ForeColor = System.Drawing.Color.Navy
            Me.OrdersQueryPage.Location = New System.Drawing.Point(4, 21)
            Me.OrdersQueryPage.Name = "OrdersQueryPage"
            Me.OrdersQueryPage.Size = New System.Drawing.Size(448, 335)
            Me.OrdersQueryPage.TabIndex = 1
            Me.OrdersQueryPage.Text = "订单查询"
            '
            'gpOrdersQuery
            '
            Me.gpOrdersQuery.Controls.Add(Me.QueryList)
            Me.gpOrdersQuery.Controls.Add(Me.lbQueryTabelList)
            Me.gpOrdersQuery.Controls.Add(Me.txtQueryContents)
            Me.gpOrdersQuery.Controls.Add(Me.lbQueryOderContents)
            Me.gpOrdersQuery.Controls.Add(Me.chkQueryAddress)
            Me.gpOrdersQuery.Controls.Add(Me.chkQueryTel)
            Me.gpOrdersQuery.Controls.Add(Me.chkQueryName)
            Me.gpOrdersQuery.Controls.Add(Me.chkQueryExcute)
            Me.gpOrdersQuery.Controls.Add(Me.chkOrderDate)
            Me.gpOrdersQuery.Controls.Add(Me.gpSeparator)
            Me.gpOrdersQuery.Controls.Add(Me.txtQueryAddress)
            Me.gpOrdersQuery.Controls.Add(Me.txtQueryTel)
            Me.gpOrdersQuery.Controls.Add(Me.txtQueryName)
            Me.gpOrdersQuery.Controls.Add(Me.QueryOrderDate)
            Me.gpOrdersQuery.Controls.Add(Me.rdtQueryOuterOrder)
            Me.gpOrdersQuery.Controls.Add(Me.rdtQueryInnerOrder)
            Me.gpOrdersQuery.Controls.Add(Me.QueryExcuteDate)
            Me.gpOrdersQuery.Controls.Add(Me.txtQueryOrderID)
            Me.gpOrdersQuery.Controls.Add(Me.lbQueryOrderID)
            Me.gpOrdersQuery.Controls.Add(Me.btnQuery)
            Me.gpOrdersQuery.Dock = System.Windows.Forms.DockStyle.Fill
            Me.gpOrdersQuery.Location = New System.Drawing.Point(0, 0)
            Me.gpOrdersQuery.Name = "gpOrdersQuery"
            Me.gpOrdersQuery.Size = New System.Drawing.Size(448, 335)
            Me.gpOrdersQuery.TabIndex = 0
            Me.gpOrdersQuery.TabStop = False
            '
            'QueryList
            '
            Me.QueryList.BackColor = System.Drawing.Color.Cornsilk
            Me.QueryList.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
            Me.QueryList.ForeColor = System.Drawing.Color.Navy
            Me.QueryList.ItemHeight = 12
            Me.QueryList.Location = New System.Drawing.Point(288, 51)
            Me.QueryList.Name = "QueryList"
            Me.QueryList.Size = New System.Drawing.Size(152, 170)
            Me.QueryList.TabIndex = 47
            '
            'lbQueryTabelList
            '
            Me.lbQueryTabelList.Location = New System.Drawing.Point(288, 16)
            Me.lbQueryTabelList.Name = "lbQueryTabelList"
            Me.lbQueryTabelList.Size = New System.Drawing.Size(88, 24)
            Me.lbQueryTabelList.TabIndex = 46
            Me.lbQueryTabelList.Text = "桌号列表"
            Me.lbQueryTabelList.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
            '
            'txtQueryContents
            '
            Me.txtQueryContents.BackColor = System.Drawing.Color.Cornsilk
            Me.txtQueryContents.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
            Me.txtQueryContents.Enabled = False
            Me.txtQueryContents.Location = New System.Drawing.Point(120, 272)
            Me.txtQueryContents.Name = "txtQueryContents"
            Me.txtQueryContents.Size = New System.Drawing.Size(320, 21)
            Me.txtQueryContents.TabIndex = 45
            Me.txtQueryContents.Text = ""