/Source Code/SongDatabase/Data.Designer.vb
Visual Basic | 4521 lines | 3872 code | 565 blank | 84 comment | 30 complexity | 7c67175b9dcda14cdf5578321e65d9eb MD5 | raw file
Large files files are truncated, but you can click here to view the full file
- '------------------------------------------------------------------------------
- ' <auto-generated>
- ' This code was generated by a tool.
- ' Runtime Version:4.0.30319.1
- '
- ' Changes to this file may cause incorrect behavior and will be lost if
- ' the code is regenerated.
- ' </auto-generated>
- '------------------------------------------------------------------------------
-
- Option Strict Off
- Option Explicit On
-
-
-
- '''<summary>
- '''Represents a strongly typed in-memory cache of data.
- '''</summary>
- <Global.System.Serializable(), _
- Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
- Global.System.ComponentModel.ToolboxItem(true), _
- Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedDataSetSchema"), _
- Global.System.Xml.Serialization.XmlRootAttribute("Data"), _
- Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")> _
- Partial Public Class Data
- Inherits Global.System.Data.DataSet
-
- Private tableSettings As SettingsDataTable
-
- Private tableSongs As SongsDataTable
-
- Private tableStyles As StylesDataTable
-
- Private tableBibles As BiblesDataTable
-
- Private tableCategories As CategoriesDataTable
-
- Private tableSongCategories As SongCategoriesDataTable
-
- Private tableProjectlets As ProjectletsDataTable
-
- Private tableLicenses As LicensesDataTable
-
- Private relationFK_Categories_SongCategories As Global.System.Data.DataRelation
-
- Private relationFK_Songs_SongCategories As Global.System.Data.DataRelation
-
- Private relationFK_Styles_Projectlets As Global.System.Data.DataRelation
-
- Private relationLicenses_Songs As Global.System.Data.DataRelation
-
- Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub New()
- MyBase.New
- Me.BeginInit
- Me.InitClass
- Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
- AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
- AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler
- Me.EndInit
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
- MyBase.New(info, context, false)
- If (Me.IsBinarySerialized(info, context) = true) Then
- Me.InitVars(false)
- Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
- AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1
- AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1
- Return
- End If
- Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String)
- If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
- Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
- ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
- If (Not (ds.Tables("Settings")) Is Nothing) Then
- MyBase.Tables.Add(New SettingsDataTable(ds.Tables("Settings")))
- End If
- If (Not (ds.Tables("Songs")) Is Nothing) Then
- MyBase.Tables.Add(New SongsDataTable(ds.Tables("Songs")))
- End If
- If (Not (ds.Tables("Styles")) Is Nothing) Then
- MyBase.Tables.Add(New StylesDataTable(ds.Tables("Styles")))
- End If
- If (Not (ds.Tables("Bibles")) Is Nothing) Then
- MyBase.Tables.Add(New BiblesDataTable(ds.Tables("Bibles")))
- End If
- If (Not (ds.Tables("Categories")) Is Nothing) Then
- MyBase.Tables.Add(New CategoriesDataTable(ds.Tables("Categories")))
- End If
- If (Not (ds.Tables("SongCategories")) Is Nothing) Then
- MyBase.Tables.Add(New SongCategoriesDataTable(ds.Tables("SongCategories")))
- End If
- If (Not (ds.Tables("Projectlets")) Is Nothing) Then
- MyBase.Tables.Add(New ProjectletsDataTable(ds.Tables("Projectlets")))
- End If
- If (Not (ds.Tables("Licenses")) Is Nothing) Then
- MyBase.Tables.Add(New LicensesDataTable(ds.Tables("Licenses")))
- End If
- Me.DataSetName = ds.DataSetName
- Me.Prefix = ds.Prefix
- Me.Namespace = ds.Namespace
- Me.Locale = ds.Locale
- Me.CaseSensitive = ds.CaseSensitive
- Me.EnforceConstraints = ds.EnforceConstraints
- Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
- Me.InitVars
- Else
- Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
- End If
- Me.GetSerializationData(info, context)
- Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
- AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
- AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.Browsable(false), _
- Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
- Public ReadOnly Property Settings() As SettingsDataTable
- Get
- Return Me.tableSettings
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.Browsable(false), _
- Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
- Public ReadOnly Property Songs() As SongsDataTable
- Get
- Return Me.tableSongs
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.Browsable(false), _
- Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
- Public ReadOnly Property Styles() As StylesDataTable
- Get
- Return Me.tableStyles
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.Browsable(false), _
- Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
- Public ReadOnly Property Bibles() As BiblesDataTable
- Get
- Return Me.tableBibles
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.Browsable(false), _
- Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
- Public ReadOnly Property Categories() As CategoriesDataTable
- Get
- Return Me.tableCategories
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.Browsable(false), _
- Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
- Public ReadOnly Property SongCategories() As SongCategoriesDataTable
- Get
- Return Me.tableSongCategories
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.Browsable(false), _
- Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
- Public ReadOnly Property Projectlets() As ProjectletsDataTable
- Get
- Return Me.tableProjectlets
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.Browsable(false), _
- Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
- Public ReadOnly Property Licenses() As LicensesDataTable
- Get
- Return Me.tableLicenses
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.BrowsableAttribute(true), _
- Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)> _
- Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
- Get
- Return Me._schemaSerializationMode
- End Get
- Set
- Me._schemaSerializationMode = value
- End Set
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
- Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
- Get
- Return MyBase.Tables
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
- Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
- Get
- Return MyBase.Relations
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected Overrides Sub InitializeDerivedDataSet()
- Me.BeginInit
- Me.InitClass
- Me.EndInit
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Overrides Function Clone() As Global.System.Data.DataSet
- Dim cln As Data = CType(MyBase.Clone,Data)
- cln.InitVars
- cln.SchemaSerializationMode = Me.SchemaSerializationMode
- Return cln
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected Overrides Function ShouldSerializeTables() As Boolean
- Return false
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected Overrides Function ShouldSerializeRelations() As Boolean
- Return false
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader)
- If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
- Me.Reset
- Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
- ds.ReadXml(reader)
- If (Not (ds.Tables("Settings")) Is Nothing) Then
- MyBase.Tables.Add(New SettingsDataTable(ds.Tables("Settings")))
- End If
- If (Not (ds.Tables("Songs")) Is Nothing) Then
- MyBase.Tables.Add(New SongsDataTable(ds.Tables("Songs")))
- End If
- If (Not (ds.Tables("Styles")) Is Nothing) Then
- MyBase.Tables.Add(New StylesDataTable(ds.Tables("Styles")))
- End If
- If (Not (ds.Tables("Bibles")) Is Nothing) Then
- MyBase.Tables.Add(New BiblesDataTable(ds.Tables("Bibles")))
- End If
- If (Not (ds.Tables("Categories")) Is Nothing) Then
- MyBase.Tables.Add(New CategoriesDataTable(ds.Tables("Categories")))
- End If
- If (Not (ds.Tables("SongCategories")) Is Nothing) Then
- MyBase.Tables.Add(New SongCategoriesDataTable(ds.Tables("SongCategories")))
- End If
- If (Not (ds.Tables("Projectlets")) Is Nothing) Then
- MyBase.Tables.Add(New ProjectletsDataTable(ds.Tables("Projectlets")))
- End If
- If (Not (ds.Tables("Licenses")) Is Nothing) Then
- MyBase.Tables.Add(New LicensesDataTable(ds.Tables("Licenses")))
- End If
- Me.DataSetName = ds.DataSetName
- Me.Prefix = ds.Prefix
- Me.Namespace = ds.Namespace
- Me.Locale = ds.Locale
- Me.CaseSensitive = ds.CaseSensitive
- Me.EnforceConstraints = ds.EnforceConstraints
- Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
- Me.InitVars
- Else
- Me.ReadXml(reader)
- Me.InitVars
- End If
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema
- Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
- Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing))
- stream.Position = 0
- Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Friend Overloads Sub InitVars()
- Me.InitVars(true)
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Friend Overloads Sub InitVars(ByVal initTable As Boolean)
- Me.tableSettings = CType(MyBase.Tables("Settings"),SettingsDataTable)
- If (initTable = true) Then
- If (Not (Me.tableSettings) Is Nothing) Then
- Me.tableSettings.InitVars
- End If
- End If
- Me.tableSongs = CType(MyBase.Tables("Songs"),SongsDataTable)
- If (initTable = true) Then
- If (Not (Me.tableSongs) Is Nothing) Then
- Me.tableSongs.InitVars
- End If
- End If
- Me.tableStyles = CType(MyBase.Tables("Styles"),StylesDataTable)
- If (initTable = true) Then
- If (Not (Me.tableStyles) Is Nothing) Then
- Me.tableStyles.InitVars
- End If
- End If
- Me.tableBibles = CType(MyBase.Tables("Bibles"),BiblesDataTable)
- If (initTable = true) Then
- If (Not (Me.tableBibles) Is Nothing) Then
- Me.tableBibles.InitVars
- End If
- End If
- Me.tableCategories = CType(MyBase.Tables("Categories"),CategoriesDataTable)
- If (initTable = true) Then
- If (Not (Me.tableCategories) Is Nothing) Then
- Me.tableCategories.InitVars
- End If
- End If
- Me.tableSongCategories = CType(MyBase.Tables("SongCategories"),SongCategoriesDataTable)
- If (initTable = true) Then
- If (Not (Me.tableSongCategories) Is Nothing) Then
- Me.tableSongCategories.InitVars
- End If
- End If
- Me.tableProjectlets = CType(MyBase.Tables("Projectlets"),ProjectletsDataTable)
- If (initTable = true) Then
- If (Not (Me.tableProjectlets) Is Nothing) Then
- Me.tableProjectlets.InitVars
- End If
- End If
- Me.tableLicenses = CType(MyBase.Tables("Licenses"),LicensesDataTable)
- If (initTable = true) Then
- If (Not (Me.tableLicenses) Is Nothing) Then
- Me.tableLicenses.InitVars
- End If
- End If
- Me.relationFK_Categories_SongCategories = Me.Relations("FK_Categories_SongCategories")
- Me.relationFK_Songs_SongCategories = Me.Relations("FK_Songs_SongCategories")
- Me.relationFK_Styles_Projectlets = Me.Relations("FK_Styles_Projectlets")
- Me.relationLicenses_Songs = Me.Relations("Licenses_Songs")
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Private Sub InitClass()
- Me.DataSetName = "Data"
- Me.Prefix = ""
- Me.Namespace = "http://tempuri.org/Data.xsd"
- Me.EnforceConstraints = true
- Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
- Me.tableSettings = New SettingsDataTable()
- MyBase.Tables.Add(Me.tableSettings)
- Me.tableSongs = New SongsDataTable()
- MyBase.Tables.Add(Me.tableSongs)
- Me.tableStyles = New StylesDataTable()
- MyBase.Tables.Add(Me.tableStyles)
- Me.tableBibles = New BiblesDataTable()
- MyBase.Tables.Add(Me.tableBibles)
- Me.tableCategories = New CategoriesDataTable()
- MyBase.Tables.Add(Me.tableCategories)
- Me.tableSongCategories = New SongCategoriesDataTable()
- MyBase.Tables.Add(Me.tableSongCategories)
- Me.tableProjectlets = New ProjectletsDataTable()
- MyBase.Tables.Add(Me.tableProjectlets)
- Me.tableLicenses = New LicensesDataTable()
- MyBase.Tables.Add(Me.tableLicenses)
- Dim fkc As Global.System.Data.ForeignKeyConstraint
- 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})
- Me.tableSongCategories.Constraints.Add(fkc)
- fkc.AcceptRejectRule = Global.System.Data.AcceptRejectRule.None
- fkc.DeleteRule = Global.System.Data.Rule.Cascade
- fkc.UpdateRule = Global.System.Data.Rule.Cascade
- 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})
- Me.tableSongCategories.Constraints.Add(fkc)
- fkc.AcceptRejectRule = Global.System.Data.AcceptRejectRule.None
- fkc.DeleteRule = Global.System.Data.Rule.Cascade
- fkc.UpdateRule = Global.System.Data.Rule.Cascade
- 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})
- Me.tableProjectlets.Constraints.Add(fkc)
- fkc.AcceptRejectRule = Global.System.Data.AcceptRejectRule.None
- fkc.DeleteRule = Global.System.Data.Rule.Cascade
- fkc.UpdateRule = Global.System.Data.Rule.Cascade
- 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)
- Me.Relations.Add(Me.relationFK_Categories_SongCategories)
- 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)
- Me.Relations.Add(Me.relationFK_Songs_SongCategories)
- 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)
- Me.Relations.Add(Me.relationFK_Styles_Projectlets)
- 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)
- Me.Relations.Add(Me.relationLicenses_Songs)
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Private Function ShouldSerializeSettings() As Boolean
- Return false
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Private Function ShouldSerializeSongs() As Boolean
- Return false
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Private Function ShouldSerializeStyles() As Boolean
- Return false
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Private Function ShouldSerializeBibles() As Boolean
- Return false
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Private Function ShouldSerializeCategories() As Boolean
- Return false
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Private Function ShouldSerializeSongCategories() As Boolean
- Return false
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Private Function ShouldSerializeProjectlets() As Boolean
- Return false
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Private Function ShouldSerializeLicenses() As Boolean
- Return false
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
- If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
- Me.InitVars
- End If
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
- Dim ds As Data = New Data()
- Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
- Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
- Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
- any.Namespace = ds.Namespace
- sequence.Items.Add(any)
- type.Particle = sequence
- Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
- If xs.Contains(dsSchema.TargetNamespace) Then
- Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
- Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
- Try
- Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
- dsSchema.Write(s1)
- Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
- Do While schemas.MoveNext
- schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
- s2.SetLength(0)
- schema.Write(s2)
- If (s1.Length = s2.Length) Then
- s1.Position = 0
- s2.Position = 0
-
- Do While ((s1.Position <> s1.Length) _
- AndAlso (s1.ReadByte = s2.ReadByte))
-
-
- Loop
- If (s1.Position = s1.Length) Then
- Return type
- End If
- End If
-
- Loop
- Finally
- If (Not (s1) Is Nothing) Then
- s1.Close
- End If
- If (Not (s2) Is Nothing) Then
- s2.Close
- End If
- End Try
- End If
- xs.Add(dsSchema)
- Return type
- End Function
-
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Delegate Sub SettingsRowChangeEventHandler(ByVal sender As Object, ByVal e As SettingsRowChangeEvent)
-
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Delegate Sub SongsRowChangeEventHandler(ByVal sender As Object, ByVal e As SongsRowChangeEvent)
-
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Delegate Sub StylesRowChangeEventHandler(ByVal sender As Object, ByVal e As StylesRowChangeEvent)
-
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Delegate Sub BiblesRowChangeEventHandler(ByVal sender As Object, ByVal e As BiblesRowChangeEvent)
-
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Delegate Sub CategoriesRowChangeEventHandler(ByVal sender As Object, ByVal e As CategoriesRowChangeEvent)
-
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Delegate Sub SongCategoriesRowChangeEventHandler(ByVal sender As Object, ByVal e As SongCategoriesRowChangeEvent)
-
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Delegate Sub ProjectletsRowChangeEventHandler(ByVal sender As Object, ByVal e As ProjectletsRowChangeEvent)
-
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Delegate Sub LicensesRowChangeEventHandler(ByVal sender As Object, ByVal e As LicensesRowChangeEvent)
-
- '''<summary>
- '''Represents the strongly named DataTable class.
- '''</summary>
- <Global.System.Serializable(), _
- Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
- Partial Public Class SettingsDataTable
- Inherits Global.System.Data.DataTable
- Implements Global.System.Collections.IEnumerable
-
- Private columnName As Global.System.Data.DataColumn
-
- Private columnValue As Global.System.Data.DataColumn
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub New()
- MyBase.New
- Me.TableName = "Settings"
- Me.BeginInit
- Me.InitClass
- Me.EndInit
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Friend Sub New(ByVal table As Global.System.Data.DataTable)
- MyBase.New
- Me.TableName = table.TableName
- If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
- Me.CaseSensitive = table.CaseSensitive
- End If
- If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
- Me.Locale = table.Locale
- End If
- If (table.Namespace <> table.DataSet.Namespace) Then
- Me.Namespace = table.Namespace
- End If
- Me.Prefix = table.Prefix
- Me.MinimumCapacity = table.MinimumCapacity
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
- MyBase.New(info, context)
- Me.InitVars
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnName
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property ValueColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnValue
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.Browsable(false)> _
- Public ReadOnly Property Count() As Integer
- Get
- Return Me.Rows.Count
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Default ReadOnly Property Item(ByVal index As Integer) As SettingsRow
- Get
- Return CType(Me.Rows(index),SettingsRow)
- End Get
- End Property
-
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Event SettingsRowChanging As SettingsRowChangeEventHandler
-
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Event SettingsRowChanged As SettingsRowChangeEventHandler
-
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Event SettingsRowDeleting As SettingsRowChangeEventHandler
-
- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Event SettingsRowDeleted As SettingsRowChangeEventHandler
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Overloads Sub AddSettingsRow(ByVal row As SettingsRow)
- Me.Rows.Add(row)
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Overloads Function AddSettingsRow(ByVal Name As String, ByVal Value As String) As SettingsRow
- Dim rowSettingsRow As SettingsRow = CType(Me.NewRow,SettingsRow)
- Dim columnValuesArray() As Object = New Object() {Name, Value}
- rowSettingsRow.ItemArray = columnValuesArray
- Me.Rows.Add(rowSettingsRow)
- Return rowSettingsRow
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function FindByName(ByVal Name As String) As SettingsRow
- Return CType(Me.Rows.Find(New Object() {Name}),SettingsRow)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Overridable Function GetEnumerator() As Global.System.Collections.IEnumerator Implements Global.System.Collections.IEnumerable.GetEnumerator
- Return Me.Rows.GetEnumerator
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Overrides Function Clone() As Global.System.Data.DataTable
- Dim cln As SettingsDataTable = CType(MyBase.Clone,SettingsDataTable)
- cln.InitVars
- Return cln
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
- Return New SettingsDataTable()
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Friend Sub InitVars()
- Me.columnName = MyBase.Columns("Name")
- Me.columnValue = MyBase.Columns("Value")
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Private Sub InitClass()
- Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnName)
- Me.columnValue = New Global.System.Data.DataColumn("Value", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnValue)
- Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnName}, true))
- Me.columnName.AllowDBNull = false
- Me.columnName.Unique = true
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Function NewSettingsRow() As SettingsRow
- Return CType(Me.NewRow,SettingsRow)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
- Return New SettingsRow(builder)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected Overrides Function GetRowType() As Global.System.Type
- Return GetType(SettingsRow)
- End Function
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
- MyBase.OnRowChanged(e)
- If (Not (Me.SettingsRowChangedEvent) Is Nothing) Then
- RaiseEvent SettingsRowChanged(Me, New SettingsRowChangeEvent(CType(e.Row,SettingsRow), e.Action))
- End If
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
- MyBase.OnRowChanging(e)
- If (Not (Me.SettingsRowChangingEvent) Is Nothing) Then
- RaiseEvent SettingsRowChanging(Me, New SettingsRowChangeEvent(CType(e.Row,SettingsRow), e.Action))
- End If
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
- MyBase.OnRowDeleted(e)
- If (Not (Me.SettingsRowDeletedEvent) Is Nothing) Then
- RaiseEvent SettingsRowDeleted(Me, New SettingsRowChangeEvent(CType(e.Row,SettingsRow), e.Action))
- End If
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
- MyBase.OnRowDeleting(e)
- If (Not (Me.SettingsRowDeletingEvent) Is Nothing) Then
- RaiseEvent SettingsRowDeleting(Me, New SettingsRowChangeEvent(CType(e.Row,SettingsRow), e.Action))
- End If
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub RemoveSettingsRow(ByVal row As SettingsRow)
- Me.Rows.Remove(row)
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
- Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
- Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
- Dim ds As Data = New Data()
- Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
- any1.Namespace = "http://www.w3.org/2001/XMLSchema"
- any1.MinOccurs = New Decimal(0)
- any1.MaxOccurs = Decimal.MaxValue
- any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
- sequence.Items.Add(any1)
- Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
- any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
- any2.MinOccurs = New Decimal(1)
- any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
- sequence.Items.Add(any2)
- Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
- attribute1.Name = "namespace"
- attribute1.FixedValue = ds.Namespace
- type.Attributes.Add(attribute1)
- Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
- attribute2.Name = "tableTypeName"
- attribute2.FixedValue = "SettingsDataTable"
- type.Attributes.Add(attribute2)
- type.Particle = sequence
- Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
- If xs.Contains(dsSchema.TargetNamespace) Then
- Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
- Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
- Try
- Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
- dsSchema.Write(s1)
- Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
- Do While schemas.MoveNext
- schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
- s2.SetLength(0)
- schema.Write(s2)
- If (s1.Length = s2.Length) Then
- s1.Position = 0
- s2.Position = 0
-
- Do While ((s1.Position <> s1.Length) _
- AndAlso (s1.ReadByte = s2.ReadByte))
-
-
- Loop
- If (s1.Position = s1.Length) Then
- Return type
- End If
- End If
-
- Loop
- Finally
- If (Not (s1) Is Nothing) Then
- s1.Close
- End If
- If (Not (s2) Is Nothing) Then
- s2.Close
- End If
- End Try
- End If
- xs.Add(dsSchema)
- Return type
- End Function
- End Class
-
- '''<summary>
- '''Represents the strongly named DataTable class.
- '''</summary>
- <Global.System.Serializable(), _
- Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
- Partial Public Class SongsDataTable
- Inherits Global.System.Data.DataTable
- Implements Global.System.Collections.IEnumerable
-
- Private columnSongID As Global.System.Data.DataColumn
-
- Private columnTitle As Global.System.Data.DataColumn
-
- Private columnLicenseID As Global.System.Data.DataColumn
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public Sub New()
- MyBase.New
- Me.TableName = "Songs"
- Me.BeginInit
- Me.InitClass
- Me.EndInit
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Friend Sub New(ByVal table As Global.System.Data.DataTable)
- MyBase.New
- Me.TableName = table.TableName
- If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
- Me.CaseSensitive = table.CaseSensitive
- End If
- If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
- Me.Locale = table.Locale
- End If
- If (table.Namespace <> table.DataSet.Namespace) Then
- Me.Namespace = table.Namespace
- End If
- Me.Prefix = table.Prefix
- Me.MinimumCapacity = table.MinimumCapacity
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
- MyBase.New(info, context)
- Me.InitVars
- End Sub
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property SongIDColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnSongID
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property TitleColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnTitle
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
- Public ReadOnly Property LicenseIDColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnLicenseID
- End Get
- End Property
-
- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
- Global.System.ComponentModel.Browsable(false)> _…
Large files files are truncated, but you can click here to view the full file