/Visual Studio 2008/VBVstoExcelWorkbook/SchoolDataSet.Designer.vb
Visual Basic | 9015 lines | 7797 code | 1047 blank | 171 comment | 13 complexity | 93897e8b697efd5e60ab1eed0f5a6537 MD5 | raw file
Large files files are truncated, but you can click here to view the full file
- '------------------------------------------------------------------------------
- ' <auto-generated>
- ' This code was generated by a tool.
- ' Runtime Version:2.0.50727.4927
- '
- ' Changes to this file may cause incorrect behavior and will be lost if
- ' the code is regenerated.
- ' </auto-generated>
- '------------------------------------------------------------------------------
-
- Option Strict Off
- Option Explicit On
-
-
-
- '''<summary>
- '''Represents a strongly typed in-memory cache of data.
- '''</summary>
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"), _
- Global.System.Serializable(), _
- Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
- Global.System.ComponentModel.ToolboxItem(true), _
- Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedDataSetSchema"), _
- Global.System.Xml.Serialization.XmlRootAttribute("SchoolDataSet"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")> _
- Partial Public Class SchoolDataSet
- Inherits Global.System.Data.DataSet
-
- Private tableCourse As CourseDataTable
-
- Private tableCourseGrade As CourseGradeDataTable
-
- Private tableCourseInstructor As CourseInstructorDataTable
-
- Private tableDepartment As DepartmentDataTable
-
- Private tableOfficeAssignment As OfficeAssignmentDataTable
-
- Private tableOnlineCourse As OnlineCourseDataTable
-
- Private tableOnsiteCourse As OnsiteCourseDataTable
-
- Private tablePerson As PersonDataTable
-
- Private tableGetStudentGrades As GetStudentGradesDataTable
-
- Private tableInsertOfficeAssignment As InsertOfficeAssignmentDataTable
-
- Private tableInsertPerson As InsertPersonDataTable
-
- Private tableUpdateOfficeAssignment As UpdateOfficeAssignmentDataTable
-
- Private tableCourseList As CourseListDataTable
-
- Private tableStudentList As StudentListDataTable
-
- Private relationFK_Course_Department As Global.System.Data.DataRelation
-
- Private relationFK_CourseGrade_Course As Global.System.Data.DataRelation
-
- Private relationFK_CourseGrade_Student As Global.System.Data.DataRelation
-
- Private relationFK_CourseInstructor_Course As Global.System.Data.DataRelation
-
- Private relationFK_CourseInstructor_Person As Global.System.Data.DataRelation
-
- Private relationFK_OfficeAssignment_Person As Global.System.Data.DataRelation
-
- Private relationFK_OnlineCourse_Course As Global.System.Data.DataRelation
-
- Private relationFK_OnsiteCourse_Course As Global.System.Data.DataRelation
-
- Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Public Sub New()
- MyBase.New
- Me.BeginInit
- Me.InitClass
- Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
- AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
- AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler
- Me.EndInit
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
- MyBase.New(info, context, false)
- If (Me.IsBinarySerialized(info, context) = true) Then
- Me.InitVars(false)
- Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
- AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1
- AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1
- Return
- End If
- Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String)
- If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
- Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet
- ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
- If (Not (ds.Tables("Course")) Is Nothing) Then
- MyBase.Tables.Add(New CourseDataTable(ds.Tables("Course")))
- End If
- If (Not (ds.Tables("CourseGrade")) Is Nothing) Then
- MyBase.Tables.Add(New CourseGradeDataTable(ds.Tables("CourseGrade")))
- End If
- If (Not (ds.Tables("CourseInstructor")) Is Nothing) Then
- MyBase.Tables.Add(New CourseInstructorDataTable(ds.Tables("CourseInstructor")))
- End If
- If (Not (ds.Tables("Department")) Is Nothing) Then
- MyBase.Tables.Add(New DepartmentDataTable(ds.Tables("Department")))
- End If
- If (Not (ds.Tables("OfficeAssignment")) Is Nothing) Then
- MyBase.Tables.Add(New OfficeAssignmentDataTable(ds.Tables("OfficeAssignment")))
- End If
- If (Not (ds.Tables("OnlineCourse")) Is Nothing) Then
- MyBase.Tables.Add(New OnlineCourseDataTable(ds.Tables("OnlineCourse")))
- End If
- If (Not (ds.Tables("OnsiteCourse")) Is Nothing) Then
- MyBase.Tables.Add(New OnsiteCourseDataTable(ds.Tables("OnsiteCourse")))
- End If
- If (Not (ds.Tables("Person")) Is Nothing) Then
- MyBase.Tables.Add(New PersonDataTable(ds.Tables("Person")))
- End If
- If (Not (ds.Tables("GetStudentGrades")) Is Nothing) Then
- MyBase.Tables.Add(New GetStudentGradesDataTable(ds.Tables("GetStudentGrades")))
- End If
- If (Not (ds.Tables("InsertOfficeAssignment")) Is Nothing) Then
- MyBase.Tables.Add(New InsertOfficeAssignmentDataTable(ds.Tables("InsertOfficeAssignment")))
- End If
- If (Not (ds.Tables("InsertPerson")) Is Nothing) Then
- MyBase.Tables.Add(New InsertPersonDataTable(ds.Tables("InsertPerson")))
- End If
- If (Not (ds.Tables("UpdateOfficeAssignment")) Is Nothing) Then
- MyBase.Tables.Add(New UpdateOfficeAssignmentDataTable(ds.Tables("UpdateOfficeAssignment")))
- End If
- If (Not (ds.Tables("CourseList")) Is Nothing) Then
- MyBase.Tables.Add(New CourseListDataTable(ds.Tables("CourseList")))
- End If
- If (Not (ds.Tables("StudentList")) Is Nothing) Then
- MyBase.Tables.Add(New StudentListDataTable(ds.Tables("StudentList")))
- End If
- Me.DataSetName = ds.DataSetName
- Me.Prefix = ds.Prefix
- Me.Namespace = ds.Namespace
- Me.Locale = ds.Locale
- Me.CaseSensitive = ds.CaseSensitive
- Me.EnforceConstraints = ds.EnforceConstraints
- Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
- Me.InitVars
- Else
- Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
- End If
- Me.GetSerializationData(info, context)
- Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
- AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
- AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.ComponentModel.Browsable(false), _
- Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
- Public ReadOnly Property Course() As CourseDataTable
- Get
- Return Me.tableCourse
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.ComponentModel.Browsable(false), _
- Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
- Public ReadOnly Property CourseGrade() As CourseGradeDataTable
- Get
- Return Me.tableCourseGrade
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.ComponentModel.Browsable(false), _
- Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
- Public ReadOnly Property CourseInstructor() As CourseInstructorDataTable
- Get
- Return Me.tableCourseInstructor
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.ComponentModel.Browsable(false), _
- Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
- Public ReadOnly Property Department() As DepartmentDataTable
- Get
- Return Me.tableDepartment
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.ComponentModel.Browsable(false), _
- Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
- Public ReadOnly Property OfficeAssignment() As OfficeAssignmentDataTable
- Get
- Return Me.tableOfficeAssignment
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.ComponentModel.Browsable(false), _
- Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
- Public ReadOnly Property OnlineCourse() As OnlineCourseDataTable
- Get
- Return Me.tableOnlineCourse
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.ComponentModel.Browsable(false), _
- Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
- Public ReadOnly Property OnsiteCourse() As OnsiteCourseDataTable
- Get
- Return Me.tableOnsiteCourse
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.ComponentModel.Browsable(false), _
- Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
- Public ReadOnly Property Person() As PersonDataTable
- Get
- Return Me.tablePerson
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.ComponentModel.Browsable(false), _
- Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
- Public ReadOnly Property GetStudentGrades() As GetStudentGradesDataTable
- Get
- Return Me.tableGetStudentGrades
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.ComponentModel.Browsable(false), _
- Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
- Public ReadOnly Property InsertOfficeAssignment() As InsertOfficeAssignmentDataTable
- Get
- Return Me.tableInsertOfficeAssignment
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.ComponentModel.Browsable(false), _
- Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
- Public ReadOnly Property InsertPerson() As InsertPersonDataTable
- Get
- Return Me.tableInsertPerson
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.ComponentModel.Browsable(false), _
- Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
- Public ReadOnly Property UpdateOfficeAssignment() As UpdateOfficeAssignmentDataTable
- Get
- Return Me.tableUpdateOfficeAssignment
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.ComponentModel.Browsable(false), _
- Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
- Public ReadOnly Property CourseList() As CourseListDataTable
- Get
- Return Me.tableCourseList
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.ComponentModel.Browsable(false), _
- Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
- Public ReadOnly Property StudentList() As StudentListDataTable
- Get
- Return Me.tableStudentList
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.ComponentModel.BrowsableAttribute(true), _
- Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)> _
- Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
- Get
- Return Me._schemaSerializationMode
- End Get
- Set
- Me._schemaSerializationMode = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
- Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
- Get
- Return MyBase.Tables
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
- Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
- Get
- Return MyBase.Relations
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Protected Overrides Sub InitializeDerivedDataSet()
- Me.BeginInit
- Me.InitClass
- Me.EndInit
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Public Overrides Function Clone() As Global.System.Data.DataSet
- Dim cln As SchoolDataSet = CType(MyBase.Clone,SchoolDataSet)
- cln.InitVars
- cln.SchemaSerializationMode = Me.SchemaSerializationMode
- Return cln
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Protected Overrides Function ShouldSerializeTables() As Boolean
- Return false
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Protected Overrides Function ShouldSerializeRelations() As Boolean
- Return false
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader)
- If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
- Me.Reset
- Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet
- ds.ReadXml(reader)
- If (Not (ds.Tables("Course")) Is Nothing) Then
- MyBase.Tables.Add(New CourseDataTable(ds.Tables("Course")))
- End If
- If (Not (ds.Tables("CourseGrade")) Is Nothing) Then
- MyBase.Tables.Add(New CourseGradeDataTable(ds.Tables("CourseGrade")))
- End If
- If (Not (ds.Tables("CourseInstructor")) Is Nothing) Then
- MyBase.Tables.Add(New CourseInstructorDataTable(ds.Tables("CourseInstructor")))
- End If
- If (Not (ds.Tables("Department")) Is Nothing) Then
- MyBase.Tables.Add(New DepartmentDataTable(ds.Tables("Department")))
- End If
- If (Not (ds.Tables("OfficeAssignment")) Is Nothing) Then
- MyBase.Tables.Add(New OfficeAssignmentDataTable(ds.Tables("OfficeAssignment")))
- End If
- If (Not (ds.Tables("OnlineCourse")) Is Nothing) Then
- MyBase.Tables.Add(New OnlineCourseDataTable(ds.Tables("OnlineCourse")))
- End If
- If (Not (ds.Tables("OnsiteCourse")) Is Nothing) Then
- MyBase.Tables.Add(New OnsiteCourseDataTable(ds.Tables("OnsiteCourse")))
- End If
- If (Not (ds.Tables("Person")) Is Nothing) Then
- MyBase.Tables.Add(New PersonDataTable(ds.Tables("Person")))
- End If
- If (Not (ds.Tables("GetStudentGrades")) Is Nothing) Then
- MyBase.Tables.Add(New GetStudentGradesDataTable(ds.Tables("GetStudentGrades")))
- End If
- If (Not (ds.Tables("InsertOfficeAssignment")) Is Nothing) Then
- MyBase.Tables.Add(New InsertOfficeAssignmentDataTable(ds.Tables("InsertOfficeAssignment")))
- End If
- If (Not (ds.Tables("InsertPerson")) Is Nothing) Then
- MyBase.Tables.Add(New InsertPersonDataTable(ds.Tables("InsertPerson")))
- End If
- If (Not (ds.Tables("UpdateOfficeAssignment")) Is Nothing) Then
- MyBase.Tables.Add(New UpdateOfficeAssignmentDataTable(ds.Tables("UpdateOfficeAssignment")))
- End If
- If (Not (ds.Tables("CourseList")) Is Nothing) Then
- MyBase.Tables.Add(New CourseListDataTable(ds.Tables("CourseList")))
- End If
- If (Not (ds.Tables("StudentList")) Is Nothing) Then
- MyBase.Tables.Add(New StudentListDataTable(ds.Tables("StudentList")))
- End If
- Me.DataSetName = ds.DataSetName
- Me.Prefix = ds.Prefix
- Me.Namespace = ds.Namespace
- Me.Locale = ds.Locale
- Me.CaseSensitive = ds.CaseSensitive
- Me.EnforceConstraints = ds.EnforceConstraints
- Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
- Me.InitVars
- Else
- Me.ReadXml(reader)
- Me.InitVars
- End If
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema
- Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream
- Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing))
- stream.Position = 0
- Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Friend Overloads Sub InitVars()
- Me.InitVars(true)
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Friend Overloads Sub InitVars(ByVal initTable As Boolean)
- Me.tableCourse = CType(MyBase.Tables("Course"),CourseDataTable)
- If (initTable = true) Then
- If (Not (Me.tableCourse) Is Nothing) Then
- Me.tableCourse.InitVars
- End If
- End If
- Me.tableCourseGrade = CType(MyBase.Tables("CourseGrade"),CourseGradeDataTable)
- If (initTable = true) Then
- If (Not (Me.tableCourseGrade) Is Nothing) Then
- Me.tableCourseGrade.InitVars
- End If
- End If
- Me.tableCourseInstructor = CType(MyBase.Tables("CourseInstructor"),CourseInstructorDataTable)
- If (initTable = true) Then
- If (Not (Me.tableCourseInstructor) Is Nothing) Then
- Me.tableCourseInstructor.InitVars
- End If
- End If
- Me.tableDepartment = CType(MyBase.Tables("Department"),DepartmentDataTable)
- If (initTable = true) Then
- If (Not (Me.tableDepartment) Is Nothing) Then
- Me.tableDepartment.InitVars
- End If
- End If
- Me.tableOfficeAssignment = CType(MyBase.Tables("OfficeAssignment"),OfficeAssignmentDataTable)
- If (initTable = true) Then
- If (Not (Me.tableOfficeAssignment) Is Nothing) Then
- Me.tableOfficeAssignment.InitVars
- End If
- End If
- Me.tableOnlineCourse = CType(MyBase.Tables("OnlineCourse"),OnlineCourseDataTable)
- If (initTable = true) Then
- If (Not (Me.tableOnlineCourse) Is Nothing) Then
- Me.tableOnlineCourse.InitVars
- End If
- End If
- Me.tableOnsiteCourse = CType(MyBase.Tables("OnsiteCourse"),OnsiteCourseDataTable)
- If (initTable = true) Then
- If (Not (Me.tableOnsiteCourse) Is Nothing) Then
- Me.tableOnsiteCourse.InitVars
- End If
- End If
- Me.tablePerson = CType(MyBase.Tables("Person"),PersonDataTable)
- If (initTable = true) Then
- If (Not (Me.tablePerson) Is Nothing) Then
- Me.tablePerson.InitVars
- End If
- End If
- Me.tableGetStudentGrades = CType(MyBase.Tables("GetStudentGrades"),GetStudentGradesDataTable)
- If (initTable = true) Then
- If (Not (Me.tableGetStudentGrades) Is Nothing) Then
- Me.tableGetStudentGrades.InitVars
- End If
- End If
- Me.tableInsertOfficeAssignment = CType(MyBase.Tables("InsertOfficeAssignment"),InsertOfficeAssignmentDataTable)
- If (initTable = true) Then
- If (Not (Me.tableInsertOfficeAssignment) Is Nothing) Then
- Me.tableInsertOfficeAssignment.InitVars
- End If
- End If
- Me.tableInsertPerson = CType(MyBase.Tables("InsertPerson"),InsertPersonDataTable)
- If (initTable = true) Then
- If (Not (Me.tableInsertPerson) Is Nothing) Then
- Me.tableInsertPerson.InitVars
- End If
- End If
- Me.tableUpdateOfficeAssignment = CType(MyBase.Tables("UpdateOfficeAssignment"),UpdateOfficeAssignmentDataTable)
- If (initTable = true) Then
- If (Not (Me.tableUpdateOfficeAssignment) Is Nothing) Then
- Me.tableUpdateOfficeAssignment.InitVars
- End If
- End If
- Me.tableCourseList = CType(MyBase.Tables("CourseList"),CourseListDataTable)
- If (initTable = true) Then
- If (Not (Me.tableCourseList) Is Nothing) Then
- Me.tableCourseList.InitVars
- End If
- End If
- Me.tableStudentList = CType(MyBase.Tables("StudentList"),StudentListDataTable)
- If (initTable = true) Then
- If (Not (Me.tableStudentList) Is Nothing) Then
- Me.tableStudentList.InitVars
- End If
- End If
- Me.relationFK_Course_Department = Me.Relations("FK_Course_Department")
- Me.relationFK_CourseGrade_Course = Me.Relations("FK_CourseGrade_Course")
- Me.relationFK_CourseGrade_Student = Me.Relations("FK_CourseGrade_Student")
- Me.relationFK_CourseInstructor_Course = Me.Relations("FK_CourseInstructor_Course")
- Me.relationFK_CourseInstructor_Person = Me.Relations("FK_CourseInstructor_Person")
- Me.relationFK_OfficeAssignment_Person = Me.Relations("FK_OfficeAssignment_Person")
- Me.relationFK_OnlineCourse_Course = Me.Relations("FK_OnlineCourse_Course")
- Me.relationFK_OnsiteCourse_Course = Me.Relations("FK_OnsiteCourse_Course")
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Private Sub InitClass()
- Me.DataSetName = "SchoolDataSet"
- Me.Prefix = ""
- Me.Namespace = "http://tempuri.org/SchoolDataSet.xsd"
- Me.EnforceConstraints = true
- Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
- Me.tableCourse = New CourseDataTable
- MyBase.Tables.Add(Me.tableCourse)
- Me.tableCourseGrade = New CourseGradeDataTable
- MyBase.Tables.Add(Me.tableCourseGrade)
- Me.tableCourseInstructor = New CourseInstructorDataTable
- MyBase.Tables.Add(Me.tableCourseInstructor)
- Me.tableDepartment = New DepartmentDataTable
- MyBase.Tables.Add(Me.tableDepartment)
- Me.tableOfficeAssignment = New OfficeAssignmentDataTable
- MyBase.Tables.Add(Me.tableOfficeAssignment)
- Me.tableOnlineCourse = New OnlineCourseDataTable
- MyBase.Tables.Add(Me.tableOnlineCourse)
- Me.tableOnsiteCourse = New OnsiteCourseDataTable
- MyBase.Tables.Add(Me.tableOnsiteCourse)
- Me.tablePerson = New PersonDataTable
- MyBase.Tables.Add(Me.tablePerson)
- Me.tableGetStudentGrades = New GetStudentGradesDataTable
- MyBase.Tables.Add(Me.tableGetStudentGrades)
- Me.tableInsertOfficeAssignment = New InsertOfficeAssignmentDataTable
- MyBase.Tables.Add(Me.tableInsertOfficeAssignment)
- Me.tableInsertPerson = New InsertPersonDataTable
- MyBase.Tables.Add(Me.tableInsertPerson)
- Me.tableUpdateOfficeAssignment = New UpdateOfficeAssignmentDataTable
- MyBase.Tables.Add(Me.tableUpdateOfficeAssignment)
- Me.tableCourseList = New CourseListDataTable
- MyBase.Tables.Add(Me.tableCourseList)
- Me.tableStudentList = New StudentListDataTable
- MyBase.Tables.Add(Me.tableStudentList)
- Me.relationFK_Course_Department = New Global.System.Data.DataRelation("FK_Course_Department", New Global.System.Data.DataColumn() {Me.tableDepartment.DepartmentIDColumn}, New Global.System.Data.DataColumn() {Me.tableCourse.DepartmentIDColumn}, false)
- Me.Relations.Add(Me.relationFK_Course_Department)
- Me.relationFK_CourseGrade_Course = New Global.System.Data.DataRelation("FK_CourseGrade_Course", New Global.System.Data.DataColumn() {Me.tableCourse.CourseIDColumn}, New Global.System.Data.DataColumn() {Me.tableCourseGrade.CourseIDColumn}, false)
- Me.Relations.Add(Me.relationFK_CourseGrade_Course)
- Me.relationFK_CourseGrade_Student = New Global.System.Data.DataRelation("FK_CourseGrade_Student", New Global.System.Data.DataColumn() {Me.tablePerson.PersonIDColumn}, New Global.System.Data.DataColumn() {Me.tableCourseGrade.StudentIDColumn}, false)
- Me.Relations.Add(Me.relationFK_CourseGrade_Student)
- Me.relationFK_CourseInstructor_Course = New Global.System.Data.DataRelation("FK_CourseInstructor_Course", New Global.System.Data.DataColumn() {Me.tableCourse.CourseIDColumn}, New Global.System.Data.DataColumn() {Me.tableCourseInstructor.CourseIDColumn}, false)
- Me.Relations.Add(Me.relationFK_CourseInstructor_Course)
- Me.relationFK_CourseInstructor_Person = New Global.System.Data.DataRelation("FK_CourseInstructor_Person", New Global.System.Data.DataColumn() {Me.tablePerson.PersonIDColumn}, New Global.System.Data.DataColumn() {Me.tableCourseInstructor.PersonIDColumn}, false)
- Me.Relations.Add(Me.relationFK_CourseInstructor_Person)
- Me.relationFK_OfficeAssignment_Person = New Global.System.Data.DataRelation("FK_OfficeAssignment_Person", New Global.System.Data.DataColumn() {Me.tablePerson.PersonIDColumn}, New Global.System.Data.DataColumn() {Me.tableOfficeAssignment.InstructorIDColumn}, false)
- Me.Relations.Add(Me.relationFK_OfficeAssignment_Person)
- Me.relationFK_OnlineCourse_Course = New Global.System.Data.DataRelation("FK_OnlineCourse_Course", New Global.System.Data.DataColumn() {Me.tableCourse.CourseIDColumn}, New Global.System.Data.DataColumn() {Me.tableOnlineCourse.CourseIDColumn}, false)
- Me.Relations.Add(Me.relationFK_OnlineCourse_Course)
- Me.relationFK_OnsiteCourse_Course = New Global.System.Data.DataRelation("FK_OnsiteCourse_Course", New Global.System.Data.DataColumn() {Me.tableCourse.CourseIDColumn}, New Global.System.Data.DataColumn() {Me.tableOnsiteCourse.CourseIDColumn}, false)
- Me.Relations.Add(Me.relationFK_OnsiteCourse_Course)
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Private Function ShouldSerializeCourse() As Boolean
- Return false
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Private Function ShouldSerializeCourseGrade() As Boolean
- Return false
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Private Function ShouldSerializeCourseInstructor() As Boolean
- Return false
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Private Function ShouldSerializeDepartment() As Boolean
- Return false
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Private Function ShouldSerializeOfficeAssignment() As Boolean
- Return false
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Private Function ShouldSerializeOnlineCourse() As Boolean
- Return false
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Private Function ShouldSerializeOnsiteCourse() As Boolean
- Return false
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Private Function ShouldSerializePerson() As Boolean
- Return false
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Private Function ShouldSerializeGetStudentGrades() As Boolean
- Return false
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Private Function ShouldSerializeInsertOfficeAssignment() As Boolean
- Return false
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Private Function ShouldSerializeInsertPerson() As Boolean
- Return false
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Private Function ShouldSerializeUpdateOfficeAssignment() As Boolean
- Return false
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Private Function ShouldSerializeCourseList() As Boolean
- Return false
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Private Function ShouldSerializeStudentList() As Boolean
- Return false
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
- If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
- Me.InitVars
- End If
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
- Dim ds As SchoolDataSet = New SchoolDataSet
- Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType
- Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence
- Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny
- any.Namespace = ds.Namespace
- sequence.Items.Add(any)
- type.Particle = sequence
- Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
- If xs.Contains(dsSchema.TargetNamespace) Then
- Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream
- Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream
- Try
- Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
- dsSchema.Write(s1)
- Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
- Do While schemas.MoveNext
- schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
- s2.SetLength(0)
- schema.Write(s2)
- If (s1.Length = s2.Length) Then
- s1.Position = 0
- s2.Position = 0
-
- Do While ((s1.Position <> s1.Length) _
- AndAlso (s1.ReadByte = s2.ReadByte))
-
-
- Loop
- If (s1.Position = s1.Length) Then
- Return type
- End If
- End If
-
- Loop
- Finally
- If (Not (s1) Is Nothing) Then
- s1.Close
- End If
- If (Not (s2) Is Nothing) Then
- s2.Close
- End If
- End Try
- End If
- xs.Add(dsSchema)
- Return type
- End Function
-
- Public Delegate Sub CourseRowChangeEventHandler(ByVal sender As Object, ByVal e As CourseRowChangeEvent)
-
- Public Delegate Sub CourseGradeRowChangeEventHandler(ByVal sender As Object, ByVal e As CourseGradeRowChangeEvent)
-
- Public Delegate Sub CourseInstructorRowChangeEventHandler(ByVal sender As Object, ByVal e As CourseInstructorRowChangeEvent)
-
- Public Delegate Sub DepartmentRowChangeEventHandler(ByVal sender As Object, ByVal e As DepartmentRowChangeEvent)
-
- Public Delegate Sub OfficeAssignmentRowChangeEventHandler(ByVal sender As Object, ByVal e As OfficeAssignmentRowChangeEvent)
-
- Public Delegate Sub OnlineCourseRowChangeEventHandler(ByVal sender As Object, ByVal e As OnlineCourseRowChangeEvent)
-
- Public Delegate Sub OnsiteCourseRowChangeEventHandler(ByVal sender As Object, ByVal e As OnsiteCourseRowChangeEvent)
-
- Public Delegate Sub PersonRowChangeEventHandler(ByVal sender As Object, ByVal e As PersonRowChangeEvent)
-
- Public Delegate Sub GetStudentGradesRowChangeEventHandler(ByVal sender As Object, ByVal e As GetStudentGradesRowChangeEvent)
-
- Public Delegate Sub InsertOfficeAssignmentRowChangeEventHandler(ByVal sender As Object, ByVal e As InsertOfficeAssignmentRowChangeEvent)
-
- Public Delegate Sub InsertPersonRowChangeEventHandler(ByVal sender As Object, ByVal e As InsertPersonRowChangeEvent)
-
- Public Delegate Sub UpdateOfficeAssignmentRowChangeEventHandler(ByVal sender As Object, ByVal e As UpdateOfficeAssignmentRowChangeEvent)
-
- Public Delegate Sub CourseListRowChangeEventHandler(ByVal sender As Object, ByVal e As CourseListRowChangeEvent)
-
- Public Delegate Sub StudentListRowChangeEventHandler(ByVal sender As Object, ByVal e As StudentListRowChangeEvent)
-
- '''<summary>
- '''Represents the strongly named DataTable class.
- '''</summary>
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"), _
- Global.System.Serializable(), _
- Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
- Partial Public Class CourseDataTable
- Inherits Global.System.Data.TypedTableBase(Of CourseRow)
-
- Private columnCourseID As Global.System.Data.DataColumn
-
- Private columnTitle As Global.System.Data.DataColumn
-
- Private columnCredits As Global.System.Data.DataColumn
-
- Private columnDepartmentID As Global.System.Data.DataColumn
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Public Sub New()
- MyBase.New
- Me.TableName = "Course"
- Me.BeginInit
- Me.InitClass
- Me.EndInit
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Friend Sub New(ByVal table As Global.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
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
- MyBase.New(info, context)
- Me.InitVars
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Public ReadOnly Property CourseIDColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnCourseID
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Public ReadOnly Property TitleColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnTitle
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Public ReadOnly Property CreditsColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnCredits
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Public ReadOnly Property DepartmentIDColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnDepartmentID
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.ComponentModel.Browsable(false)> _
- Public ReadOnly Property Count() As Integer
- Get
- Return Me.Rows.Count
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Public Default ReadOnly Property Item(ByVal index As Integer) As CourseRow
- Get
- Return CType(Me.Rows(index),CourseRow)
- End Get
- End Property
-
- Public Event CourseRowChanging As CourseRowChangeEventHandler
-
- Public Event CourseRowChanged As CourseRowChangeEventHandler
-
- Public Event CourseRowDeleting As CourseRowChangeEventHandler
-
- Public Event CourseRowDeleted As CourseRowChangeEventHandler
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Public Overloads Sub AddCourseRow(ByVal row As CourseRow)
- Me.Rows.Add(row)
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Public Overloads Function AddCourseRow(ByVal CourseID As Integer, ByVal Title As String, ByVal Credits As Integer, ByVal parentDepartmentRowByFK_Course_Department As DepartmentRow) As CourseRow
- Dim rowCourseRow As CourseRow = CType(Me.NewRow,CourseRow)
- Dim columnValuesArray() As Object = New Object() {CourseID, Title, Credits, Nothing}
- If (Not (parentDepartmentRowByFK_Course_Department) Is Nothing) Then
- columnValuesArray(3) = parentDepartmentRowByFK_Course_Department(0)
- End If
- rowCourseRow.ItemArray = columnValuesArray
- Me.Rows.Add(rowCourseRow)
- Return rowCourseRow
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Public Function FindByCourseID(ByVal CourseID As Integer) As CourseRow
- Return CType(Me.Rows.Find(New Object() {CourseID}),CourseRow)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Public Overrides Function Clone() As Global.System.Data.DataTable
- Dim cln As CourseDataTable = CType(MyBase.Clone,CourseDataTable)
- cln.InitVars
- Return cln
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
- Return New CourseDataTable
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Friend Sub InitVars()
- Me.columnCourseID = MyBase.Columns("CourseID")
- Me.columnTitle = MyBase.Columns("Title")
- Me.columnCredits = MyBase.Columns("Credits")
- Me.columnDepartmentID = MyBase.Columns("DepartmentID")
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Private Sub InitClass()
- Me.columnCourseID = New Global.System.Data.DataColumn("CourseID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnCourseID)
- Me.columnTitle = New Global.System.Data.DataColumn("Title", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnTitle)
- Me.columnCredits = New Global.System.Data.DataColumn("Credits", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnCredits)
- Me.columnDepartmentID = New Global.System.Data.DataColumn("DepartmentID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnDepartmentID)
- Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnCourseID}, true))
- Me.columnCourseID.AllowDBNull = false
- Me.columnCourseID.Unique = true
- Me.columnTitle.AllowDBNull = false
- Me.columnTitle.MaxLength = 100
- Me.columnCredits.AllowDBNull = false
- Me.columnDepartmentID.AllowDBNull = false
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Public Function NewCourseRow() As CourseRow
- Return CType(Me.NewRow,CourseRow)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
- Return New CourseRow(builder)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Protected Overrides Function GetRowType() As Global.System.Type
- Return GetType(CourseRow)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
- MyBase.OnRowChanged(e)
- If (Not (Me.CourseRowChangedEvent) Is Nothing) Then
- RaiseEvent CourseRowChanged(Me, New CourseRowChangeEvent(CType(e.Row,CourseRow), e.Action))
- End If
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
- MyBase.OnRowChanging(e)
- If (Not (Me.CourseRowChangingEvent) Is Nothing) Then
- RaiseEvent CourseRowChanging(Me, New CourseRowChangeEvent(CType(e.Row,CourseRow), e.Action))
- End If
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
- MyBase.OnRowDeleted(e)
- If (Not (Me.CourseRowDeletedEvent) Is Nothing) Then
- RaiseEvent CourseRowDeleted(Me, New CourseRowChangeEvent(CType(e.Row,CourseRow), e.Action))
- End If
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
- MyBase.OnRowDeleting(e)
- If (Not (Me.CourseRowDeletingEvent) Is Nothing) Then
- RaiseEvent CourseRowDeleting(Me, New CourseRowChangeEvent(CType(e.Row,CourseRow), e.Action))
- End If
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Public Sub RemoveCourseRow(ByVal row As CourseRow)
- Me.Rows.Remove(row)
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
- Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
- Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType
- Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence
- Dim ds As SchoolDataSet = New SchoolDataSet
- Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny
- any1.Namespace = "http://www.w3.org/2001/XMLSchema"
- any1.MinOccurs = New Decimal(0)
- any1.MaxOccurs = Decimal.MaxValue
- any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
- sequence.Items.Add(any1)
- Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny
- any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
- any2.MinOccurs = New Decimal(1)
- any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
- sequence.Items.Add(any2)
- Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute
- attribute1.Name = "namespace"
- attribute1.FixedValue = ds.Namespace
- type.Attributes.Add(attribute1)
- Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute
- attribute2.Name = "tableTypeName"
- attribute2.FixedValue = "CourseDataTable"
- type.Attributes.Add(attribute2)
- type.Particle = sequence
- Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
- If xs.Contains(dsSchema.TargetNamespace) Then
- Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream
- Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream
- Try
- Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
- dsSchema.Write(s1)
- Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
- Do While schemas.MoveNext
- schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
- s2.SetLength(0)
- schema.Write(s2)
- If (s1.Length = s2.Length) Then
- s1.Position = 0
- s2.Position = 0
-
- Do While ((s1.Position <> s1.Length) _
- AndAlso (s1.ReadByte = s2.ReadByte))
-
-
- Loop
- If (s1.Position = s1.Length) Then
- Return type
- End If
- End If
-
- Loop
- Finally
- If (Not (s1) Is Nothing) Then
- …
Large files files are truncated, but you can click here to view the full file