ds5.vb

高校科研管理系统

        
        Public Event 奖RowDeleted As 奖RowChangeEventHandler
        
        Public Event 奖RowDeleting As 奖RowChangeEventHandler
        
        Public Overloads Sub Add奖Row(ByVal row As 奖Row)
            Me.Rows.Add(row)
        End Sub
        
        Public Overloads Function Add奖Row(ByVal 编号 As String, ByVal 获奖名字 As String, ByVal 获奖人 As String, ByVal 获奖时间 As Date) 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("获奖时间")
        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.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 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