df.vb

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

        Public Event 文明分统计1RowChanged As 文明分统计1RowChangeEventHandler
        
        Public Event 文明分统计1RowChanging As 文明分统计1RowChangeEventHandler
        
        Public Event 文明分统计1RowDeleted As 文明分统计1RowChangeEventHandler
        
        Public Event 文明分统计1RowDeleting As 文明分统计1RowChangeEventHandler
        
        Public Overloads Sub Add文明分统计1Row(ByVal row As 文明分统计1Row)
            Me.Rows.Add(row)
        End Sub
        
        Public Overloads Function Add文明分统计1Row(ByVal 学号 As String, ByVal 扣分 As String) As 文明分统计1Row
            Dim row文明分统计1Row As 文明分统计1Row = CType(Me.NewRow,文明分统计1Row)
            row文明分统计1Row.ItemArray = New Object() {学号, 扣分}
            Me.Rows.Add(row文明分统计1Row)
            Return row文明分统计1Row
        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 文明分统计1DataTable = CType(MyBase.Clone,文明分统计1DataTable)
            cln.InitVars
            Return cln
        End Function
        
        Protected Overrides Function CreateInstance() As DataTable
            Return New 文明分统计1DataTable
        End Function
        
        Friend Sub InitVars()
            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扣分)
        End Sub
        
        Public Function New文明分统计1Row() As 文明分统计1Row
            Return CType(Me.NewRow,文明分统计1Row)
        End Function
        
        Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
            Return New 文明分统计1Row(builder)
        End Function
        
        Protected Overrides Function GetRowType() As System.Type
            Return GetType(文明分统计1Row)
        End Function
        
        Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.文明分统计1RowChangedEvent) Is Nothing) Then
                RaiseEvent 文明分统计1RowChanged(Me, New 文明分统计1RowChangeEvent(CType(e.Row,文明分统计1Row), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanging(e)
            If (Not (Me.文明分统计1RowChangingEvent) Is Nothing) Then
                RaiseEvent 文明分统计1RowChanging(Me, New 文明分统计1RowChangeEvent(CType(e.Row,文明分统计1Row), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleted(e)
            If (Not (Me.文明分统计1RowDeletedEvent) Is Nothing) Then
                RaiseEvent 文明分统计1RowDeleted(Me, New 文明分统计1RowChangeEvent(CType(e.Row,文明分统计1Row), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleting(e)
            If (Not (Me.文明分统计1RowDeletingEvent) Is Nothing) Then
                RaiseEvent 文明分统计1RowDeleting(Me, New 文明分统计1RowChangeEvent(CType(e.Row,文明分统计1Row), e.Action))
            End If
        End Sub
        
        Public Sub Remove文明分统计1Row(ByVal row As 文明分统计1Row)
            Me.Rows.Remove(row)
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class 文明分统计1Row
        Inherits DataRow
        
        Private table文明分统计1 As 文明分统计1DataTable
        
        Friend Sub New(ByVal rb As DataRowBuilder)
            MyBase.New(rb)
            Me.table文明分统计1 = CType(Me.Table,文明分统计1DataTable)
        End Sub
        
        Public Property 学号 As String
            Get
                Try 
                    Return CType(Me(Me.table文明分统计1.学号Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table文明分统计1.学号Column) = value
            End Set
        End Property
        
        Public Property 扣分 As String
            Get
                Try 
                    Return CType(Me(Me.table文明分统计1.扣分Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table文明分统计1.扣分Column) = value
            End Set
        End Property
        
        Public Function Is学号Null() As Boolean
            Return Me.IsNull(Me.table文明分统计1.学号Column)
        End Function
        
        Public Sub Set学号Null()
            Me(Me.table文明分统计1.学号Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is扣分Null() As Boolean
            Return Me.IsNull(Me.table文明分统计1.扣分Column)
        End Function
        
        Public Sub Set扣分Null()
            Me(Me.table文明分统计1.扣分Column) = System.Convert.DBNull
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class 文明分统计1RowChangeEvent
        Inherits EventArgs
        
        Private eventRow As 文明分统计1Row
        
        Private eventAction As DataRowAction
        
        Public Sub New(ByVal row As 文明分统计1Row, ByVal action As DataRowAction)
            MyBase.New
            Me.eventRow = row
            Me.eventAction = action
        End Sub
        
        Public ReadOnly Property Row As 文明分统计1Row
            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
        
        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
        
        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) 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.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)