yx.vb

来自「一个功能强大的学生公寓管理系统 界面非常友好 十分强大」· VB 代码 · 共 917 行 · 第 1/3 页

            Dim row院系专业Row As 院系专业Row = CType(Me.NewRow,院系专业Row)
            row院系专业Row.ItemArray = New Object() {院系, 专业1, 专业2, 专业3, 专业4, 专业5, 专业6, 专业7, 专业8, 专业9, 专业10}
            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专业1 = Me.Columns("专业1")
            Me.column专业2 = Me.Columns("专业2")
            Me.column专业3 = Me.Columns("专业3")
            Me.column专业4 = Me.Columns("专业4")
            Me.column专业5 = Me.Columns("专业5")
            Me.column专业6 = Me.Columns("专业6")
            Me.column专业7 = Me.Columns("专业7")
            Me.column专业8 = Me.Columns("专业8")
            Me.column专业9 = Me.Columns("专业9")
            Me.column专业10 = Me.Columns("专业10")
        End Sub
        
        Private Sub InitClass()
            Me.column院系 = New DataColumn("院系", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column院系)
            Me.column专业1 = New DataColumn("专业1", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column专业1)
            Me.column专业2 = New DataColumn("专业2", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column专业2)
            Me.column专业3 = New DataColumn("专业3", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column专业3)
            Me.column专业4 = New DataColumn("专业4", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column专业4)
            Me.column专业5 = New DataColumn("专业5", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column专业5)
            Me.column专业6 = New DataColumn("专业6", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column专业6)
            Me.column专业7 = New DataColumn("专业7", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column专业7)
            Me.column专业8 = New DataColumn("专业8", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column专业8)
            Me.column专业9 = New DataColumn("专业9", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column专业9)
            Me.column专业10 = New DataColumn("专业10", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column专业10)
            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
                Return CType(Me(Me.table院系专业.院系Column),String)
            End Get
            Set
                Me(Me.table院系专业.院系Column) = value
            End Set
        End Property
        
        Public Property 专业1 As String
            Get
                Try 
                    Return CType(Me(Me.table院系专业.专业1Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table院系专业.专业1Column) = value
            End Set
        End Property
        
        Public Property 专业2 As String
            Get
                Try 
                    Return CType(Me(Me.table院系专业.专业2Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table院系专业.专业2Column) = value
            End Set
        End Property
        
        Public Property 专业3 As String
            Get
                Try 
                    Return CType(Me(Me.table院系专业.专业3Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table院系专业.专业3Column) = value
            End Set
        End Property
        
        Public Property 专业4 As String
            Get
                Try 
                    Return CType(Me(Me.table院系专业.专业4Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table院系专业.专业4Column) = value
            End Set
        End Property
        
        Public Property 专业5 As String
            Get
                Try 
                    Return CType(Me(Me.table院系专业.专业5Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table院系专业.专业5Column) = value
            End Set
        End Property
        
        Public Property 专业6 As String
            Get
                Try 
                    Return CType(Me(Me.table院系专业.专业6Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table院系专业.专业6Column) = value
            End Set
        End Property
        
        Public Property 专业7 As String
            Get
                Try 
                    Return CType(Me(Me.table院系专业.专业7Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table院系专业.专业7Column) = value
            End Set
        End Property
        
        Public Property 专业8 As String
            Get
                Try 
                    Return CType(Me(Me.table院系专业.专业8Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table院系专业.专业8Column) = value
            End Set
        End Property
        
        Public Property 专业9 As String
            Get
                Try 
                    Return CType(Me(Me.table院系专业.专业9Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table院系专业.专业9Column) = value
            End Set
        End Property
        
        Public Property 专业10 As String
            Get
                Try 
                    Return CType(Me(Me.table院系专业.专业10Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table院系专业.专业10Column) = value
            End Set
        End Property
        
        Public Function Is专业1Null() As Boolean
            Return Me.IsNull(Me.table院系专业.专业1Column)
        End Function
        
        Public Sub Set专业1Null()
            Me(Me.table院系专业.专业1Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is专业2Null() As Boolean
            Return Me.IsNull(Me.table院系专业.专业2Column)
        End Function
        
        Public Sub Set专业2Null()
            Me(Me.table院系专业.专业2Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is专业3Null() As Boolean
            Return Me.IsNull(Me.table院系专业.专业3Column)
        End Function
        
        Public Sub Set专业3Null()
            Me(Me.table院系专业.专业3Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is专业4Null() As Boolean
            Return Me.IsNull(Me.table院系专业.专业4Column)
        End Function
        
        Public Sub Set专业4Null()
            Me(Me.table院系专业.专业4Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is专业5Null() As Boolean
            Return Me.IsNull(Me.table院系专业.专业5Column)
        End Function
        
        Public Sub Set专业5Null()
            Me(Me.table院系专业.专业5Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is专业6Null() As Boolean
            Return Me.IsNull(Me.table院系专业.专业6Column)
        End Function
        
        Public Sub Set专业6Null()