frmreserve.vb

用.net写的,不知道怎么样,各位看看再说吧.

        Me.txbReasonDiscount.Size = New System.Drawing.Size(73, 21)
        Me.txbReasonDiscount.TabIndex = 31
        Me.txbReasonDiscount.Text = ""
        '
        'Label13
        '
        Me.Label13.Location = New System.Drawing.Point(301, 56)
        Me.Label13.Name = "Label13"
        Me.Label13.Size = New System.Drawing.Size(69, 14)
        Me.Label13.TabIndex = 30
        Me.Label13.Text = "折扣原因"
        '
        'txbDiscount
        '
        Me.txbDiscount.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "预定单.折扣"))
        Me.txbDiscount.Location = New System.Drawing.Point(210, 72)
        Me.txbDiscount.Name = "txbDiscount"
        Me.txbDiscount.Size = New System.Drawing.Size(73, 21)
        Me.txbDiscount.TabIndex = 29
        Me.txbDiscount.Text = ""
        '
        'Label12
        '
        Me.Label12.Location = New System.Drawing.Point(206, 56)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(69, 14)
        Me.Label12.TabIndex = 28
        Me.Label12.Text = "折扣"
        '
        'txbNowPrice
        '
        Me.txbNowPrice.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "预定单.入住价格"))
        Me.txbNowPrice.Location = New System.Drawing.Point(107, 72)
        Me.txbNowPrice.Name = "txbNowPrice"
        Me.txbNowPrice.Size = New System.Drawing.Size(73, 21)
        Me.txbNowPrice.TabIndex = 27
        Me.txbNowPrice.Text = ""
        '
        'Label11
        '
        Me.Label11.Location = New System.Drawing.Point(102, 56)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(69, 14)
        Me.Label11.TabIndex = 26
        Me.Label11.Text = "入住价格"
        '
        'txbOriginPrice
        '
        Me.txbOriginPrice.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "预定单.客房价格"))
        Me.txbOriginPrice.Location = New System.Drawing.Point(12, 72)
        Me.txbOriginPrice.Name = "txbOriginPrice"
        Me.txbOriginPrice.Size = New System.Drawing.Size(73, 21)
        Me.txbOriginPrice.TabIndex = 25
        Me.txbOriginPrice.Text = ""
        '
        'Label9
        '
        Me.Label9.Location = New System.Drawing.Point(11, 56)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(69, 14)
        Me.Label9.TabIndex = 24
        Me.Label9.Text = "客房价格"
        '
        'txbRoomCode
        '
        Me.txbRoomCode.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "预定单.客房编号"))
        Me.txbRoomCode.Location = New System.Drawing.Point(492, 27)
        Me.txbRoomCode.Name = "txbRoomCode"
        Me.txbRoomCode.ReadOnly = True
        Me.txbRoomCode.Size = New System.Drawing.Size(72, 21)
        Me.txbRoomCode.TabIndex = 23
        Me.txbRoomCode.Text = ""
        '
        'Label8
        '
        Me.Label8.Location = New System.Drawing.Point(488, 12)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(64, 14)
        Me.Label8.TabIndex = 22
        Me.Label8.Text = "客房编号"
        '
        'txbPhone
        '
        Me.txbPhone.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "预定单.联系电话"))
        Me.txbPhone.Location = New System.Drawing.Point(396, 27)
        Me.txbPhone.Name = "txbPhone"
        Me.txbPhone.Size = New System.Drawing.Size(72, 21)
        Me.txbPhone.TabIndex = 21
        Me.txbPhone.Text = ""
        '
        'Label7
        '
        Me.Label7.Location = New System.Drawing.Point(393, 12)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(64, 14)
        Me.Label7.TabIndex = 20
        Me.Label7.Text = "联系电话"
        '
        'Label6
        '
        Me.Label6.Location = New System.Drawing.Point(301, 12)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(64, 14)
        Me.Label6.TabIndex = 18
        Me.Label6.Text = "离店时间"
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(206, 12)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(69, 14)
        Me.Label5.TabIndex = 16
        Me.Label5.Text = "抵店时间"
        '
        'cbbRoomType
        '
        Me.cbbRoomType.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.DataSet11, "预定单.客房类型"))
        Me.cbbRoomType.Location = New System.Drawing.Point(107, 27)
        Me.cbbRoomType.Name = "cbbRoomType"
        Me.cbbRoomType.Size = New System.Drawing.Size(85, 20)
        Me.cbbRoomType.TabIndex = 15
        '
        'Label10
        '
        Me.Label10.Location = New System.Drawing.Point(102, 12)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(69, 14)
        Me.Label10.TabIndex = 14
        Me.Label10.Text = "客房类型"
        '
        'txbListId
        '
        Me.txbListId.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "预定单.预定单号"))
        Me.txbListId.Location = New System.Drawing.Point(12, 27)
        Me.txbListId.Name = "txbListId"
        Me.txbListId.ReadOnly = True
        Me.txbListId.Size = New System.Drawing.Size(73, 21)
        Me.txbListId.TabIndex = 3
        Me.txbListId.Text = ""
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(11, 12)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(69, 14)
        Me.Label4.TabIndex = 2
        Me.Label4.Text = "预定单号"
        '
        'SqlDataAdapter1
        '
        Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand2
        Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand2
        Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand2
        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("业务员", "业务员")})})
        Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand2
        '
        'SqlDeleteCommand2
        '
        Me.SqlDeleteCommand2.CommandText = "DELETE FROM 预定单 WHERE (预定单号 = @Original_预定单号) AND (业务员 = @Original_业务员 OR @Origin" & _
        "al_业务员 IS NULL AND 业务员 IS NULL) AND (会员编号 = @Original_会员编号 OR @Original_会员编号 IS " & _
        "NULL AND 会员编号 IS NULL) AND (入住人数 = @Original_入住人数 OR @Original_入住人数 IS NULL AND " & _
        "入住人数 IS NULL) AND (入住价格 = @Original_入住价格 OR @Original_入住价格 IS NULL AND 入住价格 IS N" & _
        "ULL) AND (加床价格 = @Original_加床价格 OR @Original_加床价格 IS NULL AND 加床价格 IS NULL) AND " & _
        "(单据状态 = @Original_单据状态 OR @Original_单据状态 IS NULL AND 单据状态 IS NULL) AND (备注 = @Or" & _
        "iginal_备注 OR @Original_备注 IS NULL AND 备注 IS NULL) AND (客房价格 = @Original_客房价格 OR " & _
        "@Original_客房价格 IS NULL AND 客房价格 IS NULL) AND (客房类型 = @Original_客房类型) AND (客房编号 =" & _
        " @Original_客房编号 OR @Original_客房编号 IS NULL AND 客房编号 IS NULL) AND (折扣 = @Original_" & _
        "折扣 OR @Original_折扣 IS NULL AND 折扣 IS NULL) AND (折扣原因 = @Original_折扣原因 OR @Origin" & _
        "al_折扣原因 IS NULL AND 折扣原因 IS NULL) AND (抵店时间 = @Original_抵店时间) AND (操作员 = @Origin" & _
        "al_操作员 OR @Original_操作员 IS NULL AND 操作员 IS NULL) AND (是否加床 = @Original_是否加床 OR @" & _
        "Original_是否加床 IS NULL AND 是否加床 IS NULL) AND (离店时间 = @Original_离店时间 OR @Original_" & _
        "离店时间 IS NULL AND 离店时间 IS NULL) AND (联系电话 = @Original_联系电话 OR @Original_联系电话 IS N" & _
        "ULL AND 联系电话 IS NULL) AND (预定人 = @Original_预定人 OR @Original_预定人 IS NULL AND 预定人 " & _
        "IS NULL) AND (预定公司 = @Original_预定公司 OR @Original_预定公司 IS NULL AND 预定公司 IS NULL) " & _
        "AND (预收款 = @Original_预收款 OR @Original_预收款 IS NULL AND 预收款 IS NULL)"
        Me.SqlDeleteCommand2.Connection = Me.SqlConnection1
        Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_预定单号", System.Data.SqlDbType.VarChar, 36, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "预定单号", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_业务员", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "业务员", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_会员编号", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "会员编号", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_入住人数", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "入住人数", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_入住价格", System.Data.SqlDbType.Money, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "入住价格", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_加床价格", System.Data.SqlDbType.Money, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "加床价格", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_单据状态", System.Data.SqlDbType.VarChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "单据状态", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_备注", System.Data.SqlDbType.VarChar, 510, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "备注", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_客房价格", System.Data.SqlDbType.Money, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "客房价格", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_客房类型", System.Data.SqlDbType.VarChar, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "客房类型", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_客房编号", System.Data.SqlDbType.VarChar, 12, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "客房编号", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_折扣", System.Data.SqlDbType.Decimal, 5, System.Data.ParameterDirection.Input, False, CType(4, Byte), CType(2, Byte), "折扣", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_折扣原因", System.Data.SqlDbType.VarChar, 60, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "折扣原因", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_抵店时间", System.Data.SqlDbType.DateTime, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "抵店时间", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_操作员", System.Data.SqlDbType.VarChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "操作员", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_是否加床", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "是否加床", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_离店时间", System.Data.SqlDbType.DateTime, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "离店时间", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_联系电话", System.Data.SqlDbType.VarChar, 40, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "联系电话", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_预定人", System.Data.SqlDbType.VarChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "预定人", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_预定公司", System.Data.SqlDbType.VarChar, 60, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "预定公司", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_预收款", System.Data.SqlDbType.Money, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "预收款", System.Data.DataRowVersion.Original, Nothing))
        '
        'SqlConnection1
        '
        Me.SqlConnection1.ConnectionString = "workstation id=KOBE;packet size=4096;integrated security=SSPI;data source=KOBE;pe" & _
        "rsist security info=False;initial catalog=hotelbook"
        '
        'SqlInsertCommand2