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

# · Visual Basic · 10581 lines · 9213 code · 1150 blank · 218 comment · 13 complexity · 93897e8b697efd5e60ab1eed0f5a6537 MD5 · raw 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.                         s1.Close

    984. 

  984.                     End If

    985. 

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

    986. 

  986.                         s2.Close

    987. 

  987.                     End If

    988. 

  988.                 End Try

    989. 

  989.             End If

    990. 

  990.             xs.Add(dsSchema)

    991. 

  991.             Return type

    992. 

  992.         End Function

    993. 

  993.     End Class

    994. 

  994.     

    995. 

  995.     '''<summary>

    996. 

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

    997. 

  997.     '''</summary>

    998. 

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

    999. 

  999.      Global.System.Serializable(),  _

    1000. 

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

    1001. 

  1001.     Partial Public Class CourseGradeDataTable

    1002. 

  1002.         Inherits Global.System.Data.TypedTableBase(Of CourseGradeRow)

    1003. 

  1003.         

    1004. 

  1004.         Private columnEnrollmentID As Global.System.Data.DataColumn

    1005. 

  1005.         

    1006. 

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

    1007. 

  1007.         

    1008. 

  1008.         Private columnStudentID As Global.System.Data.DataColumn

    1009. 

  1009.         

    1010. 

  1010.         Private columnGrade As Global.System.Data.DataColumn

    1011. 

  1011.         

    1012. 

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

    1013. 

  1013.         Public Sub New()

    1014. 

  1014.             MyBase.New

    1015. 

  1015.             Me.TableName = "CourseGrade"

    1016. 

  1016.             Me.BeginInit

    1017. 

  1017.             Me.InitClass

    1018. 

  1018.             Me.EndInit

    1019. 

  1019.         End Sub

    1020. 

  1020.         

    1021. 

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

    1022. 

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

    1023. 

  1023.             MyBase.New

    1024. 

  1024.             Me.TableName = table.TableName

    1025. 

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

    1026. 

  1026.                 Me.CaseSensitive = table.CaseSensitive

    1027. 

  1027.             End If

    1028. 

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

    1029. 

  1029.                 Me.Locale = table.Locale

    1030. 

  1030.             End If

    1031. 

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

    1032. 

  1032.                 Me.Namespace = table.Namespace

    1033. 

  1033.             End If

    1034. 

  1034.             Me.Prefix = table.Prefix

    1035. 

  1035.             Me.MinimumCapacity = table.MinimumCapacity

    1036. 

  1036.         End Sub

    1037. 

  1037.         

    1038. 

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

    1039. 

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

    1040. 

  1040.             MyBase.New(info, context)

    1041. 

  1041.             Me.InitVars

    1042. 

  1042.         End Sub

    1043. 

  1043.         

    1044. 

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

    1045. 

  1045.         Public ReadOnly Property EnrollmentIDColumn() As Global.System.Data.DataColumn

    1046. 

  1046.             Get

    1047. 

  1047.                 Return Me.columnEnrollmentID

    1048. 

  1048.             End Get

    1049. 

  1049.         End Property

    1050. 

  1050.         

    1051. 

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

    1052. 

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

    1053. 

  1053.             Get

    1054. 

  1054.                 Return Me.columnCourseID

    1055. 

  1055.             End Get

    1056. 

  1056.         End Property

    1057. 

  1057.         

    1058. 

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

    1059. 

  1059.         Public ReadOnly Property StudentIDColumn() As Global.System.Data.DataColumn

    1060. 

  1060.             Get

    1061. 

  1061.                 Return Me.columnStudentID

    1062. 

  1062.             End Get

    1063. 

  1063.         End Property

    1064. 

  1064.         

    1065. 

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

    1066. 

  1066.         Public ReadOnly Property GradeColumn() As Global.System.Data.DataColumn

    1067. 

  1067.             Get

    1068. 

  1068.                 Return Me.columnGrade

    1069. 

  1069.             End Get

    1070. 

  1070.         End Property

    1071. 

  1071.         

    1072. 

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

    1073. 

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

    1074. 

  1074.         Public ReadOnly Property Count() As Integer

    1075. 

  1075.             Get

    1076. 

  1076.                 Return Me.Rows.Count

    1077. 

  1077.             End Get

    1078. 

  1078.         End Property

    1079. 

  1079.         

    1080. 

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

    1081. 

  1081.         Public Default ReadOnly Property Item(ByVal index As Integer) As CourseGradeRow

    1082. 

  1082.             Get

    1083. 

  1083.                 Return CType(Me.Rows(index),CourseGradeRow)

    1084. 

  1084.             End Get

    1085. 

  1085.         End Property

    1086. 

  1086.         

    1087. 

  1087.         Public Event CourseGradeRowChanging As CourseGradeRowChangeEventHandler

    1088. 

  1088.         

    1089. 

  1089.         Public Event CourseGradeRowChanged As CourseGradeRowChangeEventHandler

    1090. 

  1090.         

    1091. 

  1091.         Public Event CourseGradeRowDeleting As CourseGradeRowChangeEventHandler

    1092. 

  1092.         

    1093. 

  1093.         Public Event CourseGradeRowDeleted As CourseGradeRowChangeEventHandler

    1094. 

  1094.         

    1095. 

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

    1096. 

  1096.         Public Overloads Sub AddCourseGradeRow(ByVal row As CourseGradeRow)

    1097. 

  1097.             Me.Rows.Add(row)

    1098. 

  1098.         End Sub

    1099. 

  1099.         

    1100. 

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

    1101. 

  1101.         Public Overloads Function AddCourseGradeRow(ByVal parentCourseRowByFK_CourseGrade_Course As CourseRow, ByVal parentPersonRowByFK_CourseGrade_Student As PersonRow, ByVal Grade As Decimal) As CourseGradeRow

    1102. 

  1102.             Dim rowCourseGradeRow As CourseGradeRow = CType(Me.NewRow,CourseGradeRow)

    1103. 

  1103.             Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, Grade}

    1104. 

  1104.             If (Not (parentCourseRowByFK_CourseGrade_Course) Is Nothing) Then

    1105. 

  1105.                 columnValuesArray(1) = parentCourseRowByFK_CourseGrade_Course(0)

    1106. 

  1106.             End If

    1107. 

  1107.             If (Not (parentPersonRowByFK_CourseGrade_Student) Is Nothing) Then

    1108. 

  1108.                 columnValuesArray(2) = parentPersonRowByFK_CourseGrade_Student(0)

    1109. 

  1109.             End If

    1110. 

  1110.             rowCourseGradeRow.ItemArray = columnValuesArray

    1111. 

  1111.             Me.Rows.Add(rowCourseGradeRow)

    1112. 

  1112.             Return rowCourseGradeRow

    1113. 

  1113.         End Function

    1114. 

  1114.         

    1115. 

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

    1116. 

  1116.         Public Function FindByEnrollmentID(ByVal EnrollmentID As Integer) As CourseGradeRow

    1117. 

  1117.             Return CType(Me.Rows.Find(New Object() {EnrollmentID}),CourseGradeRow)

    1118. 

  1118.         End Function

    1119. 

  1119.         

    1120. 

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

    1121. 

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

    1122. 

  1122.             Dim cln As CourseGradeDataTable = CType(MyBase.Clone,CourseGradeDataTable)

    1123. 

  1123.             cln.InitVars

    1124. 

  1124.             Return cln

    1125. 

  1125.         End Function

    1126. 

  1126.         

    1127. 

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

    1128. 

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

    1129. 

  1129.             Return New CourseGradeDataTable

    1130. 

  1130.         End Function

    1131. 

  1131.         

    1132. 

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

    1133. 

  1133.         Friend Sub InitVars()

    1134. 

  1134.             Me.columnEnrollmentID = MyBase.Columns("EnrollmentID")

    1135. 

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

    1136. 

  1136.             Me.columnStudentID = MyBase.Columns("StudentID")

    1137. 

  1137.             Me.columnGrade = MyBase.Columns("Grade")

    1138. 

  1138.         End Sub

    1139. 

  1139.         

    1140. 

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

    1141. 

  1141.         Private Sub InitClass()

    1142. 

  1142.             Me.columnEnrollmentID = New Global.System.Data.DataColumn("EnrollmentID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)

    1143. 

  1143.             MyBase.Columns.Add(Me.columnEnrollmentID)

    1144. 

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

    1145. 

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

    1146. 

  1146.             Me.columnStudentID = New Global.System.Data.DataColumn("StudentID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)

    1147. 

  1147.             MyBase.Columns.Add(Me.columnStudentID)

    1148. 

  1148.             Me.columnGrade = New Global.System.Data.DataColumn("Grade", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)

    1149. 

  1149.             MyBase.Columns.Add(Me.columnGrade)

    1150. 

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

    1151. 

  1151.             Me.columnEnrollmentID.AutoIncrement = true

    1152. 

  1152.             Me.columnEnrollmentID.AutoIncrementSeed = -1

    1153. 

  1153.             Me.columnEnrollmentID.AutoIncrementStep = -1

    1154. 

  1154.             Me.columnEnrollmentID.AllowDBNull = false

    1155. 

  1155.             Me.columnEnrollmentID.ReadOnly = true

    1156. 

  1156.             Me.columnEnrollmentID.Unique = true

    1157. 

  1157.             Me.columnCourseID.AllowDBNull = false

    1158. 

  1158.             Me.columnStudentID.AllowDBNull = false

    1159. 

  1159.         End Sub

    1160. 

  1160.         

    1161. 

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

    1162. 

  1162.         Public Function NewCourseGradeRow() As CourseGradeRow

    1163. 

  1163.             Return CType(Me.NewRow,CourseGradeRow)

    1164. 

  1164.         End Function

    1165. 

  1165.         

    1166. 

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

    1167. 

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

    1168. 

  1168.             Return New CourseGradeRow(builder)

    1169. 

  1169.         End Function

    1170. 

  1170.         

    1171. 

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

    1172. 

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

    1173. 

  1173.             Return GetType(CourseGradeRow)

    1174. 

  1174.         End Function

    1175. 

  1175.         

    1176. 

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

    1177. 

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

    1178. 

  1178.             MyBase.OnRowChanged(e)

    1179. 

  1179.             If (Not (Me.CourseGradeRowChangedEvent) Is Nothing) Then

    1180. 

  1180.                 RaiseEvent CourseGradeRowChanged(Me, New CourseGradeRowChangeEvent(CType(e.Row,CourseGradeRow), e.Action))

    1181. 

  1181.             End If

    1182. 

  1182.         End Sub

    1183. 

  1183.         

    1184. 

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

    1185. 

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

    1186. 

  1186.             MyBase.OnRowChanging(e)

    1187. 

  1187.             If (Not (Me.CourseGradeRowChangingEvent) Is Nothing) Then

    1188. 

  1188.                 RaiseEvent CourseGradeRowChanging(Me, New CourseGradeRowChangeEvent(CType(e.Row,CourseGradeRow), e.Action))

    1189. 

  1189.             End If

    1190. 

  1190.         End Sub

    1191. 

  1191.         

    1192. 

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

    1193. 

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

    1194. 

  1194.             MyBase.OnRowDeleted(e)

    1195. 

  1195.             If (Not (Me.CourseGradeRowDeletedEvent) Is Nothing) Then

    1196. 

  1196.                 RaiseEvent CourseGradeRowDeleted(Me, New CourseGradeRowChangeEvent(CType(e.Row,CourseGradeRow), e.Action))

    1197. 

  1197.             End If

    1198. 

  1198.         End Sub

    1199. 

  1199.         

    1200. 

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

    1201. 

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

    1202. 

  1202.             MyBase.OnRowDeleting(e)

    1203. 

  1203.             If (Not (Me.CourseGradeRowDeletingEvent) Is Nothing) Then

    1204. 

  1204.                 RaiseEvent CourseGradeRowDeleting(Me, New CourseGradeRowChangeEvent(CType(e.Row,CourseGradeRow), e.Action))

    1205. 

  1205.             End If

    1206. 

  1206.         End Sub

    1207. 

  1207.         

    1208. 

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

    1209. 

  1209.         Public Sub RemoveCourseGradeRow(ByVal row As CourseGradeRow)

    1210. 

  1210.             Me.Rows.Remove(row)

    1211. 

  1211.         End Sub

    1212. 

  1212.         

    1213. 

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

    1214. 

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

    1215. 

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

    1216. 

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

    1217. 

  1217.             Dim ds As SchoolDataSet = New SchoolDataSet

    1218. 

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

    1219. 

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

    1220. 

  1220.             any1.MinOccurs = New Decimal(0)

    1221. 

  1221.             any1.MaxOccurs = Decimal.MaxValue

    1222. 

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

    1223. 

  1223.             sequence.Items.Add(any1)

    1224. 

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

    1225. 

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

    1226. 

  1226.             any2.MinOccurs = New Decimal(1)

    1227. 

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

    1228. 

  1228.             sequence.Items.Add(any2)

    1229. 

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

    1230. 

  1230.             attribute1.Name = "namespace"

    1231. 

  1231.             attribute1.FixedValue = ds.Namespace

    1232. 

  1232.             type.Attributes.Add(attribute1)

    1233. 

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

    1234. 

  1234.             attribute2.Name = "tableTypeName"

    1235. 

  1235.             attribute2.FixedValue = "CourseGradeDataTable"

    1236. 

  1236.             type.Attributes.Add(attribute2)

    1237. 

  1237.             type.Particle = sequence

    1238. 

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

    1239. 

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

    1240. 

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

    1241. 

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

    1242. 

  1242.                 Try 

    1243. 

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

    1244. 

  1244.                     dsSchema.Write(s1)

    1245. 

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

    1246. 

  1246.                     Do While schemas.MoveNext

    1247. 

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

    1248. 

  1248.                         s2.SetLength(0)

    1249. 

  1249.                         schema.Write(s2)

    1250. 

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

    1251. 

  1251.                             s1.Position = 0

    1252. 

  1252.                             s2.Position = 0

    1253. 

  1253.                             

    1254. 

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

    1255. 

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

    1256. 

  1256.                                 

    1257. 

  1257.                                 

    1258. 

  1258.                             Loop

    1259. 

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

    1260. 

  1260.                                 Return type

    1261. 

  1261.                             End If

    1262. 

  1262.                         End If

    1263. 

  1263.                         

    1264. 

  1264.                     Loop

    1265. 

  1265.                 Finally

    1266. 

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

    1267. 

  1267.                         s1.Close

    1268. 

  1268.                     End If

    1269. 

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

    1270. 

  1270.                         s2.Close

    1271. 

  1271.                     End If

    1272. 

  1272.                 End Try

    1273. 

  1273.             End If

    1274. 

  1274.             xs.Add(dsSchema)

    1275. 

  1275.             Return type

    1276. 

  1276.         End Function

    1277. 

  1277.     End Class

    1278. 

  1278.     

    1279. 

  1279.     '''<summary>

    1280. 

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

    1281. 

  1281.     '''</summary>

    1282. 

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

    1283. 

  1283.      Global.System.Serializable(),  _

    1284. 

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

    1285. 

  1285.     Partial Public Class CourseInstructorDataTable

    1286. 

  1286.         Inherits Global.System.Data.TypedTableBase(Of CourseInstructorRow)

    1287. 

  1287.         

    1288. 

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

    1289. 

  1289.         

    1290. 

  1290.         Private columnPersonID As Global.System.Data.DataColumn

    1291. 

  1291.         

    1292. 

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

    1293. 

  1293.         Public Sub New()

    1294. 

  1294.             MyBase.New

    1295. 

  1295.             Me.TableName = "CourseInstructor"

    1296. 

  1296.             Me.BeginInit

    1297. 

  1297.             Me.InitClass

    1298. 

  1298.             Me.EndInit

    1299. 

  1299.         End Sub

    1300. 

  1300.         

    1301. 

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

    1302. 

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

    1303. 

  1303.             MyBase.New

    1304. 

  1304.             Me.TableName = table.TableName

    1305. 

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

    1306. 

  1306.                 Me.CaseSensitive = table.CaseSensitive

    1307. 

  1307.             End If

    1308. 

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

    1309. 

  1309.                 Me.Locale = table.Locale

    1310. 

  1310.             End If

    1311. 

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

    1312. 

  1312.                 Me.Namespace = table.Namespace

    1313. 

  1313.             End If

    1314. 

  1314.             Me.Prefix = table.Prefix

    1315. 

  1315.             Me.MinimumCapacity = table.MinimumCapacity

    1316. 

  1316.         End Sub

    1317. 

  1317.         

    1318. 

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

    1319. 

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

    1320. 

  1320.             MyBase.New(info, context)

    1321. 

  1321.             Me.InitVars

    1322. 

  1322.         End Sub

    1323. 

  1323.         

    1324. 

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

    1325. 

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

    1326. 

  1326.             Get

    1327. 

  1327.                 Return Me.columnCourseID

    1328. 

  1328.             End Get

    1329. 

  1329.         End Property

    1330. 

  1330.         

    1331. 

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

    1332. 

  1332.         Public ReadOnly Property PersonIDColumn() As Global.System.Data.DataColumn

    1333. 

  1333.             Get

    1334. 

  1334.                 Return Me.columnPersonID

    1335. 

  1335.             End Get

    1336. 

  1336.         End Property

    1337. 

  1337.         

    1338. 

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

    1339. 

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

    1340. 

  1340.         Public ReadOnly Property Count() As Integer

    1341. 

  1341.             Get

    1342. 

  1342.                 Return Me.Rows.Count

    1343. 

  1343.             End Get

    1344. 

  1344.         End Property

    1345. 

  1345.         

    1346. 

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

    1347. 

  1347.         Public Default ReadOnly Property Item(ByVal index As Integer) As CourseInstructorRow

    1348. 

  1348.             Get

    1349. 

  1349.                 Return CType(Me.Rows(index),CourseInstructorRow)

    1350. 

  1350.             End Get

    1351. 

  1351.         End Property

    1352. 

  1352.         

    1353. 

  1353.         Public Event CourseInstructorRowChanging As CourseInstructorRowChangeEventHandler

    1354. 

  1354.         

    1355. 

  1355.         Public Event CourseInstructorRowChanged As CourseInstructorRowChangeEventHandler

    1356. 

  1356.         

    1357. 

  1357.         Public Event CourseInstructorRowDeleting As CourseInstructorRowChangeEventHandler

    1358. 

  1358.         

    1359. 

  1359.         Public Event CourseInstructorRowDeleted As CourseInstructorRowChangeEventHandler

    1360. 

  1360.         

    1361. 

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

    1362. 

  1362.         Public Overloads Sub AddCourseInstructorRow(ByVal row As CourseInstructorRow)

    1363. 

  1363.             Me.Rows.Add(row)

    1364. 

  1364.         End Sub

    1365. 

  1365.         

    1366. 

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

    1367. 

  1367.         Public Overloads Function AddCourseInstructorRow(ByVal parentCourseRowByFK_CourseInstructor_Course As CourseRow, ByVal parentPersonRowByFK_CourseInstructor_Person As PersonRow) As CourseInstructorRow

    1368. 

  1368.             Dim rowCourseInstructorRow As CourseInstructorRow = CType(Me.NewRow,CourseInstructorRow)

    1369. 

  1369.             Dim columnValuesArray() As Object = New Object() {Nothing, Nothing}

    1370. 

  1370.             If (Not (parentCourseRowByFK_CourseInstructor_Course) Is Nothing) Then

    1371. 

  1371.                 columnValuesArray(0) = parentCourseRowByFK_CourseInstructor_Course(0)

    1372. 

  1372.             End If

    1373. 

  1373.             If (Not (parentPersonRowByFK_CourseInstructor_Person) Is Nothing) Then

    1374. 

  1374.                 columnValuesArray(1) = parentPersonRowByFK_CourseInstructor_Person(0)

    1375. 

  1375.             End If

    1376. 

  1376.             rowCourseInstructorRow.ItemArray = columnValuesArray

    1377. 

  1377.             Me.Rows.Add(rowCourseInstructorRow)

    1378. 

  1378.             Return rowCourseInstructorRow

    1379. 

  1379.         End Function

    1380. 

  1380.         

    1381. 

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

    1382. 

  1382.         Public Function FindByCourseIDPersonID(ByVal CourseID As Integer, ByVal PersonID As Integer) As CourseInstructorRow

    1383. 

  1383.             Return CType(Me.Rows.Find(New Object() {CourseID, PersonID}),CourseInstructorRow)

    1384. 

  1384.         End Function

    1385. 

  1385.         

    1386. 

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

    1387. 

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

    1388. 

  1388.             Dim cln As CourseInstructorDataTable = CType(MyBase.Clone,CourseInstructorDataTable)

    1389. 

  1389.             cln.InitVars

    1390. 

  1390.             Return cln

    1391. 

  1391.         End Function

    1392. 

  1392.         

    1393. 

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

    1394. 

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

    1395. 

  1395.             Return New CourseInstructorDataTable

    1396. 

  1396.         End Function

    1397. 

  1397.         

    1398. 

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

    1399. 

  1399.         Friend Sub InitVars()

    1400. 

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

    1401. 

  1401.             Me.columnPersonID = MyBase.Columns("PersonID")

    1402. 

  1402.         End Sub

    1403. 

  1403.         

    1404. 

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

    1405. 

  1405.         Private Sub InitClass()

    1406. 

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

    1407. 

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

    1408. 

  1408.             Me.columnPersonID = New Global.System.Data.DataColumn("PersonID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)

    1409. 

  1409.             MyBase.Columns.Add(Me.columnPersonID)

    1410. 

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

    1411. 

  1411.             Me.columnCourseID.AllowDBNull = false

    1412. 

  1412.             Me.columnPersonID.AllowDBNull = false

    1413. 

  1413.         End Sub

    1414. 

  1414.         

    1415. 

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

    1416. 

  1416.         Public Function NewCourseInstructorRow() As CourseInstructorRow

    1417. 

  1417.             Return CType(Me.NewRow,CourseInstructorRow)

    1418. 

  1418.         End Function

    1419. 

  1419.         

    1420. 

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

    1421. 

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

    1422. 

  1422.             Return New CourseInstructorRow(builder)

    1423. 

  1423.         End Function

    1424. 

  1424.         

    1425. 

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

    1426. 

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

    1427. 

  1427.             Return GetType(CourseInstructorRow)

    1428. 

  1428.         End Function

    1429. 

  1429.         

    1430. 

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

    1431. 

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

    1432. 

  1432.             MyBase.OnRowChanged(e)

    1433. 

  1433.             If (Not (Me.CourseInstructorRowChangedEvent) Is Nothing) Then

    1434. 

  1434.                 RaiseEvent CourseInstructorRowChanged(Me, New CourseInstructorRowChangeEvent(CType(e.Row,CourseInstructorRow), e.Action))

    1435. 

  1435.             End If

    1436. 

  1436.         End Sub

    1437. 

  1437.         

    1438. 

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

    1439. 

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

    1440. 

  1440.             MyBase.OnRowChanging(e)

    1441. 

  1441.             If (Not (Me.CourseInstructorRowChangingEvent) Is Nothing) Then

    1442. 

  1442.                 RaiseEvent CourseInstructorRowChanging(Me, New CourseInstructorRowChangeEvent(CType(e.Row,CourseInstructorRow), e.Action))

    1443. 

  1443.             End If

    1444. 

  1444.         End Sub

    1445. 

  1445.         

    1446. 

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

    1447. 

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

    1448. 

  1448.             MyBase.OnRowDeleted(e)

    1449. 

  1449.             If (Not (Me.CourseInstructorRowDeletedEvent) Is Nothing) Then

    1450. 

  1450.                 RaiseEvent CourseInstructorRowDeleted(Me, New CourseInstructorRowChangeEvent(CType(e.Row,CourseInstructorRow), e.Action))

    1451. 

  1451.             End If

    1452. 

  1452.         End Sub

    1453. 

  1453.         

    1454. 

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

    1455. 

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

    1456. 

  1456.             MyBase.OnRowDeleting(e)

    1457. 

  1457.             If (Not (Me.CourseInstructorRowDeletingEvent) Is Nothing) Then

    1458. 

  1458.                 RaiseEvent CourseInstructorRowDeleting(Me, New CourseInstructorRowChangeEvent(CType(e.Row,CourseInstructorRow), e.Action))

    1459. 

  1459.             End If

    1460. 

  1460.         End Sub

    1461. 

  1461.         

    1462. 

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

    1463. 

  1463.         Public Sub RemoveCourseInstructorRow(ByVal row As CourseInstructorRow)

    1464. 

  1464.             Me.Rows.Remove(row)

    1465. 

  1465.         End Sub

    1466. 

  1466.         

    1467. 

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

    1468. 

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

    1469. 

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

    1470. 

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

    1471. 

  1471.             Dim ds As SchoolDataSet = New SchoolDataSet

    1472. 

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

    1473. 

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

    1474. 

  1474.             any1.MinOccurs = New Decimal(0)

    1475. 

  1475.             any1.MaxOccurs = Decimal.MaxValue

    1476. 

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

    1477. 

  1477.             sequence.Items.Add(any1)

    1478. 

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

    1479. 

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

    1480. 

  1480.             any2.MinOccurs = New Decimal(1)

    1481. 

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

    1482. 

  1482.             sequence.Items.Add(any2)

    1483. 

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

    1484. 

  1484.             attribute1.Name = "namespace"

    1485. 

  1485.             attribute1.FixedValue = ds.Namespace

    1486. 

  1486.             type.Attributes.Add(attribute1)

    1487. 

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

    1488. 

  1488.             attribute2.Name = "tableTypeName"

    1489. 

  1489.             attribute2.FixedValue = "CourseInstructorDataTable"

    1490. 

  1490.             type.Attributes.Add(attribute2)

    1491. 

  1491.             type.Particle = sequence

    1492. 

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

    1493. 

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

    1494. 

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

    1495. 

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

    1496. 

  1496.                 Try 

    1497. 

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

    1498. 

  1498.                     dsSchema.Write(s1)

    1499. 

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

    1500. 

  1500.                     Do While schemas.MoveNext

    1501. 

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

    1502. 

  1502.                         s2.SetLength(0)

    1503. 

  1503.                         schema.Write(s2)

    1504. 

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

    1505. 

  1505.                             s1.Position = 0

    1506. 

  1506.                             s2.Position = 0

    1507. 

  1507.                             

    1508. 

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

    1509. 

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

    1510. 

  1510.                                 

    1511. 

  1511.                                 

    1512. 

  1512.                             Loop

    1513. 

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

    1514. 

  1514.                                 Return type

    1515. 

  1515.                             End If

    1516. 

  1516.                         End If

    1517. 

  1517.                         

    1518. 

  1518.                     Loop

    1519. 

  1519.                 Finally

    1520. 

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

    1521. 

  1521.                         s1.Close

    1522. 

  1522.                     End If

    1523. 

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

    1524. 

  1524.                         s2.Close

    1525. 

  1525.                     End If

    1526. 

  1526.                 End Try

    1527. 

  1527.             End If

    1528. 

  1528.             xs.Add(dsSchema)

    1529. 

  1529.             Return type

    1530. 

  1530.         End Function

    1531. 

  1531.     End Class

    1532. 

  1532.     

    1533. 

  1533.     '''<summary>

    1534. 

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

    1535. 

  1535.     '''</summary>

    1536. 

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

    1537. 

  1537.      Global.System.Serializable(),  _

    1538. 

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

    1539. 

  1539.     Partial Public Class DepartmentDataTable

    1540. 

  1540.         Inherits Global.System.Data.TypedTableBase(Of DepartmentRow)

    1541. 

  1541.         

    1542. 

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

    1543. 

  1543.         

    1544. 

  1544.         Private columnName As Global.System.Data.DataColumn

    1545. 

  1545.         

    1546. 

  1546.         Private columnBudget As Global.System.Data.DataColumn

    1547. 

  1547.         

    1548. 

  1548.         Private columnStartDate As Global.System.Data.DataColumn

    1549. 

  1549.         

    1550. 

  1550.         Private columnAdministrator As Global.System.Data.DataColumn

    1551. 

  1551.         

    1552. 

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

    1553. 

  1553.         Public Sub New()

    1554. 

  1554.             MyBase.New

    1555. 

  1555.             Me.TableName = "Department"

    1556. 

  1556.             Me.BeginInit

    1557. 

  1557.             Me.InitClass

    1558. 

  1558.             Me.EndInit

    1559. 

  1559.         End Sub

    1560. 

  1560.         

    1561. 

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

    1562. 

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

    1563. 

  1563.             MyBase.New

    1564. 

  1564.             Me.TableName = table.TableName

    1565. 

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

    1566. 

  1566.                 Me.CaseSensitive = table.CaseSensitive

    1567. 

  1567.             End If

    1568. 

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

    1569. 

  1569.                 Me.Locale = table.Locale

    1570. 

  1570.             End If

    1571. 

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

    1572. 

  1572.                 Me.Namespace = table.Namespace

    1573. 

  1573.             End If

    1574. 

  1574.             Me.Prefix = table.Prefix

    1575. 

  1575.             Me.MinimumCapacity = table.MinimumCapacity

    1576. 

  1576.         End Sub

    1577. 

  1577.         

    1578. 

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

    1579. 

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

    1580. 

  1580.             MyBase.New(info, context)

    1581. 

  1581.             Me.InitVars

    1582. 

  1582.         End Sub

    1583. 

  1583.         

    1584. 

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

    1585. 

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

    1586. 

  1586.             Get

    1587. 

  1587.                 Return Me.columnDepartmentID

    1588. 

  1588.             End Get

    1589. 

  1589.         End Property

    1590. 

  1590.         

    1591. 

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

    1592. 

  1592.         Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn

    1593. 

  1593.             Get

    1594. 

  1594.                 Return Me.columnName

    1595. 

  1595.             End Get

    1596. 

  1596.         End Property

    1597. 

  1597.         

    1598. 

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

    1599. 

  1599.         Public ReadOnly Property BudgetColumn() As Global.System.Data.DataColumn

    1600. 

  1600.             Get

    1601. 

  1601.                 Return Me.columnBudget

    1602. 

  1602.             End Get

    1603. 

  1603.         End Property

    1604. 

  1604.         

    1605. 

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

    1606. 

  1606.         Public ReadOnly Property StartDateColumn() As Global.System.Data.DataColumn

    1607. 

  1607.             Get

    1608. 

  1608.                 Return Me.columnStartDate

    1609. 

  1609.             End Get

    1610. 

  1610.         End Property

    1611. 

  1611.         

    1612. 

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

    1613. 

  1613.         Public ReadOnly Property AdministratorColumn() As Global.System.Data.DataColumn

    1614. 

  1614.             Get

    1615. 

  1615.                 Return Me.columnAdministrator

    1616. 

  1616.             End Get

    1617. 

  1617.         End Property

    1618. 

  1618.         

    1619. 

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

    1620. 

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

    1621. 

  1621.         Public ReadOnly Property Count() As Integer

    1622. 

  1622.             Get

    1623. 

  1623.                 Return Me.Rows.Count

    1624. 

  1624.             End Get

    1625. 

  1625.         End Property

    1626. 

  1626.         

    1627. 

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

    1628. 

  1628.         Public Default ReadOnly Property Item(ByVal index As Integer) As DepartmentRow

    1629. 

  1629.             Get

    1630. 

  1630.                 Return CType(Me.Rows(index),DepartmentRow)

    1631. 

  1631.             End Get

    1632. 

  1632.         End Property

    1633. 

  1633.         

    1634. 

  1634.         Public Event DepartmentRowChanging As DepartmentRowChangeEventHandler

    1635. 

  1635.         

    1636. 

  1636.         Public Event DepartmentRowChanged As DepartmentRowChangeEventHandler

    1637. 

  1637.         

    1638. 

  1638.         Public Event DepartmentRowDeleting As DepartmentRowChangeEventHandler

    1639. 

  1639.         

    1640. 

  1640.         Public Event DepartmentRowDeleted As DepartmentRowChangeEventHandler

    1641. 

  1641.         

    1642. 

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

    1643. 

  1643.         Public Overloads Sub AddDepartmentRow(ByVal row As DepartmentRow)

    1644. 

  1644.             Me.Rows.Add(row)

    1645. 

  1645.         End Sub

    1646. 

  1646.         

    1647. 

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

    1648. 

  1648.         Public Overloads Function AddDepartmentRow(ByVal DepartmentID As Integer, ByVal Name As String, ByVal Budget As Decimal, ByVal StartDate As Date, ByVal Administrator As Integer) As DepartmentRow

    1649. 

  1649.             Dim rowDepartmentRow As DepartmentRow = CType(Me.NewRow,DepartmentRow)

    1650. 

  1650.             Dim columnValuesArray() As Object = New Object() {DepartmentID, Name, Budget, StartDate, Administrator}

    1651. 

  1651.             rowDepartmentRow.ItemArray = columnValuesArray

    1652. 

  1652.             Me.Rows.Add(rowDepartmentRow)

    1653. 

  1653.             Return rowDepartmentRow

    1654. 

  1654.         End Function

    1655. 

  1655.         

    1656. 

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

    1657. 

  1657.         Public Function FindByDepartmentID(ByVal DepartmentID As Integer) As DepartmentRow

    1658. 

  1658.             Return CType(Me.Rows.Find(New Object() {DepartmentID}),DepartmentRow)

    1659. 

  1659.         End Function

    1660. 

  1660.         

    1661. 

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

    1662. 

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

    1663. 

  1663.             Dim cln As DepartmentDataTable = CType(MyBase.Clone,DepartmentDataTable)

    1664. 

  1664.             cln.InitVars

    1665. 

  1665.             Return cln

    1666. 

  1666.         End Function

    1667. 

  1667.         

    1668. 

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

    1669. 

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

    1670. 

  1670.             Return New DepartmentDataTable

    1671. 

  1671.         End Function

    1672. 

  1672.         

    1673. 

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

    1674. 

  1674.         Friend Sub InitVars()

    1675. 

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

    1676. 

  1676.             Me.columnName = MyBase.Columns("Name")

    1677. 

  1677.             Me.columnBudget = MyBase.Columns("Budget")

    1678. 

  1678.             Me.columnStartDate = MyBase.Columns("StartDate")

    1679. 

  1679.             Me.columnAdministrator = MyBase.Columns("Administrator")

    1680. 

  1680.         End Sub

    1681. 

  1681.         

    1682. 

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

    1683. 

  1683.         Private Sub InitClass()

    1684. 

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

    1685. 

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

    1686. 

  1686.             Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element)

    1687. 

  1687.             MyBase.Columns.Add(Me.columnName)

    1688. 

  1688.             Me.columnBudget = New Global.System.Data.DataColumn("Budget", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)

    1689. 

  1689.             MyBase.Columns.Add(Me.columnBudget)

    1690. 

  1690.             Me.columnStartDate = New Global.System.Data.DataColumn("StartDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element)

    1691. 

  1691.             MyBase.Columns.Add(Me.columnStartDate)

    1692. 

  1692.             Me.columnAdministrator = New Global.System.Data.DataColumn("Administrator", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)

    1693. 

  1693.             MyBase.Columns.Add(Me.columnAdministrator)

    1694. 

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

    1695. 

  1695.             Me.columnDepartmentID.AllowDBNull = false

    1696. 

  1696.             Me.columnDepartmentID.Unique = true

    1697. 

  1697.             Me.columnName.AllowDBNull = false

    1698. 

  1698.             Me.columnName.MaxLength = 50

    1699. 

  1699.             Me.columnBudget.AllowDBNull = false

    1700. 

  1700.             Me.columnStartDate.AllowDBNull = false

    1701. 

  1701.         End Sub

    1702. 

  1702.         

    1703. 

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

    1704. 

  1704.         Public Function NewDepartmentRow() As DepartmentRow

    1705. 

  1705.             Return CType(Me.NewRow,DepartmentRow)

    1706. 

  1706.         End Function

    1707. 

  1707.         

    1708. 

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

    1709. 

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

    1710. 

  1710.             Return New DepartmentRow(builder)

    1711. 

  1711.         End Function

    1712. 

  1712.         

    1713. 

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

    1714. 

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

    1715. 

  1715.             Return GetType(DepartmentRow)

    1716. 

  1716.         End Function

    1717. 

  1717.         

    1718. 

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

    1719. 

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

    1720. 

  1720.             MyBase.OnRowChanged(e)

    1721. 

  1721.             If (Not (Me.DepartmentRowChangedEvent) Is Nothing) Then

    1722. 

  1722.                 RaiseEvent DepartmentRowChanged(Me, New DepartmentRowChangeEvent(CType(e.Row,DepartmentRow), e.Action))

    1723. 

  1723.             End If

    1724. 

  1724.         End Sub

    1725. 

  1725.         

    1726. 

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

    1727. 

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

    1728. 

  1728.             MyBase.OnRowChanging(e)

    1729. 

  1729.             If (Not (Me.DepartmentRowChangingEvent) Is Nothing) Then

    1730. 

  1730.                 RaiseEvent DepartmentRowChanging(Me, New DepartmentRowChangeEvent(CType(e.Row,DepartmentRow), e.Action))

    1731. 

  1731.             End If

    1732. 

  1732.         End Sub

    1733. 

  1733.         

    1734. 

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

    1735. 

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

    1736. 

  1736.             MyBase.OnRowDeleted(e)

    1737. 

  1737.             If (Not (Me.DepartmentRowDeletedEvent) Is Nothing) Then

    1738. 

  1738.                 RaiseEvent DepartmentRowDeleted(Me, New DepartmentRowChangeEvent(CType(e.Row,DepartmentRow), e.Action))

    1739. 

  1739.             End If

    1740. 

  1740.         End Sub

    1741. 

  1741.         

    1742. 

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

    1743. 

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

    1744. 

  1744.             MyBase.OnRowDeleting(e)

    1745. 

  1745.             If (Not (Me.DepartmentRowDeletingEvent) Is Nothing) Then

    1746. 

  1746.                 RaiseEvent DepartmentRowDeleting(Me, New DepartmentRowChangeEvent(CType(e.Row,DepartmentRow), e.Action))

    1747. 

  1747.             End If

    1748. 

  1748.         End Sub

    1749. 

  1749.         

    1750. 

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

    1751. 

  1751.         Public Sub RemoveDepartmentRow(ByVal row As DepartmentRow)

    1752. 

  1752.             Me.Rows.Remove(row)

    1753. 

  1753.         End Sub

    1754. 

  1754.         

    1755. 

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

    1756. 

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

    1757. 

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

    1758. 

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

    1759. 

  1759.             Dim ds As SchoolDataSet = New SchoolDataSet

    1760. 

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

    1761. 

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

    1762. 

  1762.             any1.MinOccurs = New Decimal(0)

    1763. 

  1763.             any1.MaxOccurs = Decimal.MaxValue

    1764. 

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

    1765. 

  1765.             sequence.Items.Add(any1)

    1766. 

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

    1767. 

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

    1768. 

  1768.             any2.MinOccurs = New Decimal(1)

    1769. 

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

    1770. 

  1770.             sequence.Items.Add(any2)

    1771. 

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

    1772. 

  1772.             attribute1.Name = "namespace"

    1773. 

  1773.             attribute1.FixedValue = ds.Namespace

    1774. 

  1774.             type.Attributes.Add(attribute1)

    1775. 

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

    1776. 

  1776.             attribute2.Name = "tableTypeName"

    1777. 

  1777.             attribute2.FixedValue = "DepartmentDataTable"

    1778. 

  1778.             type.Attributes.Add(attribute2)

    1779. 

  1779.             type.Particle = sequence

    1780. 

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

    1781. 

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

    1782. 

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

    1783. 

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

    1784. 

  1784.                 Try 

    1785. 

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

    1786. 

  1786.                     dsSchema.Write(s1)

    1787. 

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

    1788. 

  1788.                     Do While schemas.MoveNext

    1789. 

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

    1790. 

  1790.                         s2.SetLength(0)

    1791. 

  1791.                         schema.Write(s2)

    1792. 

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

    1793. 

  1793.                             s1.Position = 0

    1794. 

  1794.                             s2.Position = 0

    1795. 

  1795.                             

    1796. 

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

    1797. 

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

    1798. 

  1798.                                 

    1799. 

  1799.                                 

    1800. 

  1800.                             Loop

    1801. 

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

    1802. 

  1802.                                 Return type

    1803. 

  1803.                             End If

    1804. 

  1804.                         End If

    1805. 

  1805.                         

    1806. 

  1806.                     Loop

    1807. 

  1807.                 Finally

    1808. 

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

    1809. 

  1809.                         s1.Close

    1810. 

  1810.                     End If

    1811. 

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

    1812. 

  1812.                         s2.Close

    1813. 

  1813.                     End If

    1814. 

  1814.                 End Try

    1815. 

  1815.             End If

    1816. 

  1816.             xs.Add(dsSchema)

    1817. 

  1817.             Return type

    1818. 

  1818.         End Function

    1819. 

  1819.     End Class

    1820. 

  1820.     

    1821. 

  1821.     '''<summary>

    1822. 

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

    1823. 

  1823.     '''</summary>

    1824. 

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

    1825. 

  1825.      Global.System.Serializable(),  _

    1826. 

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

    1827. 

  1827.     Partial Public Class OfficeAssignmentDataTable

    1828. 

  1828.         Inherits Global.System.Data.TypedTableBase(Of OfficeAssignmentRow)

    1829. 

  1829.         

    1830. 

  1830.         Private columnInstructorID As Global.System.Data.DataColumn

    1831. 

  1831.         

    1832. 

  1832.         Private columnLocation As Global.System.Data.DataColumn

    1833. 

  1833.         

    1834. 

  1834.         Private columnTimestamp As Global.System.Data.DataColumn

    1835. 

  1835.         

    1836. 

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

    1837. 

  1837.         Public Sub New()

    1838. 

  1838.             MyBase.New

    1839. 

  1839.             Me.TableName = "OfficeAssignment"

    1840. 

  1840.             Me.BeginInit

    1841. 

  1841.             Me.InitClass

    1842. 

  1842.             Me.EndInit

    1843. 

  1843.         End Sub

    1844. 

  1844.         

    1845. 

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

    1846. 

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

    1847. 

  1847.             MyBase.New

    1848. 

  1848.             Me.TableName = table.TableName

    1849. 

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

    1850. 

  1850.                 Me.CaseSensitive = table.CaseSensitive

    1851. 

  1851.             End If

    1852. 

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

    1853. 

  1853.                 Me.Locale = table.Locale

    1854. 

  1854.             End If

    1855. 

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

    1856. 

  1856.                 Me.Namespace = table.Namespace

    1857. 

  1857.             End If

    1858. 

  1858.             Me.Prefix = table.Prefix

    1859. 

  1859.             Me.MinimumCapacity = table.MinimumCapacity

    1860. 

  1860.         End Sub

    1861. 

  1861.         

    1862. 

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

    1863. 

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

    1864. 

  1864.             MyBase.New(info, context)

    1865. 

  1865.             Me.InitVars

    1866. 

  1866.         End Sub

    1867. 

  1867.         

    1868. 

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

    1869. 

  1869.         Public ReadOnly Property InstructorIDColumn() As Global.System.Data.DataColumn

    1870. 

  1870.             Get

    1871. 

  1871.                 Return Me.columnInstructorID

    1872. 

  1872.             End Get

    1873. 

  1873.         End Property

    1874. 

  1874.         

    1875. 

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

    1876. 

  1876.         Public ReadOnly Property LocationColumn() As Global.System.Data.DataColumn

    1877. 

  1877.             Get

    1878. 

  1878.                 Return Me.columnLocation

    1879. 

  1879.             End Get

    1880. 

  1880.         End Property

    1881. 

  1881.         

    1882. 

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

    1883. 

  1883.         Public ReadOnly Property TimestampColumn() As Global.System.Data.DataColumn

    1884. 

  1884.             Get

    1885. 

  1885.                 Return Me.columnTimestamp

    1886. 

  1886.             End Get

    1887. 

  1887.         End Property

    1888. 

  1888.         

    1889. 

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

    1890. 

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

    1891. 

  1891.         Public ReadOnly Property Count() As Integer

    1892. 

  1892.             Get

    1893. 

  1893.                 Return Me.Rows.Count

    1894. 

  1894.             End Get

    1895. 

  1895.         End Property

    1896. 

  1896.         

    1897. 

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

    1898. 

  1898.         Public Default ReadOnly Property Item(ByVal index As Integer) As OfficeAssignmentRow

    1899. 

  1899.             Get

    1900. 

  1900.                 Return CType(Me.Rows(index),OfficeAssignmentRow)

    1901. 

  1901.             End Get

    1902. 

  1902.         End Property

    1903. 

  1903.         

    1904. 

  1904.         Public Event OfficeAssignmentRowChanging As OfficeAssignmentRowChangeEventHandler

    1905. 

  1905.         

    1906. 

  1906.         Public Event OfficeAssignmentRowChanged As OfficeAssignmentRowChangeEventHandler

    1907. 

  1907.         

    1908. 

  1908.         Public Event OfficeAssignmentRowDeleting As OfficeAssignmentRowChangeEventHandler

    1909. 

  1909.         

    1910. 

  1910.         Public Event OfficeAssignmentRowDeleted As OfficeAssignmentRowChangeEventHandler

    1911. 

  1911.         

    1912. 

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

    1913. 

  1913.         Public Overloads Sub AddOfficeAssignmentRow(ByVal row As OfficeAssignmentRow)

    1914. 

  1914.             Me.Rows.Add(row)

    1915. 

  1915.         End Sub

    1916. 

  1916.         

    1917. 

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

    1918. 

  1918.         Public Overloads Function AddOfficeAssignmentRow(ByVal parentPersonRowByFK_OfficeAssignment_Person As PersonRow, ByVal Location As String, ByVal Timestamp() As Byte) As OfficeAssignmentRow

    1919. 

  1919.             Dim rowOfficeAssignmentRow As OfficeAssignmentRow = CType(Me.NewRow,OfficeAssignmentRow)

    1920. 

  1920.             Dim columnValuesArray() As Object = New Object() {Nothing, Location, Timestamp}

    1921. 

  1921.             If (Not (parentPersonRowByFK_OfficeAssignment_Person) Is Nothing) Then

    1922. 

  1922.                 columnValuesArray(0) = parentPersonRowByFK_OfficeAssignment_Person(0)

    1923. 

  1923.             End If

    1924. 

  1924.             rowOfficeAssignmentRow.ItemArray = columnValuesArray

    1925. 

  1925.             Me.Rows.Add(rowOfficeAssignmentRow)

    1926. 

  1926.             Return rowOfficeAssignmentRow

    1927. 

  1927.         End Function

    1928. 

  1928.         

    1929. 

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

    1930. 

  1930.         Public Function FindByInstructorID(ByVal InstructorID As Integer) As OfficeAssignmentRow

    1931. 

  1931.             Return CType(Me.Rows.Find(New Object() {InstructorID}),OfficeAssignmentRow)

    1932. 

  1932.         End Function

    1933. 

  1933.         

    1934. 

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

    1935. 

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

    1936. 

  1936.             Dim cln As OfficeAssignmentDataTable = CType(MyBase.Clone,OfficeAssignmentDataTable)

    1937. 

  1937.             cln.InitVars

    1938. 

  1938.             Return cln

    1939. 

  1939.         End Function

    1940. 

  1940.         

    1941. 

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

    1942. 

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

    1943. 

  1943.             Return New OfficeAssignmentDataTable

    1944. 

  1944.         End Function

    1945. 

  1945.         

    1946. 

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

    1947. 

  1947.         Friend Sub InitVars()

    1948. 

  1948.             Me.columnInstructorID = MyBase.Columns("InstructorID")

    1949. 

  1949.             Me.columnLocation = MyBase.Columns("Location")

    1950. 

  1950.             Me.columnTimestamp = MyBase.Columns("Timestamp")

    1951. 

  1951.         End Sub

    1952. 

  1952.         

    1953. 

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

    1954. 

  1954.         Private Sub InitClass()

    1955. 

  1955.             Me.columnInstructorID = New Global.System.Data.DataColumn("InstructorID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)

    1956. 

  1956.             MyBase.Columns.Add(Me.columnInstructorID)

    1957. 

  1957.             Me.columnLocation = New Global.System.Data.DataColumn("Location", GetType(String), Nothing, Global.System.Data.MappingType.Element)

    1958. 

  1958.             MyBase.Columns.Add(Me.columnLocation)

    1959. 

  1959.             Me.columnTimestamp = New Global.System.Data.DataColumn("Timestamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element)

    1960. 

  1960.             MyBase.Columns.Add(Me.columnTimestamp)

    1961. 

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

    1962. 

  1962.             Me.columnInstructorID.AllowDBNull = false

    1963. 

  1963.             Me.columnInstructorID.Unique = true

    1964. 

  1964.             Me.columnLocation.AllowDBNull = false

    1965. 

  1965.             Me.columnLocation.MaxLength = 50

    1966. 

  1966.             Me.columnTimestamp.ReadOnly = true

    1967. 

  1967.         End Sub

    1968. 

  1968.         

    1969. 

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

    1970. 

  1970.         Public Function NewOfficeAssignmentRow() As OfficeAssignmentRow

    1971. 

  1971.             Return CType(Me.NewRow,OfficeAssignmentRow)

    1972. 

  1972.         End Function

    1973. 

  1973.         

    1974. 

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

    1975. 

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

    1976. 

  1976.             Return New OfficeAssignmentRow(builder)

    1977. 

  1977.         End Function

    1978. 

  1978.         

    1979. 

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

    1980. 

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

    1981. 

  1981.             Return GetType(OfficeAssignmentRow)

    1982. 

  1982.         End Function

    1983. 

  1983.         

    1984. 

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

    1985. 

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

    1986. 

  1986.             MyBase.OnRowChanged(e)

    1987. 

  1987.             If (Not (Me.OfficeAssignmentRowChangedEvent) Is Nothing) Then

    1988. 

  1988.                 RaiseEvent OfficeAssignmentRowChanged(Me, New OfficeAssignmentRowChangeEvent(CType(e.Row,OfficeAssignmentRow), e.Action))

    1989. 

  1989.             End If

    1990. 

  1990.         End Sub

    1991. 

  1991.         

    1992. 

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

    1993. 

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

    1994. 

  1994.             MyBase.OnRowChanging(e)

    1995. 

  1995.             If (Not (Me.OfficeAssignmentRowChangingEvent) Is Nothing) Then

    1996. 

  1996.                 RaiseEvent OfficeAssignmentRowChanging(Me, New OfficeAssignmentRowChangeEvent(CType(e.Row,OfficeAssignmentRow), e.Action))

    1997. 

  1997.             End If

    1998. 

  1998.         End Sub

    1999. 

  1999.         

    2000. 

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

    2001. 

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

    2002. 

  2002.             MyBase.OnRowDeleted(e)

    2003. 

  2003.             If (Not (Me.OfficeAssignmentRowDeletedEvent) Is Nothing) Then

    2004. 

  2004.                 RaiseEvent OfficeAssignmentRowDeleted(Me, New OfficeAssignmentRowChangeEvent(CType(e.Row,OfficeAssignmentRow), e.Action))

    2005. 

  2005.             End If

    2006. 

  2006.         End Sub

    2007. 

  2007.         

    2008. 

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

    2009. 

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

    2010. 

  2010.             MyBase.OnRowDeleting(e)

    2011. 

  2011.             If (Not (Me.OfficeAssignmentRowDeletingEvent) Is Nothing) Then

    2012. 

  2012.                 RaiseEvent OfficeAssignmentRowDeleting(Me, New OfficeAssignmentRowChangeEvent(CType(e.Row,OfficeAssignmentRow), e.Action))

    2013. 

  2013.             End If

    2014. 

  2014.         End Sub

    2015. 

  2015.         

    2016. 

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

    2017. 

  2017.         Public Sub RemoveOfficeAssignmentRow(ByVal row As OfficeAssignmentRow)

    2018. 

  2018.             Me.Rows.Remove(row)

    2019. 

  2019.         End Sub

    2020. 

  2020.         

    2021. 

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

    2022. 

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

    2023. 

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

    2024. 

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

    2025. 

  2025.             Dim ds As SchoolDataSet = New SchoolDataSet

    2026. 

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

    2027. 

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

    2028. 

  2028.             any1.MinOccurs = New Decimal(0)

    2029. 

  2029.             any1.MaxOccurs = Decimal.MaxValue

    2030. 

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

    2031. 

  2031.             sequence.Items.Add(any1)

    2032. 

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

    2033. 

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

    2034. 

  2034.             any2.MinOccurs = New Decimal(1)

    2035. 

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

    2036. 

  2036.             sequence.Items.Add(any2)

    2037. 

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

    2038. 

  2038.             attribute1.Name = "namespace"

    2039. 

  2039.             attribute1.FixedValue = ds.Namespace

    2040. 

  2040.             type.Attributes.Add(attribute1)

    2041. 

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

    2042. 

  2042.             attribute2.Name = "tableTypeName"

    2043. 

  2043.             attribute2.FixedValue = "OfficeAssignmentDataTable"

    2044. 

  2044.             type.Attributes.Add(attribute2)

    2045. 

  2045.             type.Particle = sequence

    2046. 

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

    2047. 

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

    2048. 

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

    2049. 

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

    2050. 

  2050.                 Try 

    2051. 

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

    2052. 

  2052.                     dsSchema.Write(s1)

    2053. 

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

    2054. 

  2054.                     Do While schemas.MoveNext

    2055. 

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

    2056. 

  2056.                         s2.SetLength(0)

    2057. 

  2057.                         schema.Write(s2)

    2058. 

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

    2059. 

  2059.                             s1.Position = 0

    2060. 

  2060.                             s2.Position = 0

    2061. 

  2061.                             

    2062. 

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

    2063. 

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

    2064. 

  2064.                                 

    2065. 

  2065.                                 

    2066. 

  2066.                             Loop

    2067. 

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

    2068. 

  2068.                                 Return type

    2069. 

  2069.                             End If

    2070. 

  2070.                         End If

    2071. 

  2071.                         

    2072. 

  2072.                     Loop

    2073. 

  2073.                 Finally

    2074. 

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

    2075. 

  2075.                         s1.Close

    2076. 

  2076.                     End If

    2077. 

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

    2078. 

  2078.                         s2.Close

    2079. 

  2079.                     End If

    2080. 

  2080.                 End Try

    2081. 

  2081.             End If

    2082. 

  2082.             xs.Add(dsSchema)

    2083. 

  2083.             Return type

    2084. 

  2084.         End Function

    2085. 

  2085.     End Class

    2086. 

  2086.     

    2087. 

  2087.     '''<summary>

    2088. 

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

    2089. 

  2089.     '''</summary>

    2090. 

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

    2091. 

  2091.      Global.System.Serializable(),  _

    2092. 

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

    2093. 

  2093.     Partial Public Class OnlineCourseDataTable

    2094. 

  2094.         Inherits Global.System.Data.TypedTableBase(Of OnlineCourseRow)

    2095. 

  2095.         

    2096. 

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

    2097. 

  2097.         

    2098. 

  2098.         Private columnURL As Global.System.Data.DataColumn

    2099. 

  2099.         

    2100. 

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

    2101. 

  2101.         Public Sub New()

    2102. 

  2102.             MyBase.New

    2103. 

  2103.             Me.TableName = "OnlineCourse"

    2104. 

  2104.             Me.BeginInit

    2105. 

  2105.             Me.InitClass

    2106. 

  2106.             Me.EndInit

    2107. 

  2107.         End Sub

    2108. 

  2108.         

    2109. 

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

    2110. 

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

    2111. 

  2111.             MyBase.New

    2112. 

  2112.             Me.TableName = table.TableName

    2113. 

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

    2114. 

  2114.                 Me.CaseSensitive = table.CaseSensitive

    2115. 

  2115.             End If

    2116. 

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

    2117. 

  2117.                 Me.Locale = table.Locale

    2118. 

  2118.             End If

    2119. 

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

    2120. 

  2120.                 Me.Namespace = table.Namespace

    2121. 

  2121.             End If

    2122. 

  2122.             Me.Prefix = table.Prefix

    2123. 

  2123.             Me.MinimumCapacity = table.MinimumCapacity

    2124. 

  2124.         End Sub

    2125. 

  2125.         

    2126. 

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

    2127. 

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

    2128. 

  2128.             MyBase.New(info, context)

    2129. 

  2129.             Me.InitVars

    2130. 

  2130.         End Sub

    2131. 

  2131.         

    2132. 

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

    2133. 

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

    2134. 

  2134.             Get

    2135. 

  2135.                 Return Me.columnCourseID

    2136. 

  2136.             End Get

    2137. 

  2137.         End Property

    2138. 

  2138.         

    2139. 

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

    2140. 

  2140.         Public ReadOnly Property URLColumn() As Global.System.Data.DataColumn

    2141. 

  2141.             Get

    2142. 

  2142.                 Return Me.columnURL

    2143. 

  2143.             End Get

    2144. 

  2144.         End Property

    2145. 

  2145.         

    2146. 

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

    2147. 

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

    2148. 

  2148.         Public ReadOnly Property Count() As Integer

    2149. 

  2149.             Get

    2150. 

  2150.                 Return Me.Rows.Count

    2151. 

  2151.             End Get

    2152. 

  2152.         End Property

    2153. 

  2153.         

    2154. 

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

    2155. 

  2155.         Public Default ReadOnly Property Item(ByVal index As Integer) As OnlineCourseRow

    2156. 

  2156.             Get

    2157. 

  2157.                 Return CType(Me.Rows(index),OnlineCourseRow)

    2158. 

  2158.             End Get

    2159. 

  2159.         End Property

    2160. 

  2160.         

    2161. 

  2161.         Public Event OnlineCourseRowChanging As OnlineCourseRowChangeEventHandler

    2162. 

  2162.         

    2163. 

  2163.         Public Event OnlineCourseRowChanged As OnlineCourseRowChangeEventHandler

    2164. 

  2164.         

    2165. 

  2165.         Public Event OnlineCourseRowDeleting As OnlineCourseRowChangeEventHandler

    2166. 

  2166.         

    2167. 

  2167.         Public Event OnlineCourseRowDeleted As OnlineCourseRowChangeEventHandler

    2168. 

  2168.         

    2169. 

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

    2170. 

  2170.         Public Overloads Sub AddOnlineCourseRow(ByVal row As OnlineCourseRow)

    2171. 

  2171.             Me.Rows.Add(row)

    2172. 

  2172.         End Sub

    2173. 

  2173.         

    2174. 

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

    2175. 

  2175.         Public Overloads Function AddOnlineCourseRow(ByVal parentCourseRowByFK_OnlineCourse_Course As CourseRow, ByVal URL As String) As OnlineCourseRow

    2176. 

  2176.             Dim rowOnlineCourseRow As OnlineCourseRow = CType(Me.NewRow,OnlineCourseRow)

    2177. 

  2177.             Dim columnValuesArray() As Object = New Object() {Nothing, URL}

    2178. 

  2178.             If (Not (parentCourseRowByFK_OnlineCourse_Course) Is Nothing) Then

    2179. 

  2179.                 columnValuesArray(0) = parentCourseRowByFK_OnlineCourse_Course(0)

    2180. 

  2180.             End If

    2181. 

  2181.             rowOnlineCourseRow.ItemArray = columnValuesArray

    2182. 

  2182.             Me.Rows.Add(rowOnlineCourseRow)

    2183. 

  2183.             Return rowOnlineCourseRow

    2184. 

  2184.         End Function

    2185. 

  2185.         

    2186. 

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

    2187. 

  2187.         Public Function FindByCourseID(ByVal CourseID As Integer) As OnlineCourseRow

    2188. 

  2188.             Return CType(Me.Rows.Find(New Object() {CourseID}),OnlineCourseRow)

    2189. 

  2189.         End Function

    2190. 

  2190.         

    2191. 

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

    2192. 

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

    2193. 

  2193.             Dim cln As OnlineCourseDataTable = CType(MyBase.Clone,OnlineCourseDataTable)

    2194. 

  2194.             cln.InitVars

    2195. 

  2195.             Return cln

    2196. 

  2196.         End Function

    2197. 

  2197.         

    2198. 

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

    2199. 

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

    2200. 

  2200.             Return New OnlineCourseDataTable

    2201. 

  2201.         End Function

    2202. 

  2202.         

    2203. 

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

    2204. 

  2204.         Friend Sub InitVars()

    2205. 

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

    2206. 

  2206.             Me.columnURL = MyBase.Columns("URL")

    2207. 

  2207.         End Sub

    2208. 

  2208.         

    2209. 

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

    2210. 

  2210.         Private Sub InitClass()

    2211. 

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

    2212. 

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

    2213. 

  2213.             Me.columnURL = New Global.System.Data.DataColumn("URL", GetType(String), Nothing, Global.System.Data.MappingType.Element)

    2214. 

  2214.             MyBase.Columns.Add(Me.columnURL)

    2215. 

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

    2216. 

  2216.             Me.columnCourseID.AllowDBNull = false

    2217. 

  2217.             Me.columnCourseID.Unique = true

    2218. 

  2218.             Me.columnURL.AllowDBNull = false

    2219. 

  2219.             Me.columnURL.MaxLength = 100

    2220. 

  2220.         End Sub

    2221. 

  2221.         

    2222. 

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

    2223. 

  2223.         Public Function NewOnlineCourseRow() As OnlineCourseRow

    2224. 

  2224.             Return CType(Me.NewRow,OnlineCourseRow)

    2225. 

  2225.         End Function

    2226. 

  2226.         

    2227. 

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

    2228. 

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

    2229. 

  2229.             Return New OnlineCourseRow(builder)

    2230. 

  2230.         End Function

    2231. 

  2231.         

    2232. 

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

    2233. 

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

    2234. 

  2234.             Return GetType(OnlineCourseRow)

    2235. 

  2235.         End Function

    2236. 

  2236.         

    2237. 

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

    2238. 

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

    2239. 

  2239.             MyBase.OnRowChanged(e)

    2240. 

  2240.             If (Not (Me.OnlineCourseRowChangedEvent) Is Nothing) Then

    2241. 

  2241.                 RaiseEvent OnlineCourseRowChanged(Me, New OnlineCourseRowChangeEvent(CType(e.Row,OnlineCourseRow), e.Action))

    2242. 

  2242.             End If

    2243. 

  2243.         End Sub

    2244. 

  2244.         

    2245. 

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

    2246. 

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

    2247. 

  2247.             MyBase.OnRowChanging(e)

    2248. 

  2248.             If (Not (Me.OnlineCourseRowChangingEvent) Is Nothing) Then

    2249. 

  2249.                 RaiseEvent OnlineCourseRowChanging(Me, New OnlineCourseRowChangeEvent(CType(e.Row,OnlineCourseRow), e.Action))

    2250. 

  2250.             End If

    2251. 

  2251.         End Sub

    2252. 

  2252.         

    2253. 

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

    2254. 

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

    2255. 

  2255.             MyBase.OnRowDeleted(e)

    2256. 

  2256.             If (Not (Me.OnlineCourseRowDeletedEvent) Is Nothing) Then

    2257. 

  2257.                 RaiseEvent OnlineCourseRowDeleted(Me, New OnlineCourseRowChangeEvent(CType(e.Row,OnlineCourseRow), e.Action))

    2258. 

  2258.             End If

    2259. 

  2259.         End Sub

    2260. 

  2260.         

    2261. 

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

    2262. 

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

    2263. 

  2263.             MyBase.OnRowDeleting(e)

    2264. 

  2264.             If (Not (Me.OnlineCourseRowDeletingEvent) Is Nothing) Then

    2265. 

  2265.                 RaiseEvent OnlineCourseRowDeleting(Me, New OnlineCourseRowChangeEvent(CType(e.Row,OnlineCourseRow), e.Action))

    2266. 

  2266.             End If

    2267. 

  2267.         End Sub

    2268. 

  2268.         

    2269. 

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

    2270. 

  2270.         Public Sub RemoveOnlineCourseRow(ByVal row As OnlineCourseRow)

    2271. 

  2271.             Me.Rows.Remove(row)

    2272. 

  2272.         End Sub

    2273. 

  2273.         

    2274. 

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

    2275. 

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

    2276. 

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

    2277. 

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

    2278. 

  2278.             Dim ds As SchoolDataSet = New SchoolDataSet

    2279. 

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

    2280. 

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

    2281. 

  2281.             any1.MinOccurs = New Decimal(0)

    2282. 

  2282.             any1.MaxOccurs = Decimal.MaxValue

    2283. 

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

    2284. 

  2284.             sequence.Items.Add(any1)

    2285. 

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

    2286. 

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

    2287. 

  2287.             any2.MinOccurs = New Decimal(1)

    2288. 

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

    2289. 

  2289.             sequence.Items.Add(any2)

    2290. 

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

    2291. 

  2291.             attribute1.Name = "namespace"

    2292. 

  2292.             attribute1.FixedValue = ds.Namespace

    2293. 

  2293.             type.Attributes.Add(attribute1)

    2294. 

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

    2295. 

  2295.             attribute2.Name = "tableTypeName"

    2296. 

  2296.             attribute2.FixedValue = "OnlineCourseDataTable"

    2297. 

  2297.             type.Attributes.Add(attribute2)

    2298. 

  2298.             type.Particle = sequence

    2299. 

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

    2300. 

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

    2301. 

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

    2302. 

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

    2303. 

  2303.                 Try 

    2304. 

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

    2305. 

  2305.                     dsSchema.Write(s1)

    2306. 

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

    2307. 

  2307.                     Do While schemas.MoveNext

    2308. 

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

    2309. 

  2309.                         s2.SetLength(0)

    2310. 

  2310.                         schema.Write(s2)

    2311. 

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

    2312. 

  2312.                             s1.Position = 0

    2313. 

  2313.                             s2.Position = 0

    2314. 

  2314.                             

    2315. 

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

    2316. 

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

    2317. 

  2317.                                 

    2318. 

  2318.                                 

    2319. 

  2319.                             Loop

    2320. 

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

    2321. 

  2321.                                 Return type

    2322. 

  2322.                             End If

    2323. 

  2323.                         End If

    2324. 

  2324.                         

    2325. 

  2325.                     Loop

    2326. 

  2326.                 Finally

    2327. 

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

    2328. 

  2328.                         s1.Close

    2329. 

  2329.                     End If

    2330. 

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

    2331. 

  2331.                         s2.Close

    2332. 

  2332.                     End If

    2333. 

  2333.                 End Try

    2334. 

  2334.             End If

    2335. 

  2335.             xs.Add(dsSchema)

    2336. 

  2336.             Return type

    2337. 

  2337.         End Function

    2338. 

  2338.     End Class

    2339. 

  2339.     

    2340. 

  2340.     '''<summary>

    2341. 

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

    2342. 

  2342.     '''</summary>

    2343. 

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

    2344. 

  2344.      Global.System.Serializable(),  _

    2345. 

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

    2346. 

  2346.     Partial Public Class OnsiteCourseDataTable

    2347. 

  2347.         Inherits Global.System.Data.TypedTableBase(Of OnsiteCourseRow)

    2348. 

  2348.         

    2349. 

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

    2350. 

  2350.         

    2351. 

  2351.         Private columnLocation As Global.System.Data.DataColumn

    2352. 

  2352.         

    2353. 

  2353.         Private columnDays As Global.System.Data.DataColumn

    2354. 

  2354.         

    2355. 

  2355.         Private columnTime As Global.System.Data.DataColumn

    2356. 

  2356.         

    2357. 

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

    2358. 

  2358.         Public Sub New()

    2359. 

  2359.             MyBase.New

    2360. 

  2360.             Me.TableName = "OnsiteCourse"

    2361. 

  2361.             Me.BeginInit

    2362. 

  2362.             Me.InitClass

    2363. 

  2363.             Me.EndInit

    2364. 

  2364.         End Sub

    2365. 

  2365.         

    2366. 

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

    2367. 

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

    2368. 

  2368.             MyBase.New

    2369. 

  2369.             Me.TableName = table.TableName

    2370. 

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

    2371. 

  2371.                 Me.CaseSensitive = table.CaseSensitive

    2372. 

  2372.             End If

    2373. 

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

    2374. 

  2374.                 Me.Locale = table.Locale

    2375. 

  2375.             End If

    2376. 

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

    2377. 

  2377.                 Me.Namespace = table.Namespace

    2378. 

  2378.             End If

    2379. 

  2379.             Me.Prefix = table.Prefix

    2380. 

  2380.             Me.MinimumCapacity = table.MinimumCapacity

    2381. 

  2381.         End Sub

    2382. 

  2382.         

    2383. 

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

    2384. 

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

    2385. 

  2385.             MyBase.New(info, context)

    2386. 

  2386.             Me.InitVars

    2387. 

  2387.         End Sub

    2388. 

  2388.         

    2389. 

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

    2390. 

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

    2391. 

  2391.             Get

    2392. 

  2392.                 Return Me.columnCourseID

    2393. 

  2393.             End Get

    2394. 

  2394.         End Property

    2395. 

  2395.         

    2396. 

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

    2397. 

  2397.         Public ReadOnly Property LocationColumn() As Global.System.Data.DataColumn

    2398. 

  2398.             Get

    2399. 

  2399.                 Return Me.columnLocation

    2400. 

  2400.             End Get

    2401. 

  2401.         End Property

    2402. 

  2402.         

    2403. 

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

    2404. 

  2404.         Public ReadOnly Property DaysColumn() As Global.System.Data.DataColumn

    2405. 

  2405.             Get

    2406. 

  2406.                 Return Me.columnDays

    2407. 

  2407.             End Get

    2408. 

  2408.         End Property

    2409. 

  2409.         

    2410. 

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

    2411. 

  2411.         Public ReadOnly Property TimeColumn() As Global.System.Data.DataColumn

    2412. 

  2412.             Get

    2413. 

  2413.                 Return Me.columnTime

    2414. 

  2414.             End Get

    2415. 

  2415.         End Property

    2416. 

  2416.         

    2417. 

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

    2418. 

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

    2419. 

  2419.         Public ReadOnly Property Count() As Integer

    2420. 

  2420.             Get

    2421. 

  2421.                 Return Me.Rows.Count

    2422. 

  2422.             End Get

    2423. 

  2423.         End Property

    2424. 

  2424.         

    2425. 

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

    2426. 

  2426.         Public Default ReadOnly Property Item(ByVal index As Integer) As OnsiteCourseRow

    2427. 

  2427.             Get

    2428. 

  2428.                 Return CType(Me.Rows(index),OnsiteCourseRow)

    2429. 

  2429.             End Get

    2430. 

  2430.         End Property

    2431. 

  2431.         

    2432. 

  2432.         Public Event OnsiteCourseRowChanging As OnsiteCourseRowChangeEventHandler

    2433. 

  2433.         

    2434. 

  2434.         Public Event OnsiteCourseRowChanged As OnsiteCourseRowChangeEventHandler

    2435. 

  2435.         

    2436. 

  2436.         Public Event OnsiteCourseRowDeleting As OnsiteCourseRowChangeEventHandler

    2437. 

  2437.         

    2438. 

  2438.         Public Event OnsiteCourseRowDeleted As OnsiteCourseRowChangeEventHandler

    2439. 

  2439.         

    2440. 

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

    2441. 

  2441.         Public Overloads Sub AddOnsiteCourseRow(ByVal row As OnsiteCourseRow)

    2442. 

  2442.             Me.Rows.Add(row)

    2443. 

  2443.         End Sub

    2444. 

  2444.         

    2445. 

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

    2446. 

  2446.         Public Overloads Function AddOnsiteCourseRow(ByVal parentCourseRowByFK_OnsiteCourse_Course As CourseRow, ByVal Location As String, ByVal Days As String, ByVal Time As Date) As OnsiteCourseRow

    2447. 

  2447.             Dim rowOnsiteCourseRow As OnsiteCourseRow = CType(Me.NewRow,OnsiteCourseRow)

    2448. 

  2448.             Dim columnValuesArray() As Object = New Object() {Nothing, Location, Days, Time}

    2449. 

  2449.             If (Not (parentCourseRowByFK_OnsiteCourse_Course) Is Nothing) Then

    2450. 

  2450.                 columnValuesArray(0) = parentCourseRowByFK_OnsiteCourse_Course(0)

    2451. 

  2451.             End If

    2452. 

  2452.             rowOnsiteCourseRow.ItemArray = columnValuesArray

    2453. 

  2453.             Me.Rows.Add(rowOnsiteCourseRow)

    2454. 

  2454.             Return rowOnsiteCourseRow

    2455. 

  2455.         End Function

    2456. 

  2456.         

    2457. 

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

    2458. 

  2458.         Public Function FindByCourseID(ByVal CourseID As Integer) As OnsiteCourseRow

    2459. 

  2459.             Return CType(Me.Rows.Find(New Object() {CourseID}),OnsiteCourseRow)

    2460. 

  2460.         End Function

    2461. 

  2461.         

    2462. 

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

    2463. 

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

    2464. 

  2464.             Dim cln As OnsiteCourseDataTable = CType(MyBase.Clone,OnsiteCourseDataTable)

    2465. 

  2465.             cln.InitVars

    2466. 

  2466.             Return cln

    2467. 

  2467.         End Function

    2468. 

  2468.         

    2469. 

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

    2470. 

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

    2471. 

  2471.             Return New OnsiteCourseDataTable

    2472. 

  2472.         End Function

    2473. 

  2473.         

    2474. 

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

    2475. 

  2475.         Friend Sub InitVars()

    2476. 

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

    2477. 

  2477.             Me.columnLocation = MyBase.Columns("Location")

    2478. 

  2478.             Me.columnDays = MyBase.Columns("Days")

    2479. 

  2479.             Me.columnTime = MyBase.Columns("Time")

    2480. 

  2480.         End Sub

    2481. 

  2481.         

    2482. 

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

    2483. 

  2483.         Private Sub InitClass()

    2484. 

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

    2485. 

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

    2486. 

  2486.             Me.columnLocation = New Global.System.Data.DataColumn("Location", GetType(String), Nothing, Global.System.Data.MappingType.Element)

    2487. 

  2487.             MyBase.Columns.Add(Me.columnLocation)

    2488. 

  2488.             Me.columnDays = New Global.System.Data.DataColumn("Days", GetType(String), Nothing, Global.System.Data.MappingType.Element)

    2489. 

  2489.             MyBase.Columns.Add(Me.columnDays)

    2490. 

  2490.             Me.columnTime = New Global.System.Data.DataColumn("Time", GetType(Date), Nothing, Global.System.Data.MappingType.Element)

    2491. 

  2491.             MyBase.Columns.Add(Me.columnTime)

    2492. 

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

    2493. 

  2493.             Me.columnCourseID.AllowDBNull = false

    2494. 

  2494.             Me.columnCourseID.Unique = true

    2495. 

  2495.             Me.columnLocation.AllowDBNull = false

    2496. 

  2496.             Me.columnLocation.MaxLength = 50

    2497. 

  2497.             Me.columnDays.AllowDBNull = false

    2498. 

  2498.             Me.columnDays.MaxLength = 50

    2499. 

  2499.             Me.columnTime.AllowDBNull = false

    2500. 

  2500.         End Sub

    2501. 

  2501.         

    2502. 

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

    2503. 

  2503.         Public Function NewOnsiteCourseRow() As OnsiteCourseRow

    2504. 

  2504.             Return CType(Me.NewRow,OnsiteCourseRow)

    2505. 

  2505.         End Function

    2506. 

  2506.         

    2507. 

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

    2508. 

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

    2509. 

  2509.             Return New OnsiteCourseRow(builder)

    2510. 

  2510.         End Function

    2511. 

  2511.         

    2512. 

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

    2513. 

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

    2514. 

  2514.             Return GetType(OnsiteCourseRow)

    2515. 

  2515.         End Function

    2516. 

  2516.         

    2517. 

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

    2518. 

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

    2519. 

  2519.             MyBase.OnRowChanged(e)

    2520. 

  2520.             If (Not (Me.OnsiteCourseRowChangedEvent) Is Nothing) Then

    2521. 

  2521.                 RaiseEvent OnsiteCourseRowChanged(Me, New OnsiteCourseRowChangeEvent(CType(e.Row,OnsiteCourseRow), e.Action))

    2522. 

  2522.             End If

    2523. 

  2523.         End Sub

    2524. 

  2524.         

    2525. 

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

    2526. 

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

    2527. 

  2527.             MyBase.OnRowChanging(e)

    2528. 

  2528.             If (Not (Me.OnsiteCourseRowChangingEvent) Is Nothing) Then

    2529. 

  2529.                 RaiseEvent OnsiteCourseRowChanging(Me, New OnsiteCourseRowChangeEvent(CType(e.Row,OnsiteCourseRow), e.Action))

    2530. 

  2530.             End If

    2531. 

  2531.         End Sub

    2532. 

  2532.         

    2533. 

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

    2534. 

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

    2535. 

  2535.             MyBase.OnRowDeleted(e)

    2536. 

  2536.             If (Not (Me.OnsiteCourseRowDeletedEvent) Is Nothing) Then

    2537. 

  2537.                 RaiseEvent OnsiteCourseRowDeleted(Me, New OnsiteCourseRowChangeEvent(CType(e.Row,OnsiteCourseRow), e.Action))

    2538. 

  2538.             End If

    2539. 

  2539.         End Sub

    2540. 

  2540.         

    2541. 

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

    2542. 

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

    2543. 

  2543.             MyBase.OnRowDeleting(e)

    2544. 

  2544.             If (Not (Me.OnsiteCourseRowDeletingEvent) Is Nothing) Then

    2545. 

  2545.                 RaiseEvent OnsiteCourseRowDeleting(Me, New OnsiteCourseRowChangeEvent(CType(e.Row,OnsiteCourseRow), e.Action))

    2546. 

  2546.             End If

    2547. 

  2547.         End Sub

    2548. 

  2548.         

    2549. 

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

    2550. 

  2550.         Public Sub RemoveOnsiteCourseRow(ByVal row As OnsiteCourseRow)

    2551. 

  2551.             Me.Rows.Remove(row)

    2552. 

  2552.         End Sub

    2553. 

  2553.         

    2554. 

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

    2555. 

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

    2556. 

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

    2557. 

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

    2558. 

  2558.             Dim ds As SchoolDataSet = New SchoolDataSet

    2559. 

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

    2560. 

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

    2561. 

  2561.             any1.MinOccurs = New Decimal(0)

    2562. 

  2562.             any1.MaxOccurs = Decimal.MaxValue

    2563. 

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

    2564. 

  2564.             sequence.Items.Add(any1)

    2565. 

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

    2566. 

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

    2567. 

  2567.             any2.MinOccurs = New Decimal(1)

    2568. 

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

    2569. 

  2569.             sequence.Items.Add(any2)

    2570. 

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

    2571. 

  2571.             attribute1.Name = "namespace"

    2572. 

  2572.             attribute1.FixedValue = ds.Namespace

    2573. 

  2573.             type.Attributes.Add(attribute1)

    2574. 

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

    2575. 

  2575.             attribute2.Name = "tableTypeName"

    2576. 

  2576.             attribute2.FixedValue = "OnsiteCourseDataTable"

    2577. 

  2577.             type.Attributes.Add(attribute2)

    2578. 

  2578.             type.Particle = sequence

    2579. 

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

    2580. 

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

    2581. 

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

    2582. 

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

    2583. 

  2583.                 Try 

    2584. 

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

    2585. 

  2585.                     dsSchema.Write(s1)

    2586. 

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

    2587. 

  2587.                     Do While schemas.MoveNext

    2588. 

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

    2589. 

  2589.                         s2.SetLength(0)

    2590. 

  2590.                         schema.Write(s2)

    2591. 

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

    2592. 

  2592.                             s1.Position = 0

    2593. 

  2593.                             s2.Position = 0

    2594. 

  2594.                             

    2595. 

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

    2596. 

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

    2597. 

  2597.                                 

    2598. 

  2598.                                 

    2599. 

  2599.                             Loop

    2600. 

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

    2601. 

  2601.                                 Return type

    2602. 

  2602.                             End If

    2603. 

  2603.                         End If

    2604. 

  2604.                         

    2605. 

  2605.                     Loop

    2606. 

  2606.                 Finally

    2607. 

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

    2608. 

  2608.                         s1.Close

    2609. 

  2609.                     End If

    2610. 

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

    2611. 

  2611.                         s2.Close

    2612. 

  2612.                     End If

    2613. 

  2613.                 End Try

    2614. 

  2614.             End If

    2615. 

  2615.             xs.Add(dsSchema)

    2616. 

  2616.             Return type

    2617. 

  2617.         End Function

    2618. 

  2618.     End Class

    2619. 

  2619.     

    2620. 

  2620.     '''<summary>

    2621. 

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

    2622. 

  2622.     '''</summary>

    2623. 

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

    2624. 

  2624.      Global.System.Serializable(),  _

    2625. 

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

    2626. 

  2626.     Partial Public Class PersonDataTable

    2627. 

  2627.         Inherits Global.System.Data.TypedTableBase(Of PersonRow)

    2628. 

  2628.         

    2629. 

  2629.         Private columnPersonID As Global.System.Data.DataColumn

    2630. 

  2630.         

    2631. 

  2631.         Private columnLastName As Global.System.Data.DataColumn

    2632. 

  2632.         

    2633. 

  2633.         Private columnFirstName As Global.System.Data.DataColumn

    2634. 

  2634.         

    2635. 

  2635.         Private columnPersonCategory As Global.System.Data.DataColumn

    2636. 

  2636.         

    2637. 

  2637.         Private columnHireDate As Global.System.Data.DataColumn

    2638. 

  2638.         

    2639. 

  2639.         Private columnEnrollmentDate As Global.System.Data.DataColumn

    2640. 

  2640.         

    2641. 

  2641.         Private columnPicture As Global.System.Data.DataColumn

    2642. 

  2642.         

    2643. 

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

    2644. 

  2644.         Public Sub New()

    2645. 

  2645.             MyBase.New

    2646. 

  2646.             Me.TableName = "Person"

    2647. 

  2647.             Me.BeginInit

    2648. 

  2648.             Me.InitClass

    2649. 

  2649.             Me.EndInit

    2650. 

  2650.         End Sub

    2651. 

  2651.         

    2652. 

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

    2653. 

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

    2654. 

  2654.             MyBase.New

    2655. 

  2655.             Me.TableName = table.TableName

    2656. 

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

    2657. 

  2657.                 Me.CaseSensitive = table.CaseSensitive

    2658. 

  2658.             End If

    2659. 

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

    2660. 

  2660.                 Me.Locale = table.Locale

    2661. 

  2661.             End If

    2662. 

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

    2663. 

  2663.                 Me.Namespace = table.Namespace

    2664. 

  2664.             End If

    2665. 

  2665.             Me.Prefix = table.Prefix

    2666. 

  2666.             Me.MinimumCapacity = table.MinimumCapacity

    2667. 

  2667.         End Sub

    2668. 

  2668.         

    2669. 

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

    2670. 

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

    2671. 

  2671.             MyBase.New(info, context)

    2672. 

  2672.             Me.InitVars

    2673. 

  2673.         End Sub

    2674. 

  2674.         

    2675. 

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

    2676. 

  2676.         Public ReadOnly Property PersonIDColumn() As Global.System.Data.DataColumn

    2677. 

  2677.             Get

    2678. 

  2678.                 Return Me.columnPersonID

    2679. 

  2679.             End Get

    2680. 

  2680.         End Property

    2681. 

  2681.         

    2682. 

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

    2683. 

  2683.         Public ReadOnly Property LastNameColumn() As Global.System.Data.DataColumn

    2684. 

  2684.             Get

    2685. 

  2685.                 Return Me.columnLastName

    2686. 

  2686.             End Get

    2687. 

  2687.         End Property

    2688. 

  2688.         

    2689. 

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

    2690. 

  2690.         Public ReadOnly Property FirstNameColumn() As Global.System.Data.DataColumn

    2691. 

  2691.             Get

    2692. 

  2692.                 Return Me.columnFirstName

    2693. 

  2693.             End Get

    2694. 

  2694.         End Property

    2695. 

  2695.         

    2696. 

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

    2697. 

  2697.         Public ReadOnly Property PersonCategoryColumn() As Global.System.Data.DataColumn

    2698. 

  2698.             Get

    2699. 

  2699.                 Return Me.columnPersonCategory

    2700. 

  2700.             End Get

    2701. 

  2701.         End Property

    2702. 

  2702.         

    2703. 

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

    2704. 

  2704.         Public ReadOnly Property HireDateColumn() As Global.System.Data.DataColumn

    2705. 

  2705.             Get

    2706. 

  2706.                 Return Me.columnHireDate

    2707. 

  2707.             End Get

    2708. 

  2708.         End Property

    2709. 

  2709.         

    2710. 

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

    2711. 

  2711.         Public ReadOnly Property EnrollmentDateColumn() As Global.System.Data.DataColumn

    2712. 

  2712.             Get

    2713. 

  2713.                 Return Me.columnEnrollmentDate

    2714. 

  2714.             End Get

    2715. 

  2715.         End Property

    2716. 

  2716.         

    2717. 

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

    2718. 

  2718.         Public ReadOnly Property PictureColumn() As Global.System.Data.DataColumn

    2719. 

  2719.             Get

    2720. 

  2720.                 Return Me.columnPicture

    2721. 

  2721.             End Get

    2722. 

  2722.         End Property

    2723. 

  2723.         

    2724. 

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

    2725. 

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

    2726. 

  2726.         Public ReadOnly Property Count() As Integer

    2727. 

  2727.             Get

    2728. 

  2728.                 Return Me.Rows.Count

    2729. 

  2729.             End Get

    2730. 

  2730.         End Property

    2731. 

  2731.         

    2732. 

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

    2733. 

  2733.         Public Default ReadOnly Property Item(ByVal index As Integer) As PersonRow

    2734. 

  2734.             Get

    2735. 

  2735.                 Return CType(Me.Rows(index),PersonRow)

    2736. 

  2736.             End Get

    2737. 

  2737.         End Property

    2738. 

  2738.         

    2739. 

  2739.         Public Event PersonRowChanging As PersonRowChangeEventHandler

    2740. 

  2740.         

    2741. 

  2741.         Public Event PersonRowChanged As PersonRowChangeEventHandler

    2742. 

  2742.         

    2743. 

  2743.         Public Event PersonRowDeleting As PersonRowChangeEventHandler

    2744. 

  2744.         

    2745. 

  2745.         Public Event PersonRowDeleted As PersonRowChangeEventHandler

    2746. 

  2746.         

    2747. 

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

    2748. 

  2748.         Public Overloads Sub AddPersonRow(ByVal row As PersonRow)

    2749. 

  2749.             Me.Rows.Add(row)

    2750. 

  2750.         End Sub

    2751. 

  2751.         

    2752. 

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

    2753. 

  2753.         Public Overloads Function AddPersonRow(ByVal LastName As String, ByVal FirstName As String, ByVal PersonCategory As Short, ByVal HireDate As Date, ByVal EnrollmentDate As Date, ByVal Picture() As Byte) As PersonRow

    2754. 

  2754.             Dim rowPersonRow As PersonRow = CType(Me.NewRow,PersonRow)

    2755. 

  2755.             Dim columnValuesArray() As Object = New Object() {Nothing, LastName, FirstName, PersonCategory, HireDate, EnrollmentDate, Picture}

    2756. 

  2756.             rowPersonRow.ItemArray = columnValuesArray

    2757. 

  2757.             Me.Rows.Add(rowPersonRow)

    2758. 

  2758.             Return rowPersonRow

    2759. 

  2759.         End Function

    2760. 

  2760.         

    2761. 

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

    2762. 

  2762.         Public Function FindByPersonID(ByVal PersonID As Integer) As PersonRow

    2763. 

  2763.             Return CType(Me.Rows.Find(New Object() {PersonID}),PersonRow)

    2764. 

  2764.         End Function

    2765. 

  2765.         

    2766. 

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

    2767. 

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

    2768. 

  2768.             Dim cln As PersonDataTable = CType(MyBase.Clone,PersonDataTable)

    2769. 

  2769.             cln.InitVars

    2770. 

  2770.             Return cln

    2771. 

  2771.         End Function

    2772. 

  2772.         

    2773. 

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

    2774. 

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

    2775. 

  2775.             Return New PersonDataTable

    2776. 

  2776.         End Function

    2777. 

  2777.         

    2778. 

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

    2779. 

  2779.         Friend Sub InitVars()

    2780. 

  2780.             Me.columnPersonID = MyBase.Columns("PersonID")

    2781. 

  2781.             Me.columnLastName = MyBase.Columns("LastName")

    2782. 

  2782.             Me.columnFirstName = MyBase.Columns("FirstName")

    2783. 

  2783.             Me.columnPersonCategory = MyBase.Columns("PersonCategory")

    2784. 

  2784.             Me.columnHireDate = MyBase.Columns("HireDate")

    2785. 

  2785.             Me.columnEnrollmentDate = MyBase.Columns("EnrollmentDate")

    2786. 

  2786.             Me.columnPicture = MyBase.Columns("Picture")

    2787. 

  2787.         End Sub

    2788. 

  2788.         

    2789. 

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

    2790. 

  2790.         Private Sub InitClass()

    2791. 

  2791.             Me.columnPersonID = New Global.System.Data.DataColumn("PersonID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)

    2792. 

  2792.             MyBase.Columns.Add(Me.columnPersonID)

    2793. 

  2793.             Me.columnLastName = New Global.System.Data.DataColumn("LastName", GetType(String), Nothing, Global.System.Data.MappingType.Element)

    2794. 

  2794.             MyBase.Columns.Add(Me.columnLastName)

    2795. 

  2795.             Me.columnFirstName = New Global.System.Data.DataColumn("FirstName", GetType(String), Nothing, Global.System.Data.MappingType.Element)

    2796. 

  2796.             MyBase.Columns.Add(Me.columnFirstName)

    2797. 

  2797.             Me.columnPersonCategory = New Global.System.Data.DataColumn("PersonCategory", GetType(Short), Nothing, Global.System.Data.MappingType.Element)

    2798. 

  2798.             MyBase.Columns.Add(Me.columnPersonCategory)

    2799. 

  2799.             Me.columnHireDate = New Global.System.Data.DataColumn("HireDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element)

    2800. 

  2800.             MyBase.Columns.Add(Me.columnHireDate)

    2801. 

  2801.             Me.columnEnrollmentDate = New Global.System.Data.DataColumn("EnrollmentDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element)

    2802. 

  2802.             MyBase.Columns.Add(Me.columnEnrollmentDate)

    2803. 

  2803.             Me.columnPicture = New Global.System.Data.DataColumn("Picture", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element)

    2804. 

  2804.             MyBase.Columns.Add(Me.columnPicture)

    2805. 

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

    2806. 

  2806.             Me.columnPersonID.AutoIncrement = true

    2807. 

  2807.             Me.columnPersonID.AutoIncrementSeed = -1

    2808. 

  2808.             Me.columnPersonID.AutoIncrementStep = -1

    2809. 

  2809.             Me.columnPersonID.AllowDBNull = false

    2810. 

  2810.             Me.columnPersonID.ReadOnly = true

    2811. 

  2811.             Me.columnPersonID.Unique = true

    2812. 

  2812.             Me.columnLastName.AllowDBNull = false

    2813. 

  2813.             Me.columnLastName.MaxLength = 50

    2814. 

  2814.             Me.columnFirstName.AllowDBNull = false

    2815. 

  2815.             Me.columnFirstName.MaxLength = 50

    2816. 

  2816.             Me.columnPersonCategory.AllowDBNull = false

    2817. 

  2817.         End Sub

    2818. 

  2818.         

    2819. 

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

    2820. 

  2820.         Public Function NewPersonRow() As PersonRow

    2821. 

  2821.             Return CType(Me.NewRow,PersonRow)

    2822. 

  2822.         End Function

    2823. 

  2823.         

    2824. 

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

    2825. 

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

    2826. 

  2826.             Return New PersonRow(builder)

    2827. 

  2827.         End Function

    2828. 

  2828.         

    2829. 

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

    2830. 

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

    2831. 

  2831.             Return GetType(PersonRow)

    2832. 

  2832.         End Function

    2833. 

  2833.         

    2834. 

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

    2835. 

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

    2836. 

  2836.             MyBase.OnRowChanged(e)

    2837. 

  2837.             If (Not (Me.PersonRowChangedEvent) Is Nothing) Then

    2838. 

  2838.                 RaiseEvent PersonRowChanged(Me, New PersonRowChangeEvent(CType(e.Row,PersonRow), e.Action))

    2839. 

  2839.             End If

    2840. 

  2840.         End Sub

    2841. 

  2841.         

    2842. 

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

    2843. 

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

    2844. 

  2844.             MyBase.OnRowChanging(e)

    2845. 

  2845.             If (Not (Me.PersonRowChangingEvent) Is Nothing) Then

    2846. 

  2846.                 RaiseEvent PersonRowChanging(Me, New PersonRowChangeEvent(CType(e.Row,PersonRow), e.Action))

    2847. 

  2847.             End If

    2848. 

  2848.         End Sub

    2849. 

  2849.         

    2850. 

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

    2851. 

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

    2852. 

  2852.             MyBase.OnRowDeleted(e)

    2853. 

  2853.             If (Not (Me.PersonRowDeletedEvent) Is Nothing) Then

    2854. 

  2854.                 RaiseEvent PersonRowDeleted(Me, New PersonRowChangeEvent(CType(e.Row,PersonRow), e.Action))

    2855. 

  2855.             End If

    2856. 

  2856.         End Sub

    2857. 

  2857.         

    2858. 

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

    2859. 

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

    2860. 

  2860.             MyBase.OnRowDeleting(e)

    2861. 

  2861.             If (Not (Me.PersonRowDeletingEvent) Is Nothing) Then

    2862. 

  2862.                 RaiseEvent PersonRowDeleting(Me, New PersonRowChangeEvent(CType(e.Row,PersonRow), e.Action))

    2863. 

  2863.             End If

    2864. 

  2864.         End Sub

    2865. 

  2865.         

    2866. 

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

    2867. 

  2867.         Public Sub RemovePersonRow(ByVal row As PersonRow)

    2868. 

  2868.             Me.Rows.Remove(row)

    2869. 

  2869.         End Sub

    2870. 

  2870.         

    2871. 

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

    2872. 

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

    2873. 

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

    2874. 

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

    2875. 

  2875.             Dim ds As SchoolDataSet = New SchoolDataSet

    2876. 

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

    2877. 

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

    2878. 

  2878.             any1.MinOccurs = New Decimal(0)

    2879. 

  2879.             any1.MaxOccurs = Decimal.MaxValue

    2880. 

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

    2881. 

  2881.             sequence.Items.Add(any1)

    2882. 

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

    2883. 

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

    2884. 

  2884.             any2.MinOccurs = New Decimal(1)

    2885. 

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

    2886. 

  2886.             sequence.Items.Add(any2)

    2887. 

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

    2888. 

  2888.             attribute1.Name = "namespace"

    2889. 

  2889.             attribute1.FixedValue = ds.Namespace

    2890. 

  2890.             type.Attributes.Add(attribute1)

    2891. 

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

    2892. 

  2892.             attribute2.Name = "tableTypeName"

    2893. 

  2893.             attribute2.FixedValue = "PersonDataTable"

    2894. 

  2894.             type.Attributes.Add(attribute2)

    2895. 

  2895.             type.Particle = sequence

    2896. 

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

    2897. 

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

    2898. 

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

    2899. 

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

    2900. 

  2900.                 Try 

    2901. 

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

    2902. 

  2902.                     dsSchema.Write(s1)

    2903. 

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

    2904. 

  2904.                     Do While schemas.MoveNext

    2905. 

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

    2906. 

  2906.                         s2.SetLength(0)

    2907. 

  2907.                         schema.Write(s2)

    2908. 

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

    2909. 

  2909.                             s1.Position = 0

    2910. 

  2910.                             s2.Position = 0

    2911. 

  2911.                             

    2912. 

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

    2913. 

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

    2914. 

  2914.                                 

    2915. 

  2915.                                 

    2916. 

  2916.                             Loop

    2917. 

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

    2918. 

  2918.                                 Return type

    2919. 

  2919.                             End If

    2920. 

  2920.                         End If

    2921. 

  2921.                         

    2922. 

  2922.                     Loop

    2923. 

  2923.                 Finally

    2924. 

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

    2925. 

  2925.                         s1.Close

    2926. 

  2926.                     End If

    2927. 

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

    2928. 

  2928.                         s2.Close

    2929. 

  2929.                     End If

    2930. 

  2930.                 End Try

    2931. 

  2931.             End If

    2932. 

  2932.             xs.Add(dsSchema)

    2933. 

  2933.             Return type

    2934. 

  2934.         End Function

    2935. 

  2935.     End Class

    2936. 

  2936.     

    2937. 

  2937.     '''<summary>

    2938. 

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

    2939. 

  2939.     '''</summary>

    2940. 

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

    2941. 

  2941.      Global.System.Serializable(),  _

    2942. 

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

    2943. 

  2943.     Partial Public Class GetStudentGradesDataTable

    2944. 

  2944.         Inherits Global.System.Data.TypedTableBase(Of GetStudentGradesRow)

    2945. 

  2945.         

    2946. 

  2946.         Private columnEnrollmentID As Global.System.Data.DataColumn

    2947. 

  2947.         

    2948. 

  2948.         Private columnGrade As Global.System.Data.DataColumn

    2949. 

  2949.         

    2950. 

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

    2951. 

  2951.         Public Sub New()

    2952. 

  2952.             MyBase.New

    2953. 

  2953.             Me.TableName = "GetStudentGrades"

    2954. 

  2954.             Me.BeginInit

    2955. 

  2955.             Me.InitClass

    2956. 

  2956.             Me.EndInit

    2957. 

  2957.         End Sub

    2958. 

  2958.         

    2959. 

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

    2960. 

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

    2961. 

  2961.             MyBase.New

    2962. 

  2962.             Me.TableName = table.TableName

    2963. 

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

    2964. 

  2964.                 Me.CaseSensitive = table.CaseSensitive

    2965. 

  2965.             End If

    2966. 

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

    2967. 

  2967.                 Me.Locale = table.Locale

    2968. 

  2968.             End If

    2969. 

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

    2970. 

  2970.                 Me.Namespace = table.Namespace

    2971. 

  2971.             End If

    2972. 

  2972.             Me.Prefix = table.Prefix

    2973. 

  2973.             Me.MinimumCapacity = table.MinimumCapacity

    2974. 

  2974.         End Sub

    2975. 

  2975.         

    2976. 

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

    2977. 

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

    2978. 

  2978.             MyBase.New(info, context)

    2979. 

  2979.             Me.InitVars

    2980. 

  2980.         End Sub

    2981. 

  2981.         

    2982. 

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

    2983. 

  2983.         Public ReadOnly Property EnrollmentIDColumn() As Global.System.Data.DataColumn

    2984. 

  2984.             Get

    2985. 

  2985.                 Return Me.columnEnrollmentID

    2986. 

  2986.             End Get

    2987. 

  2987.         End Property

    2988. 

  2988.         

    2989. 

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

    2990. 

  2990.         Public ReadOnly Property GradeColumn() As Global.System.Data.DataColumn

    2991. 

  2991.             Get

    2992. 

  2992.                 Return Me.columnGrade

    2993. 

  2993.             End Get

    2994. 

  2994.         End Property

    2995. 

  2995.         

    2996. 

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

    2997. 

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

    2998. 

  2998.         Public ReadOnly Property Count() As Integer

    2999. 

  2999.             Get

    3000. 

  3000.                 Return Me.Rows.Count

    3001. 

  3001.             End Get

    3002. 

  3002.         End Property

    3003. 

  3003.         

    3004. 

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

    3005. 

  3005.         Public Default ReadOnly Property Item(ByVal index As Integer) As GetStudentGradesRow

    3006. 

  3006.             Get

    3007. 

  3007.                 Return CType(Me.Rows(index),GetStudentGradesRow)

    3008. 

  3008.             End Get

    3009. 

  3009.         End Property

    3010. 

  3010.         

    3011. 

  3011.         Public Event GetStudentGradesRowChanging As GetStudentGradesRowChangeEventHandler

    3012. 

  3012.         

    3013. 

  3013.         Public Event GetStudentGradesRowChanged As GetStudentGradesRowChangeEventHandler

    3014. 

  3014.         

    3015. 

  3015.         Public Event GetStudentGradesRowDeleting As GetStudentGradesRowChangeEventHandler

    3016. 

  3016.         

    3017. 

  3017.         Public Event GetStudentGradesRowDeleted As GetStudentGradesRowChangeEventHandler

    3018. 

  3018.         

    3019. 

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

    3020. 

  3020.         Public Overloads Sub AddGetStudentGradesRow(ByVal row As GetStudentGradesRow)

    3021. 

  3021.             Me.Rows.Add(row)

    3022. 

  3022.         End Sub

    3023. 

  3023.         

    3024. 

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

    3025. 

  3025.         Public Overloads Function AddGetStudentGradesRow(ByVal Grade As Decimal) As GetStudentGradesRow

    3026. 

  3026.             Dim rowGetStudentGradesRow As GetStudentGradesRow = CType(Me.NewRow,GetStudentGradesRow)

    3027. 

  3027.             Dim columnValuesArray() As Object = New Object() {Nothing, Grade}

    3028. 

  3028.             rowGetStudentGradesRow.ItemArray = columnValuesArray

    3029. 

  3029.             Me.Rows.Add(rowGetStudentGradesRow)

    3030. 

  3030.             Return rowGetStudentGradesRow

    3031. 

  3031.         End Function

    3032. 

  3032.         

    3033. 

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

    3034. 

  3034.         Public Function FindByEnrollmentID(ByVal EnrollmentID As Integer) As GetStudentGradesRow

    3035. 

  3035.             Return CType(Me.Rows.Find(New Object() {EnrollmentID}),GetStudentGradesRow)

    3036. 

  3036.         End Function

    3037. 

  3037.         

    3038. 

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

    3039. 

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

    3040. 

  3040.             Dim cln As GetStudentGradesDataTable = CType(MyBase.Clone,GetStudentGradesDataTable)

    3041. 

  3041.             cln.InitVars

    3042. 

  3042.             Return cln

    3043. 

  3043.         End Function

    3044. 

  3044.         

    3045. 

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

    3046. 

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

    3047. 

  3047.             Return New GetStudentGradesDataTable

    3048. 

  3048.         End Function

    3049. 

  3049.         

    3050. 

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

    3051. 

  3051.         Friend Sub InitVars()

    3052. 

  3052.             Me.columnEnrollmentID = MyBase.Columns("EnrollmentID")

    3053. 

  3053.             Me.columnGrade = MyBase.Columns("Grade")

    3054. 

  3054.         End Sub

    3055. 

  3055.         

    3056. 

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

    3057. 

  3057.         Private Sub InitClass()

    3058. 

  3058.             Me.columnEnrollmentID = New Global.System.Data.DataColumn("EnrollmentID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)

    3059. 

  3059.             MyBase.Columns.Add(Me.columnEnrollmentID)

    3060. 

  3060.             Me.columnGrade = New Global.System.Data.DataColumn("Grade", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)

    3061. 

  3061.             MyBase.Columns.Add(Me.columnGrade)

    3062. 

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

    3063. 

  3063.             Me.columnEnrollmentID.AutoIncrement = true

    3064. 

  3064.             Me.columnEnrollmentID.AllowDBNull = false

    3065. 

  3065.             Me.columnEnrollmentID.ReadOnly = true

    3066. 

  3066.             Me.columnEnrollmentID.Unique = true

    3067. 

  3067.         End Sub

    3068. 

  3068.         

    3069. 

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

    3070. 

  3070.         Public Function NewGetStudentGradesRow() As GetStudentGradesRow

    3071. 

  3071.             Return CType(Me.NewRow,GetStudentGradesRow)

    3072. 

  3072.         End Function

    3073. 

  3073.         

    3074. 

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

    3075. 

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

    3076. 

  3076.             Return New GetStudentGradesRow(builder)

    3077. 

  3077.         End Function

    3078. 

  3078.         

    3079. 

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

    3080. 

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

    3081. 

  3081.             Return GetType(GetStudentGradesRow)

    3082. 

  3082.         End Function

    3083. 

  3083.         

    3084. 

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

    3085. 

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

    3086. 

  3086.             MyBase.OnRowChanged(e)

    3087. 

  3087.             If (Not (Me.GetStudentGradesRowChangedEvent) Is Nothing) Then

    3088. 

  3088.                 RaiseEvent GetStudentGradesRowChanged(Me, New GetStudentGradesRowChangeEvent(CType(e.Row,GetStudentGradesRow), e.Action))

    3089. 

  3089.             End If

    3090. 

  3090.         End Sub

    3091. 

  3091.         

    3092. 

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

    3093. 

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

    3094. 

  3094.             MyBase.OnRowChanging(e)

    3095. 

  3095.             If (Not (Me.GetStudentGradesRowChangingEvent) Is Nothing) Then

    3096. 

  3096.                 RaiseEvent GetStudentGradesRowChanging(Me, New GetStudentGradesRowChangeEvent(CType(e.Row,GetStudentGradesRow), e.Action))

    3097. 

  3097.             End If

    3098. 

  3098.         End Sub

    3099. 

  3099.         

    3100. 

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

    3101. 

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

    3102. 

  3102.             MyBase.OnRowDeleted(e)

    3103. 

  3103.             If (Not (Me.GetStudentGradesRowDeletedEvent) Is Nothing) Then

    3104. 

  3104.                 RaiseEvent GetStudentGradesRowDeleted(Me, New GetStudentGradesRowChangeEvent(CType(e.Row,GetStudentGradesRow), e.Action))

    3105. 

  3105.             End If

    3106. 

  3106.         End Sub

    3107. 

  3107.         

    3108. 

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

    3109. 

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

    3110. 

  3110.             MyBase.OnRowDeleting(e)

    3111. 

  3111.             If (Not (Me.GetStudentGradesRowDeletingEvent) Is Nothing) Then

    3112. 

  3112.                 RaiseEvent GetStudentGradesRowDeleting(Me, New GetStudentGradesRowChangeEvent(CType(e.Row,GetStudentGradesRow), e.Action))

    3113. 

  3113.             End If

    3114. 

  3114.         End Sub

    3115. 

  3115.         

    3116. 

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

    3117. 

  3117.         Public Sub RemoveGetStudentGradesRow(ByVal row As GetStudentGradesRow)

    3118. 

  3118.             Me.Rows.Remove(row)

    3119. 

  3119.         End Sub

    3120. 

  3120.         

    3121. 

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

    3122. 

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

    3123. 

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

    3124. 

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

    3125. 

  3125.             Dim ds As SchoolDataSet = New SchoolDataSet

    3126. 

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

    3127. 

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

    3128. 

  3128.             any1.MinOccurs = New Decimal(0)

    3129. 

  3129.             any1.MaxOccurs = Decimal.MaxValue

    3130. 

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

    3131. 

  3131.             sequence.Items.Add(any1)

    3132. 

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

    3133. 

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

    3134. 

  3134.             any2.MinOccurs = New Decimal(1)

    3135. 

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

    3136. 

  3136.             sequence.Items.Add(any2)

    3137. 

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

    3138. 

  3138.             attribute1.Name = "namespace"

    3139. 

  3139.             attribute1.FixedValue = ds.Namespace

    3140. 

  3140.             type.Attributes.Add(attribute1)

    3141. 

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

    3142. 

  3142.             attribute2.Name = "tableTypeName"

    3143. 

  3143.             attribute2.FixedValue = "GetStudentGradesDataTable"

    3144. 

  3144.             type.Attributes.Add(attribute2)

    3145. 

  3145.             type.Particle = sequence

    3146. 

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

    3147. 

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

    3148. 

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

    3149. 

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

    3150. 

  3150.                 Try 

    3151. 

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

    3152. 

  3152.                     dsSchema.Write(s1)

    3153. 

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

    3154. 

  3154.                     Do While schemas.MoveNext

    3155. 

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

    3156. 

  3156.                         s2.SetLength(0)

    3157. 

  3157.                         schema.Write(s2)

    3158. 

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

    3159. 

  3159.                             s1.Position = 0

    3160. 

  3160.                             s2.Position = 0

    3161. 

  3161.                             

    3162. 

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

    3163. 

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

    3164. 

  3164.                                 

    3165. 

  3165.                                 

    3166. 

  3166.                             Loop

    3167. 

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

    3168. 

  3168.                                 Return type

    3169. 

  3169.                             End If

    3170. 

  3170.                         End If

    3171. 

  3171.                         

    3172. 

  3172.                     Loop

    3173. 

  3173.                 Finally

    3174. 

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

    3175. 

  3175.                         s1.Close

    3176. 

  3176.                     End If

    3177. 

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

    3178. 

  3178.                         s2.Close

    3179. 

  3179.                     End If

    3180. 

  3180.                 End Try

    3181. 

  3181.             End If

    3182. 

  3182.             xs.Add(dsSchema)

    3183. 

  3183.             Return type

    3184. 

  3184.         End Function

    3185. 

  3185.     End Class

    3186. 

  3186.     

    3187. 

  3187.     '''<summary>

    3188. 

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

    3189. 

  3189.     '''</summary>

    3190. 

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

    3191. 

  3191.      Global.System.Serializable(),  _

    3192. 

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

    3193. 

  3193.     Partial Public Class InsertOfficeAssignmentDataTable

    3194. 

  3194.         Inherits Global.System.Data.TypedTableBase(Of InsertOfficeAssignmentRow)

    3195. 

  3195.         

    3196. 

  3196.         Private columnTimestamp As Global.System.Data.DataColumn

    3197. 

  3197.         

    3198. 

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

    3199. 

  3199.         Public Sub New()

    3200. 

  3200.             MyBase.New

    3201. 

  3201.             Me.TableName = "InsertOfficeAssignment"

    3202. 

  3202.             Me.BeginInit

    3203. 

  3203.             Me.InitClass

    3204. 

  3204.             Me.EndInit

    3205. 

  3205.         End Sub

    3206. 

  3206.         

    3207. 

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

    3208. 

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

    3209. 

  3209.             MyBase.New

    3210. 

  3210.             Me.TableName = table.TableName

    3211. 

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

    3212. 

  3212.                 Me.CaseSensitive = table.CaseSensitive

    3213. 

  3213.             End If

    3214. 

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

    3215. 

  3215.                 Me.Locale = table.Locale

    3216. 

  3216.             End If

    3217. 

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

    3218. 

  3218.                 Me.Namespace = table.Namespace

    3219. 

  3219.             End If

    3220. 

  3220.             Me.Prefix = table.Prefix

    3221. 

  3221.             Me.MinimumCapacity = table.MinimumCapacity

    3222. 

  3222.         End Sub

    3223. 

  3223.         

    3224. 

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

    3225. 

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

    3226. 

  3226.             MyBase.New(info, context)

    3227. 

  3227.             Me.InitVars

    3228. 

  3228.         End Sub

    3229. 

  3229.         

    3230. 

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

    3231. 

  3231.         Public ReadOnly Property TimestampColumn() As Global.System.Data.DataColumn

    3232. 

  3232.             Get

    3233. 

  3233.                 Return Me.columnTimestamp

    3234. 

  3234.             End Get

    3235. 

  3235.         End Property

    3236. 

  3236.         

    3237. 

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

    3238. 

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

    3239. 

  3239.         Public ReadOnly Property Count() As Integer

    3240. 

  3240.             Get

    3241. 

  3241.                 Return Me.Rows.Count

    3242. 

  3242.             End Get

    3243. 

  3243.         End Property

    3244. 

  3244.         

    3245. 

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

    3246. 

  3246.         Public Default ReadOnly Property Item(ByVal index As Integer) As InsertOfficeAssignmentRow

    3247. 

  3247.             Get

    3248. 

  3248.                 Return CType(Me.Rows(index),InsertOfficeAssignmentRow)

    3249. 

  3249.             End Get

    3250. 

  3250.         End Property

    3251. 

  3251.         

    3252. 

  3252.         Public Event InsertOfficeAssignmentRowChanging As InsertOfficeAssignmentRowChangeEventHandler

    3253. 

  3253.         

    3254. 

  3254.         Public Event InsertOfficeAssignmentRowChanged As InsertOfficeAssignmentRowChangeEventHandler

    3255. 

  3255.         

    3256. 

  3256.         Public Event InsertOfficeAssignmentRowDeleting As InsertOfficeAssignmentRowChangeEventHandler

    3257. 

  3257.         

    3258. 

  3258.         Public Event InsertOfficeAssignmentRowDeleted As InsertOfficeAssignmentRowChangeEventHandler

    3259. 

  3259.         

    3260. 

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

    3261. 

  3261.         Public Overloads Sub AddInsertOfficeAssignmentRow(ByVal row As InsertOfficeAssignmentRow)

    3262. 

  3262.             Me.Rows.Add(row)

    3263. 

  3263.         End Sub

    3264. 

  3264.         

    3265. 

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

    3266. 

  3266.         Public Overloads Function AddInsertOfficeAssignmentRow(ByVal Timestamp() As Byte) As InsertOfficeAssignmentRow

    3267. 

  3267.             Dim rowInsertOfficeAssignmentRow As InsertOfficeAssignmentRow = CType(Me.NewRow,InsertOfficeAssignmentRow)

    3268. 

  3268.             Dim columnValuesArray() As Object = New Object() {Timestamp}

    3269. 

  3269.             rowInsertOfficeAssignmentRow.ItemArray = columnValuesArray

    3270. 

  3270.             Me.Rows.Add(rowInsertOfficeAssignmentRow)

    3271. 

  3271.             Return rowInsertOfficeAssignmentRow

    3272. 

  3272.         End Function

    3273. 

  3273.         

    3274. 

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

    3275. 

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

    3276. 

  3276.             Dim cln As InsertOfficeAssignmentDataTable = CType(MyBase.Clone,InsertOfficeAssignmentDataTable)

    3277. 

  3277.             cln.InitVars

    3278. 

  3278.             Return cln

    3279. 

  3279.         End Function

    3280. 

  3280.         

    3281. 

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

    3282. 

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

    3283. 

  3283.             Return New InsertOfficeAssignmentDataTable

    3284. 

  3284.         End Function

    3285. 

  3285.         

    3286. 

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

    3287. 

  3287.         Friend Sub InitVars()

    3288. 

  3288.             Me.columnTimestamp = MyBase.Columns("Timestamp")

    3289. 

  3289.         End Sub

    3290. 

  3290.         

    3291. 

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

    3292. 

  3292.         Private Sub InitClass()

    3293. 

  3293.             Me.columnTimestamp = New Global.System.Data.DataColumn("Timestamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element)

    3294. 

  3294.             MyBase.Columns.Add(Me.columnTimestamp)

    3295. 

  3295.             Me.columnTimestamp.ReadOnly = true

    3296. 

  3296.         End Sub

    3297. 

  3297.         

    3298. 

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

    3299. 

  3299.         Public Function NewInsertOfficeAssignmentRow() As InsertOfficeAssignmentRow

    3300. 

  3300.             Return CType(Me.NewRow,InsertOfficeAssignmentRow)

    3301. 

  3301.         End Function

    3302. 

  3302.         

    3303. 

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

    3304. 

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

    3305. 

  3305.             Return New InsertOfficeAssignmentRow(builder)

    3306. 

  3306.         End Function

    3307. 

  3307.         

    3308. 

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

    3309. 

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

    3310. 

  3310.             Return GetType(InsertOfficeAssignmentRow)

    3311. 

  3311.         End Function

    3312. 

  3312.         

    3313. 

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

    3314. 

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

    3315. 

  3315.             MyBase.OnRowChanged(e)

    3316. 

  3316.             If (Not (Me.InsertOfficeAssignmentRowChangedEvent) Is Nothing) Then

    3317. 

  3317.                 RaiseEvent InsertOfficeAssignmentRowChanged(Me, New InsertOfficeAssignmentRowChangeEvent(CType(e.Row,InsertOfficeAssignmentRow), e.Action))

    3318. 

  3318.             End If

    3319. 

  3319.         End Sub

    3320. 

  3320.         

    3321. 

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

    3322. 

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

    3323. 

  3323.             MyBase.OnRowChanging(e)

    3324. 

  3324.             If (Not (Me.InsertOfficeAssignmentRowChangingEvent) Is Nothing) Then

    3325. 

  3325.                 RaiseEvent InsertOfficeAssignmentRowChanging(Me, New InsertOfficeAssignmentRowChangeEvent(CType(e.Row,InsertOfficeAssignmentRow), e.Action))

    3326. 

  3326.             End If

    3327. 

  3327.         End Sub

    3328. 

  3328.         

    3329. 

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

    3330. 

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

    3331. 

  3331.             MyBase.OnRowDeleted(e)

    3332. 

  3332.             If (Not (Me.InsertOfficeAssignmentRowDeletedEvent) Is Nothing) Then

    3333. 

  3333.                 RaiseEvent InsertOfficeAssignmentRowDeleted(Me, New InsertOfficeAssignmentRowChangeEvent(CType(e.Row,InsertOfficeAssignmentRow), e.Action))

    3334. 

  3334.             End If

    3335. 

  3335.         End Sub

    3336. 

  3336.         

    3337. 

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

    3338. 

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

    3339. 

  3339.             MyBase.OnRowDeleting(e)

    3340. 

  3340.             If (Not (Me.InsertOfficeAssignmentRowDeletingEvent) Is Nothing) Then

    3341. 

  3341.                 RaiseEvent InsertOfficeAssignmentRowDeleting(Me, New InsertOfficeAssignmentRowChangeEvent(CType(e.Row,InsertOfficeAssignmentRow), e.Action))

    3342. 

  3342.             End If

    3343. 

  3343.         End Sub

    3344. 

  3344.         

    3345. 

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

    3346. 

  3346.         Public Sub RemoveInsertOfficeAssignmentRow(ByVal row As InsertOfficeAssignmentRow)

    3347. 

  3347.             Me.Rows.Remove(row)

    3348. 

  3348.         End Sub

    3349. 

  3349.         

    3350. 

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

    3351. 

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

    3352. 

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

    3353. 

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

    3354. 

  3354.             Dim ds As SchoolDataSet = New SchoolDataSet

    3355. 

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

    3356. 

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

    3357. 

  3357.             any1.MinOccurs = New Decimal(0)

    3358. 

  3358.             any1.MaxOccurs = Decimal.MaxValue

    3359. 

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

    3360. 

  3360.             sequence.Items.Add(any1)

    3361. 

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

    3362. 

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

    3363. 

  3363.             any2.MinOccurs = New Decimal(1)

    3364. 

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

    3365. 

  3365.             sequence.Items.Add(any2)

    3366. 

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

    3367. 

  3367.             attribute1.Name = "namespace"

    3368. 

  3368.             attribute1.FixedValue = ds.Namespace

    3369. 

  3369.             type.Attributes.Add(attribute1)

    3370. 

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

    3371. 

  3371.             attribute2.Name = "tableTypeName"

    3372. 

  3372.             attribute2.FixedValue = "InsertOfficeAssignmentDataTable"

    3373. 

  3373.             type.Attributes.Add(attribute2)

    3374. 

  3374.             type.Particle = sequence

    3375. 

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

    3376. 

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

    3377. 

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

    3378. 

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

    3379. 

  3379.                 Try 

    3380. 

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

    3381. 

  3381.                     dsSchema.Write(s1)

    3382. 

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

    3383. 

  3383.                     Do While schemas.MoveNext

    3384. 

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

    3385. 

  3385.                         s2.SetLength(0)

    3386. 

  3386.                         schema.Write(s2)

    3387. 

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

    3388. 

  3388.                             s1.Position = 0

    3389. 

  3389.                             s2.Position = 0

    3390. 

  3390.                             

    3391. 

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

    3392. 

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

    3393. 

  3393.                                 

    3394. 

  3394.                                 

    3395. 

  3395.                             Loop

    3396. 

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

    3397. 

  3397.                                 Return type

    3398. 

  3398.                             End If

    3399. 

  3399.                         End If

    3400. 

  3400.                         

    3401. 

  3401.                     Loop

    3402. 

  3402.                 Finally

    3403. 

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

    3404. 

  3404.                         s1.Close

    3405. 

  3405.                     End If

    3406. 

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

    3407. 

  3407.                         s2.Close

    3408. 

  3408.                     End If

    3409. 

  3409.                 End Try

    3410. 

  3410.             End If

    3411. 

  3411.             xs.Add(dsSchema)

    3412. 

  3412.             Return type

    3413. 

  3413.         End Function

    3414. 

  3414.     End Class

    3415. 

  3415.     

    3416. 

  3416.     '''<summary>

    3417. 

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

    3418. 

  3418.     '''</summary>

    3419. 

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

    3420. 

  3420.      Global.System.Serializable(),  _

    3421. 

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

    3422. 

  3422.     Partial Public Class InsertPersonDataTable

    3423. 

  3423.         Inherits Global.System.Data.TypedTableBase(Of InsertPersonRow)

    3424. 

  3424.         

    3425. 

  3425.         Private columnNewPersonID As Global.System.Data.DataColumn

    3426. 

  3426.         

    3427. 

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

    3428. 

  3428.         Public Sub New()

    3429. 

  3429.             MyBase.New

    3430. 

  3430.             Me.TableName = "InsertPerson"

    3431. 

  3431.             Me.BeginInit

    3432. 

  3432.             Me.InitClass

    3433. 

  3433.             Me.EndInit

    3434. 

  3434.         End Sub

    3435. 

  3435.         

    3436. 

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

    3437. 

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

    3438. 

  3438.             MyBase.New

    3439. 

  3439.             Me.TableName = table.TableName

    3440. 

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

    3441. 

  3441.                 Me.CaseSensitive = table.CaseSensitive

    3442. 

  3442.             End If

    3443. 

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

    3444. 

  3444.                 Me.Locale = table.Locale

    3445. 

  3445.             End If

    3446. 

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

    3447. 

  3447.                 Me.Namespace = table.Namespace

    3448. 

  3448.             End If

    3449. 

  3449.             Me.Prefix = table.Prefix

    3450. 

  3450.             Me.MinimumCapacity = table.MinimumCapacity

    3451. 

  3451.         End Sub

    3452. 

  3452.         

    3453. 

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

    3454. 

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

    3455. 

  3455.             MyBase.New(info, context)

    3456. 

  3456.             Me.InitVars

    3457. 

  3457.         End Sub

    3458. 

  3458.         

    3459. 

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

    3460. 

  3460.         Public ReadOnly Property NewPersonIDColumn() As Global.System.Data.DataColumn

    3461. 

  3461.             Get

    3462. 

  3462.                 Return Me.columnNewPersonID

    3463. 

  3463.             End Get

    3464. 

  3464.         End Property

    3465. 

  3465.         

    3466. 

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

    3467. 

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

    3468. 

  3468.         Public ReadOnly Property Count() As Integer

    3469. 

  3469.             Get

    3470. 

  3470.                 Return Me.Rows.Count

    3471. 

  3471.             End Get

    3472. 

  3472.         End Property

    3473. 

  3473.         

    3474. 

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

    3475. 

  3475.         Public Default ReadOnly Property Item(ByVal index As Integer) As InsertPersonRow

    3476. 

  3476.             Get

    3477. 

  3477.                 Return CType(Me.Rows(index),InsertPersonRow)

    3478. 

  3478.             End Get

    3479. 

  3479.         End Property

    3480. 

  3480.         

    3481. 

  3481.         Public Event InsertPersonRowChanging As InsertPersonRowChangeEventHandler

    3482. 

  3482.         

    3483. 

  3483.         Public Event InsertPersonRowChanged As InsertPersonRowChangeEventHandler

    3484. 

  3484.         

    3485. 

  3485.         Public Event InsertPersonRowDeleting As InsertPersonRowChangeEventHandler

    3486. 

  3486.         

    3487. 

  3487.         Public Event InsertPersonRowDeleted As InsertPersonRowChangeEventHandler

    3488. 

  3488.         

    3489. 

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

    3490. 

  3490.         Public Overloads Sub AddInsertPersonRow(ByVal row As InsertPersonRow)

    3491. 

  3491.             Me.Rows.Add(row)

    3492. 

  3492.         End Sub

    3493. 

  3493.         

    3494. 

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

    3495. 

  3495.         Public Overloads Function AddInsertPersonRow(ByVal NewPersonID As Decimal) As InsertPersonRow

    3496. 

  3496.             Dim rowInsertPersonRow As InsertPersonRow = CType(Me.NewRow,InsertPersonRow)

    3497. 

  3497.             Dim columnValuesArray() As Object = New Object() {NewPersonID}

    3498. 

  3498.             rowInsertPersonRow.ItemArray = columnValuesArray

    3499. 

  3499.             Me.Rows.Add(rowInsertPersonRow)

    3500. 

  3500.             Return rowInsertPersonRow

    3501. 

  3501.         End Function

    3502. 

  3502.         

    3503. 

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

    3504. 

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

    3505. 

  3505.             Dim cln As InsertPersonDataTable = CType(MyBase.Clone,InsertPersonDataTable)

    3506. 

  3506.             cln.InitVars

    3507. 

  3507.             Return cln

    3508. 

  3508.         End Function

    3509. 

  3509.         

    3510. 

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

    3511. 

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

    3512. 

  3512.             Return New InsertPersonDataTable

    3513. 

  3513.         End Function

    3514. 

  3514.         

    3515. 

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

    3516. 

  3516.         Friend Sub InitVars()

    3517. 

  3517.             Me.columnNewPersonID = MyBase.Columns("NewPersonID")

    3518. 

  3518.         End Sub

    3519. 

  3519.         

    3520. 

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

    3521. 

  3521.         Private Sub InitClass()

    3522. 

  3522.             Me.columnNewPersonID = New Global.System.Data.DataColumn("NewPersonID", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)

    3523. 

  3523.             MyBase.Columns.Add(Me.columnNewPersonID)

    3524. 

  3524.             Me.columnNewPersonID.ReadOnly = true

    3525. 

  3525.         End Sub

    3526. 

  3526.         

    3527. 

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

    3528. 

  3528.         Public Function NewInsertPersonRow() As InsertPersonRow

    3529. 

  3529.             Return CType(Me.NewRow,InsertPersonRow)

    3530. 

  3530.         End Function

    3531. 

  3531.         

    3532. 

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

    3533. 

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

    3534. 

  3534.             Return New InsertPersonRow(builder)

    3535. 

  3535.         End Function

    3536. 

  3536.         

    3537. 

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

    3538. 

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

    3539. 

  3539.             Return GetType(InsertPersonRow)

    3540. 

  3540.         End Function

    3541. 

  3541.         

    3542. 

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

    3543. 

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

    3544. 

  3544.             MyBase.OnRowChanged(e)

    3545. 

  3545.             If (Not (Me.InsertPersonRowChangedEvent) Is Nothing) Then

    3546. 

  3546.                 RaiseEvent InsertPersonRowChanged(Me, New InsertPersonRowChangeEvent(CType(e.Row,InsertPersonRow), e.Action))

    3547. 

  3547.             End If

    3548. 

  3548.         End Sub

    3549. 

  3549.         

    3550. 

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

    3551. 

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

    3552. 

  3552.             MyBase.OnRowChanging(e)

    3553. 

  3553.             If (Not (Me.InsertPersonRowChangingEvent) Is Nothing) Then

    3554. 

  3554.                 RaiseEvent InsertPersonRowChanging(Me, New InsertPersonRowChangeEvent(CType(e.Row,InsertPersonRow), e.Action))

    3555. 

  3555.             End If

    3556. 

  3556.         End Sub

    3557. 

  3557.         

    3558. 

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

    3559. 

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

    3560. 

  3560.             MyBase.OnRowDeleted(e)

    3561. 

  3561.             If (Not (Me.InsertPersonRowDeletedEvent) Is Nothing) Then

    3562. 

  3562.                 RaiseEvent InsertPersonRowDeleted(Me, New InsertPersonRowChangeEvent(CType(e.Row,InsertPersonRow), e.Action))

    3563. 

  3563.             End If

    3564. 

  3564.         End Sub

    3565. 

  3565.         

    3566. 

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

    3567. 

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

    3568. 

  3568.             MyBase.OnRowDeleting(e)

    3569. 

  3569.             If (Not (Me.InsertPersonRowDeletingEvent) Is Nothing) Then

    3570. 

  3570.                 RaiseEvent InsertPersonRowDeleting(Me, New InsertPersonRowChangeEvent(CType(e.Row,InsertPersonRow), e.Action))

    3571. 

  3571.             End If

    3572. 

  3572.         End Sub

    3573. 

  3573.         

    3574. 

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

    3575. 

  3575.         Public Sub RemoveInsertPersonRow(ByVal row As InsertPersonRow)

    3576. 

  3576.             Me.Rows.Remove(row)

    3577. 

  3577.         End Sub

    3578. 

  3578.         

    3579. 

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

    3580. 

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

    3581. 

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

    3582. 

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

    3583. 

  3583.             Dim ds As SchoolDataSet = New SchoolDataSet

    3584. 

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

    3585. 

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

    3586. 

  3586.             any1.MinOccurs = New Decimal(0)

    3587. 

  3587.             any1.MaxOccurs = Decimal.MaxValue

    3588. 

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

    3589. 

  3589.             sequence.Items.Add(any1)

    3590. 

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

    3591. 

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

    3592. 

  3592.             any2.MinOccurs = New Decimal(1)

    3593. 

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

    3594. 

  3594.             sequence.Items.Add(any2)

    3595. 

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

    3596. 

  3596.             attribute1.Name = "namespace"

    3597. 

  3597.             attribute1.FixedValue = ds.Namespace

    3598. 

  3598.             type.Attributes.Add(attribute1)

    3599. 

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

    3600. 

  3600.             attribute2.Name = "tableTypeName"

    3601. 

  3601.             attribute2.FixedValue = "InsertPersonDataTable"

    3602. 

  3602.             type.Attributes.Add(attribute2)

    3603. 

  3603.             type.Particle = sequence

    3604. 

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

    3605. 

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

    3606. 

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

    3607. 

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

    3608. 

  3608.                 Try 

    3609. 

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

    3610. 

  3610.                     dsSchema.Write(s1)

    3611. 

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

    3612. 

  3612.                     Do While schemas.MoveNext

    3613. 

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

    3614. 

  3614.                         s2.SetLength(0)

    3615. 

  3615.                         schema.Write(s2)

    3616. 

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

    3617. 

  3617.                             s1.Position = 0

    3618. 

  3618.                             s2.Position = 0

    3619. 

  3619.                             

    3620. 

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

    3621. 

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

    3622. 

  3622.                                 

    3623. 

  3623.                                 

    3624. 

  3624.                             Loop

    3625. 

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

    3626. 

  3626.                                 Return type

    3627. 

  3627.                             End If

    3628. 

  3628.                         End If

    3629. 

  3629.                         

    3630. 

  3630.                     Loop

    3631. 

  3631.                 Finally

    3632. 

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

    3633. 

  3633.                         s1.Close

    3634. 

  3634.                     End If

    3635. 

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

    3636. 

  3636.                         s2.Close

    3637. 

  3637.                     End If

    3638. 

  3638.                 End Try

    3639. 

  3639.             End If

    3640. 

  3640.             xs.Add(dsSchema)

    3641. 

  3641.             Return type

    3642. 

  3642.         End Function

    3643. 

  3643.     End Class

    3644. 

  3644.     

    3645. 

  3645.     '''<summary>

    3646. 

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

    3647. 

  3647.     '''</summary>

    3648. 

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

    3649. 

  3649.      Global.System.Serializable(),  _

    3650. 

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

    3651. 

  3651.     Partial Public Class UpdateOfficeAssignmentDataTable

    3652. 

  3652.         Inherits Global.System.Data.TypedTableBase(Of UpdateOfficeAssignmentRow)

    3653. 

  3653.         

    3654. 

  3654.         Private columnTimestamp As Global.System.Data.DataColumn

    3655. 

  3655.         

    3656. 

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

    3657. 

  3657.         Public Sub New()

    3658. 

  3658.             MyBase.New

    3659. 

  3659.             Me.TableName = "UpdateOfficeAssignment"

    3660. 

  3660.             Me.BeginInit

    3661. 

  3661.             Me.InitClass

    3662. 

  3662.             Me.EndInit

    3663. 

  3663.         End Sub

    3664. 

  3664.         

    3665. 

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

    3666. 

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

    3667. 

  3667.             MyBase.New

    3668. 

  3668.             Me.TableName = table.TableName

    3669. 

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

    3670. 

  3670.                 Me.CaseSensitive = table.CaseSensitive

    3671. 

  3671.             End If

    3672. 

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

    3673. 

  3673.                 Me.Locale = table.Locale

    3674. 

  3674.             End If

    3675. 

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

    3676. 

  3676.                 Me.Namespace = table.Namespace

    3677. 

  3677.             End If

    3678. 

  3678.             Me.Prefix = table.Prefix

    3679. 

  3679.             Me.MinimumCapacity = table.MinimumCapacity

    3680. 

  3680.         End Sub

    3681. 

  3681.         

    3682. 

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

    3683. 

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

    3684. 

  3684.             MyBase.New(info, context)

    3685. 

  3685.             Me.InitVars

    3686. 

  3686.         End Sub

    3687. 

  3687.         

    3688. 

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

    3689. 

  3689.         Public ReadOnly Property TimestampColumn() As Global.System.Data.DataColumn

    3690. 

  3690.             Get

    3691. 

  3691.                 Return Me.columnTimestamp

    3692. 

  3692.             End Get

    3693. 

  3693.         End Property

    3694. 

  3694.         

    3695. 

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

    3696. 

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

    3697. 

  3697.         Public ReadOnly Property Count() As Integer

    3698. 

  3698.             Get

    3699. 

  3699.                 Return Me.Rows.Count

    3700. 

  3700.             End Get

    3701. 

  3701.         End Property

    3702. 

  3702.         

    3703. 

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

    3704. 

  3704.         Public Default ReadOnly Property Item(ByVal index As Integer) As UpdateOfficeAssignmentRow

    3705. 

  3705.             Get

    3706. 

  3706.                 Return CType(Me.Rows(index),UpdateOfficeAssignmentRow)

    3707. 

  3707.             End Get

    3708. 

  3708.         End Property

    3709. 

  3709.         

    3710. 

  3710.         Public Event UpdateOfficeAssignmentRowChanging As UpdateOfficeAssignmentRowChangeEventHandler

    3711. 

  3711.         

    3712. 

  3712.         Public Event UpdateOfficeAssignmentRowChanged As UpdateOfficeAssignmentRowChangeEventHandler

    3713. 

  3713.         

    3714. 

  3714.         Public Event UpdateOfficeAssignmentRowDeleting As UpdateOfficeAssignmentRowChangeEventHandler

    3715. 

  3715.         

    3716. 

  3716.         Public Event UpdateOfficeAssignmentRowDeleted As UpdateOfficeAssignmentRowChangeEventHandler

    3717. 

  3717.         

    3718. 

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

    3719. 

  3719.         Public Overloads Sub AddUpdateOfficeAssignmentRow(ByVal row As UpdateOfficeAssignmentRow)

    3720. 

  3720.             Me.Rows.Add(row)

    3721. 

  3721.         End Sub

    3722. 

  3722.         

    3723. 

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

    3724. 

  3724.         Public Overloads Function AddUpdateOfficeAssignmentRow(ByVal Timestamp() As Byte) As UpdateOfficeAssignmentRow

    3725. 

  3725.             Dim rowUpdateOfficeAssignmentRow As UpdateOfficeAssignmentRow = CType(Me.NewRow,UpdateOfficeAssignmentRow)

    3726. 

  3726.             Dim columnValuesArray() As Object = New Object() {Timestamp}

    3727. 

  3727.             rowUpdateOfficeAssignmentRow.ItemArray = columnValuesArray

    3728. 

  3728.             Me.Rows.Add(rowUpdateOfficeAssignmentRow)

    3729. 

  3729.             Return rowUpdateOfficeAssignmentRow

    3730. 

  3730.         End Function

    3731. 

  3731.         

    3732. 

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

    3733. 

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

    3734. 

  3734.             Dim cln As UpdateOfficeAssignmentDataTable = CType(MyBase.Clone,UpdateOfficeAssignmentDataTable)

    3735. 

  3735.             cln.InitVars

    3736. 

  3736.             Return cln

    3737. 

  3737.         End Function

    3738. 

  3738.         

    3739. 

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

    3740. 

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

    3741. 

  3741.             Return New UpdateOfficeAssignmentDataTable

    3742. 

  3742.         End Function

    3743. 

  3743.         

    3744. 

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

    3745. 

  3745.         Friend Sub InitVars()

    3746. 

  3746.             Me.columnTimestamp = MyBase.Columns("Timestamp")

    3747. 

  3747.         End Sub

    3748. 

  3748.         

    3749. 

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

    3750. 

  3750.         Private Sub InitClass()

    3751. 

  3751.             Me.columnTimestamp = New Global.System.Data.DataColumn("Timestamp", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element)

    3752. 

  3752.             MyBase.Columns.Add(Me.columnTimestamp)

    3753. 

  3753.             Me.columnTimestamp.ReadOnly = true

    3754. 

  3754.         End Sub

    3755. 

  3755.         

    3756. 

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

    3757. 

  3757.         Public Function NewUpdateOfficeAssignmentRow() As UpdateOfficeAssignmentRow

    3758. 

  3758.             Return CType(Me.NewRow,UpdateOfficeAssignmentRow)

    3759. 

  3759.         End Function

    3760. 

  3760.         

    3761. 

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

    3762. 

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

    3763. 

  3763.             Return New UpdateOfficeAssignmentRow(builder)

    3764. 

  3764.         End Function

    3765. 

  3765.         

    3766. 

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

    3767. 

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

    3768. 

  3768.             Return GetType(UpdateOfficeAssignmentRow)

    3769. 

  3769.         End Function

    3770. 

  3770.         

    3771. 

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

    3772. 

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

    3773. 

  3773.             MyBase.OnRowChanged(e)

    3774. 

  3774.             If (Not (Me.UpdateOfficeAssignmentRowChangedEvent) Is Nothing) Then

    3775. 

  3775.                 RaiseEvent UpdateOfficeAssignmentRowChanged(Me, New UpdateOfficeAssignmentRowChangeEvent(CType(e.Row,UpdateOfficeAssignmentRow), e.Action))

    3776. 

  3776.             End If

    3777. 

  3777.         End Sub

    3778. 

  3778.         

    3779. 

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

    3780. 

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

    3781. 

  3781.             MyBase.OnRowChanging(e)

    3782. 

  3782.             If (Not (Me.UpdateOfficeAssignmentRowChangingEvent) Is Nothing) Then

    3783. 

  3783.                 RaiseEvent UpdateOfficeAssignmentRowChanging(Me, New UpdateOfficeAssignmentRowChangeEvent(CType(e.Row,UpdateOfficeAssignmentRow), e.Action))

    3784. 

  3784.             End If

    3785. 

  3785.         End Sub

    3786. 

  3786.         

    3787. 

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

    3788. 

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

    3789. 

  3789.             MyBase.OnRowDeleted(e)

    3790. 

  3790.             If (Not (Me.UpdateOfficeAssignmentRowDeletedEvent) Is Nothing) Then

    3791. 

  3791.                 RaiseEvent UpdateOfficeAssignmentRowDeleted(Me, New UpdateOfficeAssignmentRowChangeEvent(CType(e.Row,UpdateOfficeAssignmentRow), e.Action))

    3792. 

  3792.             End If

    3793. 

  3793.         End Sub

    3794. 

  3794.         

    3795. 

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

    3796. 

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

    3797. 

  3797.             MyBase.OnRowDeleting(e)

    3798. 

  3798.             If (Not (Me.UpdateOfficeAssignmentRowDeletingEvent) Is Nothing) Then

    3799. 

  3799.                 RaiseEvent UpdateOfficeAssignmentRowDeleting(Me, New UpdateOfficeAssignmentRowChangeEvent(CType(e.Row,UpdateOfficeAssignmentRow), e.Action))

    3800. 

  3800.             End If

    3801. 

  3801.         End Sub

    3802. 

  3802.         

    3803. 

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

    3804. 

  3804.         Public Sub RemoveUpdateOfficeAssignmentRow(ByVal row As UpdateOfficeAssignmentRow)

    3805. 

  3805.             Me.Rows.Remove(row)

    3806. 

  3806.         End Sub

    3807. 

  3807.         

    3808. 

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

    3809. 

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

    3810. 

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

    3811. 

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

    3812. 

  3812.             Dim ds As SchoolDataSet = New SchoolDataSet

    3813. 

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

    3814. 

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

    3815. 

  3815.             any1.MinOccurs = New Decimal(0)

    3816. 

  3816.             any1.MaxOccurs = Decimal.MaxValue

    3817. 

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

    3818. 

  3818.             sequence.Items.Add(any1)

    3819. 

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

    3820. 

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

    3821. 

  3821.             any2.MinOccurs = New Decimal(1)

    3822. 

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

    3823. 

  3823.             sequence.Items.Add(any2)

    3824. 

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

    3825. 

  3825.             attribute1.Name = "namespace"

    3826. 

  3826.             attribute1.FixedValue = ds.Namespace

    3827. 

  3827.             type.Attributes.Add(attribute1)

    3828. 

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

    3829. 

  3829.             attribute2.Name = "tableTypeName"

    3830. 

  3830.             attribute2.FixedValue = "UpdateOfficeAssignmentDataTable"

    3831. 

  3831.             type.Attributes.Add(attribute2)

    3832. 

  3832.             type.Particle = sequence

    3833. 

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

    3834. 

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

    3835. 

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

    3836. 

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

    3837. 

  3837.                 Try 

    3838. 

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

    3839. 

  3839.                     dsSchema.Write(s1)

    3840. 

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

    3841. 

  3841.                     Do While schemas.MoveNext

    3842. 

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

    3843. 

  3843.                         s2.SetLength(0)

    3844. 

  3844.                         schema.Write(s2)

    3845. 

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

    3846. 

  3846.                             s1.Position = 0

    3847. 

  3847.                             s2.Position = 0

    3848. 

  3848.                             

    3849. 

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

    3850. 

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

    3851. 

  3851.                                 

    3852. 

  3852.                                 

    3853. 

  3853.                             Loop

    3854. 

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

    3855. 

  3855.                                 Return type

    3856. 

  3856.                             End If

    3857. 

  3857.                         End If

    3858. 

  3858.                         

    3859. 

  3859.                     Loop

    3860. 

  3860.                 Finally

    3861. 

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

    3862. 

  3862.                         s1.Close

    3863. 

  3863.                     End If

    3864. 

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

    3865. 

  3865.                         s2.Close

    3866. 

  3866.                     End If

    3867. 

  3867.                 End Try

    3868. 

  3868.             End If

    3869. 

  3869.             xs.Add(dsSchema)

    3870. 

  3870.             Return type

    3871. 

  3871.         End Function

    3872. 

  3872.     End Class

    3873. 

  3873.     

    3874. 

  3874.     '''<summary>

    3875. 

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

    3876. 

  3876.     '''</summary>

    3877. 

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

    3878. 

  3878.      Global.System.Serializable(),  _

    3879. 

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

    3880. 

  3880.     Partial Public Class CourseListDataTable

    3881. 

  3881.         Inherits Global.System.Data.TypedTableBase(Of CourseListRow)

    3882. 

  3882.         

    3883. 

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

    3884. 

  3884.         

    3885. 

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

    3886. 

  3886.         

    3887. 

  3887.         Private columnDepartmentName As Global.System.Data.DataColumn

    3888. 

  3888.         

    3889. 

  3889.         Private columnInstructor As Global.System.Data.DataColumn

    3890. 

  3890.         

    3891. 

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

    3892. 

  3892.         Public Sub New()

    3893. 

  3893.             MyBase.New

    3894. 

  3894.             Me.TableName = "CourseList"

    3895. 

  3895.             Me.BeginInit

    3896. 

  3896.             Me.InitClass

    3897. 

  3897.             Me.EndInit

    3898. 

  3898.         End Sub

    3899. 

  3899.         

    3900. 

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

    3901. 

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

    3902. 

  3902.             MyBase.New

    3903. 

  3903.             Me.TableName = table.TableName

    3904. 

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

    3905. 

  3905.                 Me.CaseSensitive = table.CaseSensitive

    3906. 

  3906.             End If

    3907. 

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

    3908. 

  3908.                 Me.Locale = table.Locale

    3909. 

  3909.             End If

    3910. 

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

    3911. 

  3911.                 Me.Namespace = table.Namespace

    3912. 

  3912.             End If

    3913. 

  3913.             Me.Prefix = table.Prefix

    3914. 

  3914.             Me.MinimumCapacity = table.MinimumCapacity

    3915. 

  3915.         End Sub

    3916. 

  3916.         

    3917. 

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

    3918. 

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

    3919. 

  3919.             MyBase.New(info, context)

    3920. 

  3920.             Me.InitVars

    3921. 

  3921.         End Sub

    3922. 

  3922.         

    3923. 

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

    3924. 

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

    3925. 

  3925.             Get

    3926. 

  3926.                 Return Me.columnTitle

    3927. 

  3927.             End Get

    3928. 

  3928.         End Property

    3929. 

  3929.         

    3930. 

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

    3931. 

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

    3932. 

  3932.             Get

    3933. 

  3933.                 Return Me.columnCredits

    3934. 

  3934.             End Get

    3935. 

  3935.         End Property

    3936. 

  3936.         

    3937. 

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

    3938. 

  3938.         Public ReadOnly Property DepartmentNameColumn() As Global.System.Data.DataColumn

    3939. 

  3939.             Get

    3940. 

  3940.                 Return Me.columnDepartmentName

    3941. 

  3941.             End Get

    3942. 

  3942.         End Property

    3943. 

  3943.         

    3944. 

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

    3945. 

  3945.         Public ReadOnly Property InstructorColumn() As Global.System.Data.DataColumn

    3946. 

  3946.             Get

    3947. 

  3947.                 Return Me.columnInstructor

    3948. 

  3948.             End Get

    3949. 

  3949.         End Property

    3950. 

  3950.         

    3951. 

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

    3952. 

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

    3953. 

  3953.         Public ReadOnly Property Count() As Integer

    3954. 

  3954.             Get

    3955. 

  3955.                 Return Me.Rows.Count

    3956. 

  3956.             End Get

    3957. 

  3957.         End Property

    3958. 

  3958.         

    3959. 

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

    3960. 

  3960.         Public Default ReadOnly Property Item(ByVal index As Integer) As CourseListRow

    3961. 

  3961.             Get

    3962. 

  3962.                 Return CType(Me.Rows(index),CourseListRow)

    3963. 

  3963.             End Get

    3964. 

  3964.         End Property

    3965. 

  3965.         

    3966. 

  3966.         Public Event CourseListRowChanging As CourseListRowChangeEventHandler

    3967. 

  3967.         

    3968. 

  3968.         Public Event CourseListRowChanged As CourseListRowChangeEventHandler

    3969. 

  3969.         

    3970. 

  3970.         Public Event CourseListRowDeleting As CourseListRowChangeEventHandler

    3971. 

  3971.         

    3972. 

  3972.         Public Event CourseListRowDeleted As CourseListRowChangeEventHandler

    3973. 

  3973.         

    3974. 

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

    3975. 

  3975.         Public Overloads Sub AddCourseListRow(ByVal row As CourseListRow)

    3976. 

  3976.             Me.Rows.Add(row)

    3977. 

  3977.         End Sub

    3978. 

  3978.         

    3979. 

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

    3980. 

  3980.         Public Overloads Function AddCourseListRow(ByVal Title As String, ByVal Credits As Integer, ByVal DepartmentName As String, ByVal Instructor As String) As CourseListRow

    3981. 

  3981.             Dim rowCourseListRow As CourseListRow = CType(Me.NewRow,CourseListRow)

    3982. 

  3982.             Dim columnValuesArray() As Object = New Object() {Title, Credits, DepartmentName, Instructor}

    3983. 

  3983.             rowCourseListRow.ItemArray = columnValuesArray

    3984. 

  3984.             Me.Rows.Add(rowCourseListRow)

    3985. 

  3985.             Return rowCourseListRow

    3986. 

  3986.         End Function

    3987. 

  3987.         

    3988. 

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

    3989. 

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

    3990. 

  3990.             Dim cln As CourseListDataTable = CType(MyBase.Clone,CourseListDataTable)

    3991. 

  3991.             cln.InitVars

    3992. 

  3992.             Return cln

    3993. 

  3993.         End Function

    3994. 

  3994.         

    3995. 

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

    3996. 

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

    3997. 

  3997.             Return New CourseListDataTable

    3998. 

  3998.         End Function

    3999. 

  3999.         

    4000. 

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

    4001. 

  4001.         Friend Sub InitVars()

    4002. 

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

    4003. 

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

    4004. 

  4004.             Me.columnDepartmentName = MyBase.Columns("DepartmentName")

    4005. 

  4005.             Me.columnInstructor = MyBase.Columns("Instructor")

    4006. 

  4006.         End Sub

    4007. 

  4007.         

    4008. 

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

    4009. 

  4009.         Private Sub InitClass()

    4010. 

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

    4011. 

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

    4012. 

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

    4013. 

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

    4014. 

  4014.             Me.columnDepartmentName = New Global.System.Data.DataColumn("DepartmentName", GetType(String), Nothing, Global.System.Data.MappingType.Element)

    4015. 

  4015.             MyBase.Columns.Add(Me.columnDepartmentName)

    4016. 

  4016.             Me.columnInstructor = New Global.System.Data.DataColumn("Instructor", GetType(String), Nothing, Global.System.Data.MappingType.Element)

    4017. 

  4017.             MyBase.Columns.Add(Me.columnInstructor)

    4018. 

  4018.             Me.columnTitle.AllowDBNull = false

    4019. 

  4019.             Me.columnTitle.MaxLength = 100

    4020. 

  4020.             Me.columnCredits.AllowDBNull = false

    4021. 

  4021.             Me.columnDepartmentName.MaxLength = 50

    4022. 

  4022.             Me.columnInstructor.ReadOnly = true

    4023. 

  4023.             Me.columnInstructor.MaxLength = 101

    4024. 

  4024.         End Sub

    4025. 

  4025.         

    4026. 

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

    4027. 

  4027.         Public Function NewCourseListRow() As CourseListRow

    4028. 

  4028.             Return CType(Me.NewRow,CourseListRow)

    4029. 

  4029.         End Function

    4030. 

  4030.         

    4031. 

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

    4032. 

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

    4033. 

  4033.             Return New CourseListRow(builder)

    4034. 

  4034.         End Function

    4035. 

  4035.         

    4036. 

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

    4037. 

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

    4038. 

  4038.             Return GetType(CourseListRow)

    4039. 

  4039.         End Function

    4040. 

  4040.         

    4041. 

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

    4042. 

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

    4043. 

  4043.             MyBase.OnRowChanged(e)

    4044. 

  4044.             If (Not (Me.CourseListRowChangedEvent) Is Nothing) Then

    4045. 

  4045.                 RaiseEvent CourseListRowChanged(Me, New CourseListRowChangeEvent(CType(e.Row,CourseListRow), e.Action))

    4046. 

  4046.             End If

    4047. 

  4047.         End Sub

    4048. 

  4048.         

    4049. 

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

    4050. 

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

    4051. 

  4051.             MyBase.OnRowChanging(e)

    4052. 

  4052.             If (Not (Me.CourseListRowChangingEvent) Is Nothing) Then

    4053. 

  4053.                 RaiseEvent CourseListRowChanging(Me, New CourseListRowChangeEvent(CType(e.Row,CourseListRow), e.Action))

    4054. 

  4054.             End If

    4055. 

  4055.         End Sub

    4056. 

  4056.         

    4057. 

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

    4058. 

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

    4059. 

  4059.             MyBase.OnRowDeleted(e)

    4060. 

  4060.             If (Not (Me.CourseListRowDeletedEvent) Is Nothing) Then

    4061. 

  4061.                 RaiseEvent CourseListRowDeleted(Me, New CourseListRowChangeEvent(CType(e.Row,CourseListRow), e.Action))

    4062. 

  4062.             End If

    4063. 

  4063.         End Sub

    4064. 

  4064.         

    4065. 

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

    4066. 

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

    4067. 

  4067.             MyBase.OnRowDeleting(e)

    4068. 

  4068.             If (Not (Me.CourseListRowDeletingEvent) Is Nothing) Then

    4069. 

  4069.                 RaiseEvent CourseListRowDeleting(Me, New CourseListRowChangeEvent(CType(e.Row,CourseListRow), e.Action))

    4070. 

  4070.             End If

    4071. 

  4071.         End Sub

    4072. 

  4072.         

    4073. 

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

    4074. 

  4074.         Public Sub RemoveCourseListRow(ByVal row As CourseListRow)

    4075. 

  4075.             Me.Rows.Remove(row)

    4076. 

  4076.         End Sub

    4077. 

  4077.         

    4078. 

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

    4079. 

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

    4080. 

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

    4081. 

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

    4082. 

  4082.             Dim ds As SchoolDataSet = New SchoolDataSet

    4083. 

  4083.             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny

    4084. 

  4084.             any1.Namespace = "http://www.w3.org/2001/XMLSchema"

    4085. 

  4085.             any1.MinOccurs = New Decimal(0)

    4086. 

  4086.             any1.MaxOccurs = Decimal.MaxValue

    4087. 

  4087.             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax

    4088. 

  4088.             sequence.Items.Add(any1)

    4089. 

  4089.             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny

    4090. 

  4090.             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"

    4091. 

  4091.             any2.MinOccurs = New Decimal(1)

    4092. 

  4092.             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax

    4093. 

  4093.             sequence.Items.Add(any2)

    4094. 

  4094.             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute

    4095. 

  4095.             attribute1.Name = "namespace"

    4096. 

  4096.             attribute1.FixedValue = ds.Namespace

    4097. 

  4097.             type.Attributes.Add(attribute1)

    4098. 

  4098.             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute

    4099. 

  4099.             attribute2.Name = "tableTypeName"

    4100. 

  4100.             attribute2.FixedValue = "CourseListDataTable"

    4101. 

  4101.             type.Attributes.Add(attribute2)

    4102. 

  4102.             type.Particle = sequence

    4103. 

  4103.             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable

    4104. 

  4104.             If xs.Contains(dsSchema.TargetNamespace) Then

    4105. 

  4105.                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream

    4106. 

  4106.                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream

    4107. 

  4107.                 Try 

    4108. 

  4108.                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing

    4109. 

  4109.                     dsSchema.Write(s1)

    4110. 

  4110.                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator

    4111. 

  4111.                     Do While schemas.MoveNext

    4112. 

  4112.                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)

    4113. 

  4113.                         s2.SetLength(0)

    4114. 

  4114.                         schema.Write(s2)

    4115. 

  4115.                         If (s1.Length = s2.Length) Then

    4116. 

  4116.                             s1.Position = 0

    4117. 

  4117.                             s2.Position = 0

    4118. 

  4118.                             

    4119. 

  4119.                             Do While ((s1.Position <> s1.Length)  _

    4120. 

  4120.                                         AndAlso (s1.ReadByte = s2.ReadByte))

    4121. 

  4121.                                 

    4122. 

  4122.                                 

    4123. 

  4123.                             Loop

    4124. 

  4124.                             If (s1.Position = s1.Length) Then

    4125. 

  4125.                                 Return type

    4126. 

  4126.                             End If

    4127. 

  4127.                         End If

    4128. 

  4128.                         

    4129. 

  4129.                     Loop

    4130. 

  4130.                 Finally

    4131. 

  4131.                     If (Not (s1) Is Nothing) Then

    4132. 

  4132.                         s1.Close

    4133. 

  4133.                     End If

    4134. 

  4134.                     If (Not (s2) Is Nothing) Then

    4135. 

  4135.                         s2.Close

    4136. 

  4136.                     End If

    4137. 

  4137.                 End Try

    4138. 

  4138.             End If

    4139. 

  4139.             xs.Add(dsSchema)

    4140. 

  4140.             Return type

    4141. 

  4141.         End Function

    4142. 

  4142.     End Class

    4143. 

  4143.     

    4144. 

  4144.     '''<summary>

    4145. 

  4145.     '''Represents the strongly named DataTable class.

    4146. 

  4146.     '''</summary>

    4147. 

  4147.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"),  _

    4148. 

  4148.      Global.System.Serializable(),  _

    4149. 

  4149.      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _

    4150. 

  4150.     Partial Public Class StudentListDataTable

    4151. 

  4151.         Inherits Global.System.Data.TypedTableBase(Of StudentListRow)

    4152. 

  4152.         

    4153. 

  4153.         Private columnStudentName As Global.System.Data.DataColumn

    4154. 

  4154.         

    4155. 

  4155.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4156. 

  4156.         Public Sub New()

    4157. 

  4157.             MyBase.New

    4158. 

  4158.             Me.TableName = "StudentList"

    4159. 

  4159.             Me.BeginInit

    4160. 

  4160.             Me.InitClass

    4161. 

  4161.             Me.EndInit

    4162. 

  4162.         End Sub

    4163. 

  4163.         

    4164. 

  4164.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4165. 

  4165.         Friend Sub New(ByVal table As Global.System.Data.DataTable)

    4166. 

  4166.             MyBase.New

    4167. 

  4167.             Me.TableName = table.TableName

    4168. 

  4168.             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then

    4169. 

  4169.                 Me.CaseSensitive = table.CaseSensitive

    4170. 

  4170.             End If

    4171. 

  4171.             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then

    4172. 

  4172.                 Me.Locale = table.Locale

    4173. 

  4173.             End If

    4174. 

  4174.             If (table.Namespace <> table.DataSet.Namespace) Then

    4175. 

  4175.                 Me.Namespace = table.Namespace

    4176. 

  4176.             End If

    4177. 

  4177.             Me.Prefix = table.Prefix

    4178. 

  4178.             Me.MinimumCapacity = table.MinimumCapacity

    4179. 

  4179.         End Sub

    4180. 

  4180.         

    4181. 

  4181.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4182. 

  4182.         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)

    4183. 

  4183.             MyBase.New(info, context)

    4184. 

  4184.             Me.InitVars

    4185. 

  4185.         End Sub

    4186. 

  4186.         

    4187. 

  4187.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4188. 

  4188.         Public ReadOnly Property StudentNameColumn() As Global.System.Data.DataColumn

    4189. 

  4189.             Get

    4190. 

  4190.                 Return Me.columnStudentName

    4191. 

  4191.             End Get

    4192. 

  4192.         End Property

    4193. 

  4193.         

    4194. 

  4194.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    4195. 

  4195.          Global.System.ComponentModel.Browsable(false)>  _

    4196. 

  4196.         Public ReadOnly Property Count() As Integer

    4197. 

  4197.             Get

    4198. 

  4198.                 Return Me.Rows.Count

    4199. 

  4199.             End Get

    4200. 

  4200.         End Property

    4201. 

  4201.         

    4202. 

  4202.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4203. 

  4203.         Public Default ReadOnly Property Item(ByVal index As Integer) As StudentListRow

    4204. 

  4204.             Get

    4205. 

  4205.                 Return CType(Me.Rows(index),StudentListRow)

    4206. 

  4206.             End Get

    4207. 

  4207.         End Property

    4208. 

  4208.         

    4209. 

  4209.         Public Event StudentListRowChanging As StudentListRowChangeEventHandler

    4210. 

  4210.         

    4211. 

  4211.         Public Event StudentListRowChanged As StudentListRowChangeEventHandler

    4212. 

  4212.         

    4213. 

  4213.         Public Event StudentListRowDeleting As StudentListRowChangeEventHandler

    4214. 

  4214.         

    4215. 

  4215.         Public Event StudentListRowDeleted As StudentListRowChangeEventHandler

    4216. 

  4216.         

    4217. 

  4217.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4218. 

  4218.         Public Overloads Sub AddStudentListRow(ByVal row As StudentListRow)

    4219. 

  4219.             Me.Rows.Add(row)

    4220. 

  4220.         End Sub

    4221. 

  4221.         

    4222. 

  4222.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4223. 

  4223.         Public Overloads Function AddStudentListRow(ByVal StudentName As String) As StudentListRow

    4224. 

  4224.             Dim rowStudentListRow As StudentListRow = CType(Me.NewRow,StudentListRow)

    4225. 

  4225.             Dim columnValuesArray() As Object = New Object() {StudentName}

    4226. 

  4226.             rowStudentListRow.ItemArray = columnValuesArray

    4227. 

  4227.             Me.Rows.Add(rowStudentListRow)

    4228. 

  4228.             Return rowStudentListRow

    4229. 

  4229.         End Function

    4230. 

  4230.         

    4231. 

  4231.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4232. 

  4232.         Public Overrides Function Clone() As Global.System.Data.DataTable

    4233. 

  4233.             Dim cln As StudentListDataTable = CType(MyBase.Clone,StudentListDataTable)

    4234. 

  4234.             cln.InitVars

    4235. 

  4235.             Return cln

    4236. 

  4236.         End Function

    4237. 

  4237.         

    4238. 

  4238.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4239. 

  4239.         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable

    4240. 

  4240.             Return New StudentListDataTable

    4241. 

  4241.         End Function

    4242. 

  4242.         

    4243. 

  4243.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4244. 

  4244.         Friend Sub InitVars()

    4245. 

  4245.             Me.columnStudentName = MyBase.Columns("StudentName")

    4246. 

  4246.         End Sub

    4247. 

  4247.         

    4248. 

  4248.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4249. 

  4249.         Private Sub InitClass()

    4250. 

  4250.             Me.columnStudentName = New Global.System.Data.DataColumn("StudentName", GetType(String), Nothing, Global.System.Data.MappingType.Element)

    4251. 

  4251.             MyBase.Columns.Add(Me.columnStudentName)

    4252. 

  4252.             Me.columnStudentName.ReadOnly = true

    4253. 

  4253.             Me.columnStudentName.MaxLength = 101

    4254. 

  4254.         End Sub

    4255. 

  4255.         

    4256. 

  4256.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4257. 

  4257.         Public Function NewStudentListRow() As StudentListRow

    4258. 

  4258.             Return CType(Me.NewRow,StudentListRow)

    4259. 

  4259.         End Function

    4260. 

  4260.         

    4261. 

  4261.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4262. 

  4262.         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow

    4263. 

  4263.             Return New StudentListRow(builder)

    4264. 

  4264.         End Function

    4265. 

  4265.         

    4266. 

  4266.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4267. 

  4267.         Protected Overrides Function GetRowType() As Global.System.Type

    4268. 

  4268.             Return GetType(StudentListRow)

    4269. 

  4269.         End Function

    4270. 

  4270.         

    4271. 

  4271.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4272. 

  4272.         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)

    4273. 

  4273.             MyBase.OnRowChanged(e)

    4274. 

  4274.             If (Not (Me.StudentListRowChangedEvent) Is Nothing) Then

    4275. 

  4275.                 RaiseEvent StudentListRowChanged(Me, New StudentListRowChangeEvent(CType(e.Row,StudentListRow), e.Action))

    4276. 

  4276.             End If

    4277. 

  4277.         End Sub

    4278. 

  4278.         

    4279. 

  4279.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4280. 

  4280.         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)

    4281. 

  4281.             MyBase.OnRowChanging(e)

    4282. 

  4282.             If (Not (Me.StudentListRowChangingEvent) Is Nothing) Then

    4283. 

  4283.                 RaiseEvent StudentListRowChanging(Me, New StudentListRowChangeEvent(CType(e.Row,StudentListRow), e.Action))

    4284. 

  4284.             End If

    4285. 

  4285.         End Sub

    4286. 

  4286.         

    4287. 

  4287.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4288. 

  4288.         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)

    4289. 

  4289.             MyBase.OnRowDeleted(e)

    4290. 

  4290.             If (Not (Me.StudentListRowDeletedEvent) Is Nothing) Then

    4291. 

  4291.                 RaiseEvent StudentListRowDeleted(Me, New StudentListRowChangeEvent(CType(e.Row,StudentListRow), e.Action))

    4292. 

  4292.             End If

    4293. 

  4293.         End Sub

    4294. 

  4294.         

    4295. 

  4295.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4296. 

  4296.         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)

    4297. 

  4297.             MyBase.OnRowDeleting(e)

    4298. 

  4298.             If (Not (Me.StudentListRowDeletingEvent) Is Nothing) Then

    4299. 

  4299.                 RaiseEvent StudentListRowDeleting(Me, New StudentListRowChangeEvent(CType(e.Row,StudentListRow), e.Action))

    4300. 

  4300.             End If

    4301. 

  4301.         End Sub

    4302. 

  4302.         

    4303. 

  4303.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4304. 

  4304.         Public Sub RemoveStudentListRow(ByVal row As StudentListRow)

    4305. 

  4305.             Me.Rows.Remove(row)

    4306. 

  4306.         End Sub

    4307. 

  4307.         

    4308. 

  4308.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4309. 

  4309.         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType

    4310. 

  4310.             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType

    4311. 

  4311.             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence

    4312. 

  4312.             Dim ds As SchoolDataSet = New SchoolDataSet

    4313. 

  4313.             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny

    4314. 

  4314.             any1.Namespace = "http://www.w3.org/2001/XMLSchema"

    4315. 

  4315.             any1.MinOccurs = New Decimal(0)

    4316. 

  4316.             any1.MaxOccurs = Decimal.MaxValue

    4317. 

  4317.             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax

    4318. 

  4318.             sequence.Items.Add(any1)

    4319. 

  4319.             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny

    4320. 

  4320.             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"

    4321. 

  4321.             any2.MinOccurs = New Decimal(1)

    4322. 

  4322.             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax

    4323. 

  4323.             sequence.Items.Add(any2)

    4324. 

  4324.             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute

    4325. 

  4325.             attribute1.Name = "namespace"

    4326. 

  4326.             attribute1.FixedValue = ds.Namespace

    4327. 

  4327.             type.Attributes.Add(attribute1)

    4328. 

  4328.             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute

    4329. 

  4329.             attribute2.Name = "tableTypeName"

    4330. 

  4330.             attribute2.FixedValue = "StudentListDataTable"

    4331. 

  4331.             type.Attributes.Add(attribute2)

    4332. 

  4332.             type.Particle = sequence

    4333. 

  4333.             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable

    4334. 

  4334.             If xs.Contains(dsSchema.TargetNamespace) Then

    4335. 

  4335.                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream

    4336. 

  4336.                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream

    4337. 

  4337.                 Try 

    4338. 

  4338.                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing

    4339. 

  4339.                     dsSchema.Write(s1)

    4340. 

  4340.                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator

    4341. 

  4341.                     Do While schemas.MoveNext

    4342. 

  4342.                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)

    4343. 

  4343.                         s2.SetLength(0)

    4344. 

  4344.                         schema.Write(s2)

    4345. 

  4345.                         If (s1.Length = s2.Length) Then

    4346. 

  4346.                             s1.Position = 0

    4347. 

  4347.                             s2.Position = 0

    4348. 

  4348.                             

    4349. 

  4349.                             Do While ((s1.Position <> s1.Length)  _

    4350. 

  4350.                                         AndAlso (s1.ReadByte = s2.ReadByte))

    4351. 

  4351.                                 

    4352. 

  4352.                                 

    4353. 

  4353.                             Loop

    4354. 

  4354.                             If (s1.Position = s1.Length) Then

    4355. 

  4355.                                 Return type

    4356. 

  4356.                             End If

    4357. 

  4357.                         End If

    4358. 

  4358.                         

    4359. 

  4359.                     Loop

    4360. 

  4360.                 Finally

    4361. 

  4361.                     If (Not (s1) Is Nothing) Then

    4362. 

  4362.                         s1.Close

    4363. 

  4363.                     End If

    4364. 

  4364.                     If (Not (s2) Is Nothing) Then

    4365. 

  4365.                         s2.Close

    4366. 

  4366.                     End If

    4367. 

  4367.                 End Try

    4368. 

  4368.             End If

    4369. 

  4369.             xs.Add(dsSchema)

    4370. 

  4370.             Return type

    4371. 

  4371.         End Function

    4372. 

  4372.     End Class

    4373. 

  4373.     

    4374. 

  4374.     '''<summary>

    4375. 

  4375.     '''Represents strongly named DataRow class.

    4376. 

  4376.     '''</summary>

    4377. 

  4377.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")>  _

    4378. 

  4378.     Partial Public Class CourseRow

    4379. 

  4379.         Inherits Global.System.Data.DataRow

    4380. 

  4380.         

    4381. 

  4381.         Private tableCourse As CourseDataTable

    4382. 

  4382.         

    4383. 

  4383.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4384. 

  4384.         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)

    4385. 

  4385.             MyBase.New(rb)

    4386. 

  4386.             Me.tableCourse = CType(Me.Table,CourseDataTable)

    4387. 

  4387.         End Sub

    4388. 

  4388.         

    4389. 

  4389.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4390. 

  4390.         Public Property CourseID() As Integer

    4391. 

  4391.             Get

    4392. 

  4392.                 Return CType(Me(Me.tableCourse.CourseIDColumn),Integer)

    4393. 

  4393.             End Get

    4394. 

  4394.             Set

    4395. 

  4395.                 Me(Me.tableCourse.CourseIDColumn) = value

    4396. 

  4396.             End Set

    4397. 

  4397.         End Property

    4398. 

  4398.         

    4399. 

  4399.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4400. 

  4400.         Public Property Title() As String

    4401. 

  4401.             Get

    4402. 

  4402.                 Return CType(Me(Me.tableCourse.TitleColumn),String)

    4403. 

  4403.             End Get

    4404. 

  4404.             Set

    4405. 

  4405.                 Me(Me.tableCourse.TitleColumn) = value

    4406. 

  4406.             End Set

    4407. 

  4407.         End Property

    4408. 

  4408.         

    4409. 

  4409.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4410. 

  4410.         Public Property Credits() As Integer

    4411. 

  4411.             Get

    4412. 

  4412.                 Return CType(Me(Me.tableCourse.CreditsColumn),Integer)

    4413. 

  4413.             End Get

    4414. 

  4414.             Set

    4415. 

  4415.                 Me(Me.tableCourse.CreditsColumn) = value

    4416. 

  4416.             End Set

    4417. 

  4417.         End Property

    4418. 

  4418.         

    4419. 

  4419.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4420. 

  4420.         Public Property DepartmentID() As Integer

    4421. 

  4421.             Get

    4422. 

  4422.                 Return CType(Me(Me.tableCourse.DepartmentIDColumn),Integer)

    4423. 

  4423.             End Get

    4424. 

  4424.             Set

    4425. 

  4425.                 Me(Me.tableCourse.DepartmentIDColumn) = value

    4426. 

  4426.             End Set

    4427. 

  4427.         End Property

    4428. 

  4428.         

    4429. 

  4429.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4430. 

  4430.         Public Property DepartmentRow() As DepartmentRow

    4431. 

  4431.             Get

    4432. 

  4432.                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Course_Department")),DepartmentRow)

    4433. 

  4433.             End Get

    4434. 

  4434.             Set

    4435. 

  4435.                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Course_Department"))

    4436. 

  4436.             End Set

    4437. 

  4437.         End Property

    4438. 

  4438.         

    4439. 

  4439.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4440. 

  4440.         Public Function GetCourseGradeRows() As CourseGradeRow()

    4441. 

  4441.             If (Me.Table.ChildRelations("FK_CourseGrade_Course") Is Nothing) Then

    4442. 

  4442.                 Return New CourseGradeRow(-1) {}

    4443. 

  4443.             Else

    4444. 

  4444.                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_CourseGrade_Course")),CourseGradeRow())

    4445. 

  4445.             End If

    4446. 

  4446.         End Function

    4447. 

  4447.         

    4448. 

  4448.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4449. 

  4449.         Public Function GetCourseInstructorRows() As CourseInstructorRow()

    4450. 

  4450.             If (Me.Table.ChildRelations("FK_CourseInstructor_Course") Is Nothing) Then

    4451. 

  4451.                 Return New CourseInstructorRow(-1) {}

    4452. 

  4452.             Else

    4453. 

  4453.                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_CourseInstructor_Course")),CourseInstructorRow())

    4454. 

  4454.             End If

    4455. 

  4455.         End Function

    4456. 

  4456.         

    4457. 

  4457.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4458. 

  4458.         Public Function GetOnlineCourseRows() As OnlineCourseRow()

    4459. 

  4459.             If (Me.Table.ChildRelations("FK_OnlineCourse_Course") Is Nothing) Then

    4460. 

  4460.                 Return New OnlineCourseRow(-1) {}

    4461. 

  4461.             Else

    4462. 

  4462.                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_OnlineCourse_Course")),OnlineCourseRow())

    4463. 

  4463.             End If

    4464. 

  4464.         End Function

    4465. 

  4465.         

    4466. 

  4466.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4467. 

  4467.         Public Function GetOnsiteCourseRows() As OnsiteCourseRow()

    4468. 

  4468.             If (Me.Table.ChildRelations("FK_OnsiteCourse_Course") Is Nothing) Then

    4469. 

  4469.                 Return New OnsiteCourseRow(-1) {}

    4470. 

  4470.             Else

    4471. 

  4471.                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_OnsiteCourse_Course")),OnsiteCourseRow())

    4472. 

  4472.             End If

    4473. 

  4473.         End Function

    4474. 

  4474.     End Class

    4475. 

  4475.     

    4476. 

  4476.     '''<summary>

    4477. 

  4477.     '''Represents strongly named DataRow class.

    4478. 

  4478.     '''</summary>

    4479. 

  4479.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")>  _

    4480. 

  4480.     Partial Public Class CourseGradeRow

    4481. 

  4481.         Inherits Global.System.Data.DataRow

    4482. 

  4482.         

    4483. 

  4483.         Private tableCourseGrade As CourseGradeDataTable

    4484. 

  4484.         

    4485. 

  4485.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4486. 

  4486.         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)

    4487. 

  4487.             MyBase.New(rb)

    4488. 

  4488.             Me.tableCourseGrade = CType(Me.Table,CourseGradeDataTable)

    4489. 

  4489.         End Sub

    4490. 

  4490.         

    4491. 

  4491.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4492. 

  4492.         Public Property EnrollmentID() As Integer

    4493. 

  4493.             Get

    4494. 

  4494.                 Return CType(Me(Me.tableCourseGrade.EnrollmentIDColumn),Integer)

    4495. 

  4495.             End Get

    4496. 

  4496.             Set

    4497. 

  4497.                 Me(Me.tableCourseGrade.EnrollmentIDColumn) = value

    4498. 

  4498.             End Set

    4499. 

  4499.         End Property

    4500. 

  4500.         

    4501. 

  4501.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4502. 

  4502.         Public Property CourseID() As Integer

    4503. 

  4503.             Get

    4504. 

  4504.                 Return CType(Me(Me.tableCourseGrade.CourseIDColumn),Integer)

    4505. 

  4505.             End Get

    4506. 

  4506.             Set

    4507. 

  4507.                 Me(Me.tableCourseGrade.CourseIDColumn) = value

    4508. 

  4508.             End Set

    4509. 

  4509.         End Property

    4510. 

  4510.         

    4511. 

  4511.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4512. 

  4512.         Public Property StudentID() As Integer

    4513. 

  4513.             Get

    4514. 

  4514.                 Return CType(Me(Me.tableCourseGrade.StudentIDColumn),Integer)

    4515. 

  4515.             End Get

    4516. 

  4516.             Set

    4517. 

  4517.                 Me(Me.tableCourseGrade.StudentIDColumn) = value

    4518. 

  4518.             End Set

    4519. 

  4519.         End Property

    4520. 

  4520.         

    4521. 

  4521.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4522. 

  4522.         Public Property Grade() As Decimal

    4523. 

  4523.             Get

    4524. 

  4524.                 Try 

    4525. 

  4525.                     Return CType(Me(Me.tableCourseGrade.GradeColumn),Decimal)

    4526. 

  4526.                 Catch e As Global.System.InvalidCastException

    4527. 

  4527.                     Throw New Global.System.Data.StrongTypingException("The value for column 'Grade' in table 'CourseGrade' is DBNull.", e)

    4528. 

  4528.                 End Try

    4529. 

  4529.             End Get

    4530. 

  4530.             Set

    4531. 

  4531.                 Me(Me.tableCourseGrade.GradeColumn) = value

    4532. 

  4532.             End Set

    4533. 

  4533.         End Property

    4534. 

  4534.         

    4535. 

  4535.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4536. 

  4536.         Public Property CourseRow() As CourseRow

    4537. 

  4537.             Get

    4538. 

  4538.                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_CourseGrade_Course")),CourseRow)

    4539. 

  4539.             End Get

    4540. 

  4540.             Set

    4541. 

  4541.                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_CourseGrade_Course"))

    4542. 

  4542.             End Set

    4543. 

  4543.         End Property

    4544. 

  4544.         

    4545. 

  4545.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4546. 

  4546.         Public Property PersonRow() As PersonRow

    4547. 

  4547.             Get

    4548. 

  4548.                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_CourseGrade_Student")),PersonRow)

    4549. 

  4549.             End Get

    4550. 

  4550.             Set

    4551. 

  4551.                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_CourseGrade_Student"))

    4552. 

  4552.             End Set

    4553. 

  4553.         End Property

    4554. 

  4554.         

    4555. 

  4555.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4556. 

  4556.         Public Function IsGradeNull() As Boolean

    4557. 

  4557.             Return Me.IsNull(Me.tableCourseGrade.GradeColumn)

    4558. 

  4558.         End Function

    4559. 

  4559.         

    4560. 

  4560.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4561. 

  4561.         Public Sub SetGradeNull()

    4562. 

  4562.             Me(Me.tableCourseGrade.GradeColumn) = Global.System.Convert.DBNull

    4563. 

  4563.         End Sub

    4564. 

  4564.     End Class

    4565. 

  4565.     

    4566. 

  4566.     '''<summary>

    4567. 

  4567.     '''Represents strongly named DataRow class.

    4568. 

  4568.     '''</summary>

    4569. 

  4569.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")>  _

    4570. 

  4570.     Partial Public Class CourseInstructorRow

    4571. 

  4571.         Inherits Global.System.Data.DataRow

    4572. 

  4572.         

    4573. 

  4573.         Private tableCourseInstructor As CourseInstructorDataTable

    4574. 

  4574.         

    4575. 

  4575.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4576. 

  4576.         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)

    4577. 

  4577.             MyBase.New(rb)

    4578. 

  4578.             Me.tableCourseInstructor = CType(Me.Table,CourseInstructorDataTable)

    4579. 

  4579.         End Sub

    4580. 

  4580.         

    4581. 

  4581.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4582. 

  4582.         Public Property CourseID() As Integer

    4583. 

  4583.             Get

    4584. 

  4584.                 Return CType(Me(Me.tableCourseInstructor.CourseIDColumn),Integer)

    4585. 

  4585.             End Get

    4586. 

  4586.             Set

    4587. 

  4587.                 Me(Me.tableCourseInstructor.CourseIDColumn) = value

    4588. 

  4588.             End Set

    4589. 

  4589.         End Property

    4590. 

  4590.         

    4591. 

  4591.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4592. 

  4592.         Public Property PersonID() As Integer

    4593. 

  4593.             Get

    4594. 

  4594.                 Return CType(Me(Me.tableCourseInstructor.PersonIDColumn),Integer)

    4595. 

  4595.             End Get

    4596. 

  4596.             Set

    4597. 

  4597.                 Me(Me.tableCourseInstructor.PersonIDColumn) = value

    4598. 

  4598.             End Set

    4599. 

  4599.         End Property

    4600. 

  4600.         

    4601. 

  4601.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4602. 

  4602.         Public Property CourseRow() As CourseRow

    4603. 

  4603.             Get

    4604. 

  4604.                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_CourseInstructor_Course")),CourseRow)

    4605. 

  4605.             End Get

    4606. 

  4606.             Set

    4607. 

  4607.                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_CourseInstructor_Course"))

    4608. 

  4608.             End Set

    4609. 

  4609.         End Property

    4610. 

  4610.         

    4611. 

  4611.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4612. 

  4612.         Public Property PersonRow() As PersonRow

    4613. 

  4613.             Get

    4614. 

  4614.                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_CourseInstructor_Person")),PersonRow)

    4615. 

  4615.             End Get

    4616. 

  4616.             Set

    4617. 

  4617.                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_CourseInstructor_Person"))

    4618. 

  4618.             End Set

    4619. 

  4619.         End Property

    4620. 

  4620.     End Class

    4621. 

  4621.     

    4622. 

  4622.     '''<summary>

    4623. 

  4623.     '''Represents strongly named DataRow class.

    4624. 

  4624.     '''</summary>

    4625. 

  4625.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")>  _

    4626. 

  4626.     Partial Public Class DepartmentRow

    4627. 

  4627.         Inherits Global.System.Data.DataRow

    4628. 

  4628.         

    4629. 

  4629.         Private tableDepartment As DepartmentDataTable

    4630. 

  4630.         

    4631. 

  4631.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4632. 

  4632.         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)

    4633. 

  4633.             MyBase.New(rb)

    4634. 

  4634.             Me.tableDepartment = CType(Me.Table,DepartmentDataTable)

    4635. 

  4635.         End Sub

    4636. 

  4636.         

    4637. 

  4637.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4638. 

  4638.         Public Property DepartmentID() As Integer

    4639. 

  4639.             Get

    4640. 

  4640.                 Return CType(Me(Me.tableDepartment.DepartmentIDColumn),Integer)

    4641. 

  4641.             End Get

    4642. 

  4642.             Set

    4643. 

  4643.                 Me(Me.tableDepartment.DepartmentIDColumn) = value

    4644. 

  4644.             End Set

    4645. 

  4645.         End Property

    4646. 

  4646.         

    4647. 

  4647.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4648. 

  4648.         Public Property Name() As String

    4649. 

  4649.             Get

    4650. 

  4650.                 Return CType(Me(Me.tableDepartment.NameColumn),String)

    4651. 

  4651.             End Get

    4652. 

  4652.             Set

    4653. 

  4653.                 Me(Me.tableDepartment.NameColumn) = value

    4654. 

  4654.             End Set

    4655. 

  4655.         End Property

    4656. 

  4656.         

    4657. 

  4657.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4658. 

  4658.         Public Property Budget() As Decimal

    4659. 

  4659.             Get

    4660. 

  4660.                 Return CType(Me(Me.tableDepartment.BudgetColumn),Decimal)

    4661. 

  4661.             End Get

    4662. 

  4662.             Set

    4663. 

  4663.                 Me(Me.tableDepartment.BudgetColumn) = value

    4664. 

  4664.             End Set

    4665. 

  4665.         End Property

    4666. 

  4666.         

    4667. 

  4667.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4668. 

  4668.         Public Property StartDate() As Date

    4669. 

  4669.             Get

    4670. 

  4670.                 Return CType(Me(Me.tableDepartment.StartDateColumn),Date)

    4671. 

  4671.             End Get

    4672. 

  4672.             Set

    4673. 

  4673.                 Me(Me.tableDepartment.StartDateColumn) = value

    4674. 

  4674.             End Set

    4675. 

  4675.         End Property

    4676. 

  4676.         

    4677. 

  4677.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4678. 

  4678.         Public Property Administrator() As Integer

    4679. 

  4679.             Get

    4680. 

  4680.                 Try 

    4681. 

  4681.                     Return CType(Me(Me.tableDepartment.AdministratorColumn),Integer)

    4682. 

  4682.                 Catch e As Global.System.InvalidCastException

    4683. 

  4683.                     Throw New Global.System.Data.StrongTypingException("The value for column 'Administrator' in table 'Department' is DBNull.", e)

    4684. 

  4684.                 End Try

    4685. 

  4685.             End Get

    4686. 

  4686.             Set

    4687. 

  4687.                 Me(Me.tableDepartment.AdministratorColumn) = value

    4688. 

  4688.             End Set

    4689. 

  4689.         End Property

    4690. 

  4690.         

    4691. 

  4691.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4692. 

  4692.         Public Function IsAdministratorNull() As Boolean

    4693. 

  4693.             Return Me.IsNull(Me.tableDepartment.AdministratorColumn)

    4694. 

  4694.         End Function

    4695. 

  4695.         

    4696. 

  4696.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4697. 

  4697.         Public Sub SetAdministratorNull()

    4698. 

  4698.             Me(Me.tableDepartment.AdministratorColumn) = Global.System.Convert.DBNull

    4699. 

  4699.         End Sub

    4700. 

  4700.         

    4701. 

  4701.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4702. 

  4702.         Public Function GetCourseRows() As CourseRow()

    4703. 

  4703.             If (Me.Table.ChildRelations("FK_Course_Department") Is Nothing) Then

    4704. 

  4704.                 Return New CourseRow(-1) {}

    4705. 

  4705.             Else

    4706. 

  4706.                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Course_Department")),CourseRow())

    4707. 

  4707.             End If

    4708. 

  4708.         End Function

    4709. 

  4709.     End Class

    4710. 

  4710.     

    4711. 

  4711.     '''<summary>

    4712. 

  4712.     '''Represents strongly named DataRow class.

    4713. 

  4713.     '''</summary>

    4714. 

  4714.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")>  _

    4715. 

  4715.     Partial Public Class OfficeAssignmentRow

    4716. 

  4716.         Inherits Global.System.Data.DataRow

    4717. 

  4717.         

    4718. 

  4718.         Private tableOfficeAssignment As OfficeAssignmentDataTable

    4719. 

  4719.         

    4720. 

  4720.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4721. 

  4721.         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)

    4722. 

  4722.             MyBase.New(rb)

    4723. 

  4723.             Me.tableOfficeAssignment = CType(Me.Table,OfficeAssignmentDataTable)

    4724. 

  4724.         End Sub

    4725. 

  4725.         

    4726. 

  4726.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4727. 

  4727.         Public Property InstructorID() As Integer

    4728. 

  4728.             Get

    4729. 

  4729.                 Return CType(Me(Me.tableOfficeAssignment.InstructorIDColumn),Integer)

    4730. 

  4730.             End Get

    4731. 

  4731.             Set

    4732. 

  4732.                 Me(Me.tableOfficeAssignment.InstructorIDColumn) = value

    4733. 

  4733.             End Set

    4734. 

  4734.         End Property

    4735. 

  4735.         

    4736. 

  4736.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4737. 

  4737.         Public Property Location() As String

    4738. 

  4738.             Get

    4739. 

  4739.                 Return CType(Me(Me.tableOfficeAssignment.LocationColumn),String)

    4740. 

  4740.             End Get

    4741. 

  4741.             Set

    4742. 

  4742.                 Me(Me.tableOfficeAssignment.LocationColumn) = value

    4743. 

  4743.             End Set

    4744. 

  4744.         End Property

    4745. 

  4745.         

    4746. 

  4746.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4747. 

  4747.         Public Property Timestamp() As Byte()

    4748. 

  4748.             Get

    4749. 

  4749.                 Try 

    4750. 

  4750.                     Return CType(Me(Me.tableOfficeAssignment.TimestampColumn),Byte())

    4751. 

  4751.                 Catch e As Global.System.InvalidCastException

    4752. 

  4752.                     Throw New Global.System.Data.StrongTypingException("The value for column 'Timestamp' in table 'OfficeAssignment' is DBNull.", e)

    4753. 

  4753.                 End Try

    4754. 

  4754.             End Get

    4755. 

  4755.             Set

    4756. 

  4756.                 Me(Me.tableOfficeAssignment.TimestampColumn) = value

    4757. 

  4757.             End Set

    4758. 

  4758.         End Property

    4759. 

  4759.         

    4760. 

  4760.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4761. 

  4761.         Public Property PersonRow() As PersonRow

    4762. 

  4762.             Get

    4763. 

  4763.                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_OfficeAssignment_Person")),PersonRow)

    4764. 

  4764.             End Get

    4765. 

  4765.             Set

    4766. 

  4766.                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_OfficeAssignment_Person"))

    4767. 

  4767.             End Set

    4768. 

  4768.         End Property

    4769. 

  4769.         

    4770. 

  4770.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4771. 

  4771.         Public Function IsTimestampNull() As Boolean

    4772. 

  4772.             Return Me.IsNull(Me.tableOfficeAssignment.TimestampColumn)

    4773. 

  4773.         End Function

    4774. 

  4774.         

    4775. 

  4775.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4776. 

  4776.         Public Sub SetTimestampNull()

    4777. 

  4777.             Me(Me.tableOfficeAssignment.TimestampColumn) = Global.System.Convert.DBNull

    4778. 

  4778.         End Sub

    4779. 

  4779.     End Class

    4780. 

  4780.     

    4781. 

  4781.     '''<summary>

    4782. 

  4782.     '''Represents strongly named DataRow class.

    4783. 

  4783.     '''</summary>

    4784. 

  4784.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")>  _

    4785. 

  4785.     Partial Public Class OnlineCourseRow

    4786. 

  4786.         Inherits Global.System.Data.DataRow

    4787. 

  4787.         

    4788. 

  4788.         Private tableOnlineCourse As OnlineCourseDataTable

    4789. 

  4789.         

    4790. 

  4790.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4791. 

  4791.         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)

    4792. 

  4792.             MyBase.New(rb)

    4793. 

  4793.             Me.tableOnlineCourse = CType(Me.Table,OnlineCourseDataTable)

    4794. 

  4794.         End Sub

    4795. 

  4795.         

    4796. 

  4796.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4797. 

  4797.         Public Property CourseID() As Integer

    4798. 

  4798.             Get

    4799. 

  4799.                 Return CType(Me(Me.tableOnlineCourse.CourseIDColumn),Integer)

    4800. 

  4800.             End Get

    4801. 

  4801.             Set

    4802. 

  4802.                 Me(Me.tableOnlineCourse.CourseIDColumn) = value

    4803. 

  4803.             End Set

    4804. 

  4804.         End Property

    4805. 

  4805.         

    4806. 

  4806.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4807. 

  4807.         Public Property URL() As String

    4808. 

  4808.             Get

    4809. 

  4809.                 Return CType(Me(Me.tableOnlineCourse.URLColumn),String)

    4810. 

  4810.             End Get

    4811. 

  4811.             Set

    4812. 

  4812.                 Me(Me.tableOnlineCourse.URLColumn) = value

    4813. 

  4813.             End Set

    4814. 

  4814.         End Property

    4815. 

  4815.         

    4816. 

  4816.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4817. 

  4817.         Public Property CourseRow() As CourseRow

    4818. 

  4818.             Get

    4819. 

  4819.                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_OnlineCourse_Course")),CourseRow)

    4820. 

  4820.             End Get

    4821. 

  4821.             Set

    4822. 

  4822.                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_OnlineCourse_Course"))

    4823. 

  4823.             End Set

    4824. 

  4824.         End Property

    4825. 

  4825.     End Class

    4826. 

  4826.     

    4827. 

  4827.     '''<summary>

    4828. 

  4828.     '''Represents strongly named DataRow class.

    4829. 

  4829.     '''</summary>

    4830. 

  4830.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")>  _

    4831. 

  4831.     Partial Public Class OnsiteCourseRow

    4832. 

  4832.         Inherits Global.System.Data.DataRow

    4833. 

  4833.         

    4834. 

  4834.         Private tableOnsiteCourse As OnsiteCourseDataTable

    4835. 

  4835.         

    4836. 

  4836.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4837. 

  4837.         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)

    4838. 

  4838.             MyBase.New(rb)

    4839. 

  4839.             Me.tableOnsiteCourse = CType(Me.Table,OnsiteCourseDataTable)

    4840. 

  4840.         End Sub

    4841. 

  4841.         

    4842. 

  4842.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4843. 

  4843.         Public Property CourseID() As Integer

    4844. 

  4844.             Get

    4845. 

  4845.                 Return CType(Me(Me.tableOnsiteCourse.CourseIDColumn),Integer)

    4846. 

  4846.             End Get

    4847. 

  4847.             Set

    4848. 

  4848.                 Me(Me.tableOnsiteCourse.CourseIDColumn) = value

    4849. 

  4849.             End Set

    4850. 

  4850.         End Property

    4851. 

  4851.         

    4852. 

  4852.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4853. 

  4853.         Public Property Location() As String

    4854. 

  4854.             Get

    4855. 

  4855.                 Return CType(Me(Me.tableOnsiteCourse.LocationColumn),String)

    4856. 

  4856.             End Get

    4857. 

  4857.             Set

    4858. 

  4858.                 Me(Me.tableOnsiteCourse.LocationColumn) = value

    4859. 

  4859.             End Set

    4860. 

  4860.         End Property

    4861. 

  4861.         

    4862. 

  4862.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4863. 

  4863.         Public Property Days() As String

    4864. 

  4864.             Get

    4865. 

  4865.                 Return CType(Me(Me.tableOnsiteCourse.DaysColumn),String)

    4866. 

  4866.             End Get

    4867. 

  4867.             Set

    4868. 

  4868.                 Me(Me.tableOnsiteCourse.DaysColumn) = value

    4869. 

  4869.             End Set

    4870. 

  4870.         End Property

    4871. 

  4871.         

    4872. 

  4872.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4873. 

  4873.         Public Property Time() As Date

    4874. 

  4874.             Get

    4875. 

  4875.                 Return CType(Me(Me.tableOnsiteCourse.TimeColumn),Date)

    4876. 

  4876.             End Get

    4877. 

  4877.             Set

    4878. 

  4878.                 Me(Me.tableOnsiteCourse.TimeColumn) = value

    4879. 

  4879.             End Set

    4880. 

  4880.         End Property

    4881. 

  4881.         

    4882. 

  4882.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4883. 

  4883.         Public Property CourseRow() As CourseRow

    4884. 

  4884.             Get

    4885. 

  4885.                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_OnsiteCourse_Course")),CourseRow)

    4886. 

  4886.             End Get

    4887. 

  4887.             Set

    4888. 

  4888.                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_OnsiteCourse_Course"))

    4889. 

  4889.             End Set

    4890. 

  4890.         End Property

    4891. 

  4891.     End Class

    4892. 

  4892.     

    4893. 

  4893.     '''<summary>

    4894. 

  4894.     '''Represents strongly named DataRow class.

    4895. 

  4895.     '''</summary>

    4896. 

  4896.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")>  _

    4897. 

  4897.     Partial Public Class PersonRow

    4898. 

  4898.         Inherits Global.System.Data.DataRow

    4899. 

  4899.         

    4900. 

  4900.         Private tablePerson As PersonDataTable

    4901. 

  4901.         

    4902. 

  4902.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4903. 

  4903.         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)

    4904. 

  4904.             MyBase.New(rb)

    4905. 

  4905.             Me.tablePerson = CType(Me.Table,PersonDataTable)

    4906. 

  4906.         End Sub

    4907. 

  4907.         

    4908. 

  4908.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4909. 

  4909.         Public Property PersonID() As Integer

    4910. 

  4910.             Get

    4911. 

  4911.                 Return CType(Me(Me.tablePerson.PersonIDColumn),Integer)

    4912. 

  4912.             End Get

    4913. 

  4913.             Set

    4914. 

  4914.                 Me(Me.tablePerson.PersonIDColumn) = value

    4915. 

  4915.             End Set

    4916. 

  4916.         End Property

    4917. 

  4917.         

    4918. 

  4918.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4919. 

  4919.         Public Property LastName() As String

    4920. 

  4920.             Get

    4921. 

  4921.                 Return CType(Me(Me.tablePerson.LastNameColumn),String)

    4922. 

  4922.             End Get

    4923. 

  4923.             Set

    4924. 

  4924.                 Me(Me.tablePerson.LastNameColumn) = value

    4925. 

  4925.             End Set

    4926. 

  4926.         End Property

    4927. 

  4927.         

    4928. 

  4928.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4929. 

  4929.         Public Property FirstName() As String

    4930. 

  4930.             Get

    4931. 

  4931.                 Return CType(Me(Me.tablePerson.FirstNameColumn),String)

    4932. 

  4932.             End Get

    4933. 

  4933.             Set

    4934. 

  4934.                 Me(Me.tablePerson.FirstNameColumn) = value

    4935. 

  4935.             End Set

    4936. 

  4936.         End Property

    4937. 

  4937.         

    4938. 

  4938.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4939. 

  4939.         Public Property PersonCategory() As Short

    4940. 

  4940.             Get

    4941. 

  4941.                 Return CType(Me(Me.tablePerson.PersonCategoryColumn),Short)

    4942. 

  4942.             End Get

    4943. 

  4943.             Set

    4944. 

  4944.                 Me(Me.tablePerson.PersonCategoryColumn) = value

    4945. 

  4945.             End Set

    4946. 

  4946.         End Property

    4947. 

  4947.         

    4948. 

  4948.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4949. 

  4949.         Public Property HireDate() As Date

    4950. 

  4950.             Get

    4951. 

  4951.                 Try 

    4952. 

  4952.                     Return CType(Me(Me.tablePerson.HireDateColumn),Date)

    4953. 

  4953.                 Catch e As Global.System.InvalidCastException

    4954. 

  4954.                     Throw New Global.System.Data.StrongTypingException("The value for column 'HireDate' in table 'Person' is DBNull.", e)

    4955. 

  4955.                 End Try

    4956. 

  4956.             End Get

    4957. 

  4957.             Set

    4958. 

  4958.                 Me(Me.tablePerson.HireDateColumn) = value

    4959. 

  4959.             End Set

    4960. 

  4960.         End Property

    4961. 

  4961.         

    4962. 

  4962.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4963. 

  4963.         Public Property EnrollmentDate() As Date

    4964. 

  4964.             Get

    4965. 

  4965.                 Try 

    4966. 

  4966.                     Return CType(Me(Me.tablePerson.EnrollmentDateColumn),Date)

    4967. 

  4967.                 Catch e As Global.System.InvalidCastException

    4968. 

  4968.                     Throw New Global.System.Data.StrongTypingException("The value for column 'EnrollmentDate' in table 'Person' is DBNull.", e)

    4969. 

  4969.                 End Try

    4970. 

  4970.             End Get

    4971. 

  4971.             Set

    4972. 

  4972.                 Me(Me.tablePerson.EnrollmentDateColumn) = value

    4973. 

  4973.             End Set

    4974. 

  4974.         End Property

    4975. 

  4975.         

    4976. 

  4976.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4977. 

  4977.         Public Property Picture() As Byte()

    4978. 

  4978.             Get

    4979. 

  4979.                 Try 

    4980. 

  4980.                     Return CType(Me(Me.tablePerson.PictureColumn),Byte())

    4981. 

  4981.                 Catch e As Global.System.InvalidCastException

    4982. 

  4982.                     Throw New Global.System.Data.StrongTypingException("The value for column 'Picture' in table 'Person' is DBNull.", e)

    4983. 

  4983.                 End Try

    4984. 

  4984.             End Get

    4985. 

  4985.             Set

    4986. 

  4986.                 Me(Me.tablePerson.PictureColumn) = value

    4987. 

  4987.             End Set

    4988. 

  4988.         End Property

    4989. 

  4989.         

    4990. 

  4990.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4991. 

  4991.         Public Function IsHireDateNull() As Boolean

    4992. 

  4992.             Return Me.IsNull(Me.tablePerson.HireDateColumn)

    4993. 

  4993.         End Function

    4994. 

  4994.         

    4995. 

  4995.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    4996. 

  4996.         Public Sub SetHireDateNull()

    4997. 

  4997.             Me(Me.tablePerson.HireDateColumn) = Global.System.Convert.DBNull

    4998. 

  4998.         End Sub

    4999. 

  4999.         

    5000. 

  5000.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5001. 

  5001.         Public Function IsEnrollmentDateNull() As Boolean

    5002. 

  5002.             Return Me.IsNull(Me.tablePerson.EnrollmentDateColumn)

    5003. 

  5003.         End Function

    5004. 

  5004.         

    5005. 

  5005.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5006. 

  5006.         Public Sub SetEnrollmentDateNull()

    5007. 

  5007.             Me(Me.tablePerson.EnrollmentDateColumn) = Global.System.Convert.DBNull

    5008. 

  5008.         End Sub

    5009. 

  5009.         

    5010. 

  5010.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5011. 

  5011.         Public Function IsPictureNull() As Boolean

    5012. 

  5012.             Return Me.IsNull(Me.tablePerson.PictureColumn)

    5013. 

  5013.         End Function

    5014. 

  5014.         

    5015. 

  5015.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5016. 

  5016.         Public Sub SetPictureNull()

    5017. 

  5017.             Me(Me.tablePerson.PictureColumn) = Global.System.Convert.DBNull

    5018. 

  5018.         End Sub

    5019. 

  5019.         

    5020. 

  5020.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5021. 

  5021.         Public Function GetCourseGradeRows() As CourseGradeRow()

    5022. 

  5022.             If (Me.Table.ChildRelations("FK_CourseGrade_Student") Is Nothing) Then

    5023. 

  5023.                 Return New CourseGradeRow(-1) {}

    5024. 

  5024.             Else

    5025. 

  5025.                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_CourseGrade_Student")),CourseGradeRow())

    5026. 

  5026.             End If

    5027. 

  5027.         End Function

    5028. 

  5028.         

    5029. 

  5029.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5030. 

  5030.         Public Function GetCourseInstructorRows() As CourseInstructorRow()

    5031. 

  5031.             If (Me.Table.ChildRelations("FK_CourseInstructor_Person") Is Nothing) Then

    5032. 

  5032.                 Return New CourseInstructorRow(-1) {}

    5033. 

  5033.             Else

    5034. 

  5034.                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_CourseInstructor_Person")),CourseInstructorRow())

    5035. 

  5035.             End If

    5036. 

  5036.         End Function

    5037. 

  5037.         

    5038. 

  5038.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5039. 

  5039.         Public Function GetOfficeAssignmentRows() As OfficeAssignmentRow()

    5040. 

  5040.             If (Me.Table.ChildRelations("FK_OfficeAssignment_Person") Is Nothing) Then

    5041. 

  5041.                 Return New OfficeAssignmentRow(-1) {}

    5042. 

  5042.             Else

    5043. 

  5043.                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_OfficeAssignment_Person")),OfficeAssignmentRow())

    5044. 

  5044.             End If

    5045. 

  5045.         End Function

    5046. 

  5046.     End Class

    5047. 

  5047.     

    5048. 

  5048.     '''<summary>

    5049. 

  5049.     '''Represents strongly named DataRow class.

    5050. 

  5050.     '''</summary>

    5051. 

  5051.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")>  _

    5052. 

  5052.     Partial Public Class GetStudentGradesRow

    5053. 

  5053.         Inherits Global.System.Data.DataRow

    5054. 

  5054.         

    5055. 

  5055.         Private tableGetStudentGrades As GetStudentGradesDataTable

    5056. 

  5056.         

    5057. 

  5057.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5058. 

  5058.         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)

    5059. 

  5059.             MyBase.New(rb)

    5060. 

  5060.             Me.tableGetStudentGrades = CType(Me.Table,GetStudentGradesDataTable)

    5061. 

  5061.         End Sub

    5062. 

  5062.         

    5063. 

  5063.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5064. 

  5064.         Public Property EnrollmentID() As Integer

    5065. 

  5065.             Get

    5066. 

  5066.                 Return CType(Me(Me.tableGetStudentGrades.EnrollmentIDColumn),Integer)

    5067. 

  5067.             End Get

    5068. 

  5068.             Set

    5069. 

  5069.                 Me(Me.tableGetStudentGrades.EnrollmentIDColumn) = value

    5070. 

  5070.             End Set

    5071. 

  5071.         End Property

    5072. 

  5072.         

    5073. 

  5073.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5074. 

  5074.         Public Property Grade() As Decimal

    5075. 

  5075.             Get

    5076. 

  5076.                 Try 

    5077. 

  5077.                     Return CType(Me(Me.tableGetStudentGrades.GradeColumn),Decimal)

    5078. 

  5078.                 Catch e As Global.System.InvalidCastException

    5079. 

  5079.                     Throw New Global.System.Data.StrongTypingException("The value for column 'Grade' in table 'GetStudentGrades' is DBNull.", e)

    5080. 

  5080.                 End Try

    5081. 

  5081.             End Get

    5082. 

  5082.             Set

    5083. 

  5083.                 Me(Me.tableGetStudentGrades.GradeColumn) = value

    5084. 

  5084.             End Set

    5085. 

  5085.         End Property

    5086. 

  5086.         

    5087. 

  5087.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5088. 

  5088.         Public Function IsGradeNull() As Boolean

    5089. 

  5089.             Return Me.IsNull(Me.tableGetStudentGrades.GradeColumn)

    5090. 

  5090.         End Function

    5091. 

  5091.         

    5092. 

  5092.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5093. 

  5093.         Public Sub SetGradeNull()

    5094. 

  5094.             Me(Me.tableGetStudentGrades.GradeColumn) = Global.System.Convert.DBNull

    5095. 

  5095.         End Sub

    5096. 

  5096.     End Class

    5097. 

  5097.     

    5098. 

  5098.     '''<summary>

    5099. 

  5099.     '''Represents strongly named DataRow class.

    5100. 

  5100.     '''</summary>

    5101. 

  5101.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")>  _

    5102. 

  5102.     Partial Public Class InsertOfficeAssignmentRow

    5103. 

  5103.         Inherits Global.System.Data.DataRow

    5104. 

  5104.         

    5105. 

  5105.         Private tableInsertOfficeAssignment As InsertOfficeAssignmentDataTable

    5106. 

  5106.         

    5107. 

  5107.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5108. 

  5108.         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)

    5109. 

  5109.             MyBase.New(rb)

    5110. 

  5110.             Me.tableInsertOfficeAssignment = CType(Me.Table,InsertOfficeAssignmentDataTable)

    5111. 

  5111.         End Sub

    5112. 

  5112.         

    5113. 

  5113.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5114. 

  5114.         Public Property Timestamp() As Byte()

    5115. 

  5115.             Get

    5116. 

  5116.                 Try 

    5117. 

  5117.                     Return CType(Me(Me.tableInsertOfficeAssignment.TimestampColumn),Byte())

    5118. 

  5118.                 Catch e As Global.System.InvalidCastException

    5119. 

  5119.                     Throw New Global.System.Data.StrongTypingException("The value for column 'Timestamp' in table 'InsertOfficeAssignment' is DBNull.", e)

    5120. 

  5120.                 End Try

    5121. 

  5121.             End Get

    5122. 

  5122.             Set

    5123. 

  5123.                 Me(Me.tableInsertOfficeAssignment.TimestampColumn) = value

    5124. 

  5124.             End Set

    5125. 

  5125.         End Property

    5126. 

  5126.         

    5127. 

  5127.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5128. 

  5128.         Public Function IsTimestampNull() As Boolean

    5129. 

  5129.             Return Me.IsNull(Me.tableInsertOfficeAssignment.TimestampColumn)

    5130. 

  5130.         End Function

    5131. 

  5131.         

    5132. 

  5132.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5133. 

  5133.         Public Sub SetTimestampNull()

    5134. 

  5134.             Me(Me.tableInsertOfficeAssignment.TimestampColumn) = Global.System.Convert.DBNull

    5135. 

  5135.         End Sub

    5136. 

  5136.     End Class

    5137. 

  5137.     

    5138. 

  5138.     '''<summary>

    5139. 

  5139.     '''Represents strongly named DataRow class.

    5140. 

  5140.     '''</summary>

    5141. 

  5141.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")>  _

    5142. 

  5142.     Partial Public Class InsertPersonRow

    5143. 

  5143.         Inherits Global.System.Data.DataRow

    5144. 

  5144.         

    5145. 

  5145.         Private tableInsertPerson As InsertPersonDataTable

    5146. 

  5146.         

    5147. 

  5147.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5148. 

  5148.         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)

    5149. 

  5149.             MyBase.New(rb)

    5150. 

  5150.             Me.tableInsertPerson = CType(Me.Table,InsertPersonDataTable)

    5151. 

  5151.         End Sub

    5152. 

  5152.         

    5153. 

  5153.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5154. 

  5154.         Public Property NewPersonID() As Decimal

    5155. 

  5155.             Get

    5156. 

  5156.                 Try 

    5157. 

  5157.                     Return CType(Me(Me.tableInsertPerson.NewPersonIDColumn),Decimal)

    5158. 

  5158.                 Catch e As Global.System.InvalidCastException

    5159. 

  5159.                     Throw New Global.System.Data.StrongTypingException("The value for column 'NewPersonID' in table 'InsertPerson' is DBNull.", e)

    5160. 

  5160.                 End Try

    5161. 

  5161.             End Get

    5162. 

  5162.             Set

    5163. 

  5163.                 Me(Me.tableInsertPerson.NewPersonIDColumn) = value

    5164. 

  5164.             End Set

    5165. 

  5165.         End Property

    5166. 

  5166.         

    5167. 

  5167.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5168. 

  5168.         Public Function IsNewPersonIDNull() As Boolean

    5169. 

  5169.             Return Me.IsNull(Me.tableInsertPerson.NewPersonIDColumn)

    5170. 

  5170.         End Function

    5171. 

  5171.         

    5172. 

  5172.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5173. 

  5173.         Public Sub SetNewPersonIDNull()

    5174. 

  5174.             Me(Me.tableInsertPerson.NewPersonIDColumn) = Global.System.Convert.DBNull

    5175. 

  5175.         End Sub

    5176. 

  5176.     End Class

    5177. 

  5177.     

    5178. 

  5178.     '''<summary>

    5179. 

  5179.     '''Represents strongly named DataRow class.

    5180. 

  5180.     '''</summary>

    5181. 

  5181.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")>  _

    5182. 

  5182.     Partial Public Class UpdateOfficeAssignmentRow

    5183. 

  5183.         Inherits Global.System.Data.DataRow

    5184. 

  5184.         

    5185. 

  5185.         Private tableUpdateOfficeAssignment As UpdateOfficeAssignmentDataTable

    5186. 

  5186.         

    5187. 

  5187.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5188. 

  5188.         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)

    5189. 

  5189.             MyBase.New(rb)

    5190. 

  5190.             Me.tableUpdateOfficeAssignment = CType(Me.Table,UpdateOfficeAssignmentDataTable)

    5191. 

  5191.         End Sub

    5192. 

  5192.         

    5193. 

  5193.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5194. 

  5194.         Public Property Timestamp() As Byte()

    5195. 

  5195.             Get

    5196. 

  5196.                 Try 

    5197. 

  5197.                     Return CType(Me(Me.tableUpdateOfficeAssignment.TimestampColumn),Byte())

    5198. 

  5198.                 Catch e As Global.System.InvalidCastException

    5199. 

  5199.                     Throw New Global.System.Data.StrongTypingException("The value for column 'Timestamp' in table 'UpdateOfficeAssignment' is DBNull.", e)

    5200. 

  5200.                 End Try

    5201. 

  5201.             End Get

    5202. 

  5202.             Set

    5203. 

  5203.                 Me(Me.tableUpdateOfficeAssignment.TimestampColumn) = value

    5204. 

  5204.             End Set

    5205. 

  5205.         End Property

    5206. 

  5206.         

    5207. 

  5207.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5208. 

  5208.         Public Function IsTimestampNull() As Boolean

    5209. 

  5209.             Return Me.IsNull(Me.tableUpdateOfficeAssignment.TimestampColumn)

    5210. 

  5210.         End Function

    5211. 

  5211.         

    5212. 

  5212.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5213. 

  5213.         Public Sub SetTimestampNull()

    5214. 

  5214.             Me(Me.tableUpdateOfficeAssignment.TimestampColumn) = Global.System.Convert.DBNull

    5215. 

  5215.         End Sub

    5216. 

  5216.     End Class

    5217. 

  5217.     

    5218. 

  5218.     '''<summary>

    5219. 

  5219.     '''Represents strongly named DataRow class.

    5220. 

  5220.     '''</summary>

    5221. 

  5221.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")>  _

    5222. 

  5222.     Partial Public Class CourseListRow

    5223. 

  5223.         Inherits Global.System.Data.DataRow

    5224. 

  5224.         

    5225. 

  5225.         Private tableCourseList As CourseListDataTable

    5226. 

  5226.         

    5227. 

  5227.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5228. 

  5228.         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)

    5229. 

  5229.             MyBase.New(rb)

    5230. 

  5230.             Me.tableCourseList = CType(Me.Table,CourseListDataTable)

    5231. 

  5231.         End Sub

    5232. 

  5232.         

    5233. 

  5233.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5234. 

  5234.         Public Property Title() As String

    5235. 

  5235.             Get

    5236. 

  5236.                 Return CType(Me(Me.tableCourseList.TitleColumn),String)

    5237. 

  5237.             End Get

    5238. 

  5238.             Set

    5239. 

  5239.                 Me(Me.tableCourseList.TitleColumn) = value

    5240. 

  5240.             End Set

    5241. 

  5241.         End Property

    5242. 

  5242.         

    5243. 

  5243.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5244. 

  5244.         Public Property Credits() As Integer

    5245. 

  5245.             Get

    5246. 

  5246.                 Return CType(Me(Me.tableCourseList.CreditsColumn),Integer)

    5247. 

  5247.             End Get

    5248. 

  5248.             Set

    5249. 

  5249.                 Me(Me.tableCourseList.CreditsColumn) = value

    5250. 

  5250.             End Set

    5251. 

  5251.         End Property

    5252. 

  5252.         

    5253. 

  5253.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5254. 

  5254.         Public Property DepartmentName() As String

    5255. 

  5255.             Get

    5256. 

  5256.                 Try 

    5257. 

  5257.                     Return CType(Me(Me.tableCourseList.DepartmentNameColumn),String)

    5258. 

  5258.                 Catch e As Global.System.InvalidCastException

    5259. 

  5259.                     Throw New Global.System.Data.StrongTypingException("The value for column 'DepartmentName' in table 'CourseList' is DBNull.", e)

    5260. 

  5260.                 End Try

    5261. 

  5261.             End Get

    5262. 

  5262.             Set

    5263. 

  5263.                 Me(Me.tableCourseList.DepartmentNameColumn) = value

    5264. 

  5264.             End Set

    5265. 

  5265.         End Property

    5266. 

  5266.         

    5267. 

  5267.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5268. 

  5268.         Public Property Instructor() As String

    5269. 

  5269.             Get

    5270. 

  5270.                 Try 

    5271. 

  5271.                     Return CType(Me(Me.tableCourseList.InstructorColumn),String)

    5272. 

  5272.                 Catch e As Global.System.InvalidCastException

    5273. 

  5273.                     Throw New Global.System.Data.StrongTypingException("The value for column 'Instructor' in table 'CourseList' is DBNull.", e)

    5274. 

  5274.                 End Try

    5275. 

  5275.             End Get

    5276. 

  5276.             Set

    5277. 

  5277.                 Me(Me.tableCourseList.InstructorColumn) = value

    5278. 

  5278.             End Set

    5279. 

  5279.         End Property

    5280. 

  5280.         

    5281. 

  5281.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5282. 

  5282.         Public Function IsDepartmentNameNull() As Boolean

    5283. 

  5283.             Return Me.IsNull(Me.tableCourseList.DepartmentNameColumn)

    5284. 

  5284.         End Function

    5285. 

  5285.         

    5286. 

  5286.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5287. 

  5287.         Public Sub SetDepartmentNameNull()

    5288. 

  5288.             Me(Me.tableCourseList.DepartmentNameColumn) = Global.System.Convert.DBNull

    5289. 

  5289.         End Sub

    5290. 

  5290.         

    5291. 

  5291.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5292. 

  5292.         Public Function IsInstructorNull() As Boolean

    5293. 

  5293.             Return Me.IsNull(Me.tableCourseList.InstructorColumn)

    5294. 

  5294.         End Function

    5295. 

  5295.         

    5296. 

  5296.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5297. 

  5297.         Public Sub SetInstructorNull()

    5298. 

  5298.             Me(Me.tableCourseList.InstructorColumn) = Global.System.Convert.DBNull

    5299. 

  5299.         End Sub

    5300. 

  5300.     End Class

    5301. 

  5301.     

    5302. 

  5302.     '''<summary>

    5303. 

  5303.     '''Represents strongly named DataRow class.

    5304. 

  5304.     '''</summary>

    5305. 

  5305.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")>  _

    5306. 

  5306.     Partial Public Class StudentListRow

    5307. 

  5307.         Inherits Global.System.Data.DataRow

    5308. 

  5308.         

    5309. 

  5309.         Private tableStudentList As StudentListDataTable

    5310. 

  5310.         

    5311. 

  5311.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5312. 

  5312.         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)

    5313. 

  5313.             MyBase.New(rb)

    5314. 

  5314.             Me.tableStudentList = CType(Me.Table,StudentListDataTable)

    5315. 

  5315.         End Sub

    5316. 

  5316.         

    5317. 

  5317.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5318. 

  5318.         Public Property StudentName() As String

    5319. 

  5319.             Get

    5320. 

  5320.                 Try 

    5321. 

  5321.                     Return CType(Me(Me.tableStudentList.StudentNameColumn),String)

    5322. 

  5322.                 Catch e As Global.System.InvalidCastException

    5323. 

  5323.                     Throw New Global.System.Data.StrongTypingException("The value for column 'StudentName' in table 'StudentList' is DBNull.", e)

    5324. 

  5324.                 End Try

    5325. 

  5325.             End Get

    5326. 

  5326.             Set

    5327. 

  5327.                 Me(Me.tableStudentList.StudentNameColumn) = value

    5328. 

  5328.             End Set

    5329. 

  5329.         End Property

    5330. 

  5330.         

    5331. 

  5331.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5332. 

  5332.         Public Function IsStudentNameNull() As Boolean

    5333. 

  5333.             Return Me.IsNull(Me.tableStudentList.StudentNameColumn)

    5334. 

  5334.         End Function

    5335. 

  5335.         

    5336. 

  5336.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5337. 

  5337.         Public Sub SetStudentNameNull()

    5338. 

  5338.             Me(Me.tableStudentList.StudentNameColumn) = Global.System.Convert.DBNull

    5339. 

  5339.         End Sub

    5340. 

  5340.     End Class

    5341. 

  5341.     

    5342. 

  5342.     '''<summary>

    5343. 

  5343.     '''Row event argument class

    5344. 

  5344.     '''</summary>

    5345. 

  5345.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")>  _

    5346. 

  5346.     Public Class CourseRowChangeEvent

    5347. 

  5347.         Inherits Global.System.EventArgs

    5348. 

  5348.         

    5349. 

  5349.         Private eventRow As CourseRow

    5350. 

  5350.         

    5351. 

  5351.         Private eventAction As Global.System.Data.DataRowAction

    5352. 

  5352.         

    5353. 

  5353.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5354. 

  5354.         Public Sub New(ByVal row As CourseRow, ByVal action As Global.System.Data.DataRowAction)

    5355. 

  5355.             MyBase.New

    5356. 

  5356.             Me.eventRow = row

    5357. 

  5357.             Me.eventAction = action

    5358. 

  5358.         End Sub

    5359. 

  5359.         

    5360. 

  5360.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5361. 

  5361.         Public ReadOnly Property Row() As CourseRow

    5362. 

  5362.             Get

    5363. 

  5363.                 Return Me.eventRow

    5364. 

  5364.             End Get

    5365. 

  5365.         End Property

    5366. 

  5366.         

    5367. 

  5367.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5368. 

  5368.         Public ReadOnly Property Action() As Global.System.Data.DataRowAction

    5369. 

  5369.             Get

    5370. 

  5370.                 Return Me.eventAction

    5371. 

  5371.             End Get

    5372. 

  5372.         End Property

    5373. 

  5373.     End Class

    5374. 

  5374.     

    5375. 

  5375.     '''<summary>

    5376. 

  5376.     '''Row event argument class

    5377. 

  5377.     '''</summary>

    5378. 

  5378.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")>  _

    5379. 

  5379.     Public Class CourseGradeRowChangeEvent

    5380. 

  5380.         Inherits Global.System.EventArgs

    5381. 

  5381.         

    5382. 

  5382.         Private eventRow As CourseGradeRow

    5383. 

  5383.         

    5384. 

  5384.         Private eventAction As Global.System.Data.DataRowAction

    5385. 

  5385.         

    5386. 

  5386.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5387. 

  5387.         Public Sub New(ByVal row As CourseGradeRow, ByVal action As Global.System.Data.DataRowAction)

    5388. 

  5388.             MyBase.New

    5389. 

  5389.             Me.eventRow = row

    5390. 

  5390.             Me.eventAction = action

    5391. 

  5391.         End Sub

    5392. 

  5392.         

    5393. 

  5393.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5394. 

  5394.         Public ReadOnly Property Row() As CourseGradeRow

    5395. 

  5395.             Get

    5396. 

  5396.                 Return Me.eventRow

    5397. 

  5397.             End Get

    5398. 

  5398.         End Property

    5399. 

  5399.         

    5400. 

  5400.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5401. 

  5401.         Public ReadOnly Property Action() As Global.System.Data.DataRowAction

    5402. 

  5402.             Get

    5403. 

  5403.                 Return Me.eventAction

    5404. 

  5404.             End Get

    5405. 

  5405.         End Property

    5406. 

  5406.     End Class

    5407. 

  5407.     

    5408. 

  5408.     '''<summary>

    5409. 

  5409.     '''Row event argument class

    5410. 

  5410.     '''</summary>

    5411. 

  5411.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")>  _

    5412. 

  5412.     Public Class CourseInstructorRowChangeEvent

    5413. 

  5413.         Inherits Global.System.EventArgs

    5414. 

  5414.         

    5415. 

  5415.         Private eventRow As CourseInstructorRow

    5416. 

  5416.         

    5417. 

  5417.         Private eventAction As Global.System.Data.DataRowAction

    5418. 

  5418.         

    5419. 

  5419.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5420. 

  5420.         Public Sub New(ByVal row As CourseInstructorRow, ByVal action As Global.System.Data.DataRowAction)

    5421. 

  5421.             MyBase.New

    5422. 

  5422.             Me.eventRow = row

    5423. 

  5423.             Me.eventAction = action

    5424. 

  5424.         End Sub

    5425. 

  5425.         

    5426. 

  5426.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5427. 

  5427.         Public ReadOnly Property Row() As CourseInstructorRow

    5428. 

  5428.             Get

    5429. 

  5429.                 Return Me.eventRow

    5430. 

  5430.             End Get

    5431. 

  5431.         End Property

    5432. 

  5432.         

    5433. 

  5433.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5434. 

  5434.         Public ReadOnly Property Action() As Global.System.Data.DataRowAction

    5435. 

  5435.             Get

    5436. 

  5436.                 Return Me.eventAction

    5437. 

  5437.             End Get

    5438. 

  5438.         End Property

    5439. 

  5439.     End Class

    5440. 

  5440.     

    5441. 

  5441.     '''<summary>

    5442. 

  5442.     '''Row event argument class

    5443. 

  5443.     '''</summary>

    5444. 

  5444.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")>  _

    5445. 

  5445.     Public Class DepartmentRowChangeEvent

    5446. 

  5446.         Inherits Global.System.EventArgs

    5447. 

  5447.         

    5448. 

  5448.         Private eventRow As DepartmentRow

    5449. 

  5449.         

    5450. 

  5450.         Private eventAction As Global.System.Data.DataRowAction

    5451. 

  5451.         

    5452. 

  5452.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5453. 

  5453.         Public Sub New(ByVal row As DepartmentRow, ByVal action As Global.System.Data.DataRowAction)

    5454. 

  5454.             MyBase.New

    5455. 

  5455.             Me.eventRow = row

    5456. 

  5456.             Me.eventAction = action

    5457. 

  5457.         End Sub

    5458. 

  5458.         

    5459. 

  5459.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5460. 

  5460.         Public ReadOnly Property Row() As DepartmentRow

    5461. 

  5461.             Get

    5462. 

  5462.                 Return Me.eventRow

    5463. 

  5463.             End Get

    5464. 

  5464.         End Property

    5465. 

  5465.         

    5466. 

  5466.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5467. 

  5467.         Public ReadOnly Property Action() As Global.System.Data.DataRowAction

    5468. 

  5468.             Get

    5469. 

  5469.                 Return Me.eventAction

    5470. 

  5470.             End Get

    5471. 

  5471.         End Property

    5472. 

  5472.     End Class

    5473. 

  5473.     

    5474. 

  5474.     '''<summary>

    5475. 

  5475.     '''Row event argument class

    5476. 

  5476.     '''</summary>

    5477. 

  5477.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")>  _

    5478. 

  5478.     Public Class OfficeAssignmentRowChangeEvent

    5479. 

  5479.         Inherits Global.System.EventArgs

    5480. 

  5480.         

    5481. 

  5481.         Private eventRow As OfficeAssignmentRow

    5482. 

  5482.         

    5483. 

  5483.         Private eventAction As Global.System.Data.DataRowAction

    5484. 

  5484.         

    5485. 

  5485.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5486. 

  5486.         Public Sub New(ByVal row As OfficeAssignmentRow, ByVal action As Global.System.Data.DataRowAction)

    5487. 

  5487.             MyBase.New

    5488. 

  5488.             Me.eventRow = row

    5489. 

  5489.             Me.eventAction = action

    5490. 

  5490.         End Sub

    5491. 

  5491.         

    5492. 

  5492.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5493. 

  5493.         Public ReadOnly Property Row() As OfficeAssignmentRow

    5494. 

  5494.             Get

    5495. 

  5495.                 Return Me.eventRow

    5496. 

  5496.             End Get

    5497. 

  5497.         End Property

    5498. 

  5498.         

    5499. 

  5499.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5500. 

  5500.         Public ReadOnly Property Action() As Global.System.Data.DataRowAction

    5501. 

  5501.             Get

    5502. 

  5502.                 Return Me.eventAction

    5503. 

  5503.             End Get

    5504. 

  5504.         End Property

    5505. 

  5505.     End Class

    5506. 

  5506.     

    5507. 

  5507.     '''<summary>

    5508. 

  5508.     '''Row event argument class

    5509. 

  5509.     '''</summary>

    5510. 

  5510.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")>  _

    5511. 

  5511.     Public Class OnlineCourseRowChangeEvent

    5512. 

  5512.         Inherits Global.System.EventArgs

    5513. 

  5513.         

    5514. 

  5514.         Private eventRow As OnlineCourseRow

    5515. 

  5515.         

    5516. 

  5516.         Private eventAction As Global.System.Data.DataRowAction

    5517. 

  5517.         

    5518. 

  5518.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5519. 

  5519.         Public Sub New(ByVal row As OnlineCourseRow, ByVal action As Global.System.Data.DataRowAction)

    5520. 

  5520.             MyBase.New

    5521. 

  5521.             Me.eventRow = row

    5522. 

  5522.             Me.eventAction = action

    5523. 

  5523.         End Sub

    5524. 

  5524.         

    5525. 

  5525.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5526. 

  5526.         Public ReadOnly Property Row() As OnlineCourseRow

    5527. 

  5527.             Get

    5528. 

  5528.                 Return Me.eventRow

    5529. 

  5529.             End Get

    5530. 

  5530.         End Property

    5531. 

  5531.         

    5532. 

  5532.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5533. 

  5533.         Public ReadOnly Property Action() As Global.System.Data.DataRowAction

    5534. 

  5534.             Get

    5535. 

  5535.                 Return Me.eventAction

    5536. 

  5536.             End Get

    5537. 

  5537.         End Property

    5538. 

  5538.     End Class

    5539. 

  5539.     

    5540. 

  5540.     '''<summary>

    5541. 

  5541.     '''Row event argument class

    5542. 

  5542.     '''</summary>

    5543. 

  5543.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")>  _

    5544. 

  5544.     Public Class OnsiteCourseRowChangeEvent

    5545. 

  5545.         Inherits Global.System.EventArgs

    5546. 

  5546.         

    5547. 

  5547.         Private eventRow As OnsiteCourseRow

    5548. 

  5548.         

    5549. 

  5549.         Private eventAction As Global.System.Data.DataRowAction

    5550. 

  5550.         

    5551. 

  5551.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5552. 

  5552.         Public Sub New(ByVal row As OnsiteCourseRow, ByVal action As Global.System.Data.DataRowAction)

    5553. 

  5553.             MyBase.New

    5554. 

  5554.             Me.eventRow = row

    5555. 

  5555.             Me.eventAction = action

    5556. 

  5556.         End Sub

    5557. 

  5557.         

    5558. 

  5558.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5559. 

  5559.         Public ReadOnly Property Row() As OnsiteCourseRow

    5560. 

  5560.             Get

    5561. 

  5561.                 Return Me.eventRow

    5562. 

  5562.             End Get

    5563. 

  5563.         End Property

    5564. 

  5564.         

    5565. 

  5565.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5566. 

  5566.         Public ReadOnly Property Action() As Global.System.Data.DataRowAction

    5567. 

  5567.             Get

    5568. 

  5568.                 Return Me.eventAction

    5569. 

  5569.             End Get

    5570. 

  5570.         End Property

    5571. 

  5571.     End Class

    5572. 

  5572.     

    5573. 

  5573.     '''<summary>

    5574. 

  5574.     '''Row event argument class

    5575. 

  5575.     '''</summary>

    5576. 

  5576.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")>  _

    5577. 

  5577.     Public Class PersonRowChangeEvent

    5578. 

  5578.         Inherits Global.System.EventArgs

    5579. 

  5579.         

    5580. 

  5580.         Private eventRow As PersonRow

    5581. 

  5581.         

    5582. 

  5582.         Private eventAction As Global.System.Data.DataRowAction

    5583. 

  5583.         

    5584. 

  5584.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5585. 

  5585.         Public Sub New(ByVal row As PersonRow, ByVal action As Global.System.Data.DataRowAction)

    5586. 

  5586.             MyBase.New

    5587. 

  5587.             Me.eventRow = row

    5588. 

  5588.             Me.eventAction = action

    5589. 

  5589.         End Sub

    5590. 

  5590.         

    5591. 

  5591.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5592. 

  5592.         Public ReadOnly Property Row() As PersonRow

    5593. 

  5593.             Get

    5594. 

  5594.                 Return Me.eventRow

    5595. 

  5595.             End Get

    5596. 

  5596.         End Property

    5597. 

  5597.         

    5598. 

  5598.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5599. 

  5599.         Public ReadOnly Property Action() As Global.System.Data.DataRowAction

    5600. 

  5600.             Get

    5601. 

  5601.                 Return Me.eventAction

    5602. 

  5602.             End Get

    5603. 

  5603.         End Property

    5604. 

  5604.     End Class

    5605. 

  5605.     

    5606. 

  5606.     '''<summary>

    5607. 

  5607.     '''Row event argument class

    5608. 

  5608.     '''</summary>

    5609. 

  5609.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")>  _

    5610. 

  5610.     Public Class GetStudentGradesRowChangeEvent

    5611. 

  5611.         Inherits Global.System.EventArgs

    5612. 

  5612.         

    5613. 

  5613.         Private eventRow As GetStudentGradesRow

    5614. 

  5614.         

    5615. 

  5615.         Private eventAction As Global.System.Data.DataRowAction

    5616. 

  5616.         

    5617. 

  5617.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5618. 

  5618.         Public Sub New(ByVal row As GetStudentGradesRow, ByVal action As Global.System.Data.DataRowAction)

    5619. 

  5619.             MyBase.New

    5620. 

  5620.             Me.eventRow = row

    5621. 

  5621.             Me.eventAction = action

    5622. 

  5622.         End Sub

    5623. 

  5623.         

    5624. 

  5624.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5625. 

  5625.         Public ReadOnly Property Row() As GetStudentGradesRow

    5626. 

  5626.             Get

    5627. 

  5627.                 Return Me.eventRow

    5628. 

  5628.             End Get

    5629. 

  5629.         End Property

    5630. 

  5630.         

    5631. 

  5631.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5632. 

  5632.         Public ReadOnly Property Action() As Global.System.Data.DataRowAction

    5633. 

  5633.             Get

    5634. 

  5634.                 Return Me.eventAction

    5635. 

  5635.             End Get

    5636. 

  5636.         End Property

    5637. 

  5637.     End Class

    5638. 

  5638.     

    5639. 

  5639.     '''<summary>

    5640. 

  5640.     '''Row event argument class

    5641. 

  5641.     '''</summary>

    5642. 

  5642.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")>  _

    5643. 

  5643.     Public Class InsertOfficeAssignmentRowChangeEvent

    5644. 

  5644.         Inherits Global.System.EventArgs

    5645. 

  5645.         

    5646. 

  5646.         Private eventRow As InsertOfficeAssignmentRow

    5647. 

  5647.         

    5648. 

  5648.         Private eventAction As Global.System.Data.DataRowAction

    5649. 

  5649.         

    5650. 

  5650.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5651. 

  5651.         Public Sub New(ByVal row As InsertOfficeAssignmentRow, ByVal action As Global.System.Data.DataRowAction)

    5652. 

  5652.             MyBase.New

    5653. 

  5653.             Me.eventRow = row

    5654. 

  5654.             Me.eventAction = action

    5655. 

  5655.         End Sub

    5656. 

  5656.         

    5657. 

  5657.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5658. 

  5658.         Public ReadOnly Property Row() As InsertOfficeAssignmentRow

    5659. 

  5659.             Get

    5660. 

  5660.                 Return Me.eventRow

    5661. 

  5661.             End Get

    5662. 

  5662.         End Property

    5663. 

  5663.         

    5664. 

  5664.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5665. 

  5665.         Public ReadOnly Property Action() As Global.System.Data.DataRowAction

    5666. 

  5666.             Get

    5667. 

  5667.                 Return Me.eventAction

    5668. 

  5668.             End Get

    5669. 

  5669.         End Property

    5670. 

  5670.     End Class

    5671. 

  5671.     

    5672. 

  5672.     '''<summary>

    5673. 

  5673.     '''Row event argument class

    5674. 

  5674.     '''</summary>

    5675. 

  5675.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")>  _

    5676. 

  5676.     Public Class InsertPersonRowChangeEvent

    5677. 

  5677.         Inherits Global.System.EventArgs

    5678. 

  5678.         

    5679. 

  5679.         Private eventRow As InsertPersonRow

    5680. 

  5680.         

    5681. 

  5681.         Private eventAction As Global.System.Data.DataRowAction

    5682. 

  5682.         

    5683. 

  5683.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5684. 

  5684.         Public Sub New(ByVal row As InsertPersonRow, ByVal action As Global.System.Data.DataRowAction)

    5685. 

  5685.             MyBase.New

    5686. 

  5686.             Me.eventRow = row

    5687. 

  5687.             Me.eventAction = action

    5688. 

  5688.         End Sub

    5689. 

  5689.         

    5690. 

  5690.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5691. 

  5691.         Public ReadOnly Property Row() As InsertPersonRow

    5692. 

  5692.             Get

    5693. 

  5693.                 Return Me.eventRow

    5694. 

  5694.             End Get

    5695. 

  5695.         End Property

    5696. 

  5696.         

    5697. 

  5697.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5698. 

  5698.         Public ReadOnly Property Action() As Global.System.Data.DataRowAction

    5699. 

  5699.             Get

    5700. 

  5700.                 Return Me.eventAction

    5701. 

  5701.             End Get

    5702. 

  5702.         End Property

    5703. 

  5703.     End Class

    5704. 

  5704.     

    5705. 

  5705.     '''<summary>

    5706. 

  5706.     '''Row event argument class

    5707. 

  5707.     '''</summary>

    5708. 

  5708.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")>  _

    5709. 

  5709.     Public Class UpdateOfficeAssignmentRowChangeEvent

    5710. 

  5710.         Inherits Global.System.EventArgs

    5711. 

  5711.         

    5712. 

  5712.         Private eventRow As UpdateOfficeAssignmentRow

    5713. 

  5713.         

    5714. 

  5714.         Private eventAction As Global.System.Data.DataRowAction

    5715. 

  5715.         

    5716. 

  5716.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5717. 

  5717.         Public Sub New(ByVal row As UpdateOfficeAssignmentRow, ByVal action As Global.System.Data.DataRowAction)

    5718. 

  5718.             MyBase.New

    5719. 

  5719.             Me.eventRow = row

    5720. 

  5720.             Me.eventAction = action

    5721. 

  5721.         End Sub

    5722. 

  5722.         

    5723. 

  5723.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5724. 

  5724.         Public ReadOnly Property Row() As UpdateOfficeAssignmentRow

    5725. 

  5725.             Get

    5726. 

  5726.                 Return Me.eventRow

    5727. 

  5727.             End Get

    5728. 

  5728.         End Property

    5729. 

  5729.         

    5730. 

  5730.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5731. 

  5731.         Public ReadOnly Property Action() As Global.System.Data.DataRowAction

    5732. 

  5732.             Get

    5733. 

  5733.                 Return Me.eventAction

    5734. 

  5734.             End Get

    5735. 

  5735.         End Property

    5736. 

  5736.     End Class

    5737. 

  5737.     

    5738. 

  5738.     '''<summary>

    5739. 

  5739.     '''Row event argument class

    5740. 

  5740.     '''</summary>

    5741. 

  5741.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")>  _

    5742. 

  5742.     Public Class CourseListRowChangeEvent

    5743. 

  5743.         Inherits Global.System.EventArgs

    5744. 

  5744.         

    5745. 

  5745.         Private eventRow As CourseListRow

    5746. 

  5746.         

    5747. 

  5747.         Private eventAction As Global.System.Data.DataRowAction

    5748. 

  5748.         

    5749. 

  5749.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5750. 

  5750.         Public Sub New(ByVal row As CourseListRow, ByVal action As Global.System.Data.DataRowAction)

    5751. 

  5751.             MyBase.New

    5752. 

  5752.             Me.eventRow = row

    5753. 

  5753.             Me.eventAction = action

    5754. 

  5754.         End Sub

    5755. 

  5755.         

    5756. 

  5756.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5757. 

  5757.         Public ReadOnly Property Row() As CourseListRow

    5758. 

  5758.             Get

    5759. 

  5759.                 Return Me.eventRow

    5760. 

  5760.             End Get

    5761. 

  5761.         End Property

    5762. 

  5762.         

    5763. 

  5763.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5764. 

  5764.         Public ReadOnly Property Action() As Global.System.Data.DataRowAction

    5765. 

  5765.             Get

    5766. 

  5766.                 Return Me.eventAction

    5767. 

  5767.             End Get

    5768. 

  5768.         End Property

    5769. 

  5769.     End Class

    5770. 

  5770.     

    5771. 

  5771.     '''<summary>

    5772. 

  5772.     '''Row event argument class

    5773. 

  5773.     '''</summary>

    5774. 

  5774.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")>  _

    5775. 

  5775.     Public Class StudentListRowChangeEvent

    5776. 

  5776.         Inherits Global.System.EventArgs

    5777. 

  5777.         

    5778. 

  5778.         Private eventRow As StudentListRow

    5779. 

  5779.         

    5780. 

  5780.         Private eventAction As Global.System.Data.DataRowAction

    5781. 

  5781.         

    5782. 

  5782.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5783. 

  5783.         Public Sub New(ByVal row As StudentListRow, ByVal action As Global.System.Data.DataRowAction)

    5784. 

  5784.             MyBase.New

    5785. 

  5785.             Me.eventRow = row

    5786. 

  5786.             Me.eventAction = action

    5787. 

  5787.         End Sub

    5788. 

  5788.         

    5789. 

  5789.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5790. 

  5790.         Public ReadOnly Property Row() As StudentListRow

    5791. 

  5791.             Get

    5792. 

  5792.                 Return Me.eventRow

    5793. 

  5793.             End Get

    5794. 

  5794.         End Property

    5795. 

  5795.         

    5796. 

  5796.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5797. 

  5797.         Public ReadOnly Property Action() As Global.System.Data.DataRowAction

    5798. 

  5798.             Get

    5799. 

  5799.                 Return Me.eventAction

    5800. 

  5800.             End Get

    5801. 

  5801.         End Property

    5802. 

  5802.     End Class

    5803. 

  5803. End Class

    5804. 

  5804. 

    5805. 

  5805. Namespace SchoolDataSetTableAdapters

    5806. 

  5806.     

    5807. 

  5807.     '''<summary>

    5808. 

  5808.     '''Represents the connection and commands used to retrieve and save data.

    5809. 

  5809.     '''</summary>

    5810. 

  5810.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"),  _

    5811. 

  5811.      Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _

    5812. 

  5812.      Global.System.ComponentModel.ToolboxItem(true),  _

    5813. 

  5813.      Global.System.ComponentModel.DataObjectAttribute(true),  _

    5814. 

  5814.      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ 

    5815. 

  5815.         ", Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _

    5816. 

  5816.      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    5817. 

  5817.     Partial Public Class CourseTableAdapter

    5818. 

  5818.         Inherits Global.System.ComponentModel.Component

    5819. 

  5819.         

    5820. 

  5820.         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter

    5821. 

  5821.         

    5822. 

  5822.         Private _connection As Global.System.Data.SqlClient.SqlConnection

    5823. 

  5823.         

    5824. 

  5824.         Private _transaction As Global.System.Data.SqlClient.SqlTransaction

    5825. 

  5825.         

    5826. 

  5826.         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand

    5827. 

  5827.         

    5828. 

  5828.         Private _clearBeforeFill As Boolean

    5829. 

  5829.         

    5830. 

  5830.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5831. 

  5831.         Public Sub New()

    5832. 

  5832.             MyBase.New

    5833. 

  5833.             Me.ClearBeforeFill = true

    5834. 

  5834.         End Sub

    5835. 

  5835.         

    5836. 

  5836.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5837. 

  5837.         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter

    5838. 

  5838.             Get

    5839. 

  5839.                 If (Me._adapter Is Nothing) Then

    5840. 

  5840.                     Me.InitAdapter

    5841. 

  5841.                 End If

    5842. 

  5842.                 Return Me._adapter

    5843. 

  5843.             End Get

    5844. 

  5844.         End Property

    5845. 

  5845.         

    5846. 

  5846.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5847. 

  5847.         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection

    5848. 

  5848.             Get

    5849. 

  5849.                 If (Me._connection Is Nothing) Then

    5850. 

  5850.                     Me.InitConnection

    5851. 

  5851.                 End If

    5852. 

  5852.                 Return Me._connection

    5853. 

  5853.             End Get

    5854. 

  5854.             Set

    5855. 

  5855.                 Me._connection = value

    5856. 

  5856.                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then

    5857. 

  5857.                     Me.Adapter.InsertCommand.Connection = value

    5858. 

  5858.                 End If

    5859. 

  5859.                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then

    5860. 

  5860.                     Me.Adapter.DeleteCommand.Connection = value

    5861. 

  5861.                 End If

    5862. 

  5862.                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then

    5863. 

  5863.                     Me.Adapter.UpdateCommand.Connection = value

    5864. 

  5864.                 End If

    5865. 

  5865.                 Dim i As Integer = 0

    5866. 

  5866.                 Do While (i < Me.CommandCollection.Length)

    5867. 

  5867.                     If (Not (Me.CommandCollection(i)) Is Nothing) Then

    5868. 

  5868.                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value

    5869. 

  5869.                     End If

    5870. 

  5870.                     i = (i + 1)

    5871. 

  5871.                 Loop

    5872. 

  5872.             End Set

    5873. 

  5873.         End Property

    5874. 

  5874.         

    5875. 

  5875.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5876. 

  5876.         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction

    5877. 

  5877.             Get

    5878. 

  5878.                 Return Me._transaction

    5879. 

  5879.             End Get

    5880. 

  5880.             Set

    5881. 

  5881.                 Me._transaction = value

    5882. 

  5882.                 Dim i As Integer = 0

    5883. 

  5883.                 Do While (i < Me.CommandCollection.Length)

    5884. 

  5884.                     Me.CommandCollection(i).Transaction = Me._transaction

    5885. 

  5885.                     i = (i + 1)

    5886. 

  5886.                 Loop

    5887. 

  5887.                 If ((Not (Me.Adapter) Is Nothing)  _

    5888. 

  5888.                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then

    5889. 

  5889.                     Me.Adapter.DeleteCommand.Transaction = Me._transaction

    5890. 

  5890.                 End If

    5891. 

  5891.                 If ((Not (Me.Adapter) Is Nothing)  _

    5892. 

  5892.                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then

    5893. 

  5893.                     Me.Adapter.InsertCommand.Transaction = Me._transaction

    5894. 

  5894.                 End If

    5895. 

  5895.                 If ((Not (Me.Adapter) Is Nothing)  _

    5896. 

  5896.                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then

    5897. 

  5897.                     Me.Adapter.UpdateCommand.Transaction = Me._transaction

    5898. 

  5898.                 End If

    5899. 

  5899.             End Set

    5900. 

  5900.         End Property

    5901. 

  5901.         

    5902. 

  5902.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5903. 

  5903.         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()

    5904. 

  5904.             Get

    5905. 

  5905.                 If (Me._commandCollection Is Nothing) Then

    5906. 

  5906.                     Me.InitCommandCollection

    5907. 

  5907.                 End If

    5908. 

  5908.                 Return Me._commandCollection

    5909. 

  5909.             End Get

    5910. 

  5910.         End Property

    5911. 

  5911.         

    5912. 

  5912.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5913. 

  5913.         Public Property ClearBeforeFill() As Boolean

    5914. 

  5914.             Get

    5915. 

  5915.                 Return Me._clearBeforeFill

    5916. 

  5916.             End Get

    5917. 

  5917.             Set

    5918. 

  5918.                 Me._clearBeforeFill = value

    5919. 

  5919.             End Set

    5920. 

  5920.         End Property

    5921. 

  5921.         

    5922. 

  5922.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5923. 

  5923.         Private Sub InitAdapter()

    5924. 

  5924.             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter

    5925. 

  5925.             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping

    5926. 

  5926.             tableMapping.SourceTable = "Table"

    5927. 

  5927.             tableMapping.DataSetTable = "Course"

    5928. 

  5928.             tableMapping.ColumnMappings.Add("CourseID", "CourseID")

    5929. 

  5929.             tableMapping.ColumnMappings.Add("Title", "Title")

    5930. 

  5930.             tableMapping.ColumnMappings.Add("Credits", "Credits")

    5931. 

  5931.             tableMapping.ColumnMappings.Add("DepartmentID", "DepartmentID")

    5932. 

  5932.             Me._adapter.TableMappings.Add(tableMapping)

    5933. 

  5933.             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand

    5934. 

  5934.             Me._adapter.DeleteCommand.Connection = Me.Connection

    5935. 

  5935.             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Course] WHERE (([CourseID] = @Original_CourseID) AND ([Title] "& _ 

    5936. 

  5936.                 "= @Original_Title) AND ([Credits] = @Original_Credits) AND ([DepartmentID] = @Or"& _ 

    5937. 

  5937.                 "iginal_DepartmentID))"

    5938. 

  5938.             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text

    5939. 

  5939.             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CourseID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CourseID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    5940. 

  5940.             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Title", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Title", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    5941. 

  5941.             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Credits", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Credits", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    5942. 

  5942.             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DepartmentID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DepartmentID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    5943. 

  5943.             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand

    5944. 

  5944.             Me._adapter.InsertCommand.Connection = Me.Connection

    5945. 

  5945.             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Course] ([CourseID], [Title], [Credits], [DepartmentID]) VALUE"& _ 

    5946. 

  5946.                 "S (@CourseID, @Title, @Credits, @DepartmentID);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CourseID, Title, Credits"& _ 

    5947. 

  5947.                 ", DepartmentID FROM Course WHERE (CourseID = @CourseID)"

    5948. 

  5948.             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text

    5949. 

  5949.             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CourseID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CourseID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    5950. 

  5950.             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Title", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Title", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    5951. 

  5951.             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Credits", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Credits", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    5952. 

  5952.             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DepartmentID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DepartmentID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    5953. 

  5953.             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand

    5954. 

  5954.             Me._adapter.UpdateCommand.Connection = Me.Connection

    5955. 

  5955.             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Course] SET [CourseID] = @CourseID, [Title] = @Title, [Credits] = @"& _ 

    5956. 

  5956.                 "Credits, [DepartmentID] = @DepartmentID WHERE (([CourseID] = @Original_CourseID)"& _ 

    5957. 

  5957.                 " AND ([Title] = @Original_Title) AND ([Credits] = @Original_Credits) AND ([Depar"& _ 

    5958. 

  5958.                 "tmentID] = @Original_DepartmentID));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CourseID, Title, Credits, Departmen"& _ 

    5959. 

  5959.                 "tID FROM Course WHERE (CourseID = @CourseID)"

    5960. 

  5960.             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text

    5961. 

  5961.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CourseID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CourseID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    5962. 

  5962.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Title", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Title", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    5963. 

  5963.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Credits", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Credits", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    5964. 

  5964.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DepartmentID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DepartmentID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    5965. 

  5965.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CourseID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CourseID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    5966. 

  5966.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Title", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Title", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    5967. 

  5967.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Credits", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Credits", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    5968. 

  5968.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DepartmentID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DepartmentID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    5969. 

  5969.         End Sub

    5970. 

  5970.         

    5971. 

  5971.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5972. 

  5972.         Private Sub InitConnection()

    5973. 

  5973.             Me._connection = New Global.System.Data.SqlClient.SqlConnection

    5974. 

  5974.             Me._connection.ConnectionString = Global.VBVstoExcelWorkbook.MySettings.Default.SchoolConnectionString

    5975. 

  5975.         End Sub

    5976. 

  5976.         

    5977. 

  5977.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    5978. 

  5978.         Private Sub InitCommandCollection()

    5979. 

  5979.             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}

    5980. 

  5980.             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand

    5981. 

  5981.             Me._commandCollection(0).Connection = Me.Connection

    5982. 

  5982.             Me._commandCollection(0).CommandText = "SELECT CourseID, Title, Credits, DepartmentID FROM dbo.Course"

    5983. 

  5983.             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text

    5984. 

  5984.         End Sub

    5985. 

  5985.         

    5986. 

  5986.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    5987. 

  5987.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    5988. 

  5988.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _

    5989. 

  5989.         Public Overloads Overridable Function Fill(ByVal dataTable As SchoolDataSet.CourseDataTable) As Integer

    5990. 

  5990.             Me.Adapter.SelectCommand = Me.CommandCollection(0)

    5991. 

  5991.             If (Me.ClearBeforeFill = true) Then

    5992. 

  5992.                 dataTable.Clear

    5993. 

  5993.             End If

    5994. 

  5994.             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)

    5995. 

  5995.             Return returnValue

    5996. 

  5996.         End Function

    5997. 

  5997.         

    5998. 

  5998.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    5999. 

  5999.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    6000. 

  6000.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _

    6001. 

  6001.         Public Overloads Overridable Function GetData() As SchoolDataSet.CourseDataTable

    6002. 

  6002.             Me.Adapter.SelectCommand = Me.CommandCollection(0)

    6003. 

  6003.             Dim dataTable As SchoolDataSet.CourseDataTable = New SchoolDataSet.CourseDataTable

    6004. 

  6004.             Me.Adapter.Fill(dataTable)

    6005. 

  6005.             Return dataTable

    6006. 

  6006.         End Function

    6007. 

  6007.         

    6008. 

  6008.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    6009. 

  6009.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    6010. 

  6010.         Public Overloads Overridable Function Update(ByVal dataTable As SchoolDataSet.CourseDataTable) As Integer

    6011. 

  6011.             Return Me.Adapter.Update(dataTable)

    6012. 

  6012.         End Function

    6013. 

  6013.         

    6014. 

  6014.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    6015. 

  6015.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    6016. 

  6016.         Public Overloads Overridable Function Update(ByVal dataSet As SchoolDataSet) As Integer

    6017. 

  6017.             Return Me.Adapter.Update(dataSet, "Course")

    6018. 

  6018.         End Function

    6019. 

  6019.         

    6020. 

  6020.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    6021. 

  6021.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    6022. 

  6022.         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer

    6023. 

  6023.             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})

    6024. 

  6024.         End Function

    6025. 

  6025.         

    6026. 

  6026.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    6027. 

  6027.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    6028. 

  6028.         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer

    6029. 

  6029.             Return Me.Adapter.Update(dataRows)

    6030. 

  6030.         End Function

    6031. 

  6031.         

    6032. 

  6032.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    6033. 

  6033.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    6034. 

  6034.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _

    6035. 

  6035.         Public Overloads Overridable Function Delete(ByVal Original_CourseID As Integer, ByVal Original_Title As String, ByVal Original_Credits As Integer, ByVal Original_DepartmentID As Integer) As Integer

    6036. 

  6036.             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_CourseID,Integer)

    6037. 

  6037.             If (Original_Title Is Nothing) Then

    6038. 

  6038.                 Throw New Global.System.ArgumentNullException("Original_Title")

    6039. 

  6039.             Else

    6040. 

  6040.                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Title,String)

    6041. 

  6041.             End If

    6042. 

  6042.             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Credits,Integer)

    6043. 

  6043.             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_DepartmentID,Integer)

    6044. 

  6044.             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State

    6045. 

  6045.             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _

    6046. 

  6046.                         <> Global.System.Data.ConnectionState.Open) Then

    6047. 

  6047.                 Me.Adapter.DeleteCommand.Connection.Open

    6048. 

  6048.             End If

    6049. 

  6049.             Try 

    6050. 

  6050.                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery

    6051. 

  6051.                 Return returnValue

    6052. 

  6052.             Finally

    6053. 

  6053.                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then

    6054. 

  6054.                     Me.Adapter.DeleteCommand.Connection.Close

    6055. 

  6055.                 End If

    6056. 

  6056.             End Try

    6057. 

  6057.         End Function

    6058. 

  6058.         

    6059. 

  6059.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    6060. 

  6060.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    6061. 

  6061.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _

    6062. 

  6062.         Public Overloads Overridable Function Insert(ByVal CourseID As Integer, ByVal Title As String, ByVal Credits As Integer, ByVal DepartmentID As Integer) As Integer

    6063. 

  6063.             Me.Adapter.InsertCommand.Parameters(0).Value = CType(CourseID,Integer)

    6064. 

  6064.             If (Title Is Nothing) Then

    6065. 

  6065.                 Throw New Global.System.ArgumentNullException("Title")

    6066. 

  6066.             Else

    6067. 

  6067.                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(Title,String)

    6068. 

  6068.             End If

    6069. 

  6069.             Me.Adapter.InsertCommand.Parameters(2).Value = CType(Credits,Integer)

    6070. 

  6070.             Me.Adapter.InsertCommand.Parameters(3).Value = CType(DepartmentID,Integer)

    6071. 

  6071.             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State

    6072. 

  6072.             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _

    6073. 

  6073.                         <> Global.System.Data.ConnectionState.Open) Then

    6074. 

  6074.                 Me.Adapter.InsertCommand.Connection.Open

    6075. 

  6075.             End If

    6076. 

  6076.             Try 

    6077. 

  6077.                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery

    6078. 

  6078.                 Return returnValue

    6079. 

  6079.             Finally

    6080. 

  6080.                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then

    6081. 

  6081.                     Me.Adapter.InsertCommand.Connection.Close

    6082. 

  6082.                 End If

    6083. 

  6083.             End Try

    6084. 

  6084.         End Function

    6085. 

  6085.         

    6086. 

  6086.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    6087. 

  6087.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    6088. 

  6088.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _

    6089. 

  6089.         Public Overloads Overridable Function Update(ByVal CourseID As Integer, ByVal Title As String, ByVal Credits As Integer, ByVal DepartmentID As Integer, ByVal Original_CourseID As Integer, ByVal Original_Title As String, ByVal Original_Credits As Integer, ByVal Original_DepartmentID As Integer) As Integer

    6090. 

  6090.             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CourseID,Integer)

    6091. 

  6091.             If (Title Is Nothing) Then

    6092. 

  6092.                 Throw New Global.System.ArgumentNullException("Title")

    6093. 

  6093.             Else

    6094. 

  6094.                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Title,String)

    6095. 

  6095.             End If

    6096. 

  6096.             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Credits,Integer)

    6097. 

  6097.             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(DepartmentID,Integer)

    6098. 

  6098.             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_CourseID,Integer)

    6099. 

  6099.             If (Original_Title Is Nothing) Then

    6100. 

  6100.                 Throw New Global.System.ArgumentNullException("Original_Title")

    6101. 

  6101.             Else

    6102. 

  6102.                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_Title,String)

    6103. 

  6103.             End If

    6104. 

  6104.             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_Credits,Integer)

    6105. 

  6105.             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_DepartmentID,Integer)

    6106. 

  6106.             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State

    6107. 

  6107.             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _

    6108. 

  6108.                         <> Global.System.Data.ConnectionState.Open) Then

    6109. 

  6109.                 Me.Adapter.UpdateCommand.Connection.Open

    6110. 

  6110.             End If

    6111. 

  6111.             Try 

    6112. 

  6112.                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery

    6113. 

  6113.                 Return returnValue

    6114. 

  6114.             Finally

    6115. 

  6115.                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then

    6116. 

  6116.                     Me.Adapter.UpdateCommand.Connection.Close

    6117. 

  6117.                 End If

    6118. 

  6118.             End Try

    6119. 

  6119.         End Function

    6120. 

  6120.         

    6121. 

  6121.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    6122. 

  6122.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    6123. 

  6123.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _

    6124. 

  6124.         Public Overloads Overridable Function Update(ByVal Title As String, ByVal Credits As Integer, ByVal DepartmentID As Integer, ByVal Original_CourseID As Integer, ByVal Original_Title As String, ByVal Original_Credits As Integer, ByVal Original_DepartmentID As Integer) As Integer

    6125. 

  6125.             Return Me.Update(Original_CourseID, Title, Credits, DepartmentID, Original_CourseID, Original_Title, Original_Credits, Original_DepartmentID)

    6126. 

  6126.         End Function

    6127. 

  6127.     End Class

    6128. 

  6128.     

    6129. 

  6129.     '''<summary>

    6130. 

  6130.     '''Represents the connection and commands used to retrieve and save data.

    6131. 

  6131.     '''</summary>

    6132. 

  6132.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"),  _

    6133. 

  6133.      Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _

    6134. 

  6134.      Global.System.ComponentModel.ToolboxItem(true),  _

    6135. 

  6135.      Global.System.ComponentModel.DataObjectAttribute(true),  _

    6136. 

  6136.      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ 

    6137. 

  6137.         ", Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _

    6138. 

  6138.      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    6139. 

  6139.     Partial Public Class CourseGradeTableAdapter

    6140. 

  6140.         Inherits Global.System.ComponentModel.Component

    6141. 

  6141.         

    6142. 

  6142.         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter

    6143. 

  6143.         

    6144. 

  6144.         Private _connection As Global.System.Data.SqlClient.SqlConnection

    6145. 

  6145.         

    6146. 

  6146.         Private _transaction As Global.System.Data.SqlClient.SqlTransaction

    6147. 

  6147.         

    6148. 

  6148.         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand

    6149. 

  6149.         

    6150. 

  6150.         Private _clearBeforeFill As Boolean

    6151. 

  6151.         

    6152. 

  6152.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    6153. 

  6153.         Public Sub New()

    6154. 

  6154.             MyBase.New

    6155. 

  6155.             Me.ClearBeforeFill = true

    6156. 

  6156.         End Sub

    6157. 

  6157.         

    6158. 

  6158.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    6159. 

  6159.         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter

    6160. 

  6160.             Get

    6161. 

  6161.                 If (Me._adapter Is Nothing) Then

    6162. 

  6162.                     Me.InitAdapter

    6163. 

  6163.                 End If

    6164. 

  6164.                 Return Me._adapter

    6165. 

  6165.             End Get

    6166. 

  6166.         End Property

    6167. 

  6167.         

    6168. 

  6168.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    6169. 

  6169.         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection

    6170. 

  6170.             Get

    6171. 

  6171.                 If (Me._connection Is Nothing) Then

    6172. 

  6172.                     Me.InitConnection

    6173. 

  6173.                 End If

    6174. 

  6174.                 Return Me._connection

    6175. 

  6175.             End Get

    6176. 

  6176.             Set

    6177. 

  6177.                 Me._connection = value

    6178. 

  6178.                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then

    6179. 

  6179.                     Me.Adapter.InsertCommand.Connection = value

    6180. 

  6180.                 End If

    6181. 

  6181.                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then

    6182. 

  6182.                     Me.Adapter.DeleteCommand.Connection = value

    6183. 

  6183.                 End If

    6184. 

  6184.                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then

    6185. 

  6185.                     Me.Adapter.UpdateCommand.Connection = value

    6186. 

  6186.                 End If

    6187. 

  6187.                 Dim i As Integer = 0

    6188. 

  6188.                 Do While (i < Me.CommandCollection.Length)

    6189. 

  6189.                     If (Not (Me.CommandCollection(i)) Is Nothing) Then

    6190. 

  6190.                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value

    6191. 

  6191.                     End If

    6192. 

  6192.                     i = (i + 1)

    6193. 

  6193.                 Loop

    6194. 

  6194.             End Set

    6195. 

  6195.         End Property

    6196. 

  6196.         

    6197. 

  6197.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    6198. 

  6198.         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction

    6199. 

  6199.             Get

    6200. 

  6200.                 Return Me._transaction

    6201. 

  6201.             End Get

    6202. 

  6202.             Set

    6203. 

  6203.                 Me._transaction = value

    6204. 

  6204.                 Dim i As Integer = 0

    6205. 

  6205.                 Do While (i < Me.CommandCollection.Length)

    6206. 

  6206.                     Me.CommandCollection(i).Transaction = Me._transaction

    6207. 

  6207.                     i = (i + 1)

    6208. 

  6208.                 Loop

    6209. 

  6209.                 If ((Not (Me.Adapter) Is Nothing)  _

    6210. 

  6210.                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then

    6211. 

  6211.                     Me.Adapter.DeleteCommand.Transaction = Me._transaction

    6212. 

  6212.                 End If

    6213. 

  6213.                 If ((Not (Me.Adapter) Is Nothing)  _

    6214. 

  6214.                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then

    6215. 

  6215.                     Me.Adapter.InsertCommand.Transaction = Me._transaction

    6216. 

  6216.                 End If

    6217. 

  6217.                 If ((Not (Me.Adapter) Is Nothing)  _

    6218. 

  6218.                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then

    6219. 

  6219.                     Me.Adapter.UpdateCommand.Transaction = Me._transaction

    6220. 

  6220.                 End If

    6221. 

  6221.             End Set

    6222. 

  6222.         End Property

    6223. 

  6223.         

    6224. 

  6224.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    6225. 

  6225.         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()

    6226. 

  6226.             Get

    6227. 

  6227.                 If (Me._commandCollection Is Nothing) Then

    6228. 

  6228.                     Me.InitCommandCollection

    6229. 

  6229.                 End If

    6230. 

  6230.                 Return Me._commandCollection

    6231. 

  6231.             End Get

    6232. 

  6232.         End Property

    6233. 

  6233.         

    6234. 

  6234.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    6235. 

  6235.         Public Property ClearBeforeFill() As Boolean

    6236. 

  6236.             Get

    6237. 

  6237.                 Return Me._clearBeforeFill

    6238. 

  6238.             End Get

    6239. 

  6239.             Set

    6240. 

  6240.                 Me._clearBeforeFill = value

    6241. 

  6241.             End Set

    6242. 

  6242.         End Property

    6243. 

  6243.         

    6244. 

  6244.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    6245. 

  6245.         Private Sub InitAdapter()

    6246. 

  6246.             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter

    6247. 

  6247.             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping

    6248. 

  6248.             tableMapping.SourceTable = "Table"

    6249. 

  6249.             tableMapping.DataSetTable = "CourseGrade"

    6250. 

  6250.             tableMapping.ColumnMappings.Add("EnrollmentID", "EnrollmentID")

    6251. 

  6251.             tableMapping.ColumnMappings.Add("CourseID", "CourseID")

    6252. 

  6252.             tableMapping.ColumnMappings.Add("StudentID", "StudentID")

    6253. 

  6253.             tableMapping.ColumnMappings.Add("Grade", "Grade")

    6254. 

  6254.             Me._adapter.TableMappings.Add(tableMapping)

    6255. 

  6255.             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand

    6256. 

  6256.             Me._adapter.DeleteCommand.Connection = Me.Connection

    6257. 

  6257.             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[CourseGrade] WHERE (([EnrollmentID] = @Original_EnrollmentID) "& _ 

    6258. 

  6258.                 "AND ([CourseID] = @Original_CourseID) AND ([StudentID] = @Original_StudentID) AN"& _ 

    6259. 

  6259.                 "D ((@IsNull_Grade = 1 AND [Grade] IS NULL) OR ([Grade] = @Original_Grade)))"

    6260. 

  6260.             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text

    6261. 

  6261.             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EnrollmentID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EnrollmentID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    6262. 

  6262.             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CourseID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CourseID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    6263. 

  6263.             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_StudentID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StudentID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    6264. 

  6264.             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Grade", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Grade", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))

    6265. 

  6265.             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Grade", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 2, "Grade", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    6266. 

  6266.             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand

    6267. 

  6267.             Me._adapter.InsertCommand.Connection = Me.Connection

    6268. 

  6268.             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[CourseGrade] ([CourseID], [StudentID], [Grade]) VALUES (@Cours"& _ 

    6269. 

  6269.                 "eID, @StudentID, @Grade);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT EnrollmentID, CourseID, StudentID, Grade FROM "& _ 

    6270. 

  6270.                 "CourseGrade WHERE (EnrollmentID = SCOPE_IDENTITY())"

    6271. 

  6271.             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text

    6272. 

  6272.             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CourseID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CourseID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    6273. 

  6273.             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StudentID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StudentID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    6274. 

  6274.             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Grade", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 2, "Grade", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    6275. 

  6275.             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand

    6276. 

  6276.             Me._adapter.UpdateCommand.Connection = Me.Connection

    6277. 

  6277.             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[CourseGrade] SET [CourseID] = @CourseID, [StudentID] = @StudentID, "& _ 

    6278. 

  6278.                 "[Grade] = @Grade WHERE (([EnrollmentID] = @Original_EnrollmentID) AND ([CourseID"& _ 

    6279. 

  6279.                 "] = @Original_CourseID) AND ([StudentID] = @Original_StudentID) AND ((@IsNull_Gr"& _ 

    6280. 

  6280.                 "ade = 1 AND [Grade] IS NULL) OR ([Grade] = @Original_Grade)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Enrollmen"& _ 

    6281. 

  6281.                 "tID, CourseID, StudentID, Grade FROM CourseGrade WHERE (EnrollmentID = @Enrollme"& _ 

    6282. 

  6282.                 "ntID)"

    6283. 

  6283.             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text

    6284. 

  6284.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CourseID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CourseID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    6285. 

  6285.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StudentID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StudentID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    6286. 

  6286.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Grade", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 2, "Grade", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    6287. 

  6287.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EnrollmentID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EnrollmentID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    6288. 

  6288.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CourseID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CourseID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    6289. 

  6289.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_StudentID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StudentID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    6290. 

  6290.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Grade", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Grade", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))

    6291. 

  6291.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Grade", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 3, 2, "Grade", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    6292. 

  6292.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EnrollmentID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "EnrollmentID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    6293. 

  6293.         End Sub

    6294. 

  6294.         

    6295. 

  6295.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    6296. 

  6296.         Private Sub InitConnection()

    6297. 

  6297.             Me._connection = New Global.System.Data.SqlClient.SqlConnection

    6298. 

  6298.             Me._connection.ConnectionString = Global.VBVstoExcelWorkbook.MySettings.Default.SchoolConnectionString

    6299. 

  6299.         End Sub

    6300. 

  6300.         

    6301. 

  6301.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    6302. 

  6302.         Private Sub InitCommandCollection()

    6303. 

  6303.             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}

    6304. 

  6304.             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand

    6305. 

  6305.             Me._commandCollection(0).Connection = Me.Connection

    6306. 

  6306.             Me._commandCollection(0).CommandText = "SELECT EnrollmentID, CourseID, StudentID, Grade FROM dbo.CourseGrade"

    6307. 

  6307.             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text

    6308. 

  6308.         End Sub

    6309. 

  6309.         

    6310. 

  6310.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    6311. 

  6311.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    6312. 

  6312.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _

    6313. 

  6313.         Public Overloads Overridable Function Fill(ByVal dataTable As SchoolDataSet.CourseGradeDataTable) As Integer

    6314. 

  6314.             Me.Adapter.SelectCommand = Me.CommandCollection(0)

    6315. 

  6315.             If (Me.ClearBeforeFill = true) Then

    6316. 

  6316.                 dataTable.Clear

    6317. 

  6317.             End If

    6318. 

  6318.             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)

    6319. 

  6319.             Return returnValue

    6320. 

  6320.         End Function

    6321. 

  6321.         

    6322. 

  6322.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    6323. 

  6323.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    6324. 

  6324.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _

    6325. 

  6325.         Public Overloads Overridable Function GetData() As SchoolDataSet.CourseGradeDataTable

    6326. 

  6326.             Me.Adapter.SelectCommand = Me.CommandCollection(0)

    6327. 

  6327.             Dim dataTable As SchoolDataSet.CourseGradeDataTable = New SchoolDataSet.CourseGradeDataTable

    6328. 

  6328.             Me.Adapter.Fill(dataTable)

    6329. 

  6329.             Return dataTable

    6330. 

  6330.         End Function

    6331. 

  6331.         

    6332. 

  6332.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    6333. 

  6333.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    6334. 

  6334.         Public Overloads Overridable Function Update(ByVal dataTable As SchoolDataSet.CourseGradeDataTable) As Integer

    6335. 

  6335.             Return Me.Adapter.Update(dataTable)

    6336. 

  6336.         End Function

    6337. 

  6337.         

    6338. 

  6338.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    6339. 

  6339.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    6340. 

  6340.         Public Overloads Overridable Function Update(ByVal dataSet As SchoolDataSet) As Integer

    6341. 

  6341.             Return Me.Adapter.Update(dataSet, "CourseGrade")

    6342. 

  6342.         End Function

    6343. 

  6343.         

    6344. 

  6344.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    6345. 

  6345.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    6346. 

  6346.         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer

    6347. 

  6347.             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})

    6348. 

  6348.         End Function

    6349. 

  6349.         

    6350. 

  6350.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    6351. 

  6351.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    6352. 

  6352.         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer

    6353. 

  6353.             Return Me.Adapter.Update(dataRows)

    6354. 

  6354.         End Function

    6355. 

  6355.         

    6356. 

  6356.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    6357. 

  6357.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    6358. 

  6358.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _

    6359. 

  6359.         Public Overloads Overridable Function Delete(ByVal Original_EnrollmentID As Integer, ByVal Original_CourseID As Integer, ByVal Original_StudentID As Integer, ByVal Original_Grade As Global.System.Nullable(Of Decimal)) As Integer

    6360. 

  6360.             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_EnrollmentID,Integer)

    6361. 

  6361.             Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_CourseID,Integer)

    6362. 

  6362.             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_StudentID,Integer)

    6363. 

  6363.             If (Original_Grade.HasValue = true) Then

    6364. 

  6364.                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)

    6365. 

  6365.                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Grade.Value,Decimal)

    6366. 

  6366.             Else

    6367. 

  6367.                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)

    6368. 

  6368.                 Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value

    6369. 

  6369.             End If

    6370. 

  6370.             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State

    6371. 

  6371.             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _

    6372. 

  6372.                         <> Global.System.Data.ConnectionState.Open) Then

    6373. 

  6373.                 Me.Adapter.DeleteCommand.Connection.Open

    6374. 

  6374.             End If

    6375. 

  6375.             Try 

    6376. 

  6376.                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery

    6377. 

  6377.                 Return returnValue

    6378. 

  6378.             Finally

    6379. 

  6379.                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then

    6380. 

  6380.                     Me.Adapter.DeleteCommand.Connection.Close

    6381. 

  6381.                 End If

    6382. 

  6382.             End Try

    6383. 

  6383.         End Function

    6384. 

  6384.         

    6385. 

  6385.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    6386. 

  6386.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    6387. 

  6387.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _

    6388. 

  6388.         Public Overloads Overridable Function Insert(ByVal CourseID As Integer, ByVal StudentID As Integer, ByVal Grade As Global.System.Nullable(Of Decimal)) As Integer

    6389. 

  6389.             Me.Adapter.InsertCommand.Parameters(0).Value = CType(CourseID,Integer)

    6390. 

  6390.             Me.Adapter.InsertCommand.Parameters(1).Value = CType(StudentID,Integer)

    6391. 

  6391.             If (Grade.HasValue = true) Then

    6392. 

  6392.                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(Grade.Value,Decimal)

    6393. 

  6393.             Else

    6394. 

  6394.                 Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value

    6395. 

  6395.             End If

    6396. 

  6396.             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State

    6397. 

  6397.             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _

    6398. 

  6398.                         <> Global.System.Data.ConnectionState.Open) Then

    6399. 

  6399.                 Me.Adapter.InsertCommand.Connection.Open

    6400. 

  6400.             End If

    6401. 

  6401.             Try 

    6402. 

  6402.                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery

    6403. 

  6403.                 Return returnValue

    6404. 

  6404.             Finally

    6405. 

  6405.                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then

    6406. 

  6406.                     Me.Adapter.InsertCommand.Connection.Close

    6407. 

  6407.                 End If

    6408. 

  6408.             End Try

    6409. 

  6409.         End Function

    6410. 

  6410.         

    6411. 

  6411.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    6412. 

  6412.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    6413. 

  6413.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _

    6414. 

  6414.         Public Overloads Overridable Function Update(ByVal CourseID As Integer, ByVal StudentID As Integer, ByVal Grade As Global.System.Nullable(Of Decimal), ByVal Original_EnrollmentID As Integer, ByVal Original_CourseID As Integer, ByVal Original_StudentID As Integer, ByVal Original_Grade As Global.System.Nullable(Of Decimal), ByVal EnrollmentID As Integer) As Integer

    6415. 

  6415.             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CourseID,Integer)

    6416. 

  6416.             Me.Adapter.UpdateCommand.Parameters(1).Value = CType(StudentID,Integer)

    6417. 

  6417.             If (Grade.HasValue = true) Then

    6418. 

  6418.                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Grade.Value,Decimal)

    6419. 

  6419.             Else

    6420. 

  6420.                 Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value

    6421. 

  6421.             End If

    6422. 

  6422.             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_EnrollmentID,Integer)

    6423. 

  6423.             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_CourseID,Integer)

    6424. 

  6424.             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_StudentID,Integer)

    6425. 

  6425.             If (Original_Grade.HasValue = true) Then

    6426. 

  6426.                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(0,Object)

    6427. 

  6427.                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_Grade.Value,Decimal)

    6428. 

  6428.             Else

    6429. 

  6429.                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(1,Object)

    6430. 

  6430.                 Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value

    6431. 

  6431.             End If

    6432. 

  6432.             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(EnrollmentID,Integer)

    6433. 

  6433.             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State

    6434. 

  6434.             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _

    6435. 

  6435.                         <> Global.System.Data.ConnectionState.Open) Then

    6436. 

  6436.                 Me.Adapter.UpdateCommand.Connection.Open

    6437. 

  6437.             End If

    6438. 

  6438.             Try 

    6439. 

  6439.                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery

    6440. 

  6440.                 Return returnValue

    6441. 

  6441.             Finally

    6442. 

  6442.                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then

    6443. 

  6443.                     Me.Adapter.UpdateCommand.Connection.Close

    6444. 

  6444.                 End If

    6445. 

  6445.             End Try

    6446. 

  6446.         End Function

    6447. 

  6447.         

    6448. 

  6448.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    6449. 

  6449.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    6450. 

  6450.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _

    6451. 

  6451.         Public Overloads Overridable Function Update(ByVal CourseID As Integer, ByVal StudentID As Integer, ByVal Grade As Global.System.Nullable(Of Decimal), ByVal Original_EnrollmentID As Integer, ByVal Original_CourseID As Integer, ByVal Original_StudentID As Integer, ByVal Original_Grade As Global.System.Nullable(Of Decimal)) As Integer

    6452. 

  6452.             Return Me.Update(CourseID, StudentID, Grade, Original_EnrollmentID, Original_CourseID, Original_StudentID, Original_Grade, Original_EnrollmentID)

    6453. 

  6453.         End Function

    6454. 

  6454.     End Class

    6455. 

  6455.     

    6456. 

  6456.     '''<summary>

    6457. 

  6457.     '''Represents the connection and commands used to retrieve and save data.

    6458. 

  6458.     '''</summary>

    6459. 

  6459.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"),  _

    6460. 

  6460.      Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _

    6461. 

  6461.      Global.System.ComponentModel.ToolboxItem(true),  _

    6462. 

  6462.      Global.System.ComponentModel.DataObjectAttribute(true),  _

    6463. 

  6463.      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ 

    6464. 

  6464.         ", Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _

    6465. 

  6465.      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    6466. 

  6466.     Partial Public Class CourseInstructorTableAdapter

    6467. 

  6467.         Inherits Global.System.ComponentModel.Component

    6468. 

  6468.         

    6469. 

  6469.         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter

    6470. 

  6470.         

    6471. 

  6471.         Private _connection As Global.System.Data.SqlClient.SqlConnection

    6472. 

  6472.         

    6473. 

  6473.         Private _transaction As Global.System.Data.SqlClient.SqlTransaction

    6474. 

  6474.         

    6475. 

  6475.         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand

    6476. 

  6476.         

    6477. 

  6477.         Private _clearBeforeFill As Boolean

    6478. 

  6478.         

    6479. 

  6479.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    6480. 

  6480.         Public Sub New()

    6481. 

  6481.             MyBase.New

    6482. 

  6482.             Me.ClearBeforeFill = true

    6483. 

  6483.         End Sub

    6484. 

  6484.         

    6485. 

  6485.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    6486. 

  6486.         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter

    6487. 

  6487.             Get

    6488. 

  6488.                 If (Me._adapter Is Nothing) Then

    6489. 

  6489.                     Me.InitAdapter

    6490. 

  6490.                 End If

    6491. 

  6491.                 Return Me._adapter

    6492. 

  6492.             End Get

    6493. 

  6493.         End Property

    6494. 

  6494.         

    6495. 

  6495.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    6496. 

  6496.         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection

    6497. 

  6497.             Get

    6498. 

  6498.                 If (Me._connection Is Nothing) Then

    6499. 

  6499.                     Me.InitConnection

    6500. 

  6500.                 End If

    6501. 

  6501.                 Return Me._connection

    6502. 

  6502.             End Get

    6503. 

  6503.             Set

    6504. 

  6504.                 Me._connection = value

    6505. 

  6505.                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then

    6506. 

  6506.                     Me.Adapter.InsertCommand.Connection = value

    6507. 

  6507.                 End If

    6508. 

  6508.                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then

    6509. 

  6509.                     Me.Adapter.DeleteCommand.Connection = value

    6510. 

  6510.                 End If

    6511. 

  6511.                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then

    6512. 

  6512.                     Me.Adapter.UpdateCommand.Connection = value

    6513. 

  6513.                 End If

    6514. 

  6514.                 Dim i As Integer = 0

    6515. 

  6515.                 Do While (i < Me.CommandCollection.Length)

    6516. 

  6516.                     If (Not (Me.CommandCollection(i)) Is Nothing) Then

    6517. 

  6517.                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value

    6518. 

  6518.                     End If

    6519. 

  6519.                     i = (i + 1)

    6520. 

  6520.                 Loop

    6521. 

  6521.             End Set

    6522. 

  6522.         End Property

    6523. 

  6523.         

    6524. 

  6524.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    6525. 

  6525.         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction

    6526. 

  6526.             Get

    6527. 

  6527.                 Return Me._transaction

    6528. 

  6528.             End Get

    6529. 

  6529.             Set

    6530. 

  6530.                 Me._transaction = value

    6531. 

  6531.                 Dim i As Integer = 0

    6532. 

  6532.                 Do While (i < Me.CommandCollection.Length)

    6533. 

  6533.                     Me.CommandCollection(i).Transaction = Me._transaction

    6534. 

  6534.                     i = (i + 1)

    6535. 

  6535.                 Loop

    6536. 

  6536.                 If ((Not (Me.Adapter) Is Nothing)  _

    6537. 

  6537.                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then

    6538. 

  6538.                     Me.Adapter.DeleteCommand.Transaction = Me._transaction

    6539. 

  6539.                 End If

    6540. 

  6540.                 If ((Not (Me.Adapter) Is Nothing)  _

    6541. 

  6541.                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then

    6542. 

  6542.                     Me.Adapter.InsertCommand.Transaction = Me._transaction

    6543. 

  6543.                 End If

    6544. 

  6544.                 If ((Not (Me.Adapter) Is Nothing)  _

    6545. 

  6545.                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then

    6546. 

  6546.                     Me.Adapter.UpdateCommand.Transaction = Me._transaction

    6547. 

  6547.                 End If

    6548. 

  6548.             End Set

    6549. 

  6549.         End Property

    6550. 

  6550.         

    6551. 

  6551.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    6552. 

  6552.         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()

    6553. 

  6553.             Get

    6554. 

  6554.                 If (Me._commandCollection Is Nothing) Then

    6555. 

  6555.                     Me.InitCommandCollection

    6556. 

  6556.                 End If

    6557. 

  6557.                 Return Me._commandCollection

    6558. 

  6558.             End Get

    6559. 

  6559.         End Property

    6560. 

  6560.         

    6561. 

  6561.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    6562. 

  6562.         Public Property ClearBeforeFill() As Boolean

    6563. 

  6563.             Get

    6564. 

  6564.                 Return Me._clearBeforeFill

    6565. 

  6565.             End Get

    6566. 

  6566.             Set

    6567. 

  6567.                 Me._clearBeforeFill = value

    6568. 

  6568.             End Set

    6569. 

  6569.         End Property

    6570. 

  6570.         

    6571. 

  6571.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    6572. 

  6572.         Private Sub InitAdapter()

    6573. 

  6573.             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter

    6574. 

  6574.             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping

    6575. 

  6575.             tableMapping.SourceTable = "Table"

    6576. 

  6576.             tableMapping.DataSetTable = "CourseInstructor"

    6577. 

  6577.             tableMapping.ColumnMappings.Add("CourseID", "CourseID")

    6578. 

  6578.             tableMapping.ColumnMappings.Add("PersonID", "PersonID")

    6579. 

  6579.             Me._adapter.TableMappings.Add(tableMapping)

    6580. 

  6580.             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand

    6581. 

  6581.             Me._adapter.DeleteCommand.Connection = Me.Connection

    6582. 

  6582.             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[CourseInstructor] WHERE (([CourseID] = @Original_CourseID) AND"& _ 

    6583. 

  6583.                 " ([PersonID] = @Original_PersonID))"

    6584. 

  6584.             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text

    6585. 

  6585.             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CourseID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CourseID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    6586. 

  6586.             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PersonID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PersonID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    6587. 

  6587.             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand

    6588. 

  6588.             Me._adapter.InsertCommand.Connection = Me.Connection

    6589. 

  6589.             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[CourseInstructor] ([CourseID], [PersonID]) VALUES (@CourseID, "& _ 

    6590. 

  6590.                 "@PersonID);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CourseID, PersonID FROM CourseInstructor WHERE (CourseID = @"& _ 

    6591. 

  6591.                 "CourseID) AND (PersonID = @PersonID)"

    6592. 

  6592.             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text

    6593. 

  6593.             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CourseID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CourseID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    6594. 

  6594.             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PersonID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PersonID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    6595. 

  6595.             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand

    6596. 

  6596.             Me._adapter.UpdateCommand.Connection = Me.Connection

    6597. 

  6597.             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[CourseInstructor] SET [CourseID] = @CourseID, [PersonID] = @PersonI"& _ 

    6598. 

  6598.                 "D WHERE (([CourseID] = @Original_CourseID) AND ([PersonID] = @Original_PersonID)"& _ 

    6599. 

  6599.                 ");"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CourseID, PersonID FROM CourseInstructor WHERE (CourseID = @CourseID)"& _ 

    6600. 

  6600.                 " AND (PersonID = @PersonID)"

    6601. 

  6601.             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text

    6602. 

  6602.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CourseID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CourseID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    6603. 

  6603.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PersonID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PersonID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    6604. 

  6604.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CourseID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CourseID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    6605. 

  6605.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PersonID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PersonID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    6606. 

  6606.         End Sub

    6607. 

  6607.         

    6608. 

  6608.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    6609. 

  6609.         Private Sub InitConnection()

    6610. 

  6610.             Me._connection = New Global.System.Data.SqlClient.SqlConnection

    6611. 

  6611.             Me._connection.ConnectionString = Global.VBVstoExcelWorkbook.MySettings.Default.SchoolConnectionString

    6612. 

  6612.         End Sub

    6613. 

  6613.         

    6614. 

  6614.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    6615. 

  6615.         Private Sub InitCommandCollection()

    6616. 

  6616.             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}

    6617. 

  6617.             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand

    6618. 

  6618.             Me._commandCollection(0).Connection = Me.Connection

    6619. 

  6619.             Me._commandCollection(0).CommandText = "SELECT CourseID, PersonID FROM dbo.CourseInstructor"

    6620. 

  6620.             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text

    6621. 

  6621.         End Sub

    6622. 

  6622.         

    6623. 

  6623.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    6624. 

  6624.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    6625. 

  6625.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _

    6626. 

  6626.         Public Overloads Overridable Function Fill(ByVal dataTable As SchoolDataSet.CourseInstructorDataTable) As Integer

    6627. 

  6627.             Me.Adapter.SelectCommand = Me.CommandCollection(0)

    6628. 

  6628.             If (Me.ClearBeforeFill = true) Then

    6629. 

  6629.                 dataTable.Clear

    6630. 

  6630.             End If

    6631. 

  6631.             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)

    6632. 

  6632.             Return returnValue

    6633. 

  6633.         End Function

    6634. 

  6634.         

    6635. 

  6635.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    6636. 

  6636.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    6637. 

  6637.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _

    6638. 

  6638.         Public Overloads Overridable Function GetData() As SchoolDataSet.CourseInstructorDataTable

    6639. 

  6639.             Me.Adapter.SelectCommand = Me.CommandCollection(0)

    6640. 

  6640.             Dim dataTable As SchoolDataSet.CourseInstructorDataTable = New SchoolDataSet.CourseInstructorDataTable

    6641. 

  6641.             Me.Adapter.Fill(dataTable)

    6642. 

  6642.             Return dataTable

    6643. 

  6643.         End Function

    6644. 

  6644.         

    6645. 

  6645.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    6646. 

  6646.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    6647. 

  6647.         Public Overloads Overridable Function Update(ByVal dataTable As SchoolDataSet.CourseInstructorDataTable) As Integer

    6648. 

  6648.             Return Me.Adapter.Update(dataTable)

    6649. 

  6649.         End Function

    6650. 

  6650.         

    6651. 

  6651.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    6652. 

  6652.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    6653. 

  6653.         Public Overloads Overridable Function Update(ByVal dataSet As SchoolDataSet) As Integer

    6654. 

  6654.             Return Me.Adapter.Update(dataSet, "CourseInstructor")

    6655. 

  6655.         End Function

    6656. 

  6656.         

    6657. 

  6657.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    6658. 

  6658.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    6659. 

  6659.         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer

    6660. 

  6660.             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})

    6661. 

  6661.         End Function

    6662. 

  6662.         

    6663. 

  6663.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    6664. 

  6664.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    6665. 

  6665.         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer

    6666. 

  6666.             Return Me.Adapter.Update(dataRows)

    6667. 

  6667.         End Function

    6668. 

  6668.         

    6669. 

  6669.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    6670. 

  6670.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    6671. 

  6671.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _

    6672. 

  6672.         Public Overloads Overridable Function Delete(ByVal Original_CourseID As Integer, ByVal Original_PersonID As Integer) As Integer

    6673. 

  6673.             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_CourseID,Integer)

    6674. 

  6674.             Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_PersonID,Integer)

    6675. 

  6675.             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State

    6676. 

  6676.             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _

    6677. 

  6677.                         <> Global.System.Data.ConnectionState.Open) Then

    6678. 

  6678.                 Me.Adapter.DeleteCommand.Connection.Open

    6679. 

  6679.             End If

    6680. 

  6680.             Try 

    6681. 

  6681.                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery

    6682. 

  6682.                 Return returnValue

    6683. 

  6683.             Finally

    6684. 

  6684.                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then

    6685. 

  6685.                     Me.Adapter.DeleteCommand.Connection.Close

    6686. 

  6686.                 End If

    6687. 

  6687.             End Try

    6688. 

  6688.         End Function

    6689. 

  6689.         

    6690. 

  6690.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    6691. 

  6691.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    6692. 

  6692.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _

    6693. 

  6693.         Public Overloads Overridable Function Insert(ByVal CourseID As Integer, ByVal PersonID As Integer) As Integer

    6694. 

  6694.             Me.Adapter.InsertCommand.Parameters(0).Value = CType(CourseID,Integer)

    6695. 

  6695.             Me.Adapter.InsertCommand.Parameters(1).Value = CType(PersonID,Integer)

    6696. 

  6696.             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State

    6697. 

  6697.             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _

    6698. 

  6698.                         <> Global.System.Data.ConnectionState.Open) Then

    6699. 

  6699.                 Me.Adapter.InsertCommand.Connection.Open

    6700. 

  6700.             End If

    6701. 

  6701.             Try 

    6702. 

  6702.                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery

    6703. 

  6703.                 Return returnValue

    6704. 

  6704.             Finally

    6705. 

  6705.                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then

    6706. 

  6706.                     Me.Adapter.InsertCommand.Connection.Close

    6707. 

  6707.                 End If

    6708. 

  6708.             End Try

    6709. 

  6709.         End Function

    6710. 

  6710.         

    6711. 

  6711.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    6712. 

  6712.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    6713. 

  6713.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _

    6714. 

  6714.         Public Overloads Overridable Function Update(ByVal CourseID As Integer, ByVal PersonID As Integer, ByVal Original_CourseID As Integer, ByVal Original_PersonID As Integer) As Integer

    6715. 

  6715.             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CourseID,Integer)

    6716. 

  6716.             Me.Adapter.UpdateCommand.Parameters(1).Value = CType(PersonID,Integer)

    6717. 

  6717.             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_CourseID,Integer)

    6718. 

  6718.             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_PersonID,Integer)

    6719. 

  6719.             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State

    6720. 

  6720.             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _

    6721. 

  6721.                         <> Global.System.Data.ConnectionState.Open) Then

    6722. 

  6722.                 Me.Adapter.UpdateCommand.Connection.Open

    6723. 

  6723.             End If

    6724. 

  6724.             Try 

    6725. 

  6725.                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery

    6726. 

  6726.                 Return returnValue

    6727. 

  6727.             Finally

    6728. 

  6728.                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then

    6729. 

  6729.                     Me.Adapter.UpdateCommand.Connection.Close

    6730. 

  6730.                 End If

    6731. 

  6731.             End Try

    6732. 

  6732.         End Function

    6733. 

  6733.         

    6734. 

  6734.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    6735. 

  6735.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    6736. 

  6736.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _

    6737. 

  6737.         Public Overloads Overridable Function Update(ByVal Original_CourseID As Integer, ByVal Original_PersonID As Integer) As Integer

    6738. 

  6738.             Return Me.Update(Original_CourseID, Original_PersonID, Original_CourseID, Original_PersonID)

    6739. 

  6739.         End Function

    6740. 

  6740.     End Class

    6741. 

  6741.     

    6742. 

  6742.     '''<summary>

    6743. 

  6743.     '''Represents the connection and commands used to retrieve and save data.

    6744. 

  6744.     '''</summary>

    6745. 

  6745.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"),  _

    6746. 

  6746.      Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _

    6747. 

  6747.      Global.System.ComponentModel.ToolboxItem(true),  _

    6748. 

  6748.      Global.System.ComponentModel.DataObjectAttribute(true),  _

    6749. 

  6749.      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ 

    6750. 

  6750.         ", Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _

    6751. 

  6751.      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    6752. 

  6752.     Partial Public Class DepartmentTableAdapter

    6753. 

  6753.         Inherits Global.System.ComponentModel.Component

    6754. 

  6754.         

    6755. 

  6755.         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter

    6756. 

  6756.         

    6757. 

  6757.         Private _connection As Global.System.Data.SqlClient.SqlConnection

    6758. 

  6758.         

    6759. 

  6759.         Private _transaction As Global.System.Data.SqlClient.SqlTransaction

    6760. 

  6760.         

    6761. 

  6761.         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand

    6762. 

  6762.         

    6763. 

  6763.         Private _clearBeforeFill As Boolean

    6764. 

  6764.         

    6765. 

  6765.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    6766. 

  6766.         Public Sub New()

    6767. 

  6767.             MyBase.New

    6768. 

  6768.             Me.ClearBeforeFill = true

    6769. 

  6769.         End Sub

    6770. 

  6770.         

    6771. 

  6771.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    6772. 

  6772.         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter

    6773. 

  6773.             Get

    6774. 

  6774.                 If (Me._adapter Is Nothing) Then

    6775. 

  6775.                     Me.InitAdapter

    6776. 

  6776.                 End If

    6777. 

  6777.                 Return Me._adapter

    6778. 

  6778.             End Get

    6779. 

  6779.         End Property

    6780. 

  6780.         

    6781. 

  6781.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    6782. 

  6782.         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection

    6783. 

  6783.             Get

    6784. 

  6784.                 If (Me._connection Is Nothing) Then

    6785. 

  6785.                     Me.InitConnection

    6786. 

  6786.                 End If

    6787. 

  6787.                 Return Me._connection

    6788. 

  6788.             End Get

    6789. 

  6789.             Set

    6790. 

  6790.                 Me._connection = value

    6791. 

  6791.                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then

    6792. 

  6792.                     Me.Adapter.InsertCommand.Connection = value

    6793. 

  6793.                 End If

    6794. 

  6794.                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then

    6795. 

  6795.                     Me.Adapter.DeleteCommand.Connection = value

    6796. 

  6796.                 End If

    6797. 

  6797.                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then

    6798. 

  6798.                     Me.Adapter.UpdateCommand.Connection = value

    6799. 

  6799.                 End If

    6800. 

  6800.                 Dim i As Integer = 0

    6801. 

  6801.                 Do While (i < Me.CommandCollection.Length)

    6802. 

  6802.                     If (Not (Me.CommandCollection(i)) Is Nothing) Then

    6803. 

  6803.                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value

    6804. 

  6804.                     End If

    6805. 

  6805.                     i = (i + 1)

    6806. 

  6806.                 Loop

    6807. 

  6807.             End Set

    6808. 

  6808.         End Property

    6809. 

  6809.         

    6810. 

  6810.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    6811. 

  6811.         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction

    6812. 

  6812.             Get

    6813. 

  6813.                 Return Me._transaction

    6814. 

  6814.             End Get

    6815. 

  6815.             Set

    6816. 

  6816.                 Me._transaction = value

    6817. 

  6817.                 Dim i As Integer = 0

    6818. 

  6818.                 Do While (i < Me.CommandCollection.Length)

    6819. 

  6819.                     Me.CommandCollection(i).Transaction = Me._transaction

    6820. 

  6820.                     i = (i + 1)

    6821. 

  6821.                 Loop

    6822. 

  6822.                 If ((Not (Me.Adapter) Is Nothing)  _

    6823. 

  6823.                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then

    6824. 

  6824.                     Me.Adapter.DeleteCommand.Transaction = Me._transaction

    6825. 

  6825.                 End If

    6826. 

  6826.                 If ((Not (Me.Adapter) Is Nothing)  _

    6827. 

  6827.                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then

    6828. 

  6828.                     Me.Adapter.InsertCommand.Transaction = Me._transaction

    6829. 

  6829.                 End If

    6830. 

  6830.                 If ((Not (Me.Adapter) Is Nothing)  _

    6831. 

  6831.                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then

    6832. 

  6832.                     Me.Adapter.UpdateCommand.Transaction = Me._transaction

    6833. 

  6833.                 End If

    6834. 

  6834.             End Set

    6835. 

  6835.         End Property

    6836. 

  6836.         

    6837. 

  6837.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    6838. 

  6838.         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()

    6839. 

  6839.             Get

    6840. 

  6840.                 If (Me._commandCollection Is Nothing) Then

    6841. 

  6841.                     Me.InitCommandCollection

    6842. 

  6842.                 End If

    6843. 

  6843.                 Return Me._commandCollection

    6844. 

  6844.             End Get

    6845. 

  6845.         End Property

    6846. 

  6846.         

    6847. 

  6847.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    6848. 

  6848.         Public Property ClearBeforeFill() As Boolean

    6849. 

  6849.             Get

    6850. 

  6850.                 Return Me._clearBeforeFill

    6851. 

  6851.             End Get

    6852. 

  6852.             Set

    6853. 

  6853.                 Me._clearBeforeFill = value

    6854. 

  6854.             End Set

    6855. 

  6855.         End Property

    6856. 

  6856.         

    6857. 

  6857.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    6858. 

  6858.         Private Sub InitAdapter()

    6859. 

  6859.             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter

    6860. 

  6860.             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping

    6861. 

  6861.             tableMapping.SourceTable = "Table"

    6862. 

  6862.             tableMapping.DataSetTable = "Department"

    6863. 

  6863.             tableMapping.ColumnMappings.Add("DepartmentID", "DepartmentID")

    6864. 

  6864.             tableMapping.ColumnMappings.Add("Name", "Name")

    6865. 

  6865.             tableMapping.ColumnMappings.Add("Budget", "Budget")

    6866. 

  6866.             tableMapping.ColumnMappings.Add("StartDate", "StartDate")

    6867. 

  6867.             tableMapping.ColumnMappings.Add("Administrator", "Administrator")

    6868. 

  6868.             Me._adapter.TableMappings.Add(tableMapping)

    6869. 

  6869.             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand

    6870. 

  6870.             Me._adapter.DeleteCommand.Connection = Me.Connection

    6871. 

  6871.             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Department] WHERE (([DepartmentID] = @Original_DepartmentID) A"& _ 

    6872. 

  6872.                 "ND ([Name] = @Original_Name) AND ([Budget] = @Original_Budget) AND ([StartDate] "& _ 

    6873. 

  6873.                 "= @Original_StartDate) AND ((@IsNull_Administrator = 1 AND [Administrator] IS NU"& _ 

    6874. 

  6874.                 "LL) OR ([Administrator] = @Original_Administrator)))"

    6875. 

  6875.             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text

    6876. 

  6876.             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DepartmentID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DepartmentID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    6877. 

  6877.             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    6878. 

  6878.             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Budget", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Budget", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    6879. 

  6879.             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_StartDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StartDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    6880. 

  6880.             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Administrator", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Administrator", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))

    6881. 

  6881.             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Administrator", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Administrator", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    6882. 

  6882.             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand

    6883. 

  6883.             Me._adapter.InsertCommand.Connection = Me.Connection

    6884. 

  6884.             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Department] ([DepartmentID], [Name], [Budget], [StartDate], [A"& _ 

    6885. 

  6885.                 "dministrator]) VALUES (@DepartmentID, @Name, @Budget, @StartDate, @Administrator"& _ 

    6886. 

  6886.                 ");"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT DepartmentID, Name, Budget, StartDate, Administrator FROM Department "& _ 

    6887. 

  6887.                 "WHERE (DepartmentID = @DepartmentID)"

    6888. 

  6888.             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text

    6889. 

  6889.             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DepartmentID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DepartmentID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    6890. 

  6890.             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    6891. 

  6891.             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Budget", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Budget", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    6892. 

  6892.             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StartDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StartDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    6893. 

  6893.             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Administrator", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Administrator", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    6894. 

  6894.             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand

    6895. 

  6895.             Me._adapter.UpdateCommand.Connection = Me.Connection

    6896. 

  6896.             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Department] SET [DepartmentID] = @DepartmentID, [Name] = @Name, [Bu"& _ 

    6897. 

  6897.                 "dget] = @Budget, [StartDate] = @StartDate, [Administrator] = @Administrator WHER"& _ 

    6898. 

  6898.                 "E (([DepartmentID] = @Original_DepartmentID) AND ([Name] = @Original_Name) AND ("& _ 

    6899. 

  6899.                 "[Budget] = @Original_Budget) AND ([StartDate] = @Original_StartDate) AND ((@IsNu"& _ 

    6900. 

  6900.                 "ll_Administrator = 1 AND [Administrator] IS NULL) OR ([Administrator] = @Origina"& _ 

    6901. 

  6901.                 "l_Administrator)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT DepartmentID, Name, Budget, StartDate, Administrator"& _ 

    6902. 

  6902.                 " FROM Department WHERE (DepartmentID = @DepartmentID)"

    6903. 

  6903.             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text

    6904. 

  6904.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DepartmentID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DepartmentID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    6905. 

  6905.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    6906. 

  6906.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Budget", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Budget", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    6907. 

  6907.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StartDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StartDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    6908. 

  6908.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Administrator", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Administrator", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    6909. 

  6909.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DepartmentID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DepartmentID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    6910. 

  6910.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    6911. 

  6911.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Budget", Global.System.Data.SqlDbType.Money, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Budget", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    6912. 

  6912.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_StartDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StartDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    6913. 

  6913.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Administrator", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Administrator", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))

    6914. 

  6914.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Administrator", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Administrator", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    6915. 

  6915.         End Sub

    6916. 

  6916.         

    6917. 

  6917.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    6918. 

  6918.         Private Sub InitConnection()

    6919. 

  6919.             Me._connection = New Global.System.Data.SqlClient.SqlConnection

    6920. 

  6920.             Me._connection.ConnectionString = Global.VBVstoExcelWorkbook.MySettings.Default.SchoolConnectionString

    6921. 

  6921.         End Sub

    6922. 

  6922.         

    6923. 

  6923.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    6924. 

  6924.         Private Sub InitCommandCollection()

    6925. 

  6925.             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}

    6926. 

  6926.             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand

    6927. 

  6927.             Me._commandCollection(0).Connection = Me.Connection

    6928. 

  6928.             Me._commandCollection(0).CommandText = "SELECT DepartmentID, Name, Budget, StartDate, Administrator FROM dbo.Department"

    6929. 

  6929.             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text

    6930. 

  6930.         End Sub

    6931. 

  6931.         

    6932. 

  6932.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    6933. 

  6933.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    6934. 

  6934.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _

    6935. 

  6935.         Public Overloads Overridable Function Fill(ByVal dataTable As SchoolDataSet.DepartmentDataTable) As Integer

    6936. 

  6936.             Me.Adapter.SelectCommand = Me.CommandCollection(0)

    6937. 

  6937.             If (Me.ClearBeforeFill = true) Then

    6938. 

  6938.                 dataTable.Clear

    6939. 

  6939.             End If

    6940. 

  6940.             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)

    6941. 

  6941.             Return returnValue

    6942. 

  6942.         End Function

    6943. 

  6943.         

    6944. 

  6944.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    6945. 

  6945.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    6946. 

  6946.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _

    6947. 

  6947.         Public Overloads Overridable Function GetData() As SchoolDataSet.DepartmentDataTable

    6948. 

  6948.             Me.Adapter.SelectCommand = Me.CommandCollection(0)

    6949. 

  6949.             Dim dataTable As SchoolDataSet.DepartmentDataTable = New SchoolDataSet.DepartmentDataTable

    6950. 

  6950.             Me.Adapter.Fill(dataTable)

    6951. 

  6951.             Return dataTable

    6952. 

  6952.         End Function

    6953. 

  6953.         

    6954. 

  6954.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    6955. 

  6955.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    6956. 

  6956.         Public Overloads Overridable Function Update(ByVal dataTable As SchoolDataSet.DepartmentDataTable) As Integer

    6957. 

  6957.             Return Me.Adapter.Update(dataTable)

    6958. 

  6958.         End Function

    6959. 

  6959.         

    6960. 

  6960.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    6961. 

  6961.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    6962. 

  6962.         Public Overloads Overridable Function Update(ByVal dataSet As SchoolDataSet) As Integer

    6963. 

  6963.             Return Me.Adapter.Update(dataSet, "Department")

    6964. 

  6964.         End Function

    6965. 

  6965.         

    6966. 

  6966.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    6967. 

  6967.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    6968. 

  6968.         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer

    6969. 

  6969.             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})

    6970. 

  6970.         End Function

    6971. 

  6971.         

    6972. 

  6972.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    6973. 

  6973.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    6974. 

  6974.         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer

    6975. 

  6975.             Return Me.Adapter.Update(dataRows)

    6976. 

  6976.         End Function

    6977. 

  6977.         

    6978. 

  6978.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    6979. 

  6979.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    6980. 

  6980.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _

    6981. 

  6981.         Public Overloads Overridable Function Delete(ByVal Original_DepartmentID As Integer, ByVal Original_Name As String, ByVal Original_Budget As Decimal, ByVal Original_StartDate As Date, ByVal Original_Administrator As Global.System.Nullable(Of Integer)) As Integer

    6982. 

  6982.             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_DepartmentID,Integer)

    6983. 

  6983.             If (Original_Name Is Nothing) Then

    6984. 

  6984.                 Throw New Global.System.ArgumentNullException("Original_Name")

    6985. 

  6985.             Else

    6986. 

  6986.                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Name,String)

    6987. 

  6987.             End If

    6988. 

  6988.             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Budget,Decimal)

    6989. 

  6989.             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_StartDate,Date)

    6990. 

  6990.             If (Original_Administrator.HasValue = true) Then

    6991. 

  6991.                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object)

    6992. 

  6992.                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_Administrator.Value,Integer)

    6993. 

  6993.             Else

    6994. 

  6994.                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object)

    6995. 

  6995.                 Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value

    6996. 

  6996.             End If

    6997. 

  6997.             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State

    6998. 

  6998.             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _

    6999. 

  6999.                         <> Global.System.Data.ConnectionState.Open) Then

    7000. 

  7000.                 Me.Adapter.DeleteCommand.Connection.Open

    7001. 

  7001.             End If

    7002. 

  7002.             Try 

    7003. 

  7003.                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery

    7004. 

  7004.                 Return returnValue

    7005. 

  7005.             Finally

    7006. 

  7006.                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then

    7007. 

  7007.                     Me.Adapter.DeleteCommand.Connection.Close

    7008. 

  7008.                 End If

    7009. 

  7009.             End Try

    7010. 

  7010.         End Function

    7011. 

  7011.         

    7012. 

  7012.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    7013. 

  7013.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    7014. 

  7014.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _

    7015. 

  7015.         Public Overloads Overridable Function Insert(ByVal DepartmentID As Integer, ByVal Name As String, ByVal Budget As Decimal, ByVal StartDate As Date, ByVal Administrator As Global.System.Nullable(Of Integer)) As Integer

    7016. 

  7016.             Me.Adapter.InsertCommand.Parameters(0).Value = CType(DepartmentID,Integer)

    7017. 

  7017.             If (Name Is Nothing) Then

    7018. 

  7018.                 Throw New Global.System.ArgumentNullException("Name")

    7019. 

  7019.             Else

    7020. 

  7020.                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(Name,String)

    7021. 

  7021.             End If

    7022. 

  7022.             Me.Adapter.InsertCommand.Parameters(2).Value = CType(Budget,Decimal)

    7023. 

  7023.             Me.Adapter.InsertCommand.Parameters(3).Value = CType(StartDate,Date)

    7024. 

  7024.             If (Administrator.HasValue = true) Then

    7025. 

  7025.                 Me.Adapter.InsertCommand.Parameters(4).Value = CType(Administrator.Value,Integer)

    7026. 

  7026.             Else

    7027. 

  7027.                 Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value

    7028. 

  7028.             End If

    7029. 

  7029.             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State

    7030. 

  7030.             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _

    7031. 

  7031.                         <> Global.System.Data.ConnectionState.Open) Then

    7032. 

  7032.                 Me.Adapter.InsertCommand.Connection.Open

    7033. 

  7033.             End If

    7034. 

  7034.             Try 

    7035. 

  7035.                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery

    7036. 

  7036.                 Return returnValue

    7037. 

  7037.             Finally

    7038. 

  7038.                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then

    7039. 

  7039.                     Me.Adapter.InsertCommand.Connection.Close

    7040. 

  7040.                 End If

    7041. 

  7041.             End Try

    7042. 

  7042.         End Function

    7043. 

  7043.         

    7044. 

  7044.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    7045. 

  7045.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    7046. 

  7046.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _

    7047. 

  7047.         Public Overloads Overridable Function Update(ByVal DepartmentID As Integer, ByVal Name As String, ByVal Budget As Decimal, ByVal StartDate As Date, ByVal Administrator As Global.System.Nullable(Of Integer), ByVal Original_DepartmentID As Integer, ByVal Original_Name As String, ByVal Original_Budget As Decimal, ByVal Original_StartDate As Date, ByVal Original_Administrator As Global.System.Nullable(Of Integer)) As Integer

    7048. 

  7048.             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DepartmentID,Integer)

    7049. 

  7049.             If (Name Is Nothing) Then

    7050. 

  7050.                 Throw New Global.System.ArgumentNullException("Name")

    7051. 

  7051.             Else

    7052. 

  7052.                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Name,String)

    7053. 

  7053.             End If

    7054. 

  7054.             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Budget,Decimal)

    7055. 

  7055.             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(StartDate,Date)

    7056. 

  7056.             If (Administrator.HasValue = true) Then

    7057. 

  7057.                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Administrator.Value,Integer)

    7058. 

  7058.             Else

    7059. 

  7059.                 Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value

    7060. 

  7060.             End If

    7061. 

  7061.             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_DepartmentID,Integer)

    7062. 

  7062.             If (Original_Name Is Nothing) Then

    7063. 

  7063.                 Throw New Global.System.ArgumentNullException("Original_Name")

    7064. 

  7064.             Else

    7065. 

  7065.                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_Name,String)

    7066. 

  7066.             End If

    7067. 

  7067.             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_Budget,Decimal)

    7068. 

  7068.             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_StartDate,Date)

    7069. 

  7069.             If (Original_Administrator.HasValue = true) Then

    7070. 

  7070.                 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(0,Object)

    7071. 

  7071.                 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_Administrator.Value,Integer)

    7072. 

  7072.             Else

    7073. 

  7073.                 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(1,Object)

    7074. 

  7074.                 Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value

    7075. 

  7075.             End If

    7076. 

  7076.             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State

    7077. 

  7077.             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _

    7078. 

  7078.                         <> Global.System.Data.ConnectionState.Open) Then

    7079. 

  7079.                 Me.Adapter.UpdateCommand.Connection.Open

    7080. 

  7080.             End If

    7081. 

  7081.             Try 

    7082. 

  7082.                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery

    7083. 

  7083.                 Return returnValue

    7084. 

  7084.             Finally

    7085. 

  7085.                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then

    7086. 

  7086.                     Me.Adapter.UpdateCommand.Connection.Close

    7087. 

  7087.                 End If

    7088. 

  7088.             End Try

    7089. 

  7089.         End Function

    7090. 

  7090.         

    7091. 

  7091.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    7092. 

  7092.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    7093. 

  7093.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _

    7094. 

  7094.         Public Overloads Overridable Function Update(ByVal Name As String, ByVal Budget As Decimal, ByVal StartDate As Date, ByVal Administrator As Global.System.Nullable(Of Integer), ByVal Original_DepartmentID As Integer, ByVal Original_Name As String, ByVal Original_Budget As Decimal, ByVal Original_StartDate As Date, ByVal Original_Administrator As Global.System.Nullable(Of Integer)) As Integer

    7095. 

  7095.             Return Me.Update(Original_DepartmentID, Name, Budget, StartDate, Administrator, Original_DepartmentID, Original_Name, Original_Budget, Original_StartDate, Original_Administrator)

    7096. 

  7096.         End Function

    7097. 

  7097.     End Class

    7098. 

  7098.     

    7099. 

  7099.     '''<summary>

    7100. 

  7100.     '''Represents the connection and commands used to retrieve and save data.

    7101. 

  7101.     '''</summary>

    7102. 

  7102.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"),  _

    7103. 

  7103.      Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _

    7104. 

  7104.      Global.System.ComponentModel.ToolboxItem(true),  _

    7105. 

  7105.      Global.System.ComponentModel.DataObjectAttribute(true),  _

    7106. 

  7106.      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ 

    7107. 

  7107.         ", Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _

    7108. 

  7108.      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    7109. 

  7109.     Partial Public Class OfficeAssignmentTableAdapter

    7110. 

  7110.         Inherits Global.System.ComponentModel.Component

    7111. 

  7111.         

    7112. 

  7112.         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter

    7113. 

  7113.         

    7114. 

  7114.         Private _connection As Global.System.Data.SqlClient.SqlConnection

    7115. 

  7115.         

    7116. 

  7116.         Private _transaction As Global.System.Data.SqlClient.SqlTransaction

    7117. 

  7117.         

    7118. 

  7118.         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand

    7119. 

  7119.         

    7120. 

  7120.         Private _clearBeforeFill As Boolean

    7121. 

  7121.         

    7122. 

  7122.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    7123. 

  7123.         Public Sub New()

    7124. 

  7124.             MyBase.New

    7125. 

  7125.             Me.ClearBeforeFill = true

    7126. 

  7126.         End Sub

    7127. 

  7127.         

    7128. 

  7128.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    7129. 

  7129.         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter

    7130. 

  7130.             Get

    7131. 

  7131.                 If (Me._adapter Is Nothing) Then

    7132. 

  7132.                     Me.InitAdapter

    7133. 

  7133.                 End If

    7134. 

  7134.                 Return Me._adapter

    7135. 

  7135.             End Get

    7136. 

  7136.         End Property

    7137. 

  7137.         

    7138. 

  7138.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    7139. 

  7139.         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection

    7140. 

  7140.             Get

    7141. 

  7141.                 If (Me._connection Is Nothing) Then

    7142. 

  7142.                     Me.InitConnection

    7143. 

  7143.                 End If

    7144. 

  7144.                 Return Me._connection

    7145. 

  7145.             End Get

    7146. 

  7146.             Set

    7147. 

  7147.                 Me._connection = value

    7148. 

  7148.                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then

    7149. 

  7149.                     Me.Adapter.InsertCommand.Connection = value

    7150. 

  7150.                 End If

    7151. 

  7151.                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then

    7152. 

  7152.                     Me.Adapter.DeleteCommand.Connection = value

    7153. 

  7153.                 End If

    7154. 

  7154.                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then

    7155. 

  7155.                     Me.Adapter.UpdateCommand.Connection = value

    7156. 

  7156.                 End If

    7157. 

  7157.                 Dim i As Integer = 0

    7158. 

  7158.                 Do While (i < Me.CommandCollection.Length)

    7159. 

  7159.                     If (Not (Me.CommandCollection(i)) Is Nothing) Then

    7160. 

  7160.                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value

    7161. 

  7161.                     End If

    7162. 

  7162.                     i = (i + 1)

    7163. 

  7163.                 Loop

    7164. 

  7164.             End Set

    7165. 

  7165.         End Property

    7166. 

  7166.         

    7167. 

  7167.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    7168. 

  7168.         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction

    7169. 

  7169.             Get

    7170. 

  7170.                 Return Me._transaction

    7171. 

  7171.             End Get

    7172. 

  7172.             Set

    7173. 

  7173.                 Me._transaction = value

    7174. 

  7174.                 Dim i As Integer = 0

    7175. 

  7175.                 Do While (i < Me.CommandCollection.Length)

    7176. 

  7176.                     Me.CommandCollection(i).Transaction = Me._transaction

    7177. 

  7177.                     i = (i + 1)

    7178. 

  7178.                 Loop

    7179. 

  7179.                 If ((Not (Me.Adapter) Is Nothing)  _

    7180. 

  7180.                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then

    7181. 

  7181.                     Me.Adapter.DeleteCommand.Transaction = Me._transaction

    7182. 

  7182.                 End If

    7183. 

  7183.                 If ((Not (Me.Adapter) Is Nothing)  _

    7184. 

  7184.                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then

    7185. 

  7185.                     Me.Adapter.InsertCommand.Transaction = Me._transaction

    7186. 

  7186.                 End If

    7187. 

  7187.                 If ((Not (Me.Adapter) Is Nothing)  _

    7188. 

  7188.                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then

    7189. 

  7189.                     Me.Adapter.UpdateCommand.Transaction = Me._transaction

    7190. 

  7190.                 End If

    7191. 

  7191.             End Set

    7192. 

  7192.         End Property

    7193. 

  7193.         

    7194. 

  7194.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    7195. 

  7195.         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()

    7196. 

  7196.             Get

    7197. 

  7197.                 If (Me._commandCollection Is Nothing) Then

    7198. 

  7198.                     Me.InitCommandCollection

    7199. 

  7199.                 End If

    7200. 

  7200.                 Return Me._commandCollection

    7201. 

  7201.             End Get

    7202. 

  7202.         End Property

    7203. 

  7203.         

    7204. 

  7204.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    7205. 

  7205.         Public Property ClearBeforeFill() As Boolean

    7206. 

  7206.             Get

    7207. 

  7207.                 Return Me._clearBeforeFill

    7208. 

  7208.             End Get

    7209. 

  7209.             Set

    7210. 

  7210.                 Me._clearBeforeFill = value

    7211. 

  7211.             End Set

    7212. 

  7212.         End Property

    7213. 

  7213.         

    7214. 

  7214.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    7215. 

  7215.         Private Sub InitAdapter()

    7216. 

  7216.             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter

    7217. 

  7217.             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping

    7218. 

  7218.             tableMapping.SourceTable = "Table"

    7219. 

  7219.             tableMapping.DataSetTable = "OfficeAssignment"

    7220. 

  7220.             tableMapping.ColumnMappings.Add("InstructorID", "InstructorID")

    7221. 

  7221.             tableMapping.ColumnMappings.Add("Location", "Location")

    7222. 

  7222.             tableMapping.ColumnMappings.Add("Timestamp", "Timestamp")

    7223. 

  7223.             Me._adapter.TableMappings.Add(tableMapping)

    7224. 

  7224.             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand

    7225. 

  7225.             Me._adapter.DeleteCommand.Connection = Me.Connection

    7226. 

  7226.             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[OfficeAssignment] WHERE (([InstructorID] = @Original_Instructo"& _ 

    7227. 

  7227.                 "rID) AND ([Timestamp] = @Original_Timestamp))"

    7228. 

  7228.             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text

    7229. 

  7229.             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InstructorID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InstructorID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    7230. 

  7230.             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Timestamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Timestamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    7231. 

  7231.             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand

    7232. 

  7232.             Me._adapter.InsertCommand.Connection = Me.Connection

    7233. 

  7233.             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[OfficeAssignment] ([InstructorID], [Location]) VALUES (@Instru"& _ 

    7234. 

  7234.                 "ctorID, @Location);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT InstructorID, Location, Timestamp FROM OfficeAssignm"& _ 

    7235. 

  7235.                 "ent WHERE (InstructorID = @InstructorID)"

    7236. 

  7236.             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text

    7237. 

  7237.             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InstructorID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InstructorID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    7238. 

  7238.             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Location", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Location", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    7239. 

  7239.             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand

    7240. 

  7240.             Me._adapter.UpdateCommand.Connection = Me.Connection

    7241. 

  7241.             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[OfficeAssignment] SET [InstructorID] = @InstructorID, [Location] = "& _ 

    7242. 

  7242.                 "@Location WHERE (([InstructorID] = @Original_InstructorID) AND ([Timestamp] = @O"& _ 

    7243. 

  7243.                 "riginal_Timestamp));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT InstructorID, Location, Timestamp FROM OfficeAssign"& _ 

    7244. 

  7244.                 "ment WHERE (InstructorID = @InstructorID)"

    7245. 

  7245.             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text

    7246. 

  7246.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InstructorID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InstructorID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    7247. 

  7247.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Location", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Location", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    7248. 

  7248.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InstructorID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InstructorID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    7249. 

  7249.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Timestamp", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Timestamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    7250. 

  7250.         End Sub

    7251. 

  7251.         

    7252. 

  7252.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    7253. 

  7253.         Private Sub InitConnection()

    7254. 

  7254.             Me._connection = New Global.System.Data.SqlClient.SqlConnection

    7255. 

  7255.             Me._connection.ConnectionString = Global.VBVstoExcelWorkbook.MySettings.Default.SchoolConnectionString

    7256. 

  7256.         End Sub

    7257. 

  7257.         

    7258. 

  7258.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    7259. 

  7259.         Private Sub InitCommandCollection()

    7260. 

  7260.             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}

    7261. 

  7261.             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand

    7262. 

  7262.             Me._commandCollection(0).Connection = Me.Connection

    7263. 

  7263.             Me._commandCollection(0).CommandText = "SELECT InstructorID, Location, Timestamp FROM dbo.OfficeAssignment"

    7264. 

  7264.             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text

    7265. 

  7265.         End Sub

    7266. 

  7266.         

    7267. 

  7267.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    7268. 

  7268.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    7269. 

  7269.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _

    7270. 

  7270.         Public Overloads Overridable Function Fill(ByVal dataTable As SchoolDataSet.OfficeAssignmentDataTable) As Integer

    7271. 

  7271.             Me.Adapter.SelectCommand = Me.CommandCollection(0)

    7272. 

  7272.             If (Me.ClearBeforeFill = true) Then

    7273. 

  7273.                 dataTable.Clear

    7274. 

  7274.             End If

    7275. 

  7275.             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)

    7276. 

  7276.             Return returnValue

    7277. 

  7277.         End Function

    7278. 

  7278.         

    7279. 

  7279.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    7280. 

  7280.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    7281. 

  7281.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _

    7282. 

  7282.         Public Overloads Overridable Function GetData() As SchoolDataSet.OfficeAssignmentDataTable

    7283. 

  7283.             Me.Adapter.SelectCommand = Me.CommandCollection(0)

    7284. 

  7284.             Dim dataTable As SchoolDataSet.OfficeAssignmentDataTable = New SchoolDataSet.OfficeAssignmentDataTable

    7285. 

  7285.             Me.Adapter.Fill(dataTable)

    7286. 

  7286.             Return dataTable

    7287. 

  7287.         End Function

    7288. 

  7288.         

    7289. 

  7289.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    7290. 

  7290.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    7291. 

  7291.         Public Overloads Overridable Function Update(ByVal dataTable As SchoolDataSet.OfficeAssignmentDataTable) As Integer

    7292. 

  7292.             Return Me.Adapter.Update(dataTable)

    7293. 

  7293.         End Function

    7294. 

  7294.         

    7295. 

  7295.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    7296. 

  7296.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    7297. 

  7297.         Public Overloads Overridable Function Update(ByVal dataSet As SchoolDataSet) As Integer

    7298. 

  7298.             Return Me.Adapter.Update(dataSet, "OfficeAssignment")

    7299. 

  7299.         End Function

    7300. 

  7300.         

    7301. 

  7301.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    7302. 

  7302.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    7303. 

  7303.         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer

    7304. 

  7304.             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})

    7305. 

  7305.         End Function

    7306. 

  7306.         

    7307. 

  7307.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    7308. 

  7308.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    7309. 

  7309.         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer

    7310. 

  7310.             Return Me.Adapter.Update(dataRows)

    7311. 

  7311.         End Function

    7312. 

  7312.         

    7313. 

  7313.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    7314. 

  7314.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    7315. 

  7315.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _

    7316. 

  7316.         Public Overloads Overridable Function Delete(ByVal Original_InstructorID As Integer, ByVal Original_Timestamp() As Byte) As Integer

    7317. 

  7317.             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_InstructorID,Integer)

    7318. 

  7318.             If (Original_Timestamp Is Nothing) Then

    7319. 

  7319.                 Throw New Global.System.ArgumentNullException("Original_Timestamp")

    7320. 

  7320.             Else

    7321. 

  7321.                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Timestamp,Byte())

    7322. 

  7322.             End If

    7323. 

  7323.             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State

    7324. 

  7324.             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _

    7325. 

  7325.                         <> Global.System.Data.ConnectionState.Open) Then

    7326. 

  7326.                 Me.Adapter.DeleteCommand.Connection.Open

    7327. 

  7327.             End If

    7328. 

  7328.             Try 

    7329. 

  7329.                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery

    7330. 

  7330.                 Return returnValue

    7331. 

  7331.             Finally

    7332. 

  7332.                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then

    7333. 

  7333.                     Me.Adapter.DeleteCommand.Connection.Close

    7334. 

  7334.                 End If

    7335. 

  7335.             End Try

    7336. 

  7336.         End Function

    7337. 

  7337.         

    7338. 

  7338.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    7339. 

  7339.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    7340. 

  7340.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _

    7341. 

  7341.         Public Overloads Overridable Function Insert(ByVal InstructorID As Integer, ByVal Location As String) As Integer

    7342. 

  7342.             Me.Adapter.InsertCommand.Parameters(0).Value = CType(InstructorID,Integer)

    7343. 

  7343.             If (Location Is Nothing) Then

    7344. 

  7344.                 Throw New Global.System.ArgumentNullException("Location")

    7345. 

  7345.             Else

    7346. 

  7346.                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(Location,String)

    7347. 

  7347.             End If

    7348. 

  7348.             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State

    7349. 

  7349.             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _

    7350. 

  7350.                         <> Global.System.Data.ConnectionState.Open) Then

    7351. 

  7351.                 Me.Adapter.InsertCommand.Connection.Open

    7352. 

  7352.             End If

    7353. 

  7353.             Try 

    7354. 

  7354.                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery

    7355. 

  7355.                 Return returnValue

    7356. 

  7356.             Finally

    7357. 

  7357.                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then

    7358. 

  7358.                     Me.Adapter.InsertCommand.Connection.Close

    7359. 

  7359.                 End If

    7360. 

  7360.             End Try

    7361. 

  7361.         End Function

    7362. 

  7362.         

    7363. 

  7363.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    7364. 

  7364.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    7365. 

  7365.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _

    7366. 

  7366.         Public Overloads Overridable Function Update(ByVal InstructorID As Integer, ByVal Location As String, ByVal Original_InstructorID As Integer, ByVal Original_Timestamp() As Byte) As Integer

    7367. 

  7367.             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(InstructorID,Integer)

    7368. 

  7368.             If (Location Is Nothing) Then

    7369. 

  7369.                 Throw New Global.System.ArgumentNullException("Location")

    7370. 

  7370.             Else

    7371. 

  7371.                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Location,String)

    7372. 

  7372.             End If

    7373. 

  7373.             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_InstructorID,Integer)

    7374. 

  7374.             If (Original_Timestamp Is Nothing) Then

    7375. 

  7375.                 Throw New Global.System.ArgumentNullException("Original_Timestamp")

    7376. 

  7376.             Else

    7377. 

  7377.                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_Timestamp,Byte())

    7378. 

  7378.             End If

    7379. 

  7379.             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State

    7380. 

  7380.             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _

    7381. 

  7381.                         <> Global.System.Data.ConnectionState.Open) Then

    7382. 

  7382.                 Me.Adapter.UpdateCommand.Connection.Open

    7383. 

  7383.             End If

    7384. 

  7384.             Try 

    7385. 

  7385.                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery

    7386. 

  7386.                 Return returnValue

    7387. 

  7387.             Finally

    7388. 

  7388.                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then

    7389. 

  7389.                     Me.Adapter.UpdateCommand.Connection.Close

    7390. 

  7390.                 End If

    7391. 

  7391.             End Try

    7392. 

  7392.         End Function

    7393. 

  7393.         

    7394. 

  7394.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    7395. 

  7395.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    7396. 

  7396.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _

    7397. 

  7397.         Public Overloads Overridable Function Update(ByVal Location As String, ByVal Original_InstructorID As Integer, ByVal Original_Timestamp() As Byte) As Integer

    7398. 

  7398.             Return Me.Update(Original_InstructorID, Location, Original_InstructorID, Original_Timestamp)

    7399. 

  7399.         End Function

    7400. 

  7400.     End Class

    7401. 

  7401.     

    7402. 

  7402.     '''<summary>

    7403. 

  7403.     '''Represents the connection and commands used to retrieve and save data.

    7404. 

  7404.     '''</summary>

    7405. 

  7405.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"),  _

    7406. 

  7406.      Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _

    7407. 

  7407.      Global.System.ComponentModel.ToolboxItem(true),  _

    7408. 

  7408.      Global.System.ComponentModel.DataObjectAttribute(true),  _

    7409. 

  7409.      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ 

    7410. 

  7410.         ", Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _

    7411. 

  7411.      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    7412. 

  7412.     Partial Public Class OnlineCourseTableAdapter

    7413. 

  7413.         Inherits Global.System.ComponentModel.Component

    7414. 

  7414.         

    7415. 

  7415.         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter

    7416. 

  7416.         

    7417. 

  7417.         Private _connection As Global.System.Data.SqlClient.SqlConnection

    7418. 

  7418.         

    7419. 

  7419.         Private _transaction As Global.System.Data.SqlClient.SqlTransaction

    7420. 

  7420.         

    7421. 

  7421.         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand

    7422. 

  7422.         

    7423. 

  7423.         Private _clearBeforeFill As Boolean

    7424. 

  7424.         

    7425. 

  7425.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    7426. 

  7426.         Public Sub New()

    7427. 

  7427.             MyBase.New

    7428. 

  7428.             Me.ClearBeforeFill = true

    7429. 

  7429.         End Sub

    7430. 

  7430.         

    7431. 

  7431.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    7432. 

  7432.         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter

    7433. 

  7433.             Get

    7434. 

  7434.                 If (Me._adapter Is Nothing) Then

    7435. 

  7435.                     Me.InitAdapter

    7436. 

  7436.                 End If

    7437. 

  7437.                 Return Me._adapter

    7438. 

  7438.             End Get

    7439. 

  7439.         End Property

    7440. 

  7440.         

    7441. 

  7441.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    7442. 

  7442.         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection

    7443. 

  7443.             Get

    7444. 

  7444.                 If (Me._connection Is Nothing) Then

    7445. 

  7445.                     Me.InitConnection

    7446. 

  7446.                 End If

    7447. 

  7447.                 Return Me._connection

    7448. 

  7448.             End Get

    7449. 

  7449.             Set

    7450. 

  7450.                 Me._connection = value

    7451. 

  7451.                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then

    7452. 

  7452.                     Me.Adapter.InsertCommand.Connection = value

    7453. 

  7453.                 End If

    7454. 

  7454.                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then

    7455. 

  7455.                     Me.Adapter.DeleteCommand.Connection = value

    7456. 

  7456.                 End If

    7457. 

  7457.                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then

    7458. 

  7458.                     Me.Adapter.UpdateCommand.Connection = value

    7459. 

  7459.                 End If

    7460. 

  7460.                 Dim i As Integer = 0

    7461. 

  7461.                 Do While (i < Me.CommandCollection.Length)

    7462. 

  7462.                     If (Not (Me.CommandCollection(i)) Is Nothing) Then

    7463. 

  7463.                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value

    7464. 

  7464.                     End If

    7465. 

  7465.                     i = (i + 1)

    7466. 

  7466.                 Loop

    7467. 

  7467.             End Set

    7468. 

  7468.         End Property

    7469. 

  7469.         

    7470. 

  7470.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    7471. 

  7471.         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction

    7472. 

  7472.             Get

    7473. 

  7473.                 Return Me._transaction

    7474. 

  7474.             End Get

    7475. 

  7475.             Set

    7476. 

  7476.                 Me._transaction = value

    7477. 

  7477.                 Dim i As Integer = 0

    7478. 

  7478.                 Do While (i < Me.CommandCollection.Length)

    7479. 

  7479.                     Me.CommandCollection(i).Transaction = Me._transaction

    7480. 

  7480.                     i = (i + 1)

    7481. 

  7481.                 Loop

    7482. 

  7482.                 If ((Not (Me.Adapter) Is Nothing)  _

    7483. 

  7483.                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then

    7484. 

  7484.                     Me.Adapter.DeleteCommand.Transaction = Me._transaction

    7485. 

  7485.                 End If

    7486. 

  7486.                 If ((Not (Me.Adapter) Is Nothing)  _

    7487. 

  7487.                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then

    7488. 

  7488.                     Me.Adapter.InsertCommand.Transaction = Me._transaction

    7489. 

  7489.                 End If

    7490. 

  7490.                 If ((Not (Me.Adapter) Is Nothing)  _

    7491. 

  7491.                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then

    7492. 

  7492.                     Me.Adapter.UpdateCommand.Transaction = Me._transaction

    7493. 

  7493.                 End If

    7494. 

  7494.             End Set

    7495. 

  7495.         End Property

    7496. 

  7496.         

    7497. 

  7497.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    7498. 

  7498.         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()

    7499. 

  7499.             Get

    7500. 

  7500.                 If (Me._commandCollection Is Nothing) Then

    7501. 

  7501.                     Me.InitCommandCollection

    7502. 

  7502.                 End If

    7503. 

  7503.                 Return Me._commandCollection

    7504. 

  7504.             End Get

    7505. 

  7505.         End Property

    7506. 

  7506.         

    7507. 

  7507.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    7508. 

  7508.         Public Property ClearBeforeFill() As Boolean

    7509. 

  7509.             Get

    7510. 

  7510.                 Return Me._clearBeforeFill

    7511. 

  7511.             End Get

    7512. 

  7512.             Set

    7513. 

  7513.                 Me._clearBeforeFill = value

    7514. 

  7514.             End Set

    7515. 

  7515.         End Property

    7516. 

  7516.         

    7517. 

  7517.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    7518. 

  7518.         Private Sub InitAdapter()

    7519. 

  7519.             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter

    7520. 

  7520.             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping

    7521. 

  7521.             tableMapping.SourceTable = "Table"

    7522. 

  7522.             tableMapping.DataSetTable = "OnlineCourse"

    7523. 

  7523.             tableMapping.ColumnMappings.Add("CourseID", "CourseID")

    7524. 

  7524.             tableMapping.ColumnMappings.Add("URL", "URL")

    7525. 

  7525.             Me._adapter.TableMappings.Add(tableMapping)

    7526. 

  7526.             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand

    7527. 

  7527.             Me._adapter.DeleteCommand.Connection = Me.Connection

    7528. 

  7528.             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[OnlineCourse] WHERE (([CourseID] = @Original_CourseID) AND ([U"& _ 

    7529. 

  7529.                 "RL] = @Original_URL))"

    7530. 

  7530.             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text

    7531. 

  7531.             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CourseID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CourseID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    7532. 

  7532.             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_URL", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "URL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    7533. 

  7533.             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand

    7534. 

  7534.             Me._adapter.InsertCommand.Connection = Me.Connection

    7535. 

  7535.             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[OnlineCourse] ([CourseID], [URL]) VALUES (@CourseID, @URL);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"S"& _ 

    7536. 

  7536.                 "ELECT CourseID, URL FROM OnlineCourse WHERE (CourseID = @CourseID)"

    7537. 

  7537.             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text

    7538. 

  7538.             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CourseID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CourseID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    7539. 

  7539.             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@URL", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "URL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    7540. 

  7540.             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand

    7541. 

  7541.             Me._adapter.UpdateCommand.Connection = Me.Connection

    7542. 

  7542.             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[OnlineCourse] SET [CourseID] = @CourseID, [URL] = @URL WHERE (([Cou"& _ 

    7543. 

  7543.                 "rseID] = @Original_CourseID) AND ([URL] = @Original_URL));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CourseID, URL"& _ 

    7544. 

  7544.                 " FROM OnlineCourse WHERE (CourseID = @CourseID)"

    7545. 

  7545.             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text

    7546. 

  7546.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CourseID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CourseID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    7547. 

  7547.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@URL", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "URL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    7548. 

  7548.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CourseID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CourseID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    7549. 

  7549.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_URL", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "URL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    7550. 

  7550.         End Sub

    7551. 

  7551.         

    7552. 

  7552.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    7553. 

  7553.         Private Sub InitConnection()

    7554. 

  7554.             Me._connection = New Global.System.Data.SqlClient.SqlConnection

    7555. 

  7555.             Me._connection.ConnectionString = Global.VBVstoExcelWorkbook.MySettings.Default.SchoolConnectionString

    7556. 

  7556.         End Sub

    7557. 

  7557.         

    7558. 

  7558.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    7559. 

  7559.         Private Sub InitCommandCollection()

    7560. 

  7560.             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}

    7561. 

  7561.             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand

    7562. 

  7562.             Me._commandCollection(0).Connection = Me.Connection

    7563. 

  7563.             Me._commandCollection(0).CommandText = "SELECT CourseID, URL FROM dbo.OnlineCourse"

    7564. 

  7564.             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text

    7565. 

  7565.         End Sub

    7566. 

  7566.         

    7567. 

  7567.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    7568. 

  7568.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    7569. 

  7569.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _

    7570. 

  7570.         Public Overloads Overridable Function Fill(ByVal dataTable As SchoolDataSet.OnlineCourseDataTable) As Integer

    7571. 

  7571.             Me.Adapter.SelectCommand = Me.CommandCollection(0)

    7572. 

  7572.             If (Me.ClearBeforeFill = true) Then

    7573. 

  7573.                 dataTable.Clear

    7574. 

  7574.             End If

    7575. 

  7575.             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)

    7576. 

  7576.             Return returnValue

    7577. 

  7577.         End Function

    7578. 

  7578.         

    7579. 

  7579.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    7580. 

  7580.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    7581. 

  7581.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _

    7582. 

  7582.         Public Overloads Overridable Function GetData() As SchoolDataSet.OnlineCourseDataTable

    7583. 

  7583.             Me.Adapter.SelectCommand = Me.CommandCollection(0)

    7584. 

  7584.             Dim dataTable As SchoolDataSet.OnlineCourseDataTable = New SchoolDataSet.OnlineCourseDataTable

    7585. 

  7585.             Me.Adapter.Fill(dataTable)

    7586. 

  7586.             Return dataTable

    7587. 

  7587.         End Function

    7588. 

  7588.         

    7589. 

  7589.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    7590. 

  7590.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    7591. 

  7591.         Public Overloads Overridable Function Update(ByVal dataTable As SchoolDataSet.OnlineCourseDataTable) As Integer

    7592. 

  7592.             Return Me.Adapter.Update(dataTable)

    7593. 

  7593.         End Function

    7594. 

  7594.         

    7595. 

  7595.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    7596. 

  7596.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    7597. 

  7597.         Public Overloads Overridable Function Update(ByVal dataSet As SchoolDataSet) As Integer

    7598. 

  7598.             Return Me.Adapter.Update(dataSet, "OnlineCourse")

    7599. 

  7599.         End Function

    7600. 

  7600.         

    7601. 

  7601.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    7602. 

  7602.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    7603. 

  7603.         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer

    7604. 

  7604.             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})

    7605. 

  7605.         End Function

    7606. 

  7606.         

    7607. 

  7607.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    7608. 

  7608.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    7609. 

  7609.         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer

    7610. 

  7610.             Return Me.Adapter.Update(dataRows)

    7611. 

  7611.         End Function

    7612. 

  7612.         

    7613. 

  7613.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    7614. 

  7614.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    7615. 

  7615.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _

    7616. 

  7616.         Public Overloads Overridable Function Delete(ByVal Original_CourseID As Integer, ByVal Original_URL As String) As Integer

    7617. 

  7617.             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_CourseID,Integer)

    7618. 

  7618.             If (Original_URL Is Nothing) Then

    7619. 

  7619.                 Throw New Global.System.ArgumentNullException("Original_URL")

    7620. 

  7620.             Else

    7621. 

  7621.                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_URL,String)

    7622. 

  7622.             End If

    7623. 

  7623.             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State

    7624. 

  7624.             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _

    7625. 

  7625.                         <> Global.System.Data.ConnectionState.Open) Then

    7626. 

  7626.                 Me.Adapter.DeleteCommand.Connection.Open

    7627. 

  7627.             End If

    7628. 

  7628.             Try 

    7629. 

  7629.                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery

    7630. 

  7630.                 Return returnValue

    7631. 

  7631.             Finally

    7632. 

  7632.                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then

    7633. 

  7633.                     Me.Adapter.DeleteCommand.Connection.Close

    7634. 

  7634.                 End If

    7635. 

  7635.             End Try

    7636. 

  7636.         End Function

    7637. 

  7637.         

    7638. 

  7638.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    7639. 

  7639.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    7640. 

  7640.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _

    7641. 

  7641.         Public Overloads Overridable Function Insert(ByVal CourseID As Integer, ByVal URL As String) As Integer

    7642. 

  7642.             Me.Adapter.InsertCommand.Parameters(0).Value = CType(CourseID,Integer)

    7643. 

  7643.             If (URL Is Nothing) Then

    7644. 

  7644.                 Throw New Global.System.ArgumentNullException("URL")

    7645. 

  7645.             Else

    7646. 

  7646.                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(URL,String)

    7647. 

  7647.             End If

    7648. 

  7648.             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State

    7649. 

  7649.             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _

    7650. 

  7650.                         <> Global.System.Data.ConnectionState.Open) Then

    7651. 

  7651.                 Me.Adapter.InsertCommand.Connection.Open

    7652. 

  7652.             End If

    7653. 

  7653.             Try 

    7654. 

  7654.                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery

    7655. 

  7655.                 Return returnValue

    7656. 

  7656.             Finally

    7657. 

  7657.                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then

    7658. 

  7658.                     Me.Adapter.InsertCommand.Connection.Close

    7659. 

  7659.                 End If

    7660. 

  7660.             End Try

    7661. 

  7661.         End Function

    7662. 

  7662.         

    7663. 

  7663.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    7664. 

  7664.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    7665. 

  7665.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _

    7666. 

  7666.         Public Overloads Overridable Function Update(ByVal CourseID As Integer, ByVal URL As String, ByVal Original_CourseID As Integer, ByVal Original_URL As String) As Integer

    7667. 

  7667.             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CourseID,Integer)

    7668. 

  7668.             If (URL Is Nothing) Then

    7669. 

  7669.                 Throw New Global.System.ArgumentNullException("URL")

    7670. 

  7670.             Else

    7671. 

  7671.                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(URL,String)

    7672. 

  7672.             End If

    7673. 

  7673.             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_CourseID,Integer)

    7674. 

  7674.             If (Original_URL Is Nothing) Then

    7675. 

  7675.                 Throw New Global.System.ArgumentNullException("Original_URL")

    7676. 

  7676.             Else

    7677. 

  7677.                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_URL,String)

    7678. 

  7678.             End If

    7679. 

  7679.             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State

    7680. 

  7680.             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _

    7681. 

  7681.                         <> Global.System.Data.ConnectionState.Open) Then

    7682. 

  7682.                 Me.Adapter.UpdateCommand.Connection.Open

    7683. 

  7683.             End If

    7684. 

  7684.             Try 

    7685. 

  7685.                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery

    7686. 

  7686.                 Return returnValue

    7687. 

  7687.             Finally

    7688. 

  7688.                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then

    7689. 

  7689.                     Me.Adapter.UpdateCommand.Connection.Close

    7690. 

  7690.                 End If

    7691. 

  7691.             End Try

    7692. 

  7692.         End Function

    7693. 

  7693.         

    7694. 

  7694.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    7695. 

  7695.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    7696. 

  7696.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _

    7697. 

  7697.         Public Overloads Overridable Function Update(ByVal URL As String, ByVal Original_CourseID As Integer, ByVal Original_URL As String) As Integer

    7698. 

  7698.             Return Me.Update(Original_CourseID, URL, Original_CourseID, Original_URL)

    7699. 

  7699.         End Function

    7700. 

  7700.     End Class

    7701. 

  7701.     

    7702. 

  7702.     '''<summary>

    7703. 

  7703.     '''Represents the connection and commands used to retrieve and save data.

    7704. 

  7704.     '''</summary>

    7705. 

  7705.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"),  _

    7706. 

  7706.      Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _

    7707. 

  7707.      Global.System.ComponentModel.ToolboxItem(true),  _

    7708. 

  7708.      Global.System.ComponentModel.DataObjectAttribute(true),  _

    7709. 

  7709.      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ 

    7710. 

  7710.         ", Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _

    7711. 

  7711.      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    7712. 

  7712.     Partial Public Class OnsiteCourseTableAdapter

    7713. 

  7713.         Inherits Global.System.ComponentModel.Component

    7714. 

  7714.         

    7715. 

  7715.         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter

    7716. 

  7716.         

    7717. 

  7717.         Private _connection As Global.System.Data.SqlClient.SqlConnection

    7718. 

  7718.         

    7719. 

  7719.         Private _transaction As Global.System.Data.SqlClient.SqlTransaction

    7720. 

  7720.         

    7721. 

  7721.         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand

    7722. 

  7722.         

    7723. 

  7723.         Private _clearBeforeFill As Boolean

    7724. 

  7724.         

    7725. 

  7725.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    7726. 

  7726.         Public Sub New()

    7727. 

  7727.             MyBase.New

    7728. 

  7728.             Me.ClearBeforeFill = true

    7729. 

  7729.         End Sub

    7730. 

  7730.         

    7731. 

  7731.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    7732. 

  7732.         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter

    7733. 

  7733.             Get

    7734. 

  7734.                 If (Me._adapter Is Nothing) Then

    7735. 

  7735.                     Me.InitAdapter

    7736. 

  7736.                 End If

    7737. 

  7737.                 Return Me._adapter

    7738. 

  7738.             End Get

    7739. 

  7739.         End Property

    7740. 

  7740.         

    7741. 

  7741.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    7742. 

  7742.         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection

    7743. 

  7743.             Get

    7744. 

  7744.                 If (Me._connection Is Nothing) Then

    7745. 

  7745.                     Me.InitConnection

    7746. 

  7746.                 End If

    7747. 

  7747.                 Return Me._connection

    7748. 

  7748.             End Get

    7749. 

  7749.             Set

    7750. 

  7750.                 Me._connection = value

    7751. 

  7751.                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then

    7752. 

  7752.                     Me.Adapter.InsertCommand.Connection = value

    7753. 

  7753.                 End If

    7754. 

  7754.                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then

    7755. 

  7755.                     Me.Adapter.DeleteCommand.Connection = value

    7756. 

  7756.                 End If

    7757. 

  7757.                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then

    7758. 

  7758.                     Me.Adapter.UpdateCommand.Connection = value

    7759. 

  7759.                 End If

    7760. 

  7760.                 Dim i As Integer = 0

    7761. 

  7761.                 Do While (i < Me.CommandCollection.Length)

    7762. 

  7762.                     If (Not (Me.CommandCollection(i)) Is Nothing) Then

    7763. 

  7763.                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value

    7764. 

  7764.                     End If

    7765. 

  7765.                     i = (i + 1)

    7766. 

  7766.                 Loop

    7767. 

  7767.             End Set

    7768. 

  7768.         End Property

    7769. 

  7769.         

    7770. 

  7770.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    7771. 

  7771.         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction

    7772. 

  7772.             Get

    7773. 

  7773.                 Return Me._transaction

    7774. 

  7774.             End Get

    7775. 

  7775.             Set

    7776. 

  7776.                 Me._transaction = value

    7777. 

  7777.                 Dim i As Integer = 0

    7778. 

  7778.                 Do While (i < Me.CommandCollection.Length)

    7779. 

  7779.                     Me.CommandCollection(i).Transaction = Me._transaction

    7780. 

  7780.                     i = (i + 1)

    7781. 

  7781.                 Loop

    7782. 

  7782.                 If ((Not (Me.Adapter) Is Nothing)  _

    7783. 

  7783.                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then

    7784. 

  7784.                     Me.Adapter.DeleteCommand.Transaction = Me._transaction

    7785. 

  7785.                 End If

    7786. 

  7786.                 If ((Not (Me.Adapter) Is Nothing)  _

    7787. 

  7787.                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then

    7788. 

  7788.                     Me.Adapter.InsertCommand.Transaction = Me._transaction

    7789. 

  7789.                 End If

    7790. 

  7790.                 If ((Not (Me.Adapter) Is Nothing)  _

    7791. 

  7791.                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then

    7792. 

  7792.                     Me.Adapter.UpdateCommand.Transaction = Me._transaction

    7793. 

  7793.                 End If

    7794. 

  7794.             End Set

    7795. 

  7795.         End Property

    7796. 

  7796.         

    7797. 

  7797.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    7798. 

  7798.         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()

    7799. 

  7799.             Get

    7800. 

  7800.                 If (Me._commandCollection Is Nothing) Then

    7801. 

  7801.                     Me.InitCommandCollection

    7802. 

  7802.                 End If

    7803. 

  7803.                 Return Me._commandCollection

    7804. 

  7804.             End Get

    7805. 

  7805.         End Property

    7806. 

  7806.         

    7807. 

  7807.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    7808. 

  7808.         Public Property ClearBeforeFill() As Boolean

    7809. 

  7809.             Get

    7810. 

  7810.                 Return Me._clearBeforeFill

    7811. 

  7811.             End Get

    7812. 

  7812.             Set

    7813. 

  7813.                 Me._clearBeforeFill = value

    7814. 

  7814.             End Set

    7815. 

  7815.         End Property

    7816. 

  7816.         

    7817. 

  7817.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    7818. 

  7818.         Private Sub InitAdapter()

    7819. 

  7819.             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter

    7820. 

  7820.             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping

    7821. 

  7821.             tableMapping.SourceTable = "Table"

    7822. 

  7822.             tableMapping.DataSetTable = "OnsiteCourse"

    7823. 

  7823.             tableMapping.ColumnMappings.Add("CourseID", "CourseID")

    7824. 

  7824.             tableMapping.ColumnMappings.Add("Location", "Location")

    7825. 

  7825.             tableMapping.ColumnMappings.Add("Days", "Days")

    7826. 

  7826.             tableMapping.ColumnMappings.Add("Time", "Time")

    7827. 

  7827.             Me._adapter.TableMappings.Add(tableMapping)

    7828. 

  7828.             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand

    7829. 

  7829.             Me._adapter.DeleteCommand.Connection = Me.Connection

    7830. 

  7830.             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[OnsiteCourse] WHERE (([CourseID] = @Original_CourseID) AND ([L"& _ 

    7831. 

  7831.                 "ocation] = @Original_Location) AND ([Days] = @Original_Days) AND ([Time] = @Orig"& _ 

    7832. 

  7832.                 "inal_Time))"

    7833. 

  7833.             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text

    7834. 

  7834.             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CourseID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CourseID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    7835. 

  7835.             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Location", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Location", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    7836. 

  7836.             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Days", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Days", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    7837. 

  7837.             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Time", Global.System.Data.SqlDbType.SmallDateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Time", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    7838. 

  7838.             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand

    7839. 

  7839.             Me._adapter.InsertCommand.Connection = Me.Connection

    7840. 

  7840.             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[OnsiteCourse] ([CourseID], [Location], [Days], [Time]) VALUES "& _ 

    7841. 

  7841.                 "(@CourseID, @Location, @Days, @Time);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CourseID, Location, Days, Time FRO"& _ 

    7842. 

  7842.                 "M OnsiteCourse WHERE (CourseID = @CourseID)"

    7843. 

  7843.             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text

    7844. 

  7844.             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CourseID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CourseID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    7845. 

  7845.             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Location", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Location", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    7846. 

  7846.             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Days", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Days", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    7847. 

  7847.             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Time", Global.System.Data.SqlDbType.SmallDateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Time", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    7848. 

  7848.             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand

    7849. 

  7849.             Me._adapter.UpdateCommand.Connection = Me.Connection

    7850. 

  7850.             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[OnsiteCourse] SET [CourseID] = @CourseID, [Location] = @Location, ["& _ 

    7851. 

  7851.                 "Days] = @Days, [Time] = @Time WHERE (([CourseID] = @Original_CourseID) AND ([Loc"& _ 

    7852. 

  7852.                 "ation] = @Original_Location) AND ([Days] = @Original_Days) AND ([Time] = @Origin"& _ 

    7853. 

  7853.                 "al_Time));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CourseID, Location, Days, Time FROM OnsiteCourse WHERE (Cours"& _ 

    7854. 

  7854.                 "eID = @CourseID)"

    7855. 

  7855.             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text

    7856. 

  7856.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CourseID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CourseID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    7857. 

  7857.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Location", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Location", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    7858. 

  7858.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Days", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Days", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    7859. 

  7859.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Time", Global.System.Data.SqlDbType.SmallDateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Time", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    7860. 

  7860.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CourseID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CourseID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    7861. 

  7861.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Location", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Location", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    7862. 

  7862.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Days", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Days", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    7863. 

  7863.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Time", Global.System.Data.SqlDbType.SmallDateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Time", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    7864. 

  7864.         End Sub

    7865. 

  7865.         

    7866. 

  7866.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    7867. 

  7867.         Private Sub InitConnection()

    7868. 

  7868.             Me._connection = New Global.System.Data.SqlClient.SqlConnection

    7869. 

  7869.             Me._connection.ConnectionString = Global.VBVstoExcelWorkbook.MySettings.Default.SchoolConnectionString

    7870. 

  7870.         End Sub

    7871. 

  7871.         

    7872. 

  7872.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    7873. 

  7873.         Private Sub InitCommandCollection()

    7874. 

  7874.             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}

    7875. 

  7875.             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand

    7876. 

  7876.             Me._commandCollection(0).Connection = Me.Connection

    7877. 

  7877.             Me._commandCollection(0).CommandText = "SELECT CourseID, Location, Days, Time FROM dbo.OnsiteCourse"

    7878. 

  7878.             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text

    7879. 

  7879.         End Sub

    7880. 

  7880.         

    7881. 

  7881.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    7882. 

  7882.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    7883. 

  7883.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _

    7884. 

  7884.         Public Overloads Overridable Function Fill(ByVal dataTable As SchoolDataSet.OnsiteCourseDataTable) As Integer

    7885. 

  7885.             Me.Adapter.SelectCommand = Me.CommandCollection(0)

    7886. 

  7886.             If (Me.ClearBeforeFill = true) Then

    7887. 

  7887.                 dataTable.Clear

    7888. 

  7888.             End If

    7889. 

  7889.             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)

    7890. 

  7890.             Return returnValue

    7891. 

  7891.         End Function

    7892. 

  7892.         

    7893. 

  7893.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    7894. 

  7894.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    7895. 

  7895.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _

    7896. 

  7896.         Public Overloads Overridable Function GetData() As SchoolDataSet.OnsiteCourseDataTable

    7897. 

  7897.             Me.Adapter.SelectCommand = Me.CommandCollection(0)

    7898. 

  7898.             Dim dataTable As SchoolDataSet.OnsiteCourseDataTable = New SchoolDataSet.OnsiteCourseDataTable

    7899. 

  7899.             Me.Adapter.Fill(dataTable)

    7900. 

  7900.             Return dataTable

    7901. 

  7901.         End Function

    7902. 

  7902.         

    7903. 

  7903.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    7904. 

  7904.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    7905. 

  7905.         Public Overloads Overridable Function Update(ByVal dataTable As SchoolDataSet.OnsiteCourseDataTable) As Integer

    7906. 

  7906.             Return Me.Adapter.Update(dataTable)

    7907. 

  7907.         End Function

    7908. 

  7908.         

    7909. 

  7909.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    7910. 

  7910.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    7911. 

  7911.         Public Overloads Overridable Function Update(ByVal dataSet As SchoolDataSet) As Integer

    7912. 

  7912.             Return Me.Adapter.Update(dataSet, "OnsiteCourse")

    7913. 

  7913.         End Function

    7914. 

  7914.         

    7915. 

  7915.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    7916. 

  7916.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    7917. 

  7917.         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer

    7918. 

  7918.             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})

    7919. 

  7919.         End Function

    7920. 

  7920.         

    7921. 

  7921.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    7922. 

  7922.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    7923. 

  7923.         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer

    7924. 

  7924.             Return Me.Adapter.Update(dataRows)

    7925. 

  7925.         End Function

    7926. 

  7926.         

    7927. 

  7927.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    7928. 

  7928.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    7929. 

  7929.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _

    7930. 

  7930.         Public Overloads Overridable Function Delete(ByVal Original_CourseID As Integer, ByVal Original_Location As String, ByVal Original_Days As String, ByVal Original_Time As Date) As Integer

    7931. 

  7931.             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_CourseID,Integer)

    7932. 

  7932.             If (Original_Location Is Nothing) Then

    7933. 

  7933.                 Throw New Global.System.ArgumentNullException("Original_Location")

    7934. 

  7934.             Else

    7935. 

  7935.                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Location,String)

    7936. 

  7936.             End If

    7937. 

  7937.             If (Original_Days Is Nothing) Then

    7938. 

  7938.                 Throw New Global.System.ArgumentNullException("Original_Days")

    7939. 

  7939.             Else

    7940. 

  7940.                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Days,String)

    7941. 

  7941.             End If

    7942. 

  7942.             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Time,Date)

    7943. 

  7943.             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State

    7944. 

  7944.             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _

    7945. 

  7945.                         <> Global.System.Data.ConnectionState.Open) Then

    7946. 

  7946.                 Me.Adapter.DeleteCommand.Connection.Open

    7947. 

  7947.             End If

    7948. 

  7948.             Try 

    7949. 

  7949.                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery

    7950. 

  7950.                 Return returnValue

    7951. 

  7951.             Finally

    7952. 

  7952.                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then

    7953. 

  7953.                     Me.Adapter.DeleteCommand.Connection.Close

    7954. 

  7954.                 End If

    7955. 

  7955.             End Try

    7956. 

  7956.         End Function

    7957. 

  7957.         

    7958. 

  7958.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    7959. 

  7959.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    7960. 

  7960.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _

    7961. 

  7961.         Public Overloads Overridable Function Insert(ByVal CourseID As Integer, ByVal Location As String, ByVal Days As String, ByVal Time As Date) As Integer

    7962. 

  7962.             Me.Adapter.InsertCommand.Parameters(0).Value = CType(CourseID,Integer)

    7963. 

  7963.             If (Location Is Nothing) Then

    7964. 

  7964.                 Throw New Global.System.ArgumentNullException("Location")

    7965. 

  7965.             Else

    7966. 

  7966.                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(Location,String)

    7967. 

  7967.             End If

    7968. 

  7968.             If (Days Is Nothing) Then

    7969. 

  7969.                 Throw New Global.System.ArgumentNullException("Days")

    7970. 

  7970.             Else

    7971. 

  7971.                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(Days,String)

    7972. 

  7972.             End If

    7973. 

  7973.             Me.Adapter.InsertCommand.Parameters(3).Value = CType(Time,Date)

    7974. 

  7974.             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State

    7975. 

  7975.             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _

    7976. 

  7976.                         <> Global.System.Data.ConnectionState.Open) Then

    7977. 

  7977.                 Me.Adapter.InsertCommand.Connection.Open

    7978. 

  7978.             End If

    7979. 

  7979.             Try 

    7980. 

  7980.                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery

    7981. 

  7981.                 Return returnValue

    7982. 

  7982.             Finally

    7983. 

  7983.                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then

    7984. 

  7984.                     Me.Adapter.InsertCommand.Connection.Close

    7985. 

  7985.                 End If

    7986. 

  7986.             End Try

    7987. 

  7987.         End Function

    7988. 

  7988.         

    7989. 

  7989.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    7990. 

  7990.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    7991. 

  7991.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _

    7992. 

  7992.         Public Overloads Overridable Function Update(ByVal CourseID As Integer, ByVal Location As String, ByVal Days As String, ByVal Time As Date, ByVal Original_CourseID As Integer, ByVal Original_Location As String, ByVal Original_Days As String, ByVal Original_Time As Date) As Integer

    7993. 

  7993.             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CourseID,Integer)

    7994. 

  7994.             If (Location Is Nothing) Then

    7995. 

  7995.                 Throw New Global.System.ArgumentNullException("Location")

    7996. 

  7996.             Else

    7997. 

  7997.                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Location,String)

    7998. 

  7998.             End If

    7999. 

  7999.             If (Days Is Nothing) Then

    8000. 

  8000.                 Throw New Global.System.ArgumentNullException("Days")

    8001. 

  8001.             Else

    8002. 

  8002.                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Days,String)

    8003. 

  8003.             End If

    8004. 

  8004.             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Time,Date)

    8005. 

  8005.             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_CourseID,Integer)

    8006. 

  8006.             If (Original_Location Is Nothing) Then

    8007. 

  8007.                 Throw New Global.System.ArgumentNullException("Original_Location")

    8008. 

  8008.             Else

    8009. 

  8009.                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_Location,String)

    8010. 

  8010.             End If

    8011. 

  8011.             If (Original_Days Is Nothing) Then

    8012. 

  8012.                 Throw New Global.System.ArgumentNullException("Original_Days")

    8013. 

  8013.             Else

    8014. 

  8014.                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_Days,String)

    8015. 

  8015.             End If

    8016. 

  8016.             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_Time,Date)

    8017. 

  8017.             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State

    8018. 

  8018.             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _

    8019. 

  8019.                         <> Global.System.Data.ConnectionState.Open) Then

    8020. 

  8020.                 Me.Adapter.UpdateCommand.Connection.Open

    8021. 

  8021.             End If

    8022. 

  8022.             Try 

    8023. 

  8023.                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery

    8024. 

  8024.                 Return returnValue

    8025. 

  8025.             Finally

    8026. 

  8026.                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then

    8027. 

  8027.                     Me.Adapter.UpdateCommand.Connection.Close

    8028. 

  8028.                 End If

    8029. 

  8029.             End Try

    8030. 

  8030.         End Function

    8031. 

  8031.         

    8032. 

  8032.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    8033. 

  8033.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    8034. 

  8034.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _

    8035. 

  8035.         Public Overloads Overridable Function Update(ByVal Location As String, ByVal Days As String, ByVal Time As Date, ByVal Original_CourseID As Integer, ByVal Original_Location As String, ByVal Original_Days As String, ByVal Original_Time As Date) As Integer

    8036. 

  8036.             Return Me.Update(Original_CourseID, Location, Days, Time, Original_CourseID, Original_Location, Original_Days, Original_Time)

    8037. 

  8037.         End Function

    8038. 

  8038.     End Class

    8039. 

  8039.     

    8040. 

  8040.     '''<summary>

    8041. 

  8041.     '''Represents the connection and commands used to retrieve and save data.

    8042. 

  8042.     '''</summary>

    8043. 

  8043.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"),  _

    8044. 

  8044.      Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _

    8045. 

  8045.      Global.System.ComponentModel.ToolboxItem(true),  _

    8046. 

  8046.      Global.System.ComponentModel.DataObjectAttribute(true),  _

    8047. 

  8047.      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ 

    8048. 

  8048.         ", Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _

    8049. 

  8049.      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    8050. 

  8050.     Partial Public Class PersonTableAdapter

    8051. 

  8051.         Inherits Global.System.ComponentModel.Component

    8052. 

  8052.         

    8053. 

  8053.         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter

    8054. 

  8054.         

    8055. 

  8055.         Private _connection As Global.System.Data.SqlClient.SqlConnection

    8056. 

  8056.         

    8057. 

  8057.         Private _transaction As Global.System.Data.SqlClient.SqlTransaction

    8058. 

  8058.         

    8059. 

  8059.         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand

    8060. 

  8060.         

    8061. 

  8061.         Private _clearBeforeFill As Boolean

    8062. 

  8062.         

    8063. 

  8063.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    8064. 

  8064.         Public Sub New()

    8065. 

  8065.             MyBase.New

    8066. 

  8066.             Me.ClearBeforeFill = true

    8067. 

  8067.         End Sub

    8068. 

  8068.         

    8069. 

  8069.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    8070. 

  8070.         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter

    8071. 

  8071.             Get

    8072. 

  8072.                 If (Me._adapter Is Nothing) Then

    8073. 

  8073.                     Me.InitAdapter

    8074. 

  8074.                 End If

    8075. 

  8075.                 Return Me._adapter

    8076. 

  8076.             End Get

    8077. 

  8077.         End Property

    8078. 

  8078.         

    8079. 

  8079.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    8080. 

  8080.         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection

    8081. 

  8081.             Get

    8082. 

  8082.                 If (Me._connection Is Nothing) Then

    8083. 

  8083.                     Me.InitConnection

    8084. 

  8084.                 End If

    8085. 

  8085.                 Return Me._connection

    8086. 

  8086.             End Get

    8087. 

  8087.             Set

    8088. 

  8088.                 Me._connection = value

    8089. 

  8089.                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then

    8090. 

  8090.                     Me.Adapter.InsertCommand.Connection = value

    8091. 

  8091.                 End If

    8092. 

  8092.                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then

    8093. 

  8093.                     Me.Adapter.DeleteCommand.Connection = value

    8094. 

  8094.                 End If

    8095. 

  8095.                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then

    8096. 

  8096.                     Me.Adapter.UpdateCommand.Connection = value

    8097. 

  8097.                 End If

    8098. 

  8098.                 Dim i As Integer = 0

    8099. 

  8099.                 Do While (i < Me.CommandCollection.Length)

    8100. 

  8100.                     If (Not (Me.CommandCollection(i)) Is Nothing) Then

    8101. 

  8101.                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value

    8102. 

  8102.                     End If

    8103. 

  8103.                     i = (i + 1)

    8104. 

  8104.                 Loop

    8105. 

  8105.             End Set

    8106. 

  8106.         End Property

    8107. 

  8107.         

    8108. 

  8108.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    8109. 

  8109.         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction

    8110. 

  8110.             Get

    8111. 

  8111.                 Return Me._transaction

    8112. 

  8112.             End Get

    8113. 

  8113.             Set

    8114. 

  8114.                 Me._transaction = value

    8115. 

  8115.                 Dim i As Integer = 0

    8116. 

  8116.                 Do While (i < Me.CommandCollection.Length)

    8117. 

  8117.                     Me.CommandCollection(i).Transaction = Me._transaction

    8118. 

  8118.                     i = (i + 1)

    8119. 

  8119.                 Loop

    8120. 

  8120.                 If ((Not (Me.Adapter) Is Nothing)  _

    8121. 

  8121.                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then

    8122. 

  8122.                     Me.Adapter.DeleteCommand.Transaction = Me._transaction

    8123. 

  8123.                 End If

    8124. 

  8124.                 If ((Not (Me.Adapter) Is Nothing)  _

    8125. 

  8125.                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then

    8126. 

  8126.                     Me.Adapter.InsertCommand.Transaction = Me._transaction

    8127. 

  8127.                 End If

    8128. 

  8128.                 If ((Not (Me.Adapter) Is Nothing)  _

    8129. 

  8129.                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then

    8130. 

  8130.                     Me.Adapter.UpdateCommand.Transaction = Me._transaction

    8131. 

  8131.                 End If

    8132. 

  8132.             End Set

    8133. 

  8133.         End Property

    8134. 

  8134.         

    8135. 

  8135.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    8136. 

  8136.         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()

    8137. 

  8137.             Get

    8138. 

  8138.                 If (Me._commandCollection Is Nothing) Then

    8139. 

  8139.                     Me.InitCommandCollection

    8140. 

  8140.                 End If

    8141. 

  8141.                 Return Me._commandCollection

    8142. 

  8142.             End Get

    8143. 

  8143.         End Property

    8144. 

  8144.         

    8145. 

  8145.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    8146. 

  8146.         Public Property ClearBeforeFill() As Boolean

    8147. 

  8147.             Get

    8148. 

  8148.                 Return Me._clearBeforeFill

    8149. 

  8149.             End Get

    8150. 

  8150.             Set

    8151. 

  8151.                 Me._clearBeforeFill = value

    8152. 

  8152.             End Set

    8153. 

  8153.         End Property

    8154. 

  8154.         

    8155. 

  8155.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    8156. 

  8156.         Private Sub InitAdapter()

    8157. 

  8157.             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter

    8158. 

  8158.             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping

    8159. 

  8159.             tableMapping.SourceTable = "Table"

    8160. 

  8160.             tableMapping.DataSetTable = "Person"

    8161. 

  8161.             tableMapping.ColumnMappings.Add("PersonID", "PersonID")

    8162. 

  8162.             tableMapping.ColumnMappings.Add("LastName", "LastName")

    8163. 

  8163.             tableMapping.ColumnMappings.Add("FirstName", "FirstName")

    8164. 

  8164.             tableMapping.ColumnMappings.Add("PersonCategory", "PersonCategory")

    8165. 

  8165.             tableMapping.ColumnMappings.Add("HireDate", "HireDate")

    8166. 

  8166.             tableMapping.ColumnMappings.Add("EnrollmentDate", "EnrollmentDate")

    8167. 

  8167.             tableMapping.ColumnMappings.Add("Picture", "Picture")

    8168. 

  8168.             Me._adapter.TableMappings.Add(tableMapping)

    8169. 

  8169.             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand

    8170. 

  8170.             Me._adapter.DeleteCommand.Connection = Me.Connection

    8171. 

  8171.             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Person] WHERE (([PersonID] = @Original_PersonID) AND ([LastNam"& _ 

    8172. 

  8172.                 "e] = @Original_LastName) AND ([FirstName] = @Original_FirstName) AND ([PersonCat"& _ 

    8173. 

  8173.                 "egory] = @Original_PersonCategory) AND ((@IsNull_HireDate = 1 AND [HireDate] IS "& _ 

    8174. 

  8174.                 "NULL) OR ([HireDate] = @Original_HireDate)) AND ((@IsNull_EnrollmentDate = 1 AND"& _ 

    8175. 

  8175.                 " [EnrollmentDate] IS NULL) OR ([EnrollmentDate] = @Original_EnrollmentDate)))"

    8176. 

  8176.             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text

    8177. 

  8177.             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PersonID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PersonID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    8178. 

  8178.             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LastName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LastName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    8179. 

  8179.             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FirstName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FirstName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    8180. 

  8180.             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PersonCategory", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PersonCategory", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    8181. 

  8181.             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_HireDate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HireDate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))

    8182. 

  8182.             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HireDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HireDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    8183. 

  8183.             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EnrollmentDate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EnrollmentDate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))

    8184. 

  8184.             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EnrollmentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EnrollmentDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    8185. 

  8185.             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand

    8186. 

  8186.             Me._adapter.InsertCommand.Connection = Me.Connection

    8187. 

  8187.             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Person] ([LastName], [FirstName], [PersonCategory], [HireDate]"& _ 

    8188. 

  8188.                 ", [EnrollmentDate], [Picture]) VALUES (@LastName, @FirstName, @PersonCategory, @"& _ 

    8189. 

  8189.                 "HireDate, @EnrollmentDate, @Picture);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT PersonID, LastName, FirstName, Per"& _ 

    8190. 

  8190.                 "sonCategory, HireDate, EnrollmentDate, Picture FROM Person WHERE (PersonID = SCO"& _ 

    8191. 

  8191.                 "PE_IDENTITY())"

    8192. 

  8192.             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text

    8193. 

  8193.             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LastName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LastName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    8194. 

  8194.             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FirstName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FirstName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    8195. 

  8195.             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PersonCategory", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PersonCategory", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    8196. 

  8196.             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HireDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HireDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    8197. 

  8197.             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EnrollmentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EnrollmentDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    8198. 

  8198.             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Picture", Global.System.Data.SqlDbType.Image, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Picture", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    8199. 

  8199.             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand

    8200. 

  8200.             Me._adapter.UpdateCommand.Connection = Me.Connection

    8201. 

  8201.             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Person] SET [LastName] = @LastName, [FirstName] = @FirstName, [Pers"& _ 

    8202. 

  8202.                 "onCategory] = @PersonCategory, [HireDate] = @HireDate, [EnrollmentDate] = @Enrol"& _ 

    8203. 

  8203.                 "lmentDate, [Picture] = @Picture WHERE (([PersonID] = @Original_PersonID) AND ([L"& _ 

    8204. 

  8204.                 "astName] = @Original_LastName) AND ([FirstName] = @Original_FirstName) AND ([Per"& _ 

    8205. 

  8205.                 "sonCategory] = @Original_PersonCategory) AND ((@IsNull_HireDate = 1 AND [HireDat"& _ 

    8206. 

  8206.                 "e] IS NULL) OR ([HireDate] = @Original_HireDate)) AND ((@IsNull_EnrollmentDate ="& _ 

    8207. 

  8207.                 " 1 AND [EnrollmentDate] IS NULL) OR ([EnrollmentDate] = @Original_EnrollmentDate"& _ 

    8208. 

  8208.                 ")));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT PersonID, LastName, FirstName, PersonCategory, HireDate, Enrollment"& _ 

    8209. 

  8209.                 "Date, Picture FROM Person WHERE (PersonID = @PersonID)"

    8210. 

  8210.             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text

    8211. 

  8211.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LastName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LastName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    8212. 

  8212.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FirstName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FirstName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    8213. 

  8213.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PersonCategory", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PersonCategory", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    8214. 

  8214.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HireDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HireDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    8215. 

  8215.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EnrollmentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EnrollmentDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    8216. 

  8216.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Picture", Global.System.Data.SqlDbType.Image, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Picture", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    8217. 

  8217.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PersonID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PersonID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    8218. 

  8218.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LastName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LastName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    8219. 

  8219.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FirstName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FirstName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    8220. 

  8220.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PersonCategory", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PersonCategory", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    8221. 

  8221.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_HireDate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HireDate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))

    8222. 

  8222.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HireDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HireDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    8223. 

  8223.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EnrollmentDate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EnrollmentDate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))

    8224. 

  8224.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EnrollmentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EnrollmentDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))

    8225. 

  8225.             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PersonID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PersonID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    8226. 

  8226.         End Sub

    8227. 

  8227.         

    8228. 

  8228.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    8229. 

  8229.         Private Sub InitConnection()

    8230. 

  8230.             Me._connection = New Global.System.Data.SqlClient.SqlConnection

    8231. 

  8231.             Me._connection.ConnectionString = Global.VBVstoExcelWorkbook.MySettings.Default.SchoolConnectionString

    8232. 

  8232.         End Sub

    8233. 

  8233.         

    8234. 

  8234.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    8235. 

  8235.         Private Sub InitCommandCollection()

    8236. 

  8236.             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}

    8237. 

  8237.             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand

    8238. 

  8238.             Me._commandCollection(0).Connection = Me.Connection

    8239. 

  8239.             Me._commandCollection(0).CommandText = "SELECT PersonID, LastName, FirstName, PersonCategory, HireDate, EnrollmentDate, P"& _ 

    8240. 

  8240.                 "icture FROM dbo.Person"

    8241. 

  8241.             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text

    8242. 

  8242.         End Sub

    8243. 

  8243.         

    8244. 

  8244.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    8245. 

  8245.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    8246. 

  8246.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _

    8247. 

  8247.         Public Overloads Overridable Function Fill(ByVal dataTable As SchoolDataSet.PersonDataTable) As Integer

    8248. 

  8248.             Me.Adapter.SelectCommand = Me.CommandCollection(0)

    8249. 

  8249.             If (Me.ClearBeforeFill = true) Then

    8250. 

  8250.                 dataTable.Clear

    8251. 

  8251.             End If

    8252. 

  8252.             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)

    8253. 

  8253.             Return returnValue

    8254. 

  8254.         End Function

    8255. 

  8255.         

    8256. 

  8256.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    8257. 

  8257.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    8258. 

  8258.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _

    8259. 

  8259.         Public Overloads Overridable Function GetData() As SchoolDataSet.PersonDataTable

    8260. 

  8260.             Me.Adapter.SelectCommand = Me.CommandCollection(0)

    8261. 

  8261.             Dim dataTable As SchoolDataSet.PersonDataTable = New SchoolDataSet.PersonDataTable

    8262. 

  8262.             Me.Adapter.Fill(dataTable)

    8263. 

  8263.             Return dataTable

    8264. 

  8264.         End Function

    8265. 

  8265.         

    8266. 

  8266.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    8267. 

  8267.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    8268. 

  8268.         Public Overloads Overridable Function Update(ByVal dataTable As SchoolDataSet.PersonDataTable) As Integer

    8269. 

  8269.             Return Me.Adapter.Update(dataTable)

    8270. 

  8270.         End Function

    8271. 

  8271.         

    8272. 

  8272.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    8273. 

  8273.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    8274. 

  8274.         Public Overloads Overridable Function Update(ByVal dataSet As SchoolDataSet) As Integer

    8275. 

  8275.             Return Me.Adapter.Update(dataSet, "Person")

    8276. 

  8276.         End Function

    8277. 

  8277.         

    8278. 

  8278.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    8279. 

  8279.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    8280. 

  8280.         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer

    8281. 

  8281.             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})

    8282. 

  8282.         End Function

    8283. 

  8283.         

    8284. 

  8284.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    8285. 

  8285.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    8286. 

  8286.         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer

    8287. 

  8287.             Return Me.Adapter.Update(dataRows)

    8288. 

  8288.         End Function

    8289. 

  8289.         

    8290. 

  8290.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    8291. 

  8291.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    8292. 

  8292.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _

    8293. 

  8293.         Public Overloads Overridable Function Delete(ByVal Original_PersonID As Integer, ByVal Original_LastName As String, ByVal Original_FirstName As String, ByVal Original_PersonCategory As Short, ByVal Original_HireDate As Global.System.Nullable(Of Date), ByVal Original_EnrollmentDate As Global.System.Nullable(Of Date)) As Integer

    8294. 

  8294.             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_PersonID,Integer)

    8295. 

  8295.             If (Original_LastName Is Nothing) Then

    8296. 

  8296.                 Throw New Global.System.ArgumentNullException("Original_LastName")

    8297. 

  8297.             Else

    8298. 

  8298.                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_LastName,String)

    8299. 

  8299.             End If

    8300. 

  8300.             If (Original_FirstName Is Nothing) Then

    8301. 

  8301.                 Throw New Global.System.ArgumentNullException("Original_FirstName")

    8302. 

  8302.             Else

    8303. 

  8303.                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_FirstName,String)

    8304. 

  8304.             End If

    8305. 

  8305.             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_PersonCategory,Short)

    8306. 

  8306.             If (Original_HireDate.HasValue = true) Then

    8307. 

  8307.                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object)

    8308. 

  8308.                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_HireDate.Value,Date)

    8309. 

  8309.             Else

    8310. 

  8310.                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object)

    8311. 

  8311.                 Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value

    8312. 

  8312.             End If

    8313. 

  8313.             If (Original_EnrollmentDate.HasValue = true) Then

    8314. 

  8314.                 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object)

    8315. 

  8315.                 Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_EnrollmentDate.Value,Date)

    8316. 

  8316.             Else

    8317. 

  8317.                 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object)

    8318. 

  8318.                 Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value

    8319. 

  8319.             End If

    8320. 

  8320.             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State

    8321. 

  8321.             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _

    8322. 

  8322.                         <> Global.System.Data.ConnectionState.Open) Then

    8323. 

  8323.                 Me.Adapter.DeleteCommand.Connection.Open

    8324. 

  8324.             End If

    8325. 

  8325.             Try 

    8326. 

  8326.                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery

    8327. 

  8327.                 Return returnValue

    8328. 

  8328.             Finally

    8329. 

  8329.                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then

    8330. 

  8330.                     Me.Adapter.DeleteCommand.Connection.Close

    8331. 

  8331.                 End If

    8332. 

  8332.             End Try

    8333. 

  8333.         End Function

    8334. 

  8334.         

    8335. 

  8335.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    8336. 

  8336.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    8337. 

  8337.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _

    8338. 

  8338.         Public Overloads Overridable Function Insert(ByVal LastName As String, ByVal FirstName As String, ByVal PersonCategory As Short, ByVal HireDate As Global.System.Nullable(Of Date), ByVal EnrollmentDate As Global.System.Nullable(Of Date), ByVal Picture() As Byte) As Integer

    8339. 

  8339.             If (LastName Is Nothing) Then

    8340. 

  8340.                 Throw New Global.System.ArgumentNullException("LastName")

    8341. 

  8341.             Else

    8342. 

  8342.                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(LastName,String)

    8343. 

  8343.             End If

    8344. 

  8344.             If (FirstName Is Nothing) Then

    8345. 

  8345.                 Throw New Global.System.ArgumentNullException("FirstName")

    8346. 

  8346.             Else

    8347. 

  8347.                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(FirstName,String)

    8348. 

  8348.             End If

    8349. 

  8349.             Me.Adapter.InsertCommand.Parameters(2).Value = CType(PersonCategory,Short)

    8350. 

  8350.             If (HireDate.HasValue = true) Then

    8351. 

  8351.                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(HireDate.Value,Date)

    8352. 

  8352.             Else

    8353. 

  8353.                 Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value

    8354. 

  8354.             End If

    8355. 

  8355.             If (EnrollmentDate.HasValue = true) Then

    8356. 

  8356.                 Me.Adapter.InsertCommand.Parameters(4).Value = CType(EnrollmentDate.Value,Date)

    8357. 

  8357.             Else

    8358. 

  8358.                 Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value

    8359. 

  8359.             End If

    8360. 

  8360.             If (Picture Is Nothing) Then

    8361. 

  8361.                 Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value

    8362. 

  8362.             Else

    8363. 

  8363.                 Me.Adapter.InsertCommand.Parameters(5).Value = CType(Picture,Byte())

    8364. 

  8364.             End If

    8365. 

  8365.             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State

    8366. 

  8366.             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _

    8367. 

  8367.                         <> Global.System.Data.ConnectionState.Open) Then

    8368. 

  8368.                 Me.Adapter.InsertCommand.Connection.Open

    8369. 

  8369.             End If

    8370. 

  8370.             Try 

    8371. 

  8371.                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery

    8372. 

  8372.                 Return returnValue

    8373. 

  8373.             Finally

    8374. 

  8374.                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then

    8375. 

  8375.                     Me.Adapter.InsertCommand.Connection.Close

    8376. 

  8376.                 End If

    8377. 

  8377.             End Try

    8378. 

  8378.         End Function

    8379. 

  8379.         

    8380. 

  8380.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    8381. 

  8381.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    8382. 

  8382.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _

    8383. 

  8383.         Public Overloads Overridable Function Update(ByVal LastName As String, ByVal FirstName As String, ByVal PersonCategory As Short, ByVal HireDate As Global.System.Nullable(Of Date), ByVal EnrollmentDate As Global.System.Nullable(Of Date), ByVal Picture() As Byte, ByVal Original_PersonID As Integer, ByVal Original_LastName As String, ByVal Original_FirstName As String, ByVal Original_PersonCategory As Short, ByVal Original_HireDate As Global.System.Nullable(Of Date), ByVal Original_EnrollmentDate As Global.System.Nullable(Of Date), ByVal PersonID As Integer) As Integer

    8384. 

  8384.             If (LastName Is Nothing) Then

    8385. 

  8385.                 Throw New Global.System.ArgumentNullException("LastName")

    8386. 

  8386.             Else

    8387. 

  8387.                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(LastName,String)

    8388. 

  8388.             End If

    8389. 

  8389.             If (FirstName Is Nothing) Then

    8390. 

  8390.                 Throw New Global.System.ArgumentNullException("FirstName")

    8391. 

  8391.             Else

    8392. 

  8392.                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FirstName,String)

    8393. 

  8393.             End If

    8394. 

  8394.             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(PersonCategory,Short)

    8395. 

  8395.             If (HireDate.HasValue = true) Then

    8396. 

  8396.                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(HireDate.Value,Date)

    8397. 

  8397.             Else

    8398. 

  8398.                 Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value

    8399. 

  8399.             End If

    8400. 

  8400.             If (EnrollmentDate.HasValue = true) Then

    8401. 

  8401.                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(EnrollmentDate.Value,Date)

    8402. 

  8402.             Else

    8403. 

  8403.                 Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value

    8404. 

  8404.             End If

    8405. 

  8405.             If (Picture Is Nothing) Then

    8406. 

  8406.                 Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value

    8407. 

  8407.             Else

    8408. 

  8408.                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Picture,Byte())

    8409. 

  8409.             End If

    8410. 

  8410.             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_PersonID,Integer)

    8411. 

  8411.             If (Original_LastName Is Nothing) Then

    8412. 

  8412.                 Throw New Global.System.ArgumentNullException("Original_LastName")

    8413. 

  8413.             Else

    8414. 

  8414.                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_LastName,String)

    8415. 

  8415.             End If

    8416. 

  8416.             If (Original_FirstName Is Nothing) Then

    8417. 

  8417.                 Throw New Global.System.ArgumentNullException("Original_FirstName")

    8418. 

  8418.             Else

    8419. 

  8419.                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_FirstName,String)

    8420. 

  8420.             End If

    8421. 

  8421.             Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_PersonCategory,Short)

    8422. 

  8422.             If (Original_HireDate.HasValue = true) Then

    8423. 

  8423.                 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object)

    8424. 

  8424.                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_HireDate.Value,Date)

    8425. 

  8425.             Else

    8426. 

  8426.                 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object)

    8427. 

  8427.                 Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value

    8428. 

  8428.             End If

    8429. 

  8429.             If (Original_EnrollmentDate.HasValue = true) Then

    8430. 

  8430.                 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object)

    8431. 

  8431.                 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_EnrollmentDate.Value,Date)

    8432. 

  8432.             Else

    8433. 

  8433.                 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object)

    8434. 

  8434.                 Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value

    8435. 

  8435.             End If

    8436. 

  8436.             Me.Adapter.UpdateCommand.Parameters(14).Value = CType(PersonID,Integer)

    8437. 

  8437.             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State

    8438. 

  8438.             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _

    8439. 

  8439.                         <> Global.System.Data.ConnectionState.Open) Then

    8440. 

  8440.                 Me.Adapter.UpdateCommand.Connection.Open

    8441. 

  8441.             End If

    8442. 

  8442.             Try 

    8443. 

  8443.                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery

    8444. 

  8444.                 Return returnValue

    8445. 

  8445.             Finally

    8446. 

  8446.                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then

    8447. 

  8447.                     Me.Adapter.UpdateCommand.Connection.Close

    8448. 

  8448.                 End If

    8449. 

  8449.             End Try

    8450. 

  8450.         End Function

    8451. 

  8451.         

    8452. 

  8452.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    8453. 

  8453.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    8454. 

  8454.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _

    8455. 

  8455.         Public Overloads Overridable Function Update(ByVal LastName As String, ByVal FirstName As String, ByVal PersonCategory As Short, ByVal HireDate As Global.System.Nullable(Of Date), ByVal EnrollmentDate As Global.System.Nullable(Of Date), ByVal Picture() As Byte, ByVal Original_PersonID As Integer, ByVal Original_LastName As String, ByVal Original_FirstName As String, ByVal Original_PersonCategory As Short, ByVal Original_HireDate As Global.System.Nullable(Of Date), ByVal Original_EnrollmentDate As Global.System.Nullable(Of Date)) As Integer

    8456. 

  8456.             Return Me.Update(LastName, FirstName, PersonCategory, HireDate, EnrollmentDate, Picture, Original_PersonID, Original_LastName, Original_FirstName, Original_PersonCategory, Original_HireDate, Original_EnrollmentDate, Original_PersonID)

    8457. 

  8457.         End Function

    8458. 

  8458.     End Class

    8459. 

  8459.     

    8460. 

  8460.     '''<summary>

    8461. 

  8461.     '''Represents the connection and commands used to retrieve and save data.

    8462. 

  8462.     '''</summary>

    8463. 

  8463.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"),  _

    8464. 

  8464.      Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _

    8465. 

  8465.      Global.System.ComponentModel.ToolboxItem(true),  _

    8466. 

  8466.      Global.System.ComponentModel.DataObjectAttribute(true),  _

    8467. 

  8467.      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ 

    8468. 

  8468.         ", Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _

    8469. 

  8469.      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    8470. 

  8470.     Partial Public Class GetStudentGradesTableAdapter

    8471. 

  8471.         Inherits Global.System.ComponentModel.Component

    8472. 

  8472.         

    8473. 

  8473.         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter

    8474. 

  8474.         

    8475. 

  8475.         Private _connection As Global.System.Data.SqlClient.SqlConnection

    8476. 

  8476.         

    8477. 

  8477.         Private _transaction As Global.System.Data.SqlClient.SqlTransaction

    8478. 

  8478.         

    8479. 

  8479.         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand

    8480. 

  8480.         

    8481. 

  8481.         Private _clearBeforeFill As Boolean

    8482. 

  8482.         

    8483. 

  8483.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    8484. 

  8484.         Public Sub New()

    8485. 

  8485.             MyBase.New

    8486. 

  8486.             Me.ClearBeforeFill = true

    8487. 

  8487.         End Sub

    8488. 

  8488.         

    8489. 

  8489.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    8490. 

  8490.         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter

    8491. 

  8491.             Get

    8492. 

  8492.                 If (Me._adapter Is Nothing) Then

    8493. 

  8493.                     Me.InitAdapter

    8494. 

  8494.                 End If

    8495. 

  8495.                 Return Me._adapter

    8496. 

  8496.             End Get

    8497. 

  8497.         End Property

    8498. 

  8498.         

    8499. 

  8499.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    8500. 

  8500.         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection

    8501. 

  8501.             Get

    8502. 

  8502.                 If (Me._connection Is Nothing) Then

    8503. 

  8503.                     Me.InitConnection

    8504. 

  8504.                 End If

    8505. 

  8505.                 Return Me._connection

    8506. 

  8506.             End Get

    8507. 

  8507.             Set

    8508. 

  8508.                 Me._connection = value

    8509. 

  8509.                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then

    8510. 

  8510.                     Me.Adapter.InsertCommand.Connection = value

    8511. 

  8511.                 End If

    8512. 

  8512.                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then

    8513. 

  8513.                     Me.Adapter.DeleteCommand.Connection = value

    8514. 

  8514.                 End If

    8515. 

  8515.                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then

    8516. 

  8516.                     Me.Adapter.UpdateCommand.Connection = value

    8517. 

  8517.                 End If

    8518. 

  8518.                 Dim i As Integer = 0

    8519. 

  8519.                 Do While (i < Me.CommandCollection.Length)

    8520. 

  8520.                     If (Not (Me.CommandCollection(i)) Is Nothing) Then

    8521. 

  8521.                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value

    8522. 

  8522.                     End If

    8523. 

  8523.                     i = (i + 1)

    8524. 

  8524.                 Loop

    8525. 

  8525.             End Set

    8526. 

  8526.         End Property

    8527. 

  8527.         

    8528. 

  8528.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    8529. 

  8529.         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction

    8530. 

  8530.             Get

    8531. 

  8531.                 Return Me._transaction

    8532. 

  8532.             End Get

    8533. 

  8533.             Set

    8534. 

  8534.                 Me._transaction = value

    8535. 

  8535.                 Dim i As Integer = 0

    8536. 

  8536.                 Do While (i < Me.CommandCollection.Length)

    8537. 

  8537.                     Me.CommandCollection(i).Transaction = Me._transaction

    8538. 

  8538.                     i = (i + 1)

    8539. 

  8539.                 Loop

    8540. 

  8540.                 If ((Not (Me.Adapter) Is Nothing)  _

    8541. 

  8541.                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then

    8542. 

  8542.                     Me.Adapter.DeleteCommand.Transaction = Me._transaction

    8543. 

  8543.                 End If

    8544. 

  8544.                 If ((Not (Me.Adapter) Is Nothing)  _

    8545. 

  8545.                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then

    8546. 

  8546.                     Me.Adapter.InsertCommand.Transaction = Me._transaction

    8547. 

  8547.                 End If

    8548. 

  8548.                 If ((Not (Me.Adapter) Is Nothing)  _

    8549. 

  8549.                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then

    8550. 

  8550.                     Me.Adapter.UpdateCommand.Transaction = Me._transaction

    8551. 

  8551.                 End If

    8552. 

  8552.             End Set

    8553. 

  8553.         End Property

    8554. 

  8554.         

    8555. 

  8555.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    8556. 

  8556.         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()

    8557. 

  8557.             Get

    8558. 

  8558.                 If (Me._commandCollection Is Nothing) Then

    8559. 

  8559.                     Me.InitCommandCollection

    8560. 

  8560.                 End If

    8561. 

  8561.                 Return Me._commandCollection

    8562. 

  8562.             End Get

    8563. 

  8563.         End Property

    8564. 

  8564.         

    8565. 

  8565.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    8566. 

  8566.         Public Property ClearBeforeFill() As Boolean

    8567. 

  8567.             Get

    8568. 

  8568.                 Return Me._clearBeforeFill

    8569. 

  8569.             End Get

    8570. 

  8570.             Set

    8571. 

  8571.                 Me._clearBeforeFill = value

    8572. 

  8572.             End Set

    8573. 

  8573.         End Property

    8574. 

  8574.         

    8575. 

  8575.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    8576. 

  8576.         Private Sub InitAdapter()

    8577. 

  8577.             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter

    8578. 

  8578.             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping

    8579. 

  8579.             tableMapping.SourceTable = "Table"

    8580. 

  8580.             tableMapping.DataSetTable = "GetStudentGrades"

    8581. 

  8581.             tableMapping.ColumnMappings.Add("EnrollmentID", "EnrollmentID")

    8582. 

  8582.             tableMapping.ColumnMappings.Add("Grade", "Grade")

    8583. 

  8583.             Me._adapter.TableMappings.Add(tableMapping)

    8584. 

  8584.         End Sub

    8585. 

  8585.         

    8586. 

  8586.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    8587. 

  8587.         Private Sub InitConnection()

    8588. 

  8588.             Me._connection = New Global.System.Data.SqlClient.SqlConnection

    8589. 

  8589.             Me._connection.ConnectionString = Global.VBVstoExcelWorkbook.MySettings.Default.SchoolConnectionString

    8590. 

  8590.         End Sub

    8591. 

  8591.         

    8592. 

  8592.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    8593. 

  8593.         Private Sub InitCommandCollection()

    8594. 

  8594.             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}

    8595. 

  8595.             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand

    8596. 

  8596.             Me._commandCollection(0).Connection = Me.Connection

    8597. 

  8597.             Me._commandCollection(0).CommandText = "dbo.GetStudentGrades"

    8598. 

  8598.             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure

    8599. 

  8599.             Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    8600. 

  8600.             Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StudentID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    8601. 

  8601.         End Sub

    8602. 

  8602.         

    8603. 

  8603.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    8604. 

  8604.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    8605. 

  8605.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _

    8606. 

  8606.         Public Overloads Overridable Function Fill(ByVal dataTable As SchoolDataSet.GetStudentGradesDataTable, ByVal StudentID As Global.System.Nullable(Of Integer)) As Integer

    8607. 

  8607.             Me.Adapter.SelectCommand = Me.CommandCollection(0)

    8608. 

  8608.             If (StudentID.HasValue = true) Then

    8609. 

  8609.                 Me.Adapter.SelectCommand.Parameters(1).Value = CType(StudentID.Value,Integer)

    8610. 

  8610.             Else

    8611. 

  8611.                 Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value

    8612. 

  8612.             End If

    8613. 

  8613.             If (Me.ClearBeforeFill = true) Then

    8614. 

  8614.                 dataTable.Clear

    8615. 

  8615.             End If

    8616. 

  8616.             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)

    8617. 

  8617.             Return returnValue

    8618. 

  8618.         End Function

    8619. 

  8619.         

    8620. 

  8620.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    8621. 

  8621.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    8622. 

  8622.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _

    8623. 

  8623.         Public Overloads Overridable Function GetData(ByVal StudentID As Global.System.Nullable(Of Integer)) As SchoolDataSet.GetStudentGradesDataTable

    8624. 

  8624.             Me.Adapter.SelectCommand = Me.CommandCollection(0)

    8625. 

  8625.             If (StudentID.HasValue = true) Then

    8626. 

  8626.                 Me.Adapter.SelectCommand.Parameters(1).Value = CType(StudentID.Value,Integer)

    8627. 

  8627.             Else

    8628. 

  8628.                 Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value

    8629. 

  8629.             End If

    8630. 

  8630.             Dim dataTable As SchoolDataSet.GetStudentGradesDataTable = New SchoolDataSet.GetStudentGradesDataTable

    8631. 

  8631.             Me.Adapter.Fill(dataTable)

    8632. 

  8632.             Return dataTable

    8633. 

  8633.         End Function

    8634. 

  8634.     End Class

    8635. 

  8635.     

    8636. 

  8636.     '''<summary>

    8637. 

  8637.     '''Represents the connection and commands used to retrieve and save data.

    8638. 

  8638.     '''</summary>

    8639. 

  8639.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"),  _

    8640. 

  8640.      Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _

    8641. 

  8641.      Global.System.ComponentModel.ToolboxItem(true),  _

    8642. 

  8642.      Global.System.ComponentModel.DataObjectAttribute(true),  _

    8643. 

  8643.      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ 

    8644. 

  8644.         ", Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _

    8645. 

  8645.      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    8646. 

  8646.     Partial Public Class InsertOfficeAssignmentTableAdapter

    8647. 

  8647.         Inherits Global.System.ComponentModel.Component

    8648. 

  8648.         

    8649. 

  8649.         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter

    8650. 

  8650.         

    8651. 

  8651.         Private _connection As Global.System.Data.SqlClient.SqlConnection

    8652. 

  8652.         

    8653. 

  8653.         Private _transaction As Global.System.Data.SqlClient.SqlTransaction

    8654. 

  8654.         

    8655. 

  8655.         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand

    8656. 

  8656.         

    8657. 

  8657.         Private _clearBeforeFill As Boolean

    8658. 

  8658.         

    8659. 

  8659.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    8660. 

  8660.         Public Sub New()

    8661. 

  8661.             MyBase.New

    8662. 

  8662.             Me.ClearBeforeFill = true

    8663. 

  8663.         End Sub

    8664. 

  8664.         

    8665. 

  8665.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    8666. 

  8666.         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter

    8667. 

  8667.             Get

    8668. 

  8668.                 If (Me._adapter Is Nothing) Then

    8669. 

  8669.                     Me.InitAdapter

    8670. 

  8670.                 End If

    8671. 

  8671.                 Return Me._adapter

    8672. 

  8672.             End Get

    8673. 

  8673.         End Property

    8674. 

  8674.         

    8675. 

  8675.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    8676. 

  8676.         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection

    8677. 

  8677.             Get

    8678. 

  8678.                 If (Me._connection Is Nothing) Then

    8679. 

  8679.                     Me.InitConnection

    8680. 

  8680.                 End If

    8681. 

  8681.                 Return Me._connection

    8682. 

  8682.             End Get

    8683. 

  8683.             Set

    8684. 

  8684.                 Me._connection = value

    8685. 

  8685.                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then

    8686. 

  8686.                     Me.Adapter.InsertCommand.Connection = value

    8687. 

  8687.                 End If

    8688. 

  8688.                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then

    8689. 

  8689.                     Me.Adapter.DeleteCommand.Connection = value

    8690. 

  8690.                 End If

    8691. 

  8691.                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then

    8692. 

  8692.                     Me.Adapter.UpdateCommand.Connection = value

    8693. 

  8693.                 End If

    8694. 

  8694.                 Dim i As Integer = 0

    8695. 

  8695.                 Do While (i < Me.CommandCollection.Length)

    8696. 

  8696.                     If (Not (Me.CommandCollection(i)) Is Nothing) Then

    8697. 

  8697.                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value

    8698. 

  8698.                     End If

    8699. 

  8699.                     i = (i + 1)

    8700. 

  8700.                 Loop

    8701. 

  8701.             End Set

    8702. 

  8702.         End Property

    8703. 

  8703.         

    8704. 

  8704.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    8705. 

  8705.         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction

    8706. 

  8706.             Get

    8707. 

  8707.                 Return Me._transaction

    8708. 

  8708.             End Get

    8709. 

  8709.             Set

    8710. 

  8710.                 Me._transaction = value

    8711. 

  8711.                 Dim i As Integer = 0

    8712. 

  8712.                 Do While (i < Me.CommandCollection.Length)

    8713. 

  8713.                     Me.CommandCollection(i).Transaction = Me._transaction

    8714. 

  8714.                     i = (i + 1)

    8715. 

  8715.                 Loop

    8716. 

  8716.                 If ((Not (Me.Adapter) Is Nothing)  _

    8717. 

  8717.                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then

    8718. 

  8718.                     Me.Adapter.DeleteCommand.Transaction = Me._transaction

    8719. 

  8719.                 End If

    8720. 

  8720.                 If ((Not (Me.Adapter) Is Nothing)  _

    8721. 

  8721.                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then

    8722. 

  8722.                     Me.Adapter.InsertCommand.Transaction = Me._transaction

    8723. 

  8723.                 End If

    8724. 

  8724.                 If ((Not (Me.Adapter) Is Nothing)  _

    8725. 

  8725.                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then

    8726. 

  8726.                     Me.Adapter.UpdateCommand.Transaction = Me._transaction

    8727. 

  8727.                 End If

    8728. 

  8728.             End Set

    8729. 

  8729.         End Property

    8730. 

  8730.         

    8731. 

  8731.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    8732. 

  8732.         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()

    8733. 

  8733.             Get

    8734. 

  8734.                 If (Me._commandCollection Is Nothing) Then

    8735. 

  8735.                     Me.InitCommandCollection

    8736. 

  8736.                 End If

    8737. 

  8737.                 Return Me._commandCollection

    8738. 

  8738.             End Get

    8739. 

  8739.         End Property

    8740. 

  8740.         

    8741. 

  8741.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    8742. 

  8742.         Public Property ClearBeforeFill() As Boolean

    8743. 

  8743.             Get

    8744. 

  8744.                 Return Me._clearBeforeFill

    8745. 

  8745.             End Get

    8746. 

  8746.             Set

    8747. 

  8747.                 Me._clearBeforeFill = value

    8748. 

  8748.             End Set

    8749. 

  8749.         End Property

    8750. 

  8750.         

    8751. 

  8751.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    8752. 

  8752.         Private Sub InitAdapter()

    8753. 

  8753.             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter

    8754. 

  8754.             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping

    8755. 

  8755.             tableMapping.SourceTable = "Table"

    8756. 

  8756.             tableMapping.DataSetTable = "InsertOfficeAssignment"

    8757. 

  8757.             tableMapping.ColumnMappings.Add("Timestamp", "Timestamp")

    8758. 

  8758.             Me._adapter.TableMappings.Add(tableMapping)

    8759. 

  8759.         End Sub

    8760. 

  8760.         

    8761. 

  8761.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    8762. 

  8762.         Private Sub InitConnection()

    8763. 

  8763.             Me._connection = New Global.System.Data.SqlClient.SqlConnection

    8764. 

  8764.             Me._connection.ConnectionString = Global.VBVstoExcelWorkbook.MySettings.Default.SchoolConnectionString

    8765. 

  8765.         End Sub

    8766. 

  8766.         

    8767. 

  8767.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    8768. 

  8768.         Private Sub InitCommandCollection()

    8769. 

  8769.             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}

    8770. 

  8770.             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand

    8771. 

  8771.             Me._commandCollection(0).Connection = Me.Connection

    8772. 

  8772.             Me._commandCollection(0).CommandText = "dbo.InsertOfficeAssignment"

    8773. 

  8773.             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure

    8774. 

  8774.             Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    8775. 

  8775.             Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InstructorID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    8776. 

  8776.             Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Location", Global.System.Data.SqlDbType.NVarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    8777. 

  8777.         End Sub

    8778. 

  8778.         

    8779. 

  8779.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    8780. 

  8780.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    8781. 

  8781.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _

    8782. 

  8782.         Public Overloads Overridable Function Fill(ByVal dataTable As SchoolDataSet.InsertOfficeAssignmentDataTable, ByVal InstructorID As Global.System.Nullable(Of Integer), ByVal Location As String) As Integer

    8783. 

  8783.             Me.Adapter.SelectCommand = Me.CommandCollection(0)

    8784. 

  8784.             If (InstructorID.HasValue = true) Then

    8785. 

  8785.                 Me.Adapter.SelectCommand.Parameters(1).Value = CType(InstructorID.Value,Integer)

    8786. 

  8786.             Else

    8787. 

  8787.                 Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value

    8788. 

  8788.             End If

    8789. 

  8789.             If (Location Is Nothing) Then

    8790. 

  8790.                 Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value

    8791. 

  8791.             Else

    8792. 

  8792.                 Me.Adapter.SelectCommand.Parameters(2).Value = CType(Location,String)

    8793. 

  8793.             End If

    8794. 

  8794.             If (Me.ClearBeforeFill = true) Then

    8795. 

  8795.                 dataTable.Clear

    8796. 

  8796.             End If

    8797. 

  8797.             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)

    8798. 

  8798.             Return returnValue

    8799. 

  8799.         End Function

    8800. 

  8800.         

    8801. 

  8801.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    8802. 

  8802.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    8803. 

  8803.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _

    8804. 

  8804.         Public Overloads Overridable Function GetData(ByVal InstructorID As Global.System.Nullable(Of Integer), ByVal Location As String) As SchoolDataSet.InsertOfficeAssignmentDataTable

    8805. 

  8805.             Me.Adapter.SelectCommand = Me.CommandCollection(0)

    8806. 

  8806.             If (InstructorID.HasValue = true) Then

    8807. 

  8807.                 Me.Adapter.SelectCommand.Parameters(1).Value = CType(InstructorID.Value,Integer)

    8808. 

  8808.             Else

    8809. 

  8809.                 Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value

    8810. 

  8810.             End If

    8811. 

  8811.             If (Location Is Nothing) Then

    8812. 

  8812.                 Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value

    8813. 

  8813.             Else

    8814. 

  8814.                 Me.Adapter.SelectCommand.Parameters(2).Value = CType(Location,String)

    8815. 

  8815.             End If

    8816. 

  8816.             Dim dataTable As SchoolDataSet.InsertOfficeAssignmentDataTable = New SchoolDataSet.InsertOfficeAssignmentDataTable

    8817. 

  8817.             Me.Adapter.Fill(dataTable)

    8818. 

  8818.             Return dataTable

    8819. 

  8819.         End Function

    8820. 

  8820.     End Class

    8821. 

  8821.     

    8822. 

  8822.     '''<summary>

    8823. 

  8823.     '''Represents the connection and commands used to retrieve and save data.

    8824. 

  8824.     '''</summary>

    8825. 

  8825.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"),  _

    8826. 

  8826.      Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _

    8827. 

  8827.      Global.System.ComponentModel.ToolboxItem(true),  _

    8828. 

  8828.      Global.System.ComponentModel.DataObjectAttribute(true),  _

    8829. 

  8829.      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ 

    8830. 

  8830.         ", Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _

    8831. 

  8831.      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    8832. 

  8832.     Partial Public Class InsertPersonTableAdapter

    8833. 

  8833.         Inherits Global.System.ComponentModel.Component

    8834. 

  8834.         

    8835. 

  8835.         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter

    8836. 

  8836.         

    8837. 

  8837.         Private _connection As Global.System.Data.SqlClient.SqlConnection

    8838. 

  8838.         

    8839. 

  8839.         Private _transaction As Global.System.Data.SqlClient.SqlTransaction

    8840. 

  8840.         

    8841. 

  8841.         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand

    8842. 

  8842.         

    8843. 

  8843.         Private _clearBeforeFill As Boolean

    8844. 

  8844.         

    8845. 

  8845.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    8846. 

  8846.         Public Sub New()

    8847. 

  8847.             MyBase.New

    8848. 

  8848.             Me.ClearBeforeFill = true

    8849. 

  8849.         End Sub

    8850. 

  8850.         

    8851. 

  8851.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    8852. 

  8852.         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter

    8853. 

  8853.             Get

    8854. 

  8854.                 If (Me._adapter Is Nothing) Then

    8855. 

  8855.                     Me.InitAdapter

    8856. 

  8856.                 End If

    8857. 

  8857.                 Return Me._adapter

    8858. 

  8858.             End Get

    8859. 

  8859.         End Property

    8860. 

  8860.         

    8861. 

  8861.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    8862. 

  8862.         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection

    8863. 

  8863.             Get

    8864. 

  8864.                 If (Me._connection Is Nothing) Then

    8865. 

  8865.                     Me.InitConnection

    8866. 

  8866.                 End If

    8867. 

  8867.                 Return Me._connection

    8868. 

  8868.             End Get

    8869. 

  8869.             Set

    8870. 

  8870.                 Me._connection = value

    8871. 

  8871.                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then

    8872. 

  8872.                     Me.Adapter.InsertCommand.Connection = value

    8873. 

  8873.                 End If

    8874. 

  8874.                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then

    8875. 

  8875.                     Me.Adapter.DeleteCommand.Connection = value

    8876. 

  8876.                 End If

    8877. 

  8877.                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then

    8878. 

  8878.                     Me.Adapter.UpdateCommand.Connection = value

    8879. 

  8879.                 End If

    8880. 

  8880.                 Dim i As Integer = 0

    8881. 

  8881.                 Do While (i < Me.CommandCollection.Length)

    8882. 

  8882.                     If (Not (Me.CommandCollection(i)) Is Nothing) Then

    8883. 

  8883.                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value

    8884. 

  8884.                     End If

    8885. 

  8885.                     i = (i + 1)

    8886. 

  8886.                 Loop

    8887. 

  8887.             End Set

    8888. 

  8888.         End Property

    8889. 

  8889.         

    8890. 

  8890.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    8891. 

  8891.         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction

    8892. 

  8892.             Get

    8893. 

  8893.                 Return Me._transaction

    8894. 

  8894.             End Get

    8895. 

  8895.             Set

    8896. 

  8896.                 Me._transaction = value

    8897. 

  8897.                 Dim i As Integer = 0

    8898. 

  8898.                 Do While (i < Me.CommandCollection.Length)

    8899. 

  8899.                     Me.CommandCollection(i).Transaction = Me._transaction

    8900. 

  8900.                     i = (i + 1)

    8901. 

  8901.                 Loop

    8902. 

  8902.                 If ((Not (Me.Adapter) Is Nothing)  _

    8903. 

  8903.                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then

    8904. 

  8904.                     Me.Adapter.DeleteCommand.Transaction = Me._transaction

    8905. 

  8905.                 End If

    8906. 

  8906.                 If ((Not (Me.Adapter) Is Nothing)  _

    8907. 

  8907.                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then

    8908. 

  8908.                     Me.Adapter.InsertCommand.Transaction = Me._transaction

    8909. 

  8909.                 End If

    8910. 

  8910.                 If ((Not (Me.Adapter) Is Nothing)  _

    8911. 

  8911.                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then

    8912. 

  8912.                     Me.Adapter.UpdateCommand.Transaction = Me._transaction

    8913. 

  8913.                 End If

    8914. 

  8914.             End Set

    8915. 

  8915.         End Property

    8916. 

  8916.         

    8917. 

  8917.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    8918. 

  8918.         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()

    8919. 

  8919.             Get

    8920. 

  8920.                 If (Me._commandCollection Is Nothing) Then

    8921. 

  8921.                     Me.InitCommandCollection

    8922. 

  8922.                 End If

    8923. 

  8923.                 Return Me._commandCollection

    8924. 

  8924.             End Get

    8925. 

  8925.         End Property

    8926. 

  8926.         

    8927. 

  8927.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    8928. 

  8928.         Public Property ClearBeforeFill() As Boolean

    8929. 

  8929.             Get

    8930. 

  8930.                 Return Me._clearBeforeFill

    8931. 

  8931.             End Get

    8932. 

  8932.             Set

    8933. 

  8933.                 Me._clearBeforeFill = value

    8934. 

  8934.             End Set

    8935. 

  8935.         End Property

    8936. 

  8936.         

    8937. 

  8937.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    8938. 

  8938.         Private Sub InitAdapter()

    8939. 

  8939.             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter

    8940. 

  8940.             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping

    8941. 

  8941.             tableMapping.SourceTable = "Table"

    8942. 

  8942.             tableMapping.DataSetTable = "InsertPerson"

    8943. 

  8943.             tableMapping.ColumnMappings.Add("NewPersonID", "NewPersonID")

    8944. 

  8944.             Me._adapter.TableMappings.Add(tableMapping)

    8945. 

  8945.         End Sub

    8946. 

  8946.         

    8947. 

  8947.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    8948. 

  8948.         Private Sub InitConnection()

    8949. 

  8949.             Me._connection = New Global.System.Data.SqlClient.SqlConnection

    8950. 

  8950.             Me._connection.ConnectionString = Global.VBVstoExcelWorkbook.MySettings.Default.SchoolConnectionString

    8951. 

  8951.         End Sub

    8952. 

  8952.         

    8953. 

  8953.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    8954. 

  8954.         Private Sub InitCommandCollection()

    8955. 

  8955.             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}

    8956. 

  8956.             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand

    8957. 

  8957.             Me._commandCollection(0).Connection = Me.Connection

    8958. 

  8958.             Me._commandCollection(0).CommandText = "dbo.InsertPerson"

    8959. 

  8959.             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure

    8960. 

  8960.             Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    8961. 

  8961.             Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LastName", Global.System.Data.SqlDbType.NVarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    8962. 

  8962.             Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FirstName", Global.System.Data.SqlDbType.NVarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    8963. 

  8963.             Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HireDate", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    8964. 

  8964.             Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EnrollmentDate", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    8965. 

  8965.         End Sub

    8966. 

  8966.         

    8967. 

  8967.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    8968. 

  8968.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    8969. 

  8969.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _

    8970. 

  8970.         Public Overloads Overridable Function Fill(ByVal dataTable As SchoolDataSet.InsertPersonDataTable, ByVal LastName As String, ByVal FirstName As String, ByVal HireDate As Global.System.Nullable(Of Date), ByVal EnrollmentDate As Global.System.Nullable(Of Date)) As Integer

    8971. 

  8971.             Me.Adapter.SelectCommand = Me.CommandCollection(0)

    8972. 

  8972.             If (LastName Is Nothing) Then

    8973. 

  8973.                 Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value

    8974. 

  8974.             Else

    8975. 

  8975.                 Me.Adapter.SelectCommand.Parameters(1).Value = CType(LastName,String)

    8976. 

  8976.             End If

    8977. 

  8977.             If (FirstName Is Nothing) Then

    8978. 

  8978.                 Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value

    8979. 

  8979.             Else

    8980. 

  8980.                 Me.Adapter.SelectCommand.Parameters(2).Value = CType(FirstName,String)

    8981. 

  8981.             End If

    8982. 

  8982.             If (HireDate.HasValue = true) Then

    8983. 

  8983.                 Me.Adapter.SelectCommand.Parameters(3).Value = CType(HireDate.Value,Date)

    8984. 

  8984.             Else

    8985. 

  8985.                 Me.Adapter.SelectCommand.Parameters(3).Value = Global.System.DBNull.Value

    8986. 

  8986.             End If

    8987. 

  8987.             If (EnrollmentDate.HasValue = true) Then

    8988. 

  8988.                 Me.Adapter.SelectCommand.Parameters(4).Value = CType(EnrollmentDate.Value,Date)

    8989. 

  8989.             Else

    8990. 

  8990.                 Me.Adapter.SelectCommand.Parameters(4).Value = Global.System.DBNull.Value

    8991. 

  8991.             End If

    8992. 

  8992.             If (Me.ClearBeforeFill = true) Then

    8993. 

  8993.                 dataTable.Clear

    8994. 

  8994.             End If

    8995. 

  8995.             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)

    8996. 

  8996.             Return returnValue

    8997. 

  8997.         End Function

    8998. 

  8998.         

    8999. 

  8999.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    9000. 

  9000.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    9001. 

  9001.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _

    9002. 

  9002.         Public Overloads Overridable Function GetData(ByVal LastName As String, ByVal FirstName As String, ByVal HireDate As Global.System.Nullable(Of Date), ByVal EnrollmentDate As Global.System.Nullable(Of Date)) As SchoolDataSet.InsertPersonDataTable

    9003. 

  9003.             Me.Adapter.SelectCommand = Me.CommandCollection(0)

    9004. 

  9004.             If (LastName Is Nothing) Then

    9005. 

  9005.                 Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value

    9006. 

  9006.             Else

    9007. 

  9007.                 Me.Adapter.SelectCommand.Parameters(1).Value = CType(LastName,String)

    9008. 

  9008.             End If

    9009. 

  9009.             If (FirstName Is Nothing) Then

    9010. 

  9010.                 Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value

    9011. 

  9011.             Else

    9012. 

  9012.                 Me.Adapter.SelectCommand.Parameters(2).Value = CType(FirstName,String)

    9013. 

  9013.             End If

    9014. 

  9014.             If (HireDate.HasValue = true) Then

    9015. 

  9015.                 Me.Adapter.SelectCommand.Parameters(3).Value = CType(HireDate.Value,Date)

    9016. 

  9016.             Else

    9017. 

  9017.                 Me.Adapter.SelectCommand.Parameters(3).Value = Global.System.DBNull.Value

    9018. 

  9018.             End If

    9019. 

  9019.             If (EnrollmentDate.HasValue = true) Then

    9020. 

  9020.                 Me.Adapter.SelectCommand.Parameters(4).Value = CType(EnrollmentDate.Value,Date)

    9021. 

  9021.             Else

    9022. 

  9022.                 Me.Adapter.SelectCommand.Parameters(4).Value = Global.System.DBNull.Value

    9023. 

  9023.             End If

    9024. 

  9024.             Dim dataTable As SchoolDataSet.InsertPersonDataTable = New SchoolDataSet.InsertPersonDataTable

    9025. 

  9025.             Me.Adapter.Fill(dataTable)

    9026. 

  9026.             Return dataTable

    9027. 

  9027.         End Function

    9028. 

  9028.     End Class

    9029. 

  9029.     

    9030. 

  9030.     '''<summary>

    9031. 

  9031.     '''Represents the connection and commands used to retrieve and save data.

    9032. 

  9032.     '''</summary>

    9033. 

  9033.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"),  _

    9034. 

  9034.      Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _

    9035. 

  9035.      Global.System.ComponentModel.ToolboxItem(true),  _

    9036. 

  9036.      Global.System.ComponentModel.DataObjectAttribute(true),  _

    9037. 

  9037.      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ 

    9038. 

  9038.         ", Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _

    9039. 

  9039.      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    9040. 

  9040.     Partial Public Class UpdateOfficeAssignmentTableAdapter

    9041. 

  9041.         Inherits Global.System.ComponentModel.Component

    9042. 

  9042.         

    9043. 

  9043.         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter

    9044. 

  9044.         

    9045. 

  9045.         Private _connection As Global.System.Data.SqlClient.SqlConnection

    9046. 

  9046.         

    9047. 

  9047.         Private _transaction As Global.System.Data.SqlClient.SqlTransaction

    9048. 

  9048.         

    9049. 

  9049.         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand

    9050. 

  9050.         

    9051. 

  9051.         Private _clearBeforeFill As Boolean

    9052. 

  9052.         

    9053. 

  9053.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    9054. 

  9054.         Public Sub New()

    9055. 

  9055.             MyBase.New

    9056. 

  9056.             Me.ClearBeforeFill = true

    9057. 

  9057.         End Sub

    9058. 

  9058.         

    9059. 

  9059.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    9060. 

  9060.         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter

    9061. 

  9061.             Get

    9062. 

  9062.                 If (Me._adapter Is Nothing) Then

    9063. 

  9063.                     Me.InitAdapter

    9064. 

  9064.                 End If

    9065. 

  9065.                 Return Me._adapter

    9066. 

  9066.             End Get

    9067. 

  9067.         End Property

    9068. 

  9068.         

    9069. 

  9069.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    9070. 

  9070.         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection

    9071. 

  9071.             Get

    9072. 

  9072.                 If (Me._connection Is Nothing) Then

    9073. 

  9073.                     Me.InitConnection

    9074. 

  9074.                 End If

    9075. 

  9075.                 Return Me._connection

    9076. 

  9076.             End Get

    9077. 

  9077.             Set

    9078. 

  9078.                 Me._connection = value

    9079. 

  9079.                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then

    9080. 

  9080.                     Me.Adapter.InsertCommand.Connection = value

    9081. 

  9081.                 End If

    9082. 

  9082.                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then

    9083. 

  9083.                     Me.Adapter.DeleteCommand.Connection = value

    9084. 

  9084.                 End If

    9085. 

  9085.                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then

    9086. 

  9086.                     Me.Adapter.UpdateCommand.Connection = value

    9087. 

  9087.                 End If

    9088. 

  9088.                 Dim i As Integer = 0

    9089. 

  9089.                 Do While (i < Me.CommandCollection.Length)

    9090. 

  9090.                     If (Not (Me.CommandCollection(i)) Is Nothing) Then

    9091. 

  9091.                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value

    9092. 

  9092.                     End If

    9093. 

  9093.                     i = (i + 1)

    9094. 

  9094.                 Loop

    9095. 

  9095.             End Set

    9096. 

  9096.         End Property

    9097. 

  9097.         

    9098. 

  9098.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    9099. 

  9099.         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction

    9100. 

  9100.             Get

    9101. 

  9101.                 Return Me._transaction

    9102. 

  9102.             End Get

    9103. 

  9103.             Set

    9104. 

  9104.                 Me._transaction = value

    9105. 

  9105.                 Dim i As Integer = 0

    9106. 

  9106.                 Do While (i < Me.CommandCollection.Length)

    9107. 

  9107.                     Me.CommandCollection(i).Transaction = Me._transaction

    9108. 

  9108.                     i = (i + 1)

    9109. 

  9109.                 Loop

    9110. 

  9110.                 If ((Not (Me.Adapter) Is Nothing)  _

    9111. 

  9111.                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then

    9112. 

  9112.                     Me.Adapter.DeleteCommand.Transaction = Me._transaction

    9113. 

  9113.                 End If

    9114. 

  9114.                 If ((Not (Me.Adapter) Is Nothing)  _

    9115. 

  9115.                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then

    9116. 

  9116.                     Me.Adapter.InsertCommand.Transaction = Me._transaction

    9117. 

  9117.                 End If

    9118. 

  9118.                 If ((Not (Me.Adapter) Is Nothing)  _

    9119. 

  9119.                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then

    9120. 

  9120.                     Me.Adapter.UpdateCommand.Transaction = Me._transaction

    9121. 

  9121.                 End If

    9122. 

  9122.             End Set

    9123. 

  9123.         End Property

    9124. 

  9124.         

    9125. 

  9125.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    9126. 

  9126.         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()

    9127. 

  9127.             Get

    9128. 

  9128.                 If (Me._commandCollection Is Nothing) Then

    9129. 

  9129.                     Me.InitCommandCollection

    9130. 

  9130.                 End If

    9131. 

  9131.                 Return Me._commandCollection

    9132. 

  9132.             End Get

    9133. 

  9133.         End Property

    9134. 

  9134.         

    9135. 

  9135.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    9136. 

  9136.         Public Property ClearBeforeFill() As Boolean

    9137. 

  9137.             Get

    9138. 

  9138.                 Return Me._clearBeforeFill

    9139. 

  9139.             End Get

    9140. 

  9140.             Set

    9141. 

  9141.                 Me._clearBeforeFill = value

    9142. 

  9142.             End Set

    9143. 

  9143.         End Property

    9144. 

  9144.         

    9145. 

  9145.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    9146. 

  9146.         Private Sub InitAdapter()

    9147. 

  9147.             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter

    9148. 

  9148.             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping

    9149. 

  9149.             tableMapping.SourceTable = "Table"

    9150. 

  9150.             tableMapping.DataSetTable = "UpdateOfficeAssignment"

    9151. 

  9151.             tableMapping.ColumnMappings.Add("Timestamp", "Timestamp")

    9152. 

  9152.             Me._adapter.TableMappings.Add(tableMapping)

    9153. 

  9153.         End Sub

    9154. 

  9154.         

    9155. 

  9155.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    9156. 

  9156.         Private Sub InitConnection()

    9157. 

  9157.             Me._connection = New Global.System.Data.SqlClient.SqlConnection

    9158. 

  9158.             Me._connection.ConnectionString = Global.VBVstoExcelWorkbook.MySettings.Default.SchoolConnectionString

    9159. 

  9159.         End Sub

    9160. 

  9160.         

    9161. 

  9161.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    9162. 

  9162.         Private Sub InitCommandCollection()

    9163. 

  9163.             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}

    9164. 

  9164.             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand

    9165. 

  9165.             Me._commandCollection(0).Connection = Me.Connection

    9166. 

  9166.             Me._commandCollection(0).CommandText = "dbo.UpdateOfficeAssignment"

    9167. 

  9167.             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure

    9168. 

  9168.             Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    9169. 

  9169.             Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InstructorID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    9170. 

  9170.             Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Location", Global.System.Data.SqlDbType.NVarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    9171. 

  9171.             Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OrigTimestamp", Global.System.Data.SqlDbType.Timestamp, 8, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    9172. 

  9172.         End Sub

    9173. 

  9173.         

    9174. 

  9174.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    9175. 

  9175.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    9176. 

  9176.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _

    9177. 

  9177.         Public Overloads Overridable Function Fill(ByVal dataTable As SchoolDataSet.UpdateOfficeAssignmentDataTable, ByVal InstructorID As Global.System.Nullable(Of Integer), ByVal Location As String, ByVal OrigTimestamp() As Byte) As Integer

    9178. 

  9178.             Me.Adapter.SelectCommand = Me.CommandCollection(0)

    9179. 

  9179.             If (InstructorID.HasValue = true) Then

    9180. 

  9180.                 Me.Adapter.SelectCommand.Parameters(1).Value = CType(InstructorID.Value,Integer)

    9181. 

  9181.             Else

    9182. 

  9182.                 Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value

    9183. 

  9183.             End If

    9184. 

  9184.             If (Location Is Nothing) Then

    9185. 

  9185.                 Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value

    9186. 

  9186.             Else

    9187. 

  9187.                 Me.Adapter.SelectCommand.Parameters(2).Value = CType(Location,String)

    9188. 

  9188.             End If

    9189. 

  9189.             If (OrigTimestamp Is Nothing) Then

    9190. 

  9190.                 Me.Adapter.SelectCommand.Parameters(3).Value = Global.System.DBNull.Value

    9191. 

  9191.             Else

    9192. 

  9192.                 Me.Adapter.SelectCommand.Parameters(3).Value = CType(OrigTimestamp,Byte())

    9193. 

  9193.             End If

    9194. 

  9194.             If (Me.ClearBeforeFill = true) Then

    9195. 

  9195.                 dataTable.Clear

    9196. 

  9196.             End If

    9197. 

  9197.             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)

    9198. 

  9198.             Return returnValue

    9199. 

  9199.         End Function

    9200. 

  9200.         

    9201. 

  9201.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    9202. 

  9202.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    9203. 

  9203.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _

    9204. 

  9204.         Public Overloads Overridable Function GetData(ByVal InstructorID As Global.System.Nullable(Of Integer), ByVal Location As String, ByVal OrigTimestamp() As Byte) As SchoolDataSet.UpdateOfficeAssignmentDataTable

    9205. 

  9205.             Me.Adapter.SelectCommand = Me.CommandCollection(0)

    9206. 

  9206.             If (InstructorID.HasValue = true) Then

    9207. 

  9207.                 Me.Adapter.SelectCommand.Parameters(1).Value = CType(InstructorID.Value,Integer)

    9208. 

  9208.             Else

    9209. 

  9209.                 Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value

    9210. 

  9210.             End If

    9211. 

  9211.             If (Location Is Nothing) Then

    9212. 

  9212.                 Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value

    9213. 

  9213.             Else

    9214. 

  9214.                 Me.Adapter.SelectCommand.Parameters(2).Value = CType(Location,String)

    9215. 

  9215.             End If

    9216. 

  9216.             If (OrigTimestamp Is Nothing) Then

    9217. 

  9217.                 Me.Adapter.SelectCommand.Parameters(3).Value = Global.System.DBNull.Value

    9218. 

  9218.             Else

    9219. 

  9219.                 Me.Adapter.SelectCommand.Parameters(3).Value = CType(OrigTimestamp,Byte())

    9220. 

  9220.             End If

    9221. 

  9221.             Dim dataTable As SchoolDataSet.UpdateOfficeAssignmentDataTable = New SchoolDataSet.UpdateOfficeAssignmentDataTable

    9222. 

  9222.             Me.Adapter.Fill(dataTable)

    9223. 

  9223.             Return dataTable

    9224. 

  9224.         End Function

    9225. 

  9225.     End Class

    9226. 

  9226.     

    9227. 

  9227.     '''<summary>

    9228. 

  9228.     '''Represents the connection and commands used to retrieve and save data.

    9229. 

  9229.     '''</summary>

    9230. 

  9230.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"),  _

    9231. 

  9231.      Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _

    9232. 

  9232.      Global.System.ComponentModel.ToolboxItem(true),  _

    9233. 

  9233.      Global.System.ComponentModel.DataObjectAttribute(true),  _

    9234. 

  9234.      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ 

    9235. 

  9235.         ", Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _

    9236. 

  9236.      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    9237. 

  9237.     Partial Public Class CourseListTableAdapter

    9238. 

  9238.         Inherits Global.System.ComponentModel.Component

    9239. 

  9239.         

    9240. 

  9240.         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter

    9241. 

  9241.         

    9242. 

  9242.         Private _connection As Global.System.Data.SqlClient.SqlConnection

    9243. 

  9243.         

    9244. 

  9244.         Private _transaction As Global.System.Data.SqlClient.SqlTransaction

    9245. 

  9245.         

    9246. 

  9246.         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand

    9247. 

  9247.         

    9248. 

  9248.         Private _clearBeforeFill As Boolean

    9249. 

  9249.         

    9250. 

  9250.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    9251. 

  9251.         Public Sub New()

    9252. 

  9252.             MyBase.New

    9253. 

  9253.             Me.ClearBeforeFill = true

    9254. 

  9254.         End Sub

    9255. 

  9255.         

    9256. 

  9256.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    9257. 

  9257.         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter

    9258. 

  9258.             Get

    9259. 

  9259.                 If (Me._adapter Is Nothing) Then

    9260. 

  9260.                     Me.InitAdapter

    9261. 

  9261.                 End If

    9262. 

  9262.                 Return Me._adapter

    9263. 

  9263.             End Get

    9264. 

  9264.         End Property

    9265. 

  9265.         

    9266. 

  9266.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    9267. 

  9267.         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection

    9268. 

  9268.             Get

    9269. 

  9269.                 If (Me._connection Is Nothing) Then

    9270. 

  9270.                     Me.InitConnection

    9271. 

  9271.                 End If

    9272. 

  9272.                 Return Me._connection

    9273. 

  9273.             End Get

    9274. 

  9274.             Set

    9275. 

  9275.                 Me._connection = value

    9276. 

  9276.                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then

    9277. 

  9277.                     Me.Adapter.InsertCommand.Connection = value

    9278. 

  9278.                 End If

    9279. 

  9279.                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then

    9280. 

  9280.                     Me.Adapter.DeleteCommand.Connection = value

    9281. 

  9281.                 End If

    9282. 

  9282.                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then

    9283. 

  9283.                     Me.Adapter.UpdateCommand.Connection = value

    9284. 

  9284.                 End If

    9285. 

  9285.                 Dim i As Integer = 0

    9286. 

  9286.                 Do While (i < Me.CommandCollection.Length)

    9287. 

  9287.                     If (Not (Me.CommandCollection(i)) Is Nothing) Then

    9288. 

  9288.                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value

    9289. 

  9289.                     End If

    9290. 

  9290.                     i = (i + 1)

    9291. 

  9291.                 Loop

    9292. 

  9292.             End Set

    9293. 

  9293.         End Property

    9294. 

  9294.         

    9295. 

  9295.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    9296. 

  9296.         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction

    9297. 

  9297.             Get

    9298. 

  9298.                 Return Me._transaction

    9299. 

  9299.             End Get

    9300. 

  9300.             Set

    9301. 

  9301.                 Me._transaction = value

    9302. 

  9302.                 Dim i As Integer = 0

    9303. 

  9303.                 Do While (i < Me.CommandCollection.Length)

    9304. 

  9304.                     Me.CommandCollection(i).Transaction = Me._transaction

    9305. 

  9305.                     i = (i + 1)

    9306. 

  9306.                 Loop

    9307. 

  9307.                 If ((Not (Me.Adapter) Is Nothing)  _

    9308. 

  9308.                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then

    9309. 

  9309.                     Me.Adapter.DeleteCommand.Transaction = Me._transaction

    9310. 

  9310.                 End If

    9311. 

  9311.                 If ((Not (Me.Adapter) Is Nothing)  _

    9312. 

  9312.                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then

    9313. 

  9313.                     Me.Adapter.InsertCommand.Transaction = Me._transaction

    9314. 

  9314.                 End If

    9315. 

  9315.                 If ((Not (Me.Adapter) Is Nothing)  _

    9316. 

  9316.                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then

    9317. 

  9317.                     Me.Adapter.UpdateCommand.Transaction = Me._transaction

    9318. 

  9318.                 End If

    9319. 

  9319.             End Set

    9320. 

  9320.         End Property

    9321. 

  9321.         

    9322. 

  9322.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    9323. 

  9323.         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()

    9324. 

  9324.             Get

    9325. 

  9325.                 If (Me._commandCollection Is Nothing) Then

    9326. 

  9326.                     Me.InitCommandCollection

    9327. 

  9327.                 End If

    9328. 

  9328.                 Return Me._commandCollection

    9329. 

  9329.             End Get

    9330. 

  9330.         End Property

    9331. 

  9331.         

    9332. 

  9332.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    9333. 

  9333.         Public Property ClearBeforeFill() As Boolean

    9334. 

  9334.             Get

    9335. 

  9335.                 Return Me._clearBeforeFill

    9336. 

  9336.             End Get

    9337. 

  9337.             Set

    9338. 

  9338.                 Me._clearBeforeFill = value

    9339. 

  9339.             End Set

    9340. 

  9340.         End Property

    9341. 

  9341.         

    9342. 

  9342.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    9343. 

  9343.         Private Sub InitAdapter()

    9344. 

  9344.             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter

    9345. 

  9345.             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping

    9346. 

  9346.             tableMapping.SourceTable = "Table"

    9347. 

  9347.             tableMapping.DataSetTable = "CourseList"

    9348. 

  9348.             tableMapping.ColumnMappings.Add("Title", "Title")

    9349. 

  9349.             tableMapping.ColumnMappings.Add("Credits", "Credits")

    9350. 

  9350.             tableMapping.ColumnMappings.Add("DepartmentName", "DepartmentName")

    9351. 

  9351.             tableMapping.ColumnMappings.Add("Instructor", "Instructor")

    9352. 

  9352.             Me._adapter.TableMappings.Add(tableMapping)

    9353. 

  9353.         End Sub

    9354. 

  9354.         

    9355. 

  9355.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    9356. 

  9356.         Private Sub InitConnection()

    9357. 

  9357.             Me._connection = New Global.System.Data.SqlClient.SqlConnection

    9358. 

  9358.             Me._connection.ConnectionString = Global.VBVstoExcelWorkbook.MySettings.Default.SchoolConnectionString

    9359. 

  9359.         End Sub

    9360. 

  9360.         

    9361. 

  9361.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    9362. 

  9362.         Private Sub InitCommandCollection()

    9363. 

  9363.             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}

    9364. 

  9364.             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand

    9365. 

  9365.             Me._commandCollection(0).Connection = Me.Connection

    9366. 

  9366.             Me._commandCollection(0).CommandText = "SELECT        Course.Title, Course.Credits, Department.Name AS DepartmentName, In"& _ 

    9367. 

  9367.                 "structors.FirstName + ' ' + Instructors.LastName AS Instructor"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM            "& _ 

    9368. 

  9368.                 "CourseGrade LEFT OUTER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                         Person AS Students ON Cour"& _ 

    9369. 

  9369.                 "seGrade.StudentID = Students.PersonID RIGHT OUTER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                        "& _ 

    9370. 

  9370.                 " Person AS Instructors RIGHT OUTER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                         CourseInstruct"& _ 

    9371. 

  9371.                 "or RIGHT OUTER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                         Course ON CourseInstructor.CourseI"& _ 

    9372. 

  9372.                 "D = Course.CourseID LEFT OUTER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                         Department ON Cour"& _ 

    9373. 

  9373.                 "se.DepartmentID = Department.DepartmentID ON Instructors.PersonID = CourseInstru"& _ 

    9374. 

  9374.                 "ctor.PersonID ON "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                         CourseGrade.CourseID = Course.Course"& _ 

    9375. 

  9375.                 "ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE        (Students.FirstName + ' ' + Students.LastName = @StudentName)"

    9376. 

  9376.             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text

    9377. 

  9377.             Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StudentName", Global.System.Data.SqlDbType.NVarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    9378. 

  9378.         End Sub

    9379. 

  9379.         

    9380. 

  9380.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    9381. 

  9381.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    9382. 

  9382.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _

    9383. 

  9383.         Public Overloads Overridable Function FillCourseList(ByVal dataTable As SchoolDataSet.CourseListDataTable, ByVal StudentName As String) As Integer

    9384. 

  9384.             Me.Adapter.SelectCommand = Me.CommandCollection(0)

    9385. 

  9385.             If (StudentName Is Nothing) Then

    9386. 

  9386.                 Throw New Global.System.ArgumentNullException("StudentName")

    9387. 

  9387.             Else

    9388. 

  9388.                 Me.Adapter.SelectCommand.Parameters(0).Value = CType(StudentName,String)

    9389. 

  9389.             End If

    9390. 

  9390.             If (Me.ClearBeforeFill = true) Then

    9391. 

  9391.                 dataTable.Clear

    9392. 

  9392.             End If

    9393. 

  9393.             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)

    9394. 

  9394.             Return returnValue

    9395. 

  9395.         End Function

    9396. 

  9396.         

    9397. 

  9397.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    9398. 

  9398.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    9399. 

  9399.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _

    9400. 

  9400.         Public Overloads Overridable Function GetCourseList(ByVal StudentName As String) As SchoolDataSet.CourseListDataTable

    9401. 

  9401.             Me.Adapter.SelectCommand = Me.CommandCollection(0)

    9402. 

  9402.             If (StudentName Is Nothing) Then

    9403. 

  9403.                 Throw New Global.System.ArgumentNullException("StudentName")

    9404. 

  9404.             Else

    9405. 

  9405.                 Me.Adapter.SelectCommand.Parameters(0).Value = CType(StudentName,String)

    9406. 

  9406.             End If

    9407. 

  9407.             Dim dataTable As SchoolDataSet.CourseListDataTable = New SchoolDataSet.CourseListDataTable

    9408. 

  9408.             Me.Adapter.Fill(dataTable)

    9409. 

  9409.             Return dataTable

    9410. 

  9410.         End Function

    9411. 

  9411.     End Class

    9412. 

  9412.     

    9413. 

  9413.     '''<summary>

    9414. 

  9414.     '''Represents the connection and commands used to retrieve and save data.

    9415. 

  9415.     '''</summary>

    9416. 

  9416.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"),  _

    9417. 

  9417.      Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _

    9418. 

  9418.      Global.System.ComponentModel.ToolboxItem(true),  _

    9419. 

  9419.      Global.System.ComponentModel.DataObjectAttribute(true),  _

    9420. 

  9420.      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ 

    9421. 

  9421.         ", Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _

    9422. 

  9422.      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    9423. 

  9423.     Partial Public Class StudentListTableAdapter

    9424. 

  9424.         Inherits Global.System.ComponentModel.Component

    9425. 

  9425.         

    9426. 

  9426.         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter

    9427. 

  9427.         

    9428. 

  9428.         Private _connection As Global.System.Data.SqlClient.SqlConnection

    9429. 

  9429.         

    9430. 

  9430.         Private _transaction As Global.System.Data.SqlClient.SqlTransaction

    9431. 

  9431.         

    9432. 

  9432.         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand

    9433. 

  9433.         

    9434. 

  9434.         Private _clearBeforeFill As Boolean

    9435. 

  9435.         

    9436. 

  9436.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    9437. 

  9437.         Public Sub New()

    9438. 

  9438.             MyBase.New

    9439. 

  9439.             Me.ClearBeforeFill = true

    9440. 

  9440.         End Sub

    9441. 

  9441.         

    9442. 

  9442.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    9443. 

  9443.         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter

    9444. 

  9444.             Get

    9445. 

  9445.                 If (Me._adapter Is Nothing) Then

    9446. 

  9446.                     Me.InitAdapter

    9447. 

  9447.                 End If

    9448. 

  9448.                 Return Me._adapter

    9449. 

  9449.             End Get

    9450. 

  9450.         End Property

    9451. 

  9451.         

    9452. 

  9452.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    9453. 

  9453.         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection

    9454. 

  9454.             Get

    9455. 

  9455.                 If (Me._connection Is Nothing) Then

    9456. 

  9456.                     Me.InitConnection

    9457. 

  9457.                 End If

    9458. 

  9458.                 Return Me._connection

    9459. 

  9459.             End Get

    9460. 

  9460.             Set

    9461. 

  9461.                 Me._connection = value

    9462. 

  9462.                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then

    9463. 

  9463.                     Me.Adapter.InsertCommand.Connection = value

    9464. 

  9464.                 End If

    9465. 

  9465.                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then

    9466. 

  9466.                     Me.Adapter.DeleteCommand.Connection = value

    9467. 

  9467.                 End If

    9468. 

  9468.                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then

    9469. 

  9469.                     Me.Adapter.UpdateCommand.Connection = value

    9470. 

  9470.                 End If

    9471. 

  9471.                 Dim i As Integer = 0

    9472. 

  9472.                 Do While (i < Me.CommandCollection.Length)

    9473. 

  9473.                     If (Not (Me.CommandCollection(i)) Is Nothing) Then

    9474. 

  9474.                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value

    9475. 

  9475.                     End If

    9476. 

  9476.                     i = (i + 1)

    9477. 

  9477.                 Loop

    9478. 

  9478.             End Set

    9479. 

  9479.         End Property

    9480. 

  9480.         

    9481. 

  9481.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    9482. 

  9482.         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction

    9483. 

  9483.             Get

    9484. 

  9484.                 Return Me._transaction

    9485. 

  9485.             End Get

    9486. 

  9486.             Set

    9487. 

  9487.                 Me._transaction = value

    9488. 

  9488.                 Dim i As Integer = 0

    9489. 

  9489.                 Do While (i < Me.CommandCollection.Length)

    9490. 

  9490.                     Me.CommandCollection(i).Transaction = Me._transaction

    9491. 

  9491.                     i = (i + 1)

    9492. 

  9492.                 Loop

    9493. 

  9493.                 If ((Not (Me.Adapter) Is Nothing)  _

    9494. 

  9494.                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then

    9495. 

  9495.                     Me.Adapter.DeleteCommand.Transaction = Me._transaction

    9496. 

  9496.                 End If

    9497. 

  9497.                 If ((Not (Me.Adapter) Is Nothing)  _

    9498. 

  9498.                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then

    9499. 

  9499.                     Me.Adapter.InsertCommand.Transaction = Me._transaction

    9500. 

  9500.                 End If

    9501. 

  9501.                 If ((Not (Me.Adapter) Is Nothing)  _

    9502. 

  9502.                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then

    9503. 

  9503.                     Me.Adapter.UpdateCommand.Transaction = Me._transaction

    9504. 

  9504.                 End If

    9505. 

  9505.             End Set

    9506. 

  9506.         End Property

    9507. 

  9507.         

    9508. 

  9508.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    9509. 

  9509.         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()

    9510. 

  9510.             Get

    9511. 

  9511.                 If (Me._commandCollection Is Nothing) Then

    9512. 

  9512.                     Me.InitCommandCollection

    9513. 

  9513.                 End If

    9514. 

  9514.                 Return Me._commandCollection

    9515. 

  9515.             End Get

    9516. 

  9516.         End Property

    9517. 

  9517.         

    9518. 

  9518.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    9519. 

  9519.         Public Property ClearBeforeFill() As Boolean

    9520. 

  9520.             Get

    9521. 

  9521.                 Return Me._clearBeforeFill

    9522. 

  9522.             End Get

    9523. 

  9523.             Set

    9524. 

  9524.                 Me._clearBeforeFill = value

    9525. 

  9525.             End Set

    9526. 

  9526.         End Property

    9527. 

  9527.         

    9528. 

  9528.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    9529. 

  9529.         Private Sub InitAdapter()

    9530. 

  9530.             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter

    9531. 

  9531.             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping

    9532. 

  9532.             tableMapping.SourceTable = "Table"

    9533. 

  9533.             tableMapping.DataSetTable = "StudentList"

    9534. 

  9534.             tableMapping.ColumnMappings.Add("StudentName", "StudentName")

    9535. 

  9535.             Me._adapter.TableMappings.Add(tableMapping)

    9536. 

  9536.         End Sub

    9537. 

  9537.         

    9538. 

  9538.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    9539. 

  9539.         Private Sub InitConnection()

    9540. 

  9540.             Me._connection = New Global.System.Data.SqlClient.SqlConnection

    9541. 

  9541.             Me._connection.ConnectionString = Global.VBVstoExcelWorkbook.MySettings.Default.SchoolConnectionString

    9542. 

  9542.         End Sub

    9543. 

  9543.         

    9544. 

  9544.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    9545. 

  9545.         Private Sub InitCommandCollection()

    9546. 

  9546.             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}

    9547. 

  9547.             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand

    9548. 

  9548.             Me._commandCollection(0).Connection = Me.Connection

    9549. 

  9549.             Me._commandCollection(0).CommandText = "SELECT        FirstName + ' ' + LastName AS StudentName"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM            Person"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ 

    9550. 

  9550.                 "WHERE        (HireDate IS NULL)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY StudentName"

    9551. 

  9551.             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text

    9552. 

  9552.         End Sub

    9553. 

  9553.         

    9554. 

  9554.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    9555. 

  9555.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    9556. 

  9556.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _

    9557. 

  9557.         Public Overloads Overridable Function FillStudentList(ByVal dataTable As SchoolDataSet.StudentListDataTable) As Integer

    9558. 

  9558.             Me.Adapter.SelectCommand = Me.CommandCollection(0)

    9559. 

  9559.             If (Me.ClearBeforeFill = true) Then

    9560. 

  9560.                 dataTable.Clear

    9561. 

  9561.             End If

    9562. 

  9562.             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)

    9563. 

  9563.             Return returnValue

    9564. 

  9564.         End Function

    9565. 

  9565.         

    9566. 

  9566.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    9567. 

  9567.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _

    9568. 

  9568.          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _

    9569. 

  9569.         Public Overloads Overridable Function GetStudentList() As SchoolDataSet.StudentListDataTable

    9570. 

  9570.             Me.Adapter.SelectCommand = Me.CommandCollection(0)

    9571. 

  9571.             Dim dataTable As SchoolDataSet.StudentListDataTable = New SchoolDataSet.StudentListDataTable

    9572. 

  9572.             Me.Adapter.Fill(dataTable)

    9573. 

  9573.             Return dataTable

    9574. 

  9574.         End Function

    9575. 

  9575.     End Class

    9576. 

  9576.     

    9577. 

  9577.     '''<summary>

    9578. 

  9578.     '''Represents the connection and commands used to retrieve and save data.

    9579. 

  9579.     '''</summary>

    9580. 

  9580.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"),  _

    9581. 

  9581.      Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _

    9582. 

  9582.      Global.System.ComponentModel.ToolboxItem(true),  _

    9583. 

  9583.      Global.System.ComponentModel.DataObjectAttribute(true),  _

    9584. 

  9584.      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ 

    9585. 

  9585.         ", Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _

    9586. 

  9586.      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    9587. 

  9587.     Partial Public Class QueriesTableAdapter

    9588. 

  9588.         Inherits Global.System.ComponentModel.Component

    9589. 

  9589.         

    9590. 

  9590.         Private _commandCollection() As Global.System.Data.IDbCommand

    9591. 

  9591.         

    9592. 

  9592.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    9593. 

  9593.         Protected ReadOnly Property CommandCollection() As Global.System.Data.IDbCommand()

    9594. 

  9594.             Get

    9595. 

  9595.                 If (Me._commandCollection Is Nothing) Then

    9596. 

  9596.                     Me.InitCommandCollection

    9597. 

  9597.                 End If

    9598. 

  9598.                 Return Me._commandCollection

    9599. 

  9599.             End Get

    9600. 

  9600.         End Property

    9601. 

  9601.         

    9602. 

  9602.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    9603. 

  9603.         Private Sub InitCommandCollection()

    9604. 

  9604.             Me._commandCollection = New Global.System.Data.IDbCommand(2) {}

    9605. 

  9605.             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand

    9606. 

  9606.             CType(Me._commandCollection(0),Global.System.Data.SqlClient.SqlCommand).Connection = New Global.System.Data.SqlClient.SqlConnection(Global.VBVstoExcelWorkbook.MySettings.Default.SchoolConnectionString)

    9607. 

  9607.             CType(Me._commandCollection(0),Global.System.Data.SqlClient.SqlCommand).CommandText = "dbo.DeleteOfficeAssignment"

    9608. 

  9608.             CType(Me._commandCollection(0),Global.System.Data.SqlClient.SqlCommand).CommandType = Global.System.Data.CommandType.StoredProcedure

    9609. 

  9609.             CType(Me._commandCollection(0),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    9610. 

  9610.             CType(Me._commandCollection(0),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InstructorID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    9611. 

  9611.             Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand

    9612. 

  9612.             CType(Me._commandCollection(1),Global.System.Data.SqlClient.SqlCommand).Connection = New Global.System.Data.SqlClient.SqlConnection(Global.VBVstoExcelWorkbook.MySettings.Default.SchoolConnectionString)

    9613. 

  9613.             CType(Me._commandCollection(1),Global.System.Data.SqlClient.SqlCommand).CommandText = "dbo.DeletePerson"

    9614. 

  9614.             CType(Me._commandCollection(1),Global.System.Data.SqlClient.SqlCommand).CommandType = Global.System.Data.CommandType.StoredProcedure

    9615. 

  9615.             CType(Me._commandCollection(1),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    9616. 

  9616.             CType(Me._commandCollection(1),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PersonID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    9617. 

  9617.             Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand

    9618. 

  9618.             CType(Me._commandCollection(2),Global.System.Data.SqlClient.SqlCommand).Connection = New Global.System.Data.SqlClient.SqlConnection(Global.VBVstoExcelWorkbook.MySettings.Default.SchoolConnectionString)

    9619. 

  9619.             CType(Me._commandCollection(2),Global.System.Data.SqlClient.SqlCommand).CommandText = "dbo.UpdatePerson"

    9620. 

  9620.             CType(Me._commandCollection(2),Global.System.Data.SqlClient.SqlCommand).CommandType = Global.System.Data.CommandType.StoredProcedure

    9621. 

  9621.             CType(Me._commandCollection(2),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    9622. 

  9622.             CType(Me._commandCollection(2),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PersonID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    9623. 

  9623.             CType(Me._commandCollection(2),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LastName", Global.System.Data.SqlDbType.NVarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    9624. 

  9624.             CType(Me._commandCollection(2),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FirstName", Global.System.Data.SqlDbType.NVarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    9625. 

  9625.             CType(Me._commandCollection(2),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HireDate", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    9626. 

  9626.             CType(Me._commandCollection(2),Global.System.Data.SqlClient.SqlCommand).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EnrollmentDate", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 23, 3, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

    9627. 

  9627.         End Sub

    9628. 

  9628.         

    9629. 

  9629.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    9630. 

  9630.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    9631. 

  9631.         Public Overloads Overridable Function DeleteOfficeAssignment(ByVal InstructorID As Global.System.Nullable(Of Integer)) As Integer

    9632. 

  9632.             Dim command As Global.System.Data.SqlClient.SqlCommand = CType(Me.CommandCollection(0),Global.System.Data.SqlClient.SqlCommand)

    9633. 

  9633.             If (InstructorID.HasValue = true) Then

    9634. 

  9634.                 command.Parameters(1).Value = CType(InstructorID.Value,Integer)

    9635. 

  9635.             Else

    9636. 

  9636.                 command.Parameters(1).Value = Global.System.DBNull.Value

    9637. 

  9637.             End If

    9638. 

  9638.             Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State

    9639. 

  9639.             If ((command.Connection.State And Global.System.Data.ConnectionState.Open)  _

    9640. 

  9640.                         <> Global.System.Data.ConnectionState.Open) Then

    9641. 

  9641.                 command.Connection.Open

    9642. 

  9642.             End If

    9643. 

  9643.             Dim returnValue As Integer

    9644. 

  9644.             Try 

    9645. 

  9645.                 returnValue = command.ExecuteNonQuery

    9646. 

  9646.             Finally

    9647. 

  9647.                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then

    9648. 

  9648.                     command.Connection.Close

    9649. 

  9649.                 End If

    9650. 

  9650.             End Try

    9651. 

  9651.             Return returnValue

    9652. 

  9652.         End Function

    9653. 

  9653.         

    9654. 

  9654.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    9655. 

  9655.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    9656. 

  9656.         Public Overloads Overridable Function DeletePerson(ByVal PersonID As Global.System.Nullable(Of Integer)) As Integer

    9657. 

  9657.             Dim command As Global.System.Data.SqlClient.SqlCommand = CType(Me.CommandCollection(1),Global.System.Data.SqlClient.SqlCommand)

    9658. 

  9658.             If (PersonID.HasValue = true) Then

    9659. 

  9659.                 command.Parameters(1).Value = CType(PersonID.Value,Integer)

    9660. 

  9660.             Else

    9661. 

  9661.                 command.Parameters(1).Value = Global.System.DBNull.Value

    9662. 

  9662.             End If

    9663. 

  9663.             Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State

    9664. 

  9664.             If ((command.Connection.State And Global.System.Data.ConnectionState.Open)  _

    9665. 

  9665.                         <> Global.System.Data.ConnectionState.Open) Then

    9666. 

  9666.                 command.Connection.Open

    9667. 

  9667.             End If

    9668. 

  9668.             Dim returnValue As Integer

    9669. 

  9669.             Try 

    9670. 

  9670.                 returnValue = command.ExecuteNonQuery

    9671. 

  9671.             Finally

    9672. 

  9672.                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then

    9673. 

  9673.                     command.Connection.Close

    9674. 

  9674.                 End If

    9675. 

  9675.             End Try

    9676. 

  9676.             Return returnValue

    9677. 

  9677.         End Function

    9678. 

  9678.         

    9679. 

  9679.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    9680. 

  9680.          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _

    9681. 

  9681.         Public Overloads Overridable Function UpdatePerson(ByVal PersonID As Global.System.Nullable(Of Integer), ByVal LastName As String, ByVal FirstName As String, ByVal HireDate As Global.System.Nullable(Of Date), ByVal EnrollmentDate As Global.System.Nullable(Of Date)) As Integer

    9682. 

  9682.             Dim command As Global.System.Data.SqlClient.SqlCommand = CType(Me.CommandCollection(2),Global.System.Data.SqlClient.SqlCommand)

    9683. 

  9683.             If (PersonID.HasValue = true) Then

    9684. 

  9684.                 command.Parameters(1).Value = CType(PersonID.Value,Integer)

    9685. 

  9685.             Else

    9686. 

  9686.                 command.Parameters(1).Value = Global.System.DBNull.Value

    9687. 

  9687.             End If

    9688. 

  9688.             If (LastName Is Nothing) Then

    9689. 

  9689.                 command.Parameters(2).Value = Global.System.DBNull.Value

    9690. 

  9690.             Else

    9691. 

  9691.                 command.Parameters(2).Value = CType(LastName,String)

    9692. 

  9692.             End If

    9693. 

  9693.             If (FirstName Is Nothing) Then

    9694. 

  9694.                 command.Parameters(3).Value = Global.System.DBNull.Value

    9695. 

  9695.             Else

    9696. 

  9696.                 command.Parameters(3).Value = CType(FirstName,String)

    9697. 

  9697.             End If

    9698. 

  9698.             If (HireDate.HasValue = true) Then

    9699. 

  9699.                 command.Parameters(4).Value = CType(HireDate.Value,Date)

    9700. 

  9700.             Else

    9701. 

  9701.                 command.Parameters(4).Value = Global.System.DBNull.Value

    9702. 

  9702.             End If

    9703. 

  9703.             If (EnrollmentDate.HasValue = true) Then

    9704. 

  9704.                 command.Parameters(5).Value = CType(EnrollmentDate.Value,Date)

    9705. 

  9705.             Else

    9706. 

  9706.                 command.Parameters(5).Value = Global.System.DBNull.Value

    9707. 

  9707.             End If

    9708. 

  9708.             Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State

    9709. 

  9709.             If ((command.Connection.State And Global.System.Data.ConnectionState.Open)  _

    9710. 

  9710.                         <> Global.System.Data.ConnectionState.Open) Then

    9711. 

  9711.                 command.Connection.Open

    9712. 

  9712.             End If

    9713. 

  9713.             Dim returnValue As Integer

    9714. 

  9714.             Try 

    9715. 

  9715.                 returnValue = command.ExecuteNonQuery

    9716. 

  9716.             Finally

    9717. 

  9717.                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then

    9718. 

  9718.                     command.Connection.Close

    9719. 

  9719.                 End If

    9720. 

  9720.             End Try

    9721. 

  9721.             Return returnValue

    9722. 

  9722.         End Function

    9723. 

  9723.     End Class

    9724. 

  9724.     

    9725. 

  9725.     '''<summary>

    9726. 

  9726.     '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios

    9727. 

  9727.     '''</summary>

    9728. 

  9728.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"),  _

    9729. 

  9729.      Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _

    9730. 

  9730.      Global.System.ComponentModel.ToolboxItem(true),  _

    9731. 

  9731.      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerDesigner, Microsoft.VSD"& _ 

    9732. 

  9732.         "esigner, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _

    9733. 

  9733.      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapterManager")>  _

    9734. 

  9734.     Partial Public Class TableAdapterManager

    9735. 

  9735.         Inherits Global.System.ComponentModel.Component

    9736. 

  9736.         

    9737. 

  9737.         Private _updateOrder As UpdateOrderOption

    9738. 

  9738.         

    9739. 

  9739.         Private _courseTableAdapter As CourseTableAdapter

    9740. 

  9740.         

    9741. 

  9741.         Private _courseGradeTableAdapter As CourseGradeTableAdapter

    9742. 

  9742.         

    9743. 

  9743.         Private _courseInstructorTableAdapter As CourseInstructorTableAdapter

    9744. 

  9744.         

    9745. 

  9745.         Private _departmentTableAdapter As DepartmentTableAdapter

    9746. 

  9746.         

    9747. 

  9747.         Private _officeAssignmentTableAdapter As OfficeAssignmentTableAdapter

    9748. 

  9748.         

    9749. 

  9749.         Private _onlineCourseTableAdapter As OnlineCourseTableAdapter

    9750. 

  9750.         

    9751. 

  9751.         Private _onsiteCourseTableAdapter As OnsiteCourseTableAdapter

    9752. 

  9752.         

    9753. 

  9753.         Private _personTableAdapter As PersonTableAdapter

    9754. 

  9754.         

    9755. 

  9755.         Private _backupDataSetBeforeUpdate As Boolean

    9756. 

  9756.         

    9757. 

  9757.         Private _connection As Global.System.Data.IDbConnection

    9758. 

  9758.         

    9759. 

  9759.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    9760. 

  9760.         Public Property UpdateOrder() As UpdateOrderOption

    9761. 

  9761.             Get

    9762. 

  9762.                 Return Me._updateOrder

    9763. 

  9763.             End Get

    9764. 

  9764.             Set

    9765. 

  9765.                 Me._updateOrder = value

    9766. 

  9766.             End Set

    9767. 

  9767.         End Property

    9768. 

  9768.         

    9769. 

  9769.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    9770. 

  9770.          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _ 

    9771. 

  9771.             "ft.VSDesigner, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"& _ 

    9772. 

  9772.             "", "System.Drawing.Design.UITypeEditor")>  _

    9773. 

  9773.         Public Property CourseTableAdapter() As CourseTableAdapter

    9774. 

  9774.             Get

    9775. 

  9775.                 Return Me._courseTableAdapter

    9776. 

  9776.             End Get

    9777. 

  9777.             Set

    9778. 

  9778.                 Me._courseTableAdapter = value

    9779. 

  9779.             End Set

    9780. 

  9780.         End Property

    9781. 

  9781.         

    9782. 

  9782.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    9783. 

  9783.          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _ 

    9784. 

  9784.             "ft.VSDesigner, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"& _ 

    9785. 

  9785.             "", "System.Drawing.Design.UITypeEditor")>  _

    9786. 

  9786.         Public Property CourseGradeTableAdapter() As CourseGradeTableAdapter

    9787. 

  9787.             Get

    9788. 

  9788.                 Return Me._courseGradeTableAdapter

    9789. 

  9789.             End Get

    9790. 

  9790.             Set

    9791. 

  9791.                 Me._courseGradeTableAdapter = value

    9792. 

  9792.             End Set

    9793. 

  9793.         End Property

    9794. 

  9794.         

    9795. 

  9795.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    9796. 

  9796.          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _ 

    9797. 

  9797.             "ft.VSDesigner, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"& _ 

    9798. 

  9798.             "", "System.Drawing.Design.UITypeEditor")>  _

    9799. 

  9799.         Public Property CourseInstructorTableAdapter() As CourseInstructorTableAdapter

    9800. 

  9800.             Get

    9801. 

  9801.                 Return Me._courseInstructorTableAdapter

    9802. 

  9802.             End Get

    9803. 

  9803.             Set

    9804. 

  9804.                 Me._courseInstructorTableAdapter = value

    9805. 

  9805.             End Set

    9806. 

  9806.         End Property

    9807. 

  9807.         

    9808. 

  9808.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    9809. 

  9809.          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _ 

    9810. 

  9810.             "ft.VSDesigner, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"& _ 

    9811. 

  9811.             "", "System.Drawing.Design.UITypeEditor")>  _

    9812. 

  9812.         Public Property DepartmentTableAdapter() As DepartmentTableAdapter

    9813. 

  9813.             Get

    9814. 

  9814.                 Return Me._departmentTableAdapter

    9815. 

  9815.             End Get

    9816. 

  9816.             Set

    9817. 

  9817.                 Me._departmentTableAdapter = value

    9818. 

  9818.             End Set

    9819. 

  9819.         End Property

    9820. 

  9820.         

    9821. 

  9821.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    9822. 

  9822.          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _ 

    9823. 

  9823.             "ft.VSDesigner, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"& _ 

    9824. 

  9824.             "", "System.Drawing.Design.UITypeEditor")>  _

    9825. 

  9825.         Public Property OfficeAssignmentTableAdapter() As OfficeAssignmentTableAdapter

    9826. 

  9826.             Get

    9827. 

  9827.                 Return Me._officeAssignmentTableAdapter

    9828. 

  9828.             End Get

    9829. 

  9829.             Set

    9830. 

  9830.                 Me._officeAssignmentTableAdapter = value

    9831. 

  9831.             End Set

    9832. 

  9832.         End Property

    9833. 

  9833.         

    9834. 

  9834.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    9835. 

  9835.          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _ 

    9836. 

  9836.             "ft.VSDesigner, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"& _ 

    9837. 

  9837.             "", "System.Drawing.Design.UITypeEditor")>  _

    9838. 

  9838.         Public Property OnlineCourseTableAdapter() As OnlineCourseTableAdapter

    9839. 

  9839.             Get

    9840. 

  9840.                 Return Me._onlineCourseTableAdapter

    9841. 

  9841.             End Get

    9842. 

  9842.             Set

    9843. 

  9843.                 Me._onlineCourseTableAdapter = value

    9844. 

  9844.             End Set

    9845. 

  9845.         End Property

    9846. 

  9846.         

    9847. 

  9847.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    9848. 

  9848.          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _ 

    9849. 

  9849.             "ft.VSDesigner, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"& _ 

    9850. 

  9850.             "", "System.Drawing.Design.UITypeEditor")>  _

    9851. 

  9851.         Public Property OnsiteCourseTableAdapter() As OnsiteCourseTableAdapter

    9852. 

  9852.             Get

    9853. 

  9853.                 Return Me._onsiteCourseTableAdapter

    9854. 

  9854.             End Get

    9855. 

  9855.             Set

    9856. 

  9856.                 Me._onsiteCourseTableAdapter = value

    9857. 

  9857.             End Set

    9858. 

  9858.         End Property

    9859. 

  9859.         

    9860. 

  9860.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    9861. 

  9861.          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _ 

    9862. 

  9862.             "ft.VSDesigner, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"& _ 

    9863. 

  9863.             "", "System.Drawing.Design.UITypeEditor")>  _

    9864. 

  9864.         Public Property PersonTableAdapter() As PersonTableAdapter

    9865. 

  9865.             Get

    9866. 

  9866.                 Return Me._personTableAdapter

    9867. 

  9867.             End Get

    9868. 

  9868.             Set

    9869. 

  9869.                 Me._personTableAdapter = value

    9870. 

  9870.             End Set

    9871. 

  9871.         End Property

    9872. 

  9872.         

    9873. 

  9873.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    9874. 

  9874.         Public Property BackupDataSetBeforeUpdate() As Boolean

    9875. 

  9875.             Get

    9876. 

  9876.                 Return Me._backupDataSetBeforeUpdate

    9877. 

  9877.             End Get

    9878. 

  9878.             Set

    9879. 

  9879.                 Me._backupDataSetBeforeUpdate = value

    9880. 

  9880.             End Set

    9881. 

  9881.         End Property

    9882. 

  9882.         

    9883. 

  9883.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    9884. 

  9884.          Global.System.ComponentModel.Browsable(false)>  _

    9885. 

  9885.         Public Property Connection() As Global.System.Data.IDbConnection

    9886. 

  9886.             Get

    9887. 

  9887.                 If (Not (Me._connection) Is Nothing) Then

    9888. 

  9888.                     Return Me._connection

    9889. 

  9889.                 End If

    9890. 

  9890.                 If ((Not (Me._courseTableAdapter) Is Nothing)  _

    9891. 

  9891.                             AndAlso (Not (Me._courseTableAdapter.Connection) Is Nothing)) Then

    9892. 

  9892.                     Return Me._courseTableAdapter.Connection

    9893. 

  9893.                 End If

    9894. 

  9894.                 If ((Not (Me._courseGradeTableAdapter) Is Nothing)  _

    9895. 

  9895.                             AndAlso (Not (Me._courseGradeTableAdapter.Connection) Is Nothing)) Then

    9896. 

  9896.                     Return Me._courseGradeTableAdapter.Connection

    9897. 

  9897.                 End If

    9898. 

  9898.                 If ((Not (Me._courseInstructorTableAdapter) Is Nothing)  _

    9899. 

  9899.                             AndAlso (Not (Me._courseInstructorTableAdapter.Connection) Is Nothing)) Then

    9900. 

  9900.                     Return Me._courseInstructorTableAdapter.Connection

    9901. 

  9901.                 End If

    9902. 

  9902.                 If ((Not (Me._departmentTableAdapter) Is Nothing)  _

    9903. 

  9903.                             AndAlso (Not (Me._departmentTableAdapter.Connection) Is Nothing)) Then

    9904. 

  9904.                     Return Me._departmentTableAdapter.Connection

    9905. 

  9905.                 End If

    9906. 

  9906.                 If ((Not (Me._officeAssignmentTableAdapter) Is Nothing)  _

    9907. 

  9907.                             AndAlso (Not (Me._officeAssignmentTableAdapter.Connection) Is Nothing)) Then

    9908. 

  9908.                     Return Me._officeAssignmentTableAdapter.Connection

    9909. 

  9909.                 End If

    9910. 

  9910.                 If ((Not (Me._onlineCourseTableAdapter) Is Nothing)  _

    9911. 

  9911.                             AndAlso (Not (Me._onlineCourseTableAdapter.Connection) Is Nothing)) Then

    9912. 

  9912.                     Return Me._onlineCourseTableAdapter.Connection

    9913. 

  9913.                 End If

    9914. 

  9914.                 If ((Not (Me._onsiteCourseTableAdapter) Is Nothing)  _

    9915. 

  9915.                             AndAlso (Not (Me._onsiteCourseTableAdapter.Connection) Is Nothing)) Then

    9916. 

  9916.                     Return Me._onsiteCourseTableAdapter.Connection

    9917. 

  9917.                 End If

    9918. 

  9918.                 If ((Not (Me._personTableAdapter) Is Nothing)  _

    9919. 

  9919.                             AndAlso (Not (Me._personTableAdapter.Connection) Is Nothing)) Then

    9920. 

  9920.                     Return Me._personTableAdapter.Connection

    9921. 

  9921.                 End If

    9922. 

  9922.                 Return Nothing

    9923. 

  9923.             End Get

    9924. 

  9924.             Set

    9925. 

  9925.                 Me._connection = value

    9926. 

  9926.             End Set

    9927. 

  9927.         End Property

    9928. 

  9928.         

    9929. 

  9929.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

    9930. 

  9930.          Global.System.ComponentModel.Browsable(false)>  _

    9931. 

  9931.         Public ReadOnly Property TableAdapterInstanceCount() As Integer

    9932. 

  9932.             Get

    9933. 

  9933.                 Dim count As Integer = 0

    9934. 

  9934.                 If (Not (Me._courseTableAdapter) Is Nothing) Then

    9935. 

  9935.                     count = (count + 1)

    9936. 

  9936.                 End If

    9937. 

  9937.                 If (Not (Me._courseGradeTableAdapter) Is Nothing) Then

    9938. 

  9938.                     count = (count + 1)

    9939. 

  9939.                 End If

    9940. 

  9940.                 If (Not (Me._courseInstructorTableAdapter) Is Nothing) Then

    9941. 

  9941.                     count = (count + 1)

    9942. 

  9942.                 End If

    9943. 

  9943.                 If (Not (Me._departmentTableAdapter) Is Nothing) Then

    9944. 

  9944.                     count = (count + 1)

    9945. 

  9945.                 End If

    9946. 

  9946.                 If (Not (Me._officeAssignmentTableAdapter) Is Nothing) Then

    9947. 

  9947.                     count = (count + 1)

    9948. 

  9948.                 End If

    9949. 

  9949.                 If (Not (Me._onlineCourseTableAdapter) Is Nothing) Then

    9950. 

  9950.                     count = (count + 1)

    9951. 

  9951.                 End If

    9952. 

  9952.                 If (Not (Me._onsiteCourseTableAdapter) Is Nothing) Then

    9953. 

  9953.                     count = (count + 1)

    9954. 

  9954.                 End If

    9955. 

  9955.                 If (Not (Me._personTableAdapter) Is Nothing) Then

    9956. 

  9956.                     count = (count + 1)

    9957. 

  9957.                 End If

    9958. 

  9958.                 Return count

    9959. 

  9959.             End Get

    9960. 

  9960.         End Property

    9961. 

  9961.         

    9962. 

  9962.         '''<summary>

    9963. 

  9963.         '''Update rows in top-down order.

    9964. 

  9964.         '''</summary>

    9965. 

  9965.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    9966. 

  9966.         Private Function UpdateUpdatedRows(ByVal dataSet As SchoolDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer

    9967. 

  9967.             Dim result As Integer = 0

    9968. 

  9968.             If (Not (Me._departmentTableAdapter) Is Nothing) Then

    9969. 

  9969.                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Department.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)

    9970. 

  9970.                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)

    9971. 

  9971.                 If ((Not (updatedRows) Is Nothing)  _

    9972. 

  9972.                             AndAlso (0 < updatedRows.Length)) Then

    9973. 

  9973.                     result = (result + Me._departmentTableAdapter.Update(updatedRows))

    9974. 

  9974.                     allChangedRows.AddRange(updatedRows)

    9975. 

  9975.                 End If

    9976. 

  9976.             End If

    9977. 

  9977.             If (Not (Me._courseTableAdapter) Is Nothing) Then

    9978. 

  9978.                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Course.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)

    9979. 

  9979.                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)

    9980. 

  9980.                 If ((Not (updatedRows) Is Nothing)  _

    9981. 

  9981.                             AndAlso (0 < updatedRows.Length)) Then

    9982. 

  9982.                     result = (result + Me._courseTableAdapter.Update(updatedRows))

    9983. 

  9983.                     allChangedRows.AddRange(updatedRows)

    9984. 

  9984.                 End If

    9985. 

  9985.             End If

    9986. 

  9986.             If (Not (Me._personTableAdapter) Is Nothing) Then

    9987. 

  9987.                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Person.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)

    9988. 

  9988.                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)

    9989. 

  9989.                 If ((Not (updatedRows) Is Nothing)  _

    9990. 

  9990.                             AndAlso (0 < updatedRows.Length)) Then

    9991. 

  9991.                     result = (result + Me._personTableAdapter.Update(updatedRows))

    9992. 

  9992.                     allChangedRows.AddRange(updatedRows)

    9993. 

  9993.                 End If

    9994. 

  9994.             End If

    9995. 

  9995.             If (Not (Me._courseInstructorTableAdapter) Is Nothing) Then

    9996. 

  9996.                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.CourseInstructor.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)

    9997. 

  9997.                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)

    9998. 

  9998.                 If ((Not (updatedRows) Is Nothing)  _

    9999. 

  9999.                             AndAlso (0 < updatedRows.Length)) Then

    10000. 

  10000.                     result = (result + Me._courseInstructorTableAdapter.Update(updatedRows))

    10001. 

  10001.                     allChangedRows.AddRange(updatedRows)

    10002. 

  10002.                 End If

    10003. 

  10003.             End If

    10004. 

  10004.             If (Not (Me._courseGradeTableAdapter) Is Nothing) Then

    10005. 

  10005.                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.CourseGrade.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)

    10006. 

  10006.                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)

    10007. 

  10007.                 If ((Not (updatedRows) Is Nothing)  _

    10008. 

  10008.                             AndAlso (0 < updatedRows.Length)) Then

    10009. 

  10009.                     result = (result + Me._courseGradeTableAdapter.Update(updatedRows))

    10010. 

  10010.                     allChangedRows.AddRange(updatedRows)

    10011. 

  10011.                 End If

    10012. 

  10012.             End If

    10013. 

  10013.             If (Not (Me._officeAssignmentTableAdapter) Is Nothing) Then

    10014. 

  10014.                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.OfficeAssignment.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)

    10015. 

  10015.                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)

    10016. 

  10016.                 If ((Not (updatedRows) Is Nothing)  _

    10017. 

  10017.                             AndAlso (0 < updatedRows.Length)) Then

    10018. 

  10018.                     result = (result + Me._officeAssignmentTableAdapter.Update(updatedRows))

    10019. 

  10019.                     allChangedRows.AddRange(updatedRows)

    10020. 

  10020.                 End If

    10021. 

  10021.             End If

    10022. 

  10022.             If (Not (Me._onsiteCourseTableAdapter) Is Nothing) Then

    10023. 

  10023.                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.OnsiteCourse.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)

    10024. 

  10024.                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)

    10025. 

  10025.                 If ((Not (updatedRows) Is Nothing)  _

    10026. 

  10026.                             AndAlso (0 < updatedRows.Length)) Then

    10027. 

  10027.                     result = (result + Me._onsiteCourseTableAdapter.Update(updatedRows))

    10028. 

  10028.                     allChangedRows.AddRange(updatedRows)

    10029. 

  10029.                 End If

    10030. 

  10030.             End If

    10031. 

  10031.             If (Not (Me._onlineCourseTableAdapter) Is Nothing) Then

    10032. 

  10032.                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.OnlineCourse.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)

    10033. 

  10033.                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)

    10034. 

  10034.                 If ((Not (updatedRows) Is Nothing)  _

    10035. 

  10035.                             AndAlso (0 < updatedRows.Length)) Then

    10036. 

  10036.                     result = (result + Me._onlineCourseTableAdapter.Update(updatedRows))

    10037. 

  10037.                     allChangedRows.AddRange(updatedRows)

    10038. 

  10038.                 End If

    10039. 

  10039.             End If

    10040. 

  10040.             Return result

    10041. 

  10041.         End Function

    10042. 

  10042.         

    10043. 

  10043.         '''<summary>

    10044. 

  10044.         '''Insert rows in top-down order.

    10045. 

  10045.         '''</summary>

    10046. 

  10046.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    10047. 

  10047.         Private Function UpdateInsertedRows(ByVal dataSet As SchoolDataSet, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer

    10048. 

  10048.             Dim result As Integer = 0

    10049. 

  10049.             If (Not (Me._departmentTableAdapter) Is Nothing) Then

    10050. 

  10050.                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Department.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)

    10051. 

  10051.                 If ((Not (addedRows) Is Nothing)  _

    10052. 

  10052.                             AndAlso (0 < addedRows.Length)) Then

    10053. 

  10053.                     result = (result + Me._departmentTableAdapter.Update(addedRows))

    10054. 

  10054.                     allAddedRows.AddRange(addedRows)

    10055. 

  10055.                 End If

    10056. 

  10056.             End If

    10057. 

  10057.             If (Not (Me._courseTableAdapter) Is Nothing) Then

    10058. 

  10058.                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Course.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)

    10059. 

  10059.                 If ((Not (addedRows) Is Nothing)  _

    10060. 

  10060.                             AndAlso (0 < addedRows.Length)) Then

    10061. 

  10061.                     result = (result + Me._courseTableAdapter.Update(addedRows))

    10062. 

  10062.                     allAddedRows.AddRange(addedRows)

    10063. 

  10063.                 End If

    10064. 

  10064.             End If

    10065. 

  10065.             If (Not (Me._personTableAdapter) Is Nothing) Then

    10066. 

  10066.                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Person.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)

    10067. 

  10067.                 If ((Not (addedRows) Is Nothing)  _

    10068. 

  10068.                             AndAlso (0 < addedRows.Length)) Then

    10069. 

  10069.                     result = (result + Me._personTableAdapter.Update(addedRows))

    10070. 

  10070.                     allAddedRows.AddRange(addedRows)

    10071. 

  10071.                 End If

    10072. 

  10072.             End If

    10073. 

  10073.             If (Not (Me._courseInstructorTableAdapter) Is Nothing) Then

    10074. 

  10074.                 Dim addedRows() As Global.System.Data.DataRow = dataSet.CourseInstructor.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)

    10075. 

  10075.                 If ((Not (addedRows) Is Nothing)  _

    10076. 

  10076.                             AndAlso (0 < addedRows.Length)) Then

    10077. 

  10077.                     result = (result + Me._courseInstructorTableAdapter.Update(addedRows))

    10078. 

  10078.                     allAddedRows.AddRange(addedRows)

    10079. 

  10079.                 End If

    10080. 

  10080.             End If

    10081. 

  10081.             If (Not (Me._courseGradeTableAdapter) Is Nothing) Then

    10082. 

  10082.                 Dim addedRows() As Global.System.Data.DataRow = dataSet.CourseGrade.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)

    10083. 

  10083.                 If ((Not (addedRows) Is Nothing)  _

    10084. 

  10084.                             AndAlso (0 < addedRows.Length)) Then

    10085. 

  10085.                     result = (result + Me._courseGradeTableAdapter.Update(addedRows))

    10086. 

  10086.                     allAddedRows.AddRange(addedRows)

    10087. 

  10087.                 End If

    10088. 

  10088.             End If

    10089. 

  10089.             If (Not (Me._officeAssignmentTableAdapter) Is Nothing) Then

    10090. 

  10090.                 Dim addedRows() As Global.System.Data.DataRow = dataSet.OfficeAssignment.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)

    10091. 

  10091.                 If ((Not (addedRows) Is Nothing)  _

    10092. 

  10092.                             AndAlso (0 < addedRows.Length)) Then

    10093. 

  10093.                     result = (result + Me._officeAssignmentTableAdapter.Update(addedRows))

    10094. 

  10094.                     allAddedRows.AddRange(addedRows)

    10095. 

  10095.                 End If

    10096. 

  10096.             End If

    10097. 

  10097.             If (Not (Me._onsiteCourseTableAdapter) Is Nothing) Then

    10098. 

  10098.                 Dim addedRows() As Global.System.Data.DataRow = dataSet.OnsiteCourse.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)

    10099. 

  10099.                 If ((Not (addedRows) Is Nothing)  _

    10100. 

  10100.                             AndAlso (0 < addedRows.Length)) Then

    10101. 

  10101.                     result = (result + Me._onsiteCourseTableAdapter.Update(addedRows))

    10102. 

  10102.                     allAddedRows.AddRange(addedRows)

    10103. 

  10103.                 End If

    10104. 

  10104.             End If

    10105. 

  10105.             If (Not (Me._onlineCourseTableAdapter) Is Nothing) Then

    10106. 

  10106.                 Dim addedRows() As Global.System.Data.DataRow = dataSet.OnlineCourse.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)

    10107. 

  10107.                 If ((Not (addedRows) Is Nothing)  _

    10108. 

  10108.                             AndAlso (0 < addedRows.Length)) Then

    10109. 

  10109.                     result = (result + Me._onlineCourseTableAdapter.Update(addedRows))

    10110. 

  10110.                     allAddedRows.AddRange(addedRows)

    10111. 

  10111.                 End If

    10112. 

  10112.             End If

    10113. 

  10113.             Return result

    10114. 

  10114.         End Function

    10115. 

  10115.         

    10116. 

  10116.         '''<summary>

    10117. 

  10117.         '''Delete rows in bottom-up order.

    10118. 

  10118.         '''</summary>

    10119. 

  10119.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    10120. 

  10120.         Private Function UpdateDeletedRows(ByVal dataSet As SchoolDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer

    10121. 

  10121.             Dim result As Integer = 0

    10122. 

  10122.             If (Not (Me._onlineCourseTableAdapter) Is Nothing) Then

    10123. 

  10123.                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.OnlineCourse.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)

    10124. 

  10124.                 If ((Not (deletedRows) Is Nothing)  _

    10125. 

  10125.                             AndAlso (0 < deletedRows.Length)) Then

    10126. 

  10126.                     result = (result + Me._onlineCourseTableAdapter.Update(deletedRows))

    10127. 

  10127.                     allChangedRows.AddRange(deletedRows)

    10128. 

  10128.                 End If

    10129. 

  10129.             End If

    10130. 

  10130.             If (Not (Me._onsiteCourseTableAdapter) Is Nothing) Then

    10131. 

  10131.                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.OnsiteCourse.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)

    10132. 

  10132.                 If ((Not (deletedRows) Is Nothing)  _

    10133. 

  10133.                             AndAlso (0 < deletedRows.Length)) Then

    10134. 

  10134.                     result = (result + Me._onsiteCourseTableAdapter.Update(deletedRows))

    10135. 

  10135.                     allChangedRows.AddRange(deletedRows)

    10136. 

  10136.                 End If

    10137. 

  10137.             End If

    10138. 

  10138.             If (Not (Me._officeAssignmentTableAdapter) Is Nothing) Then

    10139. 

  10139.                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.OfficeAssignment.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)

    10140. 

  10140.                 If ((Not (deletedRows) Is Nothing)  _

    10141. 

  10141.                             AndAlso (0 < deletedRows.Length)) Then

    10142. 

  10142.                     result = (result + Me._officeAssignmentTableAdapter.Update(deletedRows))

    10143. 

  10143.                     allChangedRows.AddRange(deletedRows)

    10144. 

  10144.                 End If

    10145. 

  10145.             End If

    10146. 

  10146.             If (Not (Me._courseGradeTableAdapter) Is Nothing) Then

    10147. 

  10147.                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.CourseGrade.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)

    10148. 

  10148.                 If ((Not (deletedRows) Is Nothing)  _

    10149. 

  10149.                             AndAlso (0 < deletedRows.Length)) Then

    10150. 

  10150.                     result = (result + Me._courseGradeTableAdapter.Update(deletedRows))

    10151. 

  10151.                     allChangedRows.AddRange(deletedRows)

    10152. 

  10152.                 End If

    10153. 

  10153.             End If

    10154. 

  10154.             If (Not (Me._courseInstructorTableAdapter) Is Nothing) Then

    10155. 

  10155.                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.CourseInstructor.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)

    10156. 

  10156.                 If ((Not (deletedRows) Is Nothing)  _

    10157. 

  10157.                             AndAlso (0 < deletedRows.Length)) Then

    10158. 

  10158.                     result = (result + Me._courseInstructorTableAdapter.Update(deletedRows))

    10159. 

  10159.                     allChangedRows.AddRange(deletedRows)

    10160. 

  10160.                 End If

    10161. 

  10161.             End If

    10162. 

  10162.             If (Not (Me._personTableAdapter) Is Nothing) Then

    10163. 

  10163.                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Person.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)

    10164. 

  10164.                 If ((Not (deletedRows) Is Nothing)  _

    10165. 

  10165.                             AndAlso (0 < deletedRows.Length)) Then

    10166. 

  10166.                     result = (result + Me._personTableAdapter.Update(deletedRows))

    10167. 

  10167.                     allChangedRows.AddRange(deletedRows)

    10168. 

  10168.                 End If

    10169. 

  10169.             End If

    10170. 

  10170.             If (Not (Me._courseTableAdapter) Is Nothing) Then

    10171. 

  10171.                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Course.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)

    10172. 

  10172.                 If ((Not (deletedRows) Is Nothing)  _

    10173. 

  10173.                             AndAlso (0 < deletedRows.Length)) Then

    10174. 

  10174.                     result = (result + Me._courseTableAdapter.Update(deletedRows))

    10175. 

  10175.                     allChangedRows.AddRange(deletedRows)

    10176. 

  10176.                 End If

    10177. 

  10177.             End If

    10178. 

  10178.             If (Not (Me._departmentTableAdapter) Is Nothing) Then

    10179. 

  10179.                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Department.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)

    10180. 

  10180.                 If ((Not (deletedRows) Is Nothing)  _

    10181. 

  10181.                             AndAlso (0 < deletedRows.Length)) Then

    10182. 

  10182.                     result = (result + Me._departmentTableAdapter.Update(deletedRows))

    10183. 

  10183.                     allChangedRows.AddRange(deletedRows)

    10184. 

  10184.                 End If

    10185. 

  10185.             End If

    10186. 

  10186.             Return result

    10187. 

  10187.         End Function

    10188. 

  10188.         

    10189. 

  10189.         '''<summary>

    10190. 

  10190.         '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first

    10191. 

  10191.         '''</summary>

    10192. 

  10192.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    10193. 

  10193.         Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow()

    10194. 

  10194.             If ((updatedRows Is Nothing)  _

    10195. 

  10195.                         OrElse (updatedRows.Length < 1)) Then

    10196. 

  10196.                 Return updatedRows

    10197. 

  10197.             End If

    10198. 

  10198.             If ((allAddedRows Is Nothing)  _

    10199. 

  10199.                         OrElse (allAddedRows.Count < 1)) Then

    10200. 

  10200.                 Return updatedRows

    10201. 

  10201.             End If

    10202. 

  10202.             Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)

    10203. 

  10203.             Dim i As Integer = 0

    10204. 

  10204.             Do While (i < updatedRows.Length)

    10205. 

  10205.                 Dim row As Global.System.Data.DataRow = updatedRows(i)

    10206. 

  10206.                 If (allAddedRows.Contains(row) = false) Then

    10207. 

  10207.                     realUpdatedRows.Add(row)

    10208. 

  10208.                 End If

    10209. 

  10209.                 i = (i + 1)

    10210. 

  10210.             Loop

    10211. 

  10211.             Return realUpdatedRows.ToArray

    10212. 

  10212.         End Function

    10213. 

  10213.         

    10214. 

  10214.         '''<summary>

    10215. 

  10215.         '''Update all changes to the dataset.

    10216. 

  10216.         '''</summary>

    10217. 

  10217.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    10218. 

  10218.         Public Overridable Function UpdateAll(ByVal dataSet As SchoolDataSet) As Integer

    10219. 

  10219.             If (dataSet Is Nothing) Then

    10220. 

  10220.                 Throw New Global.System.ArgumentNullException("dataSet")

    10221. 

  10221.             End If

    10222. 

  10222.             If (dataSet.HasChanges = false) Then

    10223. 

  10223.                 Return 0

    10224. 

  10224.             End If

    10225. 

  10225.             If ((Not (Me._courseTableAdapter) Is Nothing)  _

    10226. 

  10226.                         AndAlso (Me.MatchTableAdapterConnection(Me._courseTableAdapter.Connection) = false)) Then

    10227. 

  10227.                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _ 

    10228. 

  10228.                         "tring.")

    10229. 

  10229.             End If

    10230. 

  10230.             If ((Not (Me._courseGradeTableAdapter) Is Nothing)  _

    10231. 

  10231.                         AndAlso (Me.MatchTableAdapterConnection(Me._courseGradeTableAdapter.Connection) = false)) Then

    10232. 

  10232.                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _ 

    10233. 

  10233.                         "tring.")

    10234. 

  10234.             End If

    10235. 

  10235.             If ((Not (Me._courseInstructorTableAdapter) Is Nothing)  _

    10236. 

  10236.                         AndAlso (Me.MatchTableAdapterConnection(Me._courseInstructorTableAdapter.Connection) = false)) Then

    10237. 

  10237.                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _ 

    10238. 

  10238.                         "tring.")

    10239. 

  10239.             End If

    10240. 

  10240.             If ((Not (Me._departmentTableAdapter) Is Nothing)  _

    10241. 

  10241.                         AndAlso (Me.MatchTableAdapterConnection(Me._departmentTableAdapter.Connection) = false)) Then

    10242. 

  10242.                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _ 

    10243. 

  10243.                         "tring.")

    10244. 

  10244.             End If

    10245. 

  10245.             If ((Not (Me._officeAssignmentTableAdapter) Is Nothing)  _

    10246. 

  10246.                         AndAlso (Me.MatchTableAdapterConnection(Me._officeAssignmentTableAdapter.Connection) = false)) Then

    10247. 

  10247.                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _ 

    10248. 

  10248.                         "tring.")

    10249. 

  10249.             End If

    10250. 

  10250.             If ((Not (Me._onlineCourseTableAdapter) Is Nothing)  _

    10251. 

  10251.                         AndAlso (Me.MatchTableAdapterConnection(Me._onlineCourseTableAdapter.Connection) = false)) Then

    10252. 

  10252.                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _ 

    10253. 

  10253.                         "tring.")

    10254. 

  10254.             End If

    10255. 

  10255.             If ((Not (Me._onsiteCourseTableAdapter) Is Nothing)  _

    10256. 

  10256.                         AndAlso (Me.MatchTableAdapterConnection(Me._onsiteCourseTableAdapter.Connection) = false)) Then

    10257. 

  10257.                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _ 

    10258. 

  10258.                         "tring.")

    10259. 

  10259.             End If

    10260. 

  10260.             If ((Not (Me._personTableAdapter) Is Nothing)  _

    10261. 

  10261.                         AndAlso (Me.MatchTableAdapterConnection(Me._personTableAdapter.Connection) = false)) Then

    10262. 

  10262.                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _ 

    10263. 

  10263.                         "tring.")

    10264. 

  10264.             End If

    10265. 

  10265.             Dim workConnection As Global.System.Data.IDbConnection = Me.Connection

    10266. 

  10266.             If (workConnection Is Nothing) Then

    10267. 

  10267.                 Throw New Global.System.ApplicationException("TableAdapterManager contains no connection information. Set each TableAdapterMana"& _ 

    10268. 

  10268.                         "ger TableAdapter property to a valid TableAdapter instance.")

    10269. 

  10269.             End If

    10270. 

  10270.             Dim workConnOpened As Boolean = false

    10271. 

  10271.             If ((workConnection.State And Global.System.Data.ConnectionState.Broken)  _

    10272. 

  10272.                         = Global.System.Data.ConnectionState.Broken) Then

    10273. 

  10273.                 workConnection.Close

    10274. 

  10274.             End If

    10275. 

  10275.             If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then

    10276. 

  10276.                 workConnection.Open

    10277. 

  10277.                 workConnOpened = true

    10278. 

  10278.             End If

    10279. 

  10279.             Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction

    10280. 

  10280.             If (workTransaction Is Nothing) Then

    10281. 

  10281.                 Throw New Global.System.ApplicationException("The transaction cannot begin. The current data connection does not support transa"& _ 

    10282. 

  10282.                         "ctions or the current state is not allowing the transaction to begin.")

    10283. 

  10283.             End If

    10284. 

  10284.             Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)

    10285. 

  10285.             Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)

    10286. 

  10286.             Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)

    10287. 

  10287.             Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)

    10288. 

  10288.             Dim result As Integer = 0

    10289. 

  10289.             Dim backupDataSet As Global.System.Data.DataSet = Nothing

    10290. 

  10290.             If Me.BackupDataSetBeforeUpdate Then

    10291. 

  10291.                 backupDataSet = New Global.System.Data.DataSet

    10292. 

  10292.                 backupDataSet.Merge(dataSet)

    10293. 

  10293.             End If

    10294. 

  10294.             Try 

    10295. 

  10295.                 '---- Prepare for update -----------

    10296. 

  10296.                 '

    10297. 

  10297.                 If (Not (Me._courseTableAdapter) Is Nothing) Then

    10298. 

  10298.                     revertConnections.Add(Me._courseTableAdapter, Me._courseTableAdapter.Connection)

    10299. 

  10299.                     Me._courseTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)

    10300. 

  10300.                     Me._courseTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)

    10301. 

  10301.                     If Me._courseTableAdapter.Adapter.AcceptChangesDuringUpdate Then

    10302. 

  10302.                         Me._courseTableAdapter.Adapter.AcceptChangesDuringUpdate = false

    10303. 

  10303.                         adaptersWithAcceptChangesDuringUpdate.Add(Me._courseTableAdapter.Adapter)

    10304. 

  10304.                     End If

    10305. 

  10305.                 End If

    10306. 

  10306.                 If (Not (Me._courseGradeTableAdapter) Is Nothing) Then

    10307. 

  10307.                     revertConnections.Add(Me._courseGradeTableAdapter, Me._courseGradeTableAdapter.Connection)

    10308. 

  10308.                     Me._courseGradeTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)

    10309. 

  10309.                     Me._courseGradeTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)

    10310. 

  10310.                     If Me._courseGradeTableAdapter.Adapter.AcceptChangesDuringUpdate Then

    10311. 

  10311.                         Me._courseGradeTableAdapter.Adapter.AcceptChangesDuringUpdate = false

    10312. 

  10312.                         adaptersWithAcceptChangesDuringUpdate.Add(Me._courseGradeTableAdapter.Adapter)

    10313. 

  10313.                     End If

    10314. 

  10314.                 End If

    10315. 

  10315.                 If (Not (Me._courseInstructorTableAdapter) Is Nothing) Then

    10316. 

  10316.                     revertConnections.Add(Me._courseInstructorTableAdapter, Me._courseInstructorTableAdapter.Connection)

    10317. 

  10317.                     Me._courseInstructorTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)

    10318. 

  10318.                     Me._courseInstructorTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)

    10319. 

  10319.                     If Me._courseInstructorTableAdapter.Adapter.AcceptChangesDuringUpdate Then

    10320. 

  10320.                         Me._courseInstructorTableAdapter.Adapter.AcceptChangesDuringUpdate = false

    10321. 

  10321.                         adaptersWithAcceptChangesDuringUpdate.Add(Me._courseInstructorTableAdapter.Adapter)

    10322. 

  10322.                     End If

    10323. 

  10323.                 End If

    10324. 

  10324.                 If (Not (Me._departmentTableAdapter) Is Nothing) Then

    10325. 

  10325.                     revertConnections.Add(Me._departmentTableAdapter, Me._departmentTableAdapter.Connection)

    10326. 

  10326.                     Me._departmentTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)

    10327. 

  10327.                     Me._departmentTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)

    10328. 

  10328.                     If Me._departmentTableAdapter.Adapter.AcceptChangesDuringUpdate Then

    10329. 

  10329.                         Me._departmentTableAdapter.Adapter.AcceptChangesDuringUpdate = false

    10330. 

  10330.                         adaptersWithAcceptChangesDuringUpdate.Add(Me._departmentTableAdapter.Adapter)

    10331. 

  10331.                     End If

    10332. 

  10332.                 End If

    10333. 

  10333.                 If (Not (Me._officeAssignmentTableAdapter) Is Nothing) Then

    10334. 

  10334.                     revertConnections.Add(Me._officeAssignmentTableAdapter, Me._officeAssignmentTableAdapter.Connection)

    10335. 

  10335.                     Me._officeAssignmentTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)

    10336. 

  10336.                     Me._officeAssignmentTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)

    10337. 

  10337.                     If Me._officeAssignmentTableAdapter.Adapter.AcceptChangesDuringUpdate Then

    10338. 

  10338.                         Me._officeAssignmentTableAdapter.Adapter.AcceptChangesDuringUpdate = false

    10339. 

  10339.                         adaptersWithAcceptChangesDuringUpdate.Add(Me._officeAssignmentTableAdapter.Adapter)

    10340. 

  10340.                     End If

    10341. 

  10341.                 End If

    10342. 

  10342.                 If (Not (Me._onlineCourseTableAdapter) Is Nothing) Then

    10343. 

  10343.                     revertConnections.Add(Me._onlineCourseTableAdapter, Me._onlineCourseTableAdapter.Connection)

    10344. 

  10344.                     Me._onlineCourseTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)

    10345. 

  10345.                     Me._onlineCourseTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)

    10346. 

  10346.                     If Me._onlineCourseTableAdapter.Adapter.AcceptChangesDuringUpdate Then

    10347. 

  10347.                         Me._onlineCourseTableAdapter.Adapter.AcceptChangesDuringUpdate = false

    10348. 

  10348.                         adaptersWithAcceptChangesDuringUpdate.Add(Me._onlineCourseTableAdapter.Adapter)

    10349. 

  10349.                     End If

    10350. 

  10350.                 End If

    10351. 

  10351.                 If (Not (Me._onsiteCourseTableAdapter) Is Nothing) Then

    10352. 

  10352.                     revertConnections.Add(Me._onsiteCourseTableAdapter, Me._onsiteCourseTableAdapter.Connection)

    10353. 

  10353.                     Me._onsiteCourseTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)

    10354. 

  10354.                     Me._onsiteCourseTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)

    10355. 

  10355.                     If Me._onsiteCourseTableAdapter.Adapter.AcceptChangesDuringUpdate Then

    10356. 

  10356.                         Me._onsiteCourseTableAdapter.Adapter.AcceptChangesDuringUpdate = false

    10357. 

  10357.                         adaptersWithAcceptChangesDuringUpdate.Add(Me._onsiteCourseTableAdapter.Adapter)

    10358. 

  10358.                     End If

    10359. 

  10359.                 End If

    10360. 

  10360.                 If (Not (Me._personTableAdapter) Is Nothing) Then

    10361. 

  10361.                     revertConnections.Add(Me._personTableAdapter, Me._personTableAdapter.Connection)

    10362. 

  10362.                     Me._personTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)

    10363. 

  10363.                     Me._personTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)

    10364. 

  10364.                     If Me._personTableAdapter.Adapter.AcceptChangesDuringUpdate Then

    10365. 

  10365.                         Me._personTableAdapter.Adapter.AcceptChangesDuringUpdate = false

    10366. 

  10366.                         adaptersWithAcceptChangesDuringUpdate.Add(Me._personTableAdapter.Adapter)

    10367. 

  10367.                     End If

    10368. 

  10368.                 End If

    10369. 

  10369.                 '

    10370. 

  10370.                 '---- Perform updates -----------

    10371. 

  10371.                 '

    10372. 

  10372.                 If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then

    10373. 

  10373.                     result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows))

    10374. 

  10374.                     result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows))

    10375. 

  10375.                 Else

    10376. 

  10376.                     result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows))

    10377. 

  10377.                     result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows))

    10378. 

  10378.                 End If

    10379. 

  10379.                 result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows))

    10380. 

  10380.                 '

    10381. 

  10381.                 '---- Commit updates -----------

    10382. 

  10382.                 '

    10383. 

  10383.                 workTransaction.Commit

    10384. 

  10384.                 If (0 < allAddedRows.Count) Then

    10385. 

  10385.                     Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow

    10386. 

  10386.                     allAddedRows.CopyTo(rows)

    10387. 

  10387.                     Dim i As Integer = 0

    10388. 

  10388.                     Do While (i < rows.Length)

    10389. 

  10389.                         Dim row As Global.System.Data.DataRow = rows(i)

    10390. 

  10390.                         row.AcceptChanges

    10391. 

  10391.                         i = (i + 1)

    10392. 

  10392.                     Loop

    10393. 

  10393.                 End If

    10394. 

  10394.                 If (0 < allChangedRows.Count) Then

    10395. 

  10395.                     Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow

    10396. 

  10396.                     allChangedRows.CopyTo(rows)

    10397. 

  10397.                     Dim i As Integer = 0

    10398. 

  10398.                     Do While (i < rows.Length)

    10399. 

  10399.                         Dim row As Global.System.Data.DataRow = rows(i)

    10400. 

  10400.                         row.AcceptChanges

    10401. 

  10401.                         i = (i + 1)

    10402. 

  10402.                     Loop

    10403. 

  10403.                 End If

    10404. 

  10404.             Catch ex As Global.System.Exception

    10405. 

  10405.                 workTransaction.Rollback

    10406. 

  10406.                 '---- Restore the dataset -----------

    10407. 

  10407.                 If Me.BackupDataSetBeforeUpdate Then

    10408. 

  10408.                     Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing))

    10409. 

  10409.                     dataSet.Clear

    10410. 

  10410.                     dataSet.Merge(backupDataSet)

    10411. 

  10411.                 Else

    10412. 

  10412.                     If (0 < allAddedRows.Count) Then

    10413. 

  10413.                         Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow

    10414. 

  10414.                         allAddedRows.CopyTo(rows)

    10415. 

  10415.                         Dim i As Integer = 0

    10416. 

  10416.                         Do While (i < rows.Length)

    10417. 

  10417.                             Dim row As Global.System.Data.DataRow = rows(i)

    10418. 

  10418.                             row.AcceptChanges

    10419. 

  10419.                             row.SetAdded

    10420. 

  10420.                             i = (i + 1)

    10421. 

  10421.                         Loop

    10422. 

  10422.                     End If

    10423. 

  10423.                 End If

    10424. 

  10424.                 Throw ex

    10425. 

  10425.             Finally

    10426. 

  10426.                 If workConnOpened Then

    10427. 

  10427.                     workConnection.Close

    10428. 

  10428.                 End If

    10429. 

  10429.                 If (Not (Me._courseTableAdapter) Is Nothing) Then

    10430. 

  10430.                     Me._courseTableAdapter.Connection = CType(revertConnections(Me._courseTableAdapter),Global.System.Data.SqlClient.SqlConnection)

    10431. 

  10431.                     Me._courseTableAdapter.Transaction = Nothing

    10432. 

  10432.                 End If

    10433. 

  10433.                 If (Not (Me._courseGradeTableAdapter) Is Nothing) Then

    10434. 

  10434.                     Me._courseGradeTableAdapter.Connection = CType(revertConnections(Me._courseGradeTableAdapter),Global.System.Data.SqlClient.SqlConnection)

    10435. 

  10435.                     Me._courseGradeTableAdapter.Transaction = Nothing

    10436. 

  10436.                 End If

    10437. 

  10437.                 If (Not (Me._courseInstructorTableAdapter) Is Nothing) Then

    10438. 

  10438.                     Me._courseInstructorTableAdapter.Connection = CType(revertConnections(Me._courseInstructorTableAdapter),Global.System.Data.SqlClient.SqlConnection)

    10439. 

  10439.                     Me._courseInstructorTableAdapter.Transaction = Nothing

    10440. 

  10440.                 End If

    10441. 

  10441.                 If (Not (Me._departmentTableAdapter) Is Nothing) Then

    10442. 

  10442.                     Me._departmentTableAdapter.Connection = CType(revertConnections(Me._departmentTableAdapter),Global.System.Data.SqlClient.SqlConnection)

    10443. 

  10443.                     Me._departmentTableAdapter.Transaction = Nothing

    10444. 

  10444.                 End If

    10445. 

  10445.                 If (Not (Me._officeAssignmentTableAdapter) Is Nothing) Then

    10446. 

  10446.                     Me._officeAssignmentTableAdapter.Connection = CType(revertConnections(Me._officeAssignmentTableAdapter),Global.System.Data.SqlClient.SqlConnection)

    10447. 

  10447.                     Me._officeAssignmentTableAdapter.Transaction = Nothing

    10448. 

  10448.                 End If

    10449. 

  10449.                 If (Not (Me._onlineCourseTableAdapter) Is Nothing) Then

    10450. 

  10450.                     Me._onlineCourseTableAdapter.Connection = CType(revertConnections(Me._onlineCourseTableAdapter),Global.System.Data.SqlClient.SqlConnection)

    10451. 

  10451.                     Me._onlineCourseTableAdapter.Transaction = Nothing

    10452. 

  10452.                 End If

    10453. 

  10453.                 If (Not (Me._onsiteCourseTableAdapter) Is Nothing) Then

    10454. 

  10454.                     Me._onsiteCourseTableAdapter.Connection = CType(revertConnections(Me._onsiteCourseTableAdapter),Global.System.Data.SqlClient.SqlConnection)

    10455. 

  10455.                     Me._onsiteCourseTableAdapter.Transaction = Nothing

    10456. 

  10456.                 End If

    10457. 

  10457.                 If (Not (Me._personTableAdapter) Is Nothing) Then

    10458. 

  10458.                     Me._personTableAdapter.Connection = CType(revertConnections(Me._personTableAdapter),Global.System.Data.SqlClient.SqlConnection)

    10459. 

  10459.                     Me._personTableAdapter.Transaction = Nothing

    10460. 

  10460.                 End If

    10461. 

  10461.                 If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then

    10462. 

  10462.                     Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter

    10463. 

  10463.                     adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters)

    10464. 

  10464.                     Dim i As Integer = 0

    10465. 

  10465.                     Do While (i < adapters.Length)

    10466. 

  10466.                         Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i)

    10467. 

  10467.                         adapter.AcceptChangesDuringUpdate = true

    10468. 

  10468.                         i = (i + 1)

    10469. 

  10469.                     Loop

    10470. 

  10470.                 End If

    10471. 

  10471.             End Try

    10472. 

  10472.             Return result

    10473. 

  10473.         End Function

    10474. 

  10474.         

    10475. 

  10475.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    10476. 

  10476.         Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)

    10477. 

  10477.             Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst))

    10478. 

  10478.         End Sub

    10479. 

  10479.         

    10480. 

  10480.         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    10481. 

  10481.         Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean

    10482. 

  10482.             If (Not (Me._connection) Is Nothing) Then

    10483. 

  10483.                 Return true

    10484. 

  10484.             End If

    10485. 

  10485.             If ((Me.Connection Is Nothing)  _

    10486. 

  10486.                         OrElse (inputConnection Is Nothing)) Then

    10487. 

  10487.                 Return true

    10488. 

  10488.             End If

    10489. 

  10489.             If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then

    10490. 

  10490.                 Return true

    10491. 

  10491.             End If

    10492. 

  10492.             Return false

    10493. 

  10493.         End Function

    10494. 

  10494.         

    10495. 

  10495.         '''<summary>

    10496. 

  10496.         '''Update Order Option

    10497. 

  10497.         '''</summary>

    10498. 

  10498.         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")>  _

    10499. 

  10499.         Public Enum UpdateOrderOption

    10500. 

  10500.             

    10501. 

  10501.             InsertUpdateDelete = 0

    10502. 

  10502.             

    10503. 

  10503.             UpdateInsertDelete = 1

    10504. 

  10504.         End Enum

    10505. 

  10505.         

    10506. 

  10506.         '''<summary>

    10507. 

  10507.         '''Used to sort self-referenced table's rows

    10508. 

  10508.         '''</summary>

    10509. 

  10509.         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")>  _

    10510. 

  10510.         Private Class SelfReferenceComparer

    10511. 

  10511.             Inherits Object

    10512. 

  10512.             Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow)

    10513. 

  10513.             

    10514. 

  10514.             Private _relation As Global.System.Data.DataRelation

    10515. 

  10515.             

    10516. 

  10516.             Private _childFirst As Integer

    10517. 

  10517.             

    10518. 

  10518.             <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    10519. 

  10519.             Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)

    10520. 

  10520.                 MyBase.New

    10521. 

  10521.                 Me._relation = relation

    10522. 

  10522.                 If childFirst Then

    10523. 

  10523.                     Me._childFirst = -1

    10524. 

  10524.                 Else

    10525. 

  10525.                     Me._childFirst = 1

    10526. 

  10526.                 End If

    10527. 

  10527.             End Sub

    10528. 

  10528.             

    10529. 

  10529.             <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    10530. 

  10530.             Private Function IsChildAndParent(ByVal child As Global.System.Data.DataRow, ByVal parent As Global.System.Data.DataRow) As Boolean

    10531. 

  10531.                 Global.System.Diagnostics.Debug.Assert((Not (child) Is Nothing))

    10532. 

  10532.                 Global.System.Diagnostics.Debug.Assert((Not (parent) Is Nothing))

    10533. 

  10533.                 Dim newParent As Global.System.Data.DataRow = child.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default])

    10534. 

  10534. 

    10535. 

  10535.                 Do While ((Not (newParent) Is Nothing)  _

    10536. 

  10536.                             AndAlso ((Object.ReferenceEquals(newParent, child) = false)  _

    10537. 

  10537.                             AndAlso (Object.ReferenceEquals(newParent, parent) = false)))

    10538. 

  10538.                     newParent = newParent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default])

    10539. 

  10539. 

    10540. 

  10540.                 Loop

    10541. 

  10541.                 If (newParent Is Nothing) Then

    10542. 

  10542.                     newParent = child.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original)

    10543. 

  10543.                     Do While ((Not (newParent) Is Nothing)  _

    10544. 

  10544.                                 AndAlso ((Object.ReferenceEquals(newParent, child) = false)  _

    10545. 

  10545.                                 AndAlso (Object.ReferenceEquals(newParent, parent) = false)))

    10546. 

  10546.                         newParent = newParent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original)

    10547. 

  10547. 

    10548. 

  10548.                     Loop

    10549. 

  10549.                 End If

    10550. 

  10550.                 If Object.ReferenceEquals(newParent, parent) Then

    10551. 

  10551.                     Return true

    10552. 

  10552.                 End If

    10553. 

  10553.                 Return false

    10554. 

  10554.             End Function

    10555. 

  10555.             

    10556. 

  10556.             <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _

    10557. 

  10557.             Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare

    10558. 

  10558.                 If Object.ReferenceEquals(row1, row2) Then

    10559. 

  10559.                     Return 0

    10560. 

  10560.                 End If

    10561. 

  10561.                 If (row1 Is Nothing) Then

    10562. 

  10562.                     Return -1

    10563. 

  10563.                 End If

    10564. 

  10564.                 If (row2 Is Nothing) Then

    10565. 

  10565.                     Return 1

    10566. 

  10566.                 End If

    10567. 

  10567. 

    10568. 

  10568.                 'Is row1 the child or grandchild of row2

    10569. 

  10569.                 If Me.IsChildAndParent(row1, row2) Then

    10570. 

  10570.                     Return Me._childFirst

    10571. 

  10571.                 End If

    10572. 

  10572. 

    10573. 

  10573.                 'Is row2 the child or grandchild of row1

    10574. 

  10574.                 If Me.IsChildAndParent(row2, row1) Then

    10575. 

  10575.                     Return (-1 * Me._childFirst)

    10576. 

  10576.                 End If

    10577. 

  10577.                 Return 0

    10578. 

  10578.             End Function

    10579. 

  10579.         End Class

    10580. 

  10580.     End Class

    10581. 

  10581. End Namespace
    10582.