df.vb

一个功能强大的学生公寓管理系统 界面非常友好 十分强大

        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 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
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class 家长信息DataTable
        Inherits DataTable
        Implements System.Collections.IEnumerable
        
        Private column父名 As DataColumn
        
        Private column父亲工作单位 As DataColumn
        
        Private column母名 As DataColumn
        
        Private column母亲工作单位 As DataColumn
        
        Private column姓名 As DataColumn
        
        Private column学号 As DataColumn
        
        Friend Sub New()
            MyBase.New("家长信息")
            Me.InitClass
        End Sub
        
        Friend Sub New(ByVal table As DataTable)
            MyBase.New(table.TableName)
            If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
                Me.CaseSensitive = table.CaseSensitive
            End If
            If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
                Me.Locale = table.Locale
            End If
            If (table.Namespace <> table.DataSet.Namespace) Then
                Me.Namespace = table.Namespace
            End If
            Me.Prefix = table.Prefix
            Me.MinimumCapacity = table.MinimumCapacity
            Me.DisplayExpression = table.DisplayExpression
        End Sub
        
        <System.ComponentModel.Browsable(false)>  _
        Public ReadOnly Property Count As Integer
            Get
                Return Me.Rows.Count
            End Get
        End Property
        
        Friend ReadOnly Property 父名Column As DataColumn
            Get
                Return Me.column父名
            End Get
        End Property
        
        Friend ReadOnly Property 父亲工作单位Column As DataColumn
            Get
                Return Me.column父亲工作单位
            End Get
        End Property
        
        Friend ReadOnly Property 母名Column As DataColumn
            Get
                Return Me.column母名
            End Get
        End Property
        
        Friend ReadOnly Property 母亲工作单位Column As DataColumn
            Get
                Return Me.column母亲工作单位
            End Get
        End Property
        
        Friend ReadOnly Property 姓名Column As DataColumn
            Get
                Return Me.column姓名
            End Get
        End Property
        
        Friend ReadOnly Property 学号Column As DataColumn
            Get
                Return Me.column学号
            End Get
        End Property
        
        Public Default ReadOnly Property Item(ByVal index As Integer) As 家长信息Row
            Get
                Return CType(Me.Rows(index),家长信息Row)
            End Get
        End Property
        
        Public Event 家长信息RowChanged As 家长信息RowChangeEventHandler
        
        Public Event 家长信息RowChanging As 家长信息RowChangeEventHandler
        
        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 String, ByVal 姓名 As String, 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("姓名")
            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