dsbook.vb

The Management Information System of Library using .NET

            Me.Columns.Add(Me.columnBook_pubdate)
            Me.columnBook_author = New DataColumn("Book_author", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnBook_author)
            Me.columnBook_page = New DataColumn("Book_page", GetType(System.Int32), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnBook_page)
            Me.columnBook_price = New DataColumn("Book_price", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnBook_price)
            Me.columnBook_adddate = New DataColumn("Book_adddate", GetType(System.DateTime), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnBook_adddate)
            Me.columnBook_place = New DataColumn("Book_place", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnBook_place)
            Me.columnBook_sort = New DataColumn("Book_sort", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnBook_sort)
            Me.columnBook_remarks = New DataColumn("Book_remarks", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnBook_remarks)
            Me.Constraints.Add(New UniqueConstraint("Constraint1", New DataColumn() {Me.columnBook_code}, true))
            Me.columnBook_code.AllowDBNull = false
            Me.columnBook_code.Unique = true
            Me.columnBook_name.AllowDBNull = false
        End Sub
        
        Public Function NewbookRow() As bookRow
            Return CType(Me.NewRow,bookRow)
        End Function
        
        Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
            Return New bookRow(builder)
        End Function
        
        Protected Overrides Function GetRowType() As System.Type
            Return GetType(bookRow)
        End Function
        
        Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.bookRowChangedEvent) Is Nothing) Then
                RaiseEvent bookRowChanged(Me, New bookRowChangeEvent(CType(e.Row,bookRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanging(e)
            If (Not (Me.bookRowChangingEvent) Is Nothing) Then
                RaiseEvent bookRowChanging(Me, New bookRowChangeEvent(CType(e.Row,bookRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleted(e)
            If (Not (Me.bookRowDeletedEvent) Is Nothing) Then
                RaiseEvent bookRowDeleted(Me, New bookRowChangeEvent(CType(e.Row,bookRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleting(e)
            If (Not (Me.bookRowDeletingEvent) Is Nothing) Then
                RaiseEvent bookRowDeleting(Me, New bookRowChangeEvent(CType(e.Row,bookRow), e.Action))
            End If
        End Sub
        
        Public Sub RemovebookRow(ByVal row As bookRow)
            Me.Rows.Remove(row)
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class bookRow
        Inherits DataRow
        
        Private tablebook As bookDataTable
        
        Friend Sub New(ByVal rb As DataRowBuilder)
            MyBase.New(rb)
            Me.tablebook = CType(Me.Table,bookDataTable)
        End Sub
        
        Public Property Book_code As String
            Get
                Return CType(Me(Me.tablebook.Book_codeColumn),String)
            End Get
            Set
                Me(Me.tablebook.Book_codeColumn) = value
            End Set
        End Property
        
        Public Property Book_name As String
            Get
                Return CType(Me(Me.tablebook.Book_nameColumn),String)
            End Get
            Set
                Me(Me.tablebook.Book_nameColumn) = value
            End Set
        End Property
        
        Public Property Book_pub As String
            Get
                Try 
                    Return CType(Me(Me.tablebook.Book_pubColumn),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablebook.Book_pubColumn) = value
            End Set
        End Property
        
        Public Property Book_isbn As String
            Get
                Try 
                    Return CType(Me(Me.tablebook.Book_isbnColumn),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablebook.Book_isbnColumn) = value
            End Set
        End Property
        
        Public Property Book_pubdate As Date
            Get
                Try 
                    Return CType(Me(Me.tablebook.Book_pubdateColumn),Date)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablebook.Book_pubdateColumn) = value
            End Set
        End Property
        
        Public Property Book_author As String
            Get
                Try 
                    Return CType(Me(Me.tablebook.Book_authorColumn),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablebook.Book_authorColumn) = value
            End Set
        End Property
        
        Public Property Book_page As Integer
            Get
                Try 
                    Return CType(Me(Me.tablebook.Book_pageColumn),Integer)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablebook.Book_pageColumn) = value
            End Set
        End Property
        
        Public Property Book_price As Decimal
            Get
                Try 
                    Return CType(Me(Me.tablebook.Book_priceColumn),Decimal)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablebook.Book_priceColumn) = value
            End Set
        End Property
        
        Public Property Book_adddate As Date
            Get
                Try 
                    Return CType(Me(Me.tablebook.Book_adddateColumn),Date)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablebook.Book_adddateColumn) = value
            End Set
        End Property
        
        Public Property Book_place As String
            Get
                Try 
                    Return CType(Me(Me.tablebook.Book_placeColumn),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablebook.Book_placeColumn) = value
            End Set
        End Property
        
        Public Property Book_sort As String
            Get
                Try 
                    Return CType(Me(Me.tablebook.Book_sortColumn),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablebook.Book_sortColumn) = value
            End Set
        End Property
        
        Public Property Book_remarks As String
            Get
                Try 
                    Return CType(Me(Me.tablebook.Book_remarksColumn),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablebook.Book_remarksColumn) = value
            End Set
        End Property
        
        Public Function IsBook_pubNull() As Boolean
            Return Me.IsNull(Me.tablebook.Book_pubColumn)
        End Function
        
        Public Sub SetBook_pubNull()
            Me(Me.tablebook.Book_pubColumn) = System.Convert.DBNull
        End Sub
        
        Public Function IsBook_isbnNull() As Boolean
            Return Me.IsNull(Me.tablebook.Book_isbnColumn)
        End Function
        
        Public Sub SetBook_isbnNull()
            Me(Me.tablebook.Book_isbnColumn) = System.Convert.DBNull
        End Sub
        
        Public Function IsBook_pubdateNull() As Boolean
            Return Me.IsNull(Me.tablebook.Book_pubdateColumn)
        End Function
        
        Public Sub SetBook_pubdateNull()
            Me(Me.tablebook.Book_pubdateColumn) = System.Convert.DBNull
        End Sub
        
        Public Function IsBook_authorNull() As Boolean
            Return Me.IsNull(Me.tablebook.Book_authorColumn)
        End Function
        
        Public Sub SetBook_authorNull()
            Me(Me.tablebook.Book_authorColumn) = System.Convert.DBNull
        End Sub
        
        Public Function IsBook_pageNull() As Boolean
            Return Me.IsNull(Me.tablebook.Book_pageColumn)
        End Function
        
        Public Sub SetBook_pageNull()
            Me(Me.tablebook.Book_pageColumn) = System.Convert.DBNull
        End Sub
        
        Public Function IsBook_priceNull() As Boolean
            Return Me.IsNull(Me.tablebook.Book_priceColumn)
        End Function
        
        Public Sub SetBook_priceNull()
            Me(Me.tablebook.Book_priceColumn) = System.Convert.DBNull
        End Sub
        
        Public Function IsBook_adddateNull() As Boolean
            Return Me.IsNull(Me.tablebook.Book_adddateColumn)
        End Function
        
        Public Sub SetBook_adddateNull()
            Me(Me.tablebook.Book_adddateColumn) = System.Convert.DBNull
        End Sub
        
        Public Function IsBook_placeNull() As Boolean
            Return Me.IsNull(Me.tablebook.Book_placeColumn)
        End Function
        
        Public Sub SetBook_placeNull()
            Me(Me.tablebook.Book_placeColumn) = System.Convert.DBNull
        End Sub
        
        Public Function IsBook_sortNull() As Boolean
            Return Me.IsNull(Me.tablebook.Book_sortColumn)
        End Function
        
        Public Sub SetBook_sortNull()
            Me(Me.tablebook.Book_sortColumn) = System.Convert.DBNull
        End Sub
        
        Public Function IsBook_remarksNull() As Boolean
            Return Me.IsNull(Me.tablebook.Book_remarksColumn)
        End Function
        
        Public Sub SetBook_remarksNull()
            Me(Me.tablebook.Book_remarksColumn) = System.Convert.DBNull
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class bookRowChangeEvent
        Inherits EventArgs
        
        Private eventRow As bookRow
        
        Private eventAction As DataRowAction
        
        Public Sub New(ByVal row As bookRow, ByVal action As DataRowAction)
            MyBase.New
            Me.eventRow = row
            Me.eventAction = action
        End Sub
        
        Public ReadOnly Property Row As bookRow
            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