Me.column書名 = Me.Columns("書名")
            Me.column作者 = Me.Columns("作者")
            Me.column出版社 = Me.Columns("出版社")
            Me.column單價 = Me.Columns("單價")
            Me.column頁碼 = Me.Columns("頁碼")
            Me.column出版日期 = Me.Columns("出版日期")
            Me.column借閱日期 = Me.Columns("借閱日期")
            Me.column歸還日期 = Me.Columns("歸還日期")
        End Sub
        
        Private Sub InitClass()
            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出版社 = New DataColumn("出版社", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column出版社)
            Me.column單價 = New DataColumn("單價", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column單價)
            Me.column頁碼 = New DataColumn("頁碼", GetType(System.Int16), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column頁碼)
            Me.column出版日期 = New DataColumn("出版日期", GetType(System.DateTime), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column出版日期)
            Me.column借閱日期 = New DataColumn("借閱日期", GetType(System.DateTime), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column借閱日期)
            Me.column歸還日期 = New DataColumn("歸還日期", GetType(System.DateTime), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column歸還日期)
            Me.column圖書編號.AllowDBNull = false
            Me.column書名.AllowDBNull = false
        End Sub
        
        Public Function NewBorrowRow() As BorrowRow
            Return CType(Me.NewRow,BorrowRow)
        End Function
        
        Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
            Return New BorrowRow(builder)
        End Function
        
        Protected Overrides Function GetRowType() As System.Type
            Return GetType(BorrowRow)
        End Function
        
        Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.BorrowRowChangedEvent) Is Nothing) Then
                RaiseEvent BorrowRowChanged(Me, New BorrowRowChangeEvent(CType(e.Row,BorrowRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanging(e)
            If (Not (Me.BorrowRowChangingEvent) Is Nothing) Then
                RaiseEvent BorrowRowChanging(Me, New BorrowRowChangeEvent(CType(e.Row,BorrowRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleted(e)
            If (Not (Me.BorrowRowDeletedEvent) Is Nothing) Then
                RaiseEvent BorrowRowDeleted(Me, New BorrowRowChangeEvent(CType(e.Row,BorrowRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleting(e)
            If (Not (Me.BorrowRowDeletingEvent) Is Nothing) Then
                RaiseEvent BorrowRowDeleting(Me, New BorrowRowChangeEvent(CType(e.Row,BorrowRow), e.Action))
            End If
        End Sub
        
        Public Sub RemoveBorrowRow(ByVal row As BorrowRow)
            Me.Rows.Remove(row)
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class BorrowRow
        Inherits DataRow
        
        Private tableBorrow As BorrowDataTable
        
        Friend Sub New(ByVal rb As DataRowBuilder)
            MyBase.New(rb)
            Me.tableBorrow = CType(Me.Table,BorrowDataTable)
        End Sub
        
        Public Property 圖書編號 As String
            Get
                Return CType(Me(Me.tableBorrow.圖書編號Column),String)
            End Get
            Set
                Me(Me.tableBorrow.圖書編號Column) = value
            End Set
        End Property
        
        Public Property 書名 As String
            Get
                Return CType(Me(Me.tableBorrow.書名Column),String)
            End Get
            Set
                Me(Me.tableBorrow.書名Column) = value
            End Set
        End Property
        
        Public Property 作者 As String
            Get
                Try 
                    Return CType(Me(Me.tableBorrow.作者Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("無法獲取值，因為它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableBorrow.作者Column) = value
            End Set
        End Property
        
        Public Property 出版社 As String
            Get
                Try 
                    Return CType(Me(Me.tableBorrow.出版社Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("無法獲取值，因為它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableBorrow.出版社Column) = value
            End Set
        End Property
        
        Public Property 單價 As Decimal
            Get
                Try 
                    Return CType(Me(Me.tableBorrow.單價Column),Decimal)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("無法獲取值，因為它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableBorrow.單價Column) = value
            End Set
        End Property
        
        Public Property 頁碼 As Short
            Get
                Try 
                    Return CType(Me(Me.tableBorrow.頁碼Column),Short)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("無法獲取值，因為它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableBorrow.頁碼Column) = value
            End Set
        End Property
        
        Public Property 出版日期 As Date
            Get
                Try 
                    Return CType(Me(Me.tableBorrow.出版日期Column),Date)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("無法獲取值，因為它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableBorrow.出版日期Column) = value
            End Set
        End Property
        
        Public Property 借閱日期 As Date
            Get
                Try 
                    Return CType(Me(Me.tableBorrow.借閱日期Column),Date)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("無法獲取值，因為它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableBorrow.借閱日期Column) = value
            End Set
        End Property
        
        Public Property 歸還日期 As Date
            Get
                Try 
                    Return CType(Me(Me.tableBorrow.歸還日期Column),Date)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("無法獲取值，因為它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableBorrow.歸還日期Column) = value
            End Set
        End Property
        
        Public Function Is作者Null() As Boolean
            Return Me.IsNull(Me.tableBorrow.作者Column)
        End Function
        
        Public Sub Set作者Null()
            Me(Me.tableBorrow.作者Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is出版社Null() As Boolean
            Return Me.IsNull(Me.tableBorrow.出版社Column)
        End Function
        
        Public Sub Set出版社Null()
            Me(Me.tableBorrow.出版社Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is單價Null() As Boolean
            Return Me.IsNull(Me.tableBorrow.單價Column)
        End Function
        
        Public Sub Set單價Null()
            Me(Me.tableBorrow.單價Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is頁碼Null() As Boolean
            Return Me.IsNull(Me.tableBorrow.頁碼Column)
        End Function
        
        Public Sub Set頁碼Null()
            Me(Me.tableBorrow.頁碼Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is出版日期Null() As Boolean
            Return Me.IsNull(Me.tableBorrow.出版日期Column)
        End Function
        
        Public Sub Set出版日期Null()
            Me(Me.tableBorrow.出版日期Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is借閱日期Null() As Boolean
            Return Me.IsNull(Me.tableBorrow.借閱日期Column)
        End Function
        
        Public Sub Set借閱日期Null()
            Me(Me.tableBorrow.借閱日期Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is歸還日期Null() As Boolean
            Return Me.IsNull(Me.tableBorrow.歸還日期Column)
        End Function
        
        Public Sub Set歸還日期Null()
            Me(Me.tableBorrow.歸還日期Column) = System.Convert.DBNull
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class BorrowRowChangeEvent
        Inherits EventArgs
        
        Private eventRow As BorrowRow
        
        Private eventAction As DataRowAction
        
        Public Sub New(ByVal row As BorrowRow, ByVal action As DataRowAction)
            MyBase.New
            Me.eventRow = row
            Me.eventAction = action
        End Sub
        
        Public ReadOnly Property Row As BorrowRow
            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