PageRenderTime 30ms CodeModel.GetById 1ms 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

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

    

  1. '------------------------------------------------------------------------------

    2. 

  2. ' <auto-generated>

    3. 

  3. '     This code was generated by a tool.

    4. 

  4. '     Runtime Version:2.0.50727.4927

    5. 

  5. '

    6. 

  6. '     Changes to this file may cause incorrect behavior and will be lost if

    7. 

  7. '     the code is regenerated.

    8. 

  8. ' </auto-generated>

    9. 

  9. '------------------------------------------------------------------------------

    10. 

  10. 

    11. 

  11. Option Strict Off

    12. 

  12. Option Explicit On

    13. 

  13. 

    14. 

  14. 

    15. 

  15. 

    16. 

  16. '''<summary>

    17. 

  17. '''Represents a strongly typed in-memory cache of data.

    18. 

  18. '''</summary>

    19. 

  19. <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"),  _

    20. 

  20.  Global.System.Serializable(),  _

    21. 

  21.  Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _

    22. 

  22.  Global.System.ComponentModel.ToolboxItem(true),  _

    23. 

  23.  Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedDataSetSchema"),  _

    24. 

  24.  Global.System.Xml.Serialization.XmlRootAttribute("SchoolDataSet"),  _

    25. 

  25.  Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")>  _

    26. 

  26. Partial Public Class SchoolDataSet

    27. 

  27.     Inherits Global.System.Data.DataSet

    28. 

  28.     

    29. 

  29.     Private tableCourse As CourseDataTable

    30. 

  30.     

    31. 

  31.     Private tableCourseGrade As CourseGradeDataTable

    32. 

  32.     

    33. 

  33.     Private tableCourseInstructor As CourseInstructorDataTable

    34. 

  34.     

    35. 

  35.     Private tableDepartment As DepartmentDataTable

    36. 

  36.     

    37. 

  37.     Private tableOfficeAssignment As OfficeAssignmentDataTable

    38. 

  38.     

    39. 

  39.     Private tableOnlineCourse As OnlineCourseDataTable

    40. 

  40.     

    41. 

  41.     Private tableOnsiteCourse As OnsiteCourseDataTable

    42. 

  42.     

    43. 

  43.     Private tablePerson As PersonDataTable

    44. 

  44.     

    45. 

  45.     Private tableGetStudentGrades As GetStudentGradesDataTable

    46. 

  46.     

    47. 

  47.     Private tableInsertOfficeAssignment As InsertOfficeAssignmentDataTable

    48. 

  48.     

    49. 

  49.     Private tableInsertPerson As InsertPersonDataTable

    50. 

  50.     

    51. 

  51.     Private tableUpdateOfficeAssignment As UpdateOfficeAssignmentDataTable

    52. 

  52.     

    53. 

  53.     Private tableCourseList As CourseListDataTable

    54. 

  54.     

    55. 

  55.     Private tableStudentList As StudentListDataTable

    56. 

  56.     

    57. 

  57.     Private relationFK_Course_Department As Global.System.Data.DataRelation

    58. 

  58.     

    59. 

  59.     Private relationFK_CourseGrade_Course As Global.System.Data.DataRelation

    60. 

  60.     

    61. 

  61.     Private relationFK_CourseGrade_Student As Global.System.Data.DataRelation

    62. 

  62.     

    63. 

  63.     Private relationFK_CourseInstructor_Course As Global.System.Data.DataRelation

    64. 

  64.     

    65. 

  65.     Private relationFK_CourseInstructor_Person As Global.System.Data.DataRelation

    66. 

  66.     

    67. 

  67.     Private relationFK_OfficeAssignment_Person As Global.System.Data.DataRelation

    68. 

  68.     

    69. 

  69.     Private relationFK_OnlineCourse_Course As Global.System.Data.DataRelation

    70. 

  70.     

    71. 

  71.     Private relationFK_OnsiteCourse_Course As Global.System.Data.DataRelation

    72. 

  72.     

    73. 

  73.     Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema

    74. 

  74.     

    75. 

  75.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    76. 

  76.     Public Sub New()

    77. 

  77.         MyBase.New

    78. 

  78.         Me.BeginInit

    79. 

  79.         Me.InitClass

    80. 

  80.         Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged

    81. 

  81.         AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler

    82. 

  82.         AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler

    83. 

  83.         Me.EndInit

    84. 

  84.     End Sub

    85. 

  85.     

    86. 

  86.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    87. 

  87.     Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)

    88. 

  88.         MyBase.New(info, context, false)

    89. 

  89.         If (Me.IsBinarySerialized(info, context) = true) Then

    90. 

  90.             Me.InitVars(false)

    91. 

  91.             Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged

    92. 

  92.             AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1

    93. 

  93.             AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1

    94. 

  94.             Return

    95. 

  95.         End If

    96. 

  96.         Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String)

    97. 

  97.         If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then

    98. 

  98.             Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet

    99. 

  99.             ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))

    100. 

  100.             If (Not (ds.Tables("Course")) Is Nothing) Then

    101. 

  101.                 MyBase.Tables.Add(New CourseDataTable(ds.Tables("Course")))

    102. 

  102.             End If

    103. 

  103.             If (Not (ds.Tables("CourseGrade")) Is Nothing) Then

    104. 

  104.                 MyBase.Tables.Add(New CourseGradeDataTable(ds.Tables("CourseGrade")))

    105. 

  105.             End If

    106. 

  106.             If (Not (ds.Tables("CourseInstructor")) Is Nothing) Then

    107. 

  107.                 MyBase.Tables.Add(New CourseInstructorDataTable(ds.Tables("CourseInstructor")))

    108. 

  108.             End If

    109. 

  109.             If (Not (ds.Tables("Department")) Is Nothing) Then

    110. 

  110.                 MyBase.Tables.Add(New DepartmentDataTable(ds.Tables("Department")))

    111. 

  111.             End If

    112. 

  112.             If (Not (ds.Tables("OfficeAssignment")) Is Nothing) Then

    113. 

  113.                 MyBase.Tables.Add(New OfficeAssignmentDataTable(ds.Tables("OfficeAssignment")))

    114. 

  114.             End If

    115. 

  115.             If (Not (ds.Tables("OnlineCourse")) Is Nothing) Then

    116. 

  116.                 MyBase.Tables.Add(New OnlineCourseDataTable(ds.Tables("OnlineCourse")))

    117. 

  117.             End If

    118. 

  118.             If (Not (ds.Tables("OnsiteCourse")) Is Nothing) Then

    119. 

  119.                 MyBase.Tables.Add(New OnsiteCourseDataTable(ds.Tables("OnsiteCourse")))

    120. 

  120.             End If

    121. 

  121.             If (Not (ds.Tables("Person")) Is Nothing) Then

    122. 

  122.                 MyBase.Tables.Add(New PersonDataTable(ds.Tables("Person")))

    123. 

  123.             End If

    124. 

  124.             If (Not (ds.Tables("GetStudentGrades")) Is Nothing) Then

    125. 

  125.                 MyBase.Tables.Add(New GetStudentGradesDataTable(ds.Tables("GetStudentGrades")))

    126. 

  126.             End If

    127. 

  127.             If (Not (ds.Tables("InsertOfficeAssignment")) Is Nothing) Then

    128. 

  128.                 MyBase.Tables.Add(New InsertOfficeAssignmentDataTable(ds.Tables("InsertOfficeAssignment")))

    129. 

  129.             End If

    130. 

  130.             If (Not (ds.Tables("InsertPerson")) Is Nothing) Then

    131. 

  131.                 MyBase.Tables.Add(New InsertPersonDataTable(ds.Tables("InsertPerson")))

    132. 

  132.             End If

    133. 

  133.             If (Not (ds.Tables("UpdateOfficeAssignment")) Is Nothing) Then

    134. 

  134.                 MyBase.Tables.Add(New UpdateOfficeAssignmentDataTable(ds.Tables("UpdateOfficeAssignment")))

    135. 

  135.             End If

    136. 

  136.             If (Not (ds.Tables("CourseList")) Is Nothing) Then

    137. 

  137.                 MyBase.Tables.Add(New CourseListDataTable(ds.Tables("CourseList")))

    138. 

  138.             End If

    139. 

  139.             If (Not (ds.Tables("StudentList")) Is Nothing) Then

    140. 

  140.                 MyBase.Tables.Add(New StudentListDataTable(ds.Tables("StudentList")))

    141. 

  141.             End If

    142. 

  142.             Me.DataSetName = ds.DataSetName

    143. 

  143.             Me.Prefix = ds.Prefix

    144. 

  144.             Me.Namespace = ds.Namespace

    145. 

  145.             Me.Locale = ds.Locale

    146. 

  146.             Me.CaseSensitive = ds.CaseSensitive

    147. 

  147.             Me.EnforceConstraints = ds.EnforceConstraints

    148. 

  148.             Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)

    149. 

  149.             Me.InitVars

    150. 

  150.         Else

    151. 

  151.             Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))

    152. 

  152.         End If

    153. 

  153.         Me.GetSerializationData(info, context)

    154. 

  154.         Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged

    155. 

  155.         AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler

    156. 

  156.         AddHandler Me.Relations.CollectionChanged, schemaChangedHandler

    157. 

  157.     End Sub

    158. 

  158.     

    159. 

  159.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    160. 

  160.      Global.System.ComponentModel.Browsable(false),  _

    161. 

  161.      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _

    162. 

  162.     Public ReadOnly Property Course() As CourseDataTable

    163. 

  163.         Get

    164. 

  164.             Return Me.tableCourse

    165. 

  165.         End Get

    166. 

  166.     End Property

    167. 

  167.     

    168. 

  168.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    169. 

  169.      Global.System.ComponentModel.Browsable(false),  _

    170. 

  170.      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _

    171. 

  171.     Public ReadOnly Property CourseGrade() As CourseGradeDataTable

    172. 

  172.         Get

    173. 

  173.             Return Me.tableCourseGrade

    174. 

  174.         End Get

    175. 

  175.     End Property

    176. 

  176.     

    177. 

  177.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    178. 

  178.      Global.System.ComponentModel.Browsable(false),  _

    179. 

  179.      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _

    180. 

  180.     Public ReadOnly Property CourseInstructor() As CourseInstructorDataTable

    181. 

  181.         Get

    182. 

  182.             Return Me.tableCourseInstructor

    183. 

  183.         End Get

    184. 

  184.     End Property

    185. 

  185.     

    186. 

  186.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    187. 

  187.      Global.System.ComponentModel.Browsable(false),  _

    188. 

  188.      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _

    189. 

  189.     Public ReadOnly Property Department() As DepartmentDataTable

    190. 

  190.         Get

    191. 

  191.             Return Me.tableDepartment

    192. 

  192.         End Get

    193. 

  193.     End Property

    194. 

  194.     

    195. 

  195.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    196. 

  196.      Global.System.ComponentModel.Browsable(false),  _

    197. 

  197.      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _

    198. 

  198.     Public ReadOnly Property OfficeAssignment() As OfficeAssignmentDataTable

    199. 

  199.         Get

    200. 

  200.             Return Me.tableOfficeAssignment

    201. 

  201.         End Get

    202. 

  202.     End Property

    203. 

  203.     

    204. 

  204.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    205. 

  205.      Global.System.ComponentModel.Browsable(false),  _

    206. 

  206.      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _

    207. 

  207.     Public ReadOnly Property OnlineCourse() As OnlineCourseDataTable

    208. 

  208.         Get

    209. 

  209.             Return Me.tableOnlineCourse

    210. 

  210.         End Get

    211. 

  211.     End Property

    212. 

  212.     

    213. 

  213.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    214. 

  214.      Global.System.ComponentModel.Browsable(false),  _

    215. 

  215.      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _

    216. 

  216.     Public ReadOnly Property OnsiteCourse() As OnsiteCourseDataTable

    217. 

  217.         Get

    218. 

  218.             Return Me.tableOnsiteCourse

    219. 

  219.         End Get

    220. 

  220.     End Property

    221. 

  221.     

    222. 

  222.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    223. 

  223.      Global.System.ComponentModel.Browsable(false),  _

    224. 

  224.      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _

    225. 

  225.     Public ReadOnly Property Person() As PersonDataTable

    226. 

  226.         Get

    227. 

  227.             Return Me.tablePerson

    228. 

  228.         End Get

    229. 

  229.     End Property

    230. 

  230.     

    231. 

  231.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    232. 

  232.      Global.System.ComponentModel.Browsable(false),  _

    233. 

  233.      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _

    234. 

  234.     Public ReadOnly Property GetStudentGrades() As GetStudentGradesDataTable

    235. 

  235.         Get

    236. 

  236.             Return Me.tableGetStudentGrades

    237. 

  237.         End Get

    238. 

  238.     End Property

    239. 

  239.     

    240. 

  240.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    241. 

  241.      Global.System.ComponentModel.Browsable(false),  _

    242. 

  242.      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _

    243. 

  243.     Public ReadOnly Property InsertOfficeAssignment() As InsertOfficeAssignmentDataTable

    244. 

  244.         Get

    245. 

  245.             Return Me.tableInsertOfficeAssignment

    246. 

  246.         End Get

    247. 

  247.     End Property

    248. 

  248.     

    249. 

  249.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    250. 

  250.      Global.System.ComponentModel.Browsable(false),  _

    251. 

  251.      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _

    252. 

  252.     Public ReadOnly Property InsertPerson() As InsertPersonDataTable

    253. 

  253.         Get

    254. 

  254.             Return Me.tableInsertPerson

    255. 

  255.         End Get

    256. 

  256.     End Property

    257. 

  257.     

    258. 

  258.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    259. 

  259.      Global.System.ComponentModel.Browsable(false),  _

    260. 

  260.      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _

    261. 

  261.     Public ReadOnly Property UpdateOfficeAssignment() As UpdateOfficeAssignmentDataTable

    262. 

  262.         Get

    263. 

  263.             Return Me.tableUpdateOfficeAssignment

    264. 

  264.         End Get

    265. 

  265.     End Property

    266. 

  266.     

    267. 

  267.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    268. 

  268.      Global.System.ComponentModel.Browsable(false),  _

    269. 

  269.      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _

    270. 

  270.     Public ReadOnly Property CourseList() As CourseListDataTable

    271. 

  271.         Get

    272. 

  272.             Return Me.tableCourseList

    273. 

  273.         End Get

    274. 

  274.     End Property

    275. 

  275.     

    276. 

  276.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    277. 

  277.      Global.System.ComponentModel.Browsable(false),  _

    278. 

  278.      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _

    279. 

  279.     Public ReadOnly Property StudentList() As StudentListDataTable

    280. 

  280.         Get

    281. 

  281.             Return Me.tableStudentList

    282. 

  282.         End Get

    283. 

  283.     End Property

    284. 

  284.     

    285. 

  285.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    286. 

  286.      Global.System.ComponentModel.BrowsableAttribute(true),  _

    287. 

  287.      Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)>  _

    288. 

  288.     Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode

    289. 

  289.         Get

    290. 

  290.             Return Me._schemaSerializationMode

    291. 

  291.         End Get

    292. 

  292.         Set

    293. 

  293.             Me._schemaSerializationMode = value

    294. 

  294.         End Set

    295. 

  295.     End Property

    296. 

  296.     

    297. 

  297.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    298. 

  298.      Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)>  _

    299. 

  299.     Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection

    300. 

  300.         Get

    301. 

  301.             Return MyBase.Tables

    302. 

  302.         End Get

    303. 

  303.     End Property

    304. 

  304.     

    305. 

  305.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    306. 

  306.      Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)>  _

    307. 

  307.     Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection

    308. 

  308.         Get

    309. 

  309.             Return MyBase.Relations

    310. 

  310.         End Get

    311. 

  311.     End Property

    312. 

  312.     

    313. 

  313.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    314. 

  314.     Protected Overrides Sub InitializeDerivedDataSet()

    315. 

  315.         Me.BeginInit

    316. 

  316.         Me.InitClass

    317. 

  317.         Me.EndInit

    318. 

  318.     End Sub

    319. 

  319.     

    320. 

  320.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    321. 

  321.     Public Overrides Function Clone() As Global.System.Data.DataSet

    322. 

  322.         Dim cln As SchoolDataSet = CType(MyBase.Clone,SchoolDataSet)

    323. 

  323.         cln.InitVars

    324. 

  324.         cln.SchemaSerializationMode = Me.SchemaSerializationMode

    325. 

  325.         Return cln

    326. 

  326.     End Function

    327. 

  327.     

    328. 

  328.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    329. 

  329.     Protected Overrides Function ShouldSerializeTables() As Boolean

    330. 

  330.         Return false

    331. 

  331.     End Function

    332. 

  332.     

    333. 

  333.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    334. 

  334.     Protected Overrides Function ShouldSerializeRelations() As Boolean

    335. 

  335.         Return false

    336. 

  336.     End Function

    337. 

  337.     

    338. 

  338.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    339. 

  339.     Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader)

    340. 

  340.         If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then

    341. 

  341.             Me.Reset

    342. 

  342.             Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet

    343. 

  343.             ds.ReadXml(reader)

    344. 

  344.             If (Not (ds.Tables("Course")) Is Nothing) Then

    345. 

  345.                 MyBase.Tables.Add(New CourseDataTable(ds.Tables("Course")))

    346. 

  346.             End If

    347. 

  347.             If (Not (ds.Tables("CourseGrade")) Is Nothing) Then

    348. 

  348.                 MyBase.Tables.Add(New CourseGradeDataTable(ds.Tables("CourseGrade")))

    349. 

  349.             End If

    350. 

  350.             If (Not (ds.Tables("CourseInstructor")) Is Nothing) Then

    351. 

  351.                 MyBase.Tables.Add(New CourseInstructorDataTable(ds.Tables("CourseInstructor")))

    352. 

  352.             End If

    353. 

  353.             If (Not (ds.Tables("Department")) Is Nothing) Then

    354. 

  354.                 MyBase.Tables.Add(New DepartmentDataTable(ds.Tables("Department")))

    355. 

  355.             End If

    356. 

  356.             If (Not (ds.Tables("OfficeAssignment")) Is Nothing) Then

    357. 

  357.                 MyBase.Tables.Add(New OfficeAssignmentDataTable(ds.Tables("OfficeAssignment")))

    358. 

  358.             End If

    359. 

  359.             If (Not (ds.Tables("OnlineCourse")) Is Nothing) Then

    360. 

  360.                 MyBase.Tables.Add(New OnlineCourseDataTable(ds.Tables("OnlineCourse")))

    361. 

  361.             End If

    362. 

  362.             If (Not (ds.Tables("OnsiteCourse")) Is Nothing) Then

    363. 

  363.                 MyBase.Tables.Add(New OnsiteCourseDataTable(ds.Tables("OnsiteCourse")))

    364. 

  364.             End If

    365. 

  365.             If (Not (ds.Tables("Person")) Is Nothing) Then

    366. 

  366.                 MyBase.Tables.Add(New PersonDataTable(ds.Tables("Person")))

    367. 

  367.             End If

    368. 

  368.             If (Not (ds.Tables("GetStudentGrades")) Is Nothing) Then

    369. 

  369.                 MyBase.Tables.Add(New GetStudentGradesDataTable(ds.Tables("GetStudentGrades")))

    370. 

  370.             End If

    371. 

  371.             If (Not (ds.Tables("InsertOfficeAssignment")) Is Nothing) Then

    372. 

  372.                 MyBase.Tables.Add(New InsertOfficeAssignmentDataTable(ds.Tables("InsertOfficeAssignment")))

    373. 

  373.             End If

    374. 

  374.             If (Not (ds.Tables("InsertPerson")) Is Nothing) Then

    375. 

  375.                 MyBase.Tables.Add(New InsertPersonDataTable(ds.Tables("InsertPerson")))

    376. 

  376.             End If

    377. 

  377.             If (Not (ds.Tables("UpdateOfficeAssignment")) Is Nothing) Then

    378. 

  378.                 MyBase.Tables.Add(New UpdateOfficeAssignmentDataTable(ds.Tables("UpdateOfficeAssignment")))

    379. 

  379.             End If

    380. 

  380.             If (Not (ds.Tables("CourseList")) Is Nothing) Then

    381. 

  381.                 MyBase.Tables.Add(New CourseListDataTable(ds.Tables("CourseList")))

    382. 

  382.             End If

    383. 

  383.             If (Not (ds.Tables("StudentList")) Is Nothing) Then

    384. 

  384.                 MyBase.Tables.Add(New StudentListDataTable(ds.Tables("StudentList")))

    385. 

  385.             End If

    386. 

  386.             Me.DataSetName = ds.DataSetName

    387. 

  387.             Me.Prefix = ds.Prefix

    388. 

  388.             Me.Namespace = ds.Namespace

    389. 

  389.             Me.Locale = ds.Locale

    390. 

  390.             Me.CaseSensitive = ds.CaseSensitive

    391. 

  391.             Me.EnforceConstraints = ds.EnforceConstraints

    392. 

  392.             Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)

    393. 

  393.             Me.InitVars

    394. 

  394.         Else

    395. 

  395.             Me.ReadXml(reader)

    396. 

  396.             Me.InitVars

    397. 

  397.         End If

    398. 

  398.     End Sub

    399. 

  399.     

    400. 

  400.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    401. 

  401.     Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema

    402. 

  402.         Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream

    403. 

  403.         Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing))

    404. 

  404.         stream.Position = 0

    405. 

  405.         Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing)

    406. 

  406.     End Function

    407. 

  407.     

    408. 

  408.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    409. 

  409.     Friend Overloads Sub InitVars()

    410. 

  410.         Me.InitVars(true)

    411. 

  411.     End Sub

    412. 

  412.     

    413. 

  413.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    414. 

  414.     Friend Overloads Sub InitVars(ByVal initTable As Boolean)

    415. 

  415.         Me.tableCourse = CType(MyBase.Tables("Course"),CourseDataTable)

    416. 

  416.         If (initTable = true) Then

    417. 

  417.             If (Not (Me.tableCourse) Is Nothing) Then

    418. 

  418.                 Me.tableCourse.InitVars

    419. 

  419.             End If

    420. 

  420.         End If

    421. 

  421.         Me.tableCourseGrade = CType(MyBase.Tables("CourseGrade"),CourseGradeDataTable)

    422. 

  422.         If (initTable = true) Then

    423. 

  423.             If (Not (Me.tableCourseGrade) Is Nothing) Then

    424. 

  424.                 Me.tableCourseGrade.InitVars

    425. 

  425.             End If

    426. 

  426.         End If

    427. 

  427.         Me.tableCourseInstructor = CType(MyBase.Tables("CourseInstructor"),CourseInstructorDataTable)

    428. 

  428.         If (initTable = true) Then

    429. 

  429.             If (Not (Me.tableCourseInstructor) Is Nothing) Then

    430. 

  430.                 Me.tableCourseInstructor.InitVars

    431. 

  431.             End If

    432. 

  432.         End If

    433. 

  433.         Me.tableDepartment = CType(MyBase.Tables("Department"),DepartmentDataTable)

    434. 

  434.         If (initTable = true) Then

    435. 

  435.             If (Not (Me.tableDepartment) Is Nothing) Then

    436. 

  436.                 Me.tableDepartment.InitVars

    437. 

  437.             End If

    438. 

  438.         End If

    439. 

  439.         Me.tableOfficeAssignment = CType(MyBase.Tables("OfficeAssignment"),OfficeAssignmentDataTable)

    440. 

  440.         If (initTable = true) Then

    441. 

  441.             If (Not (Me.tableOfficeAssignment) Is Nothing) Then

    442. 

  442.                 Me.tableOfficeAssignment.InitVars

    443. 

  443.             End If

    444. 

  444.         End If

    445. 

  445.         Me.tableOnlineCourse = CType(MyBase.Tables("OnlineCourse"),OnlineCourseDataTable)

    446. 

  446.         If (initTable = true) Then

    447. 

  447.             If (Not (Me.tableOnlineCourse) Is Nothing) Then

    448. 

  448.                 Me.tableOnlineCourse.InitVars

    449. 

  449.             End If

    450. 

  450.         End If

    451. 

  451.         Me.tableOnsiteCourse = CType(MyBase.Tables("OnsiteCourse"),OnsiteCourseDataTable)

    452. 

  452.         If (initTable = true) Then

    453. 

  453.             If (Not (Me.tableOnsiteCourse) Is Nothing) Then

    454. 

  454.                 Me.tableOnsiteCourse.InitVars

    455. 

  455.             End If

    456. 

  456.         End If

    457. 

  457.         Me.tablePerson = CType(MyBase.Tables("Person"),PersonDataTable)

    458. 

  458.         If (initTable = true) Then

    459. 

  459.             If (Not (Me.tablePerson) Is Nothing) Then

    460. 

  460.                 Me.tablePerson.InitVars

    461. 

  461.             End If

    462. 

  462.         End If

    463. 

  463.         Me.tableGetStudentGrades = CType(MyBase.Tables("GetStudentGrades"),GetStudentGradesDataTable)

    464. 

  464.         If (initTable = true) Then

    465. 

  465.             If (Not (Me.tableGetStudentGrades) Is Nothing) Then

    466. 

  466.                 Me.tableGetStudentGrades.InitVars

    467. 

  467.             End If

    468. 

  468.         End If

    469. 

  469.         Me.tableInsertOfficeAssignment = CType(MyBase.Tables("InsertOfficeAssignment"),InsertOfficeAssignmentDataTable)

    470. 

  470.         If (initTable = true) Then

    471. 

  471.             If (Not (Me.tableInsertOfficeAssignment) Is Nothing) Then

    472. 

  472.                 Me.tableInsertOfficeAssignment.InitVars

    473. 

  473.             End If

    474. 

  474.         End If

    475. 

  475.         Me.tableInsertPerson = CType(MyBase.Tables("InsertPerson"),InsertPersonDataTable)

    476. 

  476.         If (initTable = true) Then

    477. 

  477.             If (Not (Me.tableInsertPerson) Is Nothing) Then

    478. 

  478.                 Me.tableInsertPerson.InitVars

    479. 

  479.             End If

    480. 

  480.         End If

    481. 

  481.         Me.tableUpdateOfficeAssignment = CType(MyBase.Tables("UpdateOfficeAssignment"),UpdateOfficeAssignmentDataTable)

    482. 

  482.         If (initTable = true) Then

    483. 

  483.             If (Not (Me.tableUpdateOfficeAssignment) Is Nothing) Then

    484. 

  484.                 Me.tableUpdateOfficeAssignment.InitVars

    485. 

  485.             End If

    486. 

  486.         End If

    487. 

  487.         Me.tableCourseList = CType(MyBase.Tables("CourseList"),CourseListDataTable)

    488. 

  488.         If (initTable = true) Then

    489. 

  489.             If (Not (Me.tableCourseList) Is Nothing) Then

    490. 

  490.                 Me.tableCourseList.InitVars

    491. 

  491.             End If

    492. 

  492.         End If

    493. 

  493.         Me.tableStudentList = CType(MyBase.Tables("StudentList"),StudentListDataTable)

    494. 

  494.         If (initTable = true) Then

    495. 

  495.             If (Not (Me.tableStudentList) Is Nothing) Then

    496. 

  496.                 Me.tableStudentList.InitVars

    497. 

  497.             End If

    498. 

  498.         End If

    499. 

  499.         Me.relationFK_Course_Department = Me.Relations("FK_Course_Department")

    500. 

  500.         Me.relationFK_CourseGrade_Course = Me.Relations("FK_CourseGrade_Course")

    501. 

  501.         Me.relationFK_CourseGrade_Student = Me.Relations("FK_CourseGrade_Student")

    502. 

  502.         Me.relationFK_CourseInstructor_Course = Me.Relations("FK_CourseInstructor_Course")

    503. 

  503.         Me.relationFK_CourseInstructor_Person = Me.Relations("FK_CourseInstructor_Person")

    504. 

  504.         Me.relationFK_OfficeAssignment_Person = Me.Relations("FK_OfficeAssignment_Person")

    505. 

  505.         Me.relationFK_OnlineCourse_Course = Me.Relations("FK_OnlineCourse_Course")

    506. 

  506.         Me.relationFK_OnsiteCourse_Course = Me.Relations("FK_OnsiteCourse_Course")

    507. 

  507.     End Sub

    508. 

  508.     

    509. 

  509.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    510. 

  510.     Private Sub InitClass()

    511. 

  511.         Me.DataSetName = "SchoolDataSet"

    512. 

  512.         Me.Prefix = ""

    513. 

  513.         Me.Namespace = "http://tempuri.org/SchoolDataSet.xsd"

    514. 

  514.         Me.EnforceConstraints = true

    515. 

  515.         Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema

    516. 

  516.         Me.tableCourse = New CourseDataTable

    517. 

  517.         MyBase.Tables.Add(Me.tableCourse)

    518. 

  518.         Me.tableCourseGrade = New CourseGradeDataTable

    519. 

  519.         MyBase.Tables.Add(Me.tableCourseGrade)

    520. 

  520.         Me.tableCourseInstructor = New CourseInstructorDataTable

    521. 

  521.         MyBase.Tables.Add(Me.tableCourseInstructor)

    522. 

  522.         Me.tableDepartment = New DepartmentDataTable

    523. 

  523.         MyBase.Tables.Add(Me.tableDepartment)

    524. 

  524.         Me.tableOfficeAssignment = New OfficeAssignmentDataTable

    525. 

  525.         MyBase.Tables.Add(Me.tableOfficeAssignment)

    526. 

  526.         Me.tableOnlineCourse = New OnlineCourseDataTable

    527. 

  527.         MyBase.Tables.Add(Me.tableOnlineCourse)

    528. 

  528.         Me.tableOnsiteCourse = New OnsiteCourseDataTable

    529. 

  529.         MyBase.Tables.Add(Me.tableOnsiteCourse)

    530. 

  530.         Me.tablePerson = New PersonDataTable

    531. 

  531.         MyBase.Tables.Add(Me.tablePerson)

    532. 

  532.         Me.tableGetStudentGrades = New GetStudentGradesDataTable

    533. 

  533.         MyBase.Tables.Add(Me.tableGetStudentGrades)

    534. 

  534.         Me.tableInsertOfficeAssignment = New InsertOfficeAssignmentDataTable

    535. 

  535.         MyBase.Tables.Add(Me.tableInsertOfficeAssignment)

    536. 

  536.         Me.tableInsertPerson = New InsertPersonDataTable

    537. 

  537.         MyBase.Tables.Add(Me.tableInsertPerson)

    538. 

  538.         Me.tableUpdateOfficeAssignment = New UpdateOfficeAssignmentDataTable

    539. 

  539.         MyBase.Tables.Add(Me.tableUpdateOfficeAssignment)

    540. 

  540.         Me.tableCourseList = New CourseListDataTable

    541. 

  541.         MyBase.Tables.Add(Me.tableCourseList)

    542. 

  542.         Me.tableStudentList = New StudentListDataTable

    543. 

  543.         MyBase.Tables.Add(Me.tableStudentList)

    544. 

  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. 

  545.         Me.Relations.Add(Me.relationFK_Course_Department)

    546. 

  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. 

  547.         Me.Relations.Add(Me.relationFK_CourseGrade_Course)

    548. 

  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. 

  549.         Me.Relations.Add(Me.relationFK_CourseGrade_Student)

    550. 

  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. 

  551.         Me.Relations.Add(Me.relationFK_CourseInstructor_Course)

    552. 

  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. 

  553.         Me.Relations.Add(Me.relationFK_CourseInstructor_Person)

    554. 

  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. 

  555.         Me.Relations.Add(Me.relationFK_OfficeAssignment_Person)

    556. 

  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. 

  557.         Me.Relations.Add(Me.relationFK_OnlineCourse_Course)

    558. 

  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. 

  559.         Me.Relations.Add(Me.relationFK_OnsiteCourse_Course)

    560. 

  560.     End Sub

    561. 

  561.     

    562. 

  562.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    563. 

  563.     Private Function ShouldSerializeCourse() As Boolean

    564. 

  564.         Return false

    565. 

  565.     End Function

    566. 

  566.     

    567. 

  567.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    568. 

  568.     Private Function ShouldSerializeCourseGrade() As Boolean

    569. 

  569.         Return false

    570. 

  570.     End Function

    571. 

  571.     

    572. 

  572.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    573. 

  573.     Private Function ShouldSerializeCourseInstructor() As Boolean

    574. 

  574.         Return false

    575. 

  575.     End Function

    576. 

  576.     

    577. 

  577.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    578. 

  578.     Private Function ShouldSerializeDepartment() As Boolean

    579. 

  579.         Return false

    580. 

  580.     End Function

    581. 

  581.     

    582. 

  582.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    583. 

  583.     Private Function ShouldSerializeOfficeAssignment() As Boolean

    584. 

  584.         Return false

    585. 

  585.     End Function

    586. 

  586.     

    587. 

  587.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    588. 

  588.     Private Function ShouldSerializeOnlineCourse() As Boolean

    589. 

  589.         Return false

    590. 

  590.     End Function

    591. 

  591.     

    592. 

  592.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    593. 

  593.     Private Function ShouldSerializeOnsiteCourse() As Boolean

    594. 

  594.         Return false

    595. 

  595.     End Function

    596. 

  596.     

    597. 

  597.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    598. 

  598.     Private Function ShouldSerializePerson() As Boolean

    599. 

  599.         Return false

    600. 

  600.     End Function

    601. 

  601.     

    602. 

  602.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    603. 

  603.     Private Function ShouldSerializeGetStudentGrades() As Boolean

    604. 

  604.         Return false

    605. 

  605.     End Function

    606. 

  606.     

    607. 

  607.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    608. 

  608.     Private Function ShouldSerializeInsertOfficeAssignment() As Boolean

    609. 

  609.         Return false

    610. 

  610.     End Function

    611. 

  611.     

    612. 

  612.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    613. 

  613.     Private Function ShouldSerializeInsertPerson() As Boolean

    614. 

  614.         Return false

    615. 

  615.     End Function

    616. 

  616.     

    617. 

  617.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    618. 

  618.     Private Function ShouldSerializeUpdateOfficeAssignment() As Boolean

    619. 

  619.         Return false

    620. 

  620.     End Function

    621. 

  621.     

    622. 

  622.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    623. 

  623.     Private Function ShouldSerializeCourseList() As Boolean

    624. 

  624.         Return false

    625. 

  625.     End Function

    626. 

  626.     

    627. 

  627.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    628. 

  628.     Private Function ShouldSerializeStudentList() As Boolean

    629. 

  629.         Return false

    630. 

  630.     End Function

    631. 

  631.     

    632. 

  632.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    633. 

  633.     Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)

    634. 

  634.         If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then

    635. 

  635.             Me.InitVars

    636. 

  636.         End If

    637. 

  637.     End Sub

    638. 

  638.     

    639. 

  639.     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    640. 

  640.     Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType

    641. 

  641.         Dim ds As SchoolDataSet = New SchoolDataSet

    642. 

  642.         Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType

    643. 

  643.         Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence

    644. 

  644.         Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny

    645. 

  645.         any.Namespace = ds.Namespace

    646. 

  646.         sequence.Items.Add(any)

    647. 

  647.         type.Particle = sequence

    648. 

  648.         Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable

    649. 

  649.         If xs.Contains(dsSchema.TargetNamespace) Then

    650. 

  650.             Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream

    651. 

  651.             Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream

    652. 

  652.             Try 

    653. 

  653.                 Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing

    654. 

  654.                 dsSchema.Write(s1)

    655. 

  655.                 Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator

    656. 

  656.                 Do While schemas.MoveNext

    657. 

  657.                     schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)

    658. 

  658.                     s2.SetLength(0)

    659. 

  659.                     schema.Write(s2)

    660. 

  660.                     If (s1.Length = s2.Length) Then

    661. 

  661.                         s1.Position = 0

    662. 

  662.                         s2.Position = 0

    663. 

  663.                         

    664. 

  664.                         Do While ((s1.Position <> s1.Length)  _

    665. 

  665.                                     AndAlso (s1.ReadByte = s2.ReadByte))

    666. 

  666.                             

    667. 

  667.                             

    668. 

  668.                         Loop

    669. 

  669.                         If (s1.Position = s1.Length) Then

    670. 

  670.                             Return type

    671. 

  671.                         End If

    672. 

  672.                     End If

    673. 

  673.                     

    674. 

  674.                 Loop

    675. 

  675.             Finally

    676. 

  676.                 If (Not (s1) Is Nothing) Then

    677. 

  677.                     s1.Close

    678. 

  678.                 End If

    679. 

  679.                 If (Not (s2) Is Nothing) Then

    680. 

  680.                     s2.Close

    681. 

  681.                 End If

    682. 

  682.             End Try

    683. 

  683.         End If

    684. 

  684.         xs.Add(dsSchema)

    685. 

  685.         Return type

    686. 

  686.     End Function

    687. 

  687.     

    688. 

  688.     Public Delegate Sub CourseRowChangeEventHandler(ByVal sender As Object, ByVal e As CourseRowChangeEvent)

    689. 

  689.     

    690. 

  690.     Public Delegate Sub CourseGradeRowChangeEventHandler(ByVal sender As Object, ByVal e As CourseGradeRowChangeEvent)

    691. 

  691.     

    692. 

  692.     Public Delegate Sub CourseInstructorRowChangeEventHandler(ByVal sender As Object, ByVal e As CourseInstructorRowChangeEvent)

    693. 

  693.     

    694. 

  694.     Public Delegate Sub DepartmentRowChangeEventHandler(ByVal sender As Object, ByVal e As DepartmentRowChangeEvent)

    695. 

  695.     

    696. 

  696.     Public Delegate Sub OfficeAssignmentRowChangeEventHandler(ByVal sender As Object, ByVal e As OfficeAssignmentRowChangeEvent)

    697. 

  697.     

    698. 

  698.     Public Delegate Sub OnlineCourseRowChangeEventHandler(ByVal sender As Object, ByVal e As OnlineCourseRowChangeEvent)

    699. 

  699.     

    700. 

  700.     Public Delegate Sub OnsiteCourseRowChangeEventHandler(ByVal sender As Object, ByVal e As OnsiteCourseRowChangeEvent)

    701. 

  701.     

    702. 

  702.     Public Delegate Sub PersonRowChangeEventHandler(ByVal sender As Object, ByVal e As PersonRowChangeEvent)

    703. 

  703.     

    704. 

  704.     Public Delegate Sub GetStudentGradesRowChangeEventHandler(ByVal sender As Object, ByVal e As GetStudentGradesRowChangeEvent)

    705. 

  705.     

    706. 

  706.     Public Delegate Sub InsertOfficeAssignmentRowChangeEventHandler(ByVal sender As Object, ByVal e As InsertOfficeAssignmentRowChangeEvent)

    707. 

  707.     

    708. 

  708.     Public Delegate Sub InsertPersonRowChangeEventHandler(ByVal sender As Object, ByVal e As InsertPersonRowChangeEvent)

    709. 

  709.     

    710. 

  710.     Public Delegate Sub UpdateOfficeAssignmentRowChangeEventHandler(ByVal sender As Object, ByVal e As UpdateOfficeAssignmentRowChangeEvent)

    711. 

  711.     

    712. 

  712.     Public Delegate Sub CourseListRowChangeEventHandler(ByVal sender As Object, ByVal e As CourseListRowChangeEvent)

    713. 

  713.     

    714. 

  714.     Public Delegate Sub StudentListRowChangeEventHandler(ByVal sender As Object, ByVal e As StudentListRowChangeEvent)

    715. 

  715.     

    716. 

  716.     '''<summary>

    717. 

  717.     '''Represents the strongly named DataTable class.

    718. 

  718.     '''</summary>

    719. 

  719.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"),  _

    720. 

  720.      Global.System.Serializable(),  _

    721. 

  721.      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _

    722. 

  722.     Partial Public Class CourseDataTable

    723. 

  723.         Inherits Global.System.Data.TypedTableBase(Of CourseRow)

    724. 

  724.         

    725. 

  725.         Private columnCourseID As Global.System.Data.DataColumn

    726. 

  726.         

    727. 

  727.         Private columnTitle As Global.System.Data.DataColumn

    728. 

  728.         

    729. 

  729.         Private columnCredits As Global.System.Data.DataColumn

    730. 

  730.         

    731. 

  731.         Private columnDepartmentID As Global.System.Data.DataColumn

    732. 

  732.         

    733. 

  733.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    734. 

  734.         Public Sub New()

    735. 

  735.             MyBase.New

    736. 

  736.             Me.TableName = "Course"

    737. 

  737.             Me.BeginInit

    738. 

  738.             Me.InitClass

    739. 

  739.             Me.EndInit

    740. 

  740.         End Sub

    741. 

  741.         

    742. 

  742.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    743. 

  743.         Friend Sub New(ByVal table As Global.System.Data.DataTable)

    744. 

  744.             MyBase.New

    745. 

  745.             Me.TableName = table.TableName

    746. 

  746.             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then

    747. 

  747.                 Me.CaseSensitive = table.CaseSensitive

    748. 

  748.             End If

    749. 

  749.             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then

    750. 

  750.                 Me.Locale = table.Locale

    751. 

  751.             End If

    752. 

  752.             If (table.Namespace <> table.DataSet.Namespace) Then

    753. 

  753.                 Me.Namespace = table.Namespace

    754. 

  754.             End If

    755. 

  755.             Me.Prefix = table.Prefix

    756. 

  756.             Me.MinimumCapacity = table.MinimumCapacity

    757. 

  757.         End Sub

    758. 

  758.         

    759. 

  759.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    760. 

  760.         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)

    761. 

  761.             MyBase.New(info, context)

    762. 

  762.             Me.InitVars

    763. 

  763.         End Sub

    764. 

  764.         

    765. 

  765.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    766. 

  766.         Public ReadOnly Property CourseIDColumn() As Global.System.Data.DataColumn

    767. 

  767.             Get

    768. 

  768.                 Return Me.columnCourseID

    769. 

  769.             End Get

    770. 

  770.         End Property

    771. 

  771.         

    772. 

  772.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    773. 

  773.         Public ReadOnly Property TitleColumn() As Global.System.Data.DataColumn

    774. 

  774.             Get

    775. 

  775.                 Return Me.columnTitle

    776. 

  776.             End Get

    777. 

  777.         End Property

    778. 

  778.         

    779. 

  779.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    780. 

  780.         Public ReadOnly Property CreditsColumn() As Global.System.Data.DataColumn

    781. 

  781.             Get

    782. 

  782.                 Return Me.columnCredits

    783. 

  783.             End Get

    784. 

  784.         End Property

    785. 

  785.         

    786. 

  786.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    787. 

  787.         Public ReadOnly Property DepartmentIDColumn() As Global.System.Data.DataColumn

    788. 

  788.             Get

    789. 

  789.                 Return Me.columnDepartmentID

    790. 

  790.             End Get

    791. 

  791.         End Property

    792. 

  792.         

    793. 

  793.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    794. 

  794.          Global.System.ComponentModel.Browsable(false)>  _

    795. 

  795.         Public ReadOnly Property Count() As Integer

    796. 

  796.             Get

    797. 

  797.                 Return Me.Rows.Count

    798. 

  798.             End Get

    799. 

  799.         End Property

    800. 

  800.         

    801. 

  801.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    802. 

  802.         Public Default ReadOnly Property Item(ByVal index As Integer) As CourseRow

    803. 

  803.             Get

    804. 

  804.                 Return CType(Me.Rows(index),CourseRow)

    805. 

  805.             End Get

    806. 

  806.         End Property

    807. 

  807.         

    808. 

  808.         Public Event CourseRowChanging As CourseRowChangeEventHandler

    809. 

  809.         

    810. 

  810.         Public Event CourseRowChanged As CourseRowChangeEventHandler

    811. 

  811.         

    812. 

  812.         Public Event CourseRowDeleting As CourseRowChangeEventHandler

    813. 

  813.         

    814. 

  814.         Public Event CourseRowDeleted As CourseRowChangeEventHandler

    815. 

  815.         

    816. 

  816.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    817. 

  817.         Public Overloads Sub AddCourseRow(ByVal row As CourseRow)

    818. 

  818.             Me.Rows.Add(row)

    819. 

  819.         End Sub

    820. 

  820.         

    821. 

  821.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    822. 

  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. 

  823.             Dim rowCourseRow As CourseRow = CType(Me.NewRow,CourseRow)

    824. 

  824.             Dim columnValuesArray() As Object = New Object() {CourseID, Title, Credits, Nothing}

    825. 

  825.             If (Not (parentDepartmentRowByFK_Course_Department) Is Nothing) Then

    826. 

  826.                 columnValuesArray(3) = parentDepartmentRowByFK_Course_Department(0)

    827. 

  827.             End If

    828. 

  828.             rowCourseRow.ItemArray = columnValuesArray

    829. 

  829.             Me.Rows.Add(rowCourseRow)

    830. 

  830.             Return rowCourseRow

    831. 

  831.         End Function

    832. 

  832.         

    833. 

  833.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    834. 

  834.         Public Function FindByCourseID(ByVal CourseID As Integer) As CourseRow

    835. 

  835.             Return CType(Me.Rows.Find(New Object() {CourseID}),CourseRow)

    836. 

  836.         End Function

    837. 

  837.         

    838. 

  838.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    839. 

  839.         Public Overrides Function Clone() As Global.System.Data.DataTable

    840. 

  840.             Dim cln As CourseDataTable = CType(MyBase.Clone,CourseDataTable)

    841. 

  841.             cln.InitVars

    842. 

  842.             Return cln

    843. 

  843.         End Function

    844. 

  844.         

    845. 

  845.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    846. 

  846.         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable

    847. 

  847.             Return New CourseDataTable

    848. 

  848.         End Function

    849. 

  849.         

    850. 

  850.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    851. 

  851.         Friend Sub InitVars()

    852. 

  852.             Me.columnCourseID = MyBase.Columns("CourseID")

    853. 

  853.             Me.columnTitle = MyBase.Columns("Title")

    854. 

  854.             Me.columnCredits = MyBase.Columns("Credits")

    855. 

  855.             Me.columnDepartmentID = MyBase.Columns("DepartmentID")

    856. 

  856.         End Sub

    857. 

  857.         

    858. 

  858.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    859. 

  859.         Private Sub InitClass()

    860. 

  860.             Me.columnCourseID = New Global.System.Data.DataColumn("CourseID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)

    861. 

  861.             MyBase.Columns.Add(Me.columnCourseID)

    862. 

  862.             Me.columnTitle = New Global.System.Data.DataColumn("Title", GetType(String), Nothing, Global.System.Data.MappingType.Element)

    863. 

  863.             MyBase.Columns.Add(Me.columnTitle)

    864. 

  864.             Me.columnCredits = New Global.System.Data.DataColumn("Credits", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)

    865. 

  865.             MyBase.Columns.Add(Me.columnCredits)

    866. 

  866.             Me.columnDepartmentID = New Global.System.Data.DataColumn("DepartmentID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)

    867. 

  867.             MyBase.Columns.Add(Me.columnDepartmentID)

    868. 

  868.             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnCourseID}, true))

    869. 

  869.             Me.columnCourseID.AllowDBNull = false

    870. 

  870.             Me.columnCourseID.Unique = true

    871. 

  871.             Me.columnTitle.AllowDBNull = false

    872. 

  872.             Me.columnTitle.MaxLength = 100

    873. 

  873.             Me.columnCredits.AllowDBNull = false

    874. 

  874.             Me.columnDepartmentID.AllowDBNull = false

    875. 

  875.         End Sub

    876. 

  876.         

    877. 

  877.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    878. 

  878.         Public Function NewCourseRow() As CourseRow

    879. 

  879.             Return CType(Me.NewRow,CourseRow)

    880. 

  880.         End Function

    881. 

  881.         

    882. 

  882.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    883. 

  883.         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow

    884. 

  884.             Return New CourseRow(builder)

    885. 

  885.         End Function

    886. 

  886.         

    887. 

  887.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    888. 

  888.         Protected Overrides Function GetRowType() As Global.System.Type

    889. 

  889.             Return GetType(CourseRow)

    890. 

  890.         End Function

    891. 

  891.         

    892. 

  892.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    893. 

  893.         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)

    894. 

  894.             MyBase.OnRowChanged(e)

    895. 

  895.             If (Not (Me.CourseRowChangedEvent) Is Nothing) Then

    896. 

  896.                 RaiseEvent CourseRowChanged(Me, New CourseRowChangeEvent(CType(e.Row,CourseRow), e.Action))

    897. 

  897.             End If

    898. 

  898.         End Sub

    899. 

  899.         

    900. 

  900.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    901. 

  901.         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)

    902. 

  902.             MyBase.OnRowChanging(e)

    903. 

  903.             If (Not (Me.CourseRowChangingEvent) Is Nothing) Then

    904. 

  904.                 RaiseEvent CourseRowChanging(Me, New CourseRowChangeEvent(CType(e.Row,CourseRow), e.Action))

    905. 

  905.             End If

    906. 

  906.         End Sub

    907. 

  907.         

    908. 

  908.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    909. 

  909.         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)

    910. 

  910.             MyBase.OnRowDeleted(e)

    911. 

  911.             If (Not (Me.CourseRowDeletedEvent) Is Nothing) Then

    912. 

  912.                 RaiseEvent CourseRowDeleted(Me, New CourseRowChangeEvent(CType(e.Row,CourseRow), e.Action))

    913. 

  913.             End If

    914. 

  914.         End Sub

    915. 

  915.         

    916. 

  916.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    917. 

  917.         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)

    918. 

  918.             MyBase.OnRowDeleting(e)

    919. 

  919.             If (Not (Me.CourseRowDeletingEvent) Is Nothing) Then

    920. 

  920.                 RaiseEvent CourseRowDeleting(Me, New CourseRowChangeEvent(CType(e.Row,CourseRow), e.Action))

    921. 

  921.             End If

    922. 

  922.         End Sub

    923. 

  923.         

    924. 

  924.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    925. 

  925.         Public Sub RemoveCourseRow(ByVal row As CourseRow)

    926. 

  926.             Me.Rows.Remove(row)

    927. 

  927.         End Sub

    928. 

  928.         

    929. 

  929.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    930. 

  930.         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType

    931. 

  931.             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType

    932. 

  932.             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence

    933. 

  933.             Dim ds As SchoolDataSet = New SchoolDataSet

    934. 

  934.             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny

    935. 

  935.             any1.Namespace = "http://www.w3.org/2001/XMLSchema"

    936. 

  936.             any1.MinOccurs = New Decimal(0)

    937. 

  937.             any1.MaxOccurs = Decimal.MaxValue

    938. 

  938.             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax

    939. 

  939.             sequence.Items.Add(any1)

    940. 

  940.             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny

    941. 

  941.             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"

    942. 

  942.             any2.MinOccurs = New Decimal(1)

    943. 

  943.             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax

    944. 

  944.             sequence.Items.Add(any2)

    945. 

  945.             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute

    946. 

  946.             attribute1.Name = "namespace"

    947. 

  947.             attribute1.FixedValue = ds.Namespace

    948. 

  948.             type.Attributes.Add(attribute1)

    949. 

  949.             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute

    950. 

  950.             attribute2.Name = "tableTypeName"

    951. 

  951.             attribute2.FixedValue = "CourseDataTable"

    952. 

  952.             type.Attributes.Add(attribute2)

    953. 

  953.             type.Particle = sequence

    954. 

  954.             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable

    955. 

  955.             If xs.Contains(dsSchema.TargetNamespace) Then

    956. 

  956.                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream

    957. 

  957.                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream

    958. 

  958.                 Try 

    959. 

  959.                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing

    960. 

  960.                     dsSchema.Write(s1)

    961. 

  961.                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator

    962. 

  962.                     Do While schemas.MoveNext

    963. 

  963.                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)

    964. 

  964.                         s2.SetLength(0)

    965. 

  965.                         schema.Write(s2)

    966. 

  966.                         If (s1.Length = s2.Length) Then

    967. 

  967.                             s1.Position = 0

    968. 

  968.                             s2.Position = 0

    969. 

  969.                             

    970. 

  970.                             Do While ((s1.Position <> s1.Length)  _

    971. 

  971.                                         AndAlso (s1.ReadByte = s2.ReadByte))

    972. 

  972.                                 

    973. 

  973.                                 

    974. 

  974.                             Loop

    975. 

  975.                             If (s1.Position = s1.Length) Then

    976. 

  976.                                 Return type

    977. 

  977.                             End If

    978. 

  978.                         End If

    979. 

  979.                         

    980. 

  980.                     Loop

    981. 

  981.                 Finally

    982. 

  982.                     If (Not (s1) Is Nothing) Then

    983. 

  983.               …
    984.

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