weblib书籍信息.vb

本页只为图象处理爱好者交流之用, 未经本人同意, 请勿下载. 另,本书及所附source已于1999年由清华大学出版社出版,请支持正版书籍及软件,谢谢.

        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