dataset1.vb

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

        Public Function Is床数Null() As Boolean
            Return Me.IsNull(Me.table客房信息.床数Column)
        End Function
        
        Public Sub Set床数Null()
            Me(Me.table客房信息.床数Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is状态Null() As Boolean
            Return Me.IsNull(Me.table客房信息.状态Column)
        End Function
        
        Public Sub Set状态Null()
            Me(Me.table客房信息.状态Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is是否可拼房Null() As Boolean
            Return Me.IsNull(Me.table客房信息.是否可拼房Column)
        End Function
        
        Public Sub Set是否可拼房Null()
            Me(Me.table客房信息.是否可拼房Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is客房描述Null() As Boolean
            Return Me.IsNull(Me.table客房信息.客房描述Column)
        End Function
        
        Public Sub Set客房描述Null()
            Me(Me.table客房信息.客房描述Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is备注Null() As Boolean
            Return Me.IsNull(Me.table客房信息.备注Column)
        End Function
        
        Public Sub Set备注Null()
            Me(Me.table客房信息.备注Column) = System.Convert.DBNull
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class 客房信息RowChangeEvent
        Inherits EventArgs
        
        Private eventRow As 客房信息Row
        
        Private eventAction As DataRowAction
        
        Public Sub New(ByVal row As 客房信息Row, ByVal action As DataRowAction)
            MyBase.New
            Me.eventRow = row
            Me.eventAction = action
        End Sub
        
        Public ReadOnly Property Row As 客房信息Row
            Get
                Return Me.eventRow
            End Get
        End Property
        
        Public ReadOnly Property Action As DataRowAction
            Get
                Return Me.eventAction
            End Get
        End Property
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class 预定单DataTable
        Inherits DataTable
        Implements System.Collections.IEnumerable
        
        Private column预定单号 As DataColumn
        
        Private column客房类型 As DataColumn
        
        Private column抵店时间 As DataColumn
        
        Private column离店时间 As DataColumn
        
        Private column入住人数 As DataColumn
        
        Private column客房编号 As DataColumn
        
        Private column客房价格 As DataColumn
        
        Private column入住价格 As DataColumn
        
        Private column折扣 As DataColumn
        
        Private column单据状态 As DataColumn
        
        Private column折扣原因 As DataColumn
        
        Private column是否加床 As DataColumn
        
        Private column加床价格 As DataColumn
        
        Private column预收款 As DataColumn
        
        Private column预定人 As DataColumn
        
        Private column会员编号 As DataColumn
        
        Private column预定公司 As DataColumn
        
        Private column联系电话 As DataColumn
        
        Private column备注 As DataColumn
        
        Private column操作员 As DataColumn
        
        Private column业务员 As DataColumn
        
        Friend Sub New()
            MyBase.New("预定单")
            Me.InitClass
        End Sub
        
        Friend Sub New(ByVal table As DataTable)
            MyBase.New(table.TableName)
            If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
                Me.CaseSensitive = table.CaseSensitive
            End If
            If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
                Me.Locale = table.Locale
            End If
            If (table.Namespace <> table.DataSet.Namespace) Then
                Me.Namespace = table.Namespace
            End If
            Me.Prefix = table.Prefix
            Me.MinimumCapacity = table.MinimumCapacity
            Me.DisplayExpression = table.DisplayExpression
        End Sub
        
        <System.ComponentModel.Browsable(false)>  _
        Public ReadOnly Property Count As Integer
            Get
                Return Me.Rows.Count
            End Get
        End Property
        
        Friend ReadOnly Property 预定单号Column As DataColumn
            Get
                Return Me.column预定单号
            End Get
        End Property
        
        Friend ReadOnly Property 客房类型Column As DataColumn
            Get
                Return Me.column客房类型
            End Get
        End Property
        
        Friend ReadOnly Property 抵店时间Column As DataColumn
            Get
                Return Me.column抵店时间
            End Get
        End Property
        
        Friend ReadOnly Property 离店时间Column As DataColumn
            Get
                Return Me.column离店时间
            End Get
        End Property
        
        Friend ReadOnly Property 入住人数Column As DataColumn
            Get
                Return Me.column入住人数
            End Get
        End Property
        
        Friend ReadOnly Property 客房编号Column As DataColumn
            Get
                Return Me.column客房编号
            End Get
        End Property
        
        Friend ReadOnly Property 客房价格Column As DataColumn
            Get
                Return Me.column客房价格
            End Get
        End Property
        
        Friend ReadOnly Property 入住价格Column As DataColumn
            Get
                Return Me.column入住价格
            End Get
        End Property
        
        Friend ReadOnly Property 折扣Column As DataColumn
            Get
                Return Me.column折扣
            End Get
        End Property
        
        Friend ReadOnly Property 单据状态Column As DataColumn
            Get
                Return Me.column单据状态
            End Get
        End Property
        
        Friend ReadOnly Property 折扣原因Column As DataColumn
            Get
                Return Me.column折扣原因
            End Get
        End Property
        
        Friend ReadOnly Property 是否加床Column As DataColumn
            Get
                Return Me.column是否加床
            End Get
        End Property
        
        Friend ReadOnly Property 加床价格Column As DataColumn
            Get
                Return Me.column加床价格
            End Get
        End Property
        
        Friend ReadOnly Property 预收款Column As DataColumn
            Get
                Return Me.column预收款
            End Get
        End Property
        
        Friend ReadOnly Property 预定人Column As DataColumn
            Get
                Return Me.column预定人
            End Get
        End Property
        
        Friend ReadOnly Property 会员编号Column As DataColumn
            Get
                Return Me.column会员编号
            End Get
        End Property
        
        Friend ReadOnly Property 预定公司Column As DataColumn
            Get
                Return Me.column预定公司
            End Get
        End Property
        
        Friend ReadOnly Property 联系电话Column As DataColumn
            Get
                Return Me.column联系电话
            End Get
        End Property
        
        Friend ReadOnly Property 备注Column As DataColumn
            Get
                Return Me.column备注
            End Get
        End Property
        
        Friend ReadOnly Property 操作员Column As DataColumn
            Get
                Return Me.column操作员
            End Get
        End Property
        
        Friend ReadOnly Property 业务员Column As DataColumn
            Get
                Return Me.column业务员
            End Get
        End Property
        
        Public Default ReadOnly Property Item(ByVal index As Integer) As 预定单Row
            Get
                Return CType(Me.Rows(index),预定单Row)
            End Get
        End Property
        
        Public Event 预定单RowChanged As 预定单RowChangeEventHandler
        
        Public Event 预定单RowChanging As 预定单RowChangeEventHandler
        
        Public Event 预定单RowDeleted As 预定单RowChangeEventHandler
        
        Public Event 预定单RowDeleting As 预定单RowChangeEventHandler
        
        Public Overloads Sub Add预定单Row(ByVal row As 预定单Row)
            Me.Rows.Add(row)
        End Sub
        
        Public Overloads Function Add预定单Row( _
                    ByVal 预定单号 As String,  _
                    ByVal 客房类型 As String,  _
                    ByVal 抵店时间 As Date,  _
                    ByVal 离店时间 As Date,  _
                    ByVal 入住人数 As Integer,  _
                    ByVal 客房编号 As String,  _
                    ByVal 客房价格 As Decimal,  _
                    ByVal 入住价格 As Decimal,  _
                    ByVal 折扣 As Decimal,  _
                    ByVal 单据状态 As String,  _
                    ByVal 折扣原因 As String,  _
                    ByVal 是否加床 As Boolean,  _
                    ByVal 加床价格 As Decimal,  _
                    ByVal 预收款 As Decimal,  _
                    ByVal 预定人 As String,  _
                    ByVal 会员编号 As Integer,  _
                    ByVal 预定公司 As String,  _
                    ByVal 联系电话 As String,  _
                    ByVal 备注 As String,  _
                    ByVal 操作员 As String,  _
                    ByVal 业务员 As String) As 预定单Row
            Dim row预定单Row As 预定单Row = CType(Me.NewRow,预定单Row)
            row预定单Row.ItemArray = New Object() {预定单号, 客房类型, 抵店时间, 离店时间, 入住人数, 客房编号, 客房价格, 入住价格, 折扣, 单据状态, 折扣原因, 是否加床, 加床价格, 预收款, 预定人, 会员编号, 预定公司, 联系电话, 备注, 操作员, 业务员}
            Me.Rows.Add(row预定单Row)
            Return row预定单Row
        End Function
        
        Public Function FindBy预定单号(ByVal 预定单号 As String) As 预定单Row
            Return CType(Me.Rows.Find(New Object() {预定单号}),预定单Row)
        End Function