dataset1.vb

酒店管理系统。可对酒店的各项任务分配管理

        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 房间ID 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() {房间ID, 房间属性, 房间状态, 楼层}
            Me.Rows.Add(row房间信息Row)
            Return row房间信息Row
        End Function
        
        Public Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
            Return Me.Rows.GetEnumerator
        End Function
        
        Public Overrides Function Clone() As DataTable
            Dim cln As 房间信息DataTable = CType(MyBase.Clone,房间信息DataTable)
            cln.InitVars
            Return cln
        End Function
        
        Protected Overrides Function CreateInstance() As DataTable
            Return New 房间信息DataTable
        End Function
        
        Friend Sub InitVars()
            Me.column房间ID = Me.Columns("房间ID")
            Me.column房间属性 = Me.Columns("房间属性")
            Me.column房间状态 = Me.Columns("房间状态")
            Me.column楼层 = Me.Columns("楼层")
        End Sub
        
        Private Sub InitClass()
            Me.column房间ID = New DataColumn("房间ID", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column房间ID)
            Me.column房间属性 = New DataColumn("房间属性", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column房间属性)
            Me.column房间状态 = New DataColumn("房间状态", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column房间状态)
            Me.column楼层 = New DataColumn("楼层", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column楼层)
            Me.column房间ID.AllowDBNull = false
        End Sub
        
        Public Function New房间信息Row() As 房间信息Row
            Return CType(Me.NewRow,房间信息Row)
        End Function
        
        Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
            Return New 房间信息Row(builder)
        End Function
        
        Protected Overrides Function GetRowType() As System.Type
            Return GetType(房间信息Row)
        End Function
        
        Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.房间信息RowChangedEvent) Is Nothing) Then
                RaiseEvent 房间信息RowChanged(Me, New 房间信息RowChangeEvent(CType(e.Row,房间信息Row), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanging(e)
            If (Not (Me.房间信息RowChangingEvent) Is Nothing) Then
                RaiseEvent 房间信息RowChanging(Me, New 房间信息RowChangeEvent(CType(e.Row,房间信息Row), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleted(e)
            If (Not (Me.房间信息RowDeletedEvent) Is Nothing) Then
                RaiseEvent 房间信息RowDeleted(Me, New 房间信息RowChangeEvent(CType(e.Row,房间信息Row), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleting(e)
            If (Not (Me.房间信息RowDeletingEvent) Is Nothing) Then
                RaiseEvent 房间信息RowDeleting(Me, New 房间信息RowChangeEvent(CType(e.Row,房间信息Row), e.Action))
            End If
        End Sub
        
        Public Sub Remove房间信息Row(ByVal row As 房间信息Row)
            Me.Rows.Remove(row)
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class 房间信息Row
        Inherits DataRow
        
        Private table房间信息 As 房间信息DataTable
        
        Friend Sub New(ByVal rb As DataRowBuilder)
            MyBase.New(rb)
            Me.table房间信息 = CType(Me.Table,房间信息DataTable)
        End Sub
        
        Public Property 房间ID As String
            Get
                Return CType(Me(Me.table房间信息.房间IDColumn),String)
            End Get
            Set
                Me(Me.table房间信息.房间IDColumn) = value
            End Set
        End Property
        
        Public Property 房间属性 As String
            Get
                Try 
                    Return CType(Me(Me.table房间信息.房间属性Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table房间信息.房间属性Column) = value
            End Set
        End Property
        
        Public Property 房间状态 As String
            Get
                Try 
                    Return CType(Me(Me.table房间信息.房间状态Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table房间信息.房间状态Column) = value
            End Set
        End Property
        
        Public Property 楼层 As String
            Get
                Try 
                    Return CType(Me(Me.table房间信息.楼层Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table房间信息.楼层Column) = value
            End Set
        End Property
        
        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
End Class