frmcheckbill.vb

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

            Me.lbIdentity.Location = New System.Drawing.Point(8, 48)
            Me.lbIdentity.Name = "lbIdentity"
            Me.lbIdentity.Size = New System.Drawing.Size(72, 24)
            Me.lbIdentity.TabIndex = 25
            Me.lbIdentity.Text = "身份证号："
            '
            'txtIDNumber
            '
            Me.txtIDNumber.BackColor = System.Drawing.Color.Cornsilk
            Me.txtIDNumber.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
            Me.txtIDNumber.ForeColor = System.Drawing.Color.Red
            Me.txtIDNumber.Location = New System.Drawing.Point(80, 48)
            Me.txtIDNumber.MaxLength = 18
            Me.txtIDNumber.Name = "txtIDNumber"
            Me.txtIDNumber.Size = New System.Drawing.Size(216, 21)
            Me.txtIDNumber.TabIndex = 26
            Me.txtIDNumber.Text = ""
            Me.txtIDNumber.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
            '
            'lbDescription
            '
            Me.lbDescription.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
            Me.lbDescription.ForeColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(0, Byte), CType(0, Byte))
            Me.lbDescription.Location = New System.Drawing.Point(8, 320)
            Me.lbDescription.Name = "lbDescription"
            Me.lbDescription.Size = New System.Drawing.Size(184, 72)
            Me.lbDescription.TabIndex = 28
            Me.lbDescription.Text = "    在结帐前请询问客户是否为会员，并提供会员的相关优惠服务。"
            Me.lbDescription.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
            '
            'lbTitle
            '
            Me.lbTitle.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
            Me.lbTitle.ForeColor = System.Drawing.Color.Blue
            Me.lbTitle.Location = New System.Drawing.Point(8, 288)
            Me.lbTitle.Name = "lbTitle"
            Me.lbTitle.Size = New System.Drawing.Size(184, 24)
            Me.lbTitle.TabIndex = 27
            Me.lbTitle.Text = "结帐提示"
            Me.lbTitle.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
            '
            'chkVIP
            '
            Me.chkVIP.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.chkVIP.ForeColor = System.Drawing.Color.Navy
            Me.chkVIP.Location = New System.Drawing.Point(408, 112)
            Me.chkVIP.Name = "chkVIP"
            Me.chkVIP.Size = New System.Drawing.Size(80, 24)
            Me.chkVIP.TabIndex = 22
            Me.chkVIP.Text = " VIP会员"
            '
            'gpCheck
            '
            Me.gpCheck.Controls.Add(Me.lbCardNumber)
            Me.gpCheck.Controls.Add(Me.txtCardNumber)
            Me.gpCheck.Enabled = False
            Me.gpCheck.Location = New System.Drawing.Point(200, 136)
            Me.gpCheck.Name = "gpCheck"
            Me.gpCheck.Size = New System.Drawing.Size(296, 48)
            Me.gpCheck.TabIndex = 21
            Me.gpCheck.TabStop = False
            '
            'lbCardNumber
            '
            Me.lbCardNumber.ForeColor = System.Drawing.Color.Navy
            Me.lbCardNumber.Location = New System.Drawing.Point(8, 16)
            Me.lbCardNumber.Name = "lbCardNumber"
            Me.lbCardNumber.Size = New System.Drawing.Size(72, 21)
            Me.lbCardNumber.TabIndex = 6
            Me.lbCardNumber.Text = "信用卡号："
            Me.lbCardNumber.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
            '
            'txtCardNumber
            '
            Me.txtCardNumber.BackColor = System.Drawing.Color.Cornsilk
            Me.txtCardNumber.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
            Me.txtCardNumber.ForeColor = System.Drawing.SystemColors.HotTrack
            Me.txtCardNumber.Location = New System.Drawing.Point(80, 16)
            Me.txtCardNumber.MaxLength = 16
            Me.txtCardNumber.Name = "txtCardNumber"
            Me.txtCardNumber.Size = New System.Drawing.Size(208, 21)
            Me.txtCardNumber.TabIndex = 5
            Me.txtCardNumber.Text = ""
            '
            'rdtCards
            '
            Me.rdtCards.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.rdtCards.ForeColor = System.Drawing.Color.Navy
            Me.rdtCards.Location = New System.Drawing.Point(312, 112)
            Me.rdtCards.Name = "rdtCards"
            Me.rdtCards.Size = New System.Drawing.Size(88, 24)
            Me.rdtCards.TabIndex = 20
            Me.rdtCards.Text = "信用卡支付"
            '
            'rdtCash
            '
            Me.rdtCash.Checked = True
            Me.rdtCash.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.rdtCash.ForeColor = System.Drawing.Color.Navy
            Me.rdtCash.Location = New System.Drawing.Point(216, 112)
            Me.rdtCash.Name = "rdtCash"
            Me.rdtCash.Size = New System.Drawing.Size(88, 24)
            Me.rdtCash.TabIndex = 19
            Me.rdtCash.TabStop = True
            Me.rdtCash.Text = "现金支付"
            '
            'GroupBox2
            '
            Me.GroupBox2.Location = New System.Drawing.Point(200, 104)
            Me.GroupBox2.Name = "GroupBox2"
            Me.GroupBox2.Size = New System.Drawing.Size(296, 8)
            Me.GroupBox2.TabIndex = 18
            Me.GroupBox2.TabStop = False
            '
            'CheckBillPicture
            '
            Me.CheckBillPicture.BackColor = System.Drawing.Color.Khaki
            Me.CheckBillPicture.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
            Me.CheckBillPicture.Image = CType(resources.GetObject("CheckBillPicture.Image"), System.Drawing.Image)
            Me.CheckBillPicture.Location = New System.Drawing.Point(8, 16)
            Me.CheckBillPicture.Name = "CheckBillPicture"
            Me.CheckBillPicture.Size = New System.Drawing.Size(184, 264)
            Me.CheckBillPicture.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
            Me.CheckBillPicture.TabIndex = 17
            Me.CheckBillPicture.TabStop = False
            '
            'txtReturnMoney
            '
            Me.txtReturnMoney.BackColor = System.Drawing.Color.WhiteSmoke
            Me.txtReturnMoney.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
            Me.txtReturnMoney.ForeColor = System.Drawing.Color.Red
            Me.txtReturnMoney.Location = New System.Drawing.Point(280, 288)
            Me.txtReturnMoney.MaxLength = 15
            Me.txtReturnMoney.Name = "txtReturnMoney"
            Me.txtReturnMoney.ReadOnly = True
            Me.txtReturnMoney.Size = New System.Drawing.Size(216, 21)
            Me.txtReturnMoney.TabIndex = 16
            Me.txtReturnMoney.Text = ""
            Me.txtReturnMoney.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
            '
            'txtPayMoney
            '
            Me.txtPayMoney.BackColor = System.Drawing.Color.Cornsilk
            Me.txtPayMoney.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
            Me.txtPayMoney.ForeColor = System.Drawing.SystemColors.HotTrack
            Me.txtPayMoney.Location = New System.Drawing.Point(280, 256)
            Me.txtPayMoney.MaxLength = 15
            Me.txtPayMoney.Name = "txtPayMoney"
            Me.txtPayMoney.Size = New System.Drawing.Size(216, 21)
            Me.txtPayMoney.TabIndex = 15
            Me.txtPayMoney.Text = ""
            Me.txtPayMoney.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
            '
            'lbCharge
            '
            Me.lbCharge.ForeColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(0, Byte), CType(0, Byte))
            Me.lbCharge.Location = New System.Drawing.Point(208, 288)
            Me.lbCharge.Name = "lbCharge"
            Me.lbCharge.Size = New System.Drawing.Size(72, 21)
            Me.lbCharge.TabIndex = 14
            Me.lbCharge.Text = "找    零："
            Me.lbCharge.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
            '
            'lbPayedTo
            '
            Me.lbPayedTo.ForeColor = System.Drawing.Color.Blue
            Me.lbPayedTo.Location = New System.Drawing.Point(208, 256)
            Me.lbPayedTo.Name = "lbPayedTo"
            Me.lbPayedTo.Size = New System.Drawing.Size(72, 21)
            Me.lbPayedTo.TabIndex = 13
            Me.lbPayedTo.Text = "实际支付："
            Me.lbPayedTo.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
            '
            'txtToPayBill
            '
            Me.txtToPayBill.BackColor = System.Drawing.Color.WhiteSmoke
            Me.txtToPayBill.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
            Me.txtToPayBill.ForeColor = System.Drawing.Color.Red
            Me.txtToPayBill.Location = New System.Drawing.Point(280, 224)
            Me.txtToPayBill.MaxLength = 15
            Me.txtToPayBill.Name = "txtToPayBill"
            Me.txtToPayBill.ReadOnly = True
            Me.txtToPayBill.Size = New System.Drawing.Size(216, 21)
            Me.txtToPayBill.TabIndex = 10
            Me.txtToPayBill.Text = ""
            Me.txtToPayBill.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
            '
            'lbPayedFor
            '
            Me.lbPayedFor.ForeColor = System.Drawing.Color.Navy
            Me.lbPayedFor.Location = New System.Drawing.Point(208, 224)
            Me.lbPayedFor.Name = "lbPayedFor"
            Me.lbPayedFor.Size = New System.Drawing.Size(72, 21)
            Me.lbPayedFor.TabIndex = 9
            Me.lbPayedFor.Text = "应付金额："
            Me.lbPayedFor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
            '
            'txtDisCount
            '
            Me.txtDisCount.BackColor = System.Drawing.Color.WhiteSmoke
            Me.txtDisCount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
            Me.txtDisCount.Location = New System.Drawing.Point(280, 192)
            Me.txtDisCount.Name = "txtDisCount"
            Me.txtDisCount.ReadOnly = True
            Me.txtDisCount.Size = New System.Drawing.Size(216, 21)
            Me.txtDisCount.TabIndex = 8
            Me.txtDisCount.Text = "0"
            Me.txtDisCount.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
            '
            'lbDiscount
            '
            Me.lbDiscount.ForeColor = System.Drawing.Color.Navy
            Me.lbDiscount.Location = New System.Drawing.Point(200, 192)
            Me.lbDiscount.Name = "lbDiscount"
            Me.lbDiscount.Size = New System.Drawing.Size(72, 21)
            Me.lbDiscount.TabIndex = 7
            Me.lbDiscount.Text = "优惠折扣："
            Me.lbDiscount.TextAlign = System.Drawing.ContentAlignment.MiddleRight
            '
            'txtTableNumber
            '
            Me.txtTableNumber.BackColor = System.Drawing.Color.Cornsilk
            Me.txtTableNumber.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
            Me.txtTableNumber.ForeColor = System.Drawing.SystemColors.HotTrack
            Me.txtTableNumber.Location = New System.Drawing.Point(280, 16)