da.vb

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

    
    Private Function ShouldSerialize住宿统计() As Boolean
        Return false
    End Function
    
    Private Function ShouldSerialize文明分统计() As Boolean
        Return false
    End Function
    
    Private Sub SchemaChanged(ByVal sender As Object, ByVal e As System.ComponentModel.CollectionChangeEventArgs)
        If (e.Action = System.ComponentModel.CollectionChangeAction.Remove) Then
            Me.InitVars
        End If
    End Sub
    
    Public Delegate Sub 晚归记录RowChangeEventHandler(ByVal sender As Object, ByVal e As 晚归记录RowChangeEvent)
    
    Public Delegate Sub 用户RowChangeEventHandler(ByVal sender As Object, ByVal e As 用户RowChangeEvent)
    
    Public Delegate Sub 公益活动RowChangeEventHandler(ByVal sender As Object, ByVal e As 公益活动RowChangeEvent)
    
    Public Delegate Sub 费用支出RowChangeEventHandler(ByVal sender As Object, ByVal e As 费用支出RowChangeEvent)
    
    Public Delegate Sub 宿舍纪律RowChangeEventHandler(ByVal sender As Object, ByVal e As 宿舍纪律RowChangeEvent)
    
    Public Delegate Sub 卫生检查RowChangeEventHandler(ByVal sender As Object, ByVal e As 卫生检查RowChangeEvent)
    
    Public Delegate Sub 外来人员记录RowChangeEventHandler(ByVal sender As Object, ByVal e As 外来人员记录RowChangeEvent)
    
    Public Delegate Sub 住宿统计RowChangeEventHandler(ByVal sender As Object, ByVal e As 住宿统计RowChangeEvent)
    
    Public Delegate Sub 文明分统计RowChangeEventHandler(ByVal sender As Object, ByVal e As 文明分统计RowChangeEvent)
    
    <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, 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学号, Me.column时间}, true))
            Me.column学号.AllowDBNull = false
            Me.column时间.AllowDBNull = false
        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
                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 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