PageRenderTime 459ms CodeModel.GetById 24ms app.highlight 329ms RepoModel.GetById 0ms app.codeStats 2ms

/Visual Studio 2008/VBVstoExcelWorkbook/SchoolDataSet.Designer.vb

#
Visual Basic | 9015 lines | 7797 code | 1047 blank | 171 comment | 13 complexity | 93897e8b697efd5e60ab1eed0f5a6537 MD5 | raw file
   1'------------------------------------------------------------------------------
   2' <auto-generated>
   3'     This code was generated by a tool.
   4'     Runtime Version:2.0.50727.4927
   5'
   6'     Changes to this file may cause incorrect behavior and will be lost if
   7'     the code is regenerated.
   8' </auto-generated>
   9'------------------------------------------------------------------------------
  10
  11Option Strict Off
  12Option Explicit On
  13
  14
  15
  16'''<summary>
  17'''Represents a strongly typed in-memory cache of data.
  18'''</summary>
  19<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"),  _
  20 Global.System.Serializable(),  _
  21 Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _
  22 Global.System.ComponentModel.ToolboxItem(true),  _
  23 Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedDataSetSchema"),  _
  24 Global.System.Xml.Serialization.XmlRootAttribute("SchoolDataSet"),  _
  25 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")>  _
  26Partial Public Class SchoolDataSet
  27    Inherits Global.System.Data.DataSet
  28    
  29    Private tableCourse As CourseDataTable
  30    
  31    Private tableCourseGrade As CourseGradeDataTable
  32    
  33    Private tableCourseInstructor As CourseInstructorDataTable
  34    
  35    Private tableDepartment As DepartmentDataTable
  36    
  37    Private tableOfficeAssignment As OfficeAssignmentDataTable
  38    
  39    Private tableOnlineCourse As OnlineCourseDataTable
  40    
  41    Private tableOnsiteCourse As OnsiteCourseDataTable
  42    
  43    Private tablePerson As PersonDataTable
  44    
  45    Private tableGetStudentGrades As GetStudentGradesDataTable
  46    
  47    Private tableInsertOfficeAssignment As InsertOfficeAssignmentDataTable
  48    
  49    Private tableInsertPerson As InsertPersonDataTable
  50    
  51    Private tableUpdateOfficeAssignment As UpdateOfficeAssignmentDataTable
  52    
  53    Private tableCourseList As CourseListDataTable
  54    
  55    Private tableStudentList As StudentListDataTable
  56    
  57    Private relationFK_Course_Department As Global.System.Data.DataRelation
  58    
  59    Private relationFK_CourseGrade_Course As Global.System.Data.DataRelation
  60    
  61    Private relationFK_CourseGrade_Student As Global.System.Data.DataRelation
  62    
  63    Private relationFK_CourseInstructor_Course As Global.System.Data.DataRelation
  64    
  65    Private relationFK_CourseInstructor_Person As Global.System.Data.DataRelation
  66    
  67    Private relationFK_OfficeAssignment_Person As Global.System.Data.DataRelation
  68    
  69    Private relationFK_OnlineCourse_Course As Global.System.Data.DataRelation
  70    
  71    Private relationFK_OnsiteCourse_Course As Global.System.Data.DataRelation
  72    
  73    Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
  74    
  75    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
  76    Public Sub New()
  77        MyBase.New
  78        Me.BeginInit
  79        Me.InitClass
  80        Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
  81        AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
  82        AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler
  83        Me.EndInit
  84    End Sub
  85    
  86    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
  87    Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
  88        MyBase.New(info, context, false)
  89        If (Me.IsBinarySerialized(info, context) = true) Then
  90            Me.InitVars(false)
  91            Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
  92            AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1
  93            AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1
  94            Return
  95        End If
  96        Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String)
  97        If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
  98            Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet
  99            ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
 100            If (Not (ds.Tables("Course")) Is Nothing) Then
 101                MyBase.Tables.Add(New CourseDataTable(ds.Tables("Course")))
 102            End If
 103            If (Not (ds.Tables("CourseGrade")) Is Nothing) Then
 104                MyBase.Tables.Add(New CourseGradeDataTable(ds.Tables("CourseGrade")))
 105            End If
 106            If (Not (ds.Tables("CourseInstructor")) Is Nothing) Then
 107                MyBase.Tables.Add(New CourseInstructorDataTable(ds.Tables("CourseInstructor")))
 108            End If
 109            If (Not (ds.Tables("Department")) Is Nothing) Then
 110                MyBase.Tables.Add(New DepartmentDataTable(ds.Tables("Department")))
 111            End If
 112            If (Not (ds.Tables("OfficeAssignment")) Is Nothing) Then
 113                MyBase.Tables.Add(New OfficeAssignmentDataTable(ds.Tables("OfficeAssignment")))
 114            End If
 115            If (Not (ds.Tables("OnlineCourse")) Is Nothing) Then
 116                MyBase.Tables.Add(New OnlineCourseDataTable(ds.Tables("OnlineCourse")))
 117            End If
 118            If (Not (ds.Tables("OnsiteCourse")) Is Nothing) Then
 119                MyBase.Tables.Add(New OnsiteCourseDataTable(ds.Tables("OnsiteCourse")))
 120            End If
 121            If (Not (ds.Tables("Person")) Is Nothing) Then
 122                MyBase.Tables.Add(New PersonDataTable(ds.Tables("Person")))
 123            End If
 124            If (Not (ds.Tables("GetStudentGrades")) Is Nothing) Then
 125                MyBase.Tables.Add(New GetStudentGradesDataTable(ds.Tables("GetStudentGrades")))
 126            End If
 127            If (Not (ds.Tables("InsertOfficeAssignment")) Is Nothing) Then
 128                MyBase.Tables.Add(New InsertOfficeAssignmentDataTable(ds.Tables("InsertOfficeAssignment")))
 129            End If
 130            If (Not (ds.Tables("InsertPerson")) Is Nothing) Then
 131                MyBase.Tables.Add(New InsertPersonDataTable(ds.Tables("InsertPerson")))
 132            End If
 133            If (Not (ds.Tables("UpdateOfficeAssignment")) Is Nothing) Then
 134                MyBase.Tables.Add(New UpdateOfficeAssignmentDataTable(ds.Tables("UpdateOfficeAssignment")))
 135            End If
 136            If (Not (ds.Tables("CourseList")) Is Nothing) Then
 137                MyBase.Tables.Add(New CourseListDataTable(ds.Tables("CourseList")))
 138            End If
 139            If (Not (ds.Tables("StudentList")) Is Nothing) Then
 140                MyBase.Tables.Add(New StudentListDataTable(ds.Tables("StudentList")))
 141            End If
 142            Me.DataSetName = ds.DataSetName
 143            Me.Prefix = ds.Prefix
 144            Me.Namespace = ds.Namespace
 145            Me.Locale = ds.Locale
 146            Me.CaseSensitive = ds.CaseSensitive
 147            Me.EnforceConstraints = ds.EnforceConstraints
 148            Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
 149            Me.InitVars
 150        Else
 151            Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
 152        End If
 153        Me.GetSerializationData(info, context)
 154        Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
 155        AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
 156        AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
 157    End Sub
 158    
 159    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 160     Global.System.ComponentModel.Browsable(false),  _
 161     Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _
 162    Public ReadOnly Property Course() As CourseDataTable
 163        Get
 164            Return Me.tableCourse
 165        End Get
 166    End Property
 167    
 168    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 169     Global.System.ComponentModel.Browsable(false),  _
 170     Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _
 171    Public ReadOnly Property CourseGrade() As CourseGradeDataTable
 172        Get
 173            Return Me.tableCourseGrade
 174        End Get
 175    End Property
 176    
 177    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 178     Global.System.ComponentModel.Browsable(false),  _
 179     Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _
 180    Public ReadOnly Property CourseInstructor() As CourseInstructorDataTable
 181        Get
 182            Return Me.tableCourseInstructor
 183        End Get
 184    End Property
 185    
 186    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 187     Global.System.ComponentModel.Browsable(false),  _
 188     Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _
 189    Public ReadOnly Property Department() As DepartmentDataTable
 190        Get
 191            Return Me.tableDepartment
 192        End Get
 193    End Property
 194    
 195    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 196     Global.System.ComponentModel.Browsable(false),  _
 197     Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _
 198    Public ReadOnly Property OfficeAssignment() As OfficeAssignmentDataTable
 199        Get
 200            Return Me.tableOfficeAssignment
 201        End Get
 202    End Property
 203    
 204    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 205     Global.System.ComponentModel.Browsable(false),  _
 206     Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _
 207    Public ReadOnly Property OnlineCourse() As OnlineCourseDataTable
 208        Get
 209            Return Me.tableOnlineCourse
 210        End Get
 211    End Property
 212    
 213    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 214     Global.System.ComponentModel.Browsable(false),  _
 215     Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _
 216    Public ReadOnly Property OnsiteCourse() As OnsiteCourseDataTable
 217        Get
 218            Return Me.tableOnsiteCourse
 219        End Get
 220    End Property
 221    
 222    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 223     Global.System.ComponentModel.Browsable(false),  _
 224     Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _
 225    Public ReadOnly Property Person() As PersonDataTable
 226        Get
 227            Return Me.tablePerson
 228        End Get
 229    End Property
 230    
 231    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 232     Global.System.ComponentModel.Browsable(false),  _
 233     Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _
 234    Public ReadOnly Property GetStudentGrades() As GetStudentGradesDataTable
 235        Get
 236            Return Me.tableGetStudentGrades
 237        End Get
 238    End Property
 239    
 240    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 241     Global.System.ComponentModel.Browsable(false),  _
 242     Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _
 243    Public ReadOnly Property InsertOfficeAssignment() As InsertOfficeAssignmentDataTable
 244        Get
 245            Return Me.tableInsertOfficeAssignment
 246        End Get
 247    End Property
 248    
 249    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 250     Global.System.ComponentModel.Browsable(false),  _
 251     Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _
 252    Public ReadOnly Property InsertPerson() As InsertPersonDataTable
 253        Get
 254            Return Me.tableInsertPerson
 255        End Get
 256    End Property
 257    
 258    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 259     Global.System.ComponentModel.Browsable(false),  _
 260     Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _
 261    Public ReadOnly Property UpdateOfficeAssignment() As UpdateOfficeAssignmentDataTable
 262        Get
 263            Return Me.tableUpdateOfficeAssignment
 264        End Get
 265    End Property
 266    
 267    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 268     Global.System.ComponentModel.Browsable(false),  _
 269     Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _
 270    Public ReadOnly Property CourseList() As CourseListDataTable
 271        Get
 272            Return Me.tableCourseList
 273        End Get
 274    End Property
 275    
 276    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 277     Global.System.ComponentModel.Browsable(false),  _
 278     Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _
 279    Public ReadOnly Property StudentList() As StudentListDataTable
 280        Get
 281            Return Me.tableStudentList
 282        End Get
 283    End Property
 284    
 285    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 286     Global.System.ComponentModel.BrowsableAttribute(true),  _
 287     Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)>  _
 288    Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
 289        Get
 290            Return Me._schemaSerializationMode
 291        End Get
 292        Set
 293            Me._schemaSerializationMode = value
 294        End Set
 295    End Property
 296    
 297    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 298     Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)>  _
 299    Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
 300        Get
 301            Return MyBase.Tables
 302        End Get
 303    End Property
 304    
 305    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 306     Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)>  _
 307    Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
 308        Get
 309            Return MyBase.Relations
 310        End Get
 311    End Property
 312    
 313    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 314    Protected Overrides Sub InitializeDerivedDataSet()
 315        Me.BeginInit
 316        Me.InitClass
 317        Me.EndInit
 318    End Sub
 319    
 320    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 321    Public Overrides Function Clone() As Global.System.Data.DataSet
 322        Dim cln As SchoolDataSet = CType(MyBase.Clone,SchoolDataSet)
 323        cln.InitVars
 324        cln.SchemaSerializationMode = Me.SchemaSerializationMode
 325        Return cln
 326    End Function
 327    
 328    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 329    Protected Overrides Function ShouldSerializeTables() As Boolean
 330        Return false
 331    End Function
 332    
 333    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 334    Protected Overrides Function ShouldSerializeRelations() As Boolean
 335        Return false
 336    End Function
 337    
 338    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 339    Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader)
 340        If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
 341            Me.Reset
 342            Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet
 343            ds.ReadXml(reader)
 344            If (Not (ds.Tables("Course")) Is Nothing) Then
 345                MyBase.Tables.Add(New CourseDataTable(ds.Tables("Course")))
 346            End If
 347            If (Not (ds.Tables("CourseGrade")) Is Nothing) Then
 348                MyBase.Tables.Add(New CourseGradeDataTable(ds.Tables("CourseGrade")))
 349            End If
 350            If (Not (ds.Tables("CourseInstructor")) Is Nothing) Then
 351                MyBase.Tables.Add(New CourseInstructorDataTable(ds.Tables("CourseInstructor")))
 352            End If
 353            If (Not (ds.Tables("Department")) Is Nothing) Then
 354                MyBase.Tables.Add(New DepartmentDataTable(ds.Tables("Department")))
 355            End If
 356            If (Not (ds.Tables("OfficeAssignment")) Is Nothing) Then
 357                MyBase.Tables.Add(New OfficeAssignmentDataTable(ds.Tables("OfficeAssignment")))
 358            End If
 359            If (Not (ds.Tables("OnlineCourse")) Is Nothing) Then
 360                MyBase.Tables.Add(New OnlineCourseDataTable(ds.Tables("OnlineCourse")))
 361            End If
 362            If (Not (ds.Tables("OnsiteCourse")) Is Nothing) Then
 363                MyBase.Tables.Add(New OnsiteCourseDataTable(ds.Tables("OnsiteCourse")))
 364            End If
 365            If (Not (ds.Tables("Person")) Is Nothing) Then
 366                MyBase.Tables.Add(New PersonDataTable(ds.Tables("Person")))
 367            End If
 368            If (Not (ds.Tables("GetStudentGrades")) Is Nothing) Then
 369                MyBase.Tables.Add(New GetStudentGradesDataTable(ds.Tables("GetStudentGrades")))
 370            End If
 371            If (Not (ds.Tables("InsertOfficeAssignment")) Is Nothing) Then
 372                MyBase.Tables.Add(New InsertOfficeAssignmentDataTable(ds.Tables("InsertOfficeAssignment")))
 373            End If
 374            If (Not (ds.Tables("InsertPerson")) Is Nothing) Then
 375                MyBase.Tables.Add(New InsertPersonDataTable(ds.Tables("InsertPerson")))
 376            End If
 377            If (Not (ds.Tables("UpdateOfficeAssignment")) Is Nothing) Then
 378                MyBase.Tables.Add(New UpdateOfficeAssignmentDataTable(ds.Tables("UpdateOfficeAssignment")))
 379            End If
 380            If (Not (ds.Tables("CourseList")) Is Nothing) Then
 381                MyBase.Tables.Add(New CourseListDataTable(ds.Tables("CourseList")))
 382            End If
 383            If (Not (ds.Tables("StudentList")) Is Nothing) Then
 384                MyBase.Tables.Add(New StudentListDataTable(ds.Tables("StudentList")))
 385            End If
 386            Me.DataSetName = ds.DataSetName
 387            Me.Prefix = ds.Prefix
 388            Me.Namespace = ds.Namespace
 389            Me.Locale = ds.Locale
 390            Me.CaseSensitive = ds.CaseSensitive
 391            Me.EnforceConstraints = ds.EnforceConstraints
 392            Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
 393            Me.InitVars
 394        Else
 395            Me.ReadXml(reader)
 396            Me.InitVars
 397        End If
 398    End Sub
 399    
 400    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 401    Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema
 402        Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream
 403        Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing))
 404        stream.Position = 0
 405        Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing)
 406    End Function
 407    
 408    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 409    Friend Overloads Sub InitVars()
 410        Me.InitVars(true)
 411    End Sub
 412    
 413    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 414    Friend Overloads Sub InitVars(ByVal initTable As Boolean)
 415        Me.tableCourse = CType(MyBase.Tables("Course"),CourseDataTable)
 416        If (initTable = true) Then
 417            If (Not (Me.tableCourse) Is Nothing) Then
 418                Me.tableCourse.InitVars
 419            End If
 420        End If
 421        Me.tableCourseGrade = CType(MyBase.Tables("CourseGrade"),CourseGradeDataTable)
 422        If (initTable = true) Then
 423            If (Not (Me.tableCourseGrade) Is Nothing) Then
 424                Me.tableCourseGrade.InitVars
 425            End If
 426        End If
 427        Me.tableCourseInstructor = CType(MyBase.Tables("CourseInstructor"),CourseInstructorDataTable)
 428        If (initTable = true) Then
 429            If (Not (Me.tableCourseInstructor) Is Nothing) Then
 430                Me.tableCourseInstructor.InitVars
 431            End If
 432        End If
 433        Me.tableDepartment = CType(MyBase.Tables("Department"),DepartmentDataTable)
 434        If (initTable = true) Then
 435            If (Not (Me.tableDepartment) Is Nothing) Then
 436                Me.tableDepartment.InitVars
 437            End If
 438        End If
 439        Me.tableOfficeAssignment = CType(MyBase.Tables("OfficeAssignment"),OfficeAssignmentDataTable)
 440        If (initTable = true) Then
 441            If (Not (Me.tableOfficeAssignment) Is Nothing) Then
 442                Me.tableOfficeAssignment.InitVars
 443            End If
 444        End If
 445        Me.tableOnlineCourse = CType(MyBase.Tables("OnlineCourse"),OnlineCourseDataTable)
 446        If (initTable = true) Then
 447            If (Not (Me.tableOnlineCourse) Is Nothing) Then
 448                Me.tableOnlineCourse.InitVars
 449            End If
 450        End If
 451        Me.tableOnsiteCourse = CType(MyBase.Tables("OnsiteCourse"),OnsiteCourseDataTable)
 452        If (initTable = true) Then
 453            If (Not (Me.tableOnsiteCourse) Is Nothing) Then
 454                Me.tableOnsiteCourse.InitVars
 455            End If
 456        End If
 457        Me.tablePerson = CType(MyBase.Tables("Person"),PersonDataTable)
 458        If (initTable = true) Then
 459            If (Not (Me.tablePerson) Is Nothing) Then
 460                Me.tablePerson.InitVars
 461            End If
 462        End If
 463        Me.tableGetStudentGrades = CType(MyBase.Tables("GetStudentGrades"),GetStudentGradesDataTable)
 464        If (initTable = true) Then
 465            If (Not (Me.tableGetStudentGrades) Is Nothing) Then
 466                Me.tableGetStudentGrades.InitVars
 467            End If
 468        End If
 469        Me.tableInsertOfficeAssignment = CType(MyBase.Tables("InsertOfficeAssignment"),InsertOfficeAssignmentDataTable)
 470        If (initTable = true) Then
 471            If (Not (Me.tableInsertOfficeAssignment) Is Nothing) Then
 472                Me.tableInsertOfficeAssignment.InitVars
 473            End If
 474        End If
 475        Me.tableInsertPerson = CType(MyBase.Tables("InsertPerson"),InsertPersonDataTable)
 476        If (initTable = true) Then
 477            If (Not (Me.tableInsertPerson) Is Nothing) Then
 478                Me.tableInsertPerson.InitVars
 479            End If
 480        End If
 481        Me.tableUpdateOfficeAssignment = CType(MyBase.Tables("UpdateOfficeAssignment"),UpdateOfficeAssignmentDataTable)
 482        If (initTable = true) Then
 483            If (Not (Me.tableUpdateOfficeAssignment) Is Nothing) Then
 484                Me.tableUpdateOfficeAssignment.InitVars
 485            End If
 486        End If
 487        Me.tableCourseList = CType(MyBase.Tables("CourseList"),CourseListDataTable)
 488        If (initTable = true) Then
 489            If (Not (Me.tableCourseList) Is Nothing) Then
 490                Me.tableCourseList.InitVars
 491            End If
 492        End If
 493        Me.tableStudentList = CType(MyBase.Tables("StudentList"),StudentListDataTable)
 494        If (initTable = true) Then
 495            If (Not (Me.tableStudentList) Is Nothing) Then
 496                Me.tableStudentList.InitVars
 497            End If
 498        End If
 499        Me.relationFK_Course_Department = Me.Relations("FK_Course_Department")
 500        Me.relationFK_CourseGrade_Course = Me.Relations("FK_CourseGrade_Course")
 501        Me.relationFK_CourseGrade_Student = Me.Relations("FK_CourseGrade_Student")
 502        Me.relationFK_CourseInstructor_Course = Me.Relations("FK_CourseInstructor_Course")
 503        Me.relationFK_CourseInstructor_Person = Me.Relations("FK_CourseInstructor_Person")
 504        Me.relationFK_OfficeAssignment_Person = Me.Relations("FK_OfficeAssignment_Person")
 505        Me.relationFK_OnlineCourse_Course = Me.Relations("FK_OnlineCourse_Course")
 506        Me.relationFK_OnsiteCourse_Course = Me.Relations("FK_OnsiteCourse_Course")
 507    End Sub
 508    
 509    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 510    Private Sub InitClass()
 511        Me.DataSetName = "SchoolDataSet"
 512        Me.Prefix = ""
 513        Me.Namespace = "http://tempuri.org/SchoolDataSet.xsd"
 514        Me.EnforceConstraints = true
 515        Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
 516        Me.tableCourse = New CourseDataTable
 517        MyBase.Tables.Add(Me.tableCourse)
 518        Me.tableCourseGrade = New CourseGradeDataTable
 519        MyBase.Tables.Add(Me.tableCourseGrade)
 520        Me.tableCourseInstructor = New CourseInstructorDataTable
 521        MyBase.Tables.Add(Me.tableCourseInstructor)
 522        Me.tableDepartment = New DepartmentDataTable
 523        MyBase.Tables.Add(Me.tableDepartment)
 524        Me.tableOfficeAssignment = New OfficeAssignmentDataTable
 525        MyBase.Tables.Add(Me.tableOfficeAssignment)
 526        Me.tableOnlineCourse = New OnlineCourseDataTable
 527        MyBase.Tables.Add(Me.tableOnlineCourse)
 528        Me.tableOnsiteCourse = New OnsiteCourseDataTable
 529        MyBase.Tables.Add(Me.tableOnsiteCourse)
 530        Me.tablePerson = New PersonDataTable
 531        MyBase.Tables.Add(Me.tablePerson)
 532        Me.tableGetStudentGrades = New GetStudentGradesDataTable
 533        MyBase.Tables.Add(Me.tableGetStudentGrades)
 534        Me.tableInsertOfficeAssignment = New InsertOfficeAssignmentDataTable
 535        MyBase.Tables.Add(Me.tableInsertOfficeAssignment)
 536        Me.tableInsertPerson = New InsertPersonDataTable
 537        MyBase.Tables.Add(Me.tableInsertPerson)
 538        Me.tableUpdateOfficeAssignment = New UpdateOfficeAssignmentDataTable
 539        MyBase.Tables.Add(Me.tableUpdateOfficeAssignment)
 540        Me.tableCourseList = New CourseListDataTable
 541        MyBase.Tables.Add(Me.tableCourseList)
 542        Me.tableStudentList = New StudentListDataTable
 543        MyBase.Tables.Add(Me.tableStudentList)
 544        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)
 545        Me.Relations.Add(Me.relationFK_Course_Department)
 546        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)
 547        Me.Relations.Add(Me.relationFK_CourseGrade_Course)
 548        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)
 549        Me.Relations.Add(Me.relationFK_CourseGrade_Student)
 550        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)
 551        Me.Relations.Add(Me.relationFK_CourseInstructor_Course)
 552        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)
 553        Me.Relations.Add(Me.relationFK_CourseInstructor_Person)
 554        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)
 555        Me.Relations.Add(Me.relationFK_OfficeAssignment_Person)
 556        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)
 557        Me.Relations.Add(Me.relationFK_OnlineCourse_Course)
 558        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)
 559        Me.Relations.Add(Me.relationFK_OnsiteCourse_Course)
 560    End Sub
 561    
 562    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 563    Private Function ShouldSerializeCourse() As Boolean
 564        Return false
 565    End Function
 566    
 567    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 568    Private Function ShouldSerializeCourseGrade() As Boolean
 569        Return false
 570    End Function
 571    
 572    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 573    Private Function ShouldSerializeCourseInstructor() As Boolean
 574        Return false
 575    End Function
 576    
 577    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 578    Private Function ShouldSerializeDepartment() As Boolean
 579        Return false
 580    End Function
 581    
 582    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 583    Private Function ShouldSerializeOfficeAssignment() As Boolean
 584        Return false
 585    End Function
 586    
 587    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 588    Private Function ShouldSerializeOnlineCourse() As Boolean
 589        Return false
 590    End Function
 591    
 592    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 593    Private Function ShouldSerializeOnsiteCourse() As Boolean
 594        Return false
 595    End Function
 596    
 597    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 598    Private Function ShouldSerializePerson() As Boolean
 599        Return false
 600    End Function
 601    
 602    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 603    Private Function ShouldSerializeGetStudentGrades() As Boolean
 604        Return false
 605    End Function
 606    
 607    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 608    Private Function ShouldSerializeInsertOfficeAssignment() As Boolean
 609        Return false
 610    End Function
 611    
 612    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 613    Private Function ShouldSerializeInsertPerson() As Boolean
 614        Return false
 615    End Function
 616    
 617    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 618    Private Function ShouldSerializeUpdateOfficeAssignment() As Boolean
 619        Return false
 620    End Function
 621    
 622    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 623    Private Function ShouldSerializeCourseList() As Boolean
 624        Return false
 625    End Function
 626    
 627    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 628    Private Function ShouldSerializeStudentList() As Boolean
 629        Return false
 630    End Function
 631    
 632    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 633    Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
 634        If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
 635            Me.InitVars
 636        End If
 637    End Sub
 638    
 639    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 640    Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
 641        Dim ds As SchoolDataSet = New SchoolDataSet
 642        Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType
 643        Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence
 644        Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny
 645        any.Namespace = ds.Namespace
 646        sequence.Items.Add(any)
 647        type.Particle = sequence
 648        Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
 649        If xs.Contains(dsSchema.TargetNamespace) Then
 650            Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream
 651            Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream
 652            Try 
 653                Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
 654                dsSchema.Write(s1)
 655                Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
 656                Do While schemas.MoveNext
 657                    schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
 658                    s2.SetLength(0)
 659                    schema.Write(s2)
 660                    If (s1.Length = s2.Length) Then
 661                        s1.Position = 0
 662                        s2.Position = 0
 663                        
 664                        Do While ((s1.Position <> s1.Length)  _
 665                                    AndAlso (s1.ReadByte = s2.ReadByte))
 666                            
 667                            
 668                        Loop
 669                        If (s1.Position = s1.Length) Then
 670                            Return type
 671                        End If
 672                    End If
 673                    
 674                Loop
 675            Finally
 676                If (Not (s1) Is Nothing) Then
 677                    s1.Close
 678                End If
 679                If (Not (s2) Is Nothing) Then
 680                    s2.Close
 681                End If
 682            End Try
 683        End If
 684        xs.Add(dsSchema)
 685        Return type
 686    End Function
 687    
 688    Public Delegate Sub CourseRowChangeEventHandler(ByVal sender As Object, ByVal e As CourseRowChangeEvent)
 689    
 690    Public Delegate Sub CourseGradeRowChangeEventHandler(ByVal sender As Object, ByVal e As CourseGradeRowChangeEvent)
 691    
 692    Public Delegate Sub CourseInstructorRowChangeEventHandler(ByVal sender As Object, ByVal e As CourseInstructorRowChangeEvent)
 693    
 694    Public Delegate Sub DepartmentRowChangeEventHandler(ByVal sender As Object, ByVal e As DepartmentRowChangeEvent)
 695    
 696    Public Delegate Sub OfficeAssignmentRowChangeEventHandler(ByVal sender As Object, ByVal e As OfficeAssignmentRowChangeEvent)
 697    
 698    Public Delegate Sub OnlineCourseRowChangeEventHandler(ByVal sender As Object, ByVal e As OnlineCourseRowChangeEvent)
 699    
 700    Public Delegate Sub OnsiteCourseRowChangeEventHandler(ByVal sender As Object, ByVal e As OnsiteCourseRowChangeEvent)
 701    
 702    Public Delegate Sub PersonRowChangeEventHandler(ByVal sender As Object, ByVal e As PersonRowChangeEvent)
 703    
 704    Public Delegate Sub GetStudentGradesRowChangeEventHandler(ByVal sender As Object, ByVal e As GetStudentGradesRowChangeEvent)
 705    
 706    Public Delegate Sub InsertOfficeAssignmentRowChangeEventHandler(ByVal sender As Object, ByVal e As InsertOfficeAssignmentRowChangeEvent)
 707    
 708    Public Delegate Sub InsertPersonRowChangeEventHandler(ByVal sender As Object, ByVal e As InsertPersonRowChangeEvent)
 709    
 710    Public Delegate Sub UpdateOfficeAssignmentRowChangeEventHandler(ByVal sender As Object, ByVal e As UpdateOfficeAssignmentRowChangeEvent)
 711    
 712    Public Delegate Sub CourseListRowChangeEventHandler(ByVal sender As Object, ByVal e As CourseListRowChangeEvent)
 713    
 714    Public Delegate Sub StudentListRowChangeEventHandler(ByVal sender As Object, ByVal e As StudentListRowChangeEvent)
 715    
 716    '''<summary>
 717    '''Represents the strongly named DataTable class.
 718    '''</summary>
 719    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"),  _
 720     Global.System.Serializable(),  _
 721     Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
 722    Partial Public Class CourseDataTable
 723        Inherits Global.System.Data.TypedTableBase(Of CourseRow)
 724        
 725        Private columnCourseID As Global.System.Data.DataColumn
 726        
 727        Private columnTitle As Global.System.Data.DataColumn
 728        
 729        Private columnCredits As Global.System.Data.DataColumn
 730        
 731        Private columnDepartmentID As Global.System.Data.DataColumn
 732        
 733        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 734        Public Sub New()
 735            MyBase.New
 736            Me.TableName = "Course"
 737            Me.BeginInit
 738            Me.InitClass
 739            Me.EndInit
 740        End Sub
 741        
 742        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 743        Friend Sub New(ByVal table As Global.System.Data.DataTable)
 744            MyBase.New
 745            Me.TableName = table.TableName
 746            If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
 747                Me.CaseSensitive = table.CaseSensitive
 748            End If
 749            If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
 750                Me.Locale = table.Locale
 751            End If
 752            If (table.Namespace <> table.DataSet.Namespace) Then
 753                Me.Namespace = table.Namespace
 754            End If
 755            Me.Prefix = table.Prefix
 756            Me.MinimumCapacity = table.MinimumCapacity
 757        End Sub
 758        
 759        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 760        Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
 761            MyBase.New(info, context)
 762            Me.InitVars
 763        End Sub
 764        
 765        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 766        Public ReadOnly Property CourseIDColumn() As Global.System.Data.DataColumn
 767            Get
 768                Return Me.columnCourseID
 769            End Get
 770        End Property
 771        
 772        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 773        Public ReadOnly Property TitleColumn() As Global.System.Data.DataColumn
 774            Get
 775                Return Me.columnTitle
 776            End Get
 777        End Property
 778        
 779        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 780        Public ReadOnly Property CreditsColumn() As Global.System.Data.DataColumn
 781            Get
 782                Return Me.columnCredits
 783            End Get
 784        End Property
 785        
 786        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 787        Public ReadOnly Property DepartmentIDColumn() As Global.System.Data.DataColumn
 788            Get
 789                Return Me.columnDepartmentID
 790            End Get
 791        End Property
 792        
 793        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 794         Global.System.ComponentModel.Browsable(false)>  _
 795        Public ReadOnly Property Count() As Integer
 796            Get
 797                Return Me.Rows.Count
 798            End Get
 799        End Property
 800        
 801        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 802        Public Default ReadOnly Property Item(ByVal index As Integer) As CourseRow
 803            Get
 804                Return CType(Me.Rows(index),CourseRow)
 805            End Get
 806        End Property
 807        
 808        Public Event CourseRowChanging As CourseRowChangeEventHandler
 809        
 810        Public Event CourseRowChanged As CourseRowChangeEventHandler
 811        
 812        Public Event CourseRowDeleting As CourseRowChangeEventHandler
 813        
 814        Public Event CourseRowDeleted As CourseRowChangeEventHandler
 815        
 816        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 817        Public Overloads Sub AddCourseRow(ByVal row As CourseRow)
 818            Me.Rows.Add(row)
 819        End Sub
 820        
 821        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 822        Public Overloads Function AddCourseRow(ByVal CourseID As Integer, ByVal Title As String, ByVal Credits As Integer, ByVal parentDepartmentRowByFK_Course_Department As DepartmentRow) As CourseRow
 823            Dim rowCourseRow As CourseRow = CType(Me.NewRow,CourseRow)
 824            Dim columnValuesArray() As Object = New Object() {CourseID, Title, Credits, Nothing}
 825            If (Not (parentDepartmentRowByFK_Course_Department) Is Nothing) Then
 826                columnValuesArray(3) = parentDepartmentRowByFK_Course_Department(0)
 827            End If
 828            rowCourseRow.ItemArray = columnValuesArray
 829            Me.Rows.Add(rowCourseRow)
 830            Return rowCourseRow
 831        End Function
 832        
 833        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 834        Public Function FindByCourseID(ByVal CourseID As Integer) As CourseRow
 835            Return CType(Me.Rows.Find(New Object() {CourseID}),CourseRow)
 836        End Function
 837        
 838        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 839        Public Overrides Function Clone() As Global.System.Data.DataTable
 840            Dim cln As CourseDataTable = CType(MyBase.Clone,CourseDataTable)
 841            cln.InitVars
 842            Return cln
 843        End Function
 844        
 845        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 846        Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
 847            Return New CourseDataTable
 848        End Function
 849        
 850        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 851        Friend Sub InitVars()
 852            Me.columnCourseID = MyBase.Columns("CourseID")
 853            Me.columnTitle = MyBase.Columns("Title")
 854            Me.columnCredits = MyBase.Columns("Credits")
 855            Me.columnDepartmentID = MyBase.Columns("DepartmentID")
 856        End Sub
 857        
 858        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 859        Private Sub InitClass()
 860            Me.columnCourseID = New Global.System.Data.DataColumn("CourseID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
 861            MyBase.Columns.Add(Me.columnCourseID)
 862            Me.columnTitle = New Global.System.Data.DataColumn("Title", GetType(String), Nothing, Global.System.Data.MappingType.Element)
 863            MyBase.Columns.Add(Me.columnTitle)
 864            Me.columnCredits = New Global.System.Data.DataColumn("Credits", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
 865            MyBase.Columns.Add(Me.columnCredits)
 866            Me.columnDepartmentID = New Global.System.Data.DataColumn("DepartmentID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
 867            MyBase.Columns.Add(Me.columnDepartmentID)
 868            Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnCourseID}, true))
 869            Me.columnCourseID.AllowDBNull = false
 870            Me.columnCourseID.Unique = true
 871            Me.columnTitle.AllowDBNull = false
 872            Me.columnTitle.MaxLength = 100
 873            Me.columnCredits.AllowDBNull = false
 874            Me.columnDepartmentID.AllowDBNull = false
 875        End Sub
 876        
 877        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 878        Public Function NewCourseRow() As CourseRow
 879            Return CType(Me.NewRow,CourseRow)
 880        End Function
 881        
 882        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 883        Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
 884            Return New CourseRow(builder)
 885        End Function
 886        
 887        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 888        Protected Overrides Function GetRowType() As Global.System.Type
 889            Return GetType(CourseRow)
 890        End Function
 891        
 892        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 893        Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
 894            MyBase.OnRowChanged(e)
 895            If (Not (Me.CourseRowChangedEvent) Is Nothing) Then
 896                RaiseEvent CourseRowChanged(Me, New CourseRowChangeEvent(CType(e.Row,CourseRow), e.Action))
 897            End If
 898        End Sub
 899        
 900        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 901        Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
 902            MyBase.OnRowChanging(e)
 903            If (Not (Me.CourseRowChangingEvent) Is Nothing) Then
 904                RaiseEvent CourseRowChanging(Me, New CourseRowChangeEvent(CType(e.Row,CourseRow), e.Action))
 905            End If
 906        End Sub
 907        
 908        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 909        Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
 910            MyBase.OnRowDeleted(e)
 911            If (Not (Me.CourseRowDeletedEvent) Is Nothing) Then
 912                RaiseEvent CourseRowDeleted(Me, New CourseRowChangeEvent(CType(e.Row,CourseRow), e.Action))
 913            End If
 914        End Sub
 915        
 916        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 917        Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
 918            MyBase.OnRowDeleting(e)
 919            If (Not (Me.CourseRowDeletingEvent) Is Nothing) Then
 920                RaiseEvent CourseRowDeleting(Me, New CourseRowChangeEvent(CType(e.Row,CourseRow), e.Action))
 921            End If
 922        End Sub
 923        
 924        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 925        Public Sub RemoveCourseRow(ByVal row As CourseRow)
 926            Me.Rows.Remove(row)
 927        End Sub
 928        
 929        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
 930        Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
 931            Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType
 932            Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence
 933            Dim ds As SchoolDataSet = New SchoolDataSet
 934            Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny
 935            any1.Namespace = "http://www.w3.org/2001/XMLSchema"
 936            any1.MinOccurs = New Decimal(0)
 937            any1.MaxOccurs = Decimal.MaxValue
 938            any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
 939            sequence.Items.Add(any1)
 940            Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny
 941            any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
 942            any2.MinOccurs = New Decimal(1)
 943            any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
 944            sequence.Items.Add(any2)
 945            Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute
 946            attribute1.Name = "namespace"
 947            attribute1.FixedValue = ds.Namespace
 948            type.Attributes.Add(attribute1)
 949            Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute
 950            attribute2.Name = "tableTypeName"
 951            attribute2.FixedValue = "CourseDataTable"
 952            type.Attributes.Add(attribute2)
 953            type.Particle = sequence
 954            Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
 955            If xs.Contains(dsSchema.TargetNamespace) Then
 956                Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream
 957                Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream
 958                Try 
 959                    Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
 960                    dsSchema.Write(s1)
 961                    Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
 962                    Do While schemas.MoveNext
 963                        schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
 964                        s2.SetLength(0)
 965                        schema.Write(s2)
 966                        If (s1.Length = s2.Length) Then
 967                            s1.Position = 0
 968                            s2.Position = 0
 969                            
 970                            Do While ((s1.Position <> s1.Length)  _
 971                                        AndAlso (s1.ReadByte = s2.ReadByte))
 972                                
 973                                
 974                            Loop
 975                            If (s1.Position = s1.Length) Then
 976                                Return type
 977                            End If
 978                        End If
 979                        
 980                    Loop
 981                Finally
 982                    If (Not (s1) Is Nothing) Then
 983                        s1.Close
 984                    End If
 985                    If (Not (s2) Is Nothing) Then
 986                        s2.Close
 987                    End If
 988                End Try
 989            End If
 990            xs.Add(dsSchema)
 991            Return type
 992        End Function
 993    End Class
 994    
 995    '''<summary>
 996    '''Represents the strongly named DataTable class.
 997    '''</summary>
 998    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"),  _
 999     Global.System.Serializable(),  _
1000     Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
1001    Partial Public Class CourseGradeDataTable
1002        Inherits Global.System.Data.TypedTableBase(Of CourseGradeRow)
1003        
1004        Private columnEnrollmentID As Global.System.Data.DataColumn
1005        
1006        Private columnCourseID As Global.System.Data.DataColumn
1007        
1008        Private columnStudentID As Global.System.Data.DataColumn
1009        
1010        Private columnGrade As Global.System.Data.DataColumn
1011        
1012        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1013        Public Sub New()
1014            MyBase.New
1015            Me.TableName = "CourseGrade"
1016            Me.BeginInit
1017            Me.InitClass
1018            Me.EndInit
1019        End Sub
1020        
1021        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1022        Friend Sub New(ByVal table As Global.System.Data.DataTable)
1023            MyBase.New
1024            Me.TableName = table.TableName
1025            If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
1026                Me.CaseSensitive = table.CaseSensitive
1027            End If
1028            If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
1029                Me.Locale = table.Locale
1030            End If
1031            If (table.Namespace <> table.DataSet.Namespace) Then
1032                Me.Namespace = table.Namespace
1033            End If
1034            Me.Prefix = table.Prefix
1035            Me.MinimumCapacity = table.MinimumCapacity
1036        End Sub
1037        
1038        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1039        Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
1040            MyBase.New(info, context)
1041            Me.InitVars
1042        End Sub
1043        
1044        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1045        Public ReadOnly Property EnrollmentIDColumn() As Global.System.Data.DataColumn
1046            Get
1047                Return Me.columnEnrollmentID
1048            End Get
1049        End Property
1050        
1051        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1052        Public ReadOnly Property CourseIDColumn() As Global.System.Data.DataColumn
1053            Get
1054                Return Me.columnCourseID
1055            End Get
1056        End Property
1057        
1058        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1059        Public ReadOnly Property StudentIDColumn() As Global.System.Data.DataColumn
1060            Get
1061                Return Me.columnStudentID
1062            End Get
1063        End Property
1064        
1065        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1066        Public ReadOnly Property GradeColumn() As Global.System.Data.DataColumn
1067            Get
1068                Return Me.columnGrade
1069            End Get
1070        End Property
1071        
1072        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1073         Global.System.ComponentModel.Browsable(false)>  _
1074        Public ReadOnly Property Count() As Integer
1075            Get
1076                Return Me.Rows.Count
1077            End Get
1078        End Property
1079        
1080        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1081        Public Default ReadOnly Property Item(ByVal index As Integer) As CourseGradeRow
1082            Get
1083                Return CType(Me.Rows(index),CourseGradeRow)
1084            End Get
1085        End Property
1086        
1087        Public Event CourseGradeRowChanging As CourseGradeRowChangeEventHandler
1088        
1089        Public Event CourseGradeRowChanged As CourseGradeRowChangeEventHandler
1090        
1091        Public Event CourseGradeRowDeleting As CourseGradeRowChangeEventHandler
1092        
1093        Public Event CourseGradeRowDeleted As CourseGradeRowChangeEventHandler
1094        
1095        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1096        Public Overloads Sub AddCourseGradeRow(ByVal row As CourseGradeRow)
1097            Me.Rows.Add(row)
1098        End Sub
1099        
1100        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1101        Public Overloads Function AddCourseGradeRow(ByVal parentCourseRowByFK_CourseGrade_Course As CourseRow, ByVal parentPersonRowByFK_CourseGrade_Student As PersonRow, ByVal Grade As Decimal) As CourseGradeRow
1102            Dim rowCourseGradeRow As CourseGradeRow = CType(Me.NewRow,CourseGradeRow)
1103            Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, Grade}
1104            If (Not (parentCourseRowByFK_CourseGrade_Course) Is Nothing) Then
1105                columnValuesArray(1) = parentCourseRowByFK_CourseGrade_Course(0)
1106            End If
1107            If (Not (parentPersonRowByFK_CourseGrade_Student) Is Nothing) Then
1108                columnValuesArray(2) = parentPersonRowByFK_CourseGrade_Student(0)
1109            End If
1110            rowCourseGradeRow.ItemArray = columnValuesArray
1111            Me.Rows.Add(rowCourseGradeRow)
1112            Return rowCourseGradeRow
1113        End Function
1114        
1115        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1116        Public Function FindByEnrollmentID(ByVal EnrollmentID As Integer) As CourseGradeRow
1117            Return CType(Me.Rows.Find(New Object() {EnrollmentID}),CourseGradeRow)
1118        End Function
1119        
1120        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1121        Public Overrides Function Clone() As Global.System.Data.DataTable
1122            Dim cln As CourseGradeDataTable = CType(MyBase.Clone,CourseGradeDataTable)
1123            cln.InitVars
1124            Return cln
1125        End Function
1126        
1127        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1128        Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
1129            Return New CourseGradeDataTable
1130        End Function
1131        
1132        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1133        Friend Sub InitVars()
1134            Me.columnEnrollmentID = MyBase.Columns("EnrollmentID")
1135            Me.columnCourseID = MyBase.Columns("CourseID")
1136            Me.columnStudentID = MyBase.Columns("StudentID")
1137            Me.columnGrade = MyBase.Columns("Grade")
1138        End Sub
1139        
1140        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1141        Private Sub InitClass()
1142            Me.columnEnrollmentID = New Global.System.Data.DataColumn("EnrollmentID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
1143            MyBase.Columns.Add(Me.columnEnrollmentID)
1144            Me.columnCourseID = New Global.System.Data.DataColumn("CourseID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
1145            MyBase.Columns.Add(Me.columnCourseID)
1146            Me.columnStudentID = New Global.System.Data.DataColumn("StudentID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
1147            MyBase.Columns.Add(Me.columnStudentID)
1148            Me.columnGrade = New Global.System.Data.DataColumn("Grade", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
1149            MyBase.Columns.Add(Me.columnGrade)
1150            Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnEnrollmentID}, true))
1151            Me.columnEnrollmentID.AutoIncrement = true
1152            Me.columnEnrollmentID.AutoIncrementSeed = -1
1153            Me.columnEnrollmentID.AutoIncrementStep = -1
1154            Me.columnEnrollmentID.AllowDBNull = false
1155            Me.columnEnrollmentID.ReadOnly = true
1156            Me.columnEnrollmentID.Unique = true
1157            Me.columnCourseID.AllowDBNull = false
1158            Me.columnStudentID.AllowDBNull = false
1159        End Sub
1160        
1161        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1162        Public Function NewCourseGradeRow() As CourseGradeRow
1163            Return CType(Me.NewRow,CourseGradeRow)
1164        End Function
1165        
1166        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1167        Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
1168            Return New CourseGradeRow(builder)
1169        End Function
1170        
1171        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1172        Protected Overrides Function GetRowType() As Global.System.Type
1173            Return GetType(CourseGradeRow)
1174        End Function
1175        
1176        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1177        Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1178            MyBase.OnRowChanged(e)
1179            If (Not (Me.CourseGradeRowChangedEvent) Is Nothing) Then
1180                RaiseEvent CourseGradeRowChanged(Me, New CourseGradeRowChangeEvent(CType(e.Row,CourseGradeRow), e.Action))
1181            End If
1182        End Sub
1183        
1184        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1185        Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1186            MyBase.OnRowChanging(e)
1187            If (Not (Me.CourseGradeRowChangingEvent) Is Nothing) Then
1188                RaiseEvent CourseGradeRowChanging(Me, New CourseGradeRowChangeEvent(CType(e.Row,CourseGradeRow), e.Action))
1189            End If
1190        End Sub
1191        
1192        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1193        Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1194            MyBase.OnRowDeleted(e)
1195            If (Not (Me.CourseGradeRowDeletedEvent) Is Nothing) Then
1196                RaiseEvent CourseGradeRowDeleted(Me, New CourseGradeRowChangeEvent(CType(e.Row,CourseGradeRow), e.Action))
1197            End If
1198        End Sub
1199        
1200        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1201        Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1202            MyBase.OnRowDeleting(e)
1203            If (Not (Me.CourseGradeRowDeletingEvent) Is Nothing) Then
1204                RaiseEvent CourseGradeRowDeleting(Me, New CourseGradeRowChangeEvent(CType(e.Row,CourseGradeRow), e.Action))
1205            End If
1206        End Sub
1207        
1208        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1209        Public Sub RemoveCourseGradeRow(ByVal row As CourseGradeRow)
1210            Me.Rows.Remove(row)
1211        End Sub
1212        
1213        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1214        Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
1215            Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType
1216            Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence
1217            Dim ds As SchoolDataSet = New SchoolDataSet
1218            Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny
1219            any1.Namespace = "http://www.w3.org/2001/XMLSchema"
1220            any1.MinOccurs = New Decimal(0)
1221            any1.MaxOccurs = Decimal.MaxValue
1222            any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1223            sequence.Items.Add(any1)
1224            Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny
1225            any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
1226            any2.MinOccurs = New Decimal(1)
1227            any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1228            sequence.Items.Add(any2)
1229            Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute
1230            attribute1.Name = "namespace"
1231            attribute1.FixedValue = ds.Namespace
1232            type.Attributes.Add(attribute1)
1233            Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute
1234            attribute2.Name = "tableTypeName"
1235            attribute2.FixedValue = "CourseGradeDataTable"
1236            type.Attributes.Add(attribute2)
1237            type.Particle = sequence
1238            Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
1239            If xs.Contains(dsSchema.TargetNamespace) Then
1240                Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream
1241                Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream
1242                Try 
1243                    Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
1244                    dsSchema.Write(s1)
1245                    Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
1246                    Do While schemas.MoveNext
1247                        schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
1248                        s2.SetLength(0)
1249                        schema.Write(s2)
1250                        If (s1.Length = s2.Length) Then
1251                            s1.Position = 0
1252                            s2.Position = 0
1253                            
1254                            Do While ((s1.Position <> s1.Length)  _
1255                                        AndAlso (s1.ReadByte = s2.ReadByte))
1256                                
1257                                
1258                            Loop
1259                            If (s1.Position = s1.Length) Then
1260                                Return type
1261                            End If
1262                        End If
1263                        
1264                    Loop
1265                Finally
1266                    If (Not (s1) Is Nothing) Then
1267                        s1.Close
1268                    End If
1269                    If (Not (s2) Is Nothing) Then
1270                        s2.Close
1271                    End If
1272                End Try
1273            End If
1274            xs.Add(dsSchema)
1275            Return type
1276        End Function
1277    End Class
1278    
1279    '''<summary>
1280    '''Represents the strongly named DataTable class.
1281    '''</summary>
1282    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"),  _
1283     Global.System.Serializable(),  _
1284     Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
1285    Partial Public Class CourseInstructorDataTable
1286        Inherits Global.System.Data.TypedTableBase(Of CourseInstructorRow)
1287        
1288        Private columnCourseID As Global.System.Data.DataColumn
1289        
1290        Private columnPersonID As Global.System.Data.DataColumn
1291        
1292        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1293        Public Sub New()
1294            MyBase.New
1295            Me.TableName = "CourseInstructor"
1296            Me.BeginInit
1297            Me.InitClass
1298            Me.EndInit
1299        End Sub
1300        
1301        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1302        Friend Sub New(ByVal table As Global.System.Data.DataTable)
1303            MyBase.New
1304            Me.TableName = table.TableName
1305            If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
1306                Me.CaseSensitive = table.CaseSensitive
1307            End If
1308            If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
1309                Me.Locale = table.Locale
1310            End If
1311            If (table.Namespace <> table.DataSet.Namespace) Then
1312                Me.Namespace = table.Namespace
1313            End If
1314            Me.Prefix = table.Prefix
1315            Me.MinimumCapacity = table.MinimumCapacity
1316        End Sub
1317        
1318        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1319        Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
1320            MyBase.New(info, context)
1321            Me.InitVars
1322        End Sub
1323        
1324        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1325        Public ReadOnly Property CourseIDColumn() As Global.System.Data.DataColumn
1326            Get
1327                Return Me.columnCourseID
1328            End Get
1329        End Property
1330        
1331        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1332        Public ReadOnly Property PersonIDColumn() As Global.System.Data.DataColumn
1333            Get
1334                Return Me.columnPersonID
1335            End Get
1336        End Property
1337        
1338        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1339         Global.System.ComponentModel.Browsable(false)>  _
1340        Public ReadOnly Property Count() As Integer
1341            Get
1342                Return Me.Rows.Count
1343            End Get
1344        End Property
1345        
1346        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1347        Public Default ReadOnly Property Item(ByVal index As Integer) As CourseInstructorRow
1348            Get
1349                Return CType(Me.Rows(index),CourseInstructorRow)
1350            End Get
1351        End Property
1352        
1353        Public Event CourseInstructorRowChanging As CourseInstructorRowChangeEventHandler
1354        
1355        Public Event CourseInstructorRowChanged As CourseInstructorRowChangeEventHandler
1356        
1357        Public Event CourseInstructorRowDeleting As CourseInstructorRowChangeEventHandler
1358        
1359        Public Event CourseInstructorRowDeleted As CourseInstructorRowChangeEventHandler
1360        
1361        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1362        Public Overloads Sub AddCourseInstructorRow(ByVal row As CourseInstructorRow)
1363            Me.Rows.Add(row)
1364        End Sub
1365        
1366        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1367        Public Overloads Function AddCourseInstructorRow(ByVal parentCourseRowByFK_CourseInstructor_Course As CourseRow, ByVal parentPersonRowByFK_CourseInstructor_Person As PersonRow) As CourseInstructorRow
1368            Dim rowCourseInstructorRow As CourseInstructorRow = CType(Me.NewRow,CourseInstructorRow)
1369            Dim columnValuesArray() As Object = New Object() {Nothing, Nothing}
1370            If (Not (parentCourseRowByFK_CourseInstructor_Course) Is Nothing) Then
1371                columnValuesArray(0) = parentCourseRowByFK_CourseInstructor_Course(0)
1372            End If
1373            If (Not (parentPersonRowByFK_CourseInstructor_Person) Is Nothing) Then
1374                columnValuesArray(1) = parentPersonRowByFK_CourseInstructor_Person(0)
1375            End If
1376            rowCourseInstructorRow.ItemArray = columnValuesArray
1377            Me.Rows.Add(rowCourseInstructorRow)
1378            Return rowCourseInstructorRow
1379        End Function
1380        
1381        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1382        Public Function FindByCourseIDPersonID(ByVal CourseID As Integer, ByVal PersonID As Integer) As CourseInstructorRow
1383            Return CType(Me.Rows.Find(New Object() {CourseID, PersonID}),CourseInstructorRow)
1384        End Function
1385        
1386        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1387        Public Overrides Function Clone() As Global.System.Data.DataTable
1388            Dim cln As CourseInstructorDataTable = CType(MyBase.Clone,CourseInstructorDataTable)
1389            cln.InitVars
1390            Return cln
1391        End Function
1392        
1393        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1394        Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
1395            Return New CourseInstructorDataTable
1396        End Function
1397        
1398        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1399        Friend Sub InitVars()
1400            Me.columnCourseID = MyBase.Columns("CourseID")
1401            Me.columnPersonID = MyBase.Columns("PersonID")
1402        End Sub
1403        
1404        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1405        Private Sub InitClass()
1406            Me.columnCourseID = New Global.System.Data.DataColumn("CourseID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
1407            MyBase.Columns.Add(Me.columnCourseID)
1408            Me.columnPersonID = New Global.System.Data.DataColumn("PersonID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
1409            MyBase.Columns.Add(Me.columnPersonID)
1410            Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnCourseID, Me.columnPersonID}, true))
1411            Me.columnCourseID.AllowDBNull = false
1412            Me.columnPersonID.AllowDBNull = false
1413        End Sub
1414        
1415        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1416        Public Function NewCourseInstructorRow() As CourseInstructorRow
1417            Return CType(Me.NewRow,CourseInstructorRow)
1418        End Function
1419        
1420        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1421        Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
1422            Return New CourseInstructorRow(builder)
1423        End Function
1424        
1425        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1426        Protected Overrides Function GetRowType() As Global.System.Type
1427            Return GetType(CourseInstructorRow)
1428        End Function
1429        
1430        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1431        Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1432            MyBase.OnRowChanged(e)
1433            If (Not (Me.CourseInstructorRowChangedEvent) Is Nothing) Then
1434                RaiseEvent CourseInstructorRowChanged(Me, New CourseInstructorRowChangeEvent(CType(e.Row,CourseInstructorRow), e.Action))
1435            End If
1436        End Sub
1437        
1438        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1439        Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1440            MyBase.OnRowChanging(e)
1441            If (Not (Me.CourseInstructorRowChangingEvent) Is Nothing) Then
1442                RaiseEvent CourseInstructorRowChanging(Me, New CourseInstructorRowChangeEvent(CType(e.Row,CourseInstructorRow), e.Action))
1443            End If
1444        End Sub
1445        
1446        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1447        Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1448            MyBase.OnRowDeleted(e)
1449            If (Not (Me.CourseInstructorRowDeletedEvent) Is Nothing) Then
1450                RaiseEvent CourseInstructorRowDeleted(Me, New CourseInstructorRowChangeEvent(CType(e.Row,CourseInstructorRow), e.Action))
1451            End If
1452        End Sub
1453        
1454        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1455        Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1456            MyBase.OnRowDeleting(e)
1457            If (Not (Me.CourseInstructorRowDeletingEvent) Is Nothing) Then
1458                RaiseEvent CourseInstructorRowDeleting(Me, New CourseInstructorRowChangeEvent(CType(e.Row,CourseInstructorRow), e.Action))
1459            End If
1460        End Sub
1461        
1462        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1463        Public Sub RemoveCourseInstructorRow(ByVal row As CourseInstructorRow)
1464            Me.Rows.Remove(row)
1465        End Sub
1466        
1467        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1468        Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
1469            Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType
1470            Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence
1471            Dim ds As SchoolDataSet = New SchoolDataSet
1472            Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny
1473            any1.Namespace = "http://www.w3.org/2001/XMLSchema"
1474            any1.MinOccurs = New Decimal(0)
1475            any1.MaxOccurs = Decimal.MaxValue
1476            any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1477            sequence.Items.Add(any1)
1478            Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny
1479            any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
1480            any2.MinOccurs = New Decimal(1)
1481            any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1482            sequence.Items.Add(any2)
1483            Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute
1484            attribute1.Name = "namespace"
1485            attribute1.FixedValue = ds.Namespace
1486            type.Attributes.Add(attribute1)
1487            Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute
1488            attribute2.Name = "tableTypeName"
1489            attribute2.FixedValue = "CourseInstructorDataTable"
1490            type.Attributes.Add(attribute2)
1491            type.Particle = sequence
1492            Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
1493            If xs.Contains(dsSchema.TargetNamespace) Then
1494                Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream
1495                Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream
1496                Try 
1497                    Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
1498                    dsSchema.Write(s1)
1499                    Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
1500                    Do While schemas.MoveNext
1501                        schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
1502                        s2.SetLength(0)
1503                        schema.Write(s2)
1504                        If (s1.Length = s2.Length) Then
1505                            s1.Position = 0
1506                            s2.Position = 0
1507                            
1508                            Do While ((s1.Position <> s1.Length)  _
1509                                        AndAlso (s1.ReadByte = s2.ReadByte))
1510                                
1511                                
1512                            Loop
1513                            If (s1.Position = s1.Length) Then
1514                                Return type
1515                            End If
1516                        End If
1517                        
1518                    Loop
1519                Finally
1520                    If (Not (s1) Is Nothing) Then
1521                        s1.Close
1522                    End If
1523                    If (Not (s2) Is Nothing) Then
1524                        s2.Close
1525                    End If
1526                End Try
1527            End If
1528            xs.Add(dsSchema)
1529            Return type
1530        End Function
1531    End Class
1532    
1533    '''<summary>
1534    '''Represents the strongly named DataTable class.
1535    '''</summary>
1536    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"),  _
1537     Global.System.Serializable(),  _
1538     Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
1539    Partial Public Class DepartmentDataTable
1540        Inherits Global.System.Data.TypedTableBase(Of DepartmentRow)
1541        
1542        Private columnDepartmentID As Global.System.Data.DataColumn
1543        
1544        Private columnName As Global.System.Data.DataColumn
1545        
1546        Private columnBudget As Global.System.Data.DataColumn
1547        
1548        Private columnStartDate As Global.System.Data.DataColumn
1549        
1550        Private columnAdministrator As Global.System.Data.DataColumn
1551        
1552        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1553        Public Sub New()
1554            MyBase.New
1555            Me.TableName = "Department"
1556            Me.BeginInit
1557            Me.InitClass
1558            Me.EndInit
1559        End Sub
1560        
1561        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1562        Friend Sub New(ByVal table As Global.System.Data.DataTable)
1563            MyBase.New
1564            Me.TableName = table.TableName
1565            If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
1566                Me.CaseSensitive = table.CaseSensitive
1567            End If
1568            If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
1569                Me.Locale = table.Locale
1570            End If
1571            If (table.Namespace <> table.DataSet.Namespace) Then
1572                Me.Namespace = table.Namespace
1573            End If
1574            Me.Prefix = table.Prefix
1575            Me.MinimumCapacity = table.MinimumCapacity
1576        End Sub
1577        
1578        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1579        Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
1580            MyBase.New(info, context)
1581            Me.InitVars
1582        End Sub
1583        
1584        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1585        Public ReadOnly Property DepartmentIDColumn() As Global.System.Data.DataColumn
1586            Get
1587                Return Me.columnDepartmentID
1588            End Get
1589        End Property
1590        
1591        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1592        Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn
1593            Get
1594                Return Me.columnName
1595            End Get
1596        End Property
1597        
1598        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1599        Public ReadOnly Property BudgetColumn() As Global.System.Data.DataColumn
1600            Get
1601                Return Me.columnBudget
1602            End Get
1603        End Property
1604        
1605        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1606        Public ReadOnly Property StartDateColumn() As Global.System.Data.DataColumn
1607            Get
1608                Return Me.columnStartDate
1609            End Get
1610        End Property
1611        
1612        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1613        Public ReadOnly Property AdministratorColumn() As Global.System.Data.DataColumn
1614            Get
1615                Return Me.columnAdministrator
1616            End Get
1617        End Property
1618        
1619        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1620         Global.System.ComponentModel.Browsable(false)>  _
1621        Public ReadOnly Property Count() As Integer
1622            Get
1623                Return Me.Rows.Count
1624            End Get
1625        End Property
1626        
1627        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1628        Public Default ReadOnly Property Item(ByVal index As Integer) As DepartmentRow
1629            Get
1630                Return CType(Me.Rows(index),DepartmentRow)
1631            End Get
1632        End Property
1633        
1634        Public Event DepartmentRowChanging As DepartmentRowChangeEventHandler
1635        
1636        Public Event DepartmentRowChanged As DepartmentRowChangeEventHandler
1637        
1638        Public Event DepartmentRowDeleting As DepartmentRowChangeEventHandler
1639        
1640        Public Event DepartmentRowDeleted As DepartmentRowChangeEventHandler
1641        
1642        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1643        Public Overloads Sub AddDepartmentRow(ByVal row As DepartmentRow)
1644            Me.Rows.Add(row)
1645        End Sub
1646        
1647        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1648        Public Overloads Function AddDepartmentRow(ByVal DepartmentID As Integer, ByVal Name As String, ByVal Budget As Decimal, ByVal StartDate As Date, ByVal Administrator As Integer) As DepartmentRow
1649            Dim rowDepartmentRow As DepartmentRow = CType(Me.NewRow,DepartmentRow)
1650            Dim columnValuesArray() As Object = New Object() {DepartmentID, Name, Budget, StartDate, Administrator}
1651            rowDepartmentRow.ItemArray = columnValuesArray
1652            Me.Rows.Add(rowDepartmentRow)
1653            Return rowDepartmentRow
1654        End Function
1655        
1656        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1657        Public Function FindByDepartmentID(ByVal DepartmentID As Integer) As DepartmentRow
1658            Return CType(Me.Rows.Find(New Object() {DepartmentID}),DepartmentRow)
1659        End Function
1660        
1661        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1662        Public Overrides Function Clone() As Global.System.Data.DataTable
1663            Dim cln As DepartmentDataTable = CType(MyBase.Clone,DepartmentDataTable)
1664            cln.InitVars
1665            Return cln
1666        End Function
1667        
1668        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1669        Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
1670            Return New DepartmentDataTable
1671        End Function
1672        
1673        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1674        Friend Sub InitVars()
1675            Me.columnDepartmentID = MyBase.Columns("DepartmentID")
1676            Me.columnName = MyBase.Columns("Name")
1677            Me.columnBudget = MyBase.Columns("Budget")
1678            Me.columnStartDate = MyBase.Columns("StartDate")
1679            Me.columnAdministrator = MyBase.Columns("Administrator")
1680        End Sub
1681        
1682        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1683        Private Sub InitClass()
1684            Me.columnDepartmentID = New Global.System.Data.DataColumn("DepartmentID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
1685            MyBase.Columns.Add(Me.columnDepartmentID)
1686            Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1687            MyBase.Columns.Add(Me.columnName)
1688            Me.columnBudget = New Global.System.Data.DataColumn("Budget", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
1689            MyBase.Columns.Add(Me.columnBudget)
1690            Me.columnStartDate = New Global.System.Data.DataColumn("StartDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
1691            MyBase.Columns.Add(Me.columnStartDate)
1692            Me.columnAdministrator = New Global.System.Data.DataColumn("Administrator", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
1693            MyBase.Columns.Add(Me.columnAdministrator)
1694            Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnDepartmentID}, true))
1695            Me.columnDepartmentID.AllowDBNull = false
1696            Me.columnDepartmentID.Unique = true
1697            Me.columnName.AllowDBNull = false
1698            Me.columnName.MaxLength = 50
1699            Me.columnBudget.AllowDBNull = false
1700            Me.columnStartDate.AllowDBNull = false
1701        End Sub
1702        
1703        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1704        Public Function NewDepartmentRow() As DepartmentRow
1705            Return CType(Me.NewRow,DepartmentRow)
1706        End Function
1707        
1708        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1709        Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
1710            Return New DepartmentRow(builder)
1711        End Function
1712        
1713        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1714        Protected Overrides Function GetRowType() As Global.System.Type
1715            Return GetType(DepartmentRow)
1716        End Function
1717        
1718        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1719        Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1720            MyBase.OnRowChanged(e)
1721            If (Not (Me.DepartmentRowChangedEvent) Is Nothing) Then
1722                RaiseEvent DepartmentRowChanged(Me, New DepartmentRowChangeEvent(CType(e.Row,DepartmentRow), e.Action))
1723            End If
1724        End Sub
1725        
1726        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1727        Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1728            MyBase.OnRowChanging(e)
1729            If (Not (Me.DepartmentRowChangingEvent) Is Nothing) Then
1730                RaiseEvent DepartmentRowChanging(Me, New DepartmentRowChangeEvent(CType(e.Row,DepartmentRow), e.Action))
1731            End If
1732        End Sub
1733        
1734        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1735        Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1736            MyBase.OnRowDeleted(e)
1737            If (Not (Me.DepartmentRowDeletedEvent) Is Nothing) Then
1738                RaiseEvent DepartmentRowDeleted(Me, New DepartmentRowChangeEvent(CType(e.Row,DepartmentRow), e.Action))
1739            End If
1740        End Sub
1741        
1742        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1743        Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1744            MyBase.OnRowDeleting(e)
1745            If (Not (Me.DepartmentRowDeletingEvent) Is Nothing) Then
1746                RaiseEvent DepartmentRowDeleting(Me, New DepartmentRowChangeEvent(CType(e.Row,DepartmentRow), e.Action))
1747            End If
1748        End Sub
1749        
1750        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1751        Public Sub RemoveDepartmentRow(ByVal row As DepartmentRow)
1752            Me.Rows.Remove(row)
1753        End Sub
1754        
1755        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1756        Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
1757            Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType
1758            Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence
1759            Dim ds As SchoolDataSet = New SchoolDataSet
1760            Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny
1761            any1.Namespace = "http://www.w3.org/2001/XMLSchema"
1762            any1.MinOccurs = New Decimal(0)
1763            any1.MaxOccurs = Decimal.MaxValue
1764            any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1765            sequence.Items.Add(any1)
1766            Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny
1767            any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
1768            any2.MinOccurs = New Decimal(1)
1769            any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1770            sequence.Items.Add(any2)
1771            Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute
1772            attribute1.Name = "namespace"
1773            attribute1.FixedValue = ds.Namespace
1774            type.Attributes.Add(attribute1)
1775            Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute
1776            attribute2.Name = "tableTypeName"
1777            attribute2.FixedValue = "DepartmentDataTable"
1778            type.Attributes.Add(attribute2)
1779            type.Particle = sequence
1780            Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
1781            If xs.Contains(dsSchema.TargetNamespace) Then
1782                Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream
1783                Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream
1784                Try 
1785                    Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
1786                    dsSchema.Write(s1)
1787                    Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
1788                    Do While schemas.MoveNext
1789                        schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
1790                        s2.SetLength(0)
1791                        schema.Write(s2)
1792                        If (s1.Length = s2.Length) Then
1793                            s1.Position = 0
1794                            s2.Position = 0
1795                            
1796                            Do While ((s1.Position <> s1.Length)  _
1797                                        AndAlso (s1.ReadByte = s2.ReadByte))
1798                                
1799                                
1800                            Loop
1801                            If (s1.Position = s1.Length) Then
1802                                Return type
1803                            End If
1804                        End If
1805                        
1806                    Loop
1807                Finally
1808                    If (Not (s1) Is Nothing) Then
1809                        s1.Close
1810                    End If
1811                    If (Not (s2) Is Nothing) Then
1812                        s2.Close
1813                    End If
1814                End Try
1815            End If
1816            xs.Add(dsSchema)
1817            Return type
1818        End Function
1819    End Class
1820    
1821    '''<summary>
1822    '''Represents the strongly named DataTable class.
1823    '''</summary>
1824    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"),  _
1825     Global.System.Serializable(),  _
1826     Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
1827    Partial Public Class OfficeAssignmentDataTable
1828        Inherits Global.System.Data.TypedTableBase(Of OfficeAssignmentRow)
1829        
1830        Private columnInstructorID As Global.System.Data.DataColumn
1831        
1832        Private columnLocation As Global.System.Data.DataColumn
1833        
1834        Private columnTimestamp As Global.System.Data.DataColumn
1835        
1836        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1837        Public Sub New()
1838            MyBase.New
1839            Me.TableName = "OfficeAssignment"
1840            Me.BeginInit
1841            Me.InitClass
1842            Me.EndInit
1843        End Sub
1844        
1845        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1846        Friend Sub New(ByVal table As Global.System.Data.DataTable)
1847            MyBase.New
1848            Me.TableName = table.TableName
1849            If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
1850                Me.CaseSensitive = table.CaseSensitive
1851            End If
1852            If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
1853                Me.Locale = table.Locale
1854            End If
1855            If (table.Namespace <> table.DataSet.Namespace) Then
1856                Me.Namespace = table.Namespace
1857            End If
1858            Me.Prefix = table.Prefix
1859            Me.MinimumCapacity = table.MinimumCapacity
1860        End Sub
1861        
1862        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1863        Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
1864            MyBase.New(info, context)
1865            Me.InitVars
1866        End Sub
1867        
1868        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1869        Public ReadOnly Property InstructorIDColumn() As Global.System.Data.DataColumn
1870            Get
1871                Return Me.columnInstructorID
1872            End Get
1873        End Property
1874        
1875        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1876        Public ReadOnly Property LocationColumn() As Global.System.Data.DataColumn
1877            Get
1878                Return Me.columnLocation
1879            End Get
1880        End Property
1881        
1882        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1883        Public ReadOnly Property TimestampColumn() As Global.System.Data.DataColumn
1884            Get
1885                Return Me.columnTimestamp
1886            End Get
1887        End Property
1888        
1889        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1890         Global.System.ComponentModel.Browsable(false)>  _
1891        Public ReadOnly Property Count() As Integer
1892            Get
1893                Return Me.Rows.Count
1894            End Get
1895        End Property
1896        
1897        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1898        Public Default ReadOnly Property Item(ByVal index As Integer) As OfficeAssignmentRow
1899            Get
1900                Return CType(Me.Rows(index),OfficeAssignmentRow)
1901            End Get
1902        End Property
1903        
1904        Public Event OfficeAssignmentRowChanging As OfficeAssignmentRowChangeEventHandler
1905        
1906        Public Event OfficeAssignmentRowChanged As OfficeAssignmentRowChangeEventHandler
1907        
1908        Public Event OfficeAssignmentRowDeleting As OfficeAssignmentRowChangeEventHandler
1909        
1910        Public Event OfficeAssignmentRowDeleted As OfficeAssignmentRowChangeEventHandler
1911        
1912        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1913        Public Overloads Sub AddOfficeAssignmentRow(ByVal row As OfficeAssignmentRow)
1914            Me.Rows.Add(row)
1915        End Sub
1916        
1917        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1918        Public Overloads Function AddOfficeAssignmentRow(ByVal parentPersonRowByFK_OfficeAssignment_Person As PersonRow, ByVal Location As String, ByVal Timestamp() As Byte) As OfficeAssignmentRow
1919            Dim rowOfficeAssignmentRow As OfficeAssignmentRow = CType(Me.NewRow,OfficeAssignmentRow)
1920            Dim columnValuesArray() As Object = New Object() {Nothing, Location, Timestamp}
1921            If (Not (parentPersonRowByFK_OfficeAssignment_Person) Is Nothing) Then
1922                columnValuesArray(0) = parentPersonRowByFK_OfficeAssignment_Person(0)
1923            End If
1924            rowOfficeAssignmentRow.ItemArray = columnValuesArray
1925            Me.Rows.Add(rowOfficeAssignmentRow)
1926            Return rowOfficeAssignmentRow
1927        End Function
1928        
1929        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1930        Public Function FindByInstructorID(ByVal InstructorID As Integer) As OfficeAssignmentRow
1931            Return CType(Me.Rows.Find(New Object() {InstructorID}),OfficeAssignmentRow)
1932        End Function
1933        
1934        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1935        Public Overrides Function Clone() As Global.System.Data.DataTable
1936            Dim cln As OfficeAssignmentDataTable = CType(MyBase.Clone,OfficeAssignmentDataTable)
1937            cln.InitVars
1938            Return cln
1939        End Function
1940        
1941        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1942        Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
1943            Return New OfficeAssignmentDataTable
1944        End Function
1945        
1946        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1947        Friend Sub InitVars()
1948            Me.columnInstructorID = MyBase.Columns("InstructorID")
1949            Me.columnLocation = MyBase.Columns("Location")
1950            Me.columnTimestamp = MyBase.Columns("Timestamp")
1951        End Sub
1952        
1953        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1954        Private Sub InitClass()
1955            Me.columnInstructorID = New Global.System.Data.DataColumn("InstructorID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
1956            MyBase.Columns.Add(Me.columnInstructorID)
1957            Me.columnLocation = New Global.System.Data.DataColumn("Location", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1958            MyBase.Columns.Add(Me.columnLocation)
1959            Me.columnTimestamp = New Global.System.Data.DataColumn("Timestamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element)
1960            MyBase.Columns.Add(Me.columnTimestamp)
1961            Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnInstructorID}, true))
1962            Me.columnInstructorID.AllowDBNull = false
1963            Me.columnInstructorID.Unique = true
1964            Me.columnLocation.AllowDBNull = false
1965            Me.columnLocation.MaxLength = 50
1966            Me.columnTimestamp.ReadOnly = true
1967        End Sub
1968        
1969        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1970        Public Function NewOfficeAssignmentRow() As OfficeAssignmentRow
1971            Return CType(Me.NewRow,OfficeAssignmentRow)
1972        End Function
1973        
1974        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1975        Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
1976            Return New OfficeAssignmentRow(builder)
1977        End Function
1978        
1979        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1980        Protected Overrides Function GetRowType() As Global.System.Type
1981            Return GetType(OfficeAssignmentRow)
1982        End Function
1983        
1984        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1985        Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1986            MyBase.OnRowChanged(e)
1987            If (Not (Me.OfficeAssignmentRowChangedEvent) Is Nothing) Then
1988                RaiseEvent OfficeAssignmentRowChanged(Me, New OfficeAssignmentRowChangeEvent(CType(e.Row,OfficeAssignmentRow), e.Action))
1989            End If
1990        End Sub
1991        
1992        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
1993        Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1994            MyBase.OnRowChanging(e)
1995            If (Not (Me.OfficeAssignmentRowChangingEvent) Is Nothing) Then
1996                RaiseEvent OfficeAssignmentRowChanging(Me, New OfficeAssignmentRowChangeEvent(CType(e.Row,OfficeAssignmentRow), e.Action))
1997            End If
1998        End Sub
1999        
2000        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2001        Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2002            MyBase.OnRowDeleted(e)
2003            If (Not (Me.OfficeAssignmentRowDeletedEvent) Is Nothing) Then
2004                RaiseEvent OfficeAssignmentRowDeleted(Me, New OfficeAssignmentRowChangeEvent(CType(e.Row,OfficeAssignmentRow), e.Action))
2005            End If
2006        End Sub
2007        
2008        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2009        Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2010            MyBase.OnRowDeleting(e)
2011            If (Not (Me.OfficeAssignmentRowDeletingEvent) Is Nothing) Then
2012                RaiseEvent OfficeAssignmentRowDeleting(Me, New OfficeAssignmentRowChangeEvent(CType(e.Row,OfficeAssignmentRow), e.Action))
2013            End If
2014        End Sub
2015        
2016        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2017        Public Sub RemoveOfficeAssignmentRow(ByVal row As OfficeAssignmentRow)
2018            Me.Rows.Remove(row)
2019        End Sub
2020        
2021        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2022        Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
2023            Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType
2024            Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence
2025            Dim ds As SchoolDataSet = New SchoolDataSet
2026            Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny
2027            any1.Namespace = "http://www.w3.org/2001/XMLSchema"
2028            any1.MinOccurs = New Decimal(0)
2029            any1.MaxOccurs = Decimal.MaxValue
2030            any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2031            sequence.Items.Add(any1)
2032            Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny
2033            any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
2034            any2.MinOccurs = New Decimal(1)
2035            any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2036            sequence.Items.Add(any2)
2037            Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute
2038            attribute1.Name = "namespace"
2039            attribute1.FixedValue = ds.Namespace
2040            type.Attributes.Add(attribute1)
2041            Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute
2042            attribute2.Name = "tableTypeName"
2043            attribute2.FixedValue = "OfficeAssignmentDataTable"
2044            type.Attributes.Add(attribute2)
2045            type.Particle = sequence
2046            Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
2047            If xs.Contains(dsSchema.TargetNamespace) Then
2048                Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream
2049                Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream
2050                Try 
2051                    Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
2052                    dsSchema.Write(s1)
2053                    Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
2054                    Do While schemas.MoveNext
2055                        schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
2056                        s2.SetLength(0)
2057                        schema.Write(s2)
2058                        If (s1.Length = s2.Length) Then
2059                            s1.Position = 0
2060                            s2.Position = 0
2061                            
2062                            Do While ((s1.Position <> s1.Length)  _
2063                                        AndAlso (s1.ReadByte = s2.ReadByte))
2064                                
2065                                
2066                            Loop
2067                            If (s1.Position = s1.Length) Then
2068                                Return type
2069                            End If
2070                        End If
2071                        
2072                    Loop
2073                Finally
2074                    If (Not (s1) Is Nothing) Then
2075                        s1.Close
2076                    End If
2077                    If (Not (s2) Is Nothing) Then
2078                        s2.Close
2079                    End If
2080                End Try
2081            End If
2082            xs.Add(dsSchema)
2083            Return type
2084        End Function
2085    End Class
2086    
2087    '''<summary>
2088    '''Represents the strongly named DataTable class.
2089    '''</summary>
2090    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"),  _
2091     Global.System.Serializable(),  _
2092     Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
2093    Partial Public Class OnlineCourseDataTable
2094        Inherits Global.System.Data.TypedTableBase(Of OnlineCourseRow)
2095        
2096        Private columnCourseID As Global.System.Data.DataColumn
2097        
2098        Private columnURL As Global.System.Data.DataColumn
2099        
2100        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2101        Public Sub New()
2102            MyBase.New
2103            Me.TableName = "OnlineCourse"
2104            Me.BeginInit
2105            Me.InitClass
2106            Me.EndInit
2107        End Sub
2108        
2109        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2110        Friend Sub New(ByVal table As Global.System.Data.DataTable)
2111            MyBase.New
2112            Me.TableName = table.TableName
2113            If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
2114                Me.CaseSensitive = table.CaseSensitive
2115            End If
2116            If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
2117                Me.Locale = table.Locale
2118            End If
2119            If (table.Namespace <> table.DataSet.Namespace) Then
2120                Me.Namespace = table.Namespace
2121            End If
2122            Me.Prefix = table.Prefix
2123            Me.MinimumCapacity = table.MinimumCapacity
2124        End Sub
2125        
2126        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2127        Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
2128            MyBase.New(info, context)
2129            Me.InitVars
2130        End Sub
2131        
2132        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2133        Public ReadOnly Property CourseIDColumn() As Global.System.Data.DataColumn
2134            Get
2135                Return Me.columnCourseID
2136            End Get
2137        End Property
2138        
2139        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2140        Public ReadOnly Property URLColumn() As Global.System.Data.DataColumn
2141            Get
2142                Return Me.columnURL
2143            End Get
2144        End Property
2145        
2146        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2147         Global.System.ComponentModel.Browsable(false)>  _
2148        Public ReadOnly Property Count() As Integer
2149            Get
2150                Return Me.Rows.Count
2151            End Get
2152        End Property
2153        
2154        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2155        Public Default ReadOnly Property Item(ByVal index As Integer) As OnlineCourseRow
2156            Get
2157                Return CType(Me.Rows(index),OnlineCourseRow)
2158            End Get
2159        End Property
2160        
2161        Public Event OnlineCourseRowChanging As OnlineCourseRowChangeEventHandler
2162        
2163        Public Event OnlineCourseRowChanged As OnlineCourseRowChangeEventHandler
2164        
2165        Public Event OnlineCourseRowDeleting As OnlineCourseRowChangeEventHandler
2166        
2167        Public Event OnlineCourseRowDeleted As OnlineCourseRowChangeEventHandler
2168        
2169        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2170        Public Overloads Sub AddOnlineCourseRow(ByVal row As OnlineCourseRow)
2171            Me.Rows.Add(row)
2172        End Sub
2173        
2174        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2175        Public Overloads Function AddOnlineCourseRow(ByVal parentCourseRowByFK_OnlineCourse_Course As CourseRow, ByVal URL As String) As OnlineCourseRow
2176            Dim rowOnlineCourseRow As OnlineCourseRow = CType(Me.NewRow,OnlineCourseRow)
2177            Dim columnValuesArray() As Object = New Object() {Nothing, URL}
2178            If (Not (parentCourseRowByFK_OnlineCourse_Course) Is Nothing) Then
2179                columnValuesArray(0) = parentCourseRowByFK_OnlineCourse_Course(0)
2180            End If
2181            rowOnlineCourseRow.ItemArray = columnValuesArray
2182            Me.Rows.Add(rowOnlineCourseRow)
2183            Return rowOnlineCourseRow
2184        End Function
2185        
2186        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2187        Public Function FindByCourseID(ByVal CourseID As Integer) As OnlineCourseRow
2188            Return CType(Me.Rows.Find(New Object() {CourseID}),OnlineCourseRow)
2189        End Function
2190        
2191        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2192        Public Overrides Function Clone() As Global.System.Data.DataTable
2193            Dim cln As OnlineCourseDataTable = CType(MyBase.Clone,OnlineCourseDataTable)
2194            cln.InitVars
2195            Return cln
2196        End Function
2197        
2198        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2199        Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
2200            Return New OnlineCourseDataTable
2201        End Function
2202        
2203        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2204        Friend Sub InitVars()
2205            Me.columnCourseID = MyBase.Columns("CourseID")
2206            Me.columnURL = MyBase.Columns("URL")
2207        End Sub
2208        
2209        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2210        Private Sub InitClass()
2211            Me.columnCourseID = New Global.System.Data.DataColumn("CourseID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
2212            MyBase.Columns.Add(Me.columnCourseID)
2213            Me.columnURL = New Global.System.Data.DataColumn("URL", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2214            MyBase.Columns.Add(Me.columnURL)
2215            Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnCourseID}, true))
2216            Me.columnCourseID.AllowDBNull = false
2217            Me.columnCourseID.Unique = true
2218            Me.columnURL.AllowDBNull = false
2219            Me.columnURL.MaxLength = 100
2220        End Sub
2221        
2222        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2223        Public Function NewOnlineCourseRow() As OnlineCourseRow
2224            Return CType(Me.NewRow,OnlineCourseRow)
2225        End Function
2226        
2227        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2228        Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
2229            Return New OnlineCourseRow(builder)
2230        End Function
2231        
2232        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2233        Protected Overrides Function GetRowType() As Global.System.Type
2234            Return GetType(OnlineCourseRow)
2235        End Function
2236        
2237        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2238        Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2239            MyBase.OnRowChanged(e)
2240            If (Not (Me.OnlineCourseRowChangedEvent) Is Nothing) Then
2241                RaiseEvent OnlineCourseRowChanged(Me, New OnlineCourseRowChangeEvent(CType(e.Row,OnlineCourseRow), e.Action))
2242            End If
2243        End Sub
2244        
2245        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2246        Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2247            MyBase.OnRowChanging(e)
2248            If (Not (Me.OnlineCourseRowChangingEvent) Is Nothing) Then
2249                RaiseEvent OnlineCourseRowChanging(Me, New OnlineCourseRowChangeEvent(CType(e.Row,OnlineCourseRow), e.Action))
2250            End If
2251        End Sub
2252        
2253        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2254        Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2255            MyBase.OnRowDeleted(e)
2256            If (Not (Me.OnlineCourseRowDeletedEvent) Is Nothing) Then
2257                RaiseEvent OnlineCourseRowDeleted(Me, New OnlineCourseRowChangeEvent(CType(e.Row,OnlineCourseRow), e.Action))
2258            End If
2259        End Sub
2260        
2261        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2262        Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2263            MyBase.OnRowDeleting(e)
2264            If (Not (Me.OnlineCourseRowDeletingEvent) Is Nothing) Then
2265                RaiseEvent OnlineCourseRowDeleting(Me, New OnlineCourseRowChangeEvent(CType(e.Row,OnlineCourseRow), e.Action))
2266            End If
2267        End Sub
2268        
2269        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2270        Public Sub RemoveOnlineCourseRow(ByVal row As OnlineCourseRow)
2271            Me.Rows.Remove(row)
2272        End Sub
2273        
2274        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2275        Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
2276            Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType
2277            Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence
2278            Dim ds As SchoolDataSet = New SchoolDataSet
2279            Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny
2280            any1.Namespace = "http://www.w3.org/2001/XMLSchema"
2281            any1.MinOccurs = New Decimal(0)
2282            any1.MaxOccurs = Decimal.MaxValue
2283            any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2284            sequence.Items.Add(any1)
2285            Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny
2286            any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
2287            any2.MinOccurs = New Decimal(1)
2288            any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2289            sequence.Items.Add(any2)
2290            Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute
2291            attribute1.Name = "namespace"
2292            attribute1.FixedValue = ds.Namespace
2293            type.Attributes.Add(attribute1)
2294            Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute
2295            attribute2.Name = "tableTypeName"
2296            attribute2.FixedValue = "OnlineCourseDataTable"
2297            type.Attributes.Add(attribute2)
2298            type.Particle = sequence
2299            Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
2300            If xs.Contains(dsSchema.TargetNamespace) Then
2301                Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream
2302                Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream
2303                Try 
2304                    Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
2305                    dsSchema.Write(s1)
2306                    Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
2307                    Do While schemas.MoveNext
2308                        schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
2309                        s2.SetLength(0)
2310                        schema.Write(s2)
2311                        If (s1.Length = s2.Length) Then
2312                            s1.Position = 0
2313                            s2.Position = 0
2314                            
2315                            Do While ((s1.Position <> s1.Length)  _
2316                                        AndAlso (s1.ReadByte = s2.ReadByte))
2317                                
2318                                
2319                            Loop
2320                            If (s1.Position = s1.Length) Then
2321                                Return type
2322                            End If
2323                        End If
2324                        
2325                    Loop
2326                Finally
2327                    If (Not (s1) Is Nothing) Then
2328                        s1.Close
2329                    End If
2330                    If (Not (s2) Is Nothing) Then
2331                        s2.Close
2332                    End If
2333                End Try
2334            End If
2335            xs.Add(dsSchema)
2336            Return type
2337        End Function
2338    End Class
2339    
2340    '''<summary>
2341    '''Represents the strongly named DataTable class.
2342    '''</summary>
2343    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"),  _
2344     Global.System.Serializable(),  _
2345     Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
2346    Partial Public Class OnsiteCourseDataTable
2347        Inherits Global.System.Data.TypedTableBase(Of OnsiteCourseRow)
2348        
2349        Private columnCourseID As Global.System.Data.DataColumn
2350        
2351        Private columnLocation As Global.System.Data.DataColumn
2352        
2353        Private columnDays As Global.System.Data.DataColumn
2354        
2355        Private columnTime As Global.System.Data.DataColumn
2356        
2357        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2358        Public Sub New()
2359            MyBase.New
2360            Me.TableName = "OnsiteCourse"
2361            Me.BeginInit
2362            Me.InitClass
2363            Me.EndInit
2364        End Sub
2365        
2366        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2367        Friend Sub New(ByVal table As Global.System.Data.DataTable)
2368            MyBase.New
2369            Me.TableName = table.TableName
2370            If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
2371                Me.CaseSensitive = table.CaseSensitive
2372            End If
2373            If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
2374                Me.Locale = table.Locale
2375            End If
2376            If (table.Namespace <> table.DataSet.Namespace) Then
2377                Me.Namespace = table.Namespace
2378            End If
2379            Me.Prefix = table.Prefix
2380            Me.MinimumCapacity = table.MinimumCapacity
2381        End Sub
2382        
2383        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2384        Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
2385            MyBase.New(info, context)
2386            Me.InitVars
2387        End Sub
2388        
2389        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2390        Public ReadOnly Property CourseIDColumn() As Global.System.Data.DataColumn
2391            Get
2392                Return Me.columnCourseID
2393            End Get
2394        End Property
2395        
2396        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2397        Public ReadOnly Property LocationColumn() As Global.System.Data.DataColumn
2398            Get
2399                Return Me.columnLocation
2400            End Get
2401        End Property
2402        
2403        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2404        Public ReadOnly Property DaysColumn() As Global.System.Data.DataColumn
2405            Get
2406                Return Me.columnDays
2407            End Get
2408        End Property
2409        
2410        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2411        Public ReadOnly Property TimeColumn() As Global.System.Data.DataColumn
2412            Get
2413                Return Me.columnTime
2414            End Get
2415        End Property
2416        
2417        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2418         Global.System.ComponentModel.Browsable(false)>  _
2419        Public ReadOnly Property Count() As Integer
2420            Get
2421                Return Me.Rows.Count
2422            End Get
2423        End Property
2424        
2425        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2426        Public Default ReadOnly Property Item(ByVal index As Integer) As OnsiteCourseRow
2427            Get
2428                Return CType(Me.Rows(index),OnsiteCourseRow)
2429            End Get
2430        End Property
2431        
2432        Public Event OnsiteCourseRowChanging As OnsiteCourseRowChangeEventHandler
2433        
2434        Public Event OnsiteCourseRowChanged As OnsiteCourseRowChangeEventHandler
2435        
2436        Public Event OnsiteCourseRowDeleting As OnsiteCourseRowChangeEventHandler
2437        
2438        Public Event OnsiteCourseRowDeleted As OnsiteCourseRowChangeEventHandler
2439        
2440        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2441        Public Overloads Sub AddOnsiteCourseRow(ByVal row As OnsiteCourseRow)
2442            Me.Rows.Add(row)
2443        End Sub
2444        
2445        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2446        Public Overloads Function AddOnsiteCourseRow(ByVal parentCourseRowByFK_OnsiteCourse_Course As CourseRow, ByVal Location As String, ByVal Days As String, ByVal Time As Date) As OnsiteCourseRow
2447            Dim rowOnsiteCourseRow As OnsiteCourseRow = CType(Me.NewRow,OnsiteCourseRow)
2448            Dim columnValuesArray() As Object = New Object() {Nothing, Location, Days, Time}
2449            If (Not (parentCourseRowByFK_OnsiteCourse_Course) Is Nothing) Then
2450                columnValuesArray(0) = parentCourseRowByFK_OnsiteCourse_Course(0)
2451            End If
2452            rowOnsiteCourseRow.ItemArray = columnValuesArray
2453            Me.Rows.Add(rowOnsiteCourseRow)
2454            Return rowOnsiteCourseRow
2455        End Function
2456        
2457        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2458        Public Function FindByCourseID(ByVal CourseID As Integer) As OnsiteCourseRow
2459            Return CType(Me.Rows.Find(New Object() {CourseID}),OnsiteCourseRow)
2460        End Function
2461        
2462        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2463        Public Overrides Function Clone() As Global.System.Data.DataTable
2464            Dim cln As OnsiteCourseDataTable = CType(MyBase.Clone,OnsiteCourseDataTable)
2465            cln.InitVars
2466            Return cln
2467        End Function
2468        
2469        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2470        Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
2471            Return New OnsiteCourseDataTable
2472        End Function
2473        
2474        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2475        Friend Sub InitVars()
2476            Me.columnCourseID = MyBase.Columns("CourseID")
2477            Me.columnLocation = MyBase.Columns("Location")
2478            Me.columnDays = MyBase.Columns("Days")
2479            Me.columnTime = MyBase.Columns("Time")
2480        End Sub
2481        
2482        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2483        Private Sub InitClass()
2484            Me.columnCourseID = New Global.System.Data.DataColumn("CourseID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
2485            MyBase.Columns.Add(Me.columnCourseID)
2486            Me.columnLocation = New Global.System.Data.DataColumn("Location", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2487            MyBase.Columns.Add(Me.columnLocation)
2488            Me.columnDays = New Global.System.Data.DataColumn("Days", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2489            MyBase.Columns.Add(Me.columnDays)
2490            Me.columnTime = New Global.System.Data.DataColumn("Time", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
2491            MyBase.Columns.Add(Me.columnTime)
2492            Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnCourseID}, true))
2493            Me.columnCourseID.AllowDBNull = false
2494            Me.columnCourseID.Unique = true
2495            Me.columnLocation.AllowDBNull = false
2496            Me.columnLocation.MaxLength = 50
2497            Me.columnDays.AllowDBNull = false
2498            Me.columnDays.MaxLength = 50
2499            Me.columnTime.AllowDBNull = false
2500        End Sub
2501        
2502        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2503        Public Function NewOnsiteCourseRow() As OnsiteCourseRow
2504            Return CType(Me.NewRow,OnsiteCourseRow)
2505        End Function
2506        
2507        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2508        Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
2509            Return New OnsiteCourseRow(builder)
2510        End Function
2511        
2512        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2513        Protected Overrides Function GetRowType() As Global.System.Type
2514            Return GetType(OnsiteCourseRow)
2515        End Function
2516        
2517        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2518        Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2519            MyBase.OnRowChanged(e)
2520            If (Not (Me.OnsiteCourseRowChangedEvent) Is Nothing) Then
2521                RaiseEvent OnsiteCourseRowChanged(Me, New OnsiteCourseRowChangeEvent(CType(e.Row,OnsiteCourseRow), e.Action))
2522            End If
2523        End Sub
2524        
2525        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2526        Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2527            MyBase.OnRowChanging(e)
2528            If (Not (Me.OnsiteCourseRowChangingEvent) Is Nothing) Then
2529                RaiseEvent OnsiteCourseRowChanging(Me, New OnsiteCourseRowChangeEvent(CType(e.Row,OnsiteCourseRow), e.Action))
2530            End If
2531        End Sub
2532        
2533        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2534        Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2535            MyBase.OnRowDeleted(e)
2536            If (Not (Me.OnsiteCourseRowDeletedEvent) Is Nothing) Then
2537                RaiseEvent OnsiteCourseRowDeleted(Me, New OnsiteCourseRowChangeEvent(CType(e.Row,OnsiteCourseRow), e.Action))
2538            End If
2539        End Sub
2540        
2541        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2542        Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2543            MyBase.OnRowDeleting(e)
2544            If (Not (Me.OnsiteCourseRowDeletingEvent) Is Nothing) Then
2545                RaiseEvent OnsiteCourseRowDeleting(Me, New OnsiteCourseRowChangeEvent(CType(e.Row,OnsiteCourseRow), e.Action))
2546            End If
2547        End Sub
2548        
2549        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2550        Public Sub RemoveOnsiteCourseRow(ByVal row As OnsiteCourseRow)
2551            Me.Rows.Remove(row)
2552        End Sub
2553        
2554        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2555        Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
2556            Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType
2557            Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence
2558            Dim ds As SchoolDataSet = New SchoolDataSet
2559            Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny
2560            any1.Namespace = "http://www.w3.org/2001/XMLSchema"
2561            any1.MinOccurs = New Decimal(0)
2562            any1.MaxOccurs = Decimal.MaxValue
2563            any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2564            sequence.Items.Add(any1)
2565            Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny
2566            any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
2567            any2.MinOccurs = New Decimal(1)
2568            any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2569            sequence.Items.Add(any2)
2570            Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute
2571            attribute1.Name = "namespace"
2572            attribute1.FixedValue = ds.Namespace
2573            type.Attributes.Add(attribute1)
2574            Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute
2575            attribute2.Name = "tableTypeName"
2576            attribute2.FixedValue = "OnsiteCourseDataTable"
2577            type.Attributes.Add(attribute2)
2578            type.Particle = sequence
2579            Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
2580            If xs.Contains(dsSchema.TargetNamespace) Then
2581                Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream
2582                Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream
2583                Try 
2584                    Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
2585                    dsSchema.Write(s1)
2586                    Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
2587                    Do While schemas.MoveNext
2588                        schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
2589                        s2.SetLength(0)
2590                        schema.Write(s2)
2591                        If (s1.Length = s2.Length) Then
2592                            s1.Position = 0
2593                            s2.Position = 0
2594                            
2595                            Do While ((s1.Position <> s1.Length)  _
2596                                        AndAlso (s1.ReadByte = s2.ReadByte))
2597                                
2598                                
2599                            Loop
2600                            If (s1.Position = s1.Length) Then
2601                                Return type
2602                            End If
2603                        End If
2604                        
2605                    Loop
2606                Finally
2607                    If (Not (s1) Is Nothing) Then
2608                        s1.Close
2609                    End If
2610                    If (Not (s2) Is Nothing) Then
2611                        s2.Close
2612                    End If
2613                End Try
2614            End If
2615            xs.Add(dsSchema)
2616            Return type
2617        End Function
2618    End Class
2619    
2620    '''<summary>
2621    '''Represents the strongly named DataTable class.
2622    '''</summary>
2623    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"),  _
2624     Global.System.Serializable(),  _
2625     Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
2626    Partial Public Class PersonDataTable
2627        Inherits Global.System.Data.TypedTableBase(Of PersonRow)
2628        
2629        Private columnPersonID As Global.System.Data.DataColumn
2630        
2631        Private columnLastName As Global.System.Data.DataColumn
2632        
2633        Private columnFirstName As Global.System.Data.DataColumn
2634        
2635        Private columnPersonCategory As Global.System.Data.DataColumn
2636        
2637        Private columnHireDate As Global.System.Data.DataColumn
2638        
2639        Private columnEnrollmentDate As Global.System.Data.DataColumn
2640        
2641        Private columnPicture As Global.System.Data.DataColumn
2642        
2643        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2644        Public Sub New()
2645            MyBase.New
2646            Me.TableName = "Person"
2647            Me.BeginInit
2648            Me.InitClass
2649            Me.EndInit
2650        End Sub
2651        
2652        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2653        Friend Sub New(ByVal table As Global.System.Data.DataTable)
2654            MyBase.New
2655            Me.TableName = table.TableName
2656            If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
2657                Me.CaseSensitive = table.CaseSensitive
2658            End If
2659            If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
2660                Me.Locale = table.Locale
2661            End If
2662            If (table.Namespace <> table.DataSet.Namespace) Then
2663                Me.Namespace = table.Namespace
2664            End If
2665            Me.Prefix = table.Prefix
2666            Me.MinimumCapacity = table.MinimumCapacity
2667        End Sub
2668        
2669        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2670        Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
2671            MyBase.New(info, context)
2672            Me.InitVars
2673        End Sub
2674        
2675        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2676        Public ReadOnly Property PersonIDColumn() As Global.System.Data.DataColumn
2677            Get
2678                Return Me.columnPersonID
2679            End Get
2680        End Property
2681        
2682        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2683        Public ReadOnly Property LastNameColumn() As Global.System.Data.DataColumn
2684            Get
2685                Return Me.columnLastName
2686            End Get
2687        End Property
2688        
2689        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2690        Public ReadOnly Property FirstNameColumn() As Global.System.Data.DataColumn
2691            Get
2692                Return Me.columnFirstName
2693            End Get
2694        End Property
2695        
2696        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2697        Public ReadOnly Property PersonCategoryColumn() As Global.System.Data.DataColumn
2698            Get
2699                Return Me.columnPersonCategory
2700            End Get
2701        End Property
2702        
2703        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2704        Public ReadOnly Property HireDateColumn() As Global.System.Data.DataColumn
2705            Get
2706                Return Me.columnHireDate
2707            End Get
2708        End Property
2709        
2710        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2711        Public ReadOnly Property EnrollmentDateColumn() As Global.System.Data.DataColumn
2712            Get
2713                Return Me.columnEnrollmentDate
2714            End Get
2715        End Property
2716        
2717        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2718        Public ReadOnly Property PictureColumn() As Global.System.Data.DataColumn
2719            Get
2720                Return Me.columnPicture
2721            End Get
2722        End Property
2723        
2724        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2725         Global.System.ComponentModel.Browsable(false)>  _
2726        Public ReadOnly Property Count() As Integer
2727            Get
2728                Return Me.Rows.Count
2729            End Get
2730        End Property
2731        
2732        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2733        Public Default ReadOnly Property Item(ByVal index As Integer) As PersonRow
2734            Get
2735                Return CType(Me.Rows(index),PersonRow)
2736            End Get
2737        End Property
2738        
2739        Public Event PersonRowChanging As PersonRowChangeEventHandler
2740        
2741        Public Event PersonRowChanged As PersonRowChangeEventHandler
2742        
2743        Public Event PersonRowDeleting As PersonRowChangeEventHandler
2744        
2745        Public Event PersonRowDeleted As PersonRowChangeEventHandler
2746        
2747        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2748        Public Overloads Sub AddPersonRow(ByVal row As PersonRow)
2749            Me.Rows.Add(row)
2750        End Sub
2751        
2752        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2753        Public Overloads Function AddPersonRow(ByVal LastName As String, ByVal FirstName As String, ByVal PersonCategory As Short, ByVal HireDate As Date, ByVal EnrollmentDate As Date, ByVal Picture() As Byte) As PersonRow
2754            Dim rowPersonRow As PersonRow = CType(Me.NewRow,PersonRow)
2755            Dim columnValuesArray() As Object = New Object() {Nothing, LastName, FirstName, PersonCategory, HireDate, EnrollmentDate, Picture}
2756            rowPersonRow.ItemArray = columnValuesArray
2757            Me.Rows.Add(rowPersonRow)
2758            Return rowPersonRow
2759        End Function
2760        
2761        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2762        Public Function FindByPersonID(ByVal PersonID As Integer) As PersonRow
2763            Return CType(Me.Rows.Find(New Object() {PersonID}),PersonRow)
2764        End Function
2765        
2766        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2767        Public Overrides Function Clone() As Global.System.Data.DataTable
2768            Dim cln As PersonDataTable = CType(MyBase.Clone,PersonDataTable)
2769            cln.InitVars
2770            Return cln
2771        End Function
2772        
2773        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2774        Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
2775            Return New PersonDataTable
2776        End Function
2777        
2778        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2779        Friend Sub InitVars()
2780            Me.columnPersonID = MyBase.Columns("PersonID")
2781            Me.columnLastName = MyBase.Columns("LastName")
2782            Me.columnFirstName = MyBase.Columns("FirstName")
2783            Me.columnPersonCategory = MyBase.Columns("PersonCategory")
2784            Me.columnHireDate = MyBase.Columns("HireDate")
2785            Me.columnEnrollmentDate = MyBase.Columns("EnrollmentDate")
2786            Me.columnPicture = MyBase.Columns("Picture")
2787        End Sub
2788        
2789        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2790        Private Sub InitClass()
2791            Me.columnPersonID = New Global.System.Data.DataColumn("PersonID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
2792            MyBase.Columns.Add(Me.columnPersonID)
2793            Me.columnLastName = New Global.System.Data.DataColumn("LastName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2794            MyBase.Columns.Add(Me.columnLastName)
2795            Me.columnFirstName = New Global.System.Data.DataColumn("FirstName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2796            MyBase.Columns.Add(Me.columnFirstName)
2797            Me.columnPersonCategory = New Global.System.Data.DataColumn("PersonCategory", GetType(Short), Nothing, Global.System.Data.MappingType.Element)
2798            MyBase.Columns.Add(Me.columnPersonCategory)
2799            Me.columnHireDate = New Global.System.Data.DataColumn("HireDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
2800            MyBase.Columns.Add(Me.columnHireDate)
2801            Me.columnEnrollmentDate = New Global.System.Data.DataColumn("EnrollmentDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
2802            MyBase.Columns.Add(Me.columnEnrollmentDate)
2803            Me.columnPicture = New Global.System.Data.DataColumn("Picture", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element)
2804            MyBase.Columns.Add(Me.columnPicture)
2805            Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnPersonID}, true))
2806            Me.columnPersonID.AutoIncrement = true
2807            Me.columnPersonID.AutoIncrementSeed = -1
2808            Me.columnPersonID.AutoIncrementStep = -1
2809            Me.columnPersonID.AllowDBNull = false
2810            Me.columnPersonID.ReadOnly = true
2811            Me.columnPersonID.Unique = true
2812            Me.columnLastName.AllowDBNull = false
2813            Me.columnLastName.MaxLength = 50
2814            Me.columnFirstName.AllowDBNull = false
2815            Me.columnFirstName.MaxLength = 50
2816            Me.columnPersonCategory.AllowDBNull = false
2817        End Sub
2818        
2819        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2820        Public Function NewPersonRow() As PersonRow
2821            Return CType(Me.NewRow,PersonRow)
2822        End Function
2823        
2824        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2825        Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
2826            Return New PersonRow(builder)
2827        End Function
2828        
2829        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2830        Protected Overrides Function GetRowType() As Global.System.Type
2831            Return GetType(PersonRow)
2832        End Function
2833        
2834        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2835        Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2836            MyBase.OnRowChanged(e)
2837            If (Not (Me.PersonRowChangedEvent) Is Nothing) Then
2838                RaiseEvent PersonRowChanged(Me, New PersonRowChangeEvent(CType(e.Row,PersonRow), e.Action))
2839            End If
2840        End Sub
2841        
2842        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2843        Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2844            MyBase.OnRowChanging(e)
2845            If (Not (Me.PersonRowChangingEvent) Is Nothing) Then
2846                RaiseEvent PersonRowChanging(Me, New PersonRowChangeEvent(CType(e.Row,PersonRow), e.Action))
2847            End If
2848        End Sub
2849        
2850        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2851        Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2852            MyBase.OnRowDeleted(e)
2853            If (Not (Me.PersonRowDeletedEvent) Is Nothing) Then
2854                RaiseEvent PersonRowDeleted(Me, New PersonRowChangeEvent(CType(e.Row,PersonRow), e.Action))
2855            End If
2856        End Sub
2857        
2858        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2859        Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2860            MyBase.OnRowDeleting(e)
2861            If (Not (Me.PersonRowDeletingEvent) Is Nothing) Then
2862                RaiseEvent PersonRowDeleting(Me, New PersonRowChangeEvent(CType(e.Row,PersonRow), e.Action))
2863            End If
2864        End Sub
2865        
2866        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2867        Public Sub RemovePersonRow(ByVal row As PersonRow)
2868            Me.Rows.Remove(row)
2869        End Sub
2870        
2871        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2872        Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
2873            Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType
2874            Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence
2875            Dim ds As SchoolDataSet = New SchoolDataSet
2876            Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny
2877            any1.Namespace = "http://www.w3.org/2001/XMLSchema"
2878            any1.MinOccurs = New Decimal(0)
2879            any1.MaxOccurs = Decimal.MaxValue
2880            any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2881            sequence.Items.Add(any1)
2882            Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny
2883            any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
2884            any2.MinOccurs = New Decimal(1)
2885            any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2886            sequence.Items.Add(any2)
2887            Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute
2888            attribute1.Name = "namespace"
2889            attribute1.FixedValue = ds.Namespace
2890            type.Attributes.Add(attribute1)
2891            Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute
2892            attribute2.Name = "tableTypeName"
2893            attribute2.FixedValue = "PersonDataTable"
2894            type.Attributes.Add(attribute2)
2895            type.Particle = sequence
2896            Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
2897            If xs.Contains(dsSchema.TargetNamespace) Then
2898                Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream
2899                Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream
2900                Try 
2901                    Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
2902                    dsSchema.Write(s1)
2903                    Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
2904                    Do While schemas.MoveNext
2905                        schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
2906                        s2.SetLength(0)
2907                        schema.Write(s2)
2908                        If (s1.Length = s2.Length) Then
2909                            s1.Position = 0
2910                            s2.Position = 0
2911                            
2912                            Do While ((s1.Position <> s1.Length)  _
2913                                        AndAlso (s1.ReadByte = s2.ReadByte))
2914                                
2915                                
2916                            Loop
2917                            If (s1.Position = s1.Length) Then
2918                                Return type
2919                            End If
2920                        End If
2921                        
2922                    Loop
2923                Finally
2924                    If (Not (s1) Is Nothing) Then
2925                        s1.Close
2926                    End If
2927                    If (Not (s2) Is Nothing) Then
2928                        s2.Close
2929                    End If
2930                End Try
2931            End If
2932            xs.Add(dsSchema)
2933            Return type
2934        End Function
2935    End Class
2936    
2937    '''<summary>
2938    '''Represents the strongly named DataTable class.
2939    '''</summary>
2940    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"),  _
2941     Global.System.Serializable(),  _
2942     Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
2943    Partial Public Class GetStudentGradesDataTable
2944        Inherits Global.System.Data.TypedTableBase(Of GetStudentGradesRow)
2945        
2946        Private columnEnrollmentID As Global.System.Data.DataColumn
2947        
2948        Private columnGrade As Global.System.Data.DataColumn
2949        
2950        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2951        Public Sub New()
2952            MyBase.New
2953            Me.TableName = "GetStudentGrades"
2954            Me.BeginInit
2955            Me.InitClass
2956            Me.EndInit
2957        End Sub
2958        
2959        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2960        Friend Sub New(ByVal table As Global.System.Data.DataTable)
2961            MyBase.New
2962            Me.TableName = table.TableName
2963            If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
2964                Me.CaseSensitive = table.CaseSensitive
2965            End If
2966            If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
2967                Me.Locale = table.Locale
2968            End If
2969            If (table.Namespace <> table.DataSet.Namespace) Then
2970                Me.Namespace = table.Namespace
2971            End If
2972            Me.Prefix = table.Prefix
2973            Me.MinimumCapacity = table.MinimumCapacity
2974        End Sub
2975        
2976        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2977        Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
2978            MyBase.New(info, context)
2979            Me.InitVars
2980        End Sub
2981        
2982        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2983        Public ReadOnly Property EnrollmentIDColumn() As Global.System.Data.DataColumn
2984            Get
2985                Return Me.columnEnrollmentID
2986            End Get
2987        End Property
2988        
2989        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
2990        Public ReadOnly Property GradeColumn() As Global.System.Data.DataColumn
2991            Get
2992                Return Me.columnGrade
2993            End Get
2994        End Property
2995        
2996        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2997         Global.System.ComponentModel.Browsable(false)>  _
2998        Public ReadOnly Property Count() As Integer
2999            Get
3000                Return Me.Rows.Count
3001            End Get
3002        End Property
3003        
3004        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3005        Public Default ReadOnly Property Item(ByVal index As Integer) As GetStudentGradesRow
3006            Get
3007                Return CType(Me.Rows(index),GetStudentGradesRow)
3008            End Get
3009        End Property
3010        
3011        Public Event GetStudentGradesRowChanging As GetStudentGradesRowChangeEventHandler
3012        
3013        Public Event GetStudentGradesRowChanged As GetStudentGradesRowChangeEventHandler
3014        
3015        Public Event GetStudentGradesRowDeleting As GetStudentGradesRowChangeEventHandler
3016        
3017        Public Event GetStudentGradesRowDeleted As GetStudentGradesRowChangeEventHandler
3018        
3019        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3020        Public Overloads Sub AddGetStudentGradesRow(ByVal row As GetStudentGradesRow)
3021            Me.Rows.Add(row)
3022        End Sub
3023        
3024        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3025        Public Overloads Function AddGetStudentGradesRow(ByVal Grade As Decimal) As GetStudentGradesRow
3026            Dim rowGetStudentGradesRow As GetStudentGradesRow = CType(Me.NewRow,GetStudentGradesRow)
3027            Dim columnValuesArray() As Object = New Object() {Nothing, Grade}
3028            rowGetStudentGradesRow.ItemArray = columnValuesArray
3029            Me.Rows.Add(rowGetStudentGradesRow)
3030            Return rowGetStudentGradesRow
3031        End Function
3032        
3033        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3034        Public Function FindByEnrollmentID(ByVal EnrollmentID As Integer) As GetStudentGradesRow
3035            Return CType(Me.Rows.Find(New Object() {EnrollmentID}),GetStudentGradesRow)
3036        End Function
3037        
3038        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3039        Public Overrides Function Clone() As Global.System.Data.DataTable
3040            Dim cln As GetStudentGradesDataTable = CType(MyBase.Clone,GetStudentGradesDataTable)
3041            cln.InitVars
3042            Return cln
3043        End Function
3044        
3045        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3046        Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
3047            Return New GetStudentGradesDataTable
3048        End Function
3049        
3050        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3051        Friend Sub InitVars()
3052            Me.columnEnrollmentID = MyBase.Columns("EnrollmentID")
3053            Me.columnGrade = MyBase.Columns("Grade")
3054        End Sub
3055        
3056        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3057        Private Sub InitClass()
3058            Me.columnEnrollmentID = New Global.System.Data.DataColumn("EnrollmentID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3059            MyBase.Columns.Add(Me.columnEnrollmentID)
3060            Me.columnGrade = New Global.System.Data.DataColumn("Grade", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3061            MyBase.Columns.Add(Me.columnGrade)
3062            Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnEnrollmentID}, true))
3063            Me.columnEnrollmentID.AutoIncrement = true
3064            Me.columnEnrollmentID.AllowDBNull = false
3065            Me.columnEnrollmentID.ReadOnly = true
3066            Me.columnEnrollmentID.Unique = true
3067        End Sub
3068        
3069        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3070        Public Function NewGetStudentGradesRow() As GetStudentGradesRow
3071            Return CType(Me.NewRow,GetStudentGradesRow)
3072        End Function
3073        
3074        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3075        Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
3076            Return New GetStudentGradesRow(builder)
3077        End Function
3078        
3079        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3080        Protected Overrides Function GetRowType() As Global.System.Type
3081            Return GetType(GetStudentGradesRow)
3082        End Function
3083        
3084        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3085        Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3086            MyBase.OnRowChanged(e)
3087            If (Not (Me.GetStudentGradesRowChangedEvent) Is Nothing) Then
3088                RaiseEvent GetStudentGradesRowChanged(Me, New GetStudentGradesRowChangeEvent(CType(e.Row,GetStudentGradesRow), e.Action))
3089            End If
3090        End Sub
3091        
3092        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3093        Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3094            MyBase.OnRowChanging(e)
3095            If (Not (Me.GetStudentGradesRowChangingEvent) Is Nothing) Then
3096                RaiseEvent GetStudentGradesRowChanging(Me, New GetStudentGradesRowChangeEvent(CType(e.Row,GetStudentGradesRow), e.Action))
3097            End If
3098        End Sub
3099        
3100        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3101        Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3102            MyBase.OnRowDeleted(e)
3103            If (Not (Me.GetStudentGradesRowDeletedEvent) Is Nothing) Then
3104                RaiseEvent GetStudentGradesRowDeleted(Me, New GetStudentGradesRowChangeEvent(CType(e.Row,GetStudentGradesRow), e.Action))
3105            End If
3106        End Sub
3107        
3108        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3109        Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3110            MyBase.OnRowDeleting(e)
3111            If (Not (Me.GetStudentGradesRowDeletingEvent) Is Nothing) Then
3112                RaiseEvent GetStudentGradesRowDeleting(Me, New GetStudentGradesRowChangeEvent(CType(e.Row,GetStudentGradesRow), e.Action))
3113            End If
3114        End Sub
3115        
3116        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3117        Public Sub RemoveGetStudentGradesRow(ByVal row As GetStudentGradesRow)
3118            Me.Rows.Remove(row)
3119        End Sub
3120        
3121        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3122        Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
3123            Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType
3124            Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence
3125            Dim ds As SchoolDataSet = New SchoolDataSet
3126            Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny
3127            any1.Namespace = "http://www.w3.org/2001/XMLSchema"
3128            any1.MinOccurs = New Decimal(0)
3129            any1.MaxOccurs = Decimal.MaxValue
3130            any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3131            sequence.Items.Add(any1)
3132            Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny
3133            any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
3134            any2.MinOccurs = New Decimal(1)
3135            any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3136            sequence.Items.Add(any2)
3137            Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute
3138            attribute1.Name = "namespace"
3139            attribute1.FixedValue = ds.Namespace
3140            type.Attributes.Add(attribute1)
3141            Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute
3142            attribute2.Name = "tableTypeName"
3143            attribute2.FixedValue = "GetStudentGradesDataTable"
3144            type.Attributes.Add(attribute2)
3145            type.Particle = sequence
3146            Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
3147            If xs.Contains(dsSchema.TargetNamespace) Then
3148                Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream
3149                Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream
3150                Try 
3151                    Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
3152                    dsSchema.Write(s1)
3153                    Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
3154                    Do While schemas.MoveNext
3155                        schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
3156                        s2.SetLength(0)
3157                        schema.Write(s2)
3158                        If (s1.Length = s2.Length) Then
3159                            s1.Position = 0
3160                            s2.Position = 0
3161                            
3162                            Do While ((s1.Position <> s1.Length)  _
3163                                        AndAlso (s1.ReadByte = s2.ReadByte))
3164                                
3165                                
3166                            Loop
3167                            If (s1.Position = s1.Length) Then
3168                                Return type
3169                            End If
3170                        End If
3171                        
3172                    Loop
3173                Finally
3174                    If (Not (s1) Is Nothing) Then
3175                        s1.Close
3176                    End If
3177                    If (Not (s2) Is Nothing) Then
3178                        s2.Close
3179                    End If
3180                End Try
3181            End If
3182            xs.Add(dsSchema)
3183            Return type
3184        End Function
3185    End Class
3186    
3187    '''<summary>
3188    '''Represents the strongly named DataTable class.
3189    '''</summary>
3190    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"),  _
3191     Global.System.Serializable(),  _
3192     Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
3193    Partial Public Class InsertOfficeAssignmentDataTable
3194        Inherits Global.System.Data.TypedTableBase(Of InsertOfficeAssignmentRow)
3195        
3196        Private columnTimestamp As Global.System.Data.DataColumn
3197        
3198        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3199        Public Sub New()
3200            MyBase.New
3201            Me.TableName = "InsertOfficeAssignment"
3202            Me.BeginInit
3203            Me.InitClass
3204            Me.EndInit
3205        End Sub
3206        
3207        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3208        Friend Sub New(ByVal table As Global.System.Data.DataTable)
3209            MyBase.New
3210            Me.TableName = table.TableName
3211            If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
3212                Me.CaseSensitive = table.CaseSensitive
3213            End If
3214            If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
3215                Me.Locale = table.Locale
3216            End If
3217            If (table.Namespace <> table.DataSet.Namespace) Then
3218                Me.Namespace = table.Namespace
3219            End If
3220            Me.Prefix = table.Prefix
3221            Me.MinimumCapacity = table.MinimumCapacity
3222        End Sub
3223        
3224        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3225        Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
3226            MyBase.New(info, context)
3227            Me.InitVars
3228        End Sub
3229        
3230        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3231        Public ReadOnly Property TimestampColumn() As Global.System.Data.DataColumn
3232            Get
3233                Return Me.columnTimestamp
3234            End Get
3235        End Property
3236        
3237        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3238         Global.System.ComponentModel.Browsable(false)>  _
3239        Public ReadOnly Property Count() As Integer
3240            Get
3241                Return Me.Rows.Count
3242            End Get
3243        End Property
3244        
3245        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3246        Public Default ReadOnly Property Item(ByVal index As Integer) As InsertOfficeAssignmentRow
3247            Get
3248                Return CType(Me.Rows(index),InsertOfficeAssignmentRow)
3249            End Get
3250        End Property
3251        
3252        Public Event InsertOfficeAssignmentRowChanging As InsertOfficeAssignmentRowChangeEventHandler
3253        
3254        Public Event InsertOfficeAssignmentRowChanged As InsertOfficeAssignmentRowChangeEventHandler
3255        
3256        Public Event InsertOfficeAssignmentRowDeleting As InsertOfficeAssignmentRowChangeEventHandler
3257        
3258        Public Event InsertOfficeAssignmentRowDeleted As InsertOfficeAssignmentRowChangeEventHandler
3259        
3260        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3261        Public Overloads Sub AddInsertOfficeAssignmentRow(ByVal row As InsertOfficeAssignmentRow)
3262            Me.Rows.Add(row)
3263        End Sub
3264        
3265        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3266        Public Overloads Function AddInsertOfficeAssignmentRow(ByVal Timestamp() As Byte) As InsertOfficeAssignmentRow
3267            Dim rowInsertOfficeAssignmentRow As InsertOfficeAssignmentRow = CType(Me.NewRow,InsertOfficeAssignmentRow)
3268            Dim columnValuesArray() As Object = New Object() {Timestamp}
3269            rowInsertOfficeAssignmentRow.ItemArray = columnValuesArray
3270            Me.Rows.Add(rowInsertOfficeAssignmentRow)
3271            Return rowInsertOfficeAssignmentRow
3272        End Function
3273        
3274        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3275        Public Overrides Function Clone() As Global.System.Data.DataTable
3276            Dim cln As InsertOfficeAssignmentDataTable = CType(MyBase.Clone,InsertOfficeAssignmentDataTable)
3277            cln.InitVars
3278            Return cln
3279        End Function
3280        
3281        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3282        Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
3283            Return New InsertOfficeAssignmentDataTable
3284        End Function
3285        
3286        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3287        Friend Sub InitVars()
3288            Me.columnTimestamp = MyBase.Columns("Timestamp")
3289        End Sub
3290        
3291        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3292        Private Sub InitClass()
3293            Me.columnTimestamp = New Global.System.Data.DataColumn("Timestamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element)
3294            MyBase.Columns.Add(Me.columnTimestamp)
3295            Me.columnTimestamp.ReadOnly = true
3296        End Sub
3297        
3298        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3299        Public Function NewInsertOfficeAssignmentRow() As InsertOfficeAssignmentRow
3300            Return CType(Me.NewRow,InsertOfficeAssignmentRow)
3301        End Function
3302        
3303        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3304        Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
3305            Return New InsertOfficeAssignmentRow(builder)
3306        End Function
3307        
3308        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3309        Protected Overrides Function GetRowType() As Global.System.Type
3310            Return GetType(InsertOfficeAssignmentRow)
3311        End Function
3312        
3313        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3314        Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3315            MyBase.OnRowChanged(e)
3316            If (Not (Me.InsertOfficeAssignmentRowChangedEvent) Is Nothing) Then
3317                RaiseEvent InsertOfficeAssignmentRowChanged(Me, New InsertOfficeAssignmentRowChangeEvent(CType(e.Row,InsertOfficeAssignmentRow), e.Action))
3318            End If
3319        End Sub
3320        
3321        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3322        Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3323            MyBase.OnRowChanging(e)
3324            If (Not (Me.InsertOfficeAssignmentRowChangingEvent) Is Nothing) Then
3325                RaiseEvent InsertOfficeAssignmentRowChanging(Me, New InsertOfficeAssignmentRowChangeEvent(CType(e.Row,InsertOfficeAssignmentRow), e.Action))
3326            End If
3327        End Sub
3328        
3329        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3330        Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3331            MyBase.OnRowDeleted(e)
3332            If (Not (Me.InsertOfficeAssignmentRowDeletedEvent) Is Nothing) Then
3333                RaiseEvent InsertOfficeAssignmentRowDeleted(Me, New InsertOfficeAssignmentRowChangeEvent(CType(e.Row,InsertOfficeAssignmentRow), e.Action))
3334            End If
3335        End Sub
3336        
3337        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3338        Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3339            MyBase.OnRowDeleting(e)
3340            If (Not (Me.InsertOfficeAssignmentRowDeletingEvent) Is Nothing) Then
3341                RaiseEvent InsertOfficeAssignmentRowDeleting(Me, New InsertOfficeAssignmentRowChangeEvent(CType(e.Row,InsertOfficeAssignmentRow), e.Action))
3342            End If
3343        End Sub
3344        
3345        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3346        Public Sub RemoveInsertOfficeAssignmentRow(ByVal row As InsertOfficeAssignmentRow)
3347            Me.Rows.Remove(row)
3348        End Sub
3349        
3350        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3351        Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
3352            Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType
3353            Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence
3354            Dim ds As SchoolDataSet = New SchoolDataSet
3355            Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny
3356            any1.Namespace = "http://www.w3.org/2001/XMLSchema"
3357            any1.MinOccurs = New Decimal(0)
3358            any1.MaxOccurs = Decimal.MaxValue
3359            any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3360            sequence.Items.Add(any1)
3361            Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny
3362            any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
3363            any2.MinOccurs = New Decimal(1)
3364            any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3365            sequence.Items.Add(any2)
3366            Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute
3367            attribute1.Name = "namespace"
3368            attribute1.FixedValue = ds.Namespace
3369            type.Attributes.Add(attribute1)
3370            Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute
3371            attribute2.Name = "tableTypeName"
3372            attribute2.FixedValue = "InsertOfficeAssignmentDataTable"
3373            type.Attributes.Add(attribute2)
3374            type.Particle = sequence
3375            Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
3376            If xs.Contains(dsSchema.TargetNamespace) Then
3377                Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream
3378                Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream
3379                Try 
3380                    Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
3381                    dsSchema.Write(s1)
3382                    Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
3383                    Do While schemas.MoveNext
3384                        schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
3385                        s2.SetLength(0)
3386                        schema.Write(s2)
3387                        If (s1.Length = s2.Length) Then
3388                            s1.Position = 0
3389                            s2.Position = 0
3390                            
3391                            Do While ((s1.Position <> s1.Length)  _
3392                                        AndAlso (s1.ReadByte = s2.ReadByte))
3393                                
3394                                
3395                            Loop
3396                            If (s1.Position = s1.Length) Then
3397                                Return type
3398                            End If
3399                        End If
3400                        
3401                    Loop
3402                Finally
3403                    If (Not (s1) Is Nothing) Then
3404                        s1.Close
3405                    End If
3406                    If (Not (s2) Is Nothing) Then
3407                        s2.Close
3408                    End If
3409                End Try
3410            End If
3411            xs.Add(dsSchema)
3412            Return type
3413        End Function
3414    End Class
3415    
3416    '''<summary>
3417    '''Represents the strongly named DataTable class.
3418    '''</summary>
3419    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"),  _
3420     Global.System.Serializable(),  _
3421     Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
3422    Partial Public Class InsertPersonDataTable
3423        Inherits Global.System.Data.TypedTableBase(Of InsertPersonRow)
3424        
3425        Private columnNewPersonID As Global.System.Data.DataColumn
3426        
3427        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3428        Public Sub New()
3429            MyBase.New
3430            Me.TableName = "InsertPerson"
3431            Me.BeginInit
3432            Me.InitClass
3433            Me.EndInit
3434        End Sub
3435        
3436        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3437        Friend Sub New(ByVal table As Global.System.Data.DataTable)
3438            MyBase.New
3439            Me.TableName = table.TableName
3440            If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
3441                Me.CaseSensitive = table.CaseSensitive
3442            End If
3443            If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
3444                Me.Locale = table.Locale
3445            End If
3446            If (table.Namespace <> table.DataSet.Namespace) Then
3447                Me.Namespace = table.Namespace
3448            End If
3449            Me.Prefix = table.Prefix
3450            Me.MinimumCapacity = table.MinimumCapacity
3451        End Sub
3452        
3453        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3454        Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
3455            MyBase.New(info, context)
3456            Me.InitVars
3457        End Sub
3458        
3459        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3460        Public ReadOnly Property NewPersonIDColumn() As Global.System.Data.DataColumn
3461            Get
3462                Return Me.columnNewPersonID
3463            End Get
3464        End Property
3465        
3466        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3467         Global.System.ComponentModel.Browsable(false)>  _
3468        Public ReadOnly Property Count() As Integer
3469            Get
3470                Return Me.Rows.Count
3471            End Get
3472        End Property
3473        
3474        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3475        Public Default ReadOnly Property Item(ByVal index As Integer) As InsertPersonRow
3476            Get
3477                Return CType(Me.Rows(index),InsertPersonRow)
3478            End Get
3479        End Property
3480        
3481        Public Event InsertPersonRowChanging As InsertPersonRowChangeEventHandler
3482        
3483        Public Event InsertPersonRowChanged As InsertPersonRowChangeEventHandler
3484        
3485        Public Event InsertPersonRowDeleting As InsertPersonRowChangeEventHandler
3486        
3487        Public Event InsertPersonRowDeleted As InsertPersonRowChangeEventHandler
3488        
3489        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3490        Public Overloads Sub AddInsertPersonRow(ByVal row As InsertPersonRow)
3491            Me.Rows.Add(row)
3492        End Sub
3493        
3494        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3495        Public Overloads Function AddInsertPersonRow(ByVal NewPersonID As Decimal) As InsertPersonRow
3496            Dim rowInsertPersonRow As InsertPersonRow = CType(Me.NewRow,InsertPersonRow)
3497            Dim columnValuesArray() As Object = New Object() {NewPersonID}
3498            rowInsertPersonRow.ItemArray = columnValuesArray
3499            Me.Rows.Add(rowInsertPersonRow)
3500            Return rowInsertPersonRow
3501        End Function
3502        
3503        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3504        Public Overrides Function Clone() As Global.System.Data.DataTable
3505            Dim cln As InsertPersonDataTable = CType(MyBase.Clone,InsertPersonDataTable)
3506            cln.InitVars
3507            Return cln
3508        End Function
3509        
3510        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3511        Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
3512            Return New InsertPersonDataTable
3513        End Function
3514        
3515        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3516        Friend Sub InitVars()
3517            Me.columnNewPersonID = MyBase.Columns("NewPersonID")
3518        End Sub
3519        
3520        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3521        Private Sub InitClass()
3522            Me.columnNewPersonID = New Global.System.Data.DataColumn("NewPersonID", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3523            MyBase.Columns.Add(Me.columnNewPersonID)
3524            Me.columnNewPersonID.ReadOnly = true
3525        End Sub
3526        
3527        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3528        Public Function NewInsertPersonRow() As InsertPersonRow
3529            Return CType(Me.NewRow,InsertPersonRow)
3530        End Function
3531        
3532        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3533        Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
3534            Return New InsertPersonRow(builder)
3535        End Function
3536        
3537        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3538        Protected Overrides Function GetRowType() As Global.System.Type
3539            Return GetType(InsertPersonRow)
3540        End Function
3541        
3542        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3543        Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3544            MyBase.OnRowChanged(e)
3545            If (Not (Me.InsertPersonRowChangedEvent) Is Nothing) Then
3546                RaiseEvent InsertPersonRowChanged(Me, New InsertPersonRowChangeEvent(CType(e.Row,InsertPersonRow), e.Action))
3547            End If
3548        End Sub
3549        
3550        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3551        Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3552            MyBase.OnRowChanging(e)
3553            If (Not (Me.InsertPersonRowChangingEvent) Is Nothing) Then
3554                RaiseEvent InsertPersonRowChanging(Me, New InsertPersonRowChangeEvent(CType(e.Row,InsertPersonRow), e.Action))
3555            End If
3556        End Sub
3557        
3558        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3559        Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3560            MyBase.OnRowDeleted(e)
3561            If (Not (Me.InsertPersonRowDeletedEvent) Is Nothing) Then
3562                RaiseEvent InsertPersonRowDeleted(Me, New InsertPersonRowChangeEvent(CType(e.Row,InsertPersonRow), e.Action))
3563            End If
3564        End Sub
3565        
3566        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3567        Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3568            MyBase.OnRowDeleting(e)
3569            If (Not (Me.InsertPersonRowDeletingEvent) Is Nothing) Then
3570                RaiseEvent InsertPersonRowDeleting(Me, New InsertPersonRowChangeEvent(CType(e.Row,InsertPersonRow), e.Action))
3571            End If
3572        End Sub
3573        
3574        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3575        Public Sub RemoveInsertPersonRow(ByVal row As InsertPersonRow)
3576            Me.Rows.Remove(row)
3577        End Sub
3578        
3579        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3580        Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
3581            Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType
3582            Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence
3583            Dim ds As SchoolDataSet = New SchoolDataSet
3584            Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny
3585            any1.Namespace = "http://www.w3.org/2001/XMLSchema"
3586            any1.MinOccurs = New Decimal(0)
3587            any1.MaxOccurs = Decimal.MaxValue
3588            any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3589            sequence.Items.Add(any1)
3590            Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny
3591            any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
3592            any2.MinOccurs = New Decimal(1)
3593            any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3594            sequence.Items.Add(any2)
3595            Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute
3596            attribute1.Name = "namespace"
3597            attribute1.FixedValue = ds.Namespace
3598            type.Attributes.Add(attribute1)
3599            Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute
3600            attribute2.Name = "tableTypeName"
3601            attribute2.FixedValue = "InsertPersonDataTable"
3602            type.Attributes.Add(attribute2)
3603            type.Particle = sequence
3604            Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
3605            If xs.Contains(dsSchema.TargetNamespace) Then
3606                Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream
3607                Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream
3608                Try 
3609                    Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
3610                    dsSchema.Write(s1)
3611                    Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
3612                    Do While schemas.MoveNext
3613                        schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
3614                        s2.SetLength(0)
3615                        schema.Write(s2)
3616                        If (s1.Length = s2.Length) Then
3617                            s1.Position = 0
3618                            s2.Position = 0
3619                            
3620                            Do While ((s1.Position <> s1.Length)  _
3621                                        AndAlso (s1.ReadByte = s2.ReadByte))
3622                                
3623                                
3624                            Loop
3625                            If (s1.Position = s1.Length) Then
3626                                Return type
3627                            End If
3628                        End If
3629                        
3630                    Loop
3631                Finally
3632                    If (Not (s1) Is Nothing) Then
3633                        s1.Close
3634                    End If
3635                    If (Not (s2) Is Nothing) Then
3636                        s2.Close
3637                    End If
3638                End Try
3639            End If
3640            xs.Add(dsSchema)
3641            Return type
3642        End Function
3643    End Class
3644    
3645    '''<summary>
3646    '''Represents the strongly named DataTable class.
3647    '''</summary>
3648    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"),  _
3649     Global.System.Serializable(),  _
3650     Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
3651    Partial Public Class UpdateOfficeAssignmentDataTable
3652        Inherits Global.System.Data.TypedTableBase(Of UpdateOfficeAssignmentRow)
3653        
3654        Private columnTimestamp As Global.System.Data.DataColumn
3655        
3656        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3657        Public Sub New()
3658            MyBase.New
3659            Me.TableName = "UpdateOfficeAssignment"
3660            Me.BeginInit
3661            Me.InitClass
3662            Me.EndInit
3663        End Sub
3664        
3665        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3666        Friend Sub New(ByVal table As Global.System.Data.DataTable)
3667            MyBase.New
3668            Me.TableName = table.TableName
3669            If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
3670                Me.CaseSensitive = table.CaseSensitive
3671            End If
3672            If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
3673                Me.Locale = table.Locale
3674            End If
3675            If (table.Namespace <> table.DataSet.Namespace) Then
3676                Me.Namespace = table.Namespace
3677            End If
3678            Me.Prefix = table.Prefix
3679            Me.MinimumCapacity = table.MinimumCapacity
3680        End Sub
3681        
3682        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3683        Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
3684            MyBase.New(info, context)
3685            Me.InitVars
3686        End Sub
3687        
3688        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3689        Public ReadOnly Property TimestampColumn() As Global.System.Data.DataColumn
3690            Get
3691                Return Me.columnTimestamp
3692            End Get
3693        End Property
3694        
3695        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3696         Global.System.ComponentModel.Browsable(false)>  _
3697        Public ReadOnly Property Count() As Integer
3698            Get
3699                Return Me.Rows.Count
3700            End Get
3701        End Property
3702        
3703        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3704        Public Default ReadOnly Property Item(ByVal index As Integer) As UpdateOfficeAssignmentRow
3705            Get
3706                Return CType(Me.Rows(index),UpdateOfficeAssignmentRow)
3707            End Get
3708        End Property
3709        
3710        Public Event UpdateOfficeAssignmentRowChanging As UpdateOfficeAssignmentRowChangeEventHandler
3711        
3712        Public Event UpdateOfficeAssignmentRowChanged As UpdateOfficeAssignmentRowChangeEventHandler
3713        
3714        Public Event UpdateOfficeAssignmentRowDeleting As UpdateOfficeAssignmentRowChangeEventHandler
3715        
3716        Public Event UpdateOfficeAssignmentRowDeleted As UpdateOfficeAssignmentRowChangeEventHandler
3717        
3718        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3719        Public Overloads Sub AddUpdateOfficeAssignmentRow(ByVal row As UpdateOfficeAssignmentRow)
3720            Me.Rows.Add(row)
3721        End Sub
3722        
3723        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3724        Public Overloads Function AddUpdateOfficeAssignmentRow(ByVal Timestamp() As Byte) As UpdateOfficeAssignmentRow
3725            Dim rowUpdateOfficeAssignmentRow As UpdateOfficeAssignmentRow = CType(Me.NewRow,UpdateOfficeAssignmentRow)
3726            Dim columnValuesArray() As Object = New Object() {Timestamp}
3727            rowUpdateOfficeAssignmentRow.ItemArray = columnValuesArray
3728            Me.Rows.Add(rowUpdateOfficeAssignmentRow)
3729            Return rowUpdateOfficeAssignmentRow
3730        End Function
3731        
3732        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3733        Public Overrides Function Clone() As Global.System.Data.DataTable
3734            Dim cln As UpdateOfficeAssignmentDataTable = CType(MyBase.Clone,UpdateOfficeAssignmentDataTable)
3735            cln.InitVars
3736            Return cln
3737        End Function
3738        
3739        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3740        Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
3741            Return New UpdateOfficeAssignmentDataTable
3742        End Function
3743        
3744        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3745        Friend Sub InitVars()
3746            Me.columnTimestamp = MyBase.Columns("Timestamp")
3747        End Sub
3748        
3749        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3750        Private Sub InitClass()
3751            Me.columnTimestamp = New Global.System.Data.DataColumn("Timestamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element)
3752            MyBase.Columns.Add(Me.columnTimestamp)
3753            Me.columnTimestamp.ReadOnly = true
3754        End Sub
3755        
3756        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3757        Public Function NewUpdateOfficeAssignmentRow() As UpdateOfficeAssignmentRow
3758            Return CType(Me.NewRow,UpdateOfficeAssignmentRow)
3759        End Function
3760        
3761        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3762        Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
3763            Return New UpdateOfficeAssignmentRow(builder)
3764        End Function
3765        
3766        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3767        Protected Overrides Function GetRowType() As Global.System.Type
3768            Return GetType(UpdateOfficeAssignmentRow)
3769        End Function
3770        
3771        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3772        Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3773            MyBase.OnRowChanged(e)
3774            If (Not (Me.UpdateOfficeAssignmentRowChangedEvent) Is Nothing) Then
3775                RaiseEvent UpdateOfficeAssignmentRowChanged(Me, New UpdateOfficeAssignmentRowChangeEvent(CType(e.Row,UpdateOfficeAssignmentRow), e.Action))
3776            End If
3777        End Sub
3778        
3779        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3780        Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3781            MyBase.OnRowChanging(e)
3782            If (Not (Me.UpdateOfficeAssignmentRowChangingEvent) Is Nothing) Then
3783                RaiseEvent UpdateOfficeAssignmentRowChanging(Me, New UpdateOfficeAssignmentRowChangeEvent(CType(e.Row,UpdateOfficeAssignmentRow), e.Action))
3784            End If
3785        End Sub
3786        
3787        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3788        Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3789            MyBase.OnRowDeleted(e)
3790            If (Not (Me.UpdateOfficeAssignmentRowDeletedEvent) Is Nothing) Then
3791                RaiseEvent UpdateOfficeAssignmentRowDeleted(Me, New UpdateOfficeAssignmentRowChangeEvent(CType(e.Row,UpdateOfficeAssignmentRow), e.Action))
3792            End If
3793        End Sub
3794        
3795        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3796        Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3797            MyBase.OnRowDeleting(e)
3798            If (Not (Me.UpdateOfficeAssignmentRowDeletingEvent) Is Nothing) Then
3799                RaiseEvent UpdateOfficeAssignmentRowDeleting(Me, New UpdateOfficeAssignmentRowChangeEvent(CType(e.Row,UpdateOfficeAssignmentRow), e.Action))
3800            End If
3801        End Sub
3802        
3803        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3804        Public Sub RemoveUpdateOfficeAssignmentRow(ByVal row As UpdateOfficeAssignmentRow)
3805            Me.Rows.Remove(row)
3806        End Sub
3807        
3808        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3809        Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
3810            Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType
3811            Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence
3812            Dim ds As SchoolDataSet = New SchoolDataSet
3813            Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny
3814            any1.Namespace = "http://www.w3.org/2001/XMLSchema"
3815            any1.MinOccurs = New Decimal(0)
3816            any1.MaxOccurs = Decimal.MaxValue
3817            any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3818            sequence.Items.Add(any1)
3819            Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny
3820            any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
3821            any2.MinOccurs = New Decimal(1)
3822            any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3823            sequence.Items.Add(any2)
3824            Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute
3825            attribute1.Name = "namespace"
3826            attribute1.FixedValue = ds.Namespace
3827            type.Attributes.Add(attribute1)
3828            Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute
3829            attribute2.Name = "tableTypeName"
3830            attribute2.FixedValue = "UpdateOfficeAssignmentDataTable"
3831            type.Attributes.Add(attribute2)
3832            type.Particle = sequence
3833            Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
3834            If xs.Contains(dsSchema.TargetNamespace) Then
3835                Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream
3836                Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream
3837                Try 
3838                    Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
3839                    dsSchema.Write(s1)
3840                    Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
3841                    Do While schemas.MoveNext
3842                        schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
3843                        s2.SetLength(0)
3844                        schema.Write(s2)
3845                        If (s1.Length = s2.Length) Then
3846                            s1.Position = 0
3847                            s2.Position = 0
3848                            
3849                            Do While ((s1.Position <> s1.Length)  _
3850                                        AndAlso (s1.ReadByte = s2.ReadByte))
3851                                
3852                                
3853                            Loop
3854                            If (s1.Position = s1.Length) Then
3855                                Return type
3856                            End If
3857                        End If
3858                        
3859                    Loop
3860                Finally
3861                    If (Not (s1) Is Nothing) Then
3862                        s1.Close
3863                    End If
3864                    If (Not (s2) Is Nothing) Then
3865                        s2.Close
3866                    End If
3867                End Try
3868            End If
3869            xs.Add(dsSchema)
3870            Return type
3871        End Function
3872    End Class
3873    
3874    '''<summary>
3875    '''Represents the strongly named DataTable class.
3876    '''</summary>
3877    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"),  _
3878     Global.System.Serializable(),  _
3879     Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
3880    Partial Public Class CourseListDataTable
3881        Inherits Global.System.Data.TypedTableBase(Of CourseListRow)
3882        
3883        Private columnTitle As Global.System.Data.DataColumn
3884        
3885        Private columnCredits As Global.System.Data.DataColumn
3886        
3887        Private columnDepartmentName As Global.System.Data.DataColumn
3888        
3889        Private columnInstructor As Global.System.Data.DataColumn
3890        
3891        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3892        Public Sub New()
3893            MyBase.New
3894            Me.TableName = "CourseList"
3895            Me.BeginInit
3896            Me.InitClass
3897            Me.EndInit
3898        End Sub
3899        
3900        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3901        Friend Sub New(ByVal table As Global.System.Data.DataTable)
3902            MyBase.New
3903            Me.TableName = table.TableName
3904            If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
3905                Me.CaseSensitive = table.CaseSensitive
3906            End If
3907            If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
3908                Me.Locale = table.Locale
3909            End If
3910            If (table.Namespace <> table.DataSet.Namespace) Then
3911                Me.Namespace = table.Namespace
3912            End If
3913            Me.Prefix = table.Prefix
3914            Me.MinimumCapacity = table.MinimumCapacity
3915        End Sub
3916        
3917        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3918        Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
3919            MyBase.New(info, context)
3920            Me.InitVars
3921        End Sub
3922        
3923        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3924        Public ReadOnly Property TitleColumn() As Global.System.Data.DataColumn
3925            Get
3926                Return Me.columnTitle
3927            End Get
3928        End Property
3929        
3930        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3931        Public ReadOnly Property CreditsColumn() As Global.System.Data.DataColumn
3932            Get
3933                Return Me.columnCredits
3934            End Get
3935        End Property
3936        
3937        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3938        Public ReadOnly Property DepartmentNameColumn() As Global.System.Data.DataColumn
3939            Get
3940                Return Me.columnDepartmentName
3941            End Get
3942        End Property
3943        
3944        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3945        Public ReadOnly Property InstructorColumn() As Global.System.Data.DataColumn
3946            Get
3947                Return Me.columnInstructor
3948            End Get
3949        End Property
3950        
3951        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3952         Global.System.ComponentModel.Browsable(false)>  _
3953        Public ReadOnly Property Count() As Integer
3954            Get
3955                Return Me.Rows.Count
3956            End Get
3957        End Property
3958        
3959        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3960        Public Default ReadOnly Property Item(ByVal index As Integer) As CourseListRow
3961            Get
3962                Return CType(Me.Rows(index),CourseListRow)
3963            End Get
3964        End Property
3965        
3966        Public Event CourseListRowChanging As CourseListRowChangeEventHandler
3967        
3968        Public Event CourseListRowChanged As CourseListRowChangeEventHandler
3969        
3970        Public Event CourseListRowDeleting As CourseListRowChangeEventHandler
3971        
3972        Public Event CourseListRowDeleted As CourseListRowChangeEventHandler
3973        
3974        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3975        Public Overloads Sub AddCourseListRow(ByVal row As CourseListRow)
3976            Me.Rows.Add(row)
3977        End Sub
3978        
3979        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3980        Public Overloads Function AddCourseListRow(ByVal Title As String, ByVal Credits As Integer, ByVal DepartmentName As String, ByVal Instructor As String) As CourseListRow
3981            Dim rowCourseListRow As CourseListRow = CType(Me.NewRow,CourseListRow)
3982            Dim columnValuesArray() As Object = New Object() {Title, Credits, DepartmentName, Instructor}
3983            rowCourseListRow.ItemArray = columnValuesArray
3984            Me.Rows.Add(rowCourseListRow)
3985            Return rowCourseListRow
3986        End Function
3987        
3988        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3989        Public Overrides Function Clone() As Global.System.Data.DataTable
3990            Dim cln As CourseListDataTable = CType(MyBase.Clone,CourseListDataTable)
3991            cln.InitVars
3992            Return cln
3993        End Function
3994        
3995        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
3996        Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
3997            Return New CourseListDataTable
3998        End Function
3999        
4000        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
4001        Friend Sub InitVars()
4002            Me.columnTitle = MyBase.Columns("Title")
4003            Me.columnCredits = MyBase.Columns("Credits")
4004            Me.columnDepartmentName = MyBase.Columns("DepartmentName")
4005            Me.columnInstructor = MyBase.Columns("Instructor")
4006        End Sub
4007        
4008        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
4009        Private Sub InitClass()
4010            Me.columnTitle = New Global.System.Data.DataColumn("Title", GetType(String), Nothing, Global.System.Data.MappingType.Element)
4011            MyBase.Columns.Add(Me.columnTitle)
4012            Me.columnCredits = New Global.System.Data.DataColumn("Credits", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
4013            MyBase.Columns.Add(Me.columnCredits)
4014            Me.columnDepartmentName = New Global.System.Data.DataColumn("DepartmentName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
4015            MyBase.Columns.Add(Me.columnDepartmentName)
4016            Me.columnInstructor = New Global.System.Data.DataColumn("Instructor", GetType(String), Nothing, Global.System.Data.MappingType.Element)
4017            MyBase.Columns.Add(Me.columnInstructor)
4018            Me.columnTitle.AllowDBNull = false
4019            Me.columnTitle.MaxLength = 100
4020            Me.columnCredits.AllowDBNull = false
4021            Me.columnDepartmentName.MaxLength = 50
4022            Me.columnInstructor.ReadOnly = true
4023            Me.columnInstructor.MaxLength = 101
4024        End Sub
4025        
4026        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
4027        Public Function NewCourseListRow() As CourseListRow
4028            Return CType(Me.NewRow,CourseListRow)
4029        End Function
4030        
4031        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
4032        Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
4033            Return New CourseListRow(builder)
4034        End Function
4035        
4036        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
4037        Protected Overrides Function GetRowType() As Global.System.Type
4038            Return GetType(CourseListRow)
4039        End Function
4040        
4041        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
4042        Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4043            MyBase.OnRowChanged(e)
4044            If (Not (Me.CourseListRowChangedEvent) Is Nothing) Then
4045                RaiseEvent CourseListRowChanged(Me, New CourseListRowChangeEvent(CType(e.Row,CourseListRow), e.Action))
4046            End If
4047        End Sub
4048        
4049        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
4050        Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4051            MyBase.OnRowChanging(e)
4052            If (Not (Me.CourseListRowChangingEvent) Is Nothing) Then
4053                RaiseEvent CourseListRowChanging(Me, New CourseListRowChangeEvent(CType(e.Row,CourseListRow), e.Action))
4054            End If
4055        End Sub
4056        
4057        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
4058        Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4059            MyBase.OnRowDeleted(e)
4060            If (Not (Me.CourseListRowDeletedEvent) Is Nothing) Then
4061                RaiseEvent CourseListRowDeleted(Me, New CourseListRowChangeEvent(CType(e.Row,CourseListRow), e.Action))
4062            End If
4063        End Sub
4064        
4065        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
4066        Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4067            MyBase.OnRowDeleting(e)
4068            If (Not (Me.CourseListRowDeletingEvent) Is Nothing) Then
4069                RaiseEvent CourseListRowDeleting(Me, New CourseListRowChangeEvent(CType(e.Row,CourseListRow), e.Action))
4070            End If
4071        End Sub
4072        
4073        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
4074        Public Sub RemoveCourseListRow(ByVal row As CourseListRow)
4075            Me.Rows.Remove(row)
4076        End Sub
4077        
4078        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
4079        Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
4080            Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType
4081            Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence
4082            Dim ds As SchoolDataSet = New SchoolDataSet
4083            Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny
4084            any1.Namespace = "http://www.w3.org/2001/XMLSchema"
4085            any1.MinOccurs = New Decimal(0)
4086            any1.MaxOccurs = Decimal.MaxValue
4087            any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
4088            sequence.Items.Add(any1)
4089            Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny
4090            any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
4091            any2.MinOccurs = New Decimal(1)
4092            any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
4093            se