ds3.vb

高校科研管理系统

        Public Function FindBy著作编号(ByVal 著作编号 As String) As 学术著作Row
            Return CType(Me.Rows.Find(New Object() {著作编号}),学术著作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著作编号 = 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.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.Constraints.Add(New UniqueConstraint("Constraint1", New DataColumn() {Me.column著作编号}, true))
            Me.column著作编号.AllowDBNull = false
            Me.column著作编号.Unique = true
        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 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
    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