frmreside.vb

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

        Me.txbDiscount.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "入住单.折扣"))
        Me.txbDiscount.Location = New System.Drawing.Point(209, 67)
        Me.txbDiscount.Name = "txbDiscount"
        Me.txbDiscount.Size = New System.Drawing.Size(73, 21)
        Me.txbDiscount.TabIndex = 71
        Me.txbDiscount.Text = ""
        '
        'Label12
        '
        Me.Label12.Location = New System.Drawing.Point(205, 51)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(69, 14)
        Me.Label12.TabIndex = 70
        Me.Label12.Text = "折扣"
        '
        'txbNowPrice
        '
        Me.txbNowPrice.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "入住单.入住价格"))
        Me.txbNowPrice.Location = New System.Drawing.Point(106, 67)
        Me.txbNowPrice.Name = "txbNowPrice"
        Me.txbNowPrice.Size = New System.Drawing.Size(73, 21)
        Me.txbNowPrice.TabIndex = 69
        Me.txbNowPrice.Text = ""
        '
        'Label11
        '
        Me.Label11.Location = New System.Drawing.Point(101, 51)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(69, 14)
        Me.Label11.TabIndex = 68
        Me.Label11.Text = "入住价格"
        '
        'txbOriginPrice
        '
        Me.txbOriginPrice.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "入住单.客房价格"))
        Me.txbOriginPrice.Location = New System.Drawing.Point(11, 67)
        Me.txbOriginPrice.Name = "txbOriginPrice"
        Me.txbOriginPrice.Size = New System.Drawing.Size(73, 21)
        Me.txbOriginPrice.TabIndex = 67
        Me.txbOriginPrice.Text = ""
        '
        'Label9
        '
        Me.Label9.Location = New System.Drawing.Point(10, 51)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(69, 14)
        Me.Label9.TabIndex = 66
        Me.Label9.Text = "客房价格"
        '
        'txbRoomCode
        '
        Me.txbRoomCode.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "入住单.客房编号"))
        Me.txbRoomCode.Location = New System.Drawing.Point(490, 25)
        Me.txbRoomCode.Name = "txbRoomCode"
        Me.txbRoomCode.Size = New System.Drawing.Size(72, 21)
        Me.txbRoomCode.TabIndex = 65
        Me.txbRoomCode.Text = ""
        '
        'Label8
        '
        Me.Label8.Location = New System.Drawing.Point(487, 10)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(64, 14)
        Me.Label8.TabIndex = 64
        Me.Label8.Text = "客房编号"
        '
        'txbPhone
        '
        Me.txbPhone.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "入住单.联系电话"))
        Me.txbPhone.Location = New System.Drawing.Point(395, 25)
        Me.txbPhone.Name = "txbPhone"
        Me.txbPhone.Size = New System.Drawing.Size(72, 21)
        Me.txbPhone.TabIndex = 63
        Me.txbPhone.Text = ""
        '
        'Label7
        '
        Me.Label7.Location = New System.Drawing.Point(392, 10)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(64, 14)
        Me.Label7.TabIndex = 62
        Me.Label7.Text = "联系电话"
        '
        'Label6
        '
        Me.Label6.Location = New System.Drawing.Point(300, 10)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(64, 14)
        Me.Label6.TabIndex = 61
        Me.Label6.Text = "离店时间"
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(205, 10)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(69, 14)
        Me.Label5.TabIndex = 60
        Me.Label5.Text = "抵店时间"
        '
        'cbbRoomType
        '
        Me.cbbRoomType.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.DataSet11, "入住单.客房类型"))
        Me.cbbRoomType.Location = New System.Drawing.Point(106, 25)
        Me.cbbRoomType.Name = "cbbRoomType"
        Me.cbbRoomType.Size = New System.Drawing.Size(85, 20)
        Me.cbbRoomType.TabIndex = 59
        '
        'Label10
        '
        Me.Label10.Location = New System.Drawing.Point(101, 10)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(69, 14)
        Me.Label10.TabIndex = 58
        Me.Label10.Text = "客房类型"
        '
        'txbInId
        '
        Me.txbInId.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "入住单.入住单号"))
        Me.txbInId.Location = New System.Drawing.Point(11, 25)
        Me.txbInId.Name = "txbInId"
        Me.txbInId.ReadOnly = True
        Me.txbInId.Size = New System.Drawing.Size(73, 21)
        Me.txbInId.TabIndex = 57
        Me.txbInId.Text = ""
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(10, 10)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(69, 14)
        Me.Label4.TabIndex = 56
        Me.Label4.Text = "入住单号"
        '
        'SqlDataAdapter1
        '
        Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
        Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
        Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
        Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "入住单", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("入住单号", "入住单号"), New System.Data.Common.DataColumnMapping("客房类型", "客房类型"), New System.Data.Common.DataColumnMapping("抵店时间", "抵店时间"), New System.Data.Common.DataColumnMapping("离店时间", "离店时间"), New System.Data.Common.DataColumnMapping("入住人数", "入住人数"), New System.Data.Common.DataColumnMapping("客房编号", "客房编号"), New System.Data.Common.DataColumnMapping("客房价格", "客房价格"), New System.Data.Common.DataColumnMapping("入住价格", "入住价格"), New System.Data.Common.DataColumnMapping("折扣", "折扣"), New System.Data.Common.DataColumnMapping("单据状态", "单据状态"), New System.Data.Common.DataColumnMapping("折扣原因", "折扣原因"), New System.Data.Common.DataColumnMapping("是否加床", "是否加床"), New System.Data.Common.DataColumnMapping("加床价格", "加床价格"), New System.Data.Common.DataColumnMapping("预收款", "预收款"), New System.Data.Common.DataColumnMapping("预定人", "预定人"), New System.Data.Common.DataColumnMapping("会员编号", "会员编号"), New System.Data.Common.DataColumnMapping("预定公司", "预定公司"), New System.Data.Common.DataColumnMapping("联系电话", "联系电话"), New System.Data.Common.DataColumnMapping("备注", "备注"), New System.Data.Common.DataColumnMapping("预定单号", "预定单号"), New System.Data.Common.DataColumnMapping("操作员", "操作员"), New System.Data.Common.DataColumnMapping("业务员", "业务员"), New System.Data.Common.DataColumnMapping("电话等级", "电话等级"), New System.Data.Common.DataColumnMapping("早餐", "早餐"), New System.Data.Common.DataColumnMapping("叫醒", "叫醒"), New System.Data.Common.DataColumnMapping("保密", "保密"), New System.Data.Common.DataColumnMapping("vip", "vip"), New System.Data.Common.DataColumnMapping("特要说明", "特要说明")})})
        Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
        '
        'SqlConnection1
        '
        Me.SqlConnection1.ConnectionString = "workstation id=CSCS;packet size=4096;integrated security=SSPI;data source=CSCS;pe" & _
        "rsist security info=False;initial catalog=hotelbook"
        '
        'SqlSelectCommand1
        '
        Me.SqlSelectCommand1.CommandText = "SELECT 入住单号, 客房类型, 抵店时间, 离店时间, 入住人数, 客房编号, 客房价格, 入住价格, 折扣, 单据状态, 折扣原因, 是否加床, 加床价格" & _
        ", 预收款, 预定人, 会员编号, 预定公司, 联系电话, 备注, 预定单号, 操作员, 业务员, 电话等级, 早餐, 叫醒, 保密, vip, 特要说明 FR" & _
        "OM 入住单"
        Me.SqlSelectCommand1.Connection = Me.SqlConnection1
        '
        'SqlInsertCommand1
        '
        Me.SqlInsertCommand1.CommandText = "INSERT INTO 入住单(入住单号, 客房类型, 抵店时间, 离店时间, 入住人数, 客房编号, 客房价格, 入住价格, 折扣, 单据状态, 折扣原因, 是" & _
        "否加床, 加床价格, 预收款, 预定人, 会员编号, 预定公司, 联系电话, 备注, 预定单号, 操作员, 业务员, 电话等级, 早餐, 叫醒, 保密, vip" & _
        ", 特要说明) VALUES (@入住单号, @客房类型, @抵店时间, @离店时间, @入住人数, @客房编号, @客房价格, @入住价格, @折扣, @单据" & _
        "状态, @折扣原因, @是否加床, @加床价格, @预收款, @预定人, @会员编号, @预定公司, @联系电话, @备注, @预定单号, @操作员, @业务员" & _
        ", @电话等级, @早餐, @叫醒, @保密, @vip, @特要说明); SELECT 入住单号, 客房类型, 抵店时间, 离店时间, 入住人数, 客房编号," & _
        " 客房价格, 入住价格, 折扣, 单据状态, 折扣原因, 是否加床, 加床价格, 预收款, 预定人, 会员编号, 预定公司, 联系电话, 备注, 预定单号, 操" & _
        "作员, 业务员, 电话等级, 早餐, 叫醒, 保密, vip, 特要说明 FROM 入住单 WHERE (入住单号 = @入住单号)"
        Me.SqlInsertCommand1.Connection = Me.SqlConnection1
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@入住单号", System.Data.SqlDbType.VarChar, 36, "入住单号"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@客房类型", System.Data.SqlDbType.VarChar, 4, "客房类型"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@抵店时间", System.Data.SqlDbType.DateTime, 4, "抵店时间"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@离店时间", System.Data.SqlDbType.DateTime, 4, "离店时间"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@入住人数", System.Data.SqlDbType.Int, 4, "入住人数"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@客房编号", System.Data.SqlDbType.VarChar, 12, "客房编号"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@客房价格", System.Data.SqlDbType.Money, 8, "客房价格"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@入住价格", System.Data.SqlDbType.Money, 8, "入住价格"))