ds2.vb

高校科研管理系统

        
        Public Overloads Function Add论文Row(ByVal 论文编号 As String, ByVal 论文题目 As String, ByVal 作者 As String, ByVal 发表日期 As Date, ByVal 描述 As String) As 论文Row
            Dim row论文Row As 论文Row = CType(Me.NewRow,论文Row)
            row论文Row.ItemArray = New Object() {论文编号, 论文题目, 作者, 发表日期, 描述}
            Me.Rows.Add(row论文Row)
            Return row论文Row
        End Function
        
        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("描述")
        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.DateTime), 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 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 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