PageRenderTime 122ms CodeModel.GetById 42ms app.highlight 57ms RepoModel.GetById 1ms app.codeStats 3ms

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

#
Visual Basic | 9015 lines | 7797 code | 1047 blank | 171 comment | 13 complexity | 93897e8b697efd5e60ab1eed0f5a6537 MD5 | raw file

Large files files are truncated, but you can click here to view the full file

  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              

Large files files are truncated, but you can click here to view the full file