/Source Code/SongDatabase/Data.Designer.vb
Visual Basic | 4521 lines | 3872 code | 565 blank | 84 comment | 30 complexity | 7c67175b9dcda14cdf5578321e65d9eb MD5 | raw 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)> _ 917 Public ReadOnly Property Count() As Integer 918 Get 919 Return Me.Rows.Count 920 End Get 921 End Property 922 923 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 924 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 925 Public Default ReadOnly Property Item(ByVal index As Integer) As SongsRow 926 Get 927 Return CType(Me.Rows(index),SongsRow) 928 End Get 929 End Property 930 931 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 932 Public Event SongsRowChanging As SongsRowChangeEventHandler 933 934 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 935 Public Event SongsRowChanged As SongsRowChangeEventHandler 936 937 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 938 Public Event SongsRowDeleting As SongsRowChangeEventHandler 939 940 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 941 Public Event SongsRowDeleted As SongsRowChangeEventHandler 942 943 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 944 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 945 Public Overloads Sub AddSongsRow(ByVal row As SongsRow) 946 Me.Rows.Add(row) 947 End Sub 948 949 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 950 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 951 Public Overloads Function AddSongsRow(ByVal SongID As System.Guid, ByVal Title As String, ByVal parentLicensesRowByLicenses_Songs As LicensesRow) As SongsRow 952 Dim rowSongsRow As SongsRow = CType(Me.NewRow,SongsRow) 953 Dim columnValuesArray() As Object = New Object() {SongID, Title, Nothing} 954 If (Not (parentLicensesRowByLicenses_Songs) Is Nothing) Then 955 columnValuesArray(2) = parentLicensesRowByLicenses_Songs(0) 956 End If 957 rowSongsRow.ItemArray = columnValuesArray 958 Me.Rows.Add(rowSongsRow) 959 Return rowSongsRow 960 End Function 961 962 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 963 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 964 Public Function FindBySongID(ByVal SongID As System.Guid) As SongsRow 965 Return CType(Me.Rows.Find(New Object() {SongID}),SongsRow) 966 End Function 967 968 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 969 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 970 Public Overridable Function GetEnumerator() As Global.System.Collections.IEnumerator Implements Global.System.Collections.IEnumerable.GetEnumerator 971 Return Me.Rows.GetEnumerator 972 End Function 973 974 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 975 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 976 Public Overrides Function Clone() As Global.System.Data.DataTable 977 Dim cln As SongsDataTable = CType(MyBase.Clone,SongsDataTable) 978 cln.InitVars 979 Return cln 980 End Function 981 982 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 983 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 984 Protected Overrides Function CreateInstance() As Global.System.Data.DataTable 985 Return New SongsDataTable() 986 End Function 987 988 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 989 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 990 Friend Sub InitVars() 991 Me.columnSongID = MyBase.Columns("SongID") 992 Me.columnTitle = MyBase.Columns("Title") 993 Me.columnLicenseID = MyBase.Columns("LicenseID") 994 End Sub 995 996 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 997 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 998 Private Sub InitClass() 999 Me.columnSongID = New Global.System.Data.DataColumn("SongID", GetType(Global.System.Guid), Nothing, Global.System.Data.MappingType.Element) 1000 MyBase.Columns.Add(Me.columnSongID) 1001 Me.columnTitle = New Global.System.Data.DataColumn("Title", GetType(String), Nothing, Global.System.Data.MappingType.Element) 1002 MyBase.Columns.Add(Me.columnTitle) 1003 Me.columnLicenseID = New Global.System.Data.DataColumn("LicenseID", GetType(Global.System.Guid), Nothing, Global.System.Data.MappingType.Element) 1004 MyBase.Columns.Add(Me.columnLicenseID) 1005 Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnSongID}, true)) 1006 Me.columnSongID.AllowDBNull = false 1007 Me.columnSongID.Unique = true 1008 End Sub 1009 1010 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1011 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1012 Public Function NewSongsRow() As SongsRow 1013 Return CType(Me.NewRow,SongsRow) 1014 End Function 1015 1016 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1017 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1018 Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow 1019 Return New SongsRow(builder) 1020 End Function 1021 1022 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1023 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1024 Protected Overrides Function GetRowType() As Global.System.Type 1025 Return GetType(SongsRow) 1026 End Function 1027 1028 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1029 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1030 Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) 1031 MyBase.OnRowChanged(e) 1032 If (Not (Me.SongsRowChangedEvent) Is Nothing) Then 1033 RaiseEvent SongsRowChanged(Me, New SongsRowChangeEvent(CType(e.Row,SongsRow), e.Action)) 1034 End If 1035 End Sub 1036 1037 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1038 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1039 Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) 1040 MyBase.OnRowChanging(e) 1041 If (Not (Me.SongsRowChangingEvent) Is Nothing) Then 1042 RaiseEvent SongsRowChanging(Me, New SongsRowChangeEvent(CType(e.Row,SongsRow), e.Action)) 1043 End If 1044 End Sub 1045 1046 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1047 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1048 Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) 1049 MyBase.OnRowDeleted(e) 1050 If (Not (Me.SongsRowDeletedEvent) Is Nothing) Then 1051 RaiseEvent SongsRowDeleted(Me, New SongsRowChangeEvent(CType(e.Row,SongsRow), e.Action)) 1052 End If 1053 End Sub 1054 1055 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1056 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1057 Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) 1058 MyBase.OnRowDeleting(e) 1059 If (Not (Me.SongsRowDeletingEvent) Is Nothing) Then 1060 RaiseEvent SongsRowDeleting(Me, New SongsRowChangeEvent(CType(e.Row,SongsRow), e.Action)) 1061 End If 1062 End Sub 1063 1064 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1065 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1066 Public Sub RemoveSongsRow(ByVal row As SongsRow) 1067 Me.Rows.Remove(row) 1068 End Sub 1069 1070 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1071 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1072 Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType 1073 Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() 1074 Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() 1075 Dim ds As Data = New Data() 1076 Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() 1077 any1.Namespace = "http://www.w3.org/2001/XMLSchema" 1078 any1.MinOccurs = New Decimal(0) 1079 any1.MaxOccurs = Decimal.MaxValue 1080 any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax 1081 sequence.Items.Add(any1) 1082 Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() 1083 any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" 1084 any2.MinOccurs = New Decimal(1) 1085 any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax 1086 sequence.Items.Add(any2) 1087 Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() 1088 attribute1.Name = "namespace" 1089 attribute1.FixedValue = ds.Namespace 1090 type.Attributes.Add(attribute1) 1091 Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() 1092 attribute2.Name = "tableTypeName" 1093 attribute2.FixedValue = "SongsDataTable" 1094 type.Attributes.Add(attribute2) 1095 type.Particle = sequence 1096 Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable 1097 If xs.Contains(dsSchema.TargetNamespace) Then 1098 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() 1099 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() 1100 Try 1101 Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing 1102 dsSchema.Write(s1) 1103 Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator 1104 Do While schemas.MoveNext 1105 schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) 1106 s2.SetLength(0) 1107 schema.Write(s2) 1108 If (s1.Length = s2.Length) Then 1109 s1.Position = 0 1110 s2.Position = 0 1111 1112 Do While ((s1.Position <> s1.Length) _ 1113 AndAlso (s1.ReadByte = s2.ReadByte)) 1114 1115 1116 Loop 1117 If (s1.Position = s1.Length) Then 1118 Return type 1119 End If 1120 End If 1121 1122 Loop 1123 Finally 1124 If (Not (s1) Is Nothing) Then 1125 s1.Close 1126 End If 1127 If (Not (s2) Is Nothing) Then 1128 s2.Close 1129 End If 1130 End Try 1131 End If 1132 xs.Add(dsSchema) 1133 Return type 1134 End Function 1135 End Class 1136 1137 '''<summary> 1138 '''Represents the strongly named DataTable class. 1139 '''</summary> 1140 <Global.System.Serializable(), _ 1141 Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _ 1142 Partial Public Class StylesDataTable 1143 Inherits Global.System.Data.DataTable 1144 Implements Global.System.Collections.IEnumerable 1145 1146 Private columnStyleID As Global.System.Data.DataColumn 1147 1148 Private columnName As Global.System.Data.DataColumn 1149 1150 Private columnDefaultBackgroundImage As Global.System.Data.DataColumn 1151 1152 Private columnDefaultBackgroundColour As Global.System.Data.DataColumn 1153 1154 Private columnGeneralFadeDuration As Global.System.Data.DataColumn 1155 1156 Private columnVerseFade As Global.System.Data.DataColumn 1157 1158 Private columnVerseFadeDuration As Global.System.Data.DataColumn 1159 1160 Private columnGeneralFade As Global.System.Data.DataColumn 1161 1162 Private columnBackgroundType As Global.System.Data.DataColumn 1163 1164 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1165 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1166 Public Sub New() 1167 MyBase.New 1168 Me.TableName = "Styles" 1169 Me.BeginInit 1170 Me.InitClass 1171 Me.EndInit 1172 End Sub 1173 1174 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1175 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1176 Friend Sub New(ByVal table As Global.System.Data.DataTable) 1177 MyBase.New 1178 Me.TableName = table.TableName 1179 If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then 1180 Me.CaseSensitive = table.CaseSensitive 1181 End If 1182 If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then 1183 Me.Locale = table.Locale 1184 End If 1185 If (table.Namespace <> table.DataSet.Namespace) Then 1186 Me.Namespace = table.Namespace 1187 End If 1188 Me.Prefix = table.Prefix 1189 Me.MinimumCapacity = table.MinimumCapacity 1190 End Sub 1191 1192 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1193 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1194 Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) 1195 MyBase.New(info, context) 1196 Me.InitVars 1197 End Sub 1198 1199 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1200 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1201 Public ReadOnly Property StyleIDColumn() As Global.System.Data.DataColumn 1202 Get 1203 Return Me.columnStyleID 1204 End Get 1205 End Property 1206 1207 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1208 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1209 Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn 1210 Get 1211 Return Me.columnName 1212 End Get 1213 End Property 1214 1215 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1216 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1217 Public ReadOnly Property DefaultBackgroundImageColumn() As Global.System.Data.DataColumn 1218 Get 1219 Return Me.columnDefaultBackgroundImage 1220 End Get 1221 End Property 1222 1223 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1224 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1225 Public ReadOnly Property DefaultBackgroundColourColumn() As Global.System.Data.DataColumn 1226 Get 1227 Return Me.columnDefaultBackgroundColour 1228 End Get 1229 End Property 1230 1231 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1232 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1233 Public ReadOnly Property GeneralFadeDurationColumn() As Global.System.Data.DataColumn 1234 Get 1235 Return Me.columnGeneralFadeDuration 1236 End Get 1237 End Property 1238 1239 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1240 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1241 Public ReadOnly Property VerseFadeColumn() As Global.System.Data.DataColumn 1242 Get 1243 Return Me.columnVerseFade 1244 End Get 1245 End Property 1246 1247 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1248 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1249 Public ReadOnly Property VerseFadeDurationColumn() As Global.System.Data.DataColumn 1250 Get 1251 Return Me.columnVerseFadeDuration 1252 End Get 1253 End Property 1254 1255 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1256 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1257 Public ReadOnly Property GeneralFadeColumn() As Global.System.Data.DataColumn 1258 Get 1259 Return Me.columnGeneralFade 1260 End Get 1261 End Property 1262 1263 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1264 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1265 Public ReadOnly Property BackgroundTypeColumn() As Global.System.Data.DataColumn 1266 Get 1267 Return Me.columnBackgroundType 1268 End Get 1269 End Property 1270 1271 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1272 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ 1273 Global.System.ComponentModel.Browsable(false)> _ 1274 Public ReadOnly Property Count() As Integer 1275 Get 1276 Return Me.Rows.Count 1277 End Get 1278 End Property 1279 1280 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1281 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1282 Public Default ReadOnly Property Item(ByVal index As Integer) As StylesRow 1283 Get 1284 Return CType(Me.Rows(index),StylesRow) 1285 End Get 1286 End Property 1287 1288 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1289 Public Event StylesRowChanging As StylesRowChangeEventHandler 1290 1291 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1292 Public Event StylesRowChanged As StylesRowChangeEventHandler 1293 1294 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1295 Public Event StylesRowDeleting As StylesRowChangeEventHandler 1296 1297 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1298 Public Event StylesRowDeleted As StylesRowChangeEventHandler 1299 1300 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1301 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1302 Public Overloads Sub AddStylesRow(ByVal row As StylesRow) 1303 Me.Rows.Add(row) 1304 End Sub 1305 1306 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1307 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1308 Public Overloads Function AddStylesRow(ByVal StyleID As System.Guid, ByVal Name As String, ByVal DefaultBackgroundImage As String, ByVal DefaultBackgroundColour As Integer, ByVal GeneralFadeDuration As Integer, ByVal VerseFade As Integer, ByVal VerseFadeDuration As Integer, ByVal GeneralFade As Integer, ByVal BackgroundType As Integer) As StylesRow 1309 Dim rowStylesRow As StylesRow = CType(Me.NewRow,StylesRow) 1310 Dim columnValuesArray() As Object = New Object() {StyleID, Name, DefaultBackgroundImage, DefaultBackgroundColour, GeneralFadeDuration, VerseFade, VerseFadeDuration, GeneralFade, BackgroundType} 1311 rowStylesRow.ItemArray = columnValuesArray 1312 Me.Rows.Add(rowStylesRow) 1313 Return rowStylesRow 1314 End Function 1315 1316 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1317 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1318 Public Function FindByStyleID(ByVal StyleID As System.Guid) As StylesRow 1319 Return CType(Me.Rows.Find(New Object() {StyleID}),StylesRow) 1320 End Function 1321 1322 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1323 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1324 Public Overridable Function GetEnumerator() As Global.System.Collections.IEnumerator Implements Global.System.Collections.IEnumerable.GetEnumerator 1325 Return Me.Rows.GetEnumerator 1326 End Function 1327 1328 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1329 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1330 Public Overrides Function Clone() As Global.System.Data.DataTable 1331 Dim cln As StylesDataTable = CType(MyBase.Clone,StylesDataTable) 1332 cln.InitVars 1333 Return cln 1334 End Function 1335 1336 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1337 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1338 Protected Overrides Function CreateInstance() As Global.System.Data.DataTable 1339 Return New StylesDataTable() 1340 End Function 1341 1342 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1343 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1344 Friend Sub InitVars() 1345 Me.columnStyleID = MyBase.Columns("StyleID") 1346 Me.columnName = MyBase.Columns("Name") 1347 Me.columnDefaultBackgroundImage = MyBase.Columns("DefaultBackgroundImage") 1348 Me.columnDefaultBackgroundColour = MyBase.Columns("DefaultBackgroundColour") 1349 Me.columnGeneralFadeDuration = MyBase.Columns("GeneralFadeDuration") 1350 Me.columnVerseFade = MyBase.Columns("VerseFade") 1351 Me.columnVerseFadeDuration = MyBase.Columns("VerseFadeDuration") 1352 Me.columnGeneralFade = MyBase.Columns("GeneralFade") 1353 Me.columnBackgroundType = MyBase.Columns("BackgroundType") 1354 End Sub 1355 1356 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1357 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1358 Private Sub InitClass() 1359 Me.columnStyleID = New Global.System.Data.DataColumn("StyleID", GetType(Global.System.Guid), Nothing, Global.System.Data.MappingType.Element) 1360 MyBase.Columns.Add(Me.columnStyleID) 1361 Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) 1362 MyBase.Columns.Add(Me.columnName) 1363 Me.columnDefaultBackgroundImage = New Global.System.Data.DataColumn("DefaultBackgroundImage", GetType(String), Nothing, Global.System.Data.MappingType.Element) 1364 MyBase.Columns.Add(Me.columnDefaultBackgroundImage) 1365 Me.columnDefaultBackgroundColour = New Global.System.Data.DataColumn("DefaultBackgroundColour", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) 1366 MyBase.Columns.Add(Me.columnDefaultBackgroundColour) 1367 Me.columnGeneralFadeDuration = New Global.System.Data.DataColumn("GeneralFadeDuration", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) 1368 MyBase.Columns.Add(Me.columnGeneralFadeDuration) 1369 Me.columnVerseFade = New Global.System.Data.DataColumn("VerseFade", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) 1370 MyBase.Columns.Add(Me.columnVerseFade) 1371 Me.columnVerseFadeDuration = New Global.System.Data.DataColumn("VerseFadeDuration", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) 1372 MyBase.Columns.Add(Me.columnVerseFadeDuration) 1373 Me.columnGeneralFade = New Global.System.Data.DataColumn("GeneralFade", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) 1374 MyBase.Columns.Add(Me.columnGeneralFade) 1375 Me.columnBackgroundType = New Global.System.Data.DataColumn("BackgroundType", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) 1376 MyBase.Columns.Add(Me.columnBackgroundType) 1377 Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnStyleID}, true)) 1378 Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint2", New Global.System.Data.DataColumn() {Me.columnName}, false)) 1379 Me.columnStyleID.AllowDBNull = false 1380 Me.columnStyleID.Unique = true 1381 Me.columnName.Unique = true 1382 Me.columnDefaultBackgroundImage.DefaultValue = CType("",String) 1383 Me.columnDefaultBackgroundColour.DefaultValue = CType(0,Integer) 1384 End Sub 1385 1386 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1387 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1388 Public Function NewStylesRow() As StylesRow 1389 Return CType(Me.NewRow,StylesRow) 1390 End Function 1391 1392 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1393 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1394 Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow 1395 Return New StylesRow(builder) 1396 End Function 1397 1398 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1399 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1400 Protected Overrides Function GetRowType() As Global.System.Type 1401 Return GetType(StylesRow) 1402 End Function 1403 1404 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1405 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1406 Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) 1407 MyBase.OnRowChanged(e) 1408 If (Not (Me.StylesRowChangedEvent) Is Nothing) Then 1409 RaiseEvent StylesRowChanged(Me, New StylesRowChangeEvent(CType(e.Row,StylesRow), e.Action)) 1410 End If 1411 End Sub 1412 1413 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1414 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1415 Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) 1416 MyBase.OnRowChanging(e) 1417 If (Not (Me.StylesRowChangingEvent) Is Nothing) Then 1418 RaiseEvent StylesRowChanging(Me, New StylesRowChangeEvent(CType(e.Row,StylesRow), e.Action)) 1419 End If 1420 End Sub 1421 1422 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1423 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1424 Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) 1425 MyBase.OnRowDeleted(e) 1426 If (Not (Me.StylesRowDeletedEvent) Is Nothing) Then 1427 RaiseEvent StylesRowDeleted(Me, New StylesRowChangeEvent(CType(e.Row,StylesRow), e.Action)) 1428 End If 1429 End Sub 1430 1431 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1432 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1433 Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) 1434 MyBase.OnRowDeleting(e) 1435 If (Not (Me.StylesRowDeletingEvent) Is Nothing) Then 1436 RaiseEvent StylesRowDeleting(Me, New StylesRowChangeEvent(CType(e.Row,StylesRow), e.Action)) 1437 End If 1438 End Sub 1439 1440 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1441 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1442 Public Sub RemoveStylesRow(ByVal row As StylesRow) 1443 Me.Rows.Remove(row) 1444 End Sub 1445 1446 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1447 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1448 Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType 1449 Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() 1450 Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() 1451 Dim ds As Data = New Data() 1452 Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() 1453 any1.Namespace = "http://www.w3.org/2001/XMLSchema" 1454 any1.MinOccurs = New Decimal(0) 1455 any1.MaxOccurs = Decimal.MaxValue 1456 any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax 1457 sequence.Items.Add(any1) 1458 Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() 1459 any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" 1460 any2.MinOccurs = New Decimal(1) 1461 any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax 1462 sequence.Items.Add(any2) 1463 Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() 1464 attribute1.Name = "namespace" 1465 attribute1.FixedValue = ds.Namespace 1466 type.Attributes.Add(attribute1) 1467 Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() 1468 attribute2.Name = "tableTypeName" 1469 attribute2.FixedValue = "StylesDataTable" 1470 type.Attributes.Add(attribute2) 1471 type.Particle = sequence 1472 Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable 1473 If xs.Contains(dsSchema.TargetNamespace) Then 1474 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() 1475 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() 1476 Try 1477 Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing 1478 dsSchema.Write(s1) 1479 Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator 1480 Do While schemas.MoveNext 1481 schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) 1482 s2.SetLength(0) 1483 schema.Write(s2) 1484 If (s1.Length = s2.Length) Then 1485 s1.Position = 0 1486 s2.Position = 0 1487 1488 Do While ((s1.Position <> s1.Length) _ 1489 AndAlso (s1.ReadByte = s2.ReadByte)) 1490 1491 1492 Loop 1493 If (s1.Position = s1.Length) Then 1494 Return type 1495 End If 1496 End If 1497 1498 Loop 1499 Finally 1500 If (Not (s1) Is Nothing) Then 1501 s1.Close 1502 End If 1503 If (Not (s2) Is Nothing) Then 1504 s2.Close 1505 End If 1506 End Try 1507 End If 1508 xs.Add(dsSchema) 1509 Return type 1510 End Function 1511 End Class 1512 1513 '''<summary> 1514 '''Represents the strongly named DataTable class. 1515 '''</summary> 1516 <Global.System.Serializable(), _ 1517 Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _ 1518 Partial Public Class BiblesDataTable 1519 Inherits Global.System.Data.DataTable 1520 Implements Global.System.Collections.IEnumerable 1521 1522 Private columnAcronym As Global.System.Data.DataColumn 1523 1524 Private columnFileName As Global.System.Data.DataColumn 1525 1526 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1527 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1528 Public Sub New() 1529 MyBase.New 1530 Me.TableName = "Bibles" 1531 Me.BeginInit 1532 Me.InitClass 1533 Me.EndInit 1534 End Sub 1535 1536 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1537 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1538 Friend Sub New(ByVal table As Global.System.Data.DataTable) 1539 MyBase.New 1540 Me.TableName = table.TableName 1541 If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then 1542 Me.CaseSensitive = table.CaseSensitive 1543 End If 1544 If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then 1545 Me.Locale = table.Locale 1546 End If 1547 If (table.Namespace <> table.DataSet.Namespace) Then 1548 Me.Namespace = table.Namespace 1549 End If 1550 Me.Prefix = table.Prefix 1551 Me.MinimumCapacity = table.MinimumCapacity 1552 End Sub 1553 1554 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1555 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1556 Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) 1557 MyBase.New(info, context) 1558 Me.InitVars 1559 End Sub 1560 1561 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1562 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1563 Public ReadOnly Property AcronymColumn() As Global.System.Data.DataColumn 1564 Get 1565 Return Me.columnAcronym 1566 End Get 1567 End Property 1568 1569 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1570 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1571 Public ReadOnly Property FileNameColumn() As Global.System.Data.DataColumn 1572 Get 1573 Return Me.columnFileName 1574 End Get 1575 End Property 1576 1577 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1578 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ 1579 Global.System.ComponentModel.Browsable(false)> _ 1580 Public ReadOnly Property Count() As Integer 1581 Get 1582 Return Me.Rows.Count 1583 End Get 1584 End Property 1585 1586 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1587 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1588 Public Default ReadOnly Property Item(ByVal index As Integer) As BiblesRow 1589 Get 1590 Return CType(Me.Rows(index),BiblesRow) 1591 End Get 1592 End Property 1593 1594 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1595 Public Event BiblesRowChanging As BiblesRowChangeEventHandler 1596 1597 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1598 Public Event BiblesRowChanged As BiblesRowChangeEventHandler 1599 1600 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1601 Public Event BiblesRowDeleting As BiblesRowChangeEventHandler 1602 1603 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1604 Public Event BiblesRowDeleted As BiblesRowChangeEventHandler 1605 1606 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1607 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1608 Public Overloads Sub AddBiblesRow(ByVal row As BiblesRow) 1609 Me.Rows.Add(row) 1610 End Sub 1611 1612 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1613 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1614 Public Overloads Function AddBiblesRow(ByVal Acronym As String, ByVal FileName As String) As BiblesRow 1615 Dim rowBiblesRow As BiblesRow = CType(Me.NewRow,BiblesRow) 1616 Dim columnValuesArray() As Object = New Object() {Acronym, FileName} 1617 rowBiblesRow.ItemArray = columnValuesArray 1618 Me.Rows.Add(rowBiblesRow) 1619 Return rowBiblesRow 1620 End Function 1621 1622 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1623 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1624 Public Overridable Function GetEnumerator() As Global.System.Collections.IEnumerator Implements Global.System.Collections.IEnumerable.GetEnumerator 1625 Return Me.Rows.GetEnumerator 1626 End Function 1627 1628 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1629 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1630 Public Overrides Function Clone() As Global.System.Data.DataTable 1631 Dim cln As BiblesDataTable = CType(MyBase.Clone,BiblesDataTable) 1632 cln.InitVars 1633 Return cln 1634 End Function 1635 1636 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1637 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1638 Protected Overrides Function CreateInstance() As Global.System.Data.DataTable 1639 Return New BiblesDataTable() 1640 End Function 1641 1642 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1643 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1644 Friend Sub InitVars() 1645 Me.columnAcronym = MyBase.Columns("Acronym") 1646 Me.columnFileName = MyBase.Columns("FileName") 1647 End Sub 1648 1649 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1650 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1651 Private Sub InitClass() 1652 Me.columnAcronym = New Global.System.Data.DataColumn("Acronym", GetType(String), Nothing, Global.System.Data.MappingType.Element) 1653 MyBase.Columns.Add(Me.columnAcronym) 1654 Me.columnFileName = New Global.System.Data.DataColumn("FileName", GetType(String), Nothing, Global.System.Data.MappingType.Element) 1655 MyBase.Columns.Add(Me.columnFileName) 1656 End Sub 1657 1658 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1659 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1660 Public Function NewBiblesRow() As BiblesRow 1661 Return CType(Me.NewRow,BiblesRow) 1662 End Function 1663 1664 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1665 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1666 Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow 1667 Return New BiblesRow(builder) 1668 End Function 1669 1670 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1671 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1672 Protected Overrides Function GetRowType() As Global.System.Type 1673 Return GetType(BiblesRow) 1674 End Function 1675 1676 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1677 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1678 Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) 1679 MyBase.OnRowChanged(e) 1680 If (Not (Me.BiblesRowChangedEvent) Is Nothing) Then 1681 RaiseEvent BiblesRowChanged(Me, New BiblesRowChangeEvent(CType(e.Row,BiblesRow), e.Action)) 1682 End If 1683 End Sub 1684 1685 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1686 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1687 Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) 1688 MyBase.OnRowChanging(e) 1689 If (Not (Me.BiblesRowChangingEvent) Is Nothing) Then 1690 RaiseEvent BiblesRowChanging(Me, New BiblesRowChangeEvent(CType(e.Row,BiblesRow), e.Action)) 1691 End If 1692 End Sub 1693 1694 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1695 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1696 Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) 1697 MyBase.OnRowDeleted(e) 1698 If (Not (Me.BiblesRowDeletedEvent) Is Nothing) Then 1699 RaiseEvent BiblesRowDeleted(Me, New BiblesRowChangeEvent(CType(e.Row,BiblesRow), e.Action)) 1700 End If 1701 End Sub 1702 1703 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1704 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1705 Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) 1706 MyBase.OnRowDeleting(e) 1707 If (Not (Me.BiblesRowDeletingEvent) Is Nothing) Then 1708 RaiseEvent BiblesRowDeleting(Me, New BiblesRowChangeEvent(CType(e.Row,BiblesRow), e.Action)) 1709 End If 1710 End Sub 1711 1712 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1713 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1714 Public Sub RemoveBiblesRow(ByVal row As BiblesRow) 1715 Me.Rows.Remove(row) 1716 End Sub 1717 1718 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1719 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1720 Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType 1721 Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() 1722 Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() 1723 Dim ds As Data = New Data() 1724 Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() 1725 any1.Namespace = "http://www.w3.org/2001/XMLSchema" 1726 any1.MinOccurs = New Decimal(0) 1727 any1.MaxOccurs = Decimal.MaxValue 1728 any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax 1729 sequence.Items.Add(any1) 1730 Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() 1731 any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" 1732 any2.MinOccurs = New Decimal(1) 1733 any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax 1734 sequence.Items.Add(any2) 1735 Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() 1736 attribute1.Name = "namespace" 1737 attribute1.FixedValue = ds.Namespace 1738 type.Attributes.Add(attribute1) 1739 Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() 1740 attribute2.Name = "tableTypeName" 1741 attribute2.FixedValue = "BiblesDataTable" 1742 type.Attributes.Add(attribute2) 1743 type.Particle = sequence 1744 Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable 1745 If xs.Contains(dsSchema.TargetNamespace) Then 1746 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() 1747 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() 1748 Try 1749 Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing 1750 dsSchema.Write(s1) 1751 Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator 1752 Do While schemas.MoveNext 1753 schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) 1754 s2.SetLength(0) 1755 schema.Write(s2) 1756 If (s1.Length = s2.Length) Then 1757 s1.Position = 0 1758 s2.Position = 0 1759 1760 Do While ((s1.Position <> s1.Length) _ 1761 AndAlso (s1.ReadByte = s2.ReadByte)) 1762 1763 1764 Loop 1765 If (s1.Position = s1.Length) Then 1766 Return type 1767 End If 1768 End If 1769 1770 Loop 1771 Finally 1772 If (Not (s1) Is Nothing) Then 1773 s1.Close 1774 End If 1775 If (Not (s2) Is Nothing) Then 1776 s2.Close 1777 End If 1778 End Try 1779 End If 1780 xs.Add(dsSchema) 1781 Return type 1782 End Function 1783 End Class 1784 1785 '''<summary> 1786 '''Represents the strongly named DataTable class. 1787 '''</summary> 1788 <Global.System.Serializable(), _ 1789 Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _ 1790 Partial Public Class CategoriesDataTable 1791 Inherits Global.System.Data.DataTable 1792 Implements Global.System.Collections.IEnumerable 1793 1794 Private columnCategoryID As Global.System.Data.DataColumn 1795 1796 Private columnName As Global.System.Data.DataColumn 1797 1798 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1799 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1800 Public Sub New() 1801 MyBase.New 1802 Me.TableName = "Categories" 1803 Me.BeginInit 1804 Me.InitClass 1805 Me.EndInit 1806 End Sub 1807 1808 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1809 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1810 Friend Sub New(ByVal table As Global.System.Data.DataTable) 1811 MyBase.New 1812 Me.TableName = table.TableName 1813 If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then 1814 Me.CaseSensitive = table.CaseSensitive 1815 End If 1816 If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then 1817 Me.Locale = table.Locale 1818 End If 1819 If (table.Namespace <> table.DataSet.Namespace) Then 1820 Me.Namespace = table.Namespace 1821 End If 1822 Me.Prefix = table.Prefix 1823 Me.MinimumCapacity = table.MinimumCapacity 1824 End Sub 1825 1826 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1827 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1828 Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) 1829 MyBase.New(info, context) 1830 Me.InitVars 1831 End Sub 1832 1833 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1834 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1835 Public ReadOnly Property CategoryIDColumn() As Global.System.Data.DataColumn 1836 Get 1837 Return Me.columnCategoryID 1838 End Get 1839 End Property 1840 1841 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1842 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1843 Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn 1844 Get 1845 Return Me.columnName 1846 End Get 1847 End Property 1848 1849 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1850 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ 1851 Global.System.ComponentModel.Browsable(false)> _ 1852 Public ReadOnly Property Count() As Integer 1853 Get 1854 Return Me.Rows.Count 1855 End Get 1856 End Property 1857 1858 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1859 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1860 Public Default ReadOnly Property Item(ByVal index As Integer) As CategoriesRow 1861 Get 1862 Return CType(Me.Rows(index),CategoriesRow) 1863 End Get 1864 End Property 1865 1866 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1867 Public Event CategoriesRowChanging As CategoriesRowChangeEventHandler 1868 1869 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1870 Public Event CategoriesRowChanged As CategoriesRowChangeEventHandler 1871 1872 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1873 Public Event CategoriesRowDeleting As CategoriesRowChangeEventHandler 1874 1875 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1876 Public Event CategoriesRowDeleted As CategoriesRowChangeEventHandler 1877 1878 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1879 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1880 Public Overloads Sub AddCategoriesRow(ByVal row As CategoriesRow) 1881 Me.Rows.Add(row) 1882 End Sub 1883 1884 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1885 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1886 Public Overloads Function AddCategoriesRow(ByVal CategoryID As System.Guid, ByVal Name As String) As CategoriesRow 1887 Dim rowCategoriesRow As CategoriesRow = CType(Me.NewRow,CategoriesRow) 1888 Dim columnValuesArray() As Object = New Object() {CategoryID, Name} 1889 rowCategoriesRow.ItemArray = columnValuesArray 1890 Me.Rows.Add(rowCategoriesRow) 1891 Return rowCategoriesRow 1892 End Function 1893 1894 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1895 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1896 Public Function FindByCategoryID(ByVal CategoryID As System.Guid) As CategoriesRow 1897 Return CType(Me.Rows.Find(New Object() {CategoryID}),CategoriesRow) 1898 End Function 1899 1900 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1901 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1902 Public Overridable Function GetEnumerator() As Global.System.Collections.IEnumerator Implements Global.System.Collections.IEnumerable.GetEnumerator 1903 Return Me.Rows.GetEnumerator 1904 End Function 1905 1906 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1907 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1908 Public Overrides Function Clone() As Global.System.Data.DataTable 1909 Dim cln As CategoriesDataTable = CType(MyBase.Clone,CategoriesDataTable) 1910 cln.InitVars 1911 Return cln 1912 End Function 1913 1914 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1915 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1916 Protected Overrides Function CreateInstance() As Global.System.Data.DataTable 1917 Return New CategoriesDataTable() 1918 End Function 1919 1920 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1921 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1922 Friend Sub InitVars() 1923 Me.columnCategoryID = MyBase.Columns("CategoryID") 1924 Me.columnName = MyBase.Columns("Name") 1925 End Sub 1926 1927 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1928 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1929 Private Sub InitClass() 1930 Me.columnCategoryID = New Global.System.Data.DataColumn("CategoryID", GetType(Global.System.Guid), Nothing, Global.System.Data.MappingType.Element) 1931 MyBase.Columns.Add(Me.columnCategoryID) 1932 Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) 1933 MyBase.Columns.Add(Me.columnName) 1934 Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnCategoryID}, true)) 1935 Me.columnCategoryID.AllowDBNull = false 1936 Me.columnCategoryID.Unique = true 1937 End Sub 1938 1939 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1940 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1941 Public Function NewCategoriesRow() As CategoriesRow 1942 Return CType(Me.NewRow,CategoriesRow) 1943 End Function 1944 1945 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1946 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1947 Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow 1948 Return New CategoriesRow(builder) 1949 End Function 1950 1951 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1952 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1953 Protected Overrides Function GetRowType() As Global.System.Type 1954 Return GetType(CategoriesRow) 1955 End Function 1956 1957 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1958 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1959 Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) 1960 MyBase.OnRowChanged(e) 1961 If (Not (Me.CategoriesRowChangedEvent) Is Nothing) Then 1962 RaiseEvent CategoriesRowChanged(Me, New CategoriesRowChangeEvent(CType(e.Row,CategoriesRow), e.Action)) 1963 End If 1964 End Sub 1965 1966 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1967 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1968 Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) 1969 MyBase.OnRowChanging(e) 1970 If (Not (Me.CategoriesRowChangingEvent) Is Nothing) Then 1971 RaiseEvent CategoriesRowChanging(Me, New CategoriesRowChangeEvent(CType(e.Row,CategoriesRow), e.Action)) 1972 End If 1973 End Sub 1974 1975 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1976 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1977 Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) 1978 MyBase.OnRowDeleted(e) 1979 If (Not (Me.CategoriesRowDeletedEvent) Is Nothing) Then 1980 RaiseEvent CategoriesRowDeleted(Me, New CategoriesRowChangeEvent(CType(e.Row,CategoriesRow), e.Action)) 1981 End If 1982 End Sub 1983 1984 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1985 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1986 Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) 1987 MyBase.OnRowDeleting(e) 1988 If (Not (Me.CategoriesRowDeletingEvent) Is Nothing) Then 1989 RaiseEvent CategoriesRowDeleting(Me, New CategoriesRowChangeEvent(CType(e.Row,CategoriesRow), e.Action)) 1990 End If 1991 End Sub 1992 1993 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 1994 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 1995 Public Sub RemoveCategoriesRow(ByVal row As CategoriesRow) 1996 Me.Rows.Remove(row) 1997 End Sub 1998 1999 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2000 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2001 Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType 2002 Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() 2003 Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() 2004 Dim ds As Data = New Data() 2005 Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() 2006 any1.Namespace = "http://www.w3.org/2001/XMLSchema" 2007 any1.MinOccurs = New Decimal(0) 2008 any1.MaxOccurs = Decimal.MaxValue 2009 any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax 2010 sequence.Items.Add(any1) 2011 Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() 2012 any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" 2013 any2.MinOccurs = New Decimal(1) 2014 any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax 2015 sequence.Items.Add(any2) 2016 Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() 2017 attribute1.Name = "namespace" 2018 attribute1.FixedValue = ds.Namespace 2019 type.Attributes.Add(attribute1) 2020 Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() 2021 attribute2.Name = "tableTypeName" 2022 attribute2.FixedValue = "CategoriesDataTable" 2023 type.Attributes.Add(attribute2) 2024 type.Particle = sequence 2025 Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable 2026 If xs.Contains(dsSchema.TargetNamespace) Then 2027 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() 2028 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() 2029 Try 2030 Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing 2031 dsSchema.Write(s1) 2032 Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator 2033 Do While schemas.MoveNext 2034 schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) 2035 s2.SetLength(0) 2036 schema.Write(s2) 2037 If (s1.Length = s2.Length) Then 2038 s1.Position = 0 2039 s2.Position = 0 2040 2041 Do While ((s1.Position <> s1.Length) _ 2042 AndAlso (s1.ReadByte = s2.ReadByte)) 2043 2044 2045 Loop 2046 If (s1.Position = s1.Length) Then 2047 Return type 2048 End If 2049 End If 2050 2051 Loop 2052 Finally 2053 If (Not (s1) Is Nothing) Then 2054 s1.Close 2055 End If 2056 If (Not (s2) Is Nothing) Then 2057 s2.Close 2058 End If 2059 End Try 2060 End If 2061 xs.Add(dsSchema) 2062 Return type 2063 End Function 2064 End Class 2065 2066 '''<summary> 2067 '''Represents the strongly named DataTable class. 2068 '''</summary> 2069 <Global.System.Serializable(), _ 2070 Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _ 2071 Partial Public Class SongCategoriesDataTable 2072 Inherits Global.System.Data.DataTable 2073 Implements Global.System.Collections.IEnumerable 2074 2075 Private columnSongID As Global.System.Data.DataColumn 2076 2077 Private columnCategoryID As Global.System.Data.DataColumn 2078 2079 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2080 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2081 Public Sub New() 2082 MyBase.New 2083 Me.TableName = "SongCategories" 2084 Me.BeginInit 2085 Me.InitClass 2086 Me.EndInit 2087 End Sub 2088 2089 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2090 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2091 Friend Sub New(ByVal table As Global.System.Data.DataTable) 2092 MyBase.New 2093 Me.TableName = table.TableName 2094 If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then 2095 Me.CaseSensitive = table.CaseSensitive 2096 End If 2097 If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then 2098 Me.Locale = table.Locale 2099 End If 2100 If (table.Namespace <> table.DataSet.Namespace) Then 2101 Me.Namespace = table.Namespace 2102 End If 2103 Me.Prefix = table.Prefix 2104 Me.MinimumCapacity = table.MinimumCapacity 2105 End Sub 2106 2107 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2108 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2109 Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) 2110 MyBase.New(info, context) 2111 Me.InitVars 2112 End Sub 2113 2114 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2115 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2116 Public ReadOnly Property SongIDColumn() As Global.System.Data.DataColumn 2117 Get 2118 Return Me.columnSongID 2119 End Get 2120 End Property 2121 2122 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2123 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2124 Public ReadOnly Property CategoryIDColumn() As Global.System.Data.DataColumn 2125 Get 2126 Return Me.columnCategoryID 2127 End Get 2128 End Property 2129 2130 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2131 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ 2132 Global.System.ComponentModel.Browsable(false)> _ 2133 Public ReadOnly Property Count() As Integer 2134 Get 2135 Return Me.Rows.Count 2136 End Get 2137 End Property 2138 2139 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2140 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2141 Public Default ReadOnly Property Item(ByVal index As Integer) As SongCategoriesRow 2142 Get 2143 Return CType(Me.Rows(index),SongCategoriesRow) 2144 End Get 2145 End Property 2146 2147 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2148 Public Event SongCategoriesRowChanging As SongCategoriesRowChangeEventHandler 2149 2150 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2151 Public Event SongCategoriesRowChanged As SongCategoriesRowChangeEventHandler 2152 2153 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2154 Public Event SongCategoriesRowDeleting As SongCategoriesRowChangeEventHandler 2155 2156 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2157 Public Event SongCategoriesRowDeleted As SongCategoriesRowChangeEventHandler 2158 2159 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2160 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2161 Public Overloads Sub AddSongCategoriesRow(ByVal row As SongCategoriesRow) 2162 Me.Rows.Add(row) 2163 End Sub 2164 2165 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2166 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2167 Public Overloads Function AddSongCategoriesRow(ByVal parentSongsRowByFK_Songs_SongCategories As SongsRow, ByVal parentCategoriesRowByFK_Categories_SongCategories As CategoriesRow) As SongCategoriesRow 2168 Dim rowSongCategoriesRow As SongCategoriesRow = CType(Me.NewRow,SongCategoriesRow) 2169 Dim columnValuesArray() As Object = New Object() {Nothing, Nothing} 2170 If (Not (parentSongsRowByFK_Songs_SongCategories) Is Nothing) Then 2171 columnValuesArray(0) = parentSongsRowByFK_Songs_SongCategories(0) 2172 End If 2173 If (Not (parentCategoriesRowByFK_Categories_SongCategories) Is Nothing) Then 2174 columnValuesArray(1) = parentCategoriesRowByFK_Categories_SongCategories(0) 2175 End If 2176 rowSongCategoriesRow.ItemArray = columnValuesArray 2177 Me.Rows.Add(rowSongCategoriesRow) 2178 Return rowSongCategoriesRow 2179 End Function 2180 2181 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2182 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2183 Public Function FindBySongIDCategoryID(ByVal SongID As System.Guid, ByVal CategoryID As System.Guid) As SongCategoriesRow 2184 Return CType(Me.Rows.Find(New Object() {SongID, CategoryID}),SongCategoriesRow) 2185 End Function 2186 2187 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2188 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2189 Public Overridable Function GetEnumerator() As Global.System.Collections.IEnumerator Implements Global.System.Collections.IEnumerable.GetEnumerator 2190 Return Me.Rows.GetEnumerator 2191 End Function 2192 2193 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2194 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2195 Public Overrides Function Clone() As Global.System.Data.DataTable 2196 Dim cln As SongCategoriesDataTable = CType(MyBase.Clone,SongCategoriesDataTable) 2197 cln.InitVars 2198 Return cln 2199 End Function 2200 2201 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2202 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2203 Protected Overrides Function CreateInstance() As Global.System.Data.DataTable 2204 Return New SongCategoriesDataTable() 2205 End Function 2206 2207 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2208 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2209 Friend Sub InitVars() 2210 Me.columnSongID = MyBase.Columns("SongID") 2211 Me.columnCategoryID = MyBase.Columns("CategoryID") 2212 End Sub 2213 2214 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2215 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2216 Private Sub InitClass() 2217 Me.columnSongID = New Global.System.Data.DataColumn("SongID", GetType(Global.System.Guid), Nothing, Global.System.Data.MappingType.Element) 2218 MyBase.Columns.Add(Me.columnSongID) 2219 Me.columnCategoryID = New Global.System.Data.DataColumn("CategoryID", GetType(Global.System.Guid), Nothing, Global.System.Data.MappingType.Element) 2220 MyBase.Columns.Add(Me.columnCategoryID) 2221 Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnSongID, Me.columnCategoryID}, true)) 2222 Me.columnSongID.AllowDBNull = false 2223 Me.columnCategoryID.AllowDBNull = false 2224 End Sub 2225 2226 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2227 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2228 Public Function NewSongCategoriesRow() As SongCategoriesRow 2229 Return CType(Me.NewRow,SongCategoriesRow) 2230 End Function 2231 2232 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2233 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2234 Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow 2235 Return New SongCategoriesRow(builder) 2236 End Function 2237 2238 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2239 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2240 Protected Overrides Function GetRowType() As Global.System.Type 2241 Return GetType(SongCategoriesRow) 2242 End Function 2243 2244 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2245 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2246 Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) 2247 MyBase.OnRowChanged(e) 2248 If (Not (Me.SongCategoriesRowChangedEvent) Is Nothing) Then 2249 RaiseEvent SongCategoriesRowChanged(Me, New SongCategoriesRowChangeEvent(CType(e.Row,SongCategoriesRow), e.Action)) 2250 End If 2251 End Sub 2252 2253 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2254 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2255 Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) 2256 MyBase.OnRowChanging(e) 2257 If (Not (Me.SongCategoriesRowChangingEvent) Is Nothing) Then 2258 RaiseEvent SongCategoriesRowChanging(Me, New SongCategoriesRowChangeEvent(CType(e.Row,SongCategoriesRow), e.Action)) 2259 End If 2260 End Sub 2261 2262 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2263 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2264 Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) 2265 MyBase.OnRowDeleted(e) 2266 If (Not (Me.SongCategoriesRowDeletedEvent) Is Nothing) Then 2267 RaiseEvent SongCategoriesRowDeleted(Me, New SongCategoriesRowChangeEvent(CType(e.Row,SongCategoriesRow), e.Action)) 2268 End If 2269 End Sub 2270 2271 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2272 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2273 Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) 2274 MyBase.OnRowDeleting(e) 2275 If (Not (Me.SongCategoriesRowDeletingEvent) Is Nothing) Then 2276 RaiseEvent SongCategoriesRowDeleting(Me, New SongCategoriesRowChangeEvent(CType(e.Row,SongCategoriesRow), e.Action)) 2277 End If 2278 End Sub 2279 2280 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2281 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2282 Public Sub RemoveSongCategoriesRow(ByVal row As SongCategoriesRow) 2283 Me.Rows.Remove(row) 2284 End Sub 2285 2286 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2287 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2288 Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType 2289 Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() 2290 Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() 2291 Dim ds As Data = New Data() 2292 Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() 2293 any1.Namespace = "http://www.w3.org/2001/XMLSchema" 2294 any1.MinOccurs = New Decimal(0) 2295 any1.MaxOccurs = Decimal.MaxValue 2296 any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax 2297 sequence.Items.Add(any1) 2298 Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() 2299 any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" 2300 any2.MinOccurs = New Decimal(1) 2301 any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax 2302 sequence.Items.Add(any2) 2303 Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() 2304 attribute1.Name = "namespace" 2305 attribute1.FixedValue = ds.Namespace 2306 type.Attributes.Add(attribute1) 2307 Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() 2308 attribute2.Name = "tableTypeName" 2309 attribute2.FixedValue = "SongCategoriesDataTable" 2310 type.Attributes.Add(attribute2) 2311 type.Particle = sequence 2312 Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable 2313 If xs.Contains(dsSchema.TargetNamespace) Then 2314 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() 2315 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() 2316 Try 2317 Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing 2318 dsSchema.Write(s1) 2319 Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator 2320 Do While schemas.MoveNext 2321 schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) 2322 s2.SetLength(0) 2323 schema.Write(s2) 2324 If (s1.Length = s2.Length) Then 2325 s1.Position = 0 2326 s2.Position = 0 2327 2328 Do While ((s1.Position <> s1.Length) _ 2329 AndAlso (s1.ReadByte = s2.ReadByte)) 2330 2331 2332 Loop 2333 If (s1.Position = s1.Length) Then 2334 Return type 2335 End If 2336 End If 2337 2338 Loop 2339 Finally 2340 If (Not (s1) Is Nothing) Then 2341 s1.Close 2342 End If 2343 If (Not (s2) Is Nothing) Then 2344 s2.Close 2345 End If 2346 End Try 2347 End If 2348 xs.Add(dsSchema) 2349 Return type 2350 End Function 2351 End Class 2352 2353 '''<summary> 2354 '''Represents the strongly named DataTable class. 2355 '''</summary> 2356 <Global.System.Serializable(), _ 2357 Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _ 2358 Partial Public Class ProjectletsDataTable 2359 Inherits Global.System.Data.DataTable 2360 Implements Global.System.Collections.IEnumerable 2361 2362 Private columnStyleID As Global.System.Data.DataColumn 2363 2364 Private columnComponent As Global.System.Data.DataColumn 2365 2366 Private columnFontName As Global.System.Data.DataColumn 2367 2368 Private columnFontSize As Global.System.Data.DataColumn 2369 2370 Private columnFontColour As Global.System.Data.DataColumn 2371 2372 Private columnFontStyle As Global.System.Data.DataColumn 2373 2374 Private columnFontEffect As Global.System.Data.DataColumn 2375 2376 Private columnFontEffectColour As Global.System.Data.DataColumn 2377 2378 Private columnAreaLeft As Global.System.Data.DataColumn 2379 2380 Private columnAreaTop As Global.System.Data.DataColumn 2381 2382 Private columnAreaWidth As Global.System.Data.DataColumn 2383 2384 Private columnAreaHeight As Global.System.Data.DataColumn 2385 2386 Private columnAlignment As Global.System.Data.DataColumn 2387 2388 Private columnWhenToDisplay As Global.System.Data.DataColumn 2389 2390 Private columnContent As Global.System.Data.DataColumn 2391 2392 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2393 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2394 Public Sub New() 2395 MyBase.New 2396 Me.TableName = "Projectlets" 2397 Me.BeginInit 2398 Me.InitClass 2399 Me.EndInit 2400 End Sub 2401 2402 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2403 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2404 Friend Sub New(ByVal table As Global.System.Data.DataTable) 2405 MyBase.New 2406 Me.TableName = table.TableName 2407 If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then 2408 Me.CaseSensitive = table.CaseSensitive 2409 End If 2410 If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then 2411 Me.Locale = table.Locale 2412 End If 2413 If (table.Namespace <> table.DataSet.Namespace) Then 2414 Me.Namespace = table.Namespace 2415 End If 2416 Me.Prefix = table.Prefix 2417 Me.MinimumCapacity = table.MinimumCapacity 2418 End Sub 2419 2420 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2421 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2422 Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) 2423 MyBase.New(info, context) 2424 Me.InitVars 2425 End Sub 2426 2427 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2428 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2429 Public ReadOnly Property StyleIDColumn() As Global.System.Data.DataColumn 2430 Get 2431 Return Me.columnStyleID 2432 End Get 2433 End Property 2434 2435 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2436 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2437 Public ReadOnly Property ComponentColumn() As Global.System.Data.DataColumn 2438 Get 2439 Return Me.columnComponent 2440 End Get 2441 End Property 2442 2443 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2444 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2445 Public ReadOnly Property FontNameColumn() As Global.System.Data.DataColumn 2446 Get 2447 Return Me.columnFontName 2448 End Get 2449 End Property 2450 2451 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2452 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2453 Public ReadOnly Property FontSizeColumn() As Global.System.Data.DataColumn 2454 Get 2455 Return Me.columnFontSize 2456 End Get 2457 End Property 2458 2459 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2460 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2461 Public ReadOnly Property FontColourColumn() As Global.System.Data.DataColumn 2462 Get 2463 Return Me.columnFontColour 2464 End Get 2465 End Property 2466 2467 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2468 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2469 Public ReadOnly Property FontStyleColumn() As Global.System.Data.DataColumn 2470 Get 2471 Return Me.columnFontStyle 2472 End Get 2473 End Property 2474 2475 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2476 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2477 Public ReadOnly Property FontEffectColumn() As Global.System.Data.DataColumn 2478 Get 2479 Return Me.columnFontEffect 2480 End Get 2481 End Property 2482 2483 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2484 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2485 Public ReadOnly Property FontEffectColourColumn() As Global.System.Data.DataColumn 2486 Get 2487 Return Me.columnFontEffectColour 2488 End Get 2489 End Property 2490 2491 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2492 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2493 Public ReadOnly Property AreaLeftColumn() As Global.System.Data.DataColumn 2494 Get 2495 Return Me.columnAreaLeft 2496 End Get 2497 End Property 2498 2499 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2500 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2501 Public ReadOnly Property AreaTopColumn() As Global.System.Data.DataColumn 2502 Get 2503 Return Me.columnAreaTop 2504 End Get 2505 End Property 2506 2507 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2508 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2509 Public ReadOnly Property AreaWidthColumn() As Global.System.Data.DataColumn 2510 Get 2511 Return Me.columnAreaWidth 2512 End Get 2513 End Property 2514 2515 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2516 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2517 Public ReadOnly Property AreaHeightColumn() As Global.System.Data.DataColumn 2518 Get 2519 Return Me.columnAreaHeight 2520 End Get 2521 End Property 2522 2523 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2524 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2525 Public ReadOnly Property AlignmentColumn() As Global.System.Data.DataColumn 2526 Get 2527 Return Me.columnAlignment 2528 End Get 2529 End Property 2530 2531 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2532 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2533 Public ReadOnly Property WhenToDisplayColumn() As Global.System.Data.DataColumn 2534 Get 2535 Return Me.columnWhenToDisplay 2536 End Get 2537 End Property 2538 2539 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2540 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2541 Public ReadOnly Property ContentColumn() As Global.System.Data.DataColumn 2542 Get 2543 Return Me.columnContent 2544 End Get 2545 End Property 2546 2547 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2548 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ 2549 Global.System.ComponentModel.Browsable(false)> _ 2550 Public ReadOnly Property Count() As Integer 2551 Get 2552 Return Me.Rows.Count 2553 End Get 2554 End Property 2555 2556 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2557 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2558 Public Default ReadOnly Property Item(ByVal index As Integer) As ProjectletsRow 2559 Get 2560 Return CType(Me.Rows(index),ProjectletsRow) 2561 End Get 2562 End Property 2563 2564 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2565 Public Event ProjectletsRowChanging As ProjectletsRowChangeEventHandler 2566 2567 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2568 Public Event ProjectletsRowChanged As ProjectletsRowChangeEventHandler 2569 2570 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2571 Public Event ProjectletsRowDeleting As ProjectletsRowChangeEventHandler 2572 2573 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2574 Public Event ProjectletsRowDeleted As ProjectletsRowChangeEventHandler 2575 2576 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2577 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2578 Public Overloads Sub AddProjectletsRow(ByVal row As ProjectletsRow) 2579 Me.Rows.Add(row) 2580 End Sub 2581 2582 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2583 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2584 Public Overloads Function AddProjectletsRow(ByVal parentStylesRowByFK_Styles_Projectlets As StylesRow, ByVal Component As String, ByVal FontName As String, ByVal FontSize As Double, ByVal FontColour As Integer, ByVal FontStyle As Integer, ByVal FontEffect As Integer, ByVal FontEffectColour As Integer, ByVal AreaLeft As Double, ByVal AreaTop As Double, ByVal AreaWidth As Double, ByVal AreaHeight As Double, ByVal Alignment As Integer, ByVal WhenToDisplay As Integer, ByVal Content As String) As ProjectletsRow 2585 Dim rowProjectletsRow As ProjectletsRow = CType(Me.NewRow,ProjectletsRow) 2586 Dim columnValuesArray() As Object = New Object() {Nothing, Component, FontName, FontSize, FontColour, FontStyle, FontEffect, FontEffectColour, AreaLeft, AreaTop, AreaWidth, AreaHeight, Alignment, WhenToDisplay, Content} 2587 If (Not (parentStylesRowByFK_Styles_Projectlets) Is Nothing) Then 2588 columnValuesArray(0) = parentStylesRowByFK_Styles_Projectlets(0) 2589 End If 2590 rowProjectletsRow.ItemArray = columnValuesArray 2591 Me.Rows.Add(rowProjectletsRow) 2592 Return rowProjectletsRow 2593 End Function 2594 2595 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2596 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2597 Public Function FindByStyleIDComponent(ByVal StyleID As System.Guid, ByVal Component As String) As ProjectletsRow 2598 Return CType(Me.Rows.Find(New Object() {StyleID, Component}),ProjectletsRow) 2599 End Function 2600 2601 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2602 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2603 Public Overridable Function GetEnumerator() As Global.System.Collections.IEnumerator Implements Global.System.Collections.IEnumerable.GetEnumerator 2604 Return Me.Rows.GetEnumerator 2605 End Function 2606 2607 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2608 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2609 Public Overrides Function Clone() As Global.System.Data.DataTable 2610 Dim cln As ProjectletsDataTable = CType(MyBase.Clone,ProjectletsDataTable) 2611 cln.InitVars 2612 Return cln 2613 End Function 2614 2615 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2616 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2617 Protected Overrides Function CreateInstance() As Global.System.Data.DataTable 2618 Return New ProjectletsDataTable() 2619 End Function 2620 2621 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2622 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2623 Friend Sub InitVars() 2624 Me.columnStyleID = MyBase.Columns("StyleID") 2625 Me.columnComponent = MyBase.Columns("Component") 2626 Me.columnFontName = MyBase.Columns("FontName") 2627 Me.columnFontSize = MyBase.Columns("FontSize") 2628 Me.columnFontColour = MyBase.Columns("FontColour") 2629 Me.columnFontStyle = MyBase.Columns("FontStyle") 2630 Me.columnFontEffect = MyBase.Columns("FontEffect") 2631 Me.columnFontEffectColour = MyBase.Columns("FontEffectColour") 2632 Me.columnAreaLeft = MyBase.Columns("AreaLeft") 2633 Me.columnAreaTop = MyBase.Columns("AreaTop") 2634 Me.columnAreaWidth = MyBase.Columns("AreaWidth") 2635 Me.columnAreaHeight = MyBase.Columns("AreaHeight") 2636 Me.columnAlignment = MyBase.Columns("Alignment") 2637 Me.columnWhenToDisplay = MyBase.Columns("WhenToDisplay") 2638 Me.columnContent = MyBase.Columns("Content") 2639 End Sub 2640 2641 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2642 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2643 Private Sub InitClass() 2644 Me.columnStyleID = New Global.System.Data.DataColumn("StyleID", GetType(Global.System.Guid), Nothing, Global.System.Data.MappingType.Element) 2645 MyBase.Columns.Add(Me.columnStyleID) 2646 Me.columnComponent = New Global.System.Data.DataColumn("Component", GetType(String), Nothing, Global.System.Data.MappingType.Element) 2647 MyBase.Columns.Add(Me.columnComponent) 2648 Me.columnFontName = New Global.System.Data.DataColumn("FontName", GetType(String), Nothing, Global.System.Data.MappingType.Element) 2649 MyBase.Columns.Add(Me.columnFontName) 2650 Me.columnFontSize = New Global.System.Data.DataColumn("FontSize", GetType(Double), Nothing, Global.System.Data.MappingType.Element) 2651 MyBase.Columns.Add(Me.columnFontSize) 2652 Me.columnFontColour = New Global.System.Data.DataColumn("FontColour", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) 2653 MyBase.Columns.Add(Me.columnFontColour) 2654 Me.columnFontStyle = New Global.System.Data.DataColumn("FontStyle", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) 2655 MyBase.Columns.Add(Me.columnFontStyle) 2656 Me.columnFontEffect = New Global.System.Data.DataColumn("FontEffect", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) 2657 MyBase.Columns.Add(Me.columnFontEffect) 2658 Me.columnFontEffectColour = New Global.System.Data.DataColumn("FontEffectColour", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) 2659 MyBase.Columns.Add(Me.columnFontEffectColour) 2660 Me.columnAreaLeft = New Global.System.Data.DataColumn("AreaLeft", GetType(Double), Nothing, Global.System.Data.MappingType.Element) 2661 MyBase.Columns.Add(Me.columnAreaLeft) 2662 Me.columnAreaTop = New Global.System.Data.DataColumn("AreaTop", GetType(Double), Nothing, Global.System.Data.MappingType.Element) 2663 MyBase.Columns.Add(Me.columnAreaTop) 2664 Me.columnAreaWidth = New Global.System.Data.DataColumn("AreaWidth", GetType(Double), Nothing, Global.System.Data.MappingType.Element) 2665 MyBase.Columns.Add(Me.columnAreaWidth) 2666 Me.columnAreaHeight = New Global.System.Data.DataColumn("AreaHeight", GetType(Double), Nothing, Global.System.Data.MappingType.Element) 2667 MyBase.Columns.Add(Me.columnAreaHeight) 2668 Me.columnAlignment = New Global.System.Data.DataColumn("Alignment", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) 2669 MyBase.Columns.Add(Me.columnAlignment) 2670 Me.columnWhenToDisplay = New Global.System.Data.DataColumn("WhenToDisplay", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) 2671 MyBase.Columns.Add(Me.columnWhenToDisplay) 2672 Me.columnContent = New Global.System.Data.DataColumn("Content", GetType(String), Nothing, Global.System.Data.MappingType.Element) 2673 MyBase.Columns.Add(Me.columnContent) 2674 Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnStyleID, Me.columnComponent}, true)) 2675 Me.columnStyleID.AllowDBNull = false 2676 Me.columnComponent.AllowDBNull = false 2677 End Sub 2678 2679 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2680 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2681 Public Function NewProjectletsRow() As ProjectletsRow 2682 Return CType(Me.NewRow,ProjectletsRow) 2683 End Function 2684 2685 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2686 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2687 Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow 2688 Return New ProjectletsRow(builder) 2689 End Function 2690 2691 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2692 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2693 Protected Overrides Function GetRowType() As Global.System.Type 2694 Return GetType(ProjectletsRow) 2695 End Function 2696 2697 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2698 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2699 Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) 2700 MyBase.OnRowChanged(e) 2701 If (Not (Me.ProjectletsRowChangedEvent) Is Nothing) Then 2702 RaiseEvent ProjectletsRowChanged(Me, New ProjectletsRowChangeEvent(CType(e.Row,ProjectletsRow), e.Action)) 2703 End If 2704 End Sub 2705 2706 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2707 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2708 Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) 2709 MyBase.OnRowChanging(e) 2710 If (Not (Me.ProjectletsRowChangingEvent) Is Nothing) Then 2711 RaiseEvent ProjectletsRowChanging(Me, New ProjectletsRowChangeEvent(CType(e.Row,ProjectletsRow), e.Action)) 2712 End If 2713 End Sub 2714 2715 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2716 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2717 Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) 2718 MyBase.OnRowDeleted(e) 2719 If (Not (Me.ProjectletsRowDeletedEvent) Is Nothing) Then 2720 RaiseEvent ProjectletsRowDeleted(Me, New ProjectletsRowChangeEvent(CType(e.Row,ProjectletsRow), e.Action)) 2721 End If 2722 End Sub 2723 2724 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2725 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2726 Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) 2727 MyBase.OnRowDeleting(e) 2728 If (Not (Me.ProjectletsRowDeletingEvent) Is Nothing) Then 2729 RaiseEvent ProjectletsRowDeleting(Me, New ProjectletsRowChangeEvent(CType(e.Row,ProjectletsRow), e.Action)) 2730 End If 2731 End Sub 2732 2733 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2734 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2735 Public Sub RemoveProjectletsRow(ByVal row As ProjectletsRow) 2736 Me.Rows.Remove(row) 2737 End Sub 2738 2739 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2740 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2741 Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType 2742 Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() 2743 Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() 2744 Dim ds As Data = New Data() 2745 Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() 2746 any1.Namespace = "http://www.w3.org/2001/XMLSchema" 2747 any1.MinOccurs = New Decimal(0) 2748 any1.MaxOccurs = Decimal.MaxValue 2749 any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax 2750 sequence.Items.Add(any1) 2751 Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() 2752 any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" 2753 any2.MinOccurs = New Decimal(1) 2754 any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax 2755 sequence.Items.Add(any2) 2756 Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() 2757 attribute1.Name = "namespace" 2758 attribute1.FixedValue = ds.Namespace 2759 type.Attributes.Add(attribute1) 2760 Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() 2761 attribute2.Name = "tableTypeName" 2762 attribute2.FixedValue = "ProjectletsDataTable" 2763 type.Attributes.Add(attribute2) 2764 type.Particle = sequence 2765 Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable 2766 If xs.Contains(dsSchema.TargetNamespace) Then 2767 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() 2768 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() 2769 Try 2770 Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing 2771 dsSchema.Write(s1) 2772 Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator 2773 Do While schemas.MoveNext 2774 schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) 2775 s2.SetLength(0) 2776 schema.Write(s2) 2777 If (s1.Length = s2.Length) Then 2778 s1.Position = 0 2779 s2.Position = 0 2780 2781 Do While ((s1.Position <> s1.Length) _ 2782 AndAlso (s1.ReadByte = s2.ReadByte)) 2783 2784 2785 Loop 2786 If (s1.Position = s1.Length) Then 2787 Return type 2788 End If 2789 End If 2790 2791 Loop 2792 Finally 2793 If (Not (s1) Is Nothing) Then 2794 s1.Close 2795 End If 2796 If (Not (s2) Is Nothing) Then 2797 s2.Close 2798 End If 2799 End Try 2800 End If 2801 xs.Add(dsSchema) 2802 Return type 2803 End Function 2804 End Class 2805 2806 '''<summary> 2807 '''Represents the strongly named DataTable class. 2808 '''</summary> 2809 <Global.System.Serializable(), _ 2810 Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _ 2811 Partial Public Class LicensesDataTable 2812 Inherits Global.System.Data.DataTable 2813 Implements Global.System.Collections.IEnumerable 2814 2815 Private columnLicenseID As Global.System.Data.DataColumn 2816 2817 Private columnName As Global.System.Data.DataColumn 2818 2819 Private columnDetails As Global.System.Data.DataColumn 2820 2821 Private columnNumber As Global.System.Data.DataColumn 2822 2823 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2824 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2825 Public Sub New() 2826 MyBase.New 2827 Me.TableName = "Licenses" 2828 Me.BeginInit 2829 Me.InitClass 2830 Me.EndInit 2831 End Sub 2832 2833 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2834 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2835 Friend Sub New(ByVal table As Global.System.Data.DataTable) 2836 MyBase.New 2837 Me.TableName = table.TableName 2838 If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then 2839 Me.CaseSensitive = table.CaseSensitive 2840 End If 2841 If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then 2842 Me.Locale = table.Locale 2843 End If 2844 If (table.Namespace <> table.DataSet.Namespace) Then 2845 Me.Namespace = table.Namespace 2846 End If 2847 Me.Prefix = table.Prefix 2848 Me.MinimumCapacity = table.MinimumCapacity 2849 End Sub 2850 2851 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2852 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2853 Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) 2854 MyBase.New(info, context) 2855 Me.InitVars 2856 End Sub 2857 2858 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2859 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2860 Public ReadOnly Property LicenseIDColumn() As Global.System.Data.DataColumn 2861 Get 2862 Return Me.columnLicenseID 2863 End Get 2864 End Property 2865 2866 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2867 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2868 Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn 2869 Get 2870 Return Me.columnName 2871 End Get 2872 End Property 2873 2874 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2875 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2876 Public ReadOnly Property DetailsColumn() As Global.System.Data.DataColumn 2877 Get 2878 Return Me.columnDetails 2879 End Get 2880 End Property 2881 2882 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2883 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2884 Public ReadOnly Property NumberColumn() As Global.System.Data.DataColumn 2885 Get 2886 Return Me.columnNumber 2887 End Get 2888 End Property 2889 2890 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2891 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ 2892 Global.System.ComponentModel.Browsable(false)> _ 2893 Public ReadOnly Property Count() As Integer 2894 Get 2895 Return Me.Rows.Count 2896 End Get 2897 End Property 2898 2899 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2900 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2901 Public Default ReadOnly Property Item(ByVal index As Integer) As LicensesRow 2902 Get 2903 Return CType(Me.Rows(index),LicensesRow) 2904 End Get 2905 End Property 2906 2907 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2908 Public Event LicensesRowChanging As LicensesRowChangeEventHandler 2909 2910 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2911 Public Event LicensesRowChanged As LicensesRowChangeEventHandler 2912 2913 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2914 Public Event LicensesRowDeleting As LicensesRowChangeEventHandler 2915 2916 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2917 Public Event LicensesRowDeleted As LicensesRowChangeEventHandler 2918 2919 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2920 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2921 Public Overloads Sub AddLicensesRow(ByVal row As LicensesRow) 2922 Me.Rows.Add(row) 2923 End Sub 2924 2925 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2926 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2927 Public Overloads Function AddLicensesRow(ByVal LicenseID As System.Guid, ByVal Name As String, ByVal Details As String, ByVal Number As String) As LicensesRow 2928 Dim rowLicensesRow As LicensesRow = CType(Me.NewRow,LicensesRow) 2929 Dim columnValuesArray() As Object = New Object() {LicenseID, Name, Details, Number} 2930 rowLicensesRow.ItemArray = columnValuesArray 2931 Me.Rows.Add(rowLicensesRow) 2932 Return rowLicensesRow 2933 End Function 2934 2935 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2936 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2937 Public Function FindByLicenseID(ByVal LicenseID As System.Guid) As LicensesRow 2938 Return CType(Me.Rows.Find(New Object() {LicenseID}),LicensesRow) 2939 End Function 2940 2941 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2942 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2943 Public Overridable Function GetEnumerator() As Global.System.Collections.IEnumerator Implements Global.System.Collections.IEnumerable.GetEnumerator 2944 Return Me.Rows.GetEnumerator 2945 End Function 2946 2947 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2948 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2949 Public Overrides Function Clone() As Global.System.Data.DataTable 2950 Dim cln As LicensesDataTable = CType(MyBase.Clone,LicensesDataTable) 2951 cln.InitVars 2952 Return cln 2953 End Function 2954 2955 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2956 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2957 Protected Overrides Function CreateInstance() As Global.System.Data.DataTable 2958 Return New LicensesDataTable() 2959 End Function 2960 2961 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2962 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2963 Friend Sub InitVars() 2964 Me.columnLicenseID = MyBase.Columns("LicenseID") 2965 Me.columnName = MyBase.Columns("Name") 2966 Me.columnDetails = MyBase.Columns("Details") 2967 Me.columnNumber = MyBase.Columns("Number") 2968 End Sub 2969 2970 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2971 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2972 Private Sub InitClass() 2973 Me.columnLicenseID = New Global.System.Data.DataColumn("LicenseID", GetType(Global.System.Guid), Nothing, Global.System.Data.MappingType.Element) 2974 MyBase.Columns.Add(Me.columnLicenseID) 2975 Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) 2976 MyBase.Columns.Add(Me.columnName) 2977 Me.columnDetails = New Global.System.Data.DataColumn("Details", GetType(String), Nothing, Global.System.Data.MappingType.Element) 2978 MyBase.Columns.Add(Me.columnDetails) 2979 Me.columnNumber = New Global.System.Data.DataColumn("Number", GetType(String), Nothing, Global.System.Data.MappingType.Element) 2980 MyBase.Columns.Add(Me.columnNumber) 2981 Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnLicenseID}, true)) 2982 Me.columnLicenseID.AllowDBNull = false 2983 Me.columnLicenseID.Unique = true 2984 End Sub 2985 2986 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2987 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2988 Public Function NewLicensesRow() As LicensesRow 2989 Return CType(Me.NewRow,LicensesRow) 2990 End Function 2991 2992 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2993 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 2994 Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow 2995 Return New LicensesRow(builder) 2996 End Function 2997 2998 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 2999 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3000 Protected Overrides Function GetRowType() As Global.System.Type 3001 Return GetType(LicensesRow) 3002 End Function 3003 3004 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3005 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3006 Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) 3007 MyBase.OnRowChanged(e) 3008 If (Not (Me.LicensesRowChangedEvent) Is Nothing) Then 3009 RaiseEvent LicensesRowChanged(Me, New LicensesRowChangeEvent(CType(e.Row,LicensesRow), e.Action)) 3010 End If 3011 End Sub 3012 3013 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3014 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3015 Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) 3016 MyBase.OnRowChanging(e) 3017 If (Not (Me.LicensesRowChangingEvent) Is Nothing) Then 3018 RaiseEvent LicensesRowChanging(Me, New LicensesRowChangeEvent(CType(e.Row,LicensesRow), e.Action)) 3019 End If 3020 End Sub 3021 3022 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3023 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3024 Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) 3025 MyBase.OnRowDeleted(e) 3026 If (Not (Me.LicensesRowDeletedEvent) Is Nothing) Then 3027 RaiseEvent LicensesRowDeleted(Me, New LicensesRowChangeEvent(CType(e.Row,LicensesRow), e.Action)) 3028 End If 3029 End Sub 3030 3031 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3032 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3033 Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) 3034 MyBase.OnRowDeleting(e) 3035 If (Not (Me.LicensesRowDeletingEvent) Is Nothing) Then 3036 RaiseEvent LicensesRowDeleting(Me, New LicensesRowChangeEvent(CType(e.Row,LicensesRow), e.Action)) 3037 End If 3038 End Sub 3039 3040 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3041 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3042 Public Sub RemoveLicensesRow(ByVal row As LicensesRow) 3043 Me.Rows.Remove(row) 3044 End Sub 3045 3046 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3047 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3048 Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType 3049 Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() 3050 Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() 3051 Dim ds As Data = New Data() 3052 Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() 3053 any1.Namespace = "http://www.w3.org/2001/XMLSchema" 3054 any1.MinOccurs = New Decimal(0) 3055 any1.MaxOccurs = Decimal.MaxValue 3056 any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax 3057 sequence.Items.Add(any1) 3058 Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() 3059 any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" 3060 any2.MinOccurs = New Decimal(1) 3061 any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax 3062 sequence.Items.Add(any2) 3063 Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() 3064 attribute1.Name = "namespace" 3065 attribute1.FixedValue = ds.Namespace 3066 type.Attributes.Add(attribute1) 3067 Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() 3068 attribute2.Name = "tableTypeName" 3069 attribute2.FixedValue = "LicensesDataTable" 3070 type.Attributes.Add(attribute2) 3071 type.Particle = sequence 3072 Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable 3073 If xs.Contains(dsSchema.TargetNamespace) Then 3074 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() 3075 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() 3076 Try 3077 Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing 3078 dsSchema.Write(s1) 3079 Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator 3080 Do While schemas.MoveNext 3081 schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) 3082 s2.SetLength(0) 3083 schema.Write(s2) 3084 If (s1.Length = s2.Length) Then 3085 s1.Position = 0 3086 s2.Position = 0 3087 3088 Do While ((s1.Position <> s1.Length) _ 3089 AndAlso (s1.ReadByte = s2.ReadByte)) 3090 3091 3092 Loop 3093 If (s1.Position = s1.Length) Then 3094 Return type 3095 End If 3096 End If 3097 3098 Loop 3099 Finally 3100 If (Not (s1) Is Nothing) Then 3101 s1.Close 3102 End If 3103 If (Not (s2) Is Nothing) Then 3104 s2.Close 3105 End If 3106 End Try 3107 End If 3108 xs.Add(dsSchema) 3109 Return type 3110 End Function 3111 End Class 3112 3113 '''<summary> 3114 '''Represents strongly named DataRow class. 3115 '''</summary> 3116 Partial Public Class SettingsRow 3117 Inherits Global.System.Data.DataRow 3118 3119 Private tableSettings As SettingsDataTable 3120 3121 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3122 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3123 Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) 3124 MyBase.New(rb) 3125 Me.tableSettings = CType(Me.Table,SettingsDataTable) 3126 End Sub 3127 3128 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3129 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3130 Public Property Name() As String 3131 Get 3132 Return CType(Me(Me.tableSettings.NameColumn),String) 3133 End Get 3134 Set 3135 Me(Me.tableSettings.NameColumn) = value 3136 End Set 3137 End Property 3138 3139 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3140 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3141 Public Property Value() As String 3142 Get 3143 Try 3144 Return CType(Me(Me.tableSettings.ValueColumn),String) 3145 Catch e As Global.System.InvalidCastException 3146 Throw New Global.System.Data.StrongTypingException("The value for column 'Value' in table 'Settings' is DBNull.", e) 3147 End Try 3148 End Get 3149 Set 3150 Me(Me.tableSettings.ValueColumn) = value 3151 End Set 3152 End Property 3153 3154 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3155 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3156 Public Function IsValueNull() As Boolean 3157 Return Me.IsNull(Me.tableSettings.ValueColumn) 3158 End Function 3159 3160 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3161 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3162 Public Sub SetValueNull() 3163 Me(Me.tableSettings.ValueColumn) = Global.System.Convert.DBNull 3164 End Sub 3165 End Class 3166 3167 '''<summary> 3168 '''Represents strongly named DataRow class. 3169 '''</summary> 3170 Partial Public Class SongsRow 3171 Inherits Global.System.Data.DataRow 3172 3173 Private tableSongs As SongsDataTable 3174 3175 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3176 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3177 Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) 3178 MyBase.New(rb) 3179 Me.tableSongs = CType(Me.Table,SongsDataTable) 3180 End Sub 3181 3182 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3183 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3184 Public Property SongID() As System.Guid 3185 Get 3186 Return CType(Me(Me.tableSongs.SongIDColumn),Global.System.Guid) 3187 End Get 3188 Set 3189 Me(Me.tableSongs.SongIDColumn) = value 3190 End Set 3191 End Property 3192 3193 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3194 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3195 Public Property Title() As String 3196 Get 3197 Try 3198 Return CType(Me(Me.tableSongs.TitleColumn),String) 3199 Catch e As Global.System.InvalidCastException 3200 Throw New Global.System.Data.StrongTypingException("The value for column 'Title' in table 'Songs' is DBNull.", e) 3201 End Try 3202 End Get 3203 Set 3204 Me(Me.tableSongs.TitleColumn) = value 3205 End Set 3206 End Property 3207 3208 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3209 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3210 Public Property LicenseID() As System.Guid 3211 Get 3212 Try 3213 Return CType(Me(Me.tableSongs.LicenseIDColumn),Global.System.Guid) 3214 Catch e As Global.System.InvalidCastException 3215 Throw New Global.System.Data.StrongTypingException("The value for column 'LicenseID' in table 'Songs' is DBNull.", e) 3216 End Try 3217 End Get 3218 Set 3219 Me(Me.tableSongs.LicenseIDColumn) = value 3220 End Set 3221 End Property 3222 3223 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3224 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3225 Public Property LicensesRow() As LicensesRow 3226 Get 3227 Return CType(Me.GetParentRow(Me.Table.ParentRelations("Licenses_Songs")),LicensesRow) 3228 End Get 3229 Set 3230 Me.SetParentRow(value, Me.Table.ParentRelations("Licenses_Songs")) 3231 End Set 3232 End Property 3233 3234 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3235 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3236 Public Function IsTitleNull() As Boolean 3237 Return Me.IsNull(Me.tableSongs.TitleColumn) 3238 End Function 3239 3240 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3241 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3242 Public Sub SetTitleNull() 3243 Me(Me.tableSongs.TitleColumn) = Global.System.Convert.DBNull 3244 End Sub 3245 3246 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3247 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3248 Public Function IsLicenseIDNull() As Boolean 3249 Return Me.IsNull(Me.tableSongs.LicenseIDColumn) 3250 End Function 3251 3252 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3253 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3254 Public Sub SetLicenseIDNull() 3255 Me(Me.tableSongs.LicenseIDColumn) = Global.System.Convert.DBNull 3256 End Sub 3257 3258 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3259 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3260 Public Function GetSongCategoriesRows() As SongCategoriesRow() 3261 If (Me.Table.ChildRelations("FK_Songs_SongCategories") Is Nothing) Then 3262 Return New SongCategoriesRow(-1) {} 3263 Else 3264 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Songs_SongCategories")),SongCategoriesRow()) 3265 End If 3266 End Function 3267 End Class 3268 3269 '''<summary> 3270 '''Represents strongly named DataRow class. 3271 '''</summary> 3272 Partial Public Class StylesRow 3273 Inherits Global.System.Data.DataRow 3274 3275 Private tableStyles As StylesDataTable 3276 3277 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3278 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3279 Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) 3280 MyBase.New(rb) 3281 Me.tableStyles = CType(Me.Table,StylesDataTable) 3282 End Sub 3283 3284 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3285 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3286 Public Property StyleID() As System.Guid 3287 Get 3288 Return CType(Me(Me.tableStyles.StyleIDColumn),Global.System.Guid) 3289 End Get 3290 Set 3291 Me(Me.tableStyles.StyleIDColumn) = value 3292 End Set 3293 End Property 3294 3295 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3296 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3297 Public Property Name() As String 3298 Get 3299 Try 3300 Return CType(Me(Me.tableStyles.NameColumn),String) 3301 Catch e As Global.System.InvalidCastException 3302 Throw New Global.System.Data.StrongTypingException("The value for column 'Name' in table 'Styles' is DBNull.", e) 3303 End Try 3304 End Get 3305 Set 3306 Me(Me.tableStyles.NameColumn) = value 3307 End Set 3308 End Property 3309 3310 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3311 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3312 Public Property DefaultBackgroundImage() As String 3313 Get 3314 Try 3315 Return CType(Me(Me.tableStyles.DefaultBackgroundImageColumn),String) 3316 Catch e As Global.System.InvalidCastException 3317 Throw New Global.System.Data.StrongTypingException("The value for column 'DefaultBackgroundImage' in table 'Styles' is DBNull.", e) 3318 End Try 3319 End Get 3320 Set 3321 Me(Me.tableStyles.DefaultBackgroundImageColumn) = value 3322 End Set 3323 End Property 3324 3325 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3326 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3327 Public Property DefaultBackgroundColour() As Integer 3328 Get 3329 Try 3330 Return CType(Me(Me.tableStyles.DefaultBackgroundColourColumn),Integer) 3331 Catch e As Global.System.InvalidCastException 3332 Throw New Global.System.Data.StrongTypingException("The value for column 'DefaultBackgroundColour' in table 'Styles' is DBNull.", e) 3333 End Try 3334 End Get 3335 Set 3336 Me(Me.tableStyles.DefaultBackgroundColourColumn) = value 3337 End Set 3338 End Property 3339 3340 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3341 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3342 Public Property GeneralFadeDuration() As Integer 3343 Get 3344 Try 3345 Return CType(Me(Me.tableStyles.GeneralFadeDurationColumn),Integer) 3346 Catch e As Global.System.InvalidCastException 3347 Throw New Global.System.Data.StrongTypingException("The value for column 'GeneralFadeDuration' in table 'Styles' is DBNull.", e) 3348 End Try 3349 End Get 3350 Set 3351 Me(Me.tableStyles.GeneralFadeDurationColumn) = value 3352 End Set 3353 End Property 3354 3355 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3356 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3357 Public Property VerseFade() As Integer 3358 Get 3359 Try 3360 Return CType(Me(Me.tableStyles.VerseFadeColumn),Integer) 3361 Catch e As Global.System.InvalidCastException 3362 Throw New Global.System.Data.StrongTypingException("The value for column 'VerseFade' in table 'Styles' is DBNull.", e) 3363 End Try 3364 End Get 3365 Set 3366 Me(Me.tableStyles.VerseFadeColumn) = value 3367 End Set 3368 End Property 3369 3370 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3371 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3372 Public Property VerseFadeDuration() As Integer 3373 Get 3374 Try 3375 Return CType(Me(Me.tableStyles.VerseFadeDurationColumn),Integer) 3376 Catch e As Global.System.InvalidCastException 3377 Throw New Global.System.Data.StrongTypingException("The value for column 'VerseFadeDuration' in table 'Styles' is DBNull.", e) 3378 End Try 3379 End Get 3380 Set 3381 Me(Me.tableStyles.VerseFadeDurationColumn) = value 3382 End Set 3383 End Property 3384 3385 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3386 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3387 Public Property GeneralFade() As Integer 3388 Get 3389 Try 3390 Return CType(Me(Me.tableStyles.GeneralFadeColumn),Integer) 3391 Catch e As Global.System.InvalidCastException 3392 Throw New Global.System.Data.StrongTypingException("The value for column 'GeneralFade' in table 'Styles' is DBNull.", e) 3393 End Try 3394 End Get 3395 Set 3396 Me(Me.tableStyles.GeneralFadeColumn) = value 3397 End Set 3398 End Property 3399 3400 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3401 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3402 Public Property BackgroundType() As Integer 3403 Get 3404 Try 3405 Return CType(Me(Me.tableStyles.BackgroundTypeColumn),Integer) 3406 Catch e As Global.System.InvalidCastException 3407 Throw New Global.System.Data.StrongTypingException("The value for column 'BackgroundType' in table 'Styles' is DBNull.", e) 3408 End Try 3409 End Get 3410 Set 3411 Me(Me.tableStyles.BackgroundTypeColumn) = value 3412 End Set 3413 End Property 3414 3415 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3416 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3417 Public Function IsNameNull() As Boolean 3418 Return Me.IsNull(Me.tableStyles.NameColumn) 3419 End Function 3420 3421 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3422 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3423 Public Sub SetNameNull() 3424 Me(Me.tableStyles.NameColumn) = Global.System.Convert.DBNull 3425 End Sub 3426 3427 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3428 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3429 Public Function IsDefaultBackgroundImageNull() As Boolean 3430 Return Me.IsNull(Me.tableStyles.DefaultBackgroundImageColumn) 3431 End Function 3432 3433 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3434 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3435 Public Sub SetDefaultBackgroundImageNull() 3436 Me(Me.tableStyles.DefaultBackgroundImageColumn) = Global.System.Convert.DBNull 3437 End Sub 3438 3439 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3440 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3441 Public Function IsDefaultBackgroundColourNull() As Boolean 3442 Return Me.IsNull(Me.tableStyles.DefaultBackgroundColourColumn) 3443 End Function 3444 3445 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3446 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3447 Public Sub SetDefaultBackgroundColourNull() 3448 Me(Me.tableStyles.DefaultBackgroundColourColumn) = Global.System.Convert.DBNull 3449 End Sub 3450 3451 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3452 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3453 Public Function IsGeneralFadeDurationNull() As Boolean 3454 Return Me.IsNull(Me.tableStyles.GeneralFadeDurationColumn) 3455 End Function 3456 3457 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3458 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3459 Public Sub SetGeneralFadeDurationNull() 3460 Me(Me.tableStyles.GeneralFadeDurationColumn) = Global.System.Convert.DBNull 3461 End Sub 3462 3463 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3464 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3465 Public Function IsVerseFadeNull() As Boolean 3466 Return Me.IsNull(Me.tableStyles.VerseFadeColumn) 3467 End Function 3468 3469 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3470 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3471 Public Sub SetVerseFadeNull() 3472 Me(Me.tableStyles.VerseFadeColumn) = Global.System.Convert.DBNull 3473 End Sub 3474 3475 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3476 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3477 Public Function IsVerseFadeDurationNull() As Boolean 3478 Return Me.IsNull(Me.tableStyles.VerseFadeDurationColumn) 3479 End Function 3480 3481 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3482 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3483 Public Sub SetVerseFadeDurationNull() 3484 Me(Me.tableStyles.VerseFadeDurationColumn) = Global.System.Convert.DBNull 3485 End Sub 3486 3487 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3488 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3489 Public Function IsGeneralFadeNull() As Boolean 3490 Return Me.IsNull(Me.tableStyles.GeneralFadeColumn) 3491 End Function 3492 3493 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3494 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3495 Public Sub SetGeneralFadeNull() 3496 Me(Me.tableStyles.GeneralFadeColumn) = Global.System.Convert.DBNull 3497 End Sub 3498 3499 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3500 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3501 Public Function IsBackgroundTypeNull() As Boolean 3502 Return Me.IsNull(Me.tableStyles.BackgroundTypeColumn) 3503 End Function 3504 3505 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3506 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3507 Public Sub SetBackgroundTypeNull() 3508 Me(Me.tableStyles.BackgroundTypeColumn) = Global.System.Convert.DBNull 3509 End Sub 3510 3511 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3512 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3513 Public Function GetProjectletsRows() As ProjectletsRow() 3514 If (Me.Table.ChildRelations("FK_Styles_Projectlets") Is Nothing) Then 3515 Return New ProjectletsRow(-1) {} 3516 Else 3517 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Styles_Projectlets")),ProjectletsRow()) 3518 End If 3519 End Function 3520 End Class 3521 3522 '''<summary> 3523 '''Represents strongly named DataRow class. 3524 '''</summary> 3525 Partial Public Class BiblesRow 3526 Inherits Global.System.Data.DataRow 3527 3528 Private tableBibles As BiblesDataTable 3529 3530 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3531 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3532 Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) 3533 MyBase.New(rb) 3534 Me.tableBibles = CType(Me.Table,BiblesDataTable) 3535 End Sub 3536 3537 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3538 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3539 Public Property Acronym() As String 3540 Get 3541 Try 3542 Return CType(Me(Me.tableBibles.AcronymColumn),String) 3543 Catch e As Global.System.InvalidCastException 3544 Throw New Global.System.Data.StrongTypingException("The value for column 'Acronym' in table 'Bibles' is DBNull.", e) 3545 End Try 3546 End Get 3547 Set 3548 Me(Me.tableBibles.AcronymColumn) = value 3549 End Set 3550 End Property 3551 3552 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3553 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3554 Public Property FileName() As String 3555 Get 3556 Try 3557 Return CType(Me(Me.tableBibles.FileNameColumn),String) 3558 Catch e As Global.System.InvalidCastException 3559 Throw New Global.System.Data.StrongTypingException("The value for column 'FileName' in table 'Bibles' is DBNull.", e) 3560 End Try 3561 End Get 3562 Set 3563 Me(Me.tableBibles.FileNameColumn) = value 3564 End Set 3565 End Property 3566 3567 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3568 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3569 Public Function IsAcronymNull() As Boolean 3570 Return Me.IsNull(Me.tableBibles.AcronymColumn) 3571 End Function 3572 3573 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3574 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3575 Public Sub SetAcronymNull() 3576 Me(Me.tableBibles.AcronymColumn) = Global.System.Convert.DBNull 3577 End Sub 3578 3579 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3580 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3581 Public Function IsFileNameNull() As Boolean 3582 Return Me.IsNull(Me.tableBibles.FileNameColumn) 3583 End Function 3584 3585 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3586 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3587 Public Sub SetFileNameNull() 3588 Me(Me.tableBibles.FileNameColumn) = Global.System.Convert.DBNull 3589 End Sub 3590 End Class 3591 3592 '''<summary> 3593 '''Represents strongly named DataRow class. 3594 '''</summary> 3595 Partial Public Class CategoriesRow 3596 Inherits Global.System.Data.DataRow 3597 3598 Private tableCategories As CategoriesDataTable 3599 3600 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3601 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3602 Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) 3603 MyBase.New(rb) 3604 Me.tableCategories = CType(Me.Table,CategoriesDataTable) 3605 End Sub 3606 3607 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3608 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3609 Public Property CategoryID() As System.Guid 3610 Get 3611 Return CType(Me(Me.tableCategories.CategoryIDColumn),Global.System.Guid) 3612 End Get 3613 Set 3614 Me(Me.tableCategories.CategoryIDColumn) = value 3615 End Set 3616 End Property 3617 3618 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3619 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3620 Public Property Name() As String 3621 Get 3622 Try 3623 Return CType(Me(Me.tableCategories.NameColumn),String) 3624 Catch e As Global.System.InvalidCastException 3625 Throw New Global.System.Data.StrongTypingException("The value for column 'Name' in table 'Categories' is DBNull.", e) 3626 End Try 3627 End Get 3628 Set 3629 Me(Me.tableCategories.NameColumn) = value 3630 End Set 3631 End Property 3632 3633 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3634 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3635 Public Function IsNameNull() As Boolean 3636 Return Me.IsNull(Me.tableCategories.NameColumn) 3637 End Function 3638 3639 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3640 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3641 Public Sub SetNameNull() 3642 Me(Me.tableCategories.NameColumn) = Global.System.Convert.DBNull 3643 End Sub 3644 3645 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3646 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3647 Public Function GetSongCategoriesRows() As SongCategoriesRow() 3648 If (Me.Table.ChildRelations("FK_Categories_SongCategories") Is Nothing) Then 3649 Return New SongCategoriesRow(-1) {} 3650 Else 3651 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Categories_SongCategories")),SongCategoriesRow()) 3652 End If 3653 End Function 3654 End Class 3655 3656 '''<summary> 3657 '''Represents strongly named DataRow class. 3658 '''</summary> 3659 Partial Public Class SongCategoriesRow 3660 Inherits Global.System.Data.DataRow 3661 3662 Private tableSongCategories As SongCategoriesDataTable 3663 3664 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3665 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3666 Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) 3667 MyBase.New(rb) 3668 Me.tableSongCategories = CType(Me.Table,SongCategoriesDataTable) 3669 End Sub 3670 3671 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 3672 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 3673 Public Property SongID() As System.Guid 3674 Get 3675 Return CType(Me(Me.tableSongCateg