/Source Code/SongDatabase/Data.Designer.vb

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

Large files are truncated click here to view the full file

    

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

    2. 

  2. ' <auto-generated>

    3. 

  3. '     This code was generated by a tool.

    4. 

  4. '     Runtime Version: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.