PageRenderTime 78ms CodeModel.GetById 14ms app.highlight 50ms 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

Large files files are truncated, but you can click here to view the full file

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

Large files files are truncated, but you can click here to view the full file