PageRenderTime 99ms CodeModel.GetById 20ms RepoModel.GetById 0ms app.codeStats 1ms

/Source Code/SongDatabase/Data.Designer.vb

#
Visual Basic | 4521 lines | 3872 code | 565 blank | 84 comment | 30 complexity | 7c67175b9dcda14cdf5578321e65d9eb MD5 | raw file
    

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

    2. 

  2. ' <auto-generated>

    3. 

  3. '     This code was generated by a tool.

    4. 

  4. '     Runtime Version:4.0.30319.1

    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.Serializable(),  _

    20. 

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

    21. 

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

    22. 

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

    23. 

  23.  Global.System.Xml.Serialization.XmlRootAttribute("Data"),  _

    24. 

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

    25. 

  25. Partial Public Class Data

    26. 

  26.     Inherits Global.System.Data.DataSet

    27. 

  27.     

    28. 

  28.     Private tableSettings As SettingsDataTable

    29. 

  29.     

    30. 

  30.     Private tableSongs As SongsDataTable

    31. 

  31.     

    32. 

  32.     Private tableStyles As StylesDataTable

    33. 

  33.     

    34. 

  34.     Private tableBibles As BiblesDataTable

    35. 

  35.     

    36. 

  36.     Private tableCategories As CategoriesDataTable

    37. 

  37.     

    38. 

  38.     Private tableSongCategories As SongCategoriesDataTable

    39. 

  39.     

    40. 

  40.     Private tableProjectlets As ProjectletsDataTable

    41. 

  41.     

    42. 

  42.     Private tableLicenses As LicensesDataTable

    43. 

  43.     

    44. 

  44.     Private relationFK_Categories_SongCategories As Global.System.Data.DataRelation

    45. 

  45.     

    46. 

  46.     Private relationFK_Songs_SongCategories As Global.System.Data.DataRelation

    47. 

  47.     

    48. 

  48.     Private relationFK_Styles_Projectlets As Global.System.Data.DataRelation

    49. 

  49.     

    50. 

  50.     Private relationLicenses_Songs As Global.System.Data.DataRelation

    51. 

  51.     

    52. 

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

    53. 

  53.     

    54. 

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

    55. 

  55.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    56. 

  56.     Public Sub New()

    57. 

  57.         MyBase.New

    58. 

  58.         Me.BeginInit

    59. 

  59.         Me.InitClass

    60. 

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

    61. 

  61.         AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler

    62. 

  62.         AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler

    63. 

  63.         Me.EndInit

    64. 

  64.     End Sub

    65. 

  65.     

    66. 

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

    67. 

  67.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    68. 

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

    69. 

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

    70. 

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

    71. 

  71.             Me.InitVars(false)

    72. 

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

    73. 

  73.             AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1

    74. 

  74.             AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1

    75. 

  75.             Return

    76. 

  76.         End If

    77. 

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

    78. 

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

    79. 

  79.             Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()

    80. 

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

    81. 

  81.             If (Not (ds.Tables("Settings")) Is Nothing) Then

    82. 

  82.                 MyBase.Tables.Add(New SettingsDataTable(ds.Tables("Settings")))

    83. 

  83.             End If

    84. 

  84.             If (Not (ds.Tables("Songs")) Is Nothing) Then

    85. 

  85.                 MyBase.Tables.Add(New SongsDataTable(ds.Tables("Songs")))

    86. 

  86.             End If

    87. 

  87.             If (Not (ds.Tables("Styles")) Is Nothing) Then

    88. 

  88.                 MyBase.Tables.Add(New StylesDataTable(ds.Tables("Styles")))

    89. 

  89.             End If

    90. 

  90.             If (Not (ds.Tables("Bibles")) Is Nothing) Then

    91. 

  91.                 MyBase.Tables.Add(New BiblesDataTable(ds.Tables("Bibles")))

    92. 

  92.             End If

    93. 

  93.             If (Not (ds.Tables("Categories")) Is Nothing) Then

    94. 

  94.                 MyBase.Tables.Add(New CategoriesDataTable(ds.Tables("Categories")))

    95. 

  95.             End If

    96. 

  96.             If (Not (ds.Tables("SongCategories")) Is Nothing) Then

    97. 

  97.                 MyBase.Tables.Add(New SongCategoriesDataTable(ds.Tables("SongCategories")))

    98. 

  98.             End If

    99. 

  99.             If (Not (ds.Tables("Projectlets")) Is Nothing) Then

    100. 

  100.                 MyBase.Tables.Add(New ProjectletsDataTable(ds.Tables("Projectlets")))

    101. 

  101.             End If

    102. 

  102.             If (Not (ds.Tables("Licenses")) Is Nothing) Then

    103. 

  103.                 MyBase.Tables.Add(New LicensesDataTable(ds.Tables("Licenses")))

    104. 

  104.             End If

    105. 

  105.             Me.DataSetName = ds.DataSetName

    106. 

  106.             Me.Prefix = ds.Prefix

    107. 

  107.             Me.Namespace = ds.Namespace

    108. 

  108.             Me.Locale = ds.Locale

    109. 

  109.             Me.CaseSensitive = ds.CaseSensitive

    110. 

  110.             Me.EnforceConstraints = ds.EnforceConstraints

    111. 

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

    112. 

  112.             Me.InitVars

    113. 

  113.         Else

    114. 

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

    115. 

  115.         End If

    116. 

  116.         Me.GetSerializationData(info, context)

    117. 

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

    118. 

  118.         AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler

    119. 

  119.         AddHandler Me.Relations.CollectionChanged, schemaChangedHandler

    120. 

  120.     End Sub

    121. 

  121.     

    122. 

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

    123. 

  123.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"),  _

    124. 

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

    125. 

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

    126. 

  126.     Public ReadOnly Property Settings() As SettingsDataTable

    127. 

  127.         Get

    128. 

  128.             Return Me.tableSettings

    129. 

  129.         End Get

    130. 

  130.     End Property

    131. 

  131.     

    132. 

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

    133. 

  133.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"),  _

    134. 

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

    135. 

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

    136. 

  136.     Public ReadOnly Property Songs() As SongsDataTable

    137. 

  137.         Get

    138. 

  138.             Return Me.tableSongs

    139. 

  139.         End Get

    140. 

  140.     End Property

    141. 

  141.     

    142. 

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

    143. 

  143.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"),  _

    144. 

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

    145. 

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

    146. 

  146.     Public ReadOnly Property Styles() As StylesDataTable

    147. 

  147.         Get

    148. 

  148.             Return Me.tableStyles

    149. 

  149.         End Get

    150. 

  150.     End Property

    151. 

  151.     

    152. 

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

    153. 

  153.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"),  _

    154. 

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

    155. 

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

    156. 

  156.     Public ReadOnly Property Bibles() As BiblesDataTable

    157. 

  157.         Get

    158. 

  158.             Return Me.tableBibles

    159. 

  159.         End Get

    160. 

  160.     End Property

    161. 

  161.     

    162. 

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

    163. 

  163.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"),  _

    164. 

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

    165. 

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

    166. 

  166.     Public ReadOnly Property Categories() As CategoriesDataTable

    167. 

  167.         Get

    168. 

  168.             Return Me.tableCategories

    169. 

  169.         End Get

    170. 

  170.     End Property

    171. 

  171.     

    172. 

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

    173. 

  173.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"),  _

    174. 

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

    175. 

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

    176. 

  176.     Public ReadOnly Property SongCategories() As SongCategoriesDataTable

    177. 

  177.         Get

    178. 

  178.             Return Me.tableSongCategories

    179. 

  179.         End Get

    180. 

  180.     End Property

    181. 

  181.     

    182. 

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

    183. 

  183.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"),  _

    184. 

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

    185. 

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

    186. 

  186.     Public ReadOnly Property Projectlets() As ProjectletsDataTable

    187. 

  187.         Get

    188. 

  188.             Return Me.tableProjectlets

    189. 

  189.         End Get

    190. 

  190.     End Property

    191. 

  191.     

    192. 

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

    193. 

  193.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"),  _

    194. 

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

    195. 

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

    196. 

  196.     Public ReadOnly Property Licenses() As LicensesDataTable

    197. 

  197.         Get

    198. 

  198.             Return Me.tableLicenses

    199. 

  199.         End Get

    200. 

  200.     End Property

    201. 

  201.     

    202. 

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

    203. 

  203.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"),  _

    204. 

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

    205. 

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

    206. 

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

    207. 

  207.         Get

    208. 

  208.             Return Me._schemaSerializationMode

    209. 

  209.         End Get

    210. 

  210.         Set

    211. 

  211.             Me._schemaSerializationMode = value

    212. 

  212.         End Set

    213. 

  213.     End Property

    214. 

  214.     

    215. 

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

    216. 

  216.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"),  _

    217. 

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

    218. 

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

    219. 

  219.         Get

    220. 

  220.             Return MyBase.Tables

    221. 

  221.         End Get

    222. 

  222.     End Property

    223. 

  223.     

    224. 

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

    225. 

  225.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"),  _

    226. 

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

    227. 

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

    228. 

  228.         Get

    229. 

  229.             Return MyBase.Relations

    230. 

  230.         End Get

    231. 

  231.     End Property

    232. 

  232.     

    233. 

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

    234. 

  234.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    235. 

  235.     Protected Overrides Sub InitializeDerivedDataSet()

    236. 

  236.         Me.BeginInit

    237. 

  237.         Me.InitClass

    238. 

  238.         Me.EndInit

    239. 

  239.     End Sub

    240. 

  240.     

    241. 

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

    242. 

  242.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    243. 

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

    244. 

  244.         Dim cln As Data = CType(MyBase.Clone,Data)

    245. 

  245.         cln.InitVars

    246. 

  246.         cln.SchemaSerializationMode = Me.SchemaSerializationMode

    247. 

  247.         Return cln

    248. 

  248.     End Function

    249. 

  249.     

    250. 

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

    251. 

  251.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    252. 

  252.     Protected Overrides Function ShouldSerializeTables() As Boolean

    253. 

  253.         Return false

    254. 

  254.     End Function

    255. 

  255.     

    256. 

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

    257. 

  257.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    258. 

  258.     Protected Overrides Function ShouldSerializeRelations() As Boolean

    259. 

  259.         Return false

    260. 

  260.     End Function

    261. 

  261.     

    262. 

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

    263. 

  263.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    264. 

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

    265. 

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

    266. 

  266.             Me.Reset

    267. 

  267.             Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()

    268. 

  268.             ds.ReadXml(reader)

    269. 

  269.             If (Not (ds.Tables("Settings")) Is Nothing) Then

    270. 

  270.                 MyBase.Tables.Add(New SettingsDataTable(ds.Tables("Settings")))

    271. 

  271.             End If

    272. 

  272.             If (Not (ds.Tables("Songs")) Is Nothing) Then

    273. 

  273.                 MyBase.Tables.Add(New SongsDataTable(ds.Tables("Songs")))

    274. 

  274.             End If

    275. 

  275.             If (Not (ds.Tables("Styles")) Is Nothing) Then

    276. 

  276.                 MyBase.Tables.Add(New StylesDataTable(ds.Tables("Styles")))

    277. 

  277.             End If

    278. 

  278.             If (Not (ds.Tables("Bibles")) Is Nothing) Then

    279. 

  279.                 MyBase.Tables.Add(New BiblesDataTable(ds.Tables("Bibles")))

    280. 

  280.             End If

    281. 

  281.             If (Not (ds.Tables("Categories")) Is Nothing) Then

    282. 

  282.                 MyBase.Tables.Add(New CategoriesDataTable(ds.Tables("Categories")))

    283. 

  283.             End If

    284. 

  284.             If (Not (ds.Tables("SongCategories")) Is Nothing) Then

    285. 

  285.                 MyBase.Tables.Add(New SongCategoriesDataTable(ds.Tables("SongCategories")))

    286. 

  286.             End If

    287. 

  287.             If (Not (ds.Tables("Projectlets")) Is Nothing) Then

    288. 

  288.                 MyBase.Tables.Add(New ProjectletsDataTable(ds.Tables("Projectlets")))

    289. 

  289.             End If

    290. 

  290.             If (Not (ds.Tables("Licenses")) Is Nothing) Then

    291. 

  291.                 MyBase.Tables.Add(New LicensesDataTable(ds.Tables("Licenses")))

    292. 

  292.             End If

    293. 

  293.             Me.DataSetName = ds.DataSetName

    294. 

  294.             Me.Prefix = ds.Prefix

    295. 

  295.             Me.Namespace = ds.Namespace

    296. 

  296.             Me.Locale = ds.Locale

    297. 

  297.             Me.CaseSensitive = ds.CaseSensitive

    298. 

  298.             Me.EnforceConstraints = ds.EnforceConstraints

    299. 

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

    300. 

  300.             Me.InitVars

    301. 

  301.         Else

    302. 

  302.             Me.ReadXml(reader)

    303. 

  303.             Me.InitVars

    304. 

  304.         End If

    305. 

  305.     End Sub

    306. 

  306.     

    307. 

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

    308. 

  308.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    309. 

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

    310. 

  310.         Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()

    311. 

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

    312. 

  312.         stream.Position = 0

    313. 

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

    314. 

  314.     End Function

    315. 

  315.     

    316. 

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

    317. 

  317.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    318. 

  318.     Friend Overloads Sub InitVars()

    319. 

  319.         Me.InitVars(true)

    320. 

  320.     End Sub

    321. 

  321.     

    322. 

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

    323. 

  323.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    324. 

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

    325. 

  325.         Me.tableSettings = CType(MyBase.Tables("Settings"),SettingsDataTable)

    326. 

  326.         If (initTable = true) Then

    327. 

  327.             If (Not (Me.tableSettings) Is Nothing) Then

    328. 

  328.                 Me.tableSettings.InitVars

    329. 

  329.             End If

    330. 

  330.         End If

    331. 

  331.         Me.tableSongs = CType(MyBase.Tables("Songs"),SongsDataTable)

    332. 

  332.         If (initTable = true) Then

    333. 

  333.             If (Not (Me.tableSongs) Is Nothing) Then

    334. 

  334.                 Me.tableSongs.InitVars

    335. 

  335.             End If

    336. 

  336.         End If

    337. 

  337.         Me.tableStyles = CType(MyBase.Tables("Styles"),StylesDataTable)

    338. 

  338.         If (initTable = true) Then

    339. 

  339.             If (Not (Me.tableStyles) Is Nothing) Then

    340. 

  340.                 Me.tableStyles.InitVars

    341. 

  341.             End If

    342. 

  342.         End If

    343. 

  343.         Me.tableBibles = CType(MyBase.Tables("Bibles"),BiblesDataTable)

    344. 

  344.         If (initTable = true) Then

    345. 

  345.             If (Not (Me.tableBibles) Is Nothing) Then

    346. 

  346.                 Me.tableBibles.InitVars

    347. 

  347.             End If

    348. 

  348.         End If

    349. 

  349.         Me.tableCategories = CType(MyBase.Tables("Categories"),CategoriesDataTable)

    350. 

  350.         If (initTable = true) Then

    351. 

  351.             If (Not (Me.tableCategories) Is Nothing) Then

    352. 

  352.                 Me.tableCategories.InitVars

    353. 

  353.             End If

    354. 

  354.         End If

    355. 

  355.         Me.tableSongCategories = CType(MyBase.Tables("SongCategories"),SongCategoriesDataTable)

    356. 

  356.         If (initTable = true) Then

    357. 

  357.             If (Not (Me.tableSongCategories) Is Nothing) Then

    358. 

  358.                 Me.tableSongCategories.InitVars

    359. 

  359.             End If

    360. 

  360.         End If

    361. 

  361.         Me.tableProjectlets = CType(MyBase.Tables("Projectlets"),ProjectletsDataTable)

    362. 

  362.         If (initTable = true) Then

    363. 

  363.             If (Not (Me.tableProjectlets) Is Nothing) Then

    364. 

  364.                 Me.tableProjectlets.InitVars

    365. 

  365.             End If

    366. 

  366.         End If

    367. 

  367.         Me.tableLicenses = CType(MyBase.Tables("Licenses"),LicensesDataTable)

    368. 

  368.         If (initTable = true) Then

    369. 

  369.             If (Not (Me.tableLicenses) Is Nothing) Then

    370. 

  370.                 Me.tableLicenses.InitVars

    371. 

  371.             End If

    372. 

  372.         End If

    373. 

  373.         Me.relationFK_Categories_SongCategories = Me.Relations("FK_Categories_SongCategories")

    374. 

  374.         Me.relationFK_Songs_SongCategories = Me.Relations("FK_Songs_SongCategories")

    375. 

  375.         Me.relationFK_Styles_Projectlets = Me.Relations("FK_Styles_Projectlets")

    376. 

  376.         Me.relationLicenses_Songs = Me.Relations("Licenses_Songs")

    377. 

  377.     End Sub

    378. 

  378.     

    379. 

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

    380. 

  380.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    381. 

  381.     Private Sub InitClass()

    382. 

  382.         Me.DataSetName = "Data"

    383. 

  383.         Me.Prefix = ""

    384. 

  384.         Me.Namespace = "http://tempuri.org/Data.xsd"

    385. 

  385.         Me.EnforceConstraints = true

    386. 

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

    387. 

  387.         Me.tableSettings = New SettingsDataTable()

    388. 

  388.         MyBase.Tables.Add(Me.tableSettings)

    389. 

  389.         Me.tableSongs = New SongsDataTable()

    390. 

  390.         MyBase.Tables.Add(Me.tableSongs)

    391. 

  391.         Me.tableStyles = New StylesDataTable()

    392. 

  392.         MyBase.Tables.Add(Me.tableStyles)

    393. 

  393.         Me.tableBibles = New BiblesDataTable()

    394. 

  394.         MyBase.Tables.Add(Me.tableBibles)

    395. 

  395.         Me.tableCategories = New CategoriesDataTable()

    396. 

  396.         MyBase.Tables.Add(Me.tableCategories)

    397. 

  397.         Me.tableSongCategories = New SongCategoriesDataTable()

    398. 

  398.         MyBase.Tables.Add(Me.tableSongCategories)

    399. 

  399.         Me.tableProjectlets = New ProjectletsDataTable()

    400. 

  400.         MyBase.Tables.Add(Me.tableProjectlets)

    401. 

  401.         Me.tableLicenses = New LicensesDataTable()

    402. 

  402.         MyBase.Tables.Add(Me.tableLicenses)

    403. 

  403.         Dim fkc As Global.System.Data.ForeignKeyConstraint

    404. 

  404.         fkc = New Global.System.Data.ForeignKeyConstraint("FK_Categories_SongCategories", New Global.System.Data.DataColumn() {Me.tableCategories.CategoryIDColumn}, New Global.System.Data.DataColumn() {Me.tableSongCategories.CategoryIDColumn})

    405. 

  405.         Me.tableSongCategories.Constraints.Add(fkc)

    406. 

  406.         fkc.AcceptRejectRule = Global.System.Data.AcceptRejectRule.None

    407. 

  407.         fkc.DeleteRule = Global.System.Data.Rule.Cascade

    408. 

  408.         fkc.UpdateRule = Global.System.Data.Rule.Cascade

    409. 

  409.         fkc = New Global.System.Data.ForeignKeyConstraint("FK_Songs_SongCategories", New Global.System.Data.DataColumn() {Me.tableSongs.SongIDColumn}, New Global.System.Data.DataColumn() {Me.tableSongCategories.SongIDColumn})

    410. 

  410.         Me.tableSongCategories.Constraints.Add(fkc)

    411. 

  411.         fkc.AcceptRejectRule = Global.System.Data.AcceptRejectRule.None

    412. 

  412.         fkc.DeleteRule = Global.System.Data.Rule.Cascade

    413. 

  413.         fkc.UpdateRule = Global.System.Data.Rule.Cascade

    414. 

  414.         fkc = New Global.System.Data.ForeignKeyConstraint("FK_Styles_Projectlets", New Global.System.Data.DataColumn() {Me.tableStyles.StyleIDColumn}, New Global.System.Data.DataColumn() {Me.tableProjectlets.StyleIDColumn})

    415. 

  415.         Me.tableProjectlets.Constraints.Add(fkc)

    416. 

  416.         fkc.AcceptRejectRule = Global.System.Data.AcceptRejectRule.None

    417. 

  417.         fkc.DeleteRule = Global.System.Data.Rule.Cascade

    418. 

  418.         fkc.UpdateRule = Global.System.Data.Rule.Cascade

    419. 

  419.         Me.relationFK_Categories_SongCategories = New Global.System.Data.DataRelation("FK_Categories_SongCategories", New Global.System.Data.DataColumn() {Me.tableCategories.CategoryIDColumn}, New Global.System.Data.DataColumn() {Me.tableSongCategories.CategoryIDColumn}, false)

    420. 

  420.         Me.Relations.Add(Me.relationFK_Categories_SongCategories)

    421. 

  421.         Me.relationFK_Songs_SongCategories = New Global.System.Data.DataRelation("FK_Songs_SongCategories", New Global.System.Data.DataColumn() {Me.tableSongs.SongIDColumn}, New Global.System.Data.DataColumn() {Me.tableSongCategories.SongIDColumn}, false)

    422. 

  422.         Me.Relations.Add(Me.relationFK_Songs_SongCategories)

    423. 

  423.         Me.relationFK_Styles_Projectlets = New Global.System.Data.DataRelation("FK_Styles_Projectlets", New Global.System.Data.DataColumn() {Me.tableStyles.StyleIDColumn}, New Global.System.Data.DataColumn() {Me.tableProjectlets.StyleIDColumn}, false)

    424. 

  424.         Me.Relations.Add(Me.relationFK_Styles_Projectlets)

    425. 

  425.         Me.relationLicenses_Songs = New Global.System.Data.DataRelation("Licenses_Songs", New Global.System.Data.DataColumn() {Me.tableLicenses.LicenseIDColumn}, New Global.System.Data.DataColumn() {Me.tableSongs.LicenseIDColumn}, false)

    426. 

  426.         Me.Relations.Add(Me.relationLicenses_Songs)

    427. 

  427.     End Sub

    428. 

  428.     

    429. 

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

    430. 

  430.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    431. 

  431.     Private Function ShouldSerializeSettings() As Boolean

    432. 

  432.         Return false

    433. 

  433.     End Function

    434. 

  434.     

    435. 

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

    436. 

  436.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    437. 

  437.     Private Function ShouldSerializeSongs() As Boolean

    438. 

  438.         Return false

    439. 

  439.     End Function

    440. 

  440.     

    441. 

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

    442. 

  442.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    443. 

  443.     Private Function ShouldSerializeStyles() As Boolean

    444. 

  444.         Return false

    445. 

  445.     End Function

    446. 

  446.     

    447. 

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

    448. 

  448.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    449. 

  449.     Private Function ShouldSerializeBibles() As Boolean

    450. 

  450.         Return false

    451. 

  451.     End Function

    452. 

  452.     

    453. 

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

    454. 

  454.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    455. 

  455.     Private Function ShouldSerializeCategories() As Boolean

    456. 

  456.         Return false

    457. 

  457.     End Function

    458. 

  458.     

    459. 

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

    460. 

  460.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    461. 

  461.     Private Function ShouldSerializeSongCategories() As Boolean

    462. 

  462.         Return false

    463. 

  463.     End Function

    464. 

  464.     

    465. 

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

    466. 

  466.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    467. 

  467.     Private Function ShouldSerializeProjectlets() As Boolean

    468. 

  468.         Return false

    469. 

  469.     End Function

    470. 

  470.     

    471. 

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

    472. 

  472.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    473. 

  473.     Private Function ShouldSerializeLicenses() As Boolean

    474. 

  474.         Return false

    475. 

  475.     End Function

    476. 

  476.     

    477. 

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

    478. 

  478.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    479. 

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

    480. 

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

    481. 

  481.             Me.InitVars

    482. 

  482.         End If

    483. 

  483.     End Sub

    484. 

  484.     

    485. 

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

    486. 

  486.      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    487. 

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

    488. 

  488.         Dim ds As Data = New Data()

    489. 

  489.         Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()

    490. 

  490.         Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()

    491. 

  491.         Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()

    492. 

  492.         any.Namespace = ds.Namespace

    493. 

  493.         sequence.Items.Add(any)

    494. 

  494.         type.Particle = sequence

    495. 

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

    496. 

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

    497. 

  497.             Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()

    498. 

  498.             Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()

    499. 

  499.             Try 

    500. 

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

    501. 

  501.                 dsSchema.Write(s1)

    502. 

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

    503. 

  503.                 Do While schemas.MoveNext

    504. 

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

    505. 

  505.                     s2.SetLength(0)

    506. 

  506.                     schema.Write(s2)

    507. 

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

    508. 

  508.                         s1.Position = 0

    509. 

  509.                         s2.Position = 0

    510. 

  510.                         

    511. 

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

    512. 

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

    513. 

  513.                             

    514. 

  514.                             

    515. 

  515.                         Loop

    516. 

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

    517. 

  517.                             Return type

    518. 

  518.                         End If

    519. 

  519.                     End If

    520. 

  520.                     

    521. 

  521.                 Loop

    522. 

  522.             Finally

    523. 

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

    524. 

  524.                     s1.Close

    525. 

  525.                 End If

    526. 

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

    527. 

  527.                     s2.Close

    528. 

  528.                 End If

    529. 

  529.             End Try

    530. 

  530.         End If

    531. 

  531.         xs.Add(dsSchema)

    532. 

  532.         Return type

    533. 

  533.     End Function

    534. 

  534.     

    535. 

  535.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    536. 

  536.     Public Delegate Sub SettingsRowChangeEventHandler(ByVal sender As Object, ByVal e As SettingsRowChangeEvent)

    537. 

  537.     

    538. 

  538.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    539. 

  539.     Public Delegate Sub SongsRowChangeEventHandler(ByVal sender As Object, ByVal e As SongsRowChangeEvent)

    540. 

  540.     

    541. 

  541.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    542. 

  542.     Public Delegate Sub StylesRowChangeEventHandler(ByVal sender As Object, ByVal e As StylesRowChangeEvent)

    543. 

  543.     

    544. 

  544.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    545. 

  545.     Public Delegate Sub BiblesRowChangeEventHandler(ByVal sender As Object, ByVal e As BiblesRowChangeEvent)

    546. 

  546.     

    547. 

  547.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    548. 

  548.     Public Delegate Sub CategoriesRowChangeEventHandler(ByVal sender As Object, ByVal e As CategoriesRowChangeEvent)

    549. 

  549.     

    550. 

  550.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    551. 

  551.     Public Delegate Sub SongCategoriesRowChangeEventHandler(ByVal sender As Object, ByVal e As SongCategoriesRowChangeEvent)

    552. 

  552.     

    553. 

  553.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    554. 

  554.     Public Delegate Sub ProjectletsRowChangeEventHandler(ByVal sender As Object, ByVal e As ProjectletsRowChangeEvent)

    555. 

  555.     

    556. 

  556.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    557. 

  557.     Public Delegate Sub LicensesRowChangeEventHandler(ByVal sender As Object, ByVal e As LicensesRowChangeEvent)

    558. 

  558.     

    559. 

  559.     '''<summary>

    560. 

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

    561. 

  561.     '''</summary>

    562. 

  562.     <Global.System.Serializable(),  _

    563. 

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

    564. 

  564.     Partial Public Class SettingsDataTable

    565. 

  565.         Inherits Global.System.Data.DataTable

    566. 

  566.         Implements Global.System.Collections.IEnumerable

    567. 

  567.         

    568. 

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

    569. 

  569.         

    570. 

  570.         Private columnValue As Global.System.Data.DataColumn

    571. 

  571.         

    572. 

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

    573. 

  573.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    574. 

  574.         Public Sub New()

    575. 

  575.             MyBase.New

    576. 

  576.             Me.TableName = "Settings"

    577. 

  577.             Me.BeginInit

    578. 

  578.             Me.InitClass

    579. 

  579.             Me.EndInit

    580. 

  580.         End Sub

    581. 

  581.         

    582. 

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

    583. 

  583.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    584. 

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

    585. 

  585.             MyBase.New

    586. 

  586.             Me.TableName = table.TableName

    587. 

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

    588. 

  588.                 Me.CaseSensitive = table.CaseSensitive

    589. 

  589.             End If

    590. 

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

    591. 

  591.                 Me.Locale = table.Locale

    592. 

  592.             End If

    593. 

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

    594. 

  594.                 Me.Namespace = table.Namespace

    595. 

  595.             End If

    596. 

  596.             Me.Prefix = table.Prefix

    597. 

  597.             Me.MinimumCapacity = table.MinimumCapacity

    598. 

  598.         End Sub

    599. 

  599.         

    600. 

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

    601. 

  601.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    602. 

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

    603. 

  603.             MyBase.New(info, context)

    604. 

  604.             Me.InitVars

    605. 

  605.         End Sub

    606. 

  606.         

    607. 

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

    608. 

  608.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    609. 

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

    610. 

  610.             Get

    611. 

  611.                 Return Me.columnName

    612. 

  612.             End Get

    613. 

  613.         End Property

    614. 

  614.         

    615. 

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

    616. 

  616.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    617. 

  617.         Public ReadOnly Property ValueColumn() As Global.System.Data.DataColumn

    618. 

  618.             Get

    619. 

  619.                 Return Me.columnValue

    620. 

  620.             End Get

    621. 

  621.         End Property

    622. 

  622.         

    623. 

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

    624. 

  624.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"),  _

    625. 

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

    626. 

  626.         Public ReadOnly Property Count() As Integer

    627. 

  627.             Get

    628. 

  628.                 Return Me.Rows.Count

    629. 

  629.             End Get

    630. 

  630.         End Property

    631. 

  631.         

    632. 

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

    633. 

  633.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    634. 

  634.         Public Default ReadOnly Property Item(ByVal index As Integer) As SettingsRow

    635. 

  635.             Get

    636. 

  636.                 Return CType(Me.Rows(index),SettingsRow)

    637. 

  637.             End Get

    638. 

  638.         End Property

    639. 

  639.         

    640. 

  640.         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    641. 

  641.         Public Event SettingsRowChanging As SettingsRowChangeEventHandler

    642. 

  642.         

    643. 

  643.         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    644. 

  644.         Public Event SettingsRowChanged As SettingsRowChangeEventHandler

    645. 

  645.         

    646. 

  646.         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    647. 

  647.         Public Event SettingsRowDeleting As SettingsRowChangeEventHandler

    648. 

  648.         

    649. 

  649.         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    650. 

  650.         Public Event SettingsRowDeleted As SettingsRowChangeEventHandler

    651. 

  651.         

    652. 

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

    653. 

  653.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    654. 

  654.         Public Overloads Sub AddSettingsRow(ByVal row As SettingsRow)

    655. 

  655.             Me.Rows.Add(row)

    656. 

  656.         End Sub

    657. 

  657.         

    658. 

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

    659. 

  659.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    660. 

  660.         Public Overloads Function AddSettingsRow(ByVal Name As String, ByVal Value As String) As SettingsRow

    661. 

  661.             Dim rowSettingsRow As SettingsRow = CType(Me.NewRow,SettingsRow)

    662. 

  662.             Dim columnValuesArray() As Object = New Object() {Name, Value}

    663. 

  663.             rowSettingsRow.ItemArray = columnValuesArray

    664. 

  664.             Me.Rows.Add(rowSettingsRow)

    665. 

  665.             Return rowSettingsRow

    666. 

  666.         End Function

    667. 

  667.         

    668. 

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

    669. 

  669.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    670. 

  670.         Public Function FindByName(ByVal Name As String) As SettingsRow

    671. 

  671.             Return CType(Me.Rows.Find(New Object() {Name}),SettingsRow)

    672. 

  672.         End Function

    673. 

  673.         

    674. 

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

    675. 

  675.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    676. 

  676.         Public Overridable Function GetEnumerator() As Global.System.Collections.IEnumerator Implements Global.System.Collections.IEnumerable.GetEnumerator

    677. 

  677.             Return Me.Rows.GetEnumerator

    678. 

  678.         End Function

    679. 

  679.         

    680. 

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

    681. 

  681.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    682. 

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

    683. 

  683.             Dim cln As SettingsDataTable = CType(MyBase.Clone,SettingsDataTable)

    684. 

  684.             cln.InitVars

    685. 

  685.             Return cln

    686. 

  686.         End Function

    687. 

  687.         

    688. 

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

    689. 

  689.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    690. 

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

    691. 

  691.             Return New SettingsDataTable()

    692. 

  692.         End Function

    693. 

  693.         

    694. 

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

    695. 

  695.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    696. 

  696.         Friend Sub InitVars()

    697. 

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

    698. 

  698.             Me.columnValue = MyBase.Columns("Value")

    699. 

  699.         End Sub

    700. 

  700.         

    701. 

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

    702. 

  702.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    703. 

  703.         Private Sub InitClass()

    704. 

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

    705. 

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

    706. 

  706.             Me.columnValue = New Global.System.Data.DataColumn("Value", GetType(String), Nothing, Global.System.Data.MappingType.Element)

    707. 

  707.             MyBase.Columns.Add(Me.columnValue)

    708. 

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

    709. 

  709.             Me.columnName.AllowDBNull = false

    710. 

  710.             Me.columnName.Unique = true

    711. 

  711.         End Sub

    712. 

  712.         

    713. 

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

    714. 

  714.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    715. 

  715.         Public Function NewSettingsRow() As SettingsRow

    716. 

  716.             Return CType(Me.NewRow,SettingsRow)

    717. 

  717.         End Function

    718. 

  718.         

    719. 

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

    720. 

  720.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    721. 

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

    722. 

  722.             Return New SettingsRow(builder)

    723. 

  723.         End Function

    724. 

  724.         

    725. 

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

    726. 

  726.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    727. 

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

    728. 

  728.             Return GetType(SettingsRow)

    729. 

  729.         End Function

    730. 

  730.         

    731. 

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

    732. 

  732.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    733. 

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

    734. 

  734.             MyBase.OnRowChanged(e)

    735. 

  735.             If (Not (Me.SettingsRowChangedEvent) Is Nothing) Then

    736. 

  736.                 RaiseEvent SettingsRowChanged(Me, New SettingsRowChangeEvent(CType(e.Row,SettingsRow), e.Action))

    737. 

  737.             End If

    738. 

  738.         End Sub

    739. 

  739.         

    740. 

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

    741. 

  741.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    742. 

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

    743. 

  743.             MyBase.OnRowChanging(e)

    744. 

  744.             If (Not (Me.SettingsRowChangingEvent) Is Nothing) Then

    745. 

  745.                 RaiseEvent SettingsRowChanging(Me, New SettingsRowChangeEvent(CType(e.Row,SettingsRow), e.Action))

    746. 

  746.             End If

    747. 

  747.         End Sub

    748. 

  748.         

    749. 

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

    750. 

  750.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    751. 

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

    752. 

  752.             MyBase.OnRowDeleted(e)

    753. 

  753.             If (Not (Me.SettingsRowDeletedEvent) Is Nothing) Then

    754. 

  754.                 RaiseEvent SettingsRowDeleted(Me, New SettingsRowChangeEvent(CType(e.Row,SettingsRow), e.Action))

    755. 

  755.             End If

    756. 

  756.         End Sub

    757. 

  757.         

    758. 

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

    759. 

  759.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    760. 

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

    761. 

  761.             MyBase.OnRowDeleting(e)

    762. 

  762.             If (Not (Me.SettingsRowDeletingEvent) Is Nothing) Then

    763. 

  763.                 RaiseEvent SettingsRowDeleting(Me, New SettingsRowChangeEvent(CType(e.Row,SettingsRow), e.Action))

    764. 

  764.             End If

    765. 

  765.         End Sub

    766. 

  766.         

    767. 

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

    768. 

  768.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    769. 

  769.         Public Sub RemoveSettingsRow(ByVal row As SettingsRow)

    770. 

  770.             Me.Rows.Remove(row)

    771. 

  771.         End Sub

    772. 

  772.         

    773. 

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

    774. 

  774.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    775. 

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

    776. 

  776.             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()

    777. 

  777.             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()

    778. 

  778.             Dim ds As Data = New Data()

    779. 

  779.             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()

    780. 

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

    781. 

  781.             any1.MinOccurs = New Decimal(0)

    782. 

  782.             any1.MaxOccurs = Decimal.MaxValue

    783. 

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

    784. 

  784.             sequence.Items.Add(any1)

    785. 

  785.             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()

    786. 

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

    787. 

  787.             any2.MinOccurs = New Decimal(1)

    788. 

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

    789. 

  789.             sequence.Items.Add(any2)

    790. 

  790.             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()

    791. 

  791.             attribute1.Name = "namespace"

    792. 

  792.             attribute1.FixedValue = ds.Namespace

    793. 

  793.             type.Attributes.Add(attribute1)

    794. 

  794.             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()

    795. 

  795.             attribute2.Name = "tableTypeName"

    796. 

  796.             attribute2.FixedValue = "SettingsDataTable"

    797. 

  797.             type.Attributes.Add(attribute2)

    798. 

  798.             type.Particle = sequence

    799. 

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

    800. 

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

    801. 

  801.                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()

    802. 

  802.                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()

    803. 

  803.                 Try 

    804. 

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

    805. 

  805.                     dsSchema.Write(s1)

    806. 

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

    807. 

  807.                     Do While schemas.MoveNext

    808. 

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

    809. 

  809.                         s2.SetLength(0)

    810. 

  810.                         schema.Write(s2)

    811. 

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

    812. 

  812.                             s1.Position = 0

    813. 

  813.                             s2.Position = 0

    814. 

  814.                             

    815. 

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

    816. 

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

    817. 

  817.                                 

    818. 

  818.                                 

    819. 

  819.                             Loop

    820. 

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

    821. 

  821.                                 Return type

    822. 

  822.                             End If

    823. 

  823.                         End If

    824. 

  824.                         

    825. 

  825.                     Loop

    826. 

  826.                 Finally

    827. 

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

    828. 

  828.                         s1.Close

    829. 

  829.                     End If

    830. 

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

    831. 

  831.                         s2.Close

    832. 

  832.                     End If

    833. 

  833.                 End Try

    834. 

  834.             End If

    835. 

  835.             xs.Add(dsSchema)

    836. 

  836.             Return type

    837. 

  837.         End Function

    838. 

  838.     End Class

    839. 

  839.     

    840. 

  840.     '''<summary>

    841. 

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

    842. 

  842.     '''</summary>

    843. 

  843.     <Global.System.Serializable(),  _

    844. 

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

    845. 

  845.     Partial Public Class SongsDataTable

    846. 

  846.         Inherits Global.System.Data.DataTable

    847. 

  847.         Implements Global.System.Collections.IEnumerable

    848. 

  848.         

    849. 

  849.         Private columnSongID As Global.System.Data.DataColumn

    850. 

  850.         

    851. 

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

    852. 

  852.         

    853. 

  853.         Private columnLicenseID As Global.System.Data.DataColumn

    854. 

  854.         

    855. 

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

    856. 

  856.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    857. 

  857.         Public Sub New()

    858. 

  858.             MyBase.New

    859. 

  859.             Me.TableName = "Songs"

    860. 

  860.             Me.BeginInit

    861. 

  861.             Me.InitClass

    862. 

  862.             Me.EndInit

    863. 

  863.         End Sub

    864. 

  864.         

    865. 

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

    866. 

  866.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    867. 

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

    868. 

  868.             MyBase.New

    869. 

  869.             Me.TableName = table.TableName

    870. 

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

    871. 

  871.                 Me.CaseSensitive = table.CaseSensitive

    872. 

  872.             End If

    873. 

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

    874. 

  874.                 Me.Locale = table.Locale

    875. 

  875.             End If

    876. 

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

    877. 

  877.                 Me.Namespace = table.Namespace

    878. 

  878.             End If

    879. 

  879.             Me.Prefix = table.Prefix

    880. 

  880.             Me.MinimumCapacity = table.MinimumCapacity

    881. 

  881.         End Sub

    882. 

  882.         

    883. 

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

    884. 

  884.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    885. 

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

    886. 

  886.             MyBase.New(info, context)

    887. 

  887.             Me.InitVars

    888. 

  888.         End Sub

    889. 

  889.         

    890. 

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

    891. 

  891.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    892. 

  892.         Public ReadOnly Property SongIDColumn() As Global.System.Data.DataColumn

    893. 

  893.             Get

    894. 

  894.                 Return Me.columnSongID

    895. 

  895.             End Get

    896. 

  896.         End Property

    897. 

  897.         

    898. 

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

    899. 

  899.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    900. 

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

    901. 

  901.             Get

    902. 

  902.                 Return Me.columnTitle

    903. 

  903.             End Get

    904. 

  904.         End Property

    905. 

  905.         

    906. 

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

    907. 

  907.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    908. 

  908.         Public ReadOnly Property LicenseIDColumn() As Global.System.Data.DataColumn

    909. 

  909.             Get

    910. 

  910.                 Return Me.columnLicenseID

    911. 

  911.             End Get

    912. 

  912.         End Property

    913. 

  913.         

    914. 

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

    915. 

  915.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"),  _

    916. 

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

    917. 

  917.         Public ReadOnly Property Count() As Integer

    918. 

  918.             Get

    919. 

  919.                 Return Me.Rows.Count

    920. 

  920.             End Get

    921. 

  921.         End Property

    922. 

  922.         

    923. 

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

    924. 

  924.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    925. 

  925.         Public Default ReadOnly Property Item(ByVal index As Integer) As SongsRow

    926. 

  926.             Get

    927. 

  927.                 Return CType(Me.Rows(index),SongsRow)

    928. 

  928.             End Get

    929. 

  929.         End Property

    930. 

  930.         

    931. 

  931.         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    932. 

  932.         Public Event SongsRowChanging As SongsRowChangeEventHandler

    933. 

  933.         

    934. 

  934.         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    935. 

  935.         Public Event SongsRowChanged As SongsRowChangeEventHandler

    936. 

  936.         

    937. 

  937.         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    938. 

  938.         Public Event SongsRowDeleting As SongsRowChangeEventHandler

    939. 

  939.         

    940. 

  940.         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    941. 

  941.         Public Event SongsRowDeleted As SongsRowChangeEventHandler

    942. 

  942.         

    943. 

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

    944. 

  944.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    945. 

  945.         Public Overloads Sub AddSongsRow(ByVal row As SongsRow)

    946. 

  946.             Me.Rows.Add(row)

    947. 

  947.         End Sub

    948. 

  948.         

    949. 

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

    950. 

  950.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    951. 

  951.         Public Overloads Function AddSongsRow(ByVal SongID As System.Guid, ByVal Title As String, ByVal parentLicensesRowByLicenses_Songs As LicensesRow) As SongsRow

    952. 

  952.             Dim rowSongsRow As SongsRow = CType(Me.NewRow,SongsRow)

    953. 

  953.             Dim columnValuesArray() As Object = New Object() {SongID, Title, Nothing}

    954. 

  954.             If (Not (parentLicensesRowByLicenses_Songs) Is Nothing) Then

    955. 

  955.                 columnValuesArray(2) = parentLicensesRowByLicenses_Songs(0)

    956. 

  956.             End If

    957. 

  957.             rowSongsRow.ItemArray = columnValuesArray

    958. 

  958.             Me.Rows.Add(rowSongsRow)

    959. 

  959.             Return rowSongsRow

    960. 

  960.         End Function

    961. 

  961.         

    962. 

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

    963. 

  963.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    964. 

  964.         Public Function FindBySongID(ByVal SongID As System.Guid) As SongsRow

    965. 

  965.             Return CType(Me.Rows.Find(New Object() {SongID}),SongsRow)

    966. 

  966.         End Function

    967. 

  967.         

    968. 

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

    969. 

  969.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    970. 

  970.         Public Overridable Function GetEnumerator() As Global.System.Collections.IEnumerator Implements Global.System.Collections.IEnumerable.GetEnumerator

    971. 

  971.             Return Me.Rows.GetEnumerator

    972. 

  972.         End Function

    973. 

  973.         

    974. 

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

    975. 

  975.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    976. 

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

    977. 

  977.             Dim cln As SongsDataTable = CType(MyBase.Clone,SongsDataTable)

    978. 

  978.             cln.InitVars

    979. 

  979.             Return cln

    980. 

  980.         End Function

    981. 

  981.         

    982. 

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

    983. 

  983.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    984. 

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

    985. 

  985.             Return New SongsDataTable()

    986. 

  986.         End Function

    987. 

  987.         

    988. 

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

    989. 

  989.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    990. 

  990.         Friend Sub InitVars()

    991. 

  991.             Me.columnSongID = MyBase.Columns("SongID")

    992. 

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

    993. 

  993.             Me.columnLicenseID = MyBase.Columns("LicenseID")

    994. 

  994.         End Sub

    995. 

  995.         

    996. 

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

    997. 

  997.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    998. 

  998.         Private Sub InitClass()

    999. 

  999.             Me.columnSongID = New Global.System.Data.DataColumn("SongID", GetType(Global.System.Guid), Nothing, Global.System.Data.MappingType.Element)

    1000. 

  1000.             MyBase.Columns.Add(Me.columnSongID)

    1001. 

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

    1002. 

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

    1003. 

  1003.             Me.columnLicenseID = New Global.System.Data.DataColumn("LicenseID", GetType(Global.System.Guid), Nothing, Global.System.Data.MappingType.Element)

    1004. 

  1004.             MyBase.Columns.Add(Me.columnLicenseID)

    1005. 

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

    1006. 

  1006.             Me.columnSongID.AllowDBNull = false

    1007. 

  1007.             Me.columnSongID.Unique = true

    1008. 

  1008.         End Sub

    1009. 

  1009.         

    1010. 

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

    1011. 

  1011.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1012. 

  1012.         Public Function NewSongsRow() As SongsRow

    1013. 

  1013.             Return CType(Me.NewRow,SongsRow)

    1014. 

  1014.         End Function

    1015. 

  1015.         

    1016. 

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

    1017. 

  1017.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1018. 

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

    1019. 

  1019.             Return New SongsRow(builder)

    1020. 

  1020.         End Function

    1021. 

  1021.         

    1022. 

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

    1023. 

  1023.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1024. 

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

    1025. 

  1025.             Return GetType(SongsRow)

    1026. 

  1026.         End Function

    1027. 

  1027.         

    1028. 

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

    1029. 

  1029.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1030. 

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

    1031. 

  1031.             MyBase.OnRowChanged(e)

    1032. 

  1032.             If (Not (Me.SongsRowChangedEvent) Is Nothing) Then

    1033. 

  1033.                 RaiseEvent SongsRowChanged(Me, New SongsRowChangeEvent(CType(e.Row,SongsRow), e.Action))

    1034. 

  1034.             End If

    1035. 

  1035.         End Sub

    1036. 

  1036.         

    1037. 

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

    1038. 

  1038.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1039. 

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

    1040. 

  1040.             MyBase.OnRowChanging(e)

    1041. 

  1041.             If (Not (Me.SongsRowChangingEvent) Is Nothing) Then

    1042. 

  1042.                 RaiseEvent SongsRowChanging(Me, New SongsRowChangeEvent(CType(e.Row,SongsRow), e.Action))

    1043. 

  1043.             End If

    1044. 

  1044.         End Sub

    1045. 

  1045.         

    1046. 

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

    1047. 

  1047.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1048. 

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

    1049. 

  1049.             MyBase.OnRowDeleted(e)

    1050. 

  1050.             If (Not (Me.SongsRowDeletedEvent) Is Nothing) Then

    1051. 

  1051.                 RaiseEvent SongsRowDeleted(Me, New SongsRowChangeEvent(CType(e.Row,SongsRow), e.Action))

    1052. 

  1052.             End If

    1053. 

  1053.         End Sub

    1054. 

  1054.         

    1055. 

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

    1056. 

  1056.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1057. 

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

    1058. 

  1058.             MyBase.OnRowDeleting(e)

    1059. 

  1059.             If (Not (Me.SongsRowDeletingEvent) Is Nothing) Then

    1060. 

  1060.                 RaiseEvent SongsRowDeleting(Me, New SongsRowChangeEvent(CType(e.Row,SongsRow), e.Action))

    1061. 

  1061.             End If

    1062. 

  1062.         End Sub

    1063. 

  1063.         

    1064. 

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

    1065. 

  1065.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1066. 

  1066.         Public Sub RemoveSongsRow(ByVal row As SongsRow)

    1067. 

  1067.             Me.Rows.Remove(row)

    1068. 

  1068.         End Sub

    1069. 

  1069.         

    1070. 

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

    1071. 

  1071.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1072. 

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

    1073. 

  1073.             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()

    1074. 

  1074.             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()

    1075. 

  1075.             Dim ds As Data = New Data()

    1076. 

  1076.             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()

    1077. 

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

    1078. 

  1078.             any1.MinOccurs = New Decimal(0)

    1079. 

  1079.             any1.MaxOccurs = Decimal.MaxValue

    1080. 

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

    1081. 

  1081.             sequence.Items.Add(any1)

    1082. 

  1082.             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()

    1083. 

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

    1084. 

  1084.             any2.MinOccurs = New Decimal(1)

    1085. 

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

    1086. 

  1086.             sequence.Items.Add(any2)

    1087. 

  1087.             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()

    1088. 

  1088.             attribute1.Name = "namespace"

    1089. 

  1089.             attribute1.FixedValue = ds.Namespace

    1090. 

  1090.             type.Attributes.Add(attribute1)

    1091. 

  1091.             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()

    1092. 

  1092.             attribute2.Name = "tableTypeName"

    1093. 

  1093.             attribute2.FixedValue = "SongsDataTable"

    1094. 

  1094.             type.Attributes.Add(attribute2)

    1095. 

  1095.             type.Particle = sequence

    1096. 

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

    1097. 

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

    1098. 

  1098.                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()

    1099. 

  1099.                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()

    1100. 

  1100.                 Try 

    1101. 

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

    1102. 

  1102.                     dsSchema.Write(s1)

    1103. 

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

    1104. 

  1104.                     Do While schemas.MoveNext

    1105. 

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

    1106. 

  1106.                         s2.SetLength(0)

    1107. 

  1107.                         schema.Write(s2)

    1108. 

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

    1109. 

  1109.                             s1.Position = 0

    1110. 

  1110.                             s2.Position = 0

    1111. 

  1111.                             

    1112. 

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

    1113. 

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

    1114. 

  1114.                                 

    1115. 

  1115.                                 

    1116. 

  1116.                             Loop

    1117. 

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

    1118. 

  1118.                                 Return type

    1119. 

  1119.                             End If

    1120. 

  1120.                         End If

    1121. 

  1121.                         

    1122. 

  1122.                     Loop

    1123. 

  1123.                 Finally

    1124. 

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

    1125. 

  1125.                         s1.Close

    1126. 

  1126.                     End If

    1127. 

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

    1128. 

  1128.                         s2.Close

    1129. 

  1129.                     End If

    1130. 

  1130.                 End Try

    1131. 

  1131.             End If

    1132. 

  1132.             xs.Add(dsSchema)

    1133. 

  1133.             Return type

    1134. 

  1134.         End Function

    1135. 

  1135.     End Class

    1136. 

  1136.     

    1137. 

  1137.     '''<summary>

    1138. 

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

    1139. 

  1139.     '''</summary>

    1140. 

  1140.     <Global.System.Serializable(),  _

    1141. 

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

    1142. 

  1142.     Partial Public Class StylesDataTable

    1143. 

  1143.         Inherits Global.System.Data.DataTable

    1144. 

  1144.         Implements Global.System.Collections.IEnumerable

    1145. 

  1145.         

    1146. 

  1146.         Private columnStyleID As Global.System.Data.DataColumn

    1147. 

  1147.         

    1148. 

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

    1149. 

  1149.         

    1150. 

  1150.         Private columnDefaultBackgroundImage As Global.System.Data.DataColumn

    1151. 

  1151.         

    1152. 

  1152.         Private columnDefaultBackgroundColour As Global.System.Data.DataColumn

    1153. 

  1153.         

    1154. 

  1154.         Private columnGeneralFadeDuration As Global.System.Data.DataColumn

    1155. 

  1155.         

    1156. 

  1156.         Private columnVerseFade As Global.System.Data.DataColumn

    1157. 

  1157.         

    1158. 

  1158.         Private columnVerseFadeDuration As Global.System.Data.DataColumn

    1159. 

  1159.         

    1160. 

  1160.         Private columnGeneralFade As Global.System.Data.DataColumn

    1161. 

  1161.         

    1162. 

  1162.         Private columnBackgroundType As Global.System.Data.DataColumn

    1163. 

  1163.         

    1164. 

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

    1165. 

  1165.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1166. 

  1166.         Public Sub New()

    1167. 

  1167.             MyBase.New

    1168. 

  1168.             Me.TableName = "Styles"

    1169. 

  1169.             Me.BeginInit

    1170. 

  1170.             Me.InitClass

    1171. 

  1171.             Me.EndInit

    1172. 

  1172.         End Sub

    1173. 

  1173.         

    1174. 

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

    1175. 

  1175.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1176. 

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

    1177. 

  1177.             MyBase.New

    1178. 

  1178.             Me.TableName = table.TableName

    1179. 

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

    1180. 

  1180.                 Me.CaseSensitive = table.CaseSensitive

    1181. 

  1181.             End If

    1182. 

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

    1183. 

  1183.                 Me.Locale = table.Locale

    1184. 

  1184.             End If

    1185. 

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

    1186. 

  1186.                 Me.Namespace = table.Namespace

    1187. 

  1187.             End If

    1188. 

  1188.             Me.Prefix = table.Prefix

    1189. 

  1189.             Me.MinimumCapacity = table.MinimumCapacity

    1190. 

  1190.         End Sub

    1191. 

  1191.         

    1192. 

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

    1193. 

  1193.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1194. 

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

    1195. 

  1195.             MyBase.New(info, context)

    1196. 

  1196.             Me.InitVars

    1197. 

  1197.         End Sub

    1198. 

  1198.         

    1199. 

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

    1200. 

  1200.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1201. 

  1201.         Public ReadOnly Property StyleIDColumn() As Global.System.Data.DataColumn

    1202. 

  1202.             Get

    1203. 

  1203.                 Return Me.columnStyleID

    1204. 

  1204.             End Get

    1205. 

  1205.         End Property

    1206. 

  1206.         

    1207. 

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

    1208. 

  1208.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1209. 

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

    1210. 

  1210.             Get

    1211. 

  1211.                 Return Me.columnName

    1212. 

  1212.             End Get

    1213. 

  1213.         End Property

    1214. 

  1214.         

    1215. 

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

    1216. 

  1216.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1217. 

  1217.         Public ReadOnly Property DefaultBackgroundImageColumn() As Global.System.Data.DataColumn

    1218. 

  1218.             Get

    1219. 

  1219.                 Return Me.columnDefaultBackgroundImage

    1220. 

  1220.             End Get

    1221. 

  1221.         End Property

    1222. 

  1222.         

    1223. 

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

    1224. 

  1224.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1225. 

  1225.         Public ReadOnly Property DefaultBackgroundColourColumn() As Global.System.Data.DataColumn

    1226. 

  1226.             Get

    1227. 

  1227.                 Return Me.columnDefaultBackgroundColour

    1228. 

  1228.             End Get

    1229. 

  1229.         End Property

    1230. 

  1230.         

    1231. 

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

    1232. 

  1232.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1233. 

  1233.         Public ReadOnly Property GeneralFadeDurationColumn() As Global.System.Data.DataColumn

    1234. 

  1234.             Get

    1235. 

  1235.                 Return Me.columnGeneralFadeDuration

    1236. 

  1236.             End Get

    1237. 

  1237.         End Property

    1238. 

  1238.         

    1239. 

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

    1240. 

  1240.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1241. 

  1241.         Public ReadOnly Property VerseFadeColumn() As Global.System.Data.DataColumn

    1242. 

  1242.             Get

    1243. 

  1243.                 Return Me.columnVerseFade

    1244. 

  1244.             End Get

    1245. 

  1245.         End Property

    1246. 

  1246.         

    1247. 

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

    1248. 

  1248.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1249. 

  1249.         Public ReadOnly Property VerseFadeDurationColumn() As Global.System.Data.DataColumn

    1250. 

  1250.             Get

    1251. 

  1251.                 Return Me.columnVerseFadeDuration

    1252. 

  1252.             End Get

    1253. 

  1253.         End Property

    1254. 

  1254.         

    1255. 

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

    1256. 

  1256.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1257. 

  1257.         Public ReadOnly Property GeneralFadeColumn() As Global.System.Data.DataColumn

    1258. 

  1258.             Get

    1259. 

  1259.                 Return Me.columnGeneralFade

    1260. 

  1260.             End Get

    1261. 

  1261.         End Property

    1262. 

  1262.         

    1263. 

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

    1264. 

  1264.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1265. 

  1265.         Public ReadOnly Property BackgroundTypeColumn() As Global.System.Data.DataColumn

    1266. 

  1266.             Get

    1267. 

  1267.                 Return Me.columnBackgroundType

    1268. 

  1268.             End Get

    1269. 

  1269.         End Property

    1270. 

  1270.         

    1271. 

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

    1272. 

  1272.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"),  _

    1273. 

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

    1274. 

  1274.         Public ReadOnly Property Count() As Integer

    1275. 

  1275.             Get

    1276. 

  1276.                 Return Me.Rows.Count

    1277. 

  1277.             End Get

    1278. 

  1278.         End Property

    1279. 

  1279.         

    1280. 

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

    1281. 

  1281.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1282. 

  1282.         Public Default ReadOnly Property Item(ByVal index As Integer) As StylesRow

    1283. 

  1283.             Get

    1284. 

  1284.                 Return CType(Me.Rows(index),StylesRow)

    1285. 

  1285.             End Get

    1286. 

  1286.         End Property

    1287. 

  1287.         

    1288. 

  1288.         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1289. 

  1289.         Public Event StylesRowChanging As StylesRowChangeEventHandler

    1290. 

  1290.         

    1291. 

  1291.         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1292. 

  1292.         Public Event StylesRowChanged As StylesRowChangeEventHandler

    1293. 

  1293.         

    1294. 

  1294.         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1295. 

  1295.         Public Event StylesRowDeleting As StylesRowChangeEventHandler

    1296. 

  1296.         

    1297. 

  1297.         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1298. 

  1298.         Public Event StylesRowDeleted As StylesRowChangeEventHandler

    1299. 

  1299.         

    1300. 

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

    1301. 

  1301.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1302. 

  1302.         Public Overloads Sub AddStylesRow(ByVal row As StylesRow)

    1303. 

  1303.             Me.Rows.Add(row)

    1304. 

  1304.         End Sub

    1305. 

  1305.         

    1306. 

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

    1307. 

  1307.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1308. 

  1308.         Public Overloads Function AddStylesRow(ByVal StyleID As System.Guid, ByVal Name As String, ByVal DefaultBackgroundImage As String, ByVal DefaultBackgroundColour As Integer, ByVal GeneralFadeDuration As Integer, ByVal VerseFade As Integer, ByVal VerseFadeDuration As Integer, ByVal GeneralFade As Integer, ByVal BackgroundType As Integer) As StylesRow

    1309. 

  1309.             Dim rowStylesRow As StylesRow = CType(Me.NewRow,StylesRow)

    1310. 

  1310.             Dim columnValuesArray() As Object = New Object() {StyleID, Name, DefaultBackgroundImage, DefaultBackgroundColour, GeneralFadeDuration, VerseFade, VerseFadeDuration, GeneralFade, BackgroundType}

    1311. 

  1311.             rowStylesRow.ItemArray = columnValuesArray

    1312. 

  1312.             Me.Rows.Add(rowStylesRow)

    1313. 

  1313.             Return rowStylesRow

    1314. 

  1314.         End Function

    1315. 

  1315.         

    1316. 

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

    1317. 

  1317.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1318. 

  1318.         Public Function FindByStyleID(ByVal StyleID As System.Guid) As StylesRow

    1319. 

  1319.             Return CType(Me.Rows.Find(New Object() {StyleID}),StylesRow)

    1320. 

  1320.         End Function

    1321. 

  1321.         

    1322. 

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

    1323. 

  1323.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1324. 

  1324.         Public Overridable Function GetEnumerator() As Global.System.Collections.IEnumerator Implements Global.System.Collections.IEnumerable.GetEnumerator

    1325. 

  1325.             Return Me.Rows.GetEnumerator

    1326. 

  1326.         End Function

    1327. 

  1327.         

    1328. 

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

    1329. 

  1329.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1330. 

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

    1331. 

  1331.             Dim cln As StylesDataTable = CType(MyBase.Clone,StylesDataTable)

    1332. 

  1332.             cln.InitVars

    1333. 

  1333.             Return cln

    1334. 

  1334.         End Function

    1335. 

  1335.         

    1336. 

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

    1337. 

  1337.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1338. 

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

    1339. 

  1339.             Return New StylesDataTable()

    1340. 

  1340.         End Function

    1341. 

  1341.         

    1342. 

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

    1343. 

  1343.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1344. 

  1344.         Friend Sub InitVars()

    1345. 

  1345.             Me.columnStyleID = MyBase.Columns("StyleID")

    1346. 

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

    1347. 

  1347.             Me.columnDefaultBackgroundImage = MyBase.Columns("DefaultBackgroundImage")

    1348. 

  1348.             Me.columnDefaultBackgroundColour = MyBase.Columns("DefaultBackgroundColour")

    1349. 

  1349.             Me.columnGeneralFadeDuration = MyBase.Columns("GeneralFadeDuration")

    1350. 

  1350.             Me.columnVerseFade = MyBase.Columns("VerseFade")

    1351. 

  1351.             Me.columnVerseFadeDuration = MyBase.Columns("VerseFadeDuration")

    1352. 

  1352.             Me.columnGeneralFade = MyBase.Columns("GeneralFade")

    1353. 

  1353.             Me.columnBackgroundType = MyBase.Columns("BackgroundType")

    1354. 

  1354.         End Sub

    1355. 

  1355.         

    1356. 

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

    1357. 

  1357.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1358. 

  1358.         Private Sub InitClass()

    1359. 

  1359.             Me.columnStyleID = New Global.System.Data.DataColumn("StyleID", GetType(Global.System.Guid), Nothing, Global.System.Data.MappingType.Element)

    1360. 

  1360.             MyBase.Columns.Add(Me.columnStyleID)

    1361. 

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

    1362. 

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

    1363. 

  1363.             Me.columnDefaultBackgroundImage = New Global.System.Data.DataColumn("DefaultBackgroundImage", GetType(String), Nothing, Global.System.Data.MappingType.Element)

    1364. 

  1364.             MyBase.Columns.Add(Me.columnDefaultBackgroundImage)

    1365. 

  1365.             Me.columnDefaultBackgroundColour = New Global.System.Data.DataColumn("DefaultBackgroundColour", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)

    1366. 

  1366.             MyBase.Columns.Add(Me.columnDefaultBackgroundColour)

    1367. 

  1367.             Me.columnGeneralFadeDuration = New Global.System.Data.DataColumn("GeneralFadeDuration", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)

    1368. 

  1368.             MyBase.Columns.Add(Me.columnGeneralFadeDuration)

    1369. 

  1369.             Me.columnVerseFade = New Global.System.Data.DataColumn("VerseFade", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)

    1370. 

  1370.             MyBase.Columns.Add(Me.columnVerseFade)

    1371. 

  1371.             Me.columnVerseFadeDuration = New Global.System.Data.DataColumn("VerseFadeDuration", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)

    1372. 

  1372.             MyBase.Columns.Add(Me.columnVerseFadeDuration)

    1373. 

  1373.             Me.columnGeneralFade = New Global.System.Data.DataColumn("GeneralFade", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)

    1374. 

  1374.             MyBase.Columns.Add(Me.columnGeneralFade)

    1375. 

  1375.             Me.columnBackgroundType = New Global.System.Data.DataColumn("BackgroundType", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)

    1376. 

  1376.             MyBase.Columns.Add(Me.columnBackgroundType)

    1377. 

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

    1378. 

  1378.             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint2", New Global.System.Data.DataColumn() {Me.columnName}, false))

    1379. 

  1379.             Me.columnStyleID.AllowDBNull = false

    1380. 

  1380.             Me.columnStyleID.Unique = true

    1381. 

  1381.             Me.columnName.Unique = true

    1382. 

  1382.             Me.columnDefaultBackgroundImage.DefaultValue = CType("",String)

    1383. 

  1383.             Me.columnDefaultBackgroundColour.DefaultValue = CType(0,Integer)

    1384. 

  1384.         End Sub

    1385. 

  1385.         

    1386. 

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

    1387. 

  1387.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1388. 

  1388.         Public Function NewStylesRow() As StylesRow

    1389. 

  1389.             Return CType(Me.NewRow,StylesRow)

    1390. 

  1390.         End Function

    1391. 

  1391.         

    1392. 

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

    1393. 

  1393.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1394. 

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

    1395. 

  1395.             Return New StylesRow(builder)

    1396. 

  1396.         End Function

    1397. 

  1397.         

    1398. 

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

    1399. 

  1399.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1400. 

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

    1401. 

  1401.             Return GetType(StylesRow)

    1402. 

  1402.         End Function

    1403. 

  1403.         

    1404. 

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

    1405. 

  1405.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1406. 

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

    1407. 

  1407.             MyBase.OnRowChanged(e)

    1408. 

  1408.             If (Not (Me.StylesRowChangedEvent) Is Nothing) Then

    1409. 

  1409.                 RaiseEvent StylesRowChanged(Me, New StylesRowChangeEvent(CType(e.Row,StylesRow), e.Action))

    1410. 

  1410.             End If

    1411. 

  1411.         End Sub

    1412. 

  1412.         

    1413. 

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

    1414. 

  1414.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1415. 

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

    1416. 

  1416.             MyBase.OnRowChanging(e)

    1417. 

  1417.             If (Not (Me.StylesRowChangingEvent) Is Nothing) Then

    1418. 

  1418.                 RaiseEvent StylesRowChanging(Me, New StylesRowChangeEvent(CType(e.Row,StylesRow), e.Action))

    1419. 

  1419.             End If

    1420. 

  1420.         End Sub

    1421. 

  1421.         

    1422. 

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

    1423. 

  1423.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1424. 

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

    1425. 

  1425.             MyBase.OnRowDeleted(e)

    1426. 

  1426.             If (Not (Me.StylesRowDeletedEvent) Is Nothing) Then

    1427. 

  1427.                 RaiseEvent StylesRowDeleted(Me, New StylesRowChangeEvent(CType(e.Row,StylesRow), e.Action))

    1428. 

  1428.             End If

    1429. 

  1429.         End Sub

    1430. 

  1430.         

    1431. 

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

    1432. 

  1432.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1433. 

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

    1434. 

  1434.             MyBase.OnRowDeleting(e)

    1435. 

  1435.             If (Not (Me.StylesRowDeletingEvent) Is Nothing) Then

    1436. 

  1436.                 RaiseEvent StylesRowDeleting(Me, New StylesRowChangeEvent(CType(e.Row,StylesRow), e.Action))

    1437. 

  1437.             End If

    1438. 

  1438.         End Sub

    1439. 

  1439.         

    1440. 

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

    1441. 

  1441.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1442. 

  1442.         Public Sub RemoveStylesRow(ByVal row As StylesRow)

    1443. 

  1443.             Me.Rows.Remove(row)

    1444. 

  1444.         End Sub

    1445. 

  1445.         

    1446. 

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

    1447. 

  1447.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1448. 

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

    1449. 

  1449.             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()

    1450. 

  1450.             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()

    1451. 

  1451.             Dim ds As Data = New Data()

    1452. 

  1452.             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()

    1453. 

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

    1454. 

  1454.             any1.MinOccurs = New Decimal(0)

    1455. 

  1455.             any1.MaxOccurs = Decimal.MaxValue

    1456. 

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

    1457. 

  1457.             sequence.Items.Add(any1)

    1458. 

  1458.             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()

    1459. 

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

    1460. 

  1460.             any2.MinOccurs = New Decimal(1)

    1461. 

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

    1462. 

  1462.             sequence.Items.Add(any2)

    1463. 

  1463.             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()

    1464. 

  1464.             attribute1.Name = "namespace"

    1465. 

  1465.             attribute1.FixedValue = ds.Namespace

    1466. 

  1466.             type.Attributes.Add(attribute1)

    1467. 

  1467.             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()

    1468. 

  1468.             attribute2.Name = "tableTypeName"

    1469. 

  1469.             attribute2.FixedValue = "StylesDataTable"

    1470. 

  1470.             type.Attributes.Add(attribute2)

    1471. 

  1471.             type.Particle = sequence

    1472. 

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

    1473. 

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

    1474. 

  1474.                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()

    1475. 

  1475.                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()

    1476. 

  1476.                 Try 

    1477. 

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

    1478. 

  1478.                     dsSchema.Write(s1)

    1479. 

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

    1480. 

  1480.                     Do While schemas.MoveNext

    1481. 

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

    1482. 

  1482.                         s2.SetLength(0)

    1483. 

  1483.                         schema.Write(s2)

    1484. 

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

    1485. 

  1485.                             s1.Position = 0

    1486. 

  1486.                             s2.Position = 0

    1487. 

  1487.                             

    1488. 

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

    1489. 

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

    1490. 

  1490.                                 

    1491. 

  1491.                                 

    1492. 

  1492.                             Loop

    1493. 

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

    1494. 

  1494.                                 Return type

    1495. 

  1495.                             End If

    1496. 

  1496.                         End If

    1497. 

  1497.                         

    1498. 

  1498.                     Loop

    1499. 

  1499.                 Finally

    1500. 

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

    1501. 

  1501.                         s1.Close

    1502. 

  1502.                     End If

    1503. 

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

    1504. 

  1504.                         s2.Close

    1505. 

  1505.                     End If

    1506. 

  1506.                 End Try

    1507. 

  1507.             End If

    1508. 

  1508.             xs.Add(dsSchema)

    1509. 

  1509.             Return type

    1510. 

  1510.         End Function

    1511. 

  1511.     End Class

    1512. 

  1512.     

    1513. 

  1513.     '''<summary>

    1514. 

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

    1515. 

  1515.     '''</summary>

    1516. 

  1516.     <Global.System.Serializable(),  _

    1517. 

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

    1518. 

  1518.     Partial Public Class BiblesDataTable

    1519. 

  1519.         Inherits Global.System.Data.DataTable

    1520. 

  1520.         Implements Global.System.Collections.IEnumerable

    1521. 

  1521.         

    1522. 

  1522.         Private columnAcronym As Global.System.Data.DataColumn

    1523. 

  1523.         

    1524. 

  1524.         Private columnFileName As Global.System.Data.DataColumn

    1525. 

  1525.         

    1526. 

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

    1527. 

  1527.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1528. 

  1528.         Public Sub New()

    1529. 

  1529.             MyBase.New

    1530. 

  1530.             Me.TableName = "Bibles"

    1531. 

  1531.             Me.BeginInit

    1532. 

  1532.             Me.InitClass

    1533. 

  1533.             Me.EndInit

    1534. 

  1534.         End Sub

    1535. 

  1535.         

    1536. 

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

    1537. 

  1537.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1538. 

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

    1539. 

  1539.             MyBase.New

    1540. 

  1540.             Me.TableName = table.TableName

    1541. 

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

    1542. 

  1542.                 Me.CaseSensitive = table.CaseSensitive

    1543. 

  1543.             End If

    1544. 

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

    1545. 

  1545.                 Me.Locale = table.Locale

    1546. 

  1546.             End If

    1547. 

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

    1548. 

  1548.                 Me.Namespace = table.Namespace

    1549. 

  1549.             End If

    1550. 

  1550.             Me.Prefix = table.Prefix

    1551. 

  1551.             Me.MinimumCapacity = table.MinimumCapacity

    1552. 

  1552.         End Sub

    1553. 

  1553.         

    1554. 

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

    1555. 

  1555.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1556. 

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

    1557. 

  1557.             MyBase.New(info, context)

    1558. 

  1558.             Me.InitVars

    1559. 

  1559.         End Sub

    1560. 

  1560.         

    1561. 

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

    1562. 

  1562.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1563. 

  1563.         Public ReadOnly Property AcronymColumn() As Global.System.Data.DataColumn

    1564. 

  1564.             Get

    1565. 

  1565.                 Return Me.columnAcronym

    1566. 

  1566.             End Get

    1567. 

  1567.         End Property

    1568. 

  1568.         

    1569. 

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

    1570. 

  1570.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1571. 

  1571.         Public ReadOnly Property FileNameColumn() As Global.System.Data.DataColumn

    1572. 

  1572.             Get

    1573. 

  1573.                 Return Me.columnFileName

    1574. 

  1574.             End Get

    1575. 

  1575.         End Property

    1576. 

  1576.         

    1577. 

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

    1578. 

  1578.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"),  _

    1579. 

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

    1580. 

  1580.         Public ReadOnly Property Count() As Integer

    1581. 

  1581.             Get

    1582. 

  1582.                 Return Me.Rows.Count

    1583. 

  1583.             End Get

    1584. 

  1584.         End Property

    1585. 

  1585.         

    1586. 

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

    1587. 

  1587.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1588. 

  1588.         Public Default ReadOnly Property Item(ByVal index As Integer) As BiblesRow

    1589. 

  1589.             Get

    1590. 

  1590.                 Return CType(Me.Rows(index),BiblesRow)

    1591. 

  1591.             End Get

    1592. 

  1592.         End Property

    1593. 

  1593.         

    1594. 

  1594.         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1595. 

  1595.         Public Event BiblesRowChanging As BiblesRowChangeEventHandler

    1596. 

  1596.         

    1597. 

  1597.         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1598. 

  1598.         Public Event BiblesRowChanged As BiblesRowChangeEventHandler

    1599. 

  1599.         

    1600. 

  1600.         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1601. 

  1601.         Public Event BiblesRowDeleting As BiblesRowChangeEventHandler

    1602. 

  1602.         

    1603. 

  1603.         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1604. 

  1604.         Public Event BiblesRowDeleted As BiblesRowChangeEventHandler

    1605. 

  1605.         

    1606. 

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

    1607. 

  1607.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1608. 

  1608.         Public Overloads Sub AddBiblesRow(ByVal row As BiblesRow)

    1609. 

  1609.             Me.Rows.Add(row)

    1610. 

  1610.         End Sub

    1611. 

  1611.         

    1612. 

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

    1613. 

  1613.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1614. 

  1614.         Public Overloads Function AddBiblesRow(ByVal Acronym As String, ByVal FileName As String) As BiblesRow

    1615. 

  1615.             Dim rowBiblesRow As BiblesRow = CType(Me.NewRow,BiblesRow)

    1616. 

  1616.             Dim columnValuesArray() As Object = New Object() {Acronym, FileName}

    1617. 

  1617.             rowBiblesRow.ItemArray = columnValuesArray

    1618. 

  1618.             Me.Rows.Add(rowBiblesRow)

    1619. 

  1619.             Return rowBiblesRow

    1620. 

  1620.         End Function

    1621. 

  1621.         

    1622. 

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

    1623. 

  1623.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1624. 

  1624.         Public Overridable Function GetEnumerator() As Global.System.Collections.IEnumerator Implements Global.System.Collections.IEnumerable.GetEnumerator

    1625. 

  1625.             Return Me.Rows.GetEnumerator

    1626. 

  1626.         End Function

    1627. 

  1627.         

    1628. 

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

    1629. 

  1629.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1630. 

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

    1631. 

  1631.             Dim cln As BiblesDataTable = CType(MyBase.Clone,BiblesDataTable)

    1632. 

  1632.             cln.InitVars

    1633. 

  1633.             Return cln

    1634. 

  1634.         End Function

    1635. 

  1635.         

    1636. 

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

    1637. 

  1637.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1638. 

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

    1639. 

  1639.             Return New BiblesDataTable()

    1640. 

  1640.         End Function

    1641. 

  1641.         

    1642. 

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

    1643. 

  1643.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1644. 

  1644.         Friend Sub InitVars()

    1645. 

  1645.             Me.columnAcronym = MyBase.Columns("Acronym")

    1646. 

  1646.             Me.columnFileName = MyBase.Columns("FileName")

    1647. 

  1647.         End Sub

    1648. 

  1648.         

    1649. 

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

    1650. 

  1650.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1651. 

  1651.         Private Sub InitClass()

    1652. 

  1652.             Me.columnAcronym = New Global.System.Data.DataColumn("Acronym", GetType(String), Nothing, Global.System.Data.MappingType.Element)

    1653. 

  1653.             MyBase.Columns.Add(Me.columnAcronym)

    1654. 

  1654.             Me.columnFileName = New Global.System.Data.DataColumn("FileName", GetType(String), Nothing, Global.System.Data.MappingType.Element)

    1655. 

  1655.             MyBase.Columns.Add(Me.columnFileName)

    1656. 

  1656.         End Sub

    1657. 

  1657.         

    1658. 

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

    1659. 

  1659.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1660. 

  1660.         Public Function NewBiblesRow() As BiblesRow

    1661. 

  1661.             Return CType(Me.NewRow,BiblesRow)

    1662. 

  1662.         End Function

    1663. 

  1663.         

    1664. 

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

    1665. 

  1665.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1666. 

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

    1667. 

  1667.             Return New BiblesRow(builder)

    1668. 

  1668.         End Function

    1669. 

  1669.         

    1670. 

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

    1671. 

  1671.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1672. 

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

    1673. 

  1673.             Return GetType(BiblesRow)

    1674. 

  1674.         End Function

    1675. 

  1675.         

    1676. 

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

    1677. 

  1677.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1678. 

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

    1679. 

  1679.             MyBase.OnRowChanged(e)

    1680. 

  1680.             If (Not (Me.BiblesRowChangedEvent) Is Nothing) Then

    1681. 

  1681.                 RaiseEvent BiblesRowChanged(Me, New BiblesRowChangeEvent(CType(e.Row,BiblesRow), e.Action))

    1682. 

  1682.             End If

    1683. 

  1683.         End Sub

    1684. 

  1684.         

    1685. 

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

    1686. 

  1686.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1687. 

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

    1688. 

  1688.             MyBase.OnRowChanging(e)

    1689. 

  1689.             If (Not (Me.BiblesRowChangingEvent) Is Nothing) Then

    1690. 

  1690.                 RaiseEvent BiblesRowChanging(Me, New BiblesRowChangeEvent(CType(e.Row,BiblesRow), e.Action))

    1691. 

  1691.             End If

    1692. 

  1692.         End Sub

    1693. 

  1693.         

    1694. 

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

    1695. 

  1695.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1696. 

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

    1697. 

  1697.             MyBase.OnRowDeleted(e)

    1698. 

  1698.             If (Not (Me.BiblesRowDeletedEvent) Is Nothing) Then

    1699. 

  1699.                 RaiseEvent BiblesRowDeleted(Me, New BiblesRowChangeEvent(CType(e.Row,BiblesRow), e.Action))

    1700. 

  1700.             End If

    1701. 

  1701.         End Sub

    1702. 

  1702.         

    1703. 

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

    1704. 

  1704.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1705. 

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

    1706. 

  1706.             MyBase.OnRowDeleting(e)

    1707. 

  1707.             If (Not (Me.BiblesRowDeletingEvent) Is Nothing) Then

    1708. 

  1708.                 RaiseEvent BiblesRowDeleting(Me, New BiblesRowChangeEvent(CType(e.Row,BiblesRow), e.Action))

    1709. 

  1709.             End If

    1710. 

  1710.         End Sub

    1711. 

  1711.         

    1712. 

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

    1713. 

  1713.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1714. 

  1714.         Public Sub RemoveBiblesRow(ByVal row As BiblesRow)

    1715. 

  1715.             Me.Rows.Remove(row)

    1716. 

  1716.         End Sub

    1717. 

  1717.         

    1718. 

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

    1719. 

  1719.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1720. 

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

    1721. 

  1721.             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()

    1722. 

  1722.             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()

    1723. 

  1723.             Dim ds As Data = New Data()

    1724. 

  1724.             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()

    1725. 

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

    1726. 

  1726.             any1.MinOccurs = New Decimal(0)

    1727. 

  1727.             any1.MaxOccurs = Decimal.MaxValue

    1728. 

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

    1729. 

  1729.             sequence.Items.Add(any1)

    1730. 

  1730.             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()

    1731. 

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

    1732. 

  1732.             any2.MinOccurs = New Decimal(1)

    1733. 

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

    1734. 

  1734.             sequence.Items.Add(any2)

    1735. 

  1735.             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()

    1736. 

  1736.             attribute1.Name = "namespace"

    1737. 

  1737.             attribute1.FixedValue = ds.Namespace

    1738. 

  1738.             type.Attributes.Add(attribute1)

    1739. 

  1739.             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()

    1740. 

  1740.             attribute2.Name = "tableTypeName"

    1741. 

  1741.             attribute2.FixedValue = "BiblesDataTable"

    1742. 

  1742.             type.Attributes.Add(attribute2)

    1743. 

  1743.             type.Particle = sequence

    1744. 

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

    1745. 

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

    1746. 

  1746.                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()

    1747. 

  1747.                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()

    1748. 

  1748.                 Try 

    1749. 

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

    1750. 

  1750.                     dsSchema.Write(s1)

    1751. 

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

    1752. 

  1752.                     Do While schemas.MoveNext

    1753. 

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

    1754. 

  1754.                         s2.SetLength(0)

    1755. 

  1755.                         schema.Write(s2)

    1756. 

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

    1757. 

  1757.                             s1.Position = 0

    1758. 

  1758.                             s2.Position = 0

    1759. 

  1759.                             

    1760. 

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

    1761. 

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

    1762. 

  1762.                                 

    1763. 

  1763.                                 

    1764. 

  1764.                             Loop

    1765. 

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

    1766. 

  1766.                                 Return type

    1767. 

  1767.                             End If

    1768. 

  1768.                         End If

    1769. 

  1769.                         

    1770. 

  1770.                     Loop

    1771. 

  1771.                 Finally

    1772. 

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

    1773. 

  1773.                         s1.Close

    1774. 

  1774.                     End If

    1775. 

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

    1776. 

  1776.                         s2.Close

    1777. 

  1777.                     End If

    1778. 

  1778.                 End Try

    1779. 

  1779.             End If

    1780. 

  1780.             xs.Add(dsSchema)

    1781. 

  1781.             Return type

    1782. 

  1782.         End Function

    1783. 

  1783.     End Class

    1784. 

  1784.     

    1785. 

  1785.     '''<summary>

    1786. 

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

    1787. 

  1787.     '''</summary>

    1788. 

  1788.     <Global.System.Serializable(),  _

    1789. 

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

    1790. 

  1790.     Partial Public Class CategoriesDataTable

    1791. 

  1791.         Inherits Global.System.Data.DataTable

    1792. 

  1792.         Implements Global.System.Collections.IEnumerable

    1793. 

  1793.         

    1794. 

  1794.         Private columnCategoryID As Global.System.Data.DataColumn

    1795. 

  1795.         

    1796. 

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

    1797. 

  1797.         

    1798. 

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

    1799. 

  1799.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1800. 

  1800.         Public Sub New()

    1801. 

  1801.             MyBase.New

    1802. 

  1802.             Me.TableName = "Categories"

    1803. 

  1803.             Me.BeginInit

    1804. 

  1804.             Me.InitClass

    1805. 

  1805.             Me.EndInit

    1806. 

  1806.         End Sub

    1807. 

  1807.         

    1808. 

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

    1809. 

  1809.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1810. 

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

    1811. 

  1811.             MyBase.New

    1812. 

  1812.             Me.TableName = table.TableName

    1813. 

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

    1814. 

  1814.                 Me.CaseSensitive = table.CaseSensitive

    1815. 

  1815.             End If

    1816. 

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

    1817. 

  1817.                 Me.Locale = table.Locale

    1818. 

  1818.             End If

    1819. 

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

    1820. 

  1820.                 Me.Namespace = table.Namespace

    1821. 

  1821.             End If

    1822. 

  1822.             Me.Prefix = table.Prefix

    1823. 

  1823.             Me.MinimumCapacity = table.MinimumCapacity

    1824. 

  1824.         End Sub

    1825. 

  1825.         

    1826. 

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

    1827. 

  1827.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1828. 

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

    1829. 

  1829.             MyBase.New(info, context)

    1830. 

  1830.             Me.InitVars

    1831. 

  1831.         End Sub

    1832. 

  1832.         

    1833. 

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

    1834. 

  1834.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1835. 

  1835.         Public ReadOnly Property CategoryIDColumn() As Global.System.Data.DataColumn

    1836. 

  1836.             Get

    1837. 

  1837.                 Return Me.columnCategoryID

    1838. 

  1838.             End Get

    1839. 

  1839.         End Property

    1840. 

  1840.         

    1841. 

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

    1842. 

  1842.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1843. 

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

    1844. 

  1844.             Get

    1845. 

  1845.                 Return Me.columnName

    1846. 

  1846.             End Get

    1847. 

  1847.         End Property

    1848. 

  1848.         

    1849. 

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

    1850. 

  1850.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"),  _

    1851. 

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

    1852. 

  1852.         Public ReadOnly Property Count() As Integer

    1853. 

  1853.             Get

    1854. 

  1854.                 Return Me.Rows.Count

    1855. 

  1855.             End Get

    1856. 

  1856.         End Property

    1857. 

  1857.         

    1858. 

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

    1859. 

  1859.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1860. 

  1860.         Public Default ReadOnly Property Item(ByVal index As Integer) As CategoriesRow

    1861. 

  1861.             Get

    1862. 

  1862.                 Return CType(Me.Rows(index),CategoriesRow)

    1863. 

  1863.             End Get

    1864. 

  1864.         End Property

    1865. 

  1865.         

    1866. 

  1866.         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1867. 

  1867.         Public Event CategoriesRowChanging As CategoriesRowChangeEventHandler

    1868. 

  1868.         

    1869. 

  1869.         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1870. 

  1870.         Public Event CategoriesRowChanged As CategoriesRowChangeEventHandler

    1871. 

  1871.         

    1872. 

  1872.         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1873. 

  1873.         Public Event CategoriesRowDeleting As CategoriesRowChangeEventHandler

    1874. 

  1874.         

    1875. 

  1875.         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1876. 

  1876.         Public Event CategoriesRowDeleted As CategoriesRowChangeEventHandler

    1877. 

  1877.         

    1878. 

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

    1879. 

  1879.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1880. 

  1880.         Public Overloads Sub AddCategoriesRow(ByVal row As CategoriesRow)

    1881. 

  1881.             Me.Rows.Add(row)

    1882. 

  1882.         End Sub

    1883. 

  1883.         

    1884. 

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

    1885. 

  1885.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1886. 

  1886.         Public Overloads Function AddCategoriesRow(ByVal CategoryID As System.Guid, ByVal Name As String) As CategoriesRow

    1887. 

  1887.             Dim rowCategoriesRow As CategoriesRow = CType(Me.NewRow,CategoriesRow)

    1888. 

  1888.             Dim columnValuesArray() As Object = New Object() {CategoryID, Name}

    1889. 

  1889.             rowCategoriesRow.ItemArray = columnValuesArray

    1890. 

  1890.             Me.Rows.Add(rowCategoriesRow)

    1891. 

  1891.             Return rowCategoriesRow

    1892. 

  1892.         End Function

    1893. 

  1893.         

    1894. 

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

    1895. 

  1895.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1896. 

  1896.         Public Function FindByCategoryID(ByVal CategoryID As System.Guid) As CategoriesRow

    1897. 

  1897.             Return CType(Me.Rows.Find(New Object() {CategoryID}),CategoriesRow)

    1898. 

  1898.         End Function

    1899. 

  1899.         

    1900. 

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

    1901. 

  1901.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1902. 

  1902.         Public Overridable Function GetEnumerator() As Global.System.Collections.IEnumerator Implements Global.System.Collections.IEnumerable.GetEnumerator

    1903. 

  1903.             Return Me.Rows.GetEnumerator

    1904. 

  1904.         End Function

    1905. 

  1905.         

    1906. 

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

    1907. 

  1907.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1908. 

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

    1909. 

  1909.             Dim cln As CategoriesDataTable = CType(MyBase.Clone,CategoriesDataTable)

    1910. 

  1910.             cln.InitVars

    1911. 

  1911.             Return cln

    1912. 

  1912.         End Function

    1913. 

  1913.         

    1914. 

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

    1915. 

  1915.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1916. 

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

    1917. 

  1917.             Return New CategoriesDataTable()

    1918. 

  1918.         End Function

    1919. 

  1919.         

    1920. 

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

    1921. 

  1921.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1922. 

  1922.         Friend Sub InitVars()

    1923. 

  1923.             Me.columnCategoryID = MyBase.Columns("CategoryID")

    1924. 

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

    1925. 

  1925.         End Sub

    1926. 

  1926.         

    1927. 

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

    1928. 

  1928.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1929. 

  1929.         Private Sub InitClass()

    1930. 

  1930.             Me.columnCategoryID = New Global.System.Data.DataColumn("CategoryID", GetType(Global.System.Guid), Nothing, Global.System.Data.MappingType.Element)

    1931. 

  1931.             MyBase.Columns.Add(Me.columnCategoryID)

    1932. 

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

    1933. 

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

    1934. 

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

    1935. 

  1935.             Me.columnCategoryID.AllowDBNull = false

    1936. 

  1936.             Me.columnCategoryID.Unique = true

    1937. 

  1937.         End Sub

    1938. 

  1938.         

    1939. 

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

    1940. 

  1940.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1941. 

  1941.         Public Function NewCategoriesRow() As CategoriesRow

    1942. 

  1942.             Return CType(Me.NewRow,CategoriesRow)

    1943. 

  1943.         End Function

    1944. 

  1944.         

    1945. 

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

    1946. 

  1946.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1947. 

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

    1948. 

  1948.             Return New CategoriesRow(builder)

    1949. 

  1949.         End Function

    1950. 

  1950.         

    1951. 

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

    1952. 

  1952.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1953. 

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

    1954. 

  1954.             Return GetType(CategoriesRow)

    1955. 

  1955.         End Function

    1956. 

  1956.         

    1957. 

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

    1958. 

  1958.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1959. 

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

    1960. 

  1960.             MyBase.OnRowChanged(e)

    1961. 

  1961.             If (Not (Me.CategoriesRowChangedEvent) Is Nothing) Then

    1962. 

  1962.                 RaiseEvent CategoriesRowChanged(Me, New CategoriesRowChangeEvent(CType(e.Row,CategoriesRow), e.Action))

    1963. 

  1963.             End If

    1964. 

  1964.         End Sub

    1965. 

  1965.         

    1966. 

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

    1967. 

  1967.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1968. 

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

    1969. 

  1969.             MyBase.OnRowChanging(e)

    1970. 

  1970.             If (Not (Me.CategoriesRowChangingEvent) Is Nothing) Then

    1971. 

  1971.                 RaiseEvent CategoriesRowChanging(Me, New CategoriesRowChangeEvent(CType(e.Row,CategoriesRow), e.Action))

    1972. 

  1972.             End If

    1973. 

  1973.         End Sub

    1974. 

  1974.         

    1975. 

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

    1976. 

  1976.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1977. 

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

    1978. 

  1978.             MyBase.OnRowDeleted(e)

    1979. 

  1979.             If (Not (Me.CategoriesRowDeletedEvent) Is Nothing) Then

    1980. 

  1980.                 RaiseEvent CategoriesRowDeleted(Me, New CategoriesRowChangeEvent(CType(e.Row,CategoriesRow), e.Action))

    1981. 

  1981.             End If

    1982. 

  1982.         End Sub

    1983. 

  1983.         

    1984. 

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

    1985. 

  1985.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1986. 

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

    1987. 

  1987.             MyBase.OnRowDeleting(e)

    1988. 

  1988.             If (Not (Me.CategoriesRowDeletingEvent) Is Nothing) Then

    1989. 

  1989.                 RaiseEvent CategoriesRowDeleting(Me, New CategoriesRowChangeEvent(CType(e.Row,CategoriesRow), e.Action))

    1990. 

  1990.             End If

    1991. 

  1991.         End Sub

    1992. 

  1992.         

    1993. 

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

    1994. 

  1994.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    1995. 

  1995.         Public Sub RemoveCategoriesRow(ByVal row As CategoriesRow)

    1996. 

  1996.             Me.Rows.Remove(row)

    1997. 

  1997.         End Sub

    1998. 

  1998.         

    1999. 

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

    2000. 

  2000.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2001. 

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

    2002. 

  2002.             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()

    2003. 

  2003.             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()

    2004. 

  2004.             Dim ds As Data = New Data()

    2005. 

  2005.             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()

    2006. 

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

    2007. 

  2007.             any1.MinOccurs = New Decimal(0)

    2008. 

  2008.             any1.MaxOccurs = Decimal.MaxValue

    2009. 

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

    2010. 

  2010.             sequence.Items.Add(any1)

    2011. 

  2011.             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()

    2012. 

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

    2013. 

  2013.             any2.MinOccurs = New Decimal(1)

    2014. 

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

    2015. 

  2015.             sequence.Items.Add(any2)

    2016. 

  2016.             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()

    2017. 

  2017.             attribute1.Name = "namespace"

    2018. 

  2018.             attribute1.FixedValue = ds.Namespace

    2019. 

  2019.             type.Attributes.Add(attribute1)

    2020. 

  2020.             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()

    2021. 

  2021.             attribute2.Name = "tableTypeName"

    2022. 

  2022.             attribute2.FixedValue = "CategoriesDataTable"

    2023. 

  2023.             type.Attributes.Add(attribute2)

    2024. 

  2024.             type.Particle = sequence

    2025. 

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

    2026. 

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

    2027. 

  2027.                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()

    2028. 

  2028.                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()

    2029. 

  2029.                 Try 

    2030. 

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

    2031. 

  2031.                     dsSchema.Write(s1)

    2032. 

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

    2033. 

  2033.                     Do While schemas.MoveNext

    2034. 

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

    2035. 

  2035.                         s2.SetLength(0)

    2036. 

  2036.                         schema.Write(s2)

    2037. 

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

    2038. 

  2038.                             s1.Position = 0

    2039. 

  2039.                             s2.Position = 0

    2040. 

  2040.                             

    2041. 

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

    2042. 

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

    2043. 

  2043.                                 

    2044. 

  2044.                                 

    2045. 

  2045.                             Loop

    2046. 

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

    2047. 

  2047.                                 Return type

    2048. 

  2048.                             End If

    2049. 

  2049.                         End If

    2050. 

  2050.                         

    2051. 

  2051.                     Loop

    2052. 

  2052.                 Finally

    2053. 

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

    2054. 

  2054.                         s1.Close

    2055. 

  2055.                     End If

    2056. 

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

    2057. 

  2057.                         s2.Close

    2058. 

  2058.                     End If

    2059. 

  2059.                 End Try

    2060. 

  2060.             End If

    2061. 

  2061.             xs.Add(dsSchema)

    2062. 

  2062.             Return type

    2063. 

  2063.         End Function

    2064. 

  2064.     End Class

    2065. 

  2065.     

    2066. 

  2066.     '''<summary>

    2067. 

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

    2068. 

  2068.     '''</summary>

    2069. 

  2069.     <Global.System.Serializable(),  _

    2070. 

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

    2071. 

  2071.     Partial Public Class SongCategoriesDataTable

    2072. 

  2072.         Inherits Global.System.Data.DataTable

    2073. 

  2073.         Implements Global.System.Collections.IEnumerable

    2074. 

  2074.         

    2075. 

  2075.         Private columnSongID As Global.System.Data.DataColumn

    2076. 

  2076.         

    2077. 

  2077.         Private columnCategoryID As Global.System.Data.DataColumn

    2078. 

  2078.         

    2079. 

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

    2080. 

  2080.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2081. 

  2081.         Public Sub New()

    2082. 

  2082.             MyBase.New

    2083. 

  2083.             Me.TableName = "SongCategories"

    2084. 

  2084.             Me.BeginInit

    2085. 

  2085.             Me.InitClass

    2086. 

  2086.             Me.EndInit

    2087. 

  2087.         End Sub

    2088. 

  2088.         

    2089. 

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

    2090. 

  2090.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2091. 

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

    2092. 

  2092.             MyBase.New

    2093. 

  2093.             Me.TableName = table.TableName

    2094. 

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

    2095. 

  2095.                 Me.CaseSensitive = table.CaseSensitive

    2096. 

  2096.             End If

    2097. 

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

    2098. 

  2098.                 Me.Locale = table.Locale

    2099. 

  2099.             End If

    2100. 

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

    2101. 

  2101.                 Me.Namespace = table.Namespace

    2102. 

  2102.             End If

    2103. 

  2103.             Me.Prefix = table.Prefix

    2104. 

  2104.             Me.MinimumCapacity = table.MinimumCapacity

    2105. 

  2105.         End Sub

    2106. 

  2106.         

    2107. 

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

    2108. 

  2108.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2109. 

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

    2110. 

  2110.             MyBase.New(info, context)

    2111. 

  2111.             Me.InitVars

    2112. 

  2112.         End Sub

    2113. 

  2113.         

    2114. 

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

    2115. 

  2115.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2116. 

  2116.         Public ReadOnly Property SongIDColumn() As Global.System.Data.DataColumn

    2117. 

  2117.             Get

    2118. 

  2118.                 Return Me.columnSongID

    2119. 

  2119.             End Get

    2120. 

  2120.         End Property

    2121. 

  2121.         

    2122. 

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

    2123. 

  2123.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2124. 

  2124.         Public ReadOnly Property CategoryIDColumn() As Global.System.Data.DataColumn

    2125. 

  2125.             Get

    2126. 

  2126.                 Return Me.columnCategoryID

    2127. 

  2127.             End Get

    2128. 

  2128.         End Property

    2129. 

  2129.         

    2130. 

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

    2131. 

  2131.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"),  _

    2132. 

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

    2133. 

  2133.         Public ReadOnly Property Count() As Integer

    2134. 

  2134.             Get

    2135. 

  2135.                 Return Me.Rows.Count

    2136. 

  2136.             End Get

    2137. 

  2137.         End Property

    2138. 

  2138.         

    2139. 

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

    2140. 

  2140.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2141. 

  2141.         Public Default ReadOnly Property Item(ByVal index As Integer) As SongCategoriesRow

    2142. 

  2142.             Get

    2143. 

  2143.                 Return CType(Me.Rows(index),SongCategoriesRow)

    2144. 

  2144.             End Get

    2145. 

  2145.         End Property

    2146. 

  2146.         

    2147. 

  2147.         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2148. 

  2148.         Public Event SongCategoriesRowChanging As SongCategoriesRowChangeEventHandler

    2149. 

  2149.         

    2150. 

  2150.         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2151. 

  2151.         Public Event SongCategoriesRowChanged As SongCategoriesRowChangeEventHandler

    2152. 

  2152.         

    2153. 

  2153.         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2154. 

  2154.         Public Event SongCategoriesRowDeleting As SongCategoriesRowChangeEventHandler

    2155. 

  2155.         

    2156. 

  2156.         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2157. 

  2157.         Public Event SongCategoriesRowDeleted As SongCategoriesRowChangeEventHandler

    2158. 

  2158.         

    2159. 

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

    2160. 

  2160.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2161. 

  2161.         Public Overloads Sub AddSongCategoriesRow(ByVal row As SongCategoriesRow)

    2162. 

  2162.             Me.Rows.Add(row)

    2163. 

  2163.         End Sub

    2164. 

  2164.         

    2165. 

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

    2166. 

  2166.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2167. 

  2167.         Public Overloads Function AddSongCategoriesRow(ByVal parentSongsRowByFK_Songs_SongCategories As SongsRow, ByVal parentCategoriesRowByFK_Categories_SongCategories As CategoriesRow) As SongCategoriesRow

    2168. 

  2168.             Dim rowSongCategoriesRow As SongCategoriesRow = CType(Me.NewRow,SongCategoriesRow)

    2169. 

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

    2170. 

  2170.             If (Not (parentSongsRowByFK_Songs_SongCategories) Is Nothing) Then

    2171. 

  2171.                 columnValuesArray(0) = parentSongsRowByFK_Songs_SongCategories(0)

    2172. 

  2172.             End If

    2173. 

  2173.             If (Not (parentCategoriesRowByFK_Categories_SongCategories) Is Nothing) Then

    2174. 

  2174.                 columnValuesArray(1) = parentCategoriesRowByFK_Categories_SongCategories(0)

    2175. 

  2175.             End If

    2176. 

  2176.             rowSongCategoriesRow.ItemArray = columnValuesArray

    2177. 

  2177.             Me.Rows.Add(rowSongCategoriesRow)

    2178. 

  2178.             Return rowSongCategoriesRow

    2179. 

  2179.         End Function

    2180. 

  2180.         

    2181. 

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

    2182. 

  2182.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2183. 

  2183.         Public Function FindBySongIDCategoryID(ByVal SongID As System.Guid, ByVal CategoryID As System.Guid) As SongCategoriesRow

    2184. 

  2184.             Return CType(Me.Rows.Find(New Object() {SongID, CategoryID}),SongCategoriesRow)

    2185. 

  2185.         End Function

    2186. 

  2186.         

    2187. 

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

    2188. 

  2188.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2189. 

  2189.         Public Overridable Function GetEnumerator() As Global.System.Collections.IEnumerator Implements Global.System.Collections.IEnumerable.GetEnumerator

    2190. 

  2190.             Return Me.Rows.GetEnumerator

    2191. 

  2191.         End Function

    2192. 

  2192.         

    2193. 

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

    2194. 

  2194.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2195. 

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

    2196. 

  2196.             Dim cln As SongCategoriesDataTable = CType(MyBase.Clone,SongCategoriesDataTable)

    2197. 

  2197.             cln.InitVars

    2198. 

  2198.             Return cln

    2199. 

  2199.         End Function

    2200. 

  2200.         

    2201. 

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

    2202. 

  2202.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2203. 

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

    2204. 

  2204.             Return New SongCategoriesDataTable()

    2205. 

  2205.         End Function

    2206. 

  2206.         

    2207. 

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

    2208. 

  2208.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2209. 

  2209.         Friend Sub InitVars()

    2210. 

  2210.             Me.columnSongID = MyBase.Columns("SongID")

    2211. 

  2211.             Me.columnCategoryID = MyBase.Columns("CategoryID")

    2212. 

  2212.         End Sub

    2213. 

  2213.         

    2214. 

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

    2215. 

  2215.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2216. 

  2216.         Private Sub InitClass()

    2217. 

  2217.             Me.columnSongID = New Global.System.Data.DataColumn("SongID", GetType(Global.System.Guid), Nothing, Global.System.Data.MappingType.Element)

    2218. 

  2218.             MyBase.Columns.Add(Me.columnSongID)

    2219. 

  2219.             Me.columnCategoryID = New Global.System.Data.DataColumn("CategoryID", GetType(Global.System.Guid), Nothing, Global.System.Data.MappingType.Element)

    2220. 

  2220.             MyBase.Columns.Add(Me.columnCategoryID)

    2221. 

  2221.             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnSongID, Me.columnCategoryID}, true))

    2222. 

  2222.             Me.columnSongID.AllowDBNull = false

    2223. 

  2223.             Me.columnCategoryID.AllowDBNull = false

    2224. 

  2224.         End Sub

    2225. 

  2225.         

    2226. 

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

    2227. 

  2227.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2228. 

  2228.         Public Function NewSongCategoriesRow() As SongCategoriesRow

    2229. 

  2229.             Return CType(Me.NewRow,SongCategoriesRow)

    2230. 

  2230.         End Function

    2231. 

  2231.         

    2232. 

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

    2233. 

  2233.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2234. 

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

    2235. 

  2235.             Return New SongCategoriesRow(builder)

    2236. 

  2236.         End Function

    2237. 

  2237.         

    2238. 

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

    2239. 

  2239.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2240. 

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

    2241. 

  2241.             Return GetType(SongCategoriesRow)

    2242. 

  2242.         End Function

    2243. 

  2243.         

    2244. 

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

    2245. 

  2245.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2246. 

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

    2247. 

  2247.             MyBase.OnRowChanged(e)

    2248. 

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

    2249. 

  2249.                 RaiseEvent SongCategoriesRowChanged(Me, New SongCategoriesRowChangeEvent(CType(e.Row,SongCategoriesRow), e.Action))

    2250. 

  2250.             End If

    2251. 

  2251.         End Sub

    2252. 

  2252.         

    2253. 

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

    2254. 

  2254.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2255. 

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

    2256. 

  2256.             MyBase.OnRowChanging(e)

    2257. 

  2257.             If (Not (Me.SongCategoriesRowChangingEvent) Is Nothing) Then

    2258. 

  2258.                 RaiseEvent SongCategoriesRowChanging(Me, New SongCategoriesRowChangeEvent(CType(e.Row,SongCategoriesRow), e.Action))

    2259. 

  2259.             End If

    2260. 

  2260.         End Sub

    2261. 

  2261.         

    2262. 

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

    2263. 

  2263.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2264. 

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

    2265. 

  2265.             MyBase.OnRowDeleted(e)

    2266. 

  2266.             If (Not (Me.SongCategoriesRowDeletedEvent) Is Nothing) Then

    2267. 

  2267.                 RaiseEvent SongCategoriesRowDeleted(Me, New SongCategoriesRowChangeEvent(CType(e.Row,SongCategoriesRow), e.Action))

    2268. 

  2268.             End If

    2269. 

  2269.         End Sub

    2270. 

  2270.         

    2271. 

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

    2272. 

  2272.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2273. 

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

    2274. 

  2274.             MyBase.OnRowDeleting(e)

    2275. 

  2275.             If (Not (Me.SongCategoriesRowDeletingEvent) Is Nothing) Then

    2276. 

  2276.                 RaiseEvent SongCategoriesRowDeleting(Me, New SongCategoriesRowChangeEvent(CType(e.Row,SongCategoriesRow), e.Action))

    2277. 

  2277.             End If

    2278. 

  2278.         End Sub

    2279. 

  2279.         

    2280. 

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

    2281. 

  2281.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2282. 

  2282.         Public Sub RemoveSongCategoriesRow(ByVal row As SongCategoriesRow)

    2283. 

  2283.             Me.Rows.Remove(row)

    2284. 

  2284.         End Sub

    2285. 

  2285.         

    2286. 

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

    2287. 

  2287.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2288. 

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

    2289. 

  2289.             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()

    2290. 

  2290.             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()

    2291. 

  2291.             Dim ds As Data = New Data()

    2292. 

  2292.             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()

    2293. 

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

    2294. 

  2294.             any1.MinOccurs = New Decimal(0)

    2295. 

  2295.             any1.MaxOccurs = Decimal.MaxValue

    2296. 

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

    2297. 

  2297.             sequence.Items.Add(any1)

    2298. 

  2298.             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()

    2299. 

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

    2300. 

  2300.             any2.MinOccurs = New Decimal(1)

    2301. 

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

    2302. 

  2302.             sequence.Items.Add(any2)

    2303. 

  2303.             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()

    2304. 

  2304.             attribute1.Name = "namespace"

    2305. 

  2305.             attribute1.FixedValue = ds.Namespace

    2306. 

  2306.             type.Attributes.Add(attribute1)

    2307. 

  2307.             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()

    2308. 

  2308.             attribute2.Name = "tableTypeName"

    2309. 

  2309.             attribute2.FixedValue = "SongCategoriesDataTable"

    2310. 

  2310.             type.Attributes.Add(attribute2)

    2311. 

  2311.             type.Particle = sequence

    2312. 

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

    2313. 

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

    2314. 

  2314.                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()

    2315. 

  2315.                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()

    2316. 

  2316.                 Try 

    2317. 

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

    2318. 

  2318.                     dsSchema.Write(s1)

    2319. 

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

    2320. 

  2320.                     Do While schemas.MoveNext

    2321. 

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

    2322. 

  2322.                         s2.SetLength(0)

    2323. 

  2323.                         schema.Write(s2)

    2324. 

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

    2325. 

  2325.                             s1.Position = 0

    2326. 

  2326.                             s2.Position = 0

    2327. 

  2327.                             

    2328. 

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

    2329. 

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

    2330. 

  2330.                                 

    2331. 

  2331.                                 

    2332. 

  2332.                             Loop

    2333. 

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

    2334. 

  2334.                                 Return type

    2335. 

  2335.                             End If

    2336. 

  2336.                         End If

    2337. 

  2337.                         

    2338. 

  2338.                     Loop

    2339. 

  2339.                 Finally

    2340. 

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

    2341. 

  2341.                         s1.Close

    2342. 

  2342.                     End If

    2343. 

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

    2344. 

  2344.                         s2.Close

    2345. 

  2345.                     End If

    2346. 

  2346.                 End Try

    2347. 

  2347.             End If

    2348. 

  2348.             xs.Add(dsSchema)

    2349. 

  2349.             Return type

    2350. 

  2350.         End Function

    2351. 

  2351.     End Class

    2352. 

  2352.     

    2353. 

  2353.     '''<summary>

    2354. 

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

    2355. 

  2355.     '''</summary>

    2356. 

  2356.     <Global.System.Serializable(),  _

    2357. 

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

    2358. 

  2358.     Partial Public Class ProjectletsDataTable

    2359. 

  2359.         Inherits Global.System.Data.DataTable

    2360. 

  2360.         Implements Global.System.Collections.IEnumerable

    2361. 

  2361.         

    2362. 

  2362.         Private columnStyleID As Global.System.Data.DataColumn

    2363. 

  2363.         

    2364. 

  2364.         Private columnComponent As Global.System.Data.DataColumn

    2365. 

  2365.         

    2366. 

  2366.         Private columnFontName As Global.System.Data.DataColumn

    2367. 

  2367.         

    2368. 

  2368.         Private columnFontSize As Global.System.Data.DataColumn

    2369. 

  2369.         

    2370. 

  2370.         Private columnFontColour As Global.System.Data.DataColumn

    2371. 

  2371.         

    2372. 

  2372.         Private columnFontStyle As Global.System.Data.DataColumn

    2373. 

  2373.         

    2374. 

  2374.         Private columnFontEffect As Global.System.Data.DataColumn

    2375. 

  2375.         

    2376. 

  2376.         Private columnFontEffectColour As Global.System.Data.DataColumn

    2377. 

  2377.         

    2378. 

  2378.         Private columnAreaLeft As Global.System.Data.DataColumn

    2379. 

  2379.         

    2380. 

  2380.         Private columnAreaTop As Global.System.Data.DataColumn

    2381. 

  2381.         

    2382. 

  2382.         Private columnAreaWidth As Global.System.Data.DataColumn

    2383. 

  2383.         

    2384. 

  2384.         Private columnAreaHeight As Global.System.Data.DataColumn

    2385. 

  2385.         

    2386. 

  2386.         Private columnAlignment As Global.System.Data.DataColumn

    2387. 

  2387.         

    2388. 

  2388.         Private columnWhenToDisplay As Global.System.Data.DataColumn

    2389. 

  2389.         

    2390. 

  2390.         Private columnContent As Global.System.Data.DataColumn

    2391. 

  2391.         

    2392. 

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

    2393. 

  2393.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2394. 

  2394.         Public Sub New()

    2395. 

  2395.             MyBase.New

    2396. 

  2396.             Me.TableName = "Projectlets"

    2397. 

  2397.             Me.BeginInit

    2398. 

  2398.             Me.InitClass

    2399. 

  2399.             Me.EndInit

    2400. 

  2400.         End Sub

    2401. 

  2401.         

    2402. 

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

    2403. 

  2403.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2404. 

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

    2405. 

  2405.             MyBase.New

    2406. 

  2406.             Me.TableName = table.TableName

    2407. 

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

    2408. 

  2408.                 Me.CaseSensitive = table.CaseSensitive

    2409. 

  2409.             End If

    2410. 

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

    2411. 

  2411.                 Me.Locale = table.Locale

    2412. 

  2412.             End If

    2413. 

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

    2414. 

  2414.                 Me.Namespace = table.Namespace

    2415. 

  2415.             End If

    2416. 

  2416.             Me.Prefix = table.Prefix

    2417. 

  2417.             Me.MinimumCapacity = table.MinimumCapacity

    2418. 

  2418.         End Sub

    2419. 

  2419.         

    2420. 

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

    2421. 

  2421.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2422. 

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

    2423. 

  2423.             MyBase.New(info, context)

    2424. 

  2424.             Me.InitVars

    2425. 

  2425.         End Sub

    2426. 

  2426.         

    2427. 

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

    2428. 

  2428.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2429. 

  2429.         Public ReadOnly Property StyleIDColumn() As Global.System.Data.DataColumn

    2430. 

  2430.             Get

    2431. 

  2431.                 Return Me.columnStyleID

    2432. 

  2432.             End Get

    2433. 

  2433.         End Property

    2434. 

  2434.         

    2435. 

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

    2436. 

  2436.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2437. 

  2437.         Public ReadOnly Property ComponentColumn() As Global.System.Data.DataColumn

    2438. 

  2438.             Get

    2439. 

  2439.                 Return Me.columnComponent

    2440. 

  2440.             End Get

    2441. 

  2441.         End Property

    2442. 

  2442.         

    2443. 

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

    2444. 

  2444.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2445. 

  2445.         Public ReadOnly Property FontNameColumn() As Global.System.Data.DataColumn

    2446. 

  2446.             Get

    2447. 

  2447.                 Return Me.columnFontName

    2448. 

  2448.             End Get

    2449. 

  2449.         End Property

    2450. 

  2450.         

    2451. 

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

    2452. 

  2452.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2453. 

  2453.         Public ReadOnly Property FontSizeColumn() As Global.System.Data.DataColumn

    2454. 

  2454.             Get

    2455. 

  2455.                 Return Me.columnFontSize

    2456. 

  2456.             End Get

    2457. 

  2457.         End Property

    2458. 

  2458.         

    2459. 

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

    2460. 

  2460.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2461. 

  2461.         Public ReadOnly Property FontColourColumn() As Global.System.Data.DataColumn

    2462. 

  2462.             Get

    2463. 

  2463.                 Return Me.columnFontColour

    2464. 

  2464.             End Get

    2465. 

  2465.         End Property

    2466. 

  2466.         

    2467. 

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

    2468. 

  2468.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2469. 

  2469.         Public ReadOnly Property FontStyleColumn() As Global.System.Data.DataColumn

    2470. 

  2470.             Get

    2471. 

  2471.                 Return Me.columnFontStyle

    2472. 

  2472.             End Get

    2473. 

  2473.         End Property

    2474. 

  2474.         

    2475. 

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

    2476. 

  2476.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2477. 

  2477.         Public ReadOnly Property FontEffectColumn() As Global.System.Data.DataColumn

    2478. 

  2478.             Get

    2479. 

  2479.                 Return Me.columnFontEffect

    2480. 

  2480.             End Get

    2481. 

  2481.         End Property

    2482. 

  2482.         

    2483. 

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

    2484. 

  2484.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2485. 

  2485.         Public ReadOnly Property FontEffectColourColumn() As Global.System.Data.DataColumn

    2486. 

  2486.             Get

    2487. 

  2487.                 Return Me.columnFontEffectColour

    2488. 

  2488.             End Get

    2489. 

  2489.         End Property

    2490. 

  2490.         

    2491. 

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

    2492. 

  2492.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2493. 

  2493.         Public ReadOnly Property AreaLeftColumn() As Global.System.Data.DataColumn

    2494. 

  2494.             Get

    2495. 

  2495.                 Return Me.columnAreaLeft

    2496. 

  2496.             End Get

    2497. 

  2497.         End Property

    2498. 

  2498.         

    2499. 

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

    2500. 

  2500.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2501. 

  2501.         Public ReadOnly Property AreaTopColumn() As Global.System.Data.DataColumn

    2502. 

  2502.             Get

    2503. 

  2503.                 Return Me.columnAreaTop

    2504. 

  2504.             End Get

    2505. 

  2505.         End Property

    2506. 

  2506.         

    2507. 

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

    2508. 

  2508.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2509. 

  2509.         Public ReadOnly Property AreaWidthColumn() As Global.System.Data.DataColumn

    2510. 

  2510.             Get

    2511. 

  2511.                 Return Me.columnAreaWidth

    2512. 

  2512.             End Get

    2513. 

  2513.         End Property

    2514. 

  2514.         

    2515. 

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

    2516. 

  2516.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2517. 

  2517.         Public ReadOnly Property AreaHeightColumn() As Global.System.Data.DataColumn

    2518. 

  2518.             Get

    2519. 

  2519.                 Return Me.columnAreaHeight

    2520. 

  2520.             End Get

    2521. 

  2521.         End Property

    2522. 

  2522.         

    2523. 

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

    2524. 

  2524.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2525. 

  2525.         Public ReadOnly Property AlignmentColumn() As Global.System.Data.DataColumn

    2526. 

  2526.             Get

    2527. 

  2527.                 Return Me.columnAlignment

    2528. 

  2528.             End Get

    2529. 

  2529.         End Property

    2530. 

  2530.         

    2531. 

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

    2532. 

  2532.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2533. 

  2533.         Public ReadOnly Property WhenToDisplayColumn() As Global.System.Data.DataColumn

    2534. 

  2534.             Get

    2535. 

  2535.                 Return Me.columnWhenToDisplay

    2536. 

  2536.             End Get

    2537. 

  2537.         End Property

    2538. 

  2538.         

    2539. 

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

    2540. 

  2540.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2541. 

  2541.         Public ReadOnly Property ContentColumn() As Global.System.Data.DataColumn

    2542. 

  2542.             Get

    2543. 

  2543.                 Return Me.columnContent

    2544. 

  2544.             End Get

    2545. 

  2545.         End Property

    2546. 

  2546.         

    2547. 

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

    2548. 

  2548.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"),  _

    2549. 

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

    2550. 

  2550.         Public ReadOnly Property Count() As Integer

    2551. 

  2551.             Get

    2552. 

  2552.                 Return Me.Rows.Count

    2553. 

  2553.             End Get

    2554. 

  2554.         End Property

    2555. 

  2555.         

    2556. 

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

    2557. 

  2557.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2558. 

  2558.         Public Default ReadOnly Property Item(ByVal index As Integer) As ProjectletsRow

    2559. 

  2559.             Get

    2560. 

  2560.                 Return CType(Me.Rows(index),ProjectletsRow)

    2561. 

  2561.             End Get

    2562. 

  2562.         End Property

    2563. 

  2563.         

    2564. 

  2564.         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2565. 

  2565.         Public Event ProjectletsRowChanging As ProjectletsRowChangeEventHandler

    2566. 

  2566.         

    2567. 

  2567.         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2568. 

  2568.         Public Event ProjectletsRowChanged As ProjectletsRowChangeEventHandler

    2569. 

  2569.         

    2570. 

  2570.         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2571. 

  2571.         Public Event ProjectletsRowDeleting As ProjectletsRowChangeEventHandler

    2572. 

  2572.         

    2573. 

  2573.         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2574. 

  2574.         Public Event ProjectletsRowDeleted As ProjectletsRowChangeEventHandler

    2575. 

  2575.         

    2576. 

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

    2577. 

  2577.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2578. 

  2578.         Public Overloads Sub AddProjectletsRow(ByVal row As ProjectletsRow)

    2579. 

  2579.             Me.Rows.Add(row)

    2580. 

  2580.         End Sub

    2581. 

  2581.         

    2582. 

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

    2583. 

  2583.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2584. 

  2584.         Public Overloads Function AddProjectletsRow(ByVal parentStylesRowByFK_Styles_Projectlets As StylesRow, ByVal Component As String, ByVal FontName As String, ByVal FontSize As Double, ByVal FontColour As Integer, ByVal FontStyle As Integer, ByVal FontEffect As Integer, ByVal FontEffectColour As Integer, ByVal AreaLeft As Double, ByVal AreaTop As Double, ByVal AreaWidth As Double, ByVal AreaHeight As Double, ByVal Alignment As Integer, ByVal WhenToDisplay As Integer, ByVal Content As String) As ProjectletsRow

    2585. 

  2585.             Dim rowProjectletsRow As ProjectletsRow = CType(Me.NewRow,ProjectletsRow)

    2586. 

  2586.             Dim columnValuesArray() As Object = New Object() {Nothing, Component, FontName, FontSize, FontColour, FontStyle, FontEffect, FontEffectColour, AreaLeft, AreaTop, AreaWidth, AreaHeight, Alignment, WhenToDisplay, Content}

    2587. 

  2587.             If (Not (parentStylesRowByFK_Styles_Projectlets) Is Nothing) Then

    2588. 

  2588.                 columnValuesArray(0) = parentStylesRowByFK_Styles_Projectlets(0)

    2589. 

  2589.             End If

    2590. 

  2590.             rowProjectletsRow.ItemArray = columnValuesArray

    2591. 

  2591.             Me.Rows.Add(rowProjectletsRow)

    2592. 

  2592.             Return rowProjectletsRow

    2593. 

  2593.         End Function

    2594. 

  2594.         

    2595. 

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

    2596. 

  2596.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2597. 

  2597.         Public Function FindByStyleIDComponent(ByVal StyleID As System.Guid, ByVal Component As String) As ProjectletsRow

    2598. 

  2598.             Return CType(Me.Rows.Find(New Object() {StyleID, Component}),ProjectletsRow)

    2599. 

  2599.         End Function

    2600. 

  2600.         

    2601. 

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

    2602. 

  2602.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2603. 

  2603.         Public Overridable Function GetEnumerator() As Global.System.Collections.IEnumerator Implements Global.System.Collections.IEnumerable.GetEnumerator

    2604. 

  2604.             Return Me.Rows.GetEnumerator

    2605. 

  2605.         End Function

    2606. 

  2606.         

    2607. 

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

    2608. 

  2608.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2609. 

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

    2610. 

  2610.             Dim cln As ProjectletsDataTable = CType(MyBase.Clone,ProjectletsDataTable)

    2611. 

  2611.             cln.InitVars

    2612. 

  2612.             Return cln

    2613. 

  2613.         End Function

    2614. 

  2614.         

    2615. 

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

    2616. 

  2616.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2617. 

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

    2618. 

  2618.             Return New ProjectletsDataTable()

    2619. 

  2619.         End Function

    2620. 

  2620.         

    2621. 

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

    2622. 

  2622.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2623. 

  2623.         Friend Sub InitVars()

    2624. 

  2624.             Me.columnStyleID = MyBase.Columns("StyleID")

    2625. 

  2625.             Me.columnComponent = MyBase.Columns("Component")

    2626. 

  2626.             Me.columnFontName = MyBase.Columns("FontName")

    2627. 

  2627.             Me.columnFontSize = MyBase.Columns("FontSize")

    2628. 

  2628.             Me.columnFontColour = MyBase.Columns("FontColour")

    2629. 

  2629.             Me.columnFontStyle = MyBase.Columns("FontStyle")

    2630. 

  2630.             Me.columnFontEffect = MyBase.Columns("FontEffect")

    2631. 

  2631.             Me.columnFontEffectColour = MyBase.Columns("FontEffectColour")

    2632. 

  2632.             Me.columnAreaLeft = MyBase.Columns("AreaLeft")

    2633. 

  2633.             Me.columnAreaTop = MyBase.Columns("AreaTop")

    2634. 

  2634.             Me.columnAreaWidth = MyBase.Columns("AreaWidth")

    2635. 

  2635.             Me.columnAreaHeight = MyBase.Columns("AreaHeight")

    2636. 

  2636.             Me.columnAlignment = MyBase.Columns("Alignment")

    2637. 

  2637.             Me.columnWhenToDisplay = MyBase.Columns("WhenToDisplay")

    2638. 

  2638.             Me.columnContent = MyBase.Columns("Content")

    2639. 

  2639.         End Sub

    2640. 

  2640.         

    2641. 

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

    2642. 

  2642.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2643. 

  2643.         Private Sub InitClass()

    2644. 

  2644.             Me.columnStyleID = New Global.System.Data.DataColumn("StyleID", GetType(Global.System.Guid), Nothing, Global.System.Data.MappingType.Element)

    2645. 

  2645.             MyBase.Columns.Add(Me.columnStyleID)

    2646. 

  2646.             Me.columnComponent = New Global.System.Data.DataColumn("Component", GetType(String), Nothing, Global.System.Data.MappingType.Element)

    2647. 

  2647.             MyBase.Columns.Add(Me.columnComponent)

    2648. 

  2648.             Me.columnFontName = New Global.System.Data.DataColumn("FontName", GetType(String), Nothing, Global.System.Data.MappingType.Element)

    2649. 

  2649.             MyBase.Columns.Add(Me.columnFontName)

    2650. 

  2650.             Me.columnFontSize = New Global.System.Data.DataColumn("FontSize", GetType(Double), Nothing, Global.System.Data.MappingType.Element)

    2651. 

  2651.             MyBase.Columns.Add(Me.columnFontSize)

    2652. 

  2652.             Me.columnFontColour = New Global.System.Data.DataColumn("FontColour", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)

    2653. 

  2653.             MyBase.Columns.Add(Me.columnFontColour)

    2654. 

  2654.             Me.columnFontStyle = New Global.System.Data.DataColumn("FontStyle", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)

    2655. 

  2655.             MyBase.Columns.Add(Me.columnFontStyle)

    2656. 

  2656.             Me.columnFontEffect = New Global.System.Data.DataColumn("FontEffect", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)

    2657. 

  2657.             MyBase.Columns.Add(Me.columnFontEffect)

    2658. 

  2658.             Me.columnFontEffectColour = New Global.System.Data.DataColumn("FontEffectColour", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)

    2659. 

  2659.             MyBase.Columns.Add(Me.columnFontEffectColour)

    2660. 

  2660.             Me.columnAreaLeft = New Global.System.Data.DataColumn("AreaLeft", GetType(Double), Nothing, Global.System.Data.MappingType.Element)

    2661. 

  2661.             MyBase.Columns.Add(Me.columnAreaLeft)

    2662. 

  2662.             Me.columnAreaTop = New Global.System.Data.DataColumn("AreaTop", GetType(Double), Nothing, Global.System.Data.MappingType.Element)

    2663. 

  2663.             MyBase.Columns.Add(Me.columnAreaTop)

    2664. 

  2664.             Me.columnAreaWidth = New Global.System.Data.DataColumn("AreaWidth", GetType(Double), Nothing, Global.System.Data.MappingType.Element)

    2665. 

  2665.             MyBase.Columns.Add(Me.columnAreaWidth)

    2666. 

  2666.             Me.columnAreaHeight = New Global.System.Data.DataColumn("AreaHeight", GetType(Double), Nothing, Global.System.Data.MappingType.Element)

    2667. 

  2667.             MyBase.Columns.Add(Me.columnAreaHeight)

    2668. 

  2668.             Me.columnAlignment = New Global.System.Data.DataColumn("Alignment", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)

    2669. 

  2669.             MyBase.Columns.Add(Me.columnAlignment)

    2670. 

  2670.             Me.columnWhenToDisplay = New Global.System.Data.DataColumn("WhenToDisplay", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)

    2671. 

  2671.             MyBase.Columns.Add(Me.columnWhenToDisplay)

    2672. 

  2672.             Me.columnContent = New Global.System.Data.DataColumn("Content", GetType(String), Nothing, Global.System.Data.MappingType.Element)

    2673. 

  2673.             MyBase.Columns.Add(Me.columnContent)

    2674. 

  2674.             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnStyleID, Me.columnComponent}, true))

    2675. 

  2675.             Me.columnStyleID.AllowDBNull = false

    2676. 

  2676.             Me.columnComponent.AllowDBNull = false

    2677. 

  2677.         End Sub

    2678. 

  2678.         

    2679. 

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

    2680. 

  2680.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2681. 

  2681.         Public Function NewProjectletsRow() As ProjectletsRow

    2682. 

  2682.             Return CType(Me.NewRow,ProjectletsRow)

    2683. 

  2683.         End Function

    2684. 

  2684.         

    2685. 

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

    2686. 

  2686.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2687. 

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

    2688. 

  2688.             Return New ProjectletsRow(builder)

    2689. 

  2689.         End Function

    2690. 

  2690.         

    2691. 

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

    2692. 

  2692.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2693. 

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

    2694. 

  2694.             Return GetType(ProjectletsRow)

    2695. 

  2695.         End Function

    2696. 

  2696.         

    2697. 

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

    2698. 

  2698.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2699. 

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

    2700. 

  2700.             MyBase.OnRowChanged(e)

    2701. 

  2701.             If (Not (Me.ProjectletsRowChangedEvent) Is Nothing) Then

    2702. 

  2702.                 RaiseEvent ProjectletsRowChanged(Me, New ProjectletsRowChangeEvent(CType(e.Row,ProjectletsRow), e.Action))

    2703. 

  2703.             End If

    2704. 

  2704.         End Sub

    2705. 

  2705.         

    2706. 

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

    2707. 

  2707.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2708. 

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

    2709. 

  2709.             MyBase.OnRowChanging(e)

    2710. 

  2710.             If (Not (Me.ProjectletsRowChangingEvent) Is Nothing) Then

    2711. 

  2711.                 RaiseEvent ProjectletsRowChanging(Me, New ProjectletsRowChangeEvent(CType(e.Row,ProjectletsRow), e.Action))

    2712. 

  2712.             End If

    2713. 

  2713.         End Sub

    2714. 

  2714.         

    2715. 

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

    2716. 

  2716.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2717. 

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

    2718. 

  2718.             MyBase.OnRowDeleted(e)

    2719. 

  2719.             If (Not (Me.ProjectletsRowDeletedEvent) Is Nothing) Then

    2720. 

  2720.                 RaiseEvent ProjectletsRowDeleted(Me, New ProjectletsRowChangeEvent(CType(e.Row,ProjectletsRow), e.Action))

    2721. 

  2721.             End If

    2722. 

  2722.         End Sub

    2723. 

  2723.         

    2724. 

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

    2725. 

  2725.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2726. 

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

    2727. 

  2727.             MyBase.OnRowDeleting(e)

    2728. 

  2728.             If (Not (Me.ProjectletsRowDeletingEvent) Is Nothing) Then

    2729. 

  2729.                 RaiseEvent ProjectletsRowDeleting(Me, New ProjectletsRowChangeEvent(CType(e.Row,ProjectletsRow), e.Action))

    2730. 

  2730.             End If

    2731. 

  2731.         End Sub

    2732. 

  2732.         

    2733. 

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

    2734. 

  2734.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2735. 

  2735.         Public Sub RemoveProjectletsRow(ByVal row As ProjectletsRow)

    2736. 

  2736.             Me.Rows.Remove(row)

    2737. 

  2737.         End Sub

    2738. 

  2738.         

    2739. 

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

    2740. 

  2740.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2741. 

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

    2742. 

  2742.             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()

    2743. 

  2743.             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()

    2744. 

  2744.             Dim ds As Data = New Data()

    2745. 

  2745.             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()

    2746. 

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

    2747. 

  2747.             any1.MinOccurs = New Decimal(0)

    2748. 

  2748.             any1.MaxOccurs = Decimal.MaxValue

    2749. 

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

    2750. 

  2750.             sequence.Items.Add(any1)

    2751. 

  2751.             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()

    2752. 

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

    2753. 

  2753.             any2.MinOccurs = New Decimal(1)

    2754. 

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

    2755. 

  2755.             sequence.Items.Add(any2)

    2756. 

  2756.             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()

    2757. 

  2757.             attribute1.Name = "namespace"

    2758. 

  2758.             attribute1.FixedValue = ds.Namespace

    2759. 

  2759.             type.Attributes.Add(attribute1)

    2760. 

  2760.             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()

    2761. 

  2761.             attribute2.Name = "tableTypeName"

    2762. 

  2762.             attribute2.FixedValue = "ProjectletsDataTable"

    2763. 

  2763.             type.Attributes.Add(attribute2)

    2764. 

  2764.             type.Particle = sequence

    2765. 

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

    2766. 

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

    2767. 

  2767.                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()

    2768. 

  2768.                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()

    2769. 

  2769.                 Try 

    2770. 

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

    2771. 

  2771.                     dsSchema.Write(s1)

    2772. 

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

    2773. 

  2773.                     Do While schemas.MoveNext

    2774. 

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

    2775. 

  2775.                         s2.SetLength(0)

    2776. 

  2776.                         schema.Write(s2)

    2777. 

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

    2778. 

  2778.                             s1.Position = 0

    2779. 

  2779.                             s2.Position = 0

    2780. 

  2780.                             

    2781. 

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

    2782. 

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

    2783. 

  2783.                                 

    2784. 

  2784.                                 

    2785. 

  2785.                             Loop

    2786. 

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

    2787. 

  2787.                                 Return type

    2788. 

  2788.                             End If

    2789. 

  2789.                         End If

    2790. 

  2790.                         

    2791. 

  2791.                     Loop

    2792. 

  2792.                 Finally

    2793. 

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

    2794. 

  2794.                         s1.Close

    2795. 

  2795.                     End If

    2796. 

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

    2797. 

  2797.                         s2.Close

    2798. 

  2798.                     End If

    2799. 

  2799.                 End Try

    2800. 

  2800.             End If

    2801. 

  2801.             xs.Add(dsSchema)

    2802. 

  2802.             Return type

    2803. 

  2803.         End Function

    2804. 

  2804.     End Class

    2805. 

  2805.     

    2806. 

  2806.     '''<summary>

    2807. 

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

    2808. 

  2808.     '''</summary>

    2809. 

  2809.     <Global.System.Serializable(),  _

    2810. 

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

    2811. 

  2811.     Partial Public Class LicensesDataTable

    2812. 

  2812.         Inherits Global.System.Data.DataTable

    2813. 

  2813.         Implements Global.System.Collections.IEnumerable

    2814. 

  2814.         

    2815. 

  2815.         Private columnLicenseID As Global.System.Data.DataColumn

    2816. 

  2816.         

    2817. 

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

    2818. 

  2818.         

    2819. 

  2819.         Private columnDetails As Global.System.Data.DataColumn

    2820. 

  2820.         

    2821. 

  2821.         Private columnNumber As Global.System.Data.DataColumn

    2822. 

  2822.         

    2823. 

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

    2824. 

  2824.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2825. 

  2825.         Public Sub New()

    2826. 

  2826.             MyBase.New

    2827. 

  2827.             Me.TableName = "Licenses"

    2828. 

  2828.             Me.BeginInit

    2829. 

  2829.             Me.InitClass

    2830. 

  2830.             Me.EndInit

    2831. 

  2831.         End Sub

    2832. 

  2832.         

    2833. 

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

    2834. 

  2834.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2835. 

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

    2836. 

  2836.             MyBase.New

    2837. 

  2837.             Me.TableName = table.TableName

    2838. 

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

    2839. 

  2839.                 Me.CaseSensitive = table.CaseSensitive

    2840. 

  2840.             End If

    2841. 

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

    2842. 

  2842.                 Me.Locale = table.Locale

    2843. 

  2843.             End If

    2844. 

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

    2845. 

  2845.                 Me.Namespace = table.Namespace

    2846. 

  2846.             End If

    2847. 

  2847.             Me.Prefix = table.Prefix

    2848. 

  2848.             Me.MinimumCapacity = table.MinimumCapacity

    2849. 

  2849.         End Sub

    2850. 

  2850.         

    2851. 

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

    2852. 

  2852.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2853. 

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

    2854. 

  2854.             MyBase.New(info, context)

    2855. 

  2855.             Me.InitVars

    2856. 

  2856.         End Sub

    2857. 

  2857.         

    2858. 

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

    2859. 

  2859.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2860. 

  2860.         Public ReadOnly Property LicenseIDColumn() As Global.System.Data.DataColumn

    2861. 

  2861.             Get

    2862. 

  2862.                 Return Me.columnLicenseID

    2863. 

  2863.             End Get

    2864. 

  2864.         End Property

    2865. 

  2865.         

    2866. 

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

    2867. 

  2867.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2868. 

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

    2869. 

  2869.             Get

    2870. 

  2870.                 Return Me.columnName

    2871. 

  2871.             End Get

    2872. 

  2872.         End Property

    2873. 

  2873.         

    2874. 

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

    2875. 

  2875.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2876. 

  2876.         Public ReadOnly Property DetailsColumn() As Global.System.Data.DataColumn

    2877. 

  2877.             Get

    2878. 

  2878.                 Return Me.columnDetails

    2879. 

  2879.             End Get

    2880. 

  2880.         End Property

    2881. 

  2881.         

    2882. 

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

    2883. 

  2883.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2884. 

  2884.         Public ReadOnly Property NumberColumn() As Global.System.Data.DataColumn

    2885. 

  2885.             Get

    2886. 

  2886.                 Return Me.columnNumber

    2887. 

  2887.             End Get

    2888. 

  2888.         End Property

    2889. 

  2889.         

    2890. 

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

    2891. 

  2891.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"),  _

    2892. 

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

    2893. 

  2893.         Public ReadOnly Property Count() As Integer

    2894. 

  2894.             Get

    2895. 

  2895.                 Return Me.Rows.Count

    2896. 

  2896.             End Get

    2897. 

  2897.         End Property

    2898. 

  2898.         

    2899. 

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

    2900. 

  2900.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2901. 

  2901.         Public Default ReadOnly Property Item(ByVal index As Integer) As LicensesRow

    2902. 

  2902.             Get

    2903. 

  2903.                 Return CType(Me.Rows(index),LicensesRow)

    2904. 

  2904.             End Get

    2905. 

  2905.         End Property

    2906. 

  2906.         

    2907. 

  2907.         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2908. 

  2908.         Public Event LicensesRowChanging As LicensesRowChangeEventHandler

    2909. 

  2909.         

    2910. 

  2910.         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2911. 

  2911.         Public Event LicensesRowChanged As LicensesRowChangeEventHandler

    2912. 

  2912.         

    2913. 

  2913.         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2914. 

  2914.         Public Event LicensesRowDeleting As LicensesRowChangeEventHandler

    2915. 

  2915.         

    2916. 

  2916.         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2917. 

  2917.         Public Event LicensesRowDeleted As LicensesRowChangeEventHandler

    2918. 

  2918.         

    2919. 

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

    2920. 

  2920.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2921. 

  2921.         Public Overloads Sub AddLicensesRow(ByVal row As LicensesRow)

    2922. 

  2922.             Me.Rows.Add(row)

    2923. 

  2923.         End Sub

    2924. 

  2924.         

    2925. 

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

    2926. 

  2926.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2927. 

  2927.         Public Overloads Function AddLicensesRow(ByVal LicenseID As System.Guid, ByVal Name As String, ByVal Details As String, ByVal Number As String) As LicensesRow

    2928. 

  2928.             Dim rowLicensesRow As LicensesRow = CType(Me.NewRow,LicensesRow)

    2929. 

  2929.             Dim columnValuesArray() As Object = New Object() {LicenseID, Name, Details, Number}

    2930. 

  2930.             rowLicensesRow.ItemArray = columnValuesArray

    2931. 

  2931.             Me.Rows.Add(rowLicensesRow)

    2932. 

  2932.             Return rowLicensesRow

    2933. 

  2933.         End Function

    2934. 

  2934.         

    2935. 

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

    2936. 

  2936.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2937. 

  2937.         Public Function FindByLicenseID(ByVal LicenseID As System.Guid) As LicensesRow

    2938. 

  2938.             Return CType(Me.Rows.Find(New Object() {LicenseID}),LicensesRow)

    2939. 

  2939.         End Function

    2940. 

  2940.         

    2941. 

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

    2942. 

  2942.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2943. 

  2943.         Public Overridable Function GetEnumerator() As Global.System.Collections.IEnumerator Implements Global.System.Collections.IEnumerable.GetEnumerator

    2944. 

  2944.             Return Me.Rows.GetEnumerator

    2945. 

  2945.         End Function

    2946. 

  2946.         

    2947. 

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

    2948. 

  2948.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2949. 

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

    2950. 

  2950.             Dim cln As LicensesDataTable = CType(MyBase.Clone,LicensesDataTable)

    2951. 

  2951.             cln.InitVars

    2952. 

  2952.             Return cln

    2953. 

  2953.         End Function

    2954. 

  2954.         

    2955. 

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

    2956. 

  2956.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2957. 

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

    2958. 

  2958.             Return New LicensesDataTable()

    2959. 

  2959.         End Function

    2960. 

  2960.         

    2961. 

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

    2962. 

  2962.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2963. 

  2963.         Friend Sub InitVars()

    2964. 

  2964.             Me.columnLicenseID = MyBase.Columns("LicenseID")

    2965. 

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

    2966. 

  2966.             Me.columnDetails = MyBase.Columns("Details")

    2967. 

  2967.             Me.columnNumber = MyBase.Columns("Number")

    2968. 

  2968.         End Sub

    2969. 

  2969.         

    2970. 

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

    2971. 

  2971.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2972. 

  2972.         Private Sub InitClass()

    2973. 

  2973.             Me.columnLicenseID = New Global.System.Data.DataColumn("LicenseID", GetType(Global.System.Guid), Nothing, Global.System.Data.MappingType.Element)

    2974. 

  2974.             MyBase.Columns.Add(Me.columnLicenseID)

    2975. 

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

    2976. 

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

    2977. 

  2977.             Me.columnDetails = New Global.System.Data.DataColumn("Details", GetType(String), Nothing, Global.System.Data.MappingType.Element)

    2978. 

  2978.             MyBase.Columns.Add(Me.columnDetails)

    2979. 

  2979.             Me.columnNumber = New Global.System.Data.DataColumn("Number", GetType(String), Nothing, Global.System.Data.MappingType.Element)

    2980. 

  2980.             MyBase.Columns.Add(Me.columnNumber)

    2981. 

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

    2982. 

  2982.             Me.columnLicenseID.AllowDBNull = false

    2983. 

  2983.             Me.columnLicenseID.Unique = true

    2984. 

  2984.         End Sub

    2985. 

  2985.         

    2986. 

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

    2987. 

  2987.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2988. 

  2988.         Public Function NewLicensesRow() As LicensesRow

    2989. 

  2989.             Return CType(Me.NewRow,LicensesRow)

    2990. 

  2990.         End Function

    2991. 

  2991.         

    2992. 

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

    2993. 

  2993.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    2994. 

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

    2995. 

  2995.             Return New LicensesRow(builder)

    2996. 

  2996.         End Function

    2997. 

  2997.         

    2998. 

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

    2999. 

  2999.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3000. 

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

    3001. 

  3001.             Return GetType(LicensesRow)

    3002. 

  3002.         End Function

    3003. 

  3003.         

    3004. 

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

    3005. 

  3005.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3006. 

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

    3007. 

  3007.             MyBase.OnRowChanged(e)

    3008. 

  3008.             If (Not (Me.LicensesRowChangedEvent) Is Nothing) Then

    3009. 

  3009.                 RaiseEvent LicensesRowChanged(Me, New LicensesRowChangeEvent(CType(e.Row,LicensesRow), e.Action))

    3010. 

  3010.             End If

    3011. 

  3011.         End Sub

    3012. 

  3012.         

    3013. 

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

    3014. 

  3014.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3015. 

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

    3016. 

  3016.             MyBase.OnRowChanging(e)

    3017. 

  3017.             If (Not (Me.LicensesRowChangingEvent) Is Nothing) Then

    3018. 

  3018.                 RaiseEvent LicensesRowChanging(Me, New LicensesRowChangeEvent(CType(e.Row,LicensesRow), e.Action))

    3019. 

  3019.             End If

    3020. 

  3020.         End Sub

    3021. 

  3021.         

    3022. 

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

    3023. 

  3023.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3024. 

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

    3025. 

  3025.             MyBase.OnRowDeleted(e)

    3026. 

  3026.             If (Not (Me.LicensesRowDeletedEvent) Is Nothing) Then

    3027. 

  3027.                 RaiseEvent LicensesRowDeleted(Me, New LicensesRowChangeEvent(CType(e.Row,LicensesRow), e.Action))

    3028. 

  3028.             End If

    3029. 

  3029.         End Sub

    3030. 

  3030.         

    3031. 

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

    3032. 

  3032.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3033. 

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

    3034. 

  3034.             MyBase.OnRowDeleting(e)

    3035. 

  3035.             If (Not (Me.LicensesRowDeletingEvent) Is Nothing) Then

    3036. 

  3036.                 RaiseEvent LicensesRowDeleting(Me, New LicensesRowChangeEvent(CType(e.Row,LicensesRow), e.Action))

    3037. 

  3037.             End If

    3038. 

  3038.         End Sub

    3039. 

  3039.         

    3040. 

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

    3041. 

  3041.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3042. 

  3042.         Public Sub RemoveLicensesRow(ByVal row As LicensesRow)

    3043. 

  3043.             Me.Rows.Remove(row)

    3044. 

  3044.         End Sub

    3045. 

  3045.         

    3046. 

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

    3047. 

  3047.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3048. 

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

    3049. 

  3049.             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()

    3050. 

  3050.             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()

    3051. 

  3051.             Dim ds As Data = New Data()

    3052. 

  3052.             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()

    3053. 

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

    3054. 

  3054.             any1.MinOccurs = New Decimal(0)

    3055. 

  3055.             any1.MaxOccurs = Decimal.MaxValue

    3056. 

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

    3057. 

  3057.             sequence.Items.Add(any1)

    3058. 

  3058.             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()

    3059. 

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

    3060. 

  3060.             any2.MinOccurs = New Decimal(1)

    3061. 

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

    3062. 

  3062.             sequence.Items.Add(any2)

    3063. 

  3063.             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()

    3064. 

  3064.             attribute1.Name = "namespace"

    3065. 

  3065.             attribute1.FixedValue = ds.Namespace

    3066. 

  3066.             type.Attributes.Add(attribute1)

    3067. 

  3067.             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()

    3068. 

  3068.             attribute2.Name = "tableTypeName"

    3069. 

  3069.             attribute2.FixedValue = "LicensesDataTable"

    3070. 

  3070.             type.Attributes.Add(attribute2)

    3071. 

  3071.             type.Particle = sequence

    3072. 

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

    3073. 

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

    3074. 

  3074.                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()

    3075. 

  3075.                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()

    3076. 

  3076.                 Try 

    3077. 

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

    3078. 

  3078.                     dsSchema.Write(s1)

    3079. 

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

    3080. 

  3080.                     Do While schemas.MoveNext

    3081. 

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

    3082. 

  3082.                         s2.SetLength(0)

    3083. 

  3083.                         schema.Write(s2)

    3084. 

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

    3085. 

  3085.                             s1.Position = 0

    3086. 

  3086.                             s2.Position = 0

    3087. 

  3087.                             

    3088. 

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

    3089. 

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

    3090. 

  3090.                                 

    3091. 

  3091.                                 

    3092. 

  3092.                             Loop

    3093. 

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

    3094. 

  3094.                                 Return type

    3095. 

  3095.                             End If

    3096. 

  3096.                         End If

    3097. 

  3097.                         

    3098. 

  3098.                     Loop

    3099. 

  3099.                 Finally

    3100. 

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

    3101. 

  3101.                         s1.Close

    3102. 

  3102.                     End If

    3103. 

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

    3104. 

  3104.                         s2.Close

    3105. 

  3105.                     End If

    3106. 

  3106.                 End Try

    3107. 

  3107.             End If

    3108. 

  3108.             xs.Add(dsSchema)

    3109. 

  3109.             Return type

    3110. 

  3110.         End Function

    3111. 

  3111.     End Class

    3112. 

  3112.     

    3113. 

  3113.     '''<summary>

    3114. 

  3114.     '''Represents strongly named DataRow class.

    3115. 

  3115.     '''</summary>

    3116. 

  3116.     Partial Public Class SettingsRow

    3117. 

  3117.         Inherits Global.System.Data.DataRow

    3118. 

  3118.         

    3119. 

  3119.         Private tableSettings As SettingsDataTable

    3120. 

  3120.         

    3121. 

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

    3122. 

  3122.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3123. 

  3123.         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)

    3124. 

  3124.             MyBase.New(rb)

    3125. 

  3125.             Me.tableSettings = CType(Me.Table,SettingsDataTable)

    3126. 

  3126.         End Sub

    3127. 

  3127.         

    3128. 

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

    3129. 

  3129.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3130. 

  3130.         Public Property Name() As String

    3131. 

  3131.             Get

    3132. 

  3132.                 Return CType(Me(Me.tableSettings.NameColumn),String)

    3133. 

  3133.             End Get

    3134. 

  3134.             Set

    3135. 

  3135.                 Me(Me.tableSettings.NameColumn) = value

    3136. 

  3136.             End Set

    3137. 

  3137.         End Property

    3138. 

  3138.         

    3139. 

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

    3140. 

  3140.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3141. 

  3141.         Public Property Value() As String

    3142. 

  3142.             Get

    3143. 

  3143.                 Try 

    3144. 

  3144.                     Return CType(Me(Me.tableSettings.ValueColumn),String)

    3145. 

  3145.                 Catch e As Global.System.InvalidCastException

    3146. 

  3146.                     Throw New Global.System.Data.StrongTypingException("The value for column 'Value' in table 'Settings' is DBNull.", e)

    3147. 

  3147.                 End Try

    3148. 

  3148.             End Get

    3149. 

  3149.             Set

    3150. 

  3150.                 Me(Me.tableSettings.ValueColumn) = value

    3151. 

  3151.             End Set

    3152. 

  3152.         End Property

    3153. 

  3153.         

    3154. 

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

    3155. 

  3155.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3156. 

  3156.         Public Function IsValueNull() As Boolean

    3157. 

  3157.             Return Me.IsNull(Me.tableSettings.ValueColumn)

    3158. 

  3158.         End Function

    3159. 

  3159.         

    3160. 

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

    3161. 

  3161.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3162. 

  3162.         Public Sub SetValueNull()

    3163. 

  3163.             Me(Me.tableSettings.ValueColumn) = Global.System.Convert.DBNull

    3164. 

  3164.         End Sub

    3165. 

  3165.     End Class

    3166. 

  3166.     

    3167. 

  3167.     '''<summary>

    3168. 

  3168.     '''Represents strongly named DataRow class.

    3169. 

  3169.     '''</summary>

    3170. 

  3170.     Partial Public Class SongsRow

    3171. 

  3171.         Inherits Global.System.Data.DataRow

    3172. 

  3172.         

    3173. 

  3173.         Private tableSongs As SongsDataTable

    3174. 

  3174.         

    3175. 

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

    3176. 

  3176.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3177. 

  3177.         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)

    3178. 

  3178.             MyBase.New(rb)

    3179. 

  3179.             Me.tableSongs = CType(Me.Table,SongsDataTable)

    3180. 

  3180.         End Sub

    3181. 

  3181.         

    3182. 

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

    3183. 

  3183.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3184. 

  3184.         Public Property SongID() As System.Guid

    3185. 

  3185.             Get

    3186. 

  3186.                 Return CType(Me(Me.tableSongs.SongIDColumn),Global.System.Guid)

    3187. 

  3187.             End Get

    3188. 

  3188.             Set

    3189. 

  3189.                 Me(Me.tableSongs.SongIDColumn) = value

    3190. 

  3190.             End Set

    3191. 

  3191.         End Property

    3192. 

  3192.         

    3193. 

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

    3194. 

  3194.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3195. 

  3195.         Public Property Title() As String

    3196. 

  3196.             Get

    3197. 

  3197.                 Try 

    3198. 

  3198.                     Return CType(Me(Me.tableSongs.TitleColumn),String)

    3199. 

  3199.                 Catch e As Global.System.InvalidCastException

    3200. 

  3200.                     Throw New Global.System.Data.StrongTypingException("The value for column 'Title' in table 'Songs' is DBNull.", e)

    3201. 

  3201.                 End Try

    3202. 

  3202.             End Get

    3203. 

  3203.             Set

    3204. 

  3204.                 Me(Me.tableSongs.TitleColumn) = value

    3205. 

  3205.             End Set

    3206. 

  3206.         End Property

    3207. 

  3207.         

    3208. 

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

    3209. 

  3209.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3210. 

  3210.         Public Property LicenseID() As System.Guid

    3211. 

  3211.             Get

    3212. 

  3212.                 Try 

    3213. 

  3213.                     Return CType(Me(Me.tableSongs.LicenseIDColumn),Global.System.Guid)

    3214. 

  3214.                 Catch e As Global.System.InvalidCastException

    3215. 

  3215.                     Throw New Global.System.Data.StrongTypingException("The value for column 'LicenseID' in table 'Songs' is DBNull.", e)

    3216. 

  3216.                 End Try

    3217. 

  3217.             End Get

    3218. 

  3218.             Set

    3219. 

  3219.                 Me(Me.tableSongs.LicenseIDColumn) = value

    3220. 

  3220.             End Set

    3221. 

  3221.         End Property

    3222. 

  3222.         

    3223. 

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

    3224. 

  3224.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3225. 

  3225.         Public Property LicensesRow() As LicensesRow

    3226. 

  3226.             Get

    3227. 

  3227.                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("Licenses_Songs")),LicensesRow)

    3228. 

  3228.             End Get

    3229. 

  3229.             Set

    3230. 

  3230.                 Me.SetParentRow(value, Me.Table.ParentRelations("Licenses_Songs"))

    3231. 

  3231.             End Set

    3232. 

  3232.         End Property

    3233. 

  3233.         

    3234. 

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

    3235. 

  3235.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3236. 

  3236.         Public Function IsTitleNull() As Boolean

    3237. 

  3237.             Return Me.IsNull(Me.tableSongs.TitleColumn)

    3238. 

  3238.         End Function

    3239. 

  3239.         

    3240. 

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

    3241. 

  3241.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3242. 

  3242.         Public Sub SetTitleNull()

    3243. 

  3243.             Me(Me.tableSongs.TitleColumn) = Global.System.Convert.DBNull

    3244. 

  3244.         End Sub

    3245. 

  3245.         

    3246. 

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

    3247. 

  3247.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3248. 

  3248.         Public Function IsLicenseIDNull() As Boolean

    3249. 

  3249.             Return Me.IsNull(Me.tableSongs.LicenseIDColumn)

    3250. 

  3250.         End Function

    3251. 

  3251.         

    3252. 

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

    3253. 

  3253.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3254. 

  3254.         Public Sub SetLicenseIDNull()

    3255. 

  3255.             Me(Me.tableSongs.LicenseIDColumn) = Global.System.Convert.DBNull

    3256. 

  3256.         End Sub

    3257. 

  3257.         

    3258. 

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

    3259. 

  3259.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3260. 

  3260.         Public Function GetSongCategoriesRows() As SongCategoriesRow()

    3261. 

  3261.             If (Me.Table.ChildRelations("FK_Songs_SongCategories") Is Nothing) Then

    3262. 

  3262.                 Return New SongCategoriesRow(-1) {}

    3263. 

  3263.             Else

    3264. 

  3264.                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Songs_SongCategories")),SongCategoriesRow())

    3265. 

  3265.             End If

    3266. 

  3266.         End Function

    3267. 

  3267.     End Class

    3268. 

  3268.     

    3269. 

  3269.     '''<summary>

    3270. 

  3270.     '''Represents strongly named DataRow class.

    3271. 

  3271.     '''</summary>

    3272. 

  3272.     Partial Public Class StylesRow

    3273. 

  3273.         Inherits Global.System.Data.DataRow

    3274. 

  3274.         

    3275. 

  3275.         Private tableStyles As StylesDataTable

    3276. 

  3276.         

    3277. 

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

    3278. 

  3278.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3279. 

  3279.         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)

    3280. 

  3280.             MyBase.New(rb)

    3281. 

  3281.             Me.tableStyles = CType(Me.Table,StylesDataTable)

    3282. 

  3282.         End Sub

    3283. 

  3283.         

    3284. 

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

    3285. 

  3285.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3286. 

  3286.         Public Property StyleID() As System.Guid

    3287. 

  3287.             Get

    3288. 

  3288.                 Return CType(Me(Me.tableStyles.StyleIDColumn),Global.System.Guid)

    3289. 

  3289.             End Get

    3290. 

  3290.             Set

    3291. 

  3291.                 Me(Me.tableStyles.StyleIDColumn) = value

    3292. 

  3292.             End Set

    3293. 

  3293.         End Property

    3294. 

  3294.         

    3295. 

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

    3296. 

  3296.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3297. 

  3297.         Public Property Name() As String

    3298. 

  3298.             Get

    3299. 

  3299.                 Try 

    3300. 

  3300.                     Return CType(Me(Me.tableStyles.NameColumn),String)

    3301. 

  3301.                 Catch e As Global.System.InvalidCastException

    3302. 

  3302.                     Throw New Global.System.Data.StrongTypingException("The value for column 'Name' in table 'Styles' is DBNull.", e)

    3303. 

  3303.                 End Try

    3304. 

  3304.             End Get

    3305. 

  3305.             Set

    3306. 

  3306.                 Me(Me.tableStyles.NameColumn) = value

    3307. 

  3307.             End Set

    3308. 

  3308.         End Property

    3309. 

  3309.         

    3310. 

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

    3311. 

  3311.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3312. 

  3312.         Public Property DefaultBackgroundImage() As String

    3313. 

  3313.             Get

    3314. 

  3314.                 Try 

    3315. 

  3315.                     Return CType(Me(Me.tableStyles.DefaultBackgroundImageColumn),String)

    3316. 

  3316.                 Catch e As Global.System.InvalidCastException

    3317. 

  3317.                     Throw New Global.System.Data.StrongTypingException("The value for column 'DefaultBackgroundImage' in table 'Styles' is DBNull.", e)

    3318. 

  3318.                 End Try

    3319. 

  3319.             End Get

    3320. 

  3320.             Set

    3321. 

  3321.                 Me(Me.tableStyles.DefaultBackgroundImageColumn) = value

    3322. 

  3322.             End Set

    3323. 

  3323.         End Property

    3324. 

  3324.         

    3325. 

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

    3326. 

  3326.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3327. 

  3327.         Public Property DefaultBackgroundColour() As Integer

    3328. 

  3328.             Get

    3329. 

  3329.                 Try 

    3330. 

  3330.                     Return CType(Me(Me.tableStyles.DefaultBackgroundColourColumn),Integer)

    3331. 

  3331.                 Catch e As Global.System.InvalidCastException

    3332. 

  3332.                     Throw New Global.System.Data.StrongTypingException("The value for column 'DefaultBackgroundColour' in table 'Styles' is DBNull.", e)

    3333. 

  3333.                 End Try

    3334. 

  3334.             End Get

    3335. 

  3335.             Set

    3336. 

  3336.                 Me(Me.tableStyles.DefaultBackgroundColourColumn) = value

    3337. 

  3337.             End Set

    3338. 

  3338.         End Property

    3339. 

  3339.         

    3340. 

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

    3341. 

  3341.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3342. 

  3342.         Public Property GeneralFadeDuration() As Integer

    3343. 

  3343.             Get

    3344. 

  3344.                 Try 

    3345. 

  3345.                     Return CType(Me(Me.tableStyles.GeneralFadeDurationColumn),Integer)

    3346. 

  3346.                 Catch e As Global.System.InvalidCastException

    3347. 

  3347.                     Throw New Global.System.Data.StrongTypingException("The value for column 'GeneralFadeDuration' in table 'Styles' is DBNull.", e)

    3348. 

  3348.                 End Try

    3349. 

  3349.             End Get

    3350. 

  3350.             Set

    3351. 

  3351.                 Me(Me.tableStyles.GeneralFadeDurationColumn) = value

    3352. 

  3352.             End Set

    3353. 

  3353.         End Property

    3354. 

  3354.         

    3355. 

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

    3356. 

  3356.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3357. 

  3357.         Public Property VerseFade() As Integer

    3358. 

  3358.             Get

    3359. 

  3359.                 Try 

    3360. 

  3360.                     Return CType(Me(Me.tableStyles.VerseFadeColumn),Integer)

    3361. 

  3361.                 Catch e As Global.System.InvalidCastException

    3362. 

  3362.                     Throw New Global.System.Data.StrongTypingException("The value for column 'VerseFade' in table 'Styles' is DBNull.", e)

    3363. 

  3363.                 End Try

    3364. 

  3364.             End Get

    3365. 

  3365.             Set

    3366. 

  3366.                 Me(Me.tableStyles.VerseFadeColumn) = value

    3367. 

  3367.             End Set

    3368. 

  3368.         End Property

    3369. 

  3369.         

    3370. 

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

    3371. 

  3371.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3372. 

  3372.         Public Property VerseFadeDuration() As Integer

    3373. 

  3373.             Get

    3374. 

  3374.                 Try 

    3375. 

  3375.                     Return CType(Me(Me.tableStyles.VerseFadeDurationColumn),Integer)

    3376. 

  3376.                 Catch e As Global.System.InvalidCastException

    3377. 

  3377.                     Throw New Global.System.Data.StrongTypingException("The value for column 'VerseFadeDuration' in table 'Styles' is DBNull.", e)

    3378. 

  3378.                 End Try

    3379. 

  3379.             End Get

    3380. 

  3380.             Set

    3381. 

  3381.                 Me(Me.tableStyles.VerseFadeDurationColumn) = value

    3382. 

  3382.             End Set

    3383. 

  3383.         End Property

    3384. 

  3384.         

    3385. 

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

    3386. 

  3386.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3387. 

  3387.         Public Property GeneralFade() As Integer

    3388. 

  3388.             Get

    3389. 

  3389.                 Try 

    3390. 

  3390.                     Return CType(Me(Me.tableStyles.GeneralFadeColumn),Integer)

    3391. 

  3391.                 Catch e As Global.System.InvalidCastException

    3392. 

  3392.                     Throw New Global.System.Data.StrongTypingException("The value for column 'GeneralFade' in table 'Styles' is DBNull.", e)

    3393. 

  3393.                 End Try

    3394. 

  3394.             End Get

    3395. 

  3395.             Set

    3396. 

  3396.                 Me(Me.tableStyles.GeneralFadeColumn) = value

    3397. 

  3397.             End Set

    3398. 

  3398.         End Property

    3399. 

  3399.         

    3400. 

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

    3401. 

  3401.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3402. 

  3402.         Public Property BackgroundType() As Integer

    3403. 

  3403.             Get

    3404. 

  3404.                 Try 

    3405. 

  3405.                     Return CType(Me(Me.tableStyles.BackgroundTypeColumn),Integer)

    3406. 

  3406.                 Catch e As Global.System.InvalidCastException

    3407. 

  3407.                     Throw New Global.System.Data.StrongTypingException("The value for column 'BackgroundType' in table 'Styles' is DBNull.", e)

    3408. 

  3408.                 End Try

    3409. 

  3409.             End Get

    3410. 

  3410.             Set

    3411. 

  3411.                 Me(Me.tableStyles.BackgroundTypeColumn) = value

    3412. 

  3412.             End Set

    3413. 

  3413.         End Property

    3414. 

  3414.         

    3415. 

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

    3416. 

  3416.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3417. 

  3417.         Public Function IsNameNull() As Boolean

    3418. 

  3418.             Return Me.IsNull(Me.tableStyles.NameColumn)

    3419. 

  3419.         End Function

    3420. 

  3420.         

    3421. 

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

    3422. 

  3422.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3423. 

  3423.         Public Sub SetNameNull()

    3424. 

  3424.             Me(Me.tableStyles.NameColumn) = Global.System.Convert.DBNull

    3425. 

  3425.         End Sub

    3426. 

  3426.         

    3427. 

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

    3428. 

  3428.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3429. 

  3429.         Public Function IsDefaultBackgroundImageNull() As Boolean

    3430. 

  3430.             Return Me.IsNull(Me.tableStyles.DefaultBackgroundImageColumn)

    3431. 

  3431.         End Function

    3432. 

  3432.         

    3433. 

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

    3434. 

  3434.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3435. 

  3435.         Public Sub SetDefaultBackgroundImageNull()

    3436. 

  3436.             Me(Me.tableStyles.DefaultBackgroundImageColumn) = Global.System.Convert.DBNull

    3437. 

  3437.         End Sub

    3438. 

  3438.         

    3439. 

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

    3440. 

  3440.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3441. 

  3441.         Public Function IsDefaultBackgroundColourNull() As Boolean

    3442. 

  3442.             Return Me.IsNull(Me.tableStyles.DefaultBackgroundColourColumn)

    3443. 

  3443.         End Function

    3444. 

  3444.         

    3445. 

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

    3446. 

  3446.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3447. 

  3447.         Public Sub SetDefaultBackgroundColourNull()

    3448. 

  3448.             Me(Me.tableStyles.DefaultBackgroundColourColumn) = Global.System.Convert.DBNull

    3449. 

  3449.         End Sub

    3450. 

  3450.         

    3451. 

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

    3452. 

  3452.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3453. 

  3453.         Public Function IsGeneralFadeDurationNull() As Boolean

    3454. 

  3454.             Return Me.IsNull(Me.tableStyles.GeneralFadeDurationColumn)

    3455. 

  3455.         End Function

    3456. 

  3456.         

    3457. 

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

    3458. 

  3458.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3459. 

  3459.         Public Sub SetGeneralFadeDurationNull()

    3460. 

  3460.             Me(Me.tableStyles.GeneralFadeDurationColumn) = Global.System.Convert.DBNull

    3461. 

  3461.         End Sub

    3462. 

  3462.         

    3463. 

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

    3464. 

  3464.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3465. 

  3465.         Public Function IsVerseFadeNull() As Boolean

    3466. 

  3466.             Return Me.IsNull(Me.tableStyles.VerseFadeColumn)

    3467. 

  3467.         End Function

    3468. 

  3468.         

    3469. 

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

    3470. 

  3470.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3471. 

  3471.         Public Sub SetVerseFadeNull()

    3472. 

  3472.             Me(Me.tableStyles.VerseFadeColumn) = Global.System.Convert.DBNull

    3473. 

  3473.         End Sub

    3474. 

  3474.         

    3475. 

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

    3476. 

  3476.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3477. 

  3477.         Public Function IsVerseFadeDurationNull() As Boolean

    3478. 

  3478.             Return Me.IsNull(Me.tableStyles.VerseFadeDurationColumn)

    3479. 

  3479.         End Function

    3480. 

  3480.         

    3481. 

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

    3482. 

  3482.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3483. 

  3483.         Public Sub SetVerseFadeDurationNull()

    3484. 

  3484.             Me(Me.tableStyles.VerseFadeDurationColumn) = Global.System.Convert.DBNull

    3485. 

  3485.         End Sub

    3486. 

  3486.         

    3487. 

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

    3488. 

  3488.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3489. 

  3489.         Public Function IsGeneralFadeNull() As Boolean

    3490. 

  3490.             Return Me.IsNull(Me.tableStyles.GeneralFadeColumn)

    3491. 

  3491.         End Function

    3492. 

  3492.         

    3493. 

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

    3494. 

  3494.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3495. 

  3495.         Public Sub SetGeneralFadeNull()

    3496. 

  3496.             Me(Me.tableStyles.GeneralFadeColumn) = Global.System.Convert.DBNull

    3497. 

  3497.         End Sub

    3498. 

  3498.         

    3499. 

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

    3500. 

  3500.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3501. 

  3501.         Public Function IsBackgroundTypeNull() As Boolean

    3502. 

  3502.             Return Me.IsNull(Me.tableStyles.BackgroundTypeColumn)

    3503. 

  3503.         End Function

    3504. 

  3504.         

    3505. 

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

    3506. 

  3506.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3507. 

  3507.         Public Sub SetBackgroundTypeNull()

    3508. 

  3508.             Me(Me.tableStyles.BackgroundTypeColumn) = Global.System.Convert.DBNull

    3509. 

  3509.         End Sub

    3510. 

  3510.         

    3511. 

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

    3512. 

  3512.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3513. 

  3513.         Public Function GetProjectletsRows() As ProjectletsRow()

    3514. 

  3514.             If (Me.Table.ChildRelations("FK_Styles_Projectlets") Is Nothing) Then

    3515. 

  3515.                 Return New ProjectletsRow(-1) {}

    3516. 

  3516.             Else

    3517. 

  3517.                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Styles_Projectlets")),ProjectletsRow())

    3518. 

  3518.             End If

    3519. 

  3519.         End Function

    3520. 

  3520.     End Class

    3521. 

  3521.     

    3522. 

  3522.     '''<summary>

    3523. 

  3523.     '''Represents strongly named DataRow class.

    3524. 

  3524.     '''</summary>

    3525. 

  3525.     Partial Public Class BiblesRow

    3526. 

  3526.         Inherits Global.System.Data.DataRow

    3527. 

  3527.         

    3528. 

  3528.         Private tableBibles As BiblesDataTable

    3529. 

  3529.         

    3530. 

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

    3531. 

  3531.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3532. 

  3532.         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)

    3533. 

  3533.             MyBase.New(rb)

    3534. 

  3534.             Me.tableBibles = CType(Me.Table,BiblesDataTable)

    3535. 

  3535.         End Sub

    3536. 

  3536.         

    3537. 

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

    3538. 

  3538.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3539. 

  3539.         Public Property Acronym() As String

    3540. 

  3540.             Get

    3541. 

  3541.                 Try 

    3542. 

  3542.                     Return CType(Me(Me.tableBibles.AcronymColumn),String)

    3543. 

  3543.                 Catch e As Global.System.InvalidCastException

    3544. 

  3544.                     Throw New Global.System.Data.StrongTypingException("The value for column 'Acronym' in table 'Bibles' is DBNull.", e)

    3545. 

  3545.                 End Try

    3546. 

  3546.             End Get

    3547. 

  3547.             Set

    3548. 

  3548.                 Me(Me.tableBibles.AcronymColumn) = value

    3549. 

  3549.             End Set

    3550. 

  3550.         End Property

    3551. 

  3551.         

    3552. 

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

    3553. 

  3553.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3554. 

  3554.         Public Property FileName() As String

    3555. 

  3555.             Get

    3556. 

  3556.                 Try 

    3557. 

  3557.                     Return CType(Me(Me.tableBibles.FileNameColumn),String)

    3558. 

  3558.                 Catch e As Global.System.InvalidCastException

    3559. 

  3559.                     Throw New Global.System.Data.StrongTypingException("The value for column 'FileName' in table 'Bibles' is DBNull.", e)

    3560. 

  3560.                 End Try

    3561. 

  3561.             End Get

    3562. 

  3562.             Set

    3563. 

  3563.                 Me(Me.tableBibles.FileNameColumn) = value

    3564. 

  3564.             End Set

    3565. 

  3565.         End Property

    3566. 

  3566.         

    3567. 

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

    3568. 

  3568.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3569. 

  3569.         Public Function IsAcronymNull() As Boolean

    3570. 

  3570.             Return Me.IsNull(Me.tableBibles.AcronymColumn)

    3571. 

  3571.         End Function

    3572. 

  3572.         

    3573. 

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

    3574. 

  3574.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3575. 

  3575.         Public Sub SetAcronymNull()

    3576. 

  3576.             Me(Me.tableBibles.AcronymColumn) = Global.System.Convert.DBNull

    3577. 

  3577.         End Sub

    3578. 

  3578.         

    3579. 

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

    3580. 

  3580.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3581. 

  3581.         Public Function IsFileNameNull() As Boolean

    3582. 

  3582.             Return Me.IsNull(Me.tableBibles.FileNameColumn)

    3583. 

  3583.         End Function

    3584. 

  3584.         

    3585. 

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

    3586. 

  3586.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3587. 

  3587.         Public Sub SetFileNameNull()

    3588. 

  3588.             Me(Me.tableBibles.FileNameColumn) = Global.System.Convert.DBNull

    3589. 

  3589.         End Sub

    3590. 

  3590.     End Class

    3591. 

  3591.     

    3592. 

  3592.     '''<summary>

    3593. 

  3593.     '''Represents strongly named DataRow class.

    3594. 

  3594.     '''</summary>

    3595. 

  3595.     Partial Public Class CategoriesRow

    3596. 

  3596.         Inherits Global.System.Data.DataRow

    3597. 

  3597.         

    3598. 

  3598.         Private tableCategories As CategoriesDataTable

    3599. 

  3599.         

    3600. 

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

    3601. 

  3601.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3602. 

  3602.         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)

    3603. 

  3603.             MyBase.New(rb)

    3604. 

  3604.             Me.tableCategories = CType(Me.Table,CategoriesDataTable)

    3605. 

  3605.         End Sub

    3606. 

  3606.         

    3607. 

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

    3608. 

  3608.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3609. 

  3609.         Public Property CategoryID() As System.Guid

    3610. 

  3610.             Get

    3611. 

  3611.                 Return CType(Me(Me.tableCategories.CategoryIDColumn),Global.System.Guid)

    3612. 

  3612.             End Get

    3613. 

  3613.             Set

    3614. 

  3614.                 Me(Me.tableCategories.CategoryIDColumn) = value

    3615. 

  3615.             End Set

    3616. 

  3616.         End Property

    3617. 

  3617.         

    3618. 

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

    3619. 

  3619.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3620. 

  3620.         Public Property Name() As String

    3621. 

  3621.             Get

    3622. 

  3622.                 Try 

    3623. 

  3623.                     Return CType(Me(Me.tableCategories.NameColumn),String)

    3624. 

  3624.                 Catch e As Global.System.InvalidCastException

    3625. 

  3625.                     Throw New Global.System.Data.StrongTypingException("The value for column 'Name' in table 'Categories' is DBNull.", e)

    3626. 

  3626.                 End Try

    3627. 

  3627.             End Get

    3628. 

  3628.             Set

    3629. 

  3629.                 Me(Me.tableCategories.NameColumn) = value

    3630. 

  3630.             End Set

    3631. 

  3631.         End Property

    3632. 

  3632.         

    3633. 

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

    3634. 

  3634.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3635. 

  3635.         Public Function IsNameNull() As Boolean

    3636. 

  3636.             Return Me.IsNull(Me.tableCategories.NameColumn)

    3637. 

  3637.         End Function

    3638. 

  3638.         

    3639. 

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

    3640. 

  3640.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3641. 

  3641.         Public Sub SetNameNull()

    3642. 

  3642.             Me(Me.tableCategories.NameColumn) = Global.System.Convert.DBNull

    3643. 

  3643.         End Sub

    3644. 

  3644.         

    3645. 

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

    3646. 

  3646.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3647. 

  3647.         Public Function GetSongCategoriesRows() As SongCategoriesRow()

    3648. 

  3648.             If (Me.Table.ChildRelations("FK_Categories_SongCategories") Is Nothing) Then

    3649. 

  3649.                 Return New SongCategoriesRow(-1) {}

    3650. 

  3650.             Else

    3651. 

  3651.                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Categories_SongCategories")),SongCategoriesRow())

    3652. 

  3652.             End If

    3653. 

  3653.         End Function

    3654. 

  3654.     End Class

    3655. 

  3655.     

    3656. 

  3656.     '''<summary>

    3657. 

  3657.     '''Represents strongly named DataRow class.

    3658. 

  3658.     '''</summary>

    3659. 

  3659.     Partial Public Class SongCategoriesRow

    3660. 

  3660.         Inherits Global.System.Data.DataRow

    3661. 

  3661.         

    3662. 

  3662.         Private tableSongCategories As SongCategoriesDataTable

    3663. 

  3663.         

    3664. 

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

    3665. 

  3665.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3666. 

  3666.         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)

    3667. 

  3667.             MyBase.New(rb)

    3668. 

  3668.             Me.tableSongCategories = CType(Me.Table,SongCategoriesDataTable)

    3669. 

  3669.         End Sub

    3670. 

  3670.         

    3671. 

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

    3672. 

  3672.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3673. 

  3673.         Public Property SongID() As System.Guid

    3674. 

  3674.             Get

    3675. 

  3675.                 Return CType(Me(Me.tableSongCategories.SongIDColumn),Global.System.Guid)

    3676. 

  3676.             End Get

    3677. 

  3677.             Set

    3678. 

  3678.                 Me(Me.tableSongCategories.SongIDColumn) = value

    3679. 

  3679.             End Set

    3680. 

  3680.         End Property

    3681. 

  3681.         

    3682. 

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

    3683. 

  3683.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3684. 

  3684.         Public Property CategoryID() As System.Guid

    3685. 

  3685.             Get

    3686. 

  3686.                 Return CType(Me(Me.tableSongCategories.CategoryIDColumn),Global.System.Guid)

    3687. 

  3687.             End Get

    3688. 

  3688.             Set

    3689. 

  3689.                 Me(Me.tableSongCategories.CategoryIDColumn) = value

    3690. 

  3690.             End Set

    3691. 

  3691.         End Property

    3692. 

  3692.         

    3693. 

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

    3694. 

  3694.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3695. 

  3695.         Public Property CategoriesRow() As CategoriesRow

    3696. 

  3696.             Get

    3697. 

  3697.                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Categories_SongCategories")),CategoriesRow)

    3698. 

  3698.             End Get

    3699. 

  3699.             Set

    3700. 

  3700.                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Categories_SongCategories"))

    3701. 

  3701.             End Set

    3702. 

  3702.         End Property

    3703. 

  3703.         

    3704. 

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

    3705. 

  3705.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3706. 

  3706.         Public Property SongsRow() As SongsRow

    3707. 

  3707.             Get

    3708. 

  3708.                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Songs_SongCategories")),SongsRow)

    3709. 

  3709.             End Get

    3710. 

  3710.             Set

    3711. 

  3711.                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Songs_SongCategories"))

    3712. 

  3712.             End Set

    3713. 

  3713.         End Property

    3714. 

  3714.     End Class

    3715. 

  3715.     

    3716. 

  3716.     '''<summary>

    3717. 

  3717.     '''Represents strongly named DataRow class.

    3718. 

  3718.     '''</summary>

    3719. 

  3719.     Partial Public Class ProjectletsRow

    3720. 

  3720.         Inherits Global.System.Data.DataRow

    3721. 

  3721.         

    3722. 

  3722.         Private tableProjectlets As ProjectletsDataTable

    3723. 

  3723.         

    3724. 

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

    3725. 

  3725.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3726. 

  3726.         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)

    3727. 

  3727.             MyBase.New(rb)

    3728. 

  3728.             Me.tableProjectlets = CType(Me.Table,ProjectletsDataTable)

    3729. 

  3729.         End Sub

    3730. 

  3730.         

    3731. 

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

    3732. 

  3732.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3733. 

  3733.         Public Property StyleID() As System.Guid

    3734. 

  3734.             Get

    3735. 

  3735.                 Return CType(Me(Me.tableProjectlets.StyleIDColumn),Global.System.Guid)

    3736. 

  3736.             End Get

    3737. 

  3737.             Set

    3738. 

  3738.                 Me(Me.tableProjectlets.StyleIDColumn) = value

    3739. 

  3739.             End Set

    3740. 

  3740.         End Property

    3741. 

  3741.         

    3742. 

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

    3743. 

  3743.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3744. 

  3744.         Public Property Component() As String

    3745. 

  3745.             Get

    3746. 

  3746.                 Return CType(Me(Me.tableProjectlets.ComponentColumn),String)

    3747. 

  3747.             End Get

    3748. 

  3748.             Set

    3749. 

  3749.                 Me(Me.tableProjectlets.ComponentColumn) = value

    3750. 

  3750.             End Set

    3751. 

  3751.         End Property

    3752. 

  3752.         

    3753. 

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

    3754. 

  3754.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3755. 

  3755.         Public Property FontName() As String

    3756. 

  3756.             Get

    3757. 

  3757.                 Try 

    3758. 

  3758.                     Return CType(Me(Me.tableProjectlets.FontNameColumn),String)

    3759. 

  3759.                 Catch e As Global.System.InvalidCastException

    3760. 

  3760.                     Throw New Global.System.Data.StrongTypingException("The value for column 'FontName' in table 'Projectlets' is DBNull.", e)

    3761. 

  3761.                 End Try

    3762. 

  3762.             End Get

    3763. 

  3763.             Set

    3764. 

  3764.                 Me(Me.tableProjectlets.FontNameColumn) = value

    3765. 

  3765.             End Set

    3766. 

  3766.         End Property

    3767. 

  3767.         

    3768. 

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

    3769. 

  3769.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3770. 

  3770.         Public Property FontSize() As Double

    3771. 

  3771.             Get

    3772. 

  3772.                 Try 

    3773. 

  3773.                     Return CType(Me(Me.tableProjectlets.FontSizeColumn),Double)

    3774. 

  3774.                 Catch e As Global.System.InvalidCastException

    3775. 

  3775.                     Throw New Global.System.Data.StrongTypingException("The value for column 'FontSize' in table 'Projectlets' is DBNull.", e)

    3776. 

  3776.                 End Try

    3777. 

  3777.             End Get

    3778. 

  3778.             Set

    3779. 

  3779.                 Me(Me.tableProjectlets.FontSizeColumn) = value

    3780. 

  3780.             End Set

    3781. 

  3781.         End Property

    3782. 

  3782.         

    3783. 

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

    3784. 

  3784.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3785. 

  3785.         Public Property FontColour() As Integer

    3786. 

  3786.             Get

    3787. 

  3787.                 Try 

    3788. 

  3788.                     Return CType(Me(Me.tableProjectlets.FontColourColumn),Integer)

    3789. 

  3789.                 Catch e As Global.System.InvalidCastException

    3790. 

  3790.                     Throw New Global.System.Data.StrongTypingException("The value for column 'FontColour' in table 'Projectlets' is DBNull.", e)

    3791. 

  3791.                 End Try

    3792. 

  3792.             End Get

    3793. 

  3793.             Set

    3794. 

  3794.                 Me(Me.tableProjectlets.FontColourColumn) = value

    3795. 

  3795.             End Set

    3796. 

  3796.         End Property

    3797. 

  3797.         

    3798. 

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

    3799. 

  3799.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3800. 

  3800.         Public Property FontStyle() As Integer

    3801. 

  3801.             Get

    3802. 

  3802.                 Try 

    3803. 

  3803.                     Return CType(Me(Me.tableProjectlets.FontStyleColumn),Integer)

    3804. 

  3804.                 Catch e As Global.System.InvalidCastException

    3805. 

  3805.                     Throw New Global.System.Data.StrongTypingException("The value for column 'FontStyle' in table 'Projectlets' is DBNull.", e)

    3806. 

  3806.                 End Try

    3807. 

  3807.             End Get

    3808. 

  3808.             Set

    3809. 

  3809.                 Me(Me.tableProjectlets.FontStyleColumn) = value

    3810. 

  3810.             End Set

    3811. 

  3811.         End Property

    3812. 

  3812.         

    3813. 

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

    3814. 

  3814.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3815. 

  3815.         Public Property FontEffect() As Integer

    3816. 

  3816.             Get

    3817. 

  3817.                 Try 

    3818. 

  3818.                     Return CType(Me(Me.tableProjectlets.FontEffectColumn),Integer)

    3819. 

  3819.                 Catch e As Global.System.InvalidCastException

    3820. 

  3820.                     Throw New Global.System.Data.StrongTypingException("The value for column 'FontEffect' in table 'Projectlets' is DBNull.", e)

    3821. 

  3821.                 End Try

    3822. 

  3822.             End Get

    3823. 

  3823.             Set

    3824. 

  3824.                 Me(Me.tableProjectlets.FontEffectColumn) = value

    3825. 

  3825.             End Set

    3826. 

  3826.         End Property

    3827. 

  3827.         

    3828. 

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

    3829. 

  3829.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3830. 

  3830.         Public Property FontEffectColour() As Integer

    3831. 

  3831.             Get

    3832. 

  3832.                 Try 

    3833. 

  3833.                     Return CType(Me(Me.tableProjectlets.FontEffectColourColumn),Integer)

    3834. 

  3834.                 Catch e As Global.System.InvalidCastException

    3835. 

  3835.                     Throw New Global.System.Data.StrongTypingException("The value for column 'FontEffectColour' in table 'Projectlets' is DBNull.", e)

    3836. 

  3836.                 End Try

    3837. 

  3837.             End Get

    3838. 

  3838.             Set

    3839. 

  3839.                 Me(Me.tableProjectlets.FontEffectColourColumn) = value

    3840. 

  3840.             End Set

    3841. 

  3841.         End Property

    3842. 

  3842.         

    3843. 

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

    3844. 

  3844.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3845. 

  3845.         Public Property AreaLeft() As Double

    3846. 

  3846.             Get

    3847. 

  3847.                 Try 

    3848. 

  3848.                     Return CType(Me(Me.tableProjectlets.AreaLeftColumn),Double)

    3849. 

  3849.                 Catch e As Global.System.InvalidCastException

    3850. 

  3850.                     Throw New Global.System.Data.StrongTypingException("The value for column 'AreaLeft' in table 'Projectlets' is DBNull.", e)

    3851. 

  3851.                 End Try

    3852. 

  3852.             End Get

    3853. 

  3853.             Set

    3854. 

  3854.                 Me(Me.tableProjectlets.AreaLeftColumn) = value

    3855. 

  3855.             End Set

    3856. 

  3856.         End Property

    3857. 

  3857.         

    3858. 

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

    3859. 

  3859.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3860. 

  3860.         Public Property AreaTop() As Double

    3861. 

  3861.             Get

    3862. 

  3862.                 Try 

    3863. 

  3863.                     Return CType(Me(Me.tableProjectlets.AreaTopColumn),Double)

    3864. 

  3864.                 Catch e As Global.System.InvalidCastException

    3865. 

  3865.                     Throw New Global.System.Data.StrongTypingException("The value for column 'AreaTop' in table 'Projectlets' is DBNull.", e)

    3866. 

  3866.                 End Try

    3867. 

  3867.             End Get

    3868. 

  3868.             Set

    3869. 

  3869.                 Me(Me.tableProjectlets.AreaTopColumn) = value

    3870. 

  3870.             End Set

    3871. 

  3871.         End Property

    3872. 

  3872.         

    3873. 

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

    3874. 

  3874.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3875. 

  3875.         Public Property AreaWidth() As Double

    3876. 

  3876.             Get

    3877. 

  3877.                 Try 

    3878. 

  3878.                     Return CType(Me(Me.tableProjectlets.AreaWidthColumn),Double)

    3879. 

  3879.                 Catch e As Global.System.InvalidCastException

    3880. 

  3880.                     Throw New Global.System.Data.StrongTypingException("The value for column 'AreaWidth' in table 'Projectlets' is DBNull.", e)

    3881. 

  3881.                 End Try

    3882. 

  3882.             End Get

    3883. 

  3883.             Set

    3884. 

  3884.                 Me(Me.tableProjectlets.AreaWidthColumn) = value

    3885. 

  3885.             End Set

    3886. 

  3886.         End Property

    3887. 

  3887.         

    3888. 

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

    3889. 

  3889.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3890. 

  3890.         Public Property AreaHeight() As Double

    3891. 

  3891.             Get

    3892. 

  3892.                 Try 

    3893. 

  3893.                     Return CType(Me(Me.tableProjectlets.AreaHeightColumn),Double)

    3894. 

  3894.                 Catch e As Global.System.InvalidCastException

    3895. 

  3895.                     Throw New Global.System.Data.StrongTypingException("The value for column 'AreaHeight' in table 'Projectlets' is DBNull.", e)

    3896. 

  3896.                 End Try

    3897. 

  3897.             End Get

    3898. 

  3898.             Set

    3899. 

  3899.                 Me(Me.tableProjectlets.AreaHeightColumn) = value

    3900. 

  3900.             End Set

    3901. 

  3901.         End Property

    3902. 

  3902.         

    3903. 

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

    3904. 

  3904.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3905. 

  3905.         Public Property Alignment() As Integer

    3906. 

  3906.             Get

    3907. 

  3907.                 Try 

    3908. 

  3908.                     Return CType(Me(Me.tableProjectlets.AlignmentColumn),Integer)

    3909. 

  3909.                 Catch e As Global.System.InvalidCastException

    3910. 

  3910.                     Throw New Global.System.Data.StrongTypingException("The value for column 'Alignment' in table 'Projectlets' is DBNull.", e)

    3911. 

  3911.                 End Try

    3912. 

  3912.             End Get

    3913. 

  3913.             Set

    3914. 

  3914.                 Me(Me.tableProjectlets.AlignmentColumn) = value

    3915. 

  3915.             End Set

    3916. 

  3916.         End Property

    3917. 

  3917.         

    3918. 

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

    3919. 

  3919.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3920. 

  3920.         Public Property WhenToDisplay() As Integer

    3921. 

  3921.             Get

    3922. 

  3922.                 Try 

    3923. 

  3923.                     Return CType(Me(Me.tableProjectlets.WhenToDisplayColumn),Integer)

    3924. 

  3924.                 Catch e As Global.System.InvalidCastException

    3925. 

  3925.                     Throw New Global.System.Data.StrongTypingException("The value for column 'WhenToDisplay' in table 'Projectlets' is DBNull.", e)

    3926. 

  3926.                 End Try

    3927. 

  3927.             End Get

    3928. 

  3928.             Set

    3929. 

  3929.                 Me(Me.tableProjectlets.WhenToDisplayColumn) = value

    3930. 

  3930.             End Set

    3931. 

  3931.         End Property

    3932. 

  3932.         

    3933. 

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

    3934. 

  3934.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3935. 

  3935.         Public Property Content() As String

    3936. 

  3936.             Get

    3937. 

  3937.                 Try 

    3938. 

  3938.                     Return CType(Me(Me.tableProjectlets.ContentColumn),String)

    3939. 

  3939.                 Catch e As Global.System.InvalidCastException

    3940. 

  3940.                     Throw New Global.System.Data.StrongTypingException("The value for column 'Content' in table 'Projectlets' is DBNull.", e)

    3941. 

  3941.                 End Try

    3942. 

  3942.             End Get

    3943. 

  3943.             Set

    3944. 

  3944.                 Me(Me.tableProjectlets.ContentColumn) = value

    3945. 

  3945.             End Set

    3946. 

  3946.         End Property

    3947. 

  3947.         

    3948. 

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

    3949. 

  3949.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3950. 

  3950.         Public Property StylesRow() As StylesRow

    3951. 

  3951.             Get

    3952. 

  3952.                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Styles_Projectlets")),StylesRow)

    3953. 

  3953.             End Get

    3954. 

  3954.             Set

    3955. 

  3955.                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Styles_Projectlets"))

    3956. 

  3956.             End Set

    3957. 

  3957.         End Property

    3958. 

  3958.         

    3959. 

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

    3960. 

  3960.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3961. 

  3961.         Public Function IsFontNameNull() As Boolean

    3962. 

  3962.             Return Me.IsNull(Me.tableProjectlets.FontNameColumn)

    3963. 

  3963.         End Function

    3964. 

  3964.         

    3965. 

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

    3966. 

  3966.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3967. 

  3967.         Public Sub SetFontNameNull()

    3968. 

  3968.             Me(Me.tableProjectlets.FontNameColumn) = Global.System.Convert.DBNull

    3969. 

  3969.         End Sub

    3970. 

  3970.         

    3971. 

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

    3972. 

  3972.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3973. 

  3973.         Public Function IsFontSizeNull() As Boolean

    3974. 

  3974.             Return Me.IsNull(Me.tableProjectlets.FontSizeColumn)

    3975. 

  3975.         End Function

    3976. 

  3976.         

    3977. 

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

    3978. 

  3978.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3979. 

  3979.         Public Sub SetFontSizeNull()

    3980. 

  3980.             Me(Me.tableProjectlets.FontSizeColumn) = Global.System.Convert.DBNull

    3981. 

  3981.         End Sub

    3982. 

  3982.         

    3983. 

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

    3984. 

  3984.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3985. 

  3985.         Public Function IsFontColourNull() As Boolean

    3986. 

  3986.             Return Me.IsNull(Me.tableProjectlets.FontColourColumn)

    3987. 

  3987.         End Function

    3988. 

  3988.         

    3989. 

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

    3990. 

  3990.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3991. 

  3991.         Public Sub SetFontColourNull()

    3992. 

  3992.             Me(Me.tableProjectlets.FontColourColumn) = Global.System.Convert.DBNull

    3993. 

  3993.         End Sub

    3994. 

  3994.         

    3995. 

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

    3996. 

  3996.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    3997. 

  3997.         Public Function IsFontStyleNull() As Boolean

    3998. 

  3998.             Return Me.IsNull(Me.tableProjectlets.FontStyleColumn)

    3999. 

  3999.         End Function

    4000. 

  4000.         

    4001. 

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

    4002. 

  4002.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4003. 

  4003.         Public Sub SetFontStyleNull()

    4004. 

  4004.             Me(Me.tableProjectlets.FontStyleColumn) = Global.System.Convert.DBNull

    4005. 

  4005.         End Sub

    4006. 

  4006.         

    4007. 

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

    4008. 

  4008.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4009. 

  4009.         Public Function IsFontEffectNull() As Boolean

    4010. 

  4010.             Return Me.IsNull(Me.tableProjectlets.FontEffectColumn)

    4011. 

  4011.         End Function

    4012. 

  4012.         

    4013. 

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

    4014. 

  4014.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4015. 

  4015.         Public Sub SetFontEffectNull()

    4016. 

  4016.             Me(Me.tableProjectlets.FontEffectColumn) = Global.System.Convert.DBNull

    4017. 

  4017.         End Sub

    4018. 

  4018.         

    4019. 

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

    4020. 

  4020.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4021. 

  4021.         Public Function IsFontEffectColourNull() As Boolean

    4022. 

  4022.             Return Me.IsNull(Me.tableProjectlets.FontEffectColourColumn)

    4023. 

  4023.         End Function

    4024. 

  4024.         

    4025. 

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

    4026. 

  4026.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4027. 

  4027.         Public Sub SetFontEffectColourNull()

    4028. 

  4028.             Me(Me.tableProjectlets.FontEffectColourColumn) = Global.System.Convert.DBNull

    4029. 

  4029.         End Sub

    4030. 

  4030.         

    4031. 

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

    4032. 

  4032.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4033. 

  4033.         Public Function IsAreaLeftNull() As Boolean

    4034. 

  4034.             Return Me.IsNull(Me.tableProjectlets.AreaLeftColumn)

    4035. 

  4035.         End Function

    4036. 

  4036.         

    4037. 

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

    4038. 

  4038.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4039. 

  4039.         Public Sub SetAreaLeftNull()

    4040. 

  4040.             Me(Me.tableProjectlets.AreaLeftColumn) = Global.System.Convert.DBNull

    4041. 

  4041.         End Sub

    4042. 

  4042.         

    4043. 

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

    4044. 

  4044.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4045. 

  4045.         Public Function IsAreaTopNull() As Boolean

    4046. 

  4046.             Return Me.IsNull(Me.tableProjectlets.AreaTopColumn)

    4047. 

  4047.         End Function

    4048. 

  4048.         

    4049. 

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

    4050. 

  4050.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4051. 

  4051.         Public Sub SetAreaTopNull()

    4052. 

  4052.             Me(Me.tableProjectlets.AreaTopColumn) = Global.System.Convert.DBNull

    4053. 

  4053.         End Sub

    4054. 

  4054.         

    4055. 

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

    4056. 

  4056.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4057. 

  4057.         Public Function IsAreaWidthNull() As Boolean

    4058. 

  4058.             Return Me.IsNull(Me.tableProjectlets.AreaWidthColumn)

    4059. 

  4059.         End Function

    4060. 

  4060.         

    4061. 

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

    4062. 

  4062.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4063. 

  4063.         Public Sub SetAreaWidthNull()

    4064. 

  4064.             Me(Me.tableProjectlets.AreaWidthColumn) = Global.System.Convert.DBNull

    4065. 

  4065.         End Sub

    4066. 

  4066.         

    4067. 

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

    4068. 

  4068.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4069. 

  4069.         Public Function IsAreaHeightNull() As Boolean

    4070. 

  4070.             Return Me.IsNull(Me.tableProjectlets.AreaHeightColumn)

    4071. 

  4071.         End Function

    4072. 

  4072.         

    4073. 

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

    4074. 

  4074.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4075. 

  4075.         Public Sub SetAreaHeightNull()

    4076. 

  4076.             Me(Me.tableProjectlets.AreaHeightColumn) = Global.System.Convert.DBNull

    4077. 

  4077.         End Sub

    4078. 

  4078.         

    4079. 

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

    4080. 

  4080.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4081. 

  4081.         Public Function IsAlignmentNull() As Boolean

    4082. 

  4082.             Return Me.IsNull(Me.tableProjectlets.AlignmentColumn)

    4083. 

  4083.         End Function

    4084. 

  4084.         

    4085. 

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

    4086. 

  4086.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4087. 

  4087.         Public Sub SetAlignmentNull()

    4088. 

  4088.             Me(Me.tableProjectlets.AlignmentColumn) = Global.System.Convert.DBNull

    4089. 

  4089.         End Sub

    4090. 

  4090.         

    4091. 

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

    4092. 

  4092.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4093. 

  4093.         Public Function IsWhenToDisplayNull() As Boolean

    4094. 

  4094.             Return Me.IsNull(Me.tableProjectlets.WhenToDisplayColumn)

    4095. 

  4095.         End Function

    4096. 

  4096.         

    4097. 

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

    4098. 

  4098.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4099. 

  4099.         Public Sub SetWhenToDisplayNull()

    4100. 

  4100.             Me(Me.tableProjectlets.WhenToDisplayColumn) = Global.System.Convert.DBNull

    4101. 

  4101.         End Sub

    4102. 

  4102.         

    4103. 

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

    4104. 

  4104.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4105. 

  4105.         Public Function IsContentNull() As Boolean

    4106. 

  4106.             Return Me.IsNull(Me.tableProjectlets.ContentColumn)

    4107. 

  4107.         End Function

    4108. 

  4108.         

    4109. 

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

    4110. 

  4110.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4111. 

  4111.         Public Sub SetContentNull()

    4112. 

  4112.             Me(Me.tableProjectlets.ContentColumn) = Global.System.Convert.DBNull

    4113. 

  4113.         End Sub

    4114. 

  4114.     End Class

    4115. 

  4115.     

    4116. 

  4116.     '''<summary>

    4117. 

  4117.     '''Represents strongly named DataRow class.

    4118. 

  4118.     '''</summary>

    4119. 

  4119.     Partial Public Class LicensesRow

    4120. 

  4120.         Inherits Global.System.Data.DataRow

    4121. 

  4121.         

    4122. 

  4122.         Private tableLicenses As LicensesDataTable

    4123. 

  4123.         

    4124. 

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

    4125. 

  4125.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4126. 

  4126.         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)

    4127. 

  4127.             MyBase.New(rb)

    4128. 

  4128.             Me.tableLicenses = CType(Me.Table,LicensesDataTable)

    4129. 

  4129.         End Sub

    4130. 

  4130.         

    4131. 

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

    4132. 

  4132.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4133. 

  4133.         Public Property LicenseID() As System.Guid

    4134. 

  4134.             Get

    4135. 

  4135.                 Return CType(Me(Me.tableLicenses.LicenseIDColumn),Global.System.Guid)

    4136. 

  4136.             End Get

    4137. 

  4137.             Set

    4138. 

  4138.                 Me(Me.tableLicenses.LicenseIDColumn) = value

    4139. 

  4139.             End Set

    4140. 

  4140.         End Property

    4141. 

  4141.         

    4142. 

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

    4143. 

  4143.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4144. 

  4144.         Public Property Name() As String

    4145. 

  4145.             Get

    4146. 

  4146.                 Try 

    4147. 

  4147.                     Return CType(Me(Me.tableLicenses.NameColumn),String)

    4148. 

  4148.                 Catch e As Global.System.InvalidCastException

    4149. 

  4149.                     Throw New Global.System.Data.StrongTypingException("The value for column 'Name' in table 'Licenses' is DBNull.", e)

    4150. 

  4150.                 End Try

    4151. 

  4151.             End Get

    4152. 

  4152.             Set

    4153. 

  4153.                 Me(Me.tableLicenses.NameColumn) = value

    4154. 

  4154.             End Set

    4155. 

  4155.         End Property

    4156. 

  4156.         

    4157. 

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

    4158. 

  4158.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4159. 

  4159.         Public Property Details() As String

    4160. 

  4160.             Get

    4161. 

  4161.                 Try 

    4162. 

  4162.                     Return CType(Me(Me.tableLicenses.DetailsColumn),String)

    4163. 

  4163.                 Catch e As Global.System.InvalidCastException

    4164. 

  4164.                     Throw New Global.System.Data.StrongTypingException("The value for column 'Details' in table 'Licenses' is DBNull.", e)

    4165. 

  4165.                 End Try

    4166. 

  4166.             End Get

    4167. 

  4167.             Set

    4168. 

  4168.                 Me(Me.tableLicenses.DetailsColumn) = value

    4169. 

  4169.             End Set

    4170. 

  4170.         End Property

    4171. 

  4171.         

    4172. 

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

    4173. 

  4173.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4174. 

  4174.         Public Property Number() As String

    4175. 

  4175.             Get

    4176. 

  4176.                 Try 

    4177. 

  4177.                     Return CType(Me(Me.tableLicenses.NumberColumn),String)

    4178. 

  4178.                 Catch e As Global.System.InvalidCastException

    4179. 

  4179.                     Throw New Global.System.Data.StrongTypingException("The value for column 'Number' in table 'Licenses' is DBNull.", e)

    4180. 

  4180.                 End Try

    4181. 

  4181.             End Get

    4182. 

  4182.             Set

    4183. 

  4183.                 Me(Me.tableLicenses.NumberColumn) = value

    4184. 

  4184.             End Set

    4185. 

  4185.         End Property

    4186. 

  4186.         

    4187. 

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

    4188. 

  4188.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4189. 

  4189.         Public Function IsNameNull() As Boolean

    4190. 

  4190.             Return Me.IsNull(Me.tableLicenses.NameColumn)

    4191. 

  4191.         End Function

    4192. 

  4192.         

    4193. 

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

    4194. 

  4194.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4195. 

  4195.         Public Sub SetNameNull()

    4196. 

  4196.             Me(Me.tableLicenses.NameColumn) = Global.System.Convert.DBNull

    4197. 

  4197.         End Sub

    4198. 

  4198.         

    4199. 

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

    4200. 

  4200.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4201. 

  4201.         Public Function IsDetailsNull() As Boolean

    4202. 

  4202.             Return Me.IsNull(Me.tableLicenses.DetailsColumn)

    4203. 

  4203.         End Function

    4204. 

  4204.         

    4205. 

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

    4206. 

  4206.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4207. 

  4207.         Public Sub SetDetailsNull()

    4208. 

  4208.             Me(Me.tableLicenses.DetailsColumn) = Global.System.Convert.DBNull

    4209. 

  4209.         End Sub

    4210. 

  4210.         

    4211. 

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

    4212. 

  4212.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4213. 

  4213.         Public Function IsNumberNull() As Boolean

    4214. 

  4214.             Return Me.IsNull(Me.tableLicenses.NumberColumn)

    4215. 

  4215.         End Function

    4216. 

  4216.         

    4217. 

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

    4218. 

  4218.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4219. 

  4219.         Public Sub SetNumberNull()

    4220. 

  4220.             Me(Me.tableLicenses.NumberColumn) = Global.System.Convert.DBNull

    4221. 

  4221.         End Sub

    4222. 

  4222.         

    4223. 

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

    4224. 

  4224.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4225. 

  4225.         Public Function GetSongsRows() As SongsRow()

    4226. 

  4226.             If (Me.Table.ChildRelations("Licenses_Songs") Is Nothing) Then

    4227. 

  4227.                 Return New SongsRow(-1) {}

    4228. 

  4228.             Else

    4229. 

  4229.                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("Licenses_Songs")),SongsRow())

    4230. 

  4230.             End If

    4231. 

  4231.         End Function

    4232. 

  4232.     End Class

    4233. 

  4233.     

    4234. 

  4234.     '''<summary>

    4235. 

  4235.     '''Row event argument class

    4236. 

  4236.     '''</summary>

    4237. 

  4237.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4238. 

  4238.     Public Class SettingsRowChangeEvent

    4239. 

  4239.         Inherits Global.System.EventArgs

    4240. 

  4240.         

    4241. 

  4241.         Private eventRow As SettingsRow

    4242. 

  4242.         

    4243. 

  4243.         Private eventAction As Global.System.Data.DataRowAction

    4244. 

  4244.         

    4245. 

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

    4246. 

  4246.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4247. 

  4247.         Public Sub New(ByVal row As SettingsRow, ByVal action As Global.System.Data.DataRowAction)

    4248. 

  4248.             MyBase.New

    4249. 

  4249.             Me.eventRow = row

    4250. 

  4250.             Me.eventAction = action

    4251. 

  4251.         End Sub

    4252. 

  4252.         

    4253. 

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

    4254. 

  4254.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4255. 

  4255.         Public ReadOnly Property Row() As SettingsRow

    4256. 

  4256.             Get

    4257. 

  4257.                 Return Me.eventRow

    4258. 

  4258.             End Get

    4259. 

  4259.         End Property

    4260. 

  4260.         

    4261. 

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

    4262. 

  4262.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4263. 

  4263.         Public ReadOnly Property Action() As Global.System.Data.DataRowAction

    4264. 

  4264.             Get

    4265. 

  4265.                 Return Me.eventAction

    4266. 

  4266.             End Get

    4267. 

  4267.         End Property

    4268. 

  4268.     End Class

    4269. 

  4269.     

    4270. 

  4270.     '''<summary>

    4271. 

  4271.     '''Row event argument class

    4272. 

  4272.     '''</summary>

    4273. 

  4273.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4274. 

  4274.     Public Class SongsRowChangeEvent

    4275. 

  4275.         Inherits Global.System.EventArgs

    4276. 

  4276.         

    4277. 

  4277.         Private eventRow As SongsRow

    4278. 

  4278.         

    4279. 

  4279.         Private eventAction As Global.System.Data.DataRowAction

    4280. 

  4280.         

    4281. 

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

    4282. 

  4282.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4283. 

  4283.         Public Sub New(ByVal row As SongsRow, ByVal action As Global.System.Data.DataRowAction)

    4284. 

  4284.             MyBase.New

    4285. 

  4285.             Me.eventRow = row

    4286. 

  4286.             Me.eventAction = action

    4287. 

  4287.         End Sub

    4288. 

  4288.         

    4289. 

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

    4290. 

  4290.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4291. 

  4291.         Public ReadOnly Property Row() As SongsRow

    4292. 

  4292.             Get

    4293. 

  4293.                 Return Me.eventRow

    4294. 

  4294.             End Get

    4295. 

  4295.         End Property

    4296. 

  4296.         

    4297. 

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

    4298. 

  4298.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4299. 

  4299.         Public ReadOnly Property Action() As Global.System.Data.DataRowAction

    4300. 

  4300.             Get

    4301. 

  4301.                 Return Me.eventAction

    4302. 

  4302.             End Get

    4303. 

  4303.         End Property

    4304. 

  4304.     End Class

    4305. 

  4305.     

    4306. 

  4306.     '''<summary>

    4307. 

  4307.     '''Row event argument class

    4308. 

  4308.     '''</summary>

    4309. 

  4309.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4310. 

  4310.     Public Class StylesRowChangeEvent

    4311. 

  4311.         Inherits Global.System.EventArgs

    4312. 

  4312.         

    4313. 

  4313.         Private eventRow As StylesRow

    4314. 

  4314.         

    4315. 

  4315.         Private eventAction As Global.System.Data.DataRowAction

    4316. 

  4316.         

    4317. 

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

    4318. 

  4318.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4319. 

  4319.         Public Sub New(ByVal row As StylesRow, ByVal action As Global.System.Data.DataRowAction)

    4320. 

  4320.             MyBase.New

    4321. 

  4321.             Me.eventRow = row

    4322. 

  4322.             Me.eventAction = action

    4323. 

  4323.         End Sub

    4324. 

  4324.         

    4325. 

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

    4326. 

  4326.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4327. 

  4327.         Public ReadOnly Property Row() As StylesRow

    4328. 

  4328.             Get

    4329. 

  4329.                 Return Me.eventRow

    4330. 

  4330.             End Get

    4331. 

  4331.         End Property

    4332. 

  4332.         

    4333. 

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

    4334. 

  4334.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4335. 

  4335.         Public ReadOnly Property Action() As Global.System.Data.DataRowAction

    4336. 

  4336.             Get

    4337. 

  4337.                 Return Me.eventAction

    4338. 

  4338.             End Get

    4339. 

  4339.         End Property

    4340. 

  4340.     End Class

    4341. 

  4341.     

    4342. 

  4342.     '''<summary>

    4343. 

  4343.     '''Row event argument class

    4344. 

  4344.     '''</summary>

    4345. 

  4345.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4346. 

  4346.     Public Class BiblesRowChangeEvent

    4347. 

  4347.         Inherits Global.System.EventArgs

    4348. 

  4348.         

    4349. 

  4349.         Private eventRow As BiblesRow

    4350. 

  4350.         

    4351. 

  4351.         Private eventAction As Global.System.Data.DataRowAction

    4352. 

  4352.         

    4353. 

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

    4354. 

  4354.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4355. 

  4355.         Public Sub New(ByVal row As BiblesRow, ByVal action As Global.System.Data.DataRowAction)

    4356. 

  4356.             MyBase.New

    4357. 

  4357.             Me.eventRow = row

    4358. 

  4358.             Me.eventAction = action

    4359. 

  4359.         End Sub

    4360. 

  4360.         

    4361. 

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

    4362. 

  4362.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4363. 

  4363.         Public ReadOnly Property Row() As BiblesRow

    4364. 

  4364.             Get

    4365. 

  4365.                 Return Me.eventRow

    4366. 

  4366.             End Get

    4367. 

  4367.         End Property

    4368. 

  4368.         

    4369. 

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

    4370. 

  4370.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4371. 

  4371.         Public ReadOnly Property Action() As Global.System.Data.DataRowAction

    4372. 

  4372.             Get

    4373. 

  4373.                 Return Me.eventAction

    4374. 

  4374.             End Get

    4375. 

  4375.         End Property

    4376. 

  4376.     End Class

    4377. 

  4377.     

    4378. 

  4378.     '''<summary>

    4379. 

  4379.     '''Row event argument class

    4380. 

  4380.     '''</summary>

    4381. 

  4381.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4382. 

  4382.     Public Class CategoriesRowChangeEvent

    4383. 

  4383.         Inherits Global.System.EventArgs

    4384. 

  4384.         

    4385. 

  4385.         Private eventRow As CategoriesRow

    4386. 

  4386.         

    4387. 

  4387.         Private eventAction As Global.System.Data.DataRowAction

    4388. 

  4388.         

    4389. 

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

    4390. 

  4390.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4391. 

  4391.         Public Sub New(ByVal row As CategoriesRow, ByVal action As Global.System.Data.DataRowAction)

    4392. 

  4392.             MyBase.New

    4393. 

  4393.             Me.eventRow = row

    4394. 

  4394.             Me.eventAction = action

    4395. 

  4395.         End Sub

    4396. 

  4396.         

    4397. 

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

    4398. 

  4398.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4399. 

  4399.         Public ReadOnly Property Row() As CategoriesRow

    4400. 

  4400.             Get

    4401. 

  4401.                 Return Me.eventRow

    4402. 

  4402.             End Get

    4403. 

  4403.         End Property

    4404. 

  4404.         

    4405. 

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

    4406. 

  4406.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4407. 

  4407.         Public ReadOnly Property Action() As Global.System.Data.DataRowAction

    4408. 

  4408.             Get

    4409. 

  4409.                 Return Me.eventAction

    4410. 

  4410.             End Get

    4411. 

  4411.         End Property

    4412. 

  4412.     End Class

    4413. 

  4413.     

    4414. 

  4414.     '''<summary>

    4415. 

  4415.     '''Row event argument class

    4416. 

  4416.     '''</summary>

    4417. 

  4417.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4418. 

  4418.     Public Class SongCategoriesRowChangeEvent

    4419. 

  4419.         Inherits Global.System.EventArgs

    4420. 

  4420.         

    4421. 

  4421.         Private eventRow As SongCategoriesRow

    4422. 

  4422.         

    4423. 

  4423.         Private eventAction As Global.System.Data.DataRowAction

    4424. 

  4424.         

    4425. 

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

    4426. 

  4426.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4427. 

  4427.         Public Sub New(ByVal row As SongCategoriesRow, ByVal action As Global.System.Data.DataRowAction)

    4428. 

  4428.             MyBase.New

    4429. 

  4429.             Me.eventRow = row

    4430. 

  4430.             Me.eventAction = action

    4431. 

  4431.         End Sub

    4432. 

  4432.         

    4433. 

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

    4434. 

  4434.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4435. 

  4435.         Public ReadOnly Property Row() As SongCategoriesRow

    4436. 

  4436.             Get

    4437. 

  4437.                 Return Me.eventRow

    4438. 

  4438.             End Get

    4439. 

  4439.         End Property

    4440. 

  4440.         

    4441. 

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

    4442. 

  4442.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4443. 

  4443.         Public ReadOnly Property Action() As Global.System.Data.DataRowAction

    4444. 

  4444.             Get

    4445. 

  4445.                 Return Me.eventAction

    4446. 

  4446.             End Get

    4447. 

  4447.         End Property

    4448. 

  4448.     End Class

    4449. 

  4449.     

    4450. 

  4450.     '''<summary>

    4451. 

  4451.     '''Row event argument class

    4452. 

  4452.     '''</summary>

    4453. 

  4453.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4454. 

  4454.     Public Class ProjectletsRowChangeEvent

    4455. 

  4455.         Inherits Global.System.EventArgs

    4456. 

  4456.         

    4457. 

  4457.         Private eventRow As ProjectletsRow

    4458. 

  4458.         

    4459. 

  4459.         Private eventAction As Global.System.Data.DataRowAction

    4460. 

  4460.         

    4461. 

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

    4462. 

  4462.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4463. 

  4463.         Public Sub New(ByVal row As ProjectletsRow, ByVal action As Global.System.Data.DataRowAction)

    4464. 

  4464.             MyBase.New

    4465. 

  4465.             Me.eventRow = row

    4466. 

  4466.             Me.eventAction = action

    4467. 

  4467.         End Sub

    4468. 

  4468.         

    4469. 

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

    4470. 

  4470.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4471. 

  4471.         Public ReadOnly Property Row() As ProjectletsRow

    4472. 

  4472.             Get

    4473. 

  4473.                 Return Me.eventRow

    4474. 

  4474.             End Get

    4475. 

  4475.         End Property

    4476. 

  4476.         

    4477. 

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

    4478. 

  4478.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4479. 

  4479.         Public ReadOnly Property Action() As Global.System.Data.DataRowAction

    4480. 

  4480.             Get

    4481. 

  4481.                 Return Me.eventAction

    4482. 

  4482.             End Get

    4483. 

  4483.         End Property

    4484. 

  4484.     End Class

    4485. 

  4485.     

    4486. 

  4486.     '''<summary>

    4487. 

  4487.     '''Row event argument class

    4488. 

  4488.     '''</summary>

    4489. 

  4489.     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4490. 

  4490.     Public Class LicensesRowChangeEvent

    4491. 

  4491.         Inherits Global.System.EventArgs

    4492. 

  4492.         

    4493. 

  4493.         Private eventRow As LicensesRow

    4494. 

  4494.         

    4495. 

  4495.         Private eventAction As Global.System.Data.DataRowAction

    4496. 

  4496.         

    4497. 

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

    4498. 

  4498.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4499. 

  4499.         Public Sub New(ByVal row As LicensesRow, ByVal action As Global.System.Data.DataRowAction)

    4500. 

  4500.             MyBase.New

    4501. 

  4501.             Me.eventRow = row

    4502. 

  4502.             Me.eventAction = action

    4503. 

  4503.         End Sub

    4504. 

  4504.         

    4505. 

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

    4506. 

  4506.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4507. 

  4507.         Public ReadOnly Property Row() As LicensesRow

    4508. 

  4508.             Get

    4509. 

  4509.                 Return Me.eventRow

    4510. 

  4510.             End Get

    4511. 

  4511.         End Property

    4512. 

  4512.         

    4513. 

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

    4514. 

  4514.          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _

    4515. 

  4515.         Public ReadOnly Property Action() As Global.System.Data.DataRowAction

    4516. 

  4516.             Get

    4517. 

  4517.                 Return Me.eventAction

    4518. 

  4518.             End Get

    4519. 

  4519.         End Property

    4520. 

  4520.     End Class

    4521. 

  4521. End Class

    4522. 

  4522.