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 書號 As String
            Get
                Return CType(Me(Me.table書籍信息.書號Column),String)
            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 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 Integer
            Get
                Try 
                    Return CType(Me(Me.table書籍信息.字數Column),Integer)
                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 Decimal
            Get
                Try 
                    Return CType(Me(Me.table書籍信息.定價Column),Decimal)
                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 Date
            Get
                Try 
                    Return CType(Me(Me.table書籍信息.出版時間Column),Date)
                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 Property 館內借閱分類 As Integer
            Get
                Try 
                    Return CType(Me(Me.table書籍信息.館內借閱分類Column),Integer)
                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 Integer
            Get
                Try 
                    Return CType(Me(Me.table書籍信息.庫存量Column),Integer)
                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
        
        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
        
        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
End Class