ds2.vb

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

        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
        
        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
                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 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
        
        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
End Class