PageRenderTime 313ms CodeModel.GetById 25ms app.highlight 255ms RepoModel.GetById 1ms app.codeStats 2ms

/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