/Source Code/SongDatabase/Data.Designer.vb
Visual Basic | 4521 lines | 3872 code | 565 blank | 84 comment | 30 complexity | 7c67175b9dcda14cdf5578321e65d9eb MD5 | raw file
Large files files are truncated, but you can click here to view the full file
1'------------------------------------------------------------------------------ 2' <auto-generated> 3' This code was generated by a tool. 4' Runtime Version:4.0.30319.1 5' 6' Changes to this file may cause incorrect behavior and will be lost if 7' the code is regenerated. 8' </auto-generated> 9'------------------------------------------------------------------------------ 10 11Option Strict Off 12Option Explicit On 13 14 15 16'''<summary> 17'''Represents a strongly typed in-memory cache of data. 18'''</summary> 19<Global.System.Serializable(), _ 20 Global.System.ComponentModel.DesignerCategoryAttribute("code"), _ 21 Global.System.ComponentModel.ToolboxItem(true), _ 22 Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedDataSetSchema"), _ 23 Global.System.Xml.Serialization.XmlRootAttribute("Data"), _ 24 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")> _ 25Partial Public Class Data 26 Inherits Global.System.Data.DataSet 27 28 Private tableSettings As SettingsDataTable 29 30 Private tableSongs As SongsDataTable 31 32 Private tableStyles As StylesDataTable 33 34 Private tableBibles As BiblesDataTable 35 36 Private tableCategories As CategoriesDataTable 37 38 Private tableSongCategories As SongCategoriesDataTable 39 40 Private tableProjectlets As ProjectletsDataTable 41 42 Private tableLicenses As LicensesDataTable 43 44 Private relationFK_Categories_SongCategories As Global.System.Data.DataRelation 45 46 Private relationFK_Songs_SongCategories As Global.System.Data.DataRelation 47 48 Private relationFK_Styles_Projectlets As Global.System.Data.DataRelation 49 50 Private relationLicenses_Songs As Global.System.Data.DataRelation 51 52 Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema 53 54 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 55 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 56 Public Sub New() 57 MyBase.New 58 Me.BeginInit 59 Me.InitClass 60 Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged 61 AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler 62 AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler 63 Me.EndInit 64 End Sub 65 66 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 67 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 68 Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) 69 MyBase.New(info, context, false) 70 If (Me.IsBinarySerialized(info, context) = true) Then 71 Me.InitVars(false) 72 Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged 73 AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 74 AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 75 Return 76 End If 77 Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String) 78 If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then 79 Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() 80 ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) 81 If (Not (ds.Tables("Settings")) Is Nothing) Then 82 MyBase.Tables.Add(New SettingsDataTable(ds.Tables("Settings"))) 83 End If 84 If (Not (ds.Tables("Songs")) Is Nothing) Then 85 MyBase.Tables.Add(New SongsDataTable(ds.Tables("Songs"))) 86 End If 87 If (Not (ds.Tables("Styles")) Is Nothing) Then 88 MyBase.Tables.Add(New StylesDataTable(ds.Tables("Styles"))) 89 End If 90 If (Not (ds.Tables("Bibles")) Is Nothing) Then 91 MyBase.Tables.Add(New BiblesDataTable(ds.Tables("Bibles"))) 92 End If 93 If (Not (ds.Tables("Categories")) Is Nothing) Then 94 MyBase.Tables.Add(New CategoriesDataTable(ds.Tables("Categories"))) 95 End If 96 If (Not (ds.Tables("SongCategories")) Is Nothing) Then 97 MyBase.Tables.Add(New SongCategoriesDataTable(ds.Tables("SongCategories"))) 98 End If 99 If (Not (ds.Tables("Projectlets")) Is Nothing) Then 100 MyBase.Tables.Add(New ProjectletsDataTable(ds.Tables("Projectlets"))) 101 End If 102 If (Not (ds.Tables("Licenses")) Is Nothing) Then 103 MyBase.Tables.Add(New LicensesDataTable(ds.Tables("Licenses"))) 104 End If 105 Me.DataSetName = ds.DataSetName 106 Me.Prefix = ds.Prefix 107 Me.Namespace = ds.Namespace 108 Me.Locale = ds.Locale 109 Me.CaseSensitive = ds.CaseSensitive 110 Me.EnforceConstraints = ds.EnforceConstraints 111 Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) 112 Me.InitVars 113 Else 114 Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) 115 End If 116 Me.GetSerializationData(info, context) 117 Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged 118 AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler 119 AddHandler Me.Relations.CollectionChanged, schemaChangedHandler 120 End Sub 121 122 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 123 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ 124 Global.System.ComponentModel.Browsable(false), _ 125 Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _ 126 Public ReadOnly Property Settings() As SettingsDataTable 127 Get 128 Return Me.tableSettings 129 End Get 130 End Property 131 132 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 133 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ 134 Global.System.ComponentModel.Browsable(false), _ 135 Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _ 136 Public ReadOnly Property Songs() As SongsDataTable 137 Get 138 Return Me.tableSongs 139 End Get 140 End Property 141 142 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 143 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ 144 Global.System.ComponentModel.Browsable(false), _ 145 Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _ 146 Public ReadOnly Property Styles() As StylesDataTable 147 Get 148 Return Me.tableStyles 149 End Get 150 End Property 151 152 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 153 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ 154 Global.System.ComponentModel.Browsable(false), _ 155 Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _ 156 Public ReadOnly Property Bibles() As BiblesDataTable 157 Get 158 Return Me.tableBibles 159 End Get 160 End Property 161 162 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 163 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ 164 Global.System.ComponentModel.Browsable(false), _ 165 Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _ 166 Public ReadOnly Property Categories() As CategoriesDataTable 167 Get 168 Return Me.tableCategories 169 End Get 170 End Property 171 172 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 173 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ 174 Global.System.ComponentModel.Browsable(false), _ 175 Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _ 176 Public ReadOnly Property SongCategories() As SongCategoriesDataTable 177 Get 178 Return Me.tableSongCategories 179 End Get 180 End Property 181 182 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 183 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ 184 Global.System.ComponentModel.Browsable(false), _ 185 Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _ 186 Public ReadOnly Property Projectlets() As ProjectletsDataTable 187 Get 188 Return Me.tableProjectlets 189 End Get 190 End Property 191 192 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 193 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ 194 Global.System.ComponentModel.Browsable(false), _ 195 Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _ 196 Public ReadOnly Property Licenses() As LicensesDataTable 197 Get 198 Return Me.tableLicenses 199 End Get 200 End Property 201 202 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 203 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ 204 Global.System.ComponentModel.BrowsableAttribute(true), _ 205 Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)> _ 206 Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode 207 Get 208 Return Me._schemaSerializationMode 209 End Get 210 Set 211 Me._schemaSerializationMode = value 212 End Set 213 End Property 214 215 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 216 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ 217 Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _ 218 Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection 219 Get 220 Return MyBase.Tables 221 End Get 222 End Property 223 224 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 225 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ 226 Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _ 227 Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection 228 Get 229 Return MyBase.Relations 230 End Get 231 End Property 232 233 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 234 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 235 Protected Overrides Sub InitializeDerivedDataSet() 236 Me.BeginInit 237 Me.InitClass 238 Me.EndInit 239 End Sub 240 241 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 242 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 243 Public Overrides Function Clone() As Global.System.Data.DataSet 244 Dim cln As Data = CType(MyBase.Clone,Data) 245 cln.InitVars 246 cln.SchemaSerializationMode = Me.SchemaSerializationMode 247 Return cln 248 End Function 249 250 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 251 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 252 Protected Overrides Function ShouldSerializeTables() As Boolean 253 Return false 254 End Function 255 256 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 257 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 258 Protected Overrides Function ShouldSerializeRelations() As Boolean 259 Return false 260 End Function 261 262 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 263 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 264 Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) 265 If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then 266 Me.Reset 267 Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() 268 ds.ReadXml(reader) 269 If (Not (ds.Tables("Settings")) Is Nothing) Then 270 MyBase.Tables.Add(New SettingsDataTable(ds.Tables("Settings"))) 271 End If 272 If (Not (ds.Tables("Songs")) Is Nothing) Then 273 MyBase.Tables.Add(New SongsDataTable(ds.Tables("Songs"))) 274 End If 275 If (Not (ds.Tables("Styles")) Is Nothing) Then 276 MyBase.Tables.Add(New StylesDataTable(ds.Tables("Styles"))) 277 End If 278 If (Not (ds.Tables("Bibles")) Is Nothing) Then 279 MyBase.Tables.Add(New BiblesDataTable(ds.Tables("Bibles"))) 280 End If 281 If (Not (ds.Tables("Categories")) Is Nothing) Then 282 MyBase.Tables.Add(New CategoriesDataTable(ds.Tables("Categories"))) 283 End If 284 If (Not (ds.Tables("SongCategories")) Is Nothing) Then 285 MyBase.Tables.Add(New SongCategoriesDataTable(ds.Tables("SongCategories"))) 286 End If 287 If (Not (ds.Tables("Projectlets")) Is Nothing) Then 288 MyBase.Tables.Add(New ProjectletsDataTable(ds.Tables("Projectlets"))) 289 End If 290 If (Not (ds.Tables("Licenses")) Is Nothing) Then 291 MyBase.Tables.Add(New LicensesDataTable(ds.Tables("Licenses"))) 292 End If 293 Me.DataSetName = ds.DataSetName 294 Me.Prefix = ds.Prefix 295 Me.Namespace = ds.Namespace 296 Me.Locale = ds.Locale 297 Me.CaseSensitive = ds.CaseSensitive 298 Me.EnforceConstraints = ds.EnforceConstraints 299 Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) 300 Me.InitVars 301 Else 302 Me.ReadXml(reader) 303 Me.InitVars 304 End If 305 End Sub 306 307 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 308 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 309 Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema 310 Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() 311 Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) 312 stream.Position = 0 313 Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing) 314 End Function 315 316 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 317 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 318 Friend Overloads Sub InitVars() 319 Me.InitVars(true) 320 End Sub 321 322 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 323 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 324 Friend Overloads Sub InitVars(ByVal initTable As Boolean) 325 Me.tableSettings = CType(MyBase.Tables("Settings"),SettingsDataTable) 326 If (initTable = true) Then 327 If (Not (Me.tableSettings) Is Nothing) Then 328 Me.tableSettings.InitVars 329 End If 330 End If 331 Me.tableSongs = CType(MyBase.Tables("Songs"),SongsDataTable) 332 If (initTable = true) Then 333 If (Not (Me.tableSongs) Is Nothing) Then 334 Me.tableSongs.InitVars 335 End If 336 End If 337 Me.tableStyles = CType(MyBase.Tables("Styles"),StylesDataTable) 338 If (initTable = true) Then 339 If (Not (Me.tableStyles) Is Nothing) Then 340 Me.tableStyles.InitVars 341 End If 342 End If 343 Me.tableBibles = CType(MyBase.Tables("Bibles"),BiblesDataTable) 344 If (initTable = true) Then 345 If (Not (Me.tableBibles) Is Nothing) Then 346 Me.tableBibles.InitVars 347 End If 348 End If 349 Me.tableCategories = CType(MyBase.Tables("Categories"),CategoriesDataTable) 350 If (initTable = true) Then 351 If (Not (Me.tableCategories) Is Nothing) Then 352 Me.tableCategories.InitVars 353 End If 354 End If 355 Me.tableSongCategories = CType(MyBase.Tables("SongCategories"),SongCategoriesDataTable) 356 If (initTable = true) Then 357 If (Not (Me.tableSongCategories) Is Nothing) Then 358 Me.tableSongCategories.InitVars 359 End If 360 End If 361 Me.tableProjectlets = CType(MyBase.Tables("Projectlets"),ProjectletsDataTable) 362 If (initTable = true) Then 363 If (Not (Me.tableProjectlets) Is Nothing) Then 364 Me.tableProjectlets.InitVars 365 End If 366 End If 367 Me.tableLicenses = CType(MyBase.Tables("Licenses"),LicensesDataTable) 368 If (initTable = true) Then 369 If (Not (Me.tableLicenses) Is Nothing) Then 370 Me.tableLicenses.InitVars 371 End If 372 End If 373 Me.relationFK_Categories_SongCategories = Me.Relations("FK_Categories_SongCategories") 374 Me.relationFK_Songs_SongCategories = Me.Relations("FK_Songs_SongCategories") 375 Me.relationFK_Styles_Projectlets = Me.Relations("FK_Styles_Projectlets") 376 Me.relationLicenses_Songs = Me.Relations("Licenses_Songs") 377 End Sub 378 379 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 380 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 381 Private Sub InitClass() 382 Me.DataSetName = "Data" 383 Me.Prefix = "" 384 Me.Namespace = "http://tempuri.org/Data.xsd" 385 Me.EnforceConstraints = true 386 Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema 387 Me.tableSettings = New SettingsDataTable() 388 MyBase.Tables.Add(Me.tableSettings) 389 Me.tableSongs = New SongsDataTable() 390 MyBase.Tables.Add(Me.tableSongs) 391 Me.tableStyles = New StylesDataTable() 392 MyBase.Tables.Add(Me.tableStyles) 393 Me.tableBibles = New BiblesDataTable() 394 MyBase.Tables.Add(Me.tableBibles) 395 Me.tableCategories = New CategoriesDataTable() 396 MyBase.Tables.Add(Me.tableCategories) 397 Me.tableSongCategories = New SongCategoriesDataTable() 398 MyBase.Tables.Add(Me.tableSongCategories) 399 Me.tableProjectlets = New ProjectletsDataTable() 400 MyBase.Tables.Add(Me.tableProjectlets) 401 Me.tableLicenses = New LicensesDataTable() 402 MyBase.Tables.Add(Me.tableLicenses) 403 Dim fkc As Global.System.Data.ForeignKeyConstraint 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 Me.tableSongCategories.Constraints.Add(fkc) 406 fkc.AcceptRejectRule = Global.System.Data.AcceptRejectRule.None 407 fkc.DeleteRule = Global.System.Data.Rule.Cascade 408 fkc.UpdateRule = Global.System.Data.Rule.Cascade 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 Me.tableSongCategories.Constraints.Add(fkc) 411 fkc.AcceptRejectRule = Global.System.Data.AcceptRejectRule.None 412 fkc.DeleteRule = Global.System.Data.Rule.Cascade 413 fkc.UpdateRule = Global.System.Data.Rule.Cascade 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 Me.tableProjectlets.Constraints.Add(fkc) 416 fkc.AcceptRejectRule = Global.System.Data.AcceptRejectRule.None 417 fkc.DeleteRule = Global.System.Data.Rule.Cascade 418 fkc.UpdateRule = Global.System.Data.Rule.Cascade 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 Me.Relations.Add(Me.relationFK_Categories_SongCategories) 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 Me.Relations.Add(Me.relationFK_Songs_SongCategories) 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 Me.Relations.Add(Me.relationFK_Styles_Projectlets) 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 Me.Relations.Add(Me.relationLicenses_Songs) 427 End Sub 428 429 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 430 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 431 Private Function ShouldSerializeSettings() As Boolean 432 Return false 433 End Function 434 435 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 436 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 437 Private Function ShouldSerializeSongs() As Boolean 438 Return false 439 End Function 440 441 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 442 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 443 Private Function ShouldSerializeStyles() As Boolean 444 Return false 445 End Function 446 447 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 448 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 449 Private Function ShouldSerializeBibles() As Boolean 450 Return false 451 End Function 452 453 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 454 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 455 Private Function ShouldSerializeCategories() As Boolean 456 Return false 457 End Function 458 459 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 460 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 461 Private Function ShouldSerializeSongCategories() As Boolean 462 Return false 463 End Function 464 465 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 466 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 467 Private Function ShouldSerializeProjectlets() As Boolean 468 Return false 469 End Function 470 471 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 472 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 473 Private Function ShouldSerializeLicenses() As Boolean 474 Return false 475 End Function 476 477 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 478 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 479 Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) 480 If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then 481 Me.InitVars 482 End If 483 End Sub 484 485 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 486 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 487 Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType 488 Dim ds As Data = New Data() 489 Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() 490 Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() 491 Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() 492 any.Namespace = ds.Namespace 493 sequence.Items.Add(any) 494 type.Particle = sequence 495 Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable 496 If xs.Contains(dsSchema.TargetNamespace) Then 497 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() 498 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() 499 Try 500 Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing 501 dsSchema.Write(s1) 502 Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator 503 Do While schemas.MoveNext 504 schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) 505 s2.SetLength(0) 506 schema.Write(s2) 507 If (s1.Length = s2.Length) Then 508 s1.Position = 0 509 s2.Position = 0 510 511 Do While ((s1.Position <> s1.Length) _ 512 AndAlso (s1.ReadByte = s2.ReadByte)) 513 514 515 Loop 516 If (s1.Position = s1.Length) Then 517 Return type 518 End If 519 End If 520 521 Loop 522 Finally 523 If (Not (s1) Is Nothing) Then 524 s1.Close 525 End If 526 If (Not (s2) Is Nothing) Then 527 s2.Close 528 End If 529 End Try 530 End If 531 xs.Add(dsSchema) 532 Return type 533 End Function 534 535 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 536 Public Delegate Sub SettingsRowChangeEventHandler(ByVal sender As Object, ByVal e As SettingsRowChangeEvent) 537 538 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 539 Public Delegate Sub SongsRowChangeEventHandler(ByVal sender As Object, ByVal e As SongsRowChangeEvent) 540 541 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 542 Public Delegate Sub StylesRowChangeEventHandler(ByVal sender As Object, ByVal e As StylesRowChangeEvent) 543 544 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 545 Public Delegate Sub BiblesRowChangeEventHandler(ByVal sender As Object, ByVal e As BiblesRowChangeEvent) 546 547 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 548 Public Delegate Sub CategoriesRowChangeEventHandler(ByVal sender As Object, ByVal e As CategoriesRowChangeEvent) 549 550 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 551 Public Delegate Sub SongCategoriesRowChangeEventHandler(ByVal sender As Object, ByVal e As SongCategoriesRowChangeEvent) 552 553 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 554 Public Delegate Sub ProjectletsRowChangeEventHandler(ByVal sender As Object, ByVal e As ProjectletsRowChangeEvent) 555 556 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 557 Public Delegate Sub LicensesRowChangeEventHandler(ByVal sender As Object, ByVal e As LicensesRowChangeEvent) 558 559 '''<summary> 560 '''Represents the strongly named DataTable class. 561 '''</summary> 562 <Global.System.Serializable(), _ 563 Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _ 564 Partial Public Class SettingsDataTable 565 Inherits Global.System.Data.DataTable 566 Implements Global.System.Collections.IEnumerable 567 568 Private columnName As Global.System.Data.DataColumn 569 570 Private columnValue As Global.System.Data.DataColumn 571 572 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 573 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 574 Public Sub New() 575 MyBase.New 576 Me.TableName = "Settings" 577 Me.BeginInit 578 Me.InitClass 579 Me.EndInit 580 End Sub 581 582 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 583 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 584 Friend Sub New(ByVal table As Global.System.Data.DataTable) 585 MyBase.New 586 Me.TableName = table.TableName 587 If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then 588 Me.CaseSensitive = table.CaseSensitive 589 End If 590 If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then 591 Me.Locale = table.Locale 592 End If 593 If (table.Namespace <> table.DataSet.Namespace) Then 594 Me.Namespace = table.Namespace 595 End If 596 Me.Prefix = table.Prefix 597 Me.MinimumCapacity = table.MinimumCapacity 598 End Sub 599 600 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 601 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 602 Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) 603 MyBase.New(info, context) 604 Me.InitVars 605 End Sub 606 607 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 608 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 609 Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn 610 Get 611 Return Me.columnName 612 End Get 613 End Property 614 615 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 616 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 617 Public ReadOnly Property ValueColumn() As Global.System.Data.DataColumn 618 Get 619 Return Me.columnValue 620 End Get 621 End Property 622 623 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 624 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ 625 Global.System.ComponentModel.Browsable(false)> _ 626 Public ReadOnly Property Count() As Integer 627 Get 628 Return Me.Rows.Count 629 End Get 630 End Property 631 632 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 633 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 634 Public Default ReadOnly Property Item(ByVal index As Integer) As SettingsRow 635 Get 636 Return CType(Me.Rows(index),SettingsRow) 637 End Get 638 End Property 639 640 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 641 Public Event SettingsRowChanging As SettingsRowChangeEventHandler 642 643 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 644 Public Event SettingsRowChanged As SettingsRowChangeEventHandler 645 646 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 647 Public Event SettingsRowDeleting As SettingsRowChangeEventHandler 648 649 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 650 Public Event SettingsRowDeleted As SettingsRowChangeEventHandler 651 652 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 653 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 654 Public Overloads Sub AddSettingsRow(ByVal row As SettingsRow) 655 Me.Rows.Add(row) 656 End Sub 657 658 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 659 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 660 Public Overloads Function AddSettingsRow(ByVal Name As String, ByVal Value As String) As SettingsRow 661 Dim rowSettingsRow As SettingsRow = CType(Me.NewRow,SettingsRow) 662 Dim columnValuesArray() As Object = New Object() {Name, Value} 663 rowSettingsRow.ItemArray = columnValuesArray 664 Me.Rows.Add(rowSettingsRow) 665 Return rowSettingsRow 666 End Function 667 668 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 669 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 670 Public Function FindByName(ByVal Name As String) As SettingsRow 671 Return CType(Me.Rows.Find(New Object() {Name}),SettingsRow) 672 End Function 673 674 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 675 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 676 Public Overridable Function GetEnumerator() As Global.System.Collections.IEnumerator Implements Global.System.Collections.IEnumerable.GetEnumerator 677 Return Me.Rows.GetEnumerator 678 End Function 679 680 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 681 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 682 Public Overrides Function Clone() As Global.System.Data.DataTable 683 Dim cln As SettingsDataTable = CType(MyBase.Clone,SettingsDataTable) 684 cln.InitVars 685 Return cln 686 End Function 687 688 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 689 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 690 Protected Overrides Function CreateInstance() As Global.System.Data.DataTable 691 Return New SettingsDataTable() 692 End Function 693 694 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 695 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 696 Friend Sub InitVars() 697 Me.columnName = MyBase.Columns("Name") 698 Me.columnValue = MyBase.Columns("Value") 699 End Sub 700 701 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 702 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 703 Private Sub InitClass() 704 Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) 705 MyBase.Columns.Add(Me.columnName) 706 Me.columnValue = New Global.System.Data.DataColumn("Value", GetType(String), Nothing, Global.System.Data.MappingType.Element) 707 MyBase.Columns.Add(Me.columnValue) 708 Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnName}, true)) 709 Me.columnName.AllowDBNull = false 710 Me.columnName.Unique = true 711 End Sub 712 713 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 714 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 715 Public Function NewSettingsRow() As SettingsRow 716 Return CType(Me.NewRow,SettingsRow) 717 End Function 718 719 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 720 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 721 Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow 722 Return New SettingsRow(builder) 723 End Function 724 725 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 726 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 727 Protected Overrides Function GetRowType() As Global.System.Type 728 Return GetType(SettingsRow) 729 End Function 730 731 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 732 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 733 Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) 734 MyBase.OnRowChanged(e) 735 If (Not (Me.SettingsRowChangedEvent) Is Nothing) Then 736 RaiseEvent SettingsRowChanged(Me, New SettingsRowChangeEvent(CType(e.Row,SettingsRow), e.Action)) 737 End If 738 End Sub 739 740 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 741 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 742 Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) 743 MyBase.OnRowChanging(e) 744 If (Not (Me.SettingsRowChangingEvent) Is Nothing) Then 745 RaiseEvent SettingsRowChanging(Me, New SettingsRowChangeEvent(CType(e.Row,SettingsRow), e.Action)) 746 End If 747 End Sub 748 749 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 750 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 751 Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) 752 MyBase.OnRowDeleted(e) 753 If (Not (Me.SettingsRowDeletedEvent) Is Nothing) Then 754 RaiseEvent SettingsRowDeleted(Me, New SettingsRowChangeEvent(CType(e.Row,SettingsRow), e.Action)) 755 End If 756 End Sub 757 758 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 759 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 760 Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) 761 MyBase.OnRowDeleting(e) 762 If (Not (Me.SettingsRowDeletingEvent) Is Nothing) Then 763 RaiseEvent SettingsRowDeleting(Me, New SettingsRowChangeEvent(CType(e.Row,SettingsRow), e.Action)) 764 End If 765 End Sub 766 767 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 768 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 769 Public Sub RemoveSettingsRow(ByVal row As SettingsRow) 770 Me.Rows.Remove(row) 771 End Sub 772 773 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 774 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 775 Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType 776 Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() 777 Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() 778 Dim ds As Data = New Data() 779 Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() 780 any1.Namespace = "http://www.w3.org/2001/XMLSchema" 781 any1.MinOccurs = New Decimal(0) 782 any1.MaxOccurs = Decimal.MaxValue 783 any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax 784 sequence.Items.Add(any1) 785 Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() 786 any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" 787 any2.MinOccurs = New Decimal(1) 788 any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax 789 sequence.Items.Add(any2) 790 Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() 791 attribute1.Name = "namespace" 792 attribute1.FixedValue = ds.Namespace 793 type.Attributes.Add(attribute1) 794 Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() 795 attribute2.Name = "tableTypeName" 796 attribute2.FixedValue = "SettingsDataTable" 797 type.Attributes.Add(attribute2) 798 type.Particle = sequence 799 Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable 800 If xs.Contains(dsSchema.TargetNamespace) Then 801 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() 802 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() 803 Try 804 Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing 805 dsSchema.Write(s1) 806 Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator 807 Do While schemas.MoveNext 808 schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) 809 s2.SetLength(0) 810 schema.Write(s2) 811 If (s1.Length = s2.Length) Then 812 s1.Position = 0 813 s2.Position = 0 814 815 Do While ((s1.Position <> s1.Length) _ 816 AndAlso (s1.ReadByte = s2.ReadByte)) 817 818 819 Loop 820 If (s1.Position = s1.Length) Then 821 Return type 822 End If 823 End If 824 825 Loop 826 Finally 827 If (Not (s1) Is Nothing) Then 828 s1.Close 829 End If 830 If (Not (s2) Is Nothing) Then 831 s2.Close 832 End If 833 End Try 834 End If 835 xs.Add(dsSchema) 836 Return type 837 End Function 838 End Class 839 840 '''<summary> 841 '''Represents the strongly named DataTable class. 842 '''</summary> 843 <Global.System.Serializable(), _ 844 Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _ 845 Partial Public Class SongsDataTable 846 Inherits Global.System.Data.DataTable 847 Implements Global.System.Collections.IEnumerable 848 849 Private columnSongID As Global.System.Data.DataColumn 850 851 Private columnTitle As Global.System.Data.DataColumn 852 853 Private columnLicenseID As Global.System.Data.DataColumn 854 855 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 856 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 857 Public Sub New() 858 MyBase.New 859 Me.TableName = "Songs" 860 Me.BeginInit 861 Me.InitClass 862 Me.EndInit 863 End Sub 864 865 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 866 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 867 Friend Sub New(ByVal table As Global.System.Data.DataTable) 868 MyBase.New 869 Me.TableName = table.TableName 870 If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then 871 Me.CaseSensitive = table.CaseSensitive 872 End If 873 If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then 874 Me.Locale = table.Locale 875 End If 876 If (table.Namespace <> table.DataSet.Namespace) Then 877 Me.Namespace = table.Namespace 878 End If 879 Me.Prefix = table.Prefix 880 Me.MinimumCapacity = table.MinimumCapacity 881 End Sub 882 883 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 884 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 885 Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) 886 MyBase.New(info, context) 887 Me.InitVars 888 End Sub 889 890 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 891 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 892 Public ReadOnly Property SongIDColumn() As Global.System.Data.DataColumn 893 Get 894 Return Me.columnSongID 895 End Get 896 End Property 897 898 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 899 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 900 Public ReadOnly Property TitleColumn() As Global.System.Data.DataColumn 901 Get 902 Return Me.columnTitle 903 End Get 904 End Property 905 906 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 907 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 908 Public ReadOnly Property LicenseIDColumn() As Global.System.Data.DataColumn 909 Get 910 Return Me.columnLicenseID 911 End Get 912 End Property 913 914 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 915 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ 916 Global.System.ComponentModel.Browsable(false)> _…
Large files files are truncated, but you can click here to view the full file