frmreside.vb

vb.net+SQL开发工具 是一个很好的管理系统的源码

        Me.GroupBox1.Controls.Add(Me.txbDestineCompany)
        Me.GroupBox1.Controls.Add(Me.Label22)
        Me.GroupBox1.Controls.Add(Me.txbMemberId)
        Me.GroupBox1.Controls.Add(Me.Label21)
        Me.GroupBox1.Controls.Add(Me.txbOperator)
        Me.GroupBox1.Controls.Add(Me.Label20)
        Me.GroupBox1.Controls.Add(Me.txbOperationPeople)
        Me.GroupBox1.Controls.Add(Me.Label19)
        Me.GroupBox1.Controls.Add(Me.txbName)
        Me.GroupBox1.Controls.Add(Me.Label18)
        Me.GroupBox1.Controls.Add(Me.ckbAddBed)
        Me.GroupBox1.Controls.Add(Me.txbState)
        Me.GroupBox1.Controls.Add(Me.Label17)
        Me.GroupBox1.Controls.Add(Me.txbBeforMoney)
        Me.GroupBox1.Controls.Add(Me.Label16)
        Me.GroupBox1.Controls.Add(Me.txbAddPrice)
        Me.GroupBox1.Controls.Add(Me.Label15)
        Me.GroupBox1.Controls.Add(Me.txbNumber)
        Me.GroupBox1.Controls.Add(Me.Label14)
        Me.GroupBox1.Controls.Add(Me.btnOpen)
        Me.GroupBox1.Controls.Add(Me.txbReasonDiscount)
        Me.GroupBox1.Controls.Add(Me.Label13)
        Me.GroupBox1.Controls.Add(Me.txbDiscount)
        Me.GroupBox1.Controls.Add(Me.Label12)
        Me.GroupBox1.Controls.Add(Me.txbNowPrice)
        Me.GroupBox1.Controls.Add(Me.Label11)
        Me.GroupBox1.Controls.Add(Me.txbOriginPrice)
        Me.GroupBox1.Controls.Add(Me.Label9)
        Me.GroupBox1.Controls.Add(Me.txbRoomCode)
        Me.GroupBox1.Controls.Add(Me.Label8)
        Me.GroupBox1.Controls.Add(Me.txbPhone)
        Me.GroupBox1.Controls.Add(Me.Label7)
        Me.GroupBox1.Controls.Add(Me.Label6)
        Me.GroupBox1.Controls.Add(Me.Label5)
        Me.GroupBox1.Controls.Add(Me.cbbRoomType)
        Me.GroupBox1.Controls.Add(Me.Label10)
        Me.GroupBox1.Controls.Add(Me.txbInId)
        Me.GroupBox1.Controls.Add(Me.Label4)
        Me.GroupBox1.Location = New System.Drawing.Point(0, 176)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(608, 224)
        Me.GroupBox1.TabIndex = 4
        Me.GroupBox1.TabStop = False
        '
        'btnList
        '
        Me.btnList.Location = New System.Drawing.Point(103, 192)
        Me.btnList.Name = "btnList"
        Me.btnList.TabIndex = 105
        Me.btnList.Text = "从预定单选择"
        '
        'txbId
        '
        Me.txbId.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "入住单.预定单号"))
        Me.txbId.Location = New System.Drawing.Point(11, 192)
        Me.txbId.Name = "txbId"
        Me.txbId.ReadOnly = True
        Me.txbId.Size = New System.Drawing.Size(73, 21)
        Me.txbId.TabIndex = 104
        Me.txbId.Text = ""
        '
        'DataSet11
        '
        Me.DataSet11.DataSetName = "DataSet1"
        Me.DataSet11.Locale = New System.Globalization.CultureInfo("zh-CN")
        '
        'ckbVip
        '
        Me.ckbVip.Location = New System.Drawing.Point(528, 150)
        Me.ckbVip.Name = "ckbVip"
        Me.ckbVip.Size = New System.Drawing.Size(72, 18)
        Me.ckbVip.TabIndex = 103
        Me.ckbVip.Text = "vip贵宾"
        '
        'ckbSecrecy
        '
        Me.ckbSecrecy.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Me.DataSet11, "入住单.保密"))
        Me.ckbSecrecy.Location = New System.Drawing.Point(456, 150)
        Me.ckbSecrecy.Name = "ckbSecrecy"
        Me.ckbSecrecy.Size = New System.Drawing.Size(48, 18)
        Me.ckbSecrecy.TabIndex = 102
        Me.ckbSecrecy.Text = "保密"
        '
        'ckbWakeUp
        '
        Me.ckbWakeUp.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Me.DataSet11, "入住单.叫醒"))
        Me.ckbWakeUp.Location = New System.Drawing.Point(380, 150)
        Me.ckbWakeUp.Name = "ckbWakeUp"
        Me.ckbWakeUp.Size = New System.Drawing.Size(48, 18)
        Me.ckbWakeUp.TabIndex = 101
        Me.ckbWakeUp.Text = "叫醒"
        '
        'ckbBreakfast
        '
        Me.ckbBreakfast.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Me.DataSet11, "入住单.早餐"))
        Me.ckbBreakfast.Location = New System.Drawing.Point(306, 150)
        Me.ckbBreakfast.Name = "ckbBreakfast"
        Me.ckbBreakfast.Size = New System.Drawing.Size(48, 18)
        Me.ckbBreakfast.TabIndex = 100
        Me.ckbBreakfast.Text = "早餐"
        '
        'cbbPhoneLevel
        '
        Me.cbbPhoneLevel.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "入住单.电话等级"))
        Me.cbbPhoneLevel.Items.AddRange(New Object() {"不开通", "市话", "国内长途", "国际长途"})
        Me.cbbPhoneLevel.Location = New System.Drawing.Point(106, 109)
        Me.cbbPhoneLevel.Name = "cbbPhoneLevel"
        Me.cbbPhoneLevel.Size = New System.Drawing.Size(85, 20)
        Me.cbbPhoneLevel.TabIndex = 99
        '
        'Label24
        '
        Me.Label24.Location = New System.Drawing.Point(103, 93)
        Me.Label24.Name = "Label24"
        Me.Label24.Size = New System.Drawing.Size(69, 14)
        Me.Label24.TabIndex = 98
        Me.Label24.Text = "电话等级"
        '
        'tmLeft
        '
        Me.tmLeft.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "入住单.离店时间"))
        Me.tmLeft.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.tmLeft.Location = New System.Drawing.Point(303, 25)
        Me.tmLeft.Name = "tmLeft"
        Me.tmLeft.Size = New System.Drawing.Size(88, 21)
        Me.tmLeft.TabIndex = 97
        '
        'tmArrive
        '
        Me.tmArrive.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "入住单.抵店时间"))
        Me.tmArrive.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.tmArrive.Location = New System.Drawing.Point(209, 25)
        Me.tmArrive.Name = "tmArrive"
        Me.tmArrive.Size = New System.Drawing.Size(88, 21)
        Me.tmArrive.TabIndex = 96
        '
        'txbRemark
        '
        Me.txbRemark.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "入住单.特要说明"))
        Me.txbRemark.Location = New System.Drawing.Point(208, 192)
        Me.txbRemark.Name = "txbRemark"
        Me.txbRemark.Size = New System.Drawing.Size(360, 21)
        Me.txbRemark.TabIndex = 95
        Me.txbRemark.Text = ""
        '
        'Label23
        '
        Me.Label23.Location = New System.Drawing.Point(208, 176)
        Me.Label23.Name = "Label23"
        Me.Label23.Size = New System.Drawing.Size(56, 14)
        Me.Label23.TabIndex = 94
        Me.Label23.Text = "特要说明"
        '
        'txbDestineCompany
        '
        Me.txbDestineCompany.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "入住单.预定公司"))
        Me.txbDestineCompany.Location = New System.Drawing.Point(208, 150)
        Me.txbDestineCompany.Name = "txbDestineCompany"
        Me.txbDestineCompany.Size = New System.Drawing.Size(73, 21)
        Me.txbDestineCompany.TabIndex = 93
        Me.txbDestineCompany.Text = ""
        '
        'Label22
        '
        Me.Label22.Location = New System.Drawing.Point(208, 134)
        Me.Label22.Name = "Label22"
        Me.Label22.Size = New System.Drawing.Size(69, 14)
        Me.Label22.TabIndex = 92
        Me.Label22.Text = "预定公司"
        '
        'txbMemberId