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.Int32), 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
            Me.column民族編號.AllowDBNull = false
            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
                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 Integer
            Get
                Try 
                    Return CType(Me(Me.table學生信息.年級Column),Integer)
                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
                Return CType(Me(Me.table學生信息.籍貫編號Column),String)
            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 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
        
        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
        
        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