ds1.vb

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

        
        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
        
        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) 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 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("宿舍电话")
        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宿舍电话)
        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
                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 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