studentdbdataset.designer.vb

来自「零基础学习sql server 2005 流回 等编著 书中代码」· VB 代码 · 共 1,387 行 · 第 1/5 页

            End If
        End If
        Me.tableLessons = CType(MyBase.Tables("Lessons"),LessonsDataTable)
        If (initTable = true) Then
            If (Not (Me.tableLessons) Is Nothing) Then
                Me.tableLessons.InitVars
            End If
        End If
        Me.tableScores = CType(MyBase.Tables("Scores"),ScoresDataTable)
        If (initTable = true) Then
            If (Not (Me.tableScores) Is Nothing) Then
                Me.tableScores.InitVars
            End If
        End If
        Me.tableStudents = CType(MyBase.Tables("Students"),StudentsDataTable)
        If (initTable = true) Then
            If (Not (Me.tableStudents) Is Nothing) Then
                Me.tableStudents.InitVars
            End If
        End If
        Me.tableUsers = CType(MyBase.Tables("Users"),UsersDataTable)
        If (initTable = true) Then
            If (Not (Me.tableUsers) Is Nothing) Then
                Me.tableUsers.InitVars
            End If
        End If
        Me.relationFK_Experience_Students = Me.Relations("FK_Experience_Students")
        Me.relationFK_Scores_Lessons = Me.Relations("FK_Scores_Lessons")
        Me.relationFK_Scores_Students = Me.Relations("FK_Scores_Students")
        Me.relationFK_Students_Classes = Me.Relations("FK_Students_Classes")
    End Sub
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Private Sub InitClass()
        Me.DataSetName = "StudentDBDataSet"
        Me.Prefix = ""
        Me.Namespace = "http://tempuri.org/StudentDBDataSet.xsd"
        Me.EnforceConstraints = true
        Me.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
        Me.tableClasses = New ClassesDataTable
        MyBase.Tables.Add(Me.tableClasses)
        Me.tableExperience = New ExperienceDataTable
        MyBase.Tables.Add(Me.tableExperience)
        Me.tableLessons = New LessonsDataTable
        MyBase.Tables.Add(Me.tableLessons)
        Me.tableScores = New ScoresDataTable
        MyBase.Tables.Add(Me.tableScores)
        Me.tableStudents = New StudentsDataTable
        MyBase.Tables.Add(Me.tableStudents)
        Me.tableUsers = New UsersDataTable
        MyBase.Tables.Add(Me.tableUsers)
        Me.relationFK_Experience_Students = New System.Data.DataRelation("FK_Experience_Students", New System.Data.DataColumn() {Me.tableStudents.Student_IdColumn}, New System.Data.DataColumn() {Me.tableExperience.Student_IdColumn}, false)
        Me.Relations.Add(Me.relationFK_Experience_Students)
        Me.relationFK_Scores_Lessons = New System.Data.DataRelation("FK_Scores_Lessons", New System.Data.DataColumn() {Me.tableLessons.LessonIdColumn}, New System.Data.DataColumn() {Me.tableScores.LessonIdColumn}, false)
        Me.Relations.Add(Me.relationFK_Scores_Lessons)
        Me.relationFK_Scores_Students = New System.Data.DataRelation("FK_Scores_Students", New System.Data.DataColumn() {Me.tableStudents.Student_IdColumn}, New System.Data.DataColumn() {Me.tableScores.Student_IdColumn}, false)
        Me.Relations.Add(Me.relationFK_Scores_Students)
        Me.relationFK_Students_Classes = New System.Data.DataRelation("FK_Students_Classes", New System.Data.DataColumn() {Me.tableClasses.Class_IdColumn}, New System.Data.DataColumn() {Me.tableStudents.Class_IdColumn}, false)
        Me.Relations.Add(Me.relationFK_Students_Classes)
    End Sub
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Private Function ShouldSerializeClasses() As Boolean
        Return false
    End Function
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Private Function ShouldSerializeExperience() As Boolean
        Return false
    End Function
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Private Function ShouldSerializeLessons() As Boolean
        Return false
    End Function
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Private Function ShouldSerializeScores() As Boolean
        Return false
    End Function
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Private Function ShouldSerializeStudents() As Boolean
        Return false
    End Function
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Private Function ShouldSerializeUsers() As Boolean
        Return false
    End Function
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Private Sub SchemaChanged(ByVal sender As Object, ByVal e As System.ComponentModel.CollectionChangeEventArgs)
        If (e.Action = System.ComponentModel.CollectionChangeAction.Remove) Then
            Me.InitVars
        End If
    End Sub
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Public Shared Function GetTypedDataSetSchema(ByVal xs As System.Xml.Schema.XmlSchemaSet) As System.Xml.Schema.XmlSchemaComplexType
        Dim ds As StudentDBDataSet = New StudentDBDataSet
        Dim type As System.Xml.Schema.XmlSchemaComplexType = New System.Xml.Schema.XmlSchemaComplexType
        Dim sequence As System.Xml.Schema.XmlSchemaSequence = New System.Xml.Schema.XmlSchemaSequence
        xs.Add(ds.GetSchemaSerializable)
        Dim any As System.Xml.Schema.XmlSchemaAny = New System.Xml.Schema.XmlSchemaAny
        any.Namespace = ds.Namespace
        sequence.Items.Add(any)
        type.Particle = sequence
        Return type
    End Function
    
    Public Delegate Sub ClassesRowChangeEventHandler(ByVal sender As Object, ByVal e As ClassesRowChangeEvent)
    
    Public Delegate Sub ExperienceRowChangeEventHandler(ByVal sender As Object, ByVal e As ExperienceRowChangeEvent)
    
    Public Delegate Sub LessonsRowChangeEventHandler(ByVal sender As Object, ByVal e As LessonsRowChangeEvent)
    
    Public Delegate Sub ScoresRowChangeEventHandler(ByVal sender As Object, ByVal e As ScoresRowChangeEvent)
    
    Public Delegate Sub StudentsRowChangeEventHandler(ByVal sender As Object, ByVal e As StudentsRowChangeEvent)
    
    Public Delegate Sub UsersRowChangeEventHandler(ByVal sender As Object, ByVal e As UsersRowChangeEvent)
    
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"),  _
     System.Serializable(),  _
     System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
    Partial Public Class ClassesDataTable
        Inherits System.Data.DataTable
        Implements System.Collections.IEnumerable
        
        Private columnClass_Id As System.Data.DataColumn
        
        Private columnClass_Name As System.Data.DataColumn
        
        Private columnDescribe As System.Data.DataColumn
        
        Private columnMemo As System.Data.DataColumn
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Sub New()
            MyBase.New
            Me.TableName = "Classes"
            Me.BeginInit
            Me.InitClass
            Me.EndInit
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Friend Sub New(ByVal table As System.Data.DataTable)
            MyBase.New
            Me.TableName = 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
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Sub New(ByVal info As System.Runtime.Serialization.SerializationInfo, ByVal context As System.Runtime.Serialization.StreamingContext)
            MyBase.New(info, context)
            Me.InitVars
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property Class_IdColumn() As System.Data.DataColumn
            Get
                Return Me.columnClass_Id
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property Class_NameColumn() As System.Data.DataColumn
            Get
                Return Me.columnClass_Name
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property DescribeColumn() As System.Data.DataColumn
            Get
                Return Me.columnDescribe
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property MemoColumn() As System.Data.DataColumn
            Get
                Return Me.columnMemo
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
         System.ComponentModel.Browsable(false)>  _
        Public ReadOnly Property Count() As Integer
            Get
                Return Me.Rows.Count
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Default ReadOnly Property Item(ByVal index As Integer) As ClassesRow
            Get
                Return CType(Me.Rows(index),ClassesRow)
            End Get
        End Property
        
        Public Event ClassesRowChanging As ClassesRowChangeEventHandler
        
        Public Event ClassesRowChanged As ClassesRowChangeEventHandler
        
        Public Event ClassesRowDeleting As ClassesRowChangeEventHandler
        
        Public Event ClassesRowDeleted As ClassesRowChangeEventHandler
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Overloads Sub AddClassesRow(ByVal row As ClassesRow)
            Me.Rows.Add(row)
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Overloads Function AddClassesRow(ByVal Class_Name As String, ByVal Describe As String, ByVal Memo As String) As ClassesRow
            Dim rowClassesRow As ClassesRow = CType(Me.NewRow,ClassesRow)
            rowClassesRow.ItemArray = New Object() {Nothing, Class_Name, Describe, Memo}
            Me.Rows.Add(rowClassesRow)
            Return rowClassesRow
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Function FindByClass_Id(ByVal Class_Id As Integer) As ClassesRow
            Return CType(Me.Rows.Find(New Object() {Class_Id}),ClassesRow)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Overridable Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
            Return Me.Rows.GetEnumerator
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Overrides Function Clone() As System.Data.DataTable
            Dim cln As ClassesDataTable = CType(MyBase.Clone,ClassesDataTable)
            cln.InitVars
            Return cln
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Function CreateInstance() As System.Data.DataTable
            Return New ClassesDataTable
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Friend Sub InitVars()
            Me.columnClass_Id = MyBase.Columns("Class_Id")
            Me.columnClass_Name = MyBase.Columns("Class_Name")
            Me.columnDescribe = MyBase.Columns("Describe")
            Me.columnMemo = MyBase.Columns("Memo")
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Private Sub InitClass()
            Me.columnClass_Id = New System.Data.DataColumn("Class_Id", GetType(Integer), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnClass_Id)
            Me.columnClass_Name = New System.Data.DataColumn("Class_Name", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnClass_Name)
            Me.columnDescribe = New System.Data.DataColumn("Describe", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnDescribe)
            Me.columnMemo = New System.Data.DataColumn("Memo", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnMemo)
            Me.Constraints.Add(New System.Data.UniqueConstraint("Constraint1", New System.Data.DataColumn() {Me.columnClass_Id}, true))
            Me.columnClass_Id.AutoIncrement = true
            Me.columnClass_Id.AllowDBNull = false
            Me.columnClass_Id.ReadOnly = true