ds1.vb

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

            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
        
        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
        
        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
        
        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, 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("专业")
            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.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备注