NEA/NEADataSet.Designer.vb

   1 '------------------------------------------------------------------------------
   2 ' <auto-generated>
   3 '     This code was generated by a tool.
   4 '     Runtime Version:4.0.30319.42000
   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
  11 Option Strict Off
  12 Option 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("NEADataSet"),  _
  24  Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")>  _
  25 Partial Public Class NEADataSet
  26     Inherits Global.System.Data.DataSet
  27
  28     Private tableAchievement As AchievementDataTable
  29
  30     Private tableDOW As DOWDataTable
  31
  32     Private tableFriends As FriendsDataTable
  33
  34     Private tableGames As GamesDataTable
  35
  36     Private tablePurchased As PurchasedDataTable
  37
  38     Private tableReviews As ReviewsDataTable
  39
  40     Private tableTags As TagsDataTable
  41
  42     Private tableUser_Details As User_DetailsDataTable
  43
  44     Private tableUsers As UsersDataTable
  45
  46     Private tableWishlist As WishlistDataTable
  47
  48     Private relationGamesAchievement As Global.System.Data.DataRelation
  49
  50     Private relationGamesDOW As Global.System.Data.DataRelation
  51
  52     Private relationGamesPurchased As Global.System.Data.DataRelation
  53
  54     Private relationGamesReviews As Global.System.Data.DataRelation
  55
  56     Private relationUser_DetailsUsers As Global.System.Data.DataRelation
  57
  58     Private relationGamesWishlist As Global.System.Data.DataRelation
  59
  60     Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
  61
  62     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
  63      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
  64     Public Sub New()
  65         MyBase.New
  66         Me.BeginInit
  67         Me.InitClass
  68         Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
  69         AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
  70         AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler
  71         Me.EndInit
  72     End Sub
  73
  74     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
  75      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
  76     Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
  77         MyBase.New(info, context, false)
  78         If (Me.IsBinarySerialized(info, context) = true) Then
  79             Me.InitVars(false)
  80             Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
  81             AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1
  82             AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1
  83             Return
  84         End If
  85         Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String)
  86         If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
  87             Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
  88             ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
  89             If (Not (ds.Tables("Achievement")) Is Nothing) Then
  90                 MyBase.Tables.Add(New AchievementDataTable(ds.Tables("Achievement")))
  91             End If
  92             If (Not (ds.Tables("DOW")) Is Nothing) Then
  93                 MyBase.Tables.Add(New DOWDataTable(ds.Tables("DOW")))
  94             End If
  95             If (Not (ds.Tables("Friends")) Is Nothing) Then
  96                 MyBase.Tables.Add(New FriendsDataTable(ds.Tables("Friends")))
  97             End If
  98             If (Not (ds.Tables("Games")) Is Nothing) Then
  99                 MyBase.Tables.Add(New GamesDataTable(ds.Tables("Games")))
 100             End If
 101             If (Not (ds.Tables("Purchased")) Is Nothing) Then
 102                 MyBase.Tables.Add(New PurchasedDataTable(ds.Tables("Purchased")))
 103             End If
 104             If (Not (ds.Tables("Reviews")) Is Nothing) Then
 105                 MyBase.Tables.Add(New ReviewsDataTable(ds.Tables("Reviews")))
 106             End If
 107             If (Not (ds.Tables("Tags")) Is Nothing) Then
 108                 MyBase.Tables.Add(New TagsDataTable(ds.Tables("Tags")))
 109             End If
 110             If (Not (ds.Tables("User_Details")) Is Nothing) Then
 111                 MyBase.Tables.Add(New User_DetailsDataTable(ds.Tables("User_Details")))
 112             End If
 113             If (Not (ds.Tables("Users")) Is Nothing) Then
 114                 MyBase.Tables.Add(New UsersDataTable(ds.Tables("Users")))
 115             End If
 116             If (Not (ds.Tables("Wishlist")) Is Nothing) Then
 117                 MyBase.Tables.Add(New WishlistDataTable(ds.Tables("Wishlist")))
 118             End If
 119             Me.DataSetName = ds.DataSetName
 120             Me.Prefix = ds.Prefix
 121             Me.Namespace = ds.Namespace
 122             Me.Locale = ds.Locale
 123             Me.CaseSensitive = ds.CaseSensitive
 124             Me.EnforceConstraints = ds.EnforceConstraints
 125             Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
 126             Me.InitVars
 127         Else
 128             Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
 129         End If
 130         Me.GetSerializationData(info, context)
 131         Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
 132         AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
 133         AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
 134     End Sub
 135
 136     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 137      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
 138      Global.System.ComponentModel.Browsable(false),  _
 139      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _
 140     Public ReadOnly Property Achievement() As AchievementDataTable
 141         Get
 142             Return Me.tableAchievement
 143         End Get
 144     End Property
 145
 146     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 147      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
 148      Global.System.ComponentModel.Browsable(false),  _
 149      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _
 150     Public ReadOnly Property DOW() As DOWDataTable
 151         Get
 152             Return Me.tableDOW
 153         End Get
 154     End Property
 155
 156     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 157      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
 158      Global.System.ComponentModel.Browsable(false),  _
 159      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _
 160     Public ReadOnly Property Friends() As FriendsDataTable
 161         Get
 162             Return Me.tableFriends
 163         End Get
 164     End Property
 165
 166     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 167      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
 168      Global.System.ComponentModel.Browsable(false),  _
 169      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _
 170     Public ReadOnly Property Games() As GamesDataTable
 171         Get
 172             Return Me.tableGames
 173         End Get
 174     End Property
 175
 176     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 177      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
 178      Global.System.ComponentModel.Browsable(false),  _
 179      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _
 180     Public ReadOnly Property Purchased() As PurchasedDataTable
 181         Get
 182             Return Me.tablePurchased
 183         End Get
 184     End Property
 185
 186     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 187      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
 188      Global.System.ComponentModel.Browsable(false),  _
 189      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _
 190     Public ReadOnly Property Reviews() As ReviewsDataTable
 191         Get
 192             Return Me.tableReviews
 193         End Get
 194     End Property
 195
 196     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 197      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
 198      Global.System.ComponentModel.Browsable(false),  _
 199      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _
 200     Public ReadOnly Property Tags() As TagsDataTable
 201         Get
 202             Return Me.tableTags
 203         End Get
 204     End Property
 205
 206     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 207      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
 208      Global.System.ComponentModel.Browsable(false),  _
 209      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _
 210     Public ReadOnly Property User_Details() As User_DetailsDataTable
 211         Get
 212             Return Me.tableUser_Details
 213         End Get
 214     End Property
 215
 216     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 217      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
 218      Global.System.ComponentModel.Browsable(false),  _
 219      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _
 220     Public ReadOnly Property Users() As UsersDataTable
 221         Get
 222             Return Me.tableUsers
 223         End Get
 224     End Property
 225
 226     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 227      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
 228      Global.System.ComponentModel.Browsable(false),  _
 229      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _
 230     Public ReadOnly Property Wishlist() As WishlistDataTable
 231         Get
 232             Return Me.tableWishlist
 233         End Get
 234     End Property
 235
 236     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 237      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
 238      Global.System.ComponentModel.BrowsableAttribute(true),  _
 239      Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)>  _
 240     Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
 241         Get
 242             Return Me._schemaSerializationMode
 243         End Get
 244         Set
 245             Me._schemaSerializationMode = value
 246         End Set
 247     End Property
 248
 249     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 250      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
 251      Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)>  _
 252     Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
 253         Get
 254             Return MyBase.Tables
 255         End Get
 256     End Property
 257
 258     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 259      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
 260      Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)>  _
 261     Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
 262         Get
 263             Return MyBase.Relations
 264         End Get
 265     End Property
 266
 267     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 268      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 269     Protected Overrides Sub InitializeDerivedDataSet()
 270         Me.BeginInit
 271         Me.InitClass
 272         Me.EndInit
 273     End Sub
 274
 275     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 276      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 277     Public Overrides Function Clone() As Global.System.Data.DataSet
 278         Dim cln As NEADataSet = CType(MyBase.Clone,NEADataSet)
 279         cln.InitVars
 280         cln.SchemaSerializationMode = Me.SchemaSerializationMode
 281         Return cln
 282     End Function
 283
 284     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 285      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 286     Protected Overrides Function ShouldSerializeTables() As Boolean
 287         Return false
 288     End Function
 289
 290     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 291      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 292     Protected Overrides Function ShouldSerializeRelations() As Boolean
 293         Return false
 294     End Function
 295
 296     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 297      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 298     Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader)
 299         If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
 300             Me.Reset
 301             Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
 302             ds.ReadXml(reader)
 303             If (Not (ds.Tables("Achievement")) Is Nothing) Then
 304                 MyBase.Tables.Add(New AchievementDataTable(ds.Tables("Achievement")))
 305             End If
 306             If (Not (ds.Tables("DOW")) Is Nothing) Then
 307                 MyBase.Tables.Add(New DOWDataTable(ds.Tables("DOW")))
 308             End If
 309             If (Not (ds.Tables("Friends")) Is Nothing) Then
 310                 MyBase.Tables.Add(New FriendsDataTable(ds.Tables("Friends")))
 311             End If
 312             If (Not (ds.Tables("Games")) Is Nothing) Then
 313                 MyBase.Tables.Add(New GamesDataTable(ds.Tables("Games")))
 314             End If
 315             If (Not (ds.Tables("Purchased")) Is Nothing) Then
 316                 MyBase.Tables.Add(New PurchasedDataTable(ds.Tables("Purchased")))
 317             End If
 318             If (Not (ds.Tables("Reviews")) Is Nothing) Then
 319                 MyBase.Tables.Add(New ReviewsDataTable(ds.Tables("Reviews")))
 320             End If
 321             If (Not (ds.Tables("Tags")) Is Nothing) Then
 322                 MyBase.Tables.Add(New TagsDataTable(ds.Tables("Tags")))
 323             End If
 324             If (Not (ds.Tables("User_Details")) Is Nothing) Then
 325                 MyBase.Tables.Add(New User_DetailsDataTable(ds.Tables("User_Details")))
 326             End If
 327             If (Not (ds.Tables("Users")) Is Nothing) Then
 328                 MyBase.Tables.Add(New UsersDataTable(ds.Tables("Users")))
 329             End If
 330             If (Not (ds.Tables("Wishlist")) Is Nothing) Then
 331                 MyBase.Tables.Add(New WishlistDataTable(ds.Tables("Wishlist")))
 332             End If
 333             Me.DataSetName = ds.DataSetName
 334             Me.Prefix = ds.Prefix
 335             Me.Namespace = ds.Namespace
 336             Me.Locale = ds.Locale
 337             Me.CaseSensitive = ds.CaseSensitive
 338             Me.EnforceConstraints = ds.EnforceConstraints
 339             Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
 340             Me.InitVars
 341         Else
 342             Me.ReadXml(reader)
 343             Me.InitVars
 344         End If
 345     End Sub
 346
 347     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 348      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 349     Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema
 350         Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
 351         Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing))
 352         stream.Position = 0
 353         Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing)
 354     End Function
 355
 356     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 357      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 358     Friend Overloads Sub InitVars()
 359         Me.InitVars(true)
 360     End Sub
 361
 362     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 363      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 364     Friend Overloads Sub InitVars(ByVal initTable As Boolean)
 365         Me.tableAchievement = CType(MyBase.Tables("Achievement"),AchievementDataTable)
 366         If (initTable = true) Then
 367             If (Not (Me.tableAchievement) Is Nothing) Then
 368                 Me.tableAchievement.InitVars
 369             End If
 370         End If
 371         Me.tableDOW = CType(MyBase.Tables("DOW"),DOWDataTable)
 372         If (initTable = true) Then
 373             If (Not (Me.tableDOW) Is Nothing) Then
 374                 Me.tableDOW.InitVars
 375             End If
 376         End If
 377         Me.tableFriends = CType(MyBase.Tables("Friends"),FriendsDataTable)
 378         If (initTable = true) Then
 379             If (Not (Me.tableFriends) Is Nothing) Then
 380                 Me.tableFriends.InitVars
 381             End If
 382         End If
 383         Me.tableGames = CType(MyBase.Tables("Games"),GamesDataTable)
 384         If (initTable = true) Then
 385             If (Not (Me.tableGames) Is Nothing) Then
 386                 Me.tableGames.InitVars
 387             End If
 388         End If
 389         Me.tablePurchased = CType(MyBase.Tables("Purchased"),PurchasedDataTable)
 390         If (initTable = true) Then
 391             If (Not (Me.tablePurchased) Is Nothing) Then
 392                 Me.tablePurchased.InitVars
 393             End If
 394         End If
 395         Me.tableReviews = CType(MyBase.Tables("Reviews"),ReviewsDataTable)
 396         If (initTable = true) Then
 397             If (Not (Me.tableReviews) Is Nothing) Then
 398                 Me.tableReviews.InitVars
 399             End If
 400         End If
 401         Me.tableTags = CType(MyBase.Tables("Tags"),TagsDataTable)
 402         If (initTable = true) Then
 403             If (Not (Me.tableTags) Is Nothing) Then
 404                 Me.tableTags.InitVars
 405             End If
 406         End If
 407         Me.tableUser_Details = CType(MyBase.Tables("User_Details"),User_DetailsDataTable)
 408         If (initTable = true) Then
 409             If (Not (Me.tableUser_Details) Is Nothing) Then
 410                 Me.tableUser_Details.InitVars
 411             End If
 412         End If
 413         Me.tableUsers = CType(MyBase.Tables("Users"),UsersDataTable)
 414         If (initTable = true) Then
 415             If (Not (Me.tableUsers) Is Nothing) Then
 416                 Me.tableUsers.InitVars
 417             End If
 418         End If
 419         Me.tableWishlist = CType(MyBase.Tables("Wishlist"),WishlistDataTable)
 420         If (initTable = true) Then
 421             If (Not (Me.tableWishlist) Is Nothing) Then
 422                 Me.tableWishlist.InitVars
 423             End If
 424         End If
 425         Me.relationGamesAchievement = Me.Relations("GamesAchievement")
 426         Me.relationGamesDOW = Me.Relations("GamesDOW")
 427         Me.relationGamesPurchased = Me.Relations("GamesPurchased")
 428         Me.relationGamesReviews = Me.Relations("GamesReviews")
 429         Me.relationUser_DetailsUsers = Me.Relations("User_DetailsUsers")
 430         Me.relationGamesWishlist = Me.Relations("GamesWishlist")
 431     End Sub
 432
 433     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 434      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 435     Private Sub InitClass()
 436         Me.DataSetName = "NEADataSet"
 437         Me.Prefix = ""
 438         Me.Namespace = "http://tempuri.org/NEADataSet.xsd"
 439         Me.EnforceConstraints = true
 440         Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
 441         Me.tableAchievement = New AchievementDataTable()
 442         MyBase.Tables.Add(Me.tableAchievement)
 443         Me.tableDOW = New DOWDataTable()
 444         MyBase.Tables.Add(Me.tableDOW)
 445         Me.tableFriends = New FriendsDataTable()
 446         MyBase.Tables.Add(Me.tableFriends)
 447         Me.tableGames = New GamesDataTable()
 448         MyBase.Tables.Add(Me.tableGames)
 449         Me.tablePurchased = New PurchasedDataTable()
 450         MyBase.Tables.Add(Me.tablePurchased)
 451         Me.tableReviews = New ReviewsDataTable()
 452         MyBase.Tables.Add(Me.tableReviews)
 453         Me.tableTags = New TagsDataTable()
 454         MyBase.Tables.Add(Me.tableTags)
 455         Me.tableUser_Details = New User_DetailsDataTable()
 456         MyBase.Tables.Add(Me.tableUser_Details)
 457         Me.tableUsers = New UsersDataTable()
 458         MyBase.Tables.Add(Me.tableUsers)
 459         Me.tableWishlist = New WishlistDataTable()
 460         MyBase.Tables.Add(Me.tableWishlist)
 461         Me.relationGamesAchievement = New Global.System.Data.DataRelation("GamesAchievement", New Global.System.Data.DataColumn() {Me.tableGames.GameIDColumn}, New Global.System.Data.DataColumn() {Me.tableAchievement.GameIDColumn}, false)
 462         Me.Relations.Add(Me.relationGamesAchievement)
 463         Me.relationGamesDOW = New Global.System.Data.DataRelation("GamesDOW", New Global.System.Data.DataColumn() {Me.tableGames.GameIDColumn}, New Global.System.Data.DataColumn() {Me.tableDOW.GameIDColumn}, false)
 464         Me.Relations.Add(Me.relationGamesDOW)
 465         Me.relationGamesPurchased = New Global.System.Data.DataRelation("GamesPurchased", New Global.System.Data.DataColumn() {Me.tableGames.GameIDColumn}, New Global.System.Data.DataColumn() {Me.tablePurchased.GameIDColumn}, false)
 466         Me.Relations.Add(Me.relationGamesPurchased)
 467         Me.relationGamesReviews = New Global.System.Data.DataRelation("GamesReviews", New Global.System.Data.DataColumn() {Me.tableGames.GameIDColumn}, New Global.System.Data.DataColumn() {Me.tableReviews.GameIDColumn}, false)
 468         Me.Relations.Add(Me.relationGamesReviews)
 469         Me.relationUser_DetailsUsers = New Global.System.Data.DataRelation("User_DetailsUsers", New Global.System.Data.DataColumn() {Me.tableUser_Details.UserDetailsIDColumn}, New Global.System.Data.DataColumn() {Me.tableUsers.User_DetailsIDColumn}, false)
 470         Me.Relations.Add(Me.relationUser_DetailsUsers)
 471         Me.relationGamesWishlist = New Global.System.Data.DataRelation("GamesWishlist", New Global.System.Data.DataColumn() {Me.tableGames.GameIDColumn}, New Global.System.Data.DataColumn() {Me.tableWishlist.GameIDColumn}, false)
 472         Me.Relations.Add(Me.relationGamesWishlist)
 473     End Sub
 474
 475     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 476      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 477     Private Function ShouldSerializeAchievement() As Boolean
 478         Return false
 479     End Function
 480
 481     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 482      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 483     Private Function ShouldSerializeDOW() As Boolean
 484         Return false
 485     End Function
 486
 487     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 488      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 489     Private Function ShouldSerializeFriends() As Boolean
 490         Return false
 491     End Function
 492
 493     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 494      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 495     Private Function ShouldSerializeGames() As Boolean
 496         Return false
 497     End Function
 498
 499     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 500      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 501     Private Function ShouldSerializePurchased() As Boolean
 502         Return false
 503     End Function
 504
 505     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 506      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 507     Private Function ShouldSerializeReviews() As Boolean
 508         Return false
 509     End Function
 510
 511     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 512      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 513     Private Function ShouldSerializeTags() As Boolean
 514         Return false
 515     End Function
 516
 517     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 518      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 519     Private Function ShouldSerializeUser_Details() As Boolean
 520         Return false
 521     End Function
 522
 523     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 524      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 525     Private Function ShouldSerializeUsers() As Boolean
 526         Return false
 527     End Function
 528
 529     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 530      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 531     Private Function ShouldSerializeWishlist() As Boolean
 532         Return false
 533     End Function
 534
 535     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 536      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 537     Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
 538         If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
 539             Me.InitVars
 540         End If
 541     End Sub
 542
 543     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 544      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 545     Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
 546         Dim ds As NEADataSet = New NEADataSet()
 547         Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
 548         Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
 549         Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
 550         any.Namespace = ds.Namespace
 551         sequence.Items.Add(any)
 552         type.Particle = sequence
 553         Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
 554         If xs.Contains(dsSchema.TargetNamespace) Then
 555             Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
 556             Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
 557             Try
 558                 Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
 559                 dsSchema.Write(s1)
 560                 Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
 561                 Do While schemas.MoveNext
 562                     schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
 563                     s2.SetLength(0)
 564                     schema.Write(s2)
 565                     If (s1.Length = s2.Length) Then
 566                         s1.Position = 0
 567                         s2.Position = 0
 568
 569                         Do While ((s1.Position <> s1.Length)  _
 570                                     AndAlso (s1.ReadByte = s2.ReadByte))
 571
 572
 573                         Loop
 574                         If (s1.Position = s1.Length) Then
 575                             Return type
 576                         End If
 577                     End If
 578
 579                 Loop
 580             Finally
 581                 If (Not (s1) Is Nothing) Then
 582                     s1.Close
 583                 End If
 584                 If (Not (s2) Is Nothing) Then
 585                     s2.Close
 586                 End If
 587             End Try
 588         End If
 589         xs.Add(dsSchema)
 590         Return type
 591     End Function
 592
 593     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 594     Public Delegate Sub AchievementRowChangeEventHandler(ByVal sender As Object, ByVal e As AchievementRowChangeEvent)
 595
 596     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 597     Public Delegate Sub DOWRowChangeEventHandler(ByVal sender As Object, ByVal e As DOWRowChangeEvent)
 598
 599     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 600     Public Delegate Sub FriendsRowChangeEventHandler(ByVal sender As Object, ByVal e As FriendsRowChangeEvent)
 601
 602     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 603     Public Delegate Sub GamesRowChangeEventHandler(ByVal sender As Object, ByVal e As GamesRowChangeEvent)
 604
 605     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 606     Public Delegate Sub PurchasedRowChangeEventHandler(ByVal sender As Object, ByVal e As PurchasedRowChangeEvent)
 607
 608     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 609     Public Delegate Sub ReviewsRowChangeEventHandler(ByVal sender As Object, ByVal e As ReviewsRowChangeEvent)
 610
 611     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 612     Public Delegate Sub TagsRowChangeEventHandler(ByVal sender As Object, ByVal e As TagsRowChangeEvent)
 613
 614     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 615     Public Delegate Sub User_DetailsRowChangeEventHandler(ByVal sender As Object, ByVal e As User_DetailsRowChangeEvent)
 616
 617     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 618     Public Delegate Sub UsersRowChangeEventHandler(ByVal sender As Object, ByVal e As UsersRowChangeEvent)
 619
 620     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 621     Public Delegate Sub WishlistRowChangeEventHandler(ByVal sender As Object, ByVal e As WishlistRowChangeEvent)
 622
 623     '''<summary>
 624     '''Represents the strongly named DataTable class.
 625     '''</summary>
 626     <Global.System.Serializable(),  _
 627      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
 628     Partial Public Class AchievementDataTable
 629         Inherits Global.System.Data.TypedTableBase(Of AchievementRow)
 630
 631         Private columnAchievementID As Global.System.Data.DataColumn
 632
 633         Private columnGameID As Global.System.Data.DataColumn
 634
 635         Private columnUserID As Global.System.Data.DataColumn
 636
 637         Private columnAchievment_1 As Global.System.Data.DataColumn
 638
 639         Private columnAchievment_2 As Global.System.Data.DataColumn
 640
 641         Private columnAchievment_3 As Global.System.Data.DataColumn
 642
 643         Private columnAchievment_4 As Global.System.Data.DataColumn
 644
 645         Private columnAchievment_5 As Global.System.Data.DataColumn
 646
 647         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 648          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 649         Public Sub New()
 650             MyBase.New
 651             Me.TableName = "Achievement"
 652             Me.BeginInit
 653             Me.InitClass
 654             Me.EndInit
 655         End Sub
 656
 657         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 658          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 659         Friend Sub New(ByVal table As Global.System.Data.DataTable)
 660             MyBase.New
 661             Me.TableName = table.TableName
 662             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
 663                 Me.CaseSensitive = table.CaseSensitive
 664             End If
 665             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
 666                 Me.Locale = table.Locale
 667             End If
 668             If (table.Namespace <> table.DataSet.Namespace) Then
 669                 Me.Namespace = table.Namespace
 670             End If
 671             Me.Prefix = table.Prefix
 672             Me.MinimumCapacity = table.MinimumCapacity
 673         End Sub
 674
 675         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 676          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 677         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
 678             MyBase.New(info, context)
 679             Me.InitVars
 680         End Sub
 681
 682         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 683          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 684         Public ReadOnly Property AchievementIDColumn() As Global.System.Data.DataColumn
 685             Get
 686                 Return Me.columnAchievementID
 687             End Get
 688         End Property
 689
 690         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 691          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 692         Public ReadOnly Property GameIDColumn() As Global.System.Data.DataColumn
 693             Get
 694                 Return Me.columnGameID
 695             End Get
 696         End Property
 697
 698         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 699          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 700         Public ReadOnly Property UserIDColumn() As Global.System.Data.DataColumn
 701             Get
 702                 Return Me.columnUserID
 703             End Get
 704         End Property
 705
 706         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 707          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 708         Public ReadOnly Property Achievment_1Column() As Global.System.Data.DataColumn
 709             Get
 710                 Return Me.columnAchievment_1
 711             End Get
 712         End Property
 713
 714         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 715          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 716         Public ReadOnly Property Achievment_2Column() As Global.System.Data.DataColumn
 717             Get
 718                 Return Me.columnAchievment_2
 719             End Get
 720         End Property
 721
 722         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 723          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 724         Public ReadOnly Property Achievment_3Column() As Global.System.Data.DataColumn
 725             Get
 726                 Return Me.columnAchievment_3
 727             End Get
 728         End Property
 729
 730         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 731          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 732         Public ReadOnly Property Achievment_4Column() As Global.System.Data.DataColumn
 733             Get
 734                 Return Me.columnAchievment_4
 735             End Get
 736         End Property
 737
 738         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 739          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 740         Public ReadOnly Property Achievment_5Column() As Global.System.Data.DataColumn
 741             Get
 742                 Return Me.columnAchievment_5
 743             End Get
 744         End Property
 745
 746         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 747          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
 748          Global.System.ComponentModel.Browsable(false)>  _
 749         Public ReadOnly Property Count() As Integer
 750             Get
 751                 Return Me.Rows.Count
 752             End Get
 753         End Property
 754
 755         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 756          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 757         Public Default ReadOnly Property Item(ByVal index As Integer) As AchievementRow
 758             Get
 759                 Return CType(Me.Rows(index),AchievementRow)
 760             End Get
 761         End Property
 762
 763         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 764         Public Event AchievementRowChanging As AchievementRowChangeEventHandler
 765
 766         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 767         Public Event AchievementRowChanged As AchievementRowChangeEventHandler
 768
 769         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 770         Public Event AchievementRowDeleting As AchievementRowChangeEventHandler
 771
 772         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 773         Public Event AchievementRowDeleted As AchievementRowChangeEventHandler
 774
 775         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 776          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 777         Public Overloads Sub AddAchievementRow(ByVal row As AchievementRow)
 778             Me.Rows.Add(row)
 779         End Sub
 780
 781         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 782          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 783         Public Overloads Function AddAchievementRow(ByVal parentGamesRowByGamesAchievement As GamesRow, ByVal UserID As Integer, ByVal Achievment_1 As String, ByVal Achievment_2 As String, ByVal Achievment_3 As String, ByVal Achievment_4 As String, ByVal Achievment_5 As String) As AchievementRow
 784             Dim rowAchievementRow As AchievementRow = CType(Me.NewRow,AchievementRow)
 785             Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, UserID, Achievment_1, Achievment_2, Achievment_3, Achievment_4, Achievment_5}
 786             If (Not (parentGamesRowByGamesAchievement) Is Nothing) Then
 787                 columnValuesArray(1) = parentGamesRowByGamesAchievement(0)
 788             End If
 789             rowAchievementRow.ItemArray = columnValuesArray
 790             Me.Rows.Add(rowAchievementRow)
 791             Return rowAchievementRow
 792         End Function
 793
 794         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 795          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 796         Public Function FindByAchievementID(ByVal AchievementID As Integer) As AchievementRow
 797             Return CType(Me.Rows.Find(New Object() {AchievementID}),AchievementRow)
 798         End Function
 799
 800         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 801          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 802         Public Overrides Function Clone() As Global.System.Data.DataTable
 803             Dim cln As AchievementDataTable = CType(MyBase.Clone,AchievementDataTable)
 804             cln.InitVars
 805             Return cln
 806         End Function
 807
 808         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 809          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 810         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
 811             Return New AchievementDataTable()
 812         End Function
 813
 814         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 815          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 816         Friend Sub InitVars()
 817             Me.columnAchievementID = MyBase.Columns("AchievementID")
 818             Me.columnGameID = MyBase.Columns("GameID")
 819             Me.columnUserID = MyBase.Columns("UserID")
 820             Me.columnAchievment_1 = MyBase.Columns("Achievment 1")
 821             Me.columnAchievment_2 = MyBase.Columns("Achievment 2")
 822             Me.columnAchievment_3 = MyBase.Columns("Achievment 3")
 823             Me.columnAchievment_4 = MyBase.Columns("Achievment 4")
 824             Me.columnAchievment_5 = MyBase.Columns("Achievment 5")
 825         End Sub
 826
 827         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 828          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 829         Private Sub InitClass()
 830             Me.columnAchievementID = New Global.System.Data.DataColumn("AchievementID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
 831             MyBase.Columns.Add(Me.columnAchievementID)
 832             Me.columnGameID = New Global.System.Data.DataColumn("GameID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
 833             MyBase.Columns.Add(Me.columnGameID)
 834             Me.columnUserID = New Global.System.Data.DataColumn("UserID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
 835             MyBase.Columns.Add(Me.columnUserID)
 836             Me.columnAchievment_1 = New Global.System.Data.DataColumn("Achievment 1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
 837             MyBase.Columns.Add(Me.columnAchievment_1)
 838             Me.columnAchievment_2 = New Global.System.Data.DataColumn("Achievment 2", GetType(String), Nothing, Global.System.Data.MappingType.Element)
 839             MyBase.Columns.Add(Me.columnAchievment_2)
 840             Me.columnAchievment_3 = New Global.System.Data.DataColumn("Achievment 3", GetType(String), Nothing, Global.System.Data.MappingType.Element)
 841             MyBase.Columns.Add(Me.columnAchievment_3)
 842             Me.columnAchievment_4 = New Global.System.Data.DataColumn("Achievment 4", GetType(String), Nothing, Global.System.Data.MappingType.Element)
 843             MyBase.Columns.Add(Me.columnAchievment_4)
 844             Me.columnAchievment_5 = New Global.System.Data.DataColumn("Achievment 5", GetType(String), Nothing, Global.System.Data.MappingType.Element)
 845             MyBase.Columns.Add(Me.columnAchievment_5)
 846             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnAchievementID}, true))
 847             Me.columnAchievementID.AutoIncrement = true
 848             Me.columnAchievementID.AutoIncrementSeed = -1
 849             Me.columnAchievementID.AutoIncrementStep = -1
 850             Me.columnAchievementID.AllowDBNull = false
 851             Me.columnAchievementID.Unique = true
 852             Me.columnAchievment_1.MaxLength = 536870910
 853             Me.columnAchievment_2.MaxLength = 536870910
 854             Me.columnAchievment_3.MaxLength = 536870910
 855             Me.columnAchievment_4.MaxLength = 536870910
 856             Me.columnAchievment_5.MaxLength = 536870910
 857         End Sub
 858
 859         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 860          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 861         Public Function NewAchievementRow() As AchievementRow
 862             Return CType(Me.NewRow,AchievementRow)
 863         End Function
 864
 865         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 866          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 867         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
 868             Return New AchievementRow(builder)
 869         End Function
 870
 871         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 872          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 873         Protected Overrides Function GetRowType() As Global.System.Type
 874             Return GetType(AchievementRow)
 875         End Function
 876
 877         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 878          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 879         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
 880             MyBase.OnRowChanged(e)
 881             If (Not (Me.AchievementRowChangedEvent) Is Nothing) Then
 882                 RaiseEvent AchievementRowChanged(Me, New AchievementRowChangeEvent(CType(e.Row,AchievementRow), e.Action))
 883             End If
 884         End Sub
 885
 886         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 887          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 888         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
 889             MyBase.OnRowChanging(e)
 890             If (Not (Me.AchievementRowChangingEvent) Is Nothing) Then
 891                 RaiseEvent AchievementRowChanging(Me, New AchievementRowChangeEvent(CType(e.Row,AchievementRow), e.Action))
 892             End If
 893         End Sub
 894
 895         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 896          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 897         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
 898             MyBase.OnRowDeleted(e)
 899             If (Not (Me.AchievementRowDeletedEvent) Is Nothing) Then
 900                 RaiseEvent AchievementRowDeleted(Me, New AchievementRowChangeEvent(CType(e.Row,AchievementRow), e.Action))
 901             End If
 902         End Sub
 903
 904         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 905          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 906         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
 907             MyBase.OnRowDeleting(e)
 908             If (Not (Me.AchievementRowDeletingEvent) Is Nothing) Then
 909                 RaiseEvent AchievementRowDeleting(Me, New AchievementRowChangeEvent(CType(e.Row,AchievementRow), e.Action))
 910             End If
 911         End Sub
 912
 913         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 914          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 915         Public Sub RemoveAchievementRow(ByVal row As AchievementRow)
 916             Me.Rows.Remove(row)
 917         End Sub
 918
 919         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 920          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 921         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
 922             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
 923             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
 924             Dim ds As NEADataSet = New NEADataSet()
 925             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
 926             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
 927             any1.MinOccurs = New Decimal(0)
 928             any1.MaxOccurs = Decimal.MaxValue
 929             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
 930             sequence.Items.Add(any1)
 931             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
 932             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
 933             any2.MinOccurs = New Decimal(1)
 934             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
 935             sequence.Items.Add(any2)
 936             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
 937             attribute1.Name = "namespace"
 938             attribute1.FixedValue = ds.Namespace
 939             type.Attributes.Add(attribute1)
 940             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
 941             attribute2.Name = "tableTypeName"
 942             attribute2.FixedValue = "AchievementDataTable"
 943             type.Attributes.Add(attribute2)
 944             type.Particle = sequence
 945             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
 946             If xs.Contains(dsSchema.TargetNamespace) Then
 947                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
 948                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
 949                 Try
 950                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
 951                     dsSchema.Write(s1)
 952                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
 953                     Do While schemas.MoveNext
 954                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
 955                         s2.SetLength(0)
 956                         schema.Write(s2)
 957                         If (s1.Length = s2.Length) Then
 958                             s1.Position = 0
 959                             s2.Position = 0
 960
 961                             Do While ((s1.Position <> s1.Length)  _
 962                                         AndAlso (s1.ReadByte = s2.ReadByte))
 963
 964
 965                             Loop
 966                             If (s1.Position = s1.Length) Then
 967                                 Return type
 968                             End If
 969                         End If
 970
 971                     Loop
 972                 Finally
 973                     If (Not (s1) Is Nothing) Then
 974                         s1.Close
 975                     End If
 976                     If (Not (s2) Is Nothing) Then
 977                         s2.Close
 978                     End If
 979                 End Try
 980             End If
 981             xs.Add(dsSchema)
 982             Return type
 983         End Function
 984     End Class
 985
 986     '''<summary>
 987     '''Represents the strongly named DataTable class.
 988     '''</summary>
 989     <Global.System.Serializable(),  _
 990      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
 991     Partial Public Class DOWDataTable
 992         Inherits Global.System.Data.TypedTableBase(Of DOWRow)
 993
 994         Private columnDOWID As Global.System.Data.DataColumn
 995
 996         Private columnStart As Global.System.Data.DataColumn
 997
 998         Private columnEnd As Global.System.Data.DataColumn
 999
1000         Private columnGameID As Global.System.Data.DataColumn
1001
1002         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1003          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1004         Public Sub New()
1005             MyBase.New
1006             Me.TableName = "DOW"
1007             Me.BeginInit
1008             Me.InitClass
1009             Me.EndInit
1010         End Sub
1011
1012         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1013          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1014         Friend Sub New(ByVal table As Global.System.Data.DataTable)
1015             MyBase.New
1016             Me.TableName = table.TableName
1017             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
1018                 Me.CaseSensitive = table.CaseSensitive
1019             End If
1020             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
1021                 Me.Locale = table.Locale
1022             End If
1023             If (table.Namespace <> table.DataSet.Namespace) Then
1024                 Me.Namespace = table.Namespace
1025             End If
1026             Me.Prefix = table.Prefix
1027             Me.MinimumCapacity = table.MinimumCapacity
1028         End Sub
1029
1030         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1031          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1032         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
1033             MyBase.New(info, context)
1034             Me.InitVars
1035         End Sub
1036
1037         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1038          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1039         Public ReadOnly Property DOWIDColumn() As Global.System.Data.DataColumn
1040             Get
1041                 Return Me.columnDOWID
1042             End Get
1043         End Property
1044
1045         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1046          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1047         Public ReadOnly Property StartColumn() As Global.System.Data.DataColumn
1048             Get
1049                 Return Me.columnStart
1050             End Get
1051         End Property
1052
1053         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1054          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1055         Public ReadOnly Property EndColumn() As Global.System.Data.DataColumn
1056             Get
1057                 Return Me.columnEnd
1058             End Get
1059         End Property
1060
1061         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1062          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1063         Public ReadOnly Property GameIDColumn() As Global.System.Data.DataColumn
1064             Get
1065                 Return Me.columnGameID
1066             End Get
1067         End Property
1068
1069         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1070          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
1071          Global.System.ComponentModel.Browsable(false)>  _
1072         Public ReadOnly Property Count() As Integer
1073             Get
1074                 Return Me.Rows.Count
1075             End Get
1076         End Property
1077
1078         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1079          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1080         Public Default ReadOnly Property Item(ByVal index As Integer) As DOWRow
1081             Get
1082                 Return CType(Me.Rows(index),DOWRow)
1083             End Get
1084         End Property
1085
1086         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1087         Public Event DOWRowChanging As DOWRowChangeEventHandler
1088
1089         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1090         Public Event DOWRowChanged As DOWRowChangeEventHandler
1091
1092         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1093         Public Event DOWRowDeleting As DOWRowChangeEventHandler
1094
1095         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1096         Public Event DOWRowDeleted As DOWRowChangeEventHandler
1097
1098         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1099          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1100         Public Overloads Sub AddDOWRow(ByVal row As DOWRow)
1101             Me.Rows.Add(row)
1102         End Sub
1103
1104         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1105          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1106         Public Overloads Function AddDOWRow(ByVal Start As Date, ByVal _End As Date, ByVal parentGamesRowByGamesDOW As GamesRow) As DOWRow
1107             Dim rowDOWRow As DOWRow = CType(Me.NewRow,DOWRow)
1108             Dim columnValuesArray() As Object = New Object() {Nothing, Start, _End, Nothing}
1109             If (Not (parentGamesRowByGamesDOW) Is Nothing) Then
1110                 columnValuesArray(3) = parentGamesRowByGamesDOW(0)
1111             End If
1112             rowDOWRow.ItemArray = columnValuesArray
1113             Me.Rows.Add(rowDOWRow)
1114             Return rowDOWRow
1115         End Function
1116
1117         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1118          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1119         Public Function FindByDOWID(ByVal DOWID As Integer) As DOWRow
1120             Return CType(Me.Rows.Find(New Object() {DOWID}),DOWRow)
1121         End Function
1122
1123         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1124          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1125         Public Overrides Function Clone() As Global.System.Data.DataTable
1126             Dim cln As DOWDataTable = CType(MyBase.Clone,DOWDataTable)
1127             cln.InitVars
1128             Return cln
1129         End Function
1130
1131         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1132          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1133         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
1134             Return New DOWDataTable()
1135         End Function
1136
1137         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1138          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1139         Friend Sub InitVars()
1140             Me.columnDOWID = MyBase.Columns("DOWID")
1141             Me.columnStart = MyBase.Columns("Start")
1142             Me.columnEnd = MyBase.Columns("End")
1143             Me.columnGameID = MyBase.Columns("GameID")
1144         End Sub
1145
1146         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1147          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1148         Private Sub InitClass()
1149             Me.columnDOWID = New Global.System.Data.DataColumn("DOWID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
1150             MyBase.Columns.Add(Me.columnDOWID)
1151             Me.columnStart = New Global.System.Data.DataColumn("Start", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
1152             MyBase.Columns.Add(Me.columnStart)
1153             Me.columnEnd = New Global.System.Data.DataColumn("End", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
1154             Me.columnEnd.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "EndColumn")
1155             Me.columnEnd.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnEnd")
1156             Me.columnEnd.ExtendedProperties.Add("Generator_UserColumnName", "End")
1157             MyBase.Columns.Add(Me.columnEnd)
1158             Me.columnGameID = New Global.System.Data.DataColumn("GameID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
1159             MyBase.Columns.Add(Me.columnGameID)
1160             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnDOWID}, true))
1161             Me.columnDOWID.AutoIncrement = true
1162             Me.columnDOWID.AutoIncrementSeed = -1
1163             Me.columnDOWID.AutoIncrementStep = -1
1164             Me.columnDOWID.AllowDBNull = false
1165             Me.columnDOWID.Unique = true
1166         End Sub
1167
1168         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1169          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1170         Public Function NewDOWRow() As DOWRow
1171             Return CType(Me.NewRow,DOWRow)
1172         End Function
1173
1174         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1175          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1176         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
1177             Return New DOWRow(builder)
1178         End Function
1179
1180         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1181          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1182         Protected Overrides Function GetRowType() As Global.System.Type
1183             Return GetType(DOWRow)
1184         End Function
1185
1186         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1187          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1188         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1189             MyBase.OnRowChanged(e)
1190             If (Not (Me.DOWRowChangedEvent) Is Nothing) Then
1191                 RaiseEvent DOWRowChanged(Me, New DOWRowChangeEvent(CType(e.Row,DOWRow), e.Action))
1192             End If
1193         End Sub
1194
1195         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1196          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1197         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1198             MyBase.OnRowChanging(e)
1199             If (Not (Me.DOWRowChangingEvent) Is Nothing) Then
1200                 RaiseEvent DOWRowChanging(Me, New DOWRowChangeEvent(CType(e.Row,DOWRow), e.Action))
1201             End If
1202         End Sub
1203
1204         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1205          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1206         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1207             MyBase.OnRowDeleted(e)
1208             If (Not (Me.DOWRowDeletedEvent) Is Nothing) Then
1209                 RaiseEvent DOWRowDeleted(Me, New DOWRowChangeEvent(CType(e.Row,DOWRow), e.Action))
1210             End If
1211         End Sub
1212
1213         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1214          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1215         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1216             MyBase.OnRowDeleting(e)
1217             If (Not (Me.DOWRowDeletingEvent) Is Nothing) Then
1218                 RaiseEvent DOWRowDeleting(Me, New DOWRowChangeEvent(CType(e.Row,DOWRow), e.Action))
1219             End If
1220         End Sub
1221
1222         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1223          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1224         Public Sub RemoveDOWRow(ByVal row As DOWRow)
1225             Me.Rows.Remove(row)
1226         End Sub
1227
1228         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1229          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1230         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
1231             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
1232             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
1233             Dim ds As NEADataSet = New NEADataSet()
1234             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
1235             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
1236             any1.MinOccurs = New Decimal(0)
1237             any1.MaxOccurs = Decimal.MaxValue
1238             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1239             sequence.Items.Add(any1)
1240             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
1241             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
1242             any2.MinOccurs = New Decimal(1)
1243             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1244             sequence.Items.Add(any2)
1245             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
1246             attribute1.Name = "namespace"
1247             attribute1.FixedValue = ds.Namespace
1248             type.Attributes.Add(attribute1)
1249             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
1250             attribute2.Name = "tableTypeName"
1251             attribute2.FixedValue = "DOWDataTable"
1252             type.Attributes.Add(attribute2)
1253             type.Particle = sequence
1254             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
1255             If xs.Contains(dsSchema.TargetNamespace) Then
1256                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1257                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1258                 Try
1259                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
1260                     dsSchema.Write(s1)
1261                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
1262                     Do While schemas.MoveNext
1263                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
1264                         s2.SetLength(0)
1265                         schema.Write(s2)
1266                         If (s1.Length = s2.Length) Then
1267                             s1.Position = 0
1268                             s2.Position = 0
1269
1270                             Do While ((s1.Position <> s1.Length)  _
1271                                         AndAlso (s1.ReadByte = s2.ReadByte))
1272
1273
1274                             Loop
1275                             If (s1.Position = s1.Length) Then
1276                                 Return type
1277                             End If
1278                         End If
1279
1280                     Loop
1281                 Finally
1282                     If (Not (s1) Is Nothing) Then
1283                         s1.Close
1284                     End If
1285                     If (Not (s2) Is Nothing) Then
1286                         s2.Close
1287                     End If
1288                 End Try
1289             End If
1290             xs.Add(dsSchema)
1291             Return type
1292         End Function
1293     End Class
1294
1295     '''<summary>
1296     '''Represents the strongly named DataTable class.
1297     '''</summary>
1298     <Global.System.Serializable(),  _
1299      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
1300     Partial Public Class FriendsDataTable
1301         Inherits Global.System.Data.TypedTableBase(Of FriendsRow)
1302
1303         Private columnID As Global.System.Data.DataColumn
1304
1305         Private columnFriendID As Global.System.Data.DataColumn
1306
1307         Private columnUserID As Global.System.Data.DataColumn
1308
1309         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1310          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1311         Public Sub New()
1312             MyBase.New
1313             Me.TableName = "Friends"
1314             Me.BeginInit
1315             Me.InitClass
1316             Me.EndInit
1317         End Sub
1318
1319         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1320          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1321         Friend Sub New(ByVal table As Global.System.Data.DataTable)
1322             MyBase.New
1323             Me.TableName = table.TableName
1324             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
1325                 Me.CaseSensitive = table.CaseSensitive
1326             End If
1327             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
1328                 Me.Locale = table.Locale
1329             End If
1330             If (table.Namespace <> table.DataSet.Namespace) Then
1331                 Me.Namespace = table.Namespace
1332             End If
1333             Me.Prefix = table.Prefix
1334             Me.MinimumCapacity = table.MinimumCapacity
1335         End Sub
1336
1337         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1338          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1339         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
1340             MyBase.New(info, context)
1341             Me.InitVars
1342         End Sub
1343
1344         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1345          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1346         Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn
1347             Get
1348                 Return Me.columnID
1349             End Get
1350         End Property
1351
1352         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1353          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1354         Public ReadOnly Property FriendIDColumn() As Global.System.Data.DataColumn
1355             Get
1356                 Return Me.columnFriendID
1357             End Get
1358         End Property
1359
1360         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1361          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1362         Public ReadOnly Property UserIDColumn() As Global.System.Data.DataColumn
1363             Get
1364                 Return Me.columnUserID
1365             End Get
1366         End Property
1367
1368         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1369          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
1370          Global.System.ComponentModel.Browsable(false)>  _
1371         Public ReadOnly Property Count() As Integer
1372             Get
1373                 Return Me.Rows.Count
1374             End Get
1375         End Property
1376
1377         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1378          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1379         Public Default ReadOnly Property Item(ByVal index As Integer) As FriendsRow
1380             Get
1381                 Return CType(Me.Rows(index),FriendsRow)
1382             End Get
1383         End Property
1384
1385         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1386         Public Event FriendsRowChanging As FriendsRowChangeEventHandler
1387
1388         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1389         Public Event FriendsRowChanged As FriendsRowChangeEventHandler
1390
1391         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1392         Public Event FriendsRowDeleting As FriendsRowChangeEventHandler
1393
1394         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1395         Public Event FriendsRowDeleted As FriendsRowChangeEventHandler
1396
1397         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1398          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1399         Public Overloads Sub AddFriendsRow(ByVal row As FriendsRow)
1400             Me.Rows.Add(row)
1401         End Sub
1402
1403         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1404          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1405         Public Overloads Function AddFriendsRow(ByVal FriendID As Integer, ByVal UserID As Integer) As FriendsRow
1406             Dim rowFriendsRow As FriendsRow = CType(Me.NewRow,FriendsRow)
1407             Dim columnValuesArray() As Object = New Object() {Nothing, FriendID, UserID}
1408             rowFriendsRow.ItemArray = columnValuesArray
1409             Me.Rows.Add(rowFriendsRow)
1410             Return rowFriendsRow
1411         End Function
1412
1413         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1414          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1415         Public Function FindByID(ByVal ID As Integer) As FriendsRow
1416             Return CType(Me.Rows.Find(New Object() {ID}),FriendsRow)
1417         End Function
1418
1419         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1420          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1421         Public Overrides Function Clone() As Global.System.Data.DataTable
1422             Dim cln As FriendsDataTable = CType(MyBase.Clone,FriendsDataTable)
1423             cln.InitVars
1424             Return cln
1425         End Function
1426
1427         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1428          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1429         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
1430             Return New FriendsDataTable()
1431         End Function
1432
1433         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1434          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1435         Friend Sub InitVars()
1436             Me.columnID = MyBase.Columns("ID")
1437             Me.columnFriendID = MyBase.Columns("FriendID")
1438             Me.columnUserID = MyBase.Columns("UserID")
1439         End Sub
1440
1441         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1442          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1443         Private Sub InitClass()
1444             Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
1445             MyBase.Columns.Add(Me.columnID)
1446             Me.columnFriendID = New Global.System.Data.DataColumn("FriendID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
1447             MyBase.Columns.Add(Me.columnFriendID)
1448             Me.columnUserID = New Global.System.Data.DataColumn("UserID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
1449             MyBase.Columns.Add(Me.columnUserID)
1450             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true))
1451             Me.columnID.AutoIncrement = true
1452             Me.columnID.AutoIncrementSeed = -1
1453             Me.columnID.AutoIncrementStep = -1
1454             Me.columnID.AllowDBNull = false
1455             Me.columnID.Unique = true
1456         End Sub
1457
1458         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1459          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1460         Public Function NewFriendsRow() As FriendsRow
1461             Return CType(Me.NewRow,FriendsRow)
1462         End Function
1463
1464         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1465          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1466         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
1467             Return New FriendsRow(builder)
1468         End Function
1469
1470         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1471          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1472         Protected Overrides Function GetRowType() As Global.System.Type
1473             Return GetType(FriendsRow)
1474         End Function
1475
1476         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1477          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1478         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1479             MyBase.OnRowChanged(e)
1480             If (Not (Me.FriendsRowChangedEvent) Is Nothing) Then
1481                 RaiseEvent FriendsRowChanged(Me, New FriendsRowChangeEvent(CType(e.Row,FriendsRow), e.Action))
1482             End If
1483         End Sub
1484
1485         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1486          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1487         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1488             MyBase.OnRowChanging(e)
1489             If (Not (Me.FriendsRowChangingEvent) Is Nothing) Then
1490                 RaiseEvent FriendsRowChanging(Me, New FriendsRowChangeEvent(CType(e.Row,FriendsRow), e.Action))
1491             End If
1492         End Sub
1493
1494         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1495          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1496         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1497             MyBase.OnRowDeleted(e)
1498             If (Not (Me.FriendsRowDeletedEvent) Is Nothing) Then
1499                 RaiseEvent FriendsRowDeleted(Me, New FriendsRowChangeEvent(CType(e.Row,FriendsRow), e.Action))
1500             End If
1501         End Sub
1502
1503         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1504          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1505         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1506             MyBase.OnRowDeleting(e)
1507             If (Not (Me.FriendsRowDeletingEvent) Is Nothing) Then
1508                 RaiseEvent FriendsRowDeleting(Me, New FriendsRowChangeEvent(CType(e.Row,FriendsRow), e.Action))
1509             End If
1510         End Sub
1511
1512         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1513          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1514         Public Sub RemoveFriendsRow(ByVal row As FriendsRow)
1515             Me.Rows.Remove(row)
1516         End Sub
1517
1518         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1519          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1520         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
1521             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
1522             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
1523             Dim ds As NEADataSet = New NEADataSet()
1524             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
1525             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
1526             any1.MinOccurs = New Decimal(0)
1527             any1.MaxOccurs = Decimal.MaxValue
1528             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1529             sequence.Items.Add(any1)
1530             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
1531             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
1532             any2.MinOccurs = New Decimal(1)
1533             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1534             sequence.Items.Add(any2)
1535             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
1536             attribute1.Name = "namespace"
1537             attribute1.FixedValue = ds.Namespace
1538             type.Attributes.Add(attribute1)
1539             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
1540             attribute2.Name = "tableTypeName"
1541             attribute2.FixedValue = "FriendsDataTable"
1542             type.Attributes.Add(attribute2)
1543             type.Particle = sequence
1544             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
1545             If xs.Contains(dsSchema.TargetNamespace) Then
1546                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1547                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1548                 Try
1549                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
1550                     dsSchema.Write(s1)
1551                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
1552                     Do While schemas.MoveNext
1553                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
1554                         s2.SetLength(0)
1555                         schema.Write(s2)
1556                         If (s1.Length = s2.Length) Then
1557                             s1.Position = 0
1558                             s2.Position = 0
1559
1560                             Do While ((s1.Position <> s1.Length)  _
1561                                         AndAlso (s1.ReadByte = s2.ReadByte))
1562
1563
1564                             Loop
1565                             If (s1.Position = s1.Length) Then
1566                                 Return type
1567                             End If
1568                         End If
1569
1570                     Loop
1571                 Finally
1572                     If (Not (s1) Is Nothing) Then
1573                         s1.Close
1574                     End If
1575                     If (Not (s2) Is Nothing) Then
1576                         s2.Close
1577                     End If
1578                 End Try
1579             End If
1580             xs.Add(dsSchema)
1581             Return type
1582         End Function
1583     End Class
1584
1585     '''<summary>
1586     '''Represents the strongly named DataTable class.
1587     '''</summary>
1588     <Global.System.Serializable(),  _
1589      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
1590     Partial Public Class GamesDataTable
1591         Inherits Global.System.Data.TypedTableBase(Of GamesRow)
1592
1593         Private columnGameID As Global.System.Data.DataColumn
1594
1595         Private columnName As Global.System.Data.DataColumn
1596
1597         Private columnPrice As Global.System.Data.DataColumn
1598
1599         Private columnRating As Global.System.Data.DataColumn
1600
1601         Private columnCertificate As Global.System.Data.DataColumn
1602
1603         Private columnDev As Global.System.Data.DataColumn
1604
1605         Private columnPublisher As Global.System.Data.DataColumn
1606
1607         Private columnIcon As Global.System.Data.DataColumn
1608
1609         Private columnTags As Global.System.Data.DataColumn
1610
1611         Private columnTheme_Colour As Global.System.Data.DataColumn
1612
1613         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1614          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1615         Public Sub New()
1616             MyBase.New
1617             Me.TableName = "Games"
1618             Me.BeginInit
1619             Me.InitClass
1620             Me.EndInit
1621         End Sub
1622
1623         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1624          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1625         Friend Sub New(ByVal table As Global.System.Data.DataTable)
1626             MyBase.New
1627             Me.TableName = table.TableName
1628             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
1629                 Me.CaseSensitive = table.CaseSensitive
1630             End If
1631             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
1632                 Me.Locale = table.Locale
1633             End If
1634             If (table.Namespace <> table.DataSet.Namespace) Then
1635                 Me.Namespace = table.Namespace
1636             End If
1637             Me.Prefix = table.Prefix
1638             Me.MinimumCapacity = table.MinimumCapacity
1639         End Sub
1640
1641         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1642          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1643         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
1644             MyBase.New(info, context)
1645             Me.InitVars
1646         End Sub
1647
1648         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1649          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1650         Public ReadOnly Property GameIDColumn() As Global.System.Data.DataColumn
1651             Get
1652                 Return Me.columnGameID
1653             End Get
1654         End Property
1655
1656         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1657          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1658         Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn
1659             Get
1660                 Return Me.columnName
1661             End Get
1662         End Property
1663
1664         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1665          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1666         Public ReadOnly Property PriceColumn() As Global.System.Data.DataColumn
1667             Get
1668                 Return Me.columnPrice
1669             End Get
1670         End Property
1671
1672         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1673          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1674         Public ReadOnly Property RatingColumn() As Global.System.Data.DataColumn
1675             Get
1676                 Return Me.columnRating
1677             End Get
1678         End Property
1679
1680         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1681          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1682         Public ReadOnly Property CertificateColumn() As Global.System.Data.DataColumn
1683             Get
1684                 Return Me.columnCertificate
1685             End Get
1686         End Property
1687
1688         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1689          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1690         Public ReadOnly Property DevColumn() As Global.System.Data.DataColumn
1691             Get
1692                 Return Me.columnDev
1693             End Get
1694         End Property
1695
1696         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1697          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1698         Public ReadOnly Property PublisherColumn() As Global.System.Data.DataColumn
1699             Get
1700                 Return Me.columnPublisher
1701             End Get
1702         End Property
1703
1704         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1705          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1706         Public ReadOnly Property IconColumn() As Global.System.Data.DataColumn
1707             Get
1708                 Return Me.columnIcon
1709             End Get
1710         End Property
1711
1712         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1713          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1714         Public ReadOnly Property TagsColumn() As Global.System.Data.DataColumn
1715             Get
1716                 Return Me.columnTags
1717             End Get
1718         End Property
1719
1720         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1721          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1722         Public ReadOnly Property Theme_ColourColumn() As Global.System.Data.DataColumn
1723             Get
1724                 Return Me.columnTheme_Colour
1725             End Get
1726         End Property
1727
1728         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1729          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
1730          Global.System.ComponentModel.Browsable(false)>  _
1731         Public ReadOnly Property Count() As Integer
1732             Get
1733                 Return Me.Rows.Count
1734             End Get
1735         End Property
1736
1737         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1738          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1739         Public Default ReadOnly Property Item(ByVal index As Integer) As GamesRow
1740             Get
1741                 Return CType(Me.Rows(index),GamesRow)
1742             End Get
1743         End Property
1744
1745         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1746         Public Event GamesRowChanging As GamesRowChangeEventHandler
1747
1748         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1749         Public Event GamesRowChanged As GamesRowChangeEventHandler
1750
1751         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1752         Public Event GamesRowDeleting As GamesRowChangeEventHandler
1753
1754         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1755         Public Event GamesRowDeleted As GamesRowChangeEventHandler
1756
1757         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1758          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1759         Public Overloads Sub AddGamesRow(ByVal row As GamesRow)
1760             Me.Rows.Add(row)
1761         End Sub
1762
1763         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1764          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1765         Public Overloads Function AddGamesRow(ByVal Name As String, ByVal Price As Decimal, ByVal Rating As Integer, ByVal Certificate As Integer, ByVal Dev As String, ByVal Publisher As String, ByVal Icon As String, ByVal Tags As String, ByVal Theme_Colour As Integer) As GamesRow
1766             Dim rowGamesRow As GamesRow = CType(Me.NewRow,GamesRow)
1767             Dim columnValuesArray() As Object = New Object() {Nothing, Name, Price, Rating, Certificate, Dev, Publisher, Icon, Tags, Theme_Colour}
1768             rowGamesRow.ItemArray = columnValuesArray
1769             Me.Rows.Add(rowGamesRow)
1770             Return rowGamesRow
1771         End Function
1772
1773         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1774          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1775         Public Function FindByGameID(ByVal GameID As Integer) As GamesRow
1776             Return CType(Me.Rows.Find(New Object() {GameID}),GamesRow)
1777         End Function
1778
1779         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1780          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1781         Public Overrides Function Clone() As Global.System.Data.DataTable
1782             Dim cln As GamesDataTable = CType(MyBase.Clone,GamesDataTable)
1783             cln.InitVars
1784             Return cln
1785         End Function
1786
1787         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1788          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1789         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
1790             Return New GamesDataTable()
1791         End Function
1792
1793         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1794          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1795         Friend Sub InitVars()
1796             Me.columnGameID = MyBase.Columns("GameID")
1797             Me.columnName = MyBase.Columns("Name")
1798             Me.columnPrice = MyBase.Columns("Price")
1799             Me.columnRating = MyBase.Columns("Rating")
1800             Me.columnCertificate = MyBase.Columns("Certificate")
1801             Me.columnDev = MyBase.Columns("Dev")
1802             Me.columnPublisher = MyBase.Columns("Publisher")
1803             Me.columnIcon = MyBase.Columns("Icon")
1804             Me.columnTags = MyBase.Columns("Tags")
1805             Me.columnTheme_Colour = MyBase.Columns("Theme Colour")
1806         End Sub
1807
1808         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1809          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1810         Private Sub InitClass()
1811             Me.columnGameID = New Global.System.Data.DataColumn("GameID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
1812             MyBase.Columns.Add(Me.columnGameID)
1813             Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1814             MyBase.Columns.Add(Me.columnName)
1815             Me.columnPrice = New Global.System.Data.DataColumn("Price", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
1816             MyBase.Columns.Add(Me.columnPrice)
1817             Me.columnRating = New Global.System.Data.DataColumn("Rating", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
1818             MyBase.Columns.Add(Me.columnRating)
1819             Me.columnCertificate = New Global.System.Data.DataColumn("Certificate", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
1820             MyBase.Columns.Add(Me.columnCertificate)
1821             Me.columnDev = New Global.System.Data.DataColumn("Dev", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1822             MyBase.Columns.Add(Me.columnDev)
1823             Me.columnPublisher = New Global.System.Data.DataColumn("Publisher", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1824             MyBase.Columns.Add(Me.columnPublisher)
1825             Me.columnIcon = New Global.System.Data.DataColumn("Icon", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1826             MyBase.Columns.Add(Me.columnIcon)
1827             Me.columnTags = New Global.System.Data.DataColumn("Tags", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1828             MyBase.Columns.Add(Me.columnTags)
1829             Me.columnTheme_Colour = New Global.System.Data.DataColumn("Theme Colour", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
1830             MyBase.Columns.Add(Me.columnTheme_Colour)
1831             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGameID}, true))
1832             Me.columnGameID.AutoIncrement = true
1833             Me.columnGameID.AutoIncrementSeed = -1
1834             Me.columnGameID.AutoIncrementStep = -1
1835             Me.columnGameID.AllowDBNull = false
1836             Me.columnGameID.Unique = true
1837             Me.columnName.MaxLength = 536870910
1838             Me.columnDev.MaxLength = 536870910
1839             Me.columnPublisher.MaxLength = 536870910
1840             Me.columnIcon.MaxLength = 536870910
1841             Me.columnTags.MaxLength = 536870910
1842         End Sub
1843
1844         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1845          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1846         Public Function NewGamesRow() As GamesRow
1847             Return CType(Me.NewRow,GamesRow)
1848         End Function
1849
1850         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1851          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1852         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
1853             Return New GamesRow(builder)
1854         End Function
1855
1856         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1857          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1858         Protected Overrides Function GetRowType() As Global.System.Type
1859             Return GetType(GamesRow)
1860         End Function
1861
1862         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1863          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1864         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1865             MyBase.OnRowChanged(e)
1866             If (Not (Me.GamesRowChangedEvent) Is Nothing) Then
1867                 RaiseEvent GamesRowChanged(Me, New GamesRowChangeEvent(CType(e.Row,GamesRow), e.Action))
1868             End If
1869         End Sub
1870
1871         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1872          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1873         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1874             MyBase.OnRowChanging(e)
1875             If (Not (Me.GamesRowChangingEvent) Is Nothing) Then
1876                 RaiseEvent GamesRowChanging(Me, New GamesRowChangeEvent(CType(e.Row,GamesRow), e.Action))
1877             End If
1878         End Sub
1879
1880         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1881          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1882         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1883             MyBase.OnRowDeleted(e)
1884             If (Not (Me.GamesRowDeletedEvent) Is Nothing) Then
1885                 RaiseEvent GamesRowDeleted(Me, New GamesRowChangeEvent(CType(e.Row,GamesRow), e.Action))
1886             End If
1887         End Sub
1888
1889         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1890          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1891         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1892             MyBase.OnRowDeleting(e)
1893             If (Not (Me.GamesRowDeletingEvent) Is Nothing) Then
1894                 RaiseEvent GamesRowDeleting(Me, New GamesRowChangeEvent(CType(e.Row,GamesRow), e.Action))
1895             End If
1896         End Sub
1897
1898         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1899          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1900         Public Sub RemoveGamesRow(ByVal row As GamesRow)
1901             Me.Rows.Remove(row)
1902         End Sub
1903
1904         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1905          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1906         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
1907             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
1908             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
1909             Dim ds As NEADataSet = New NEADataSet()
1910             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
1911             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
1912             any1.MinOccurs = New Decimal(0)
1913             any1.MaxOccurs = Decimal.MaxValue
1914             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1915             sequence.Items.Add(any1)
1916             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
1917             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
1918             any2.MinOccurs = New Decimal(1)
1919             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1920             sequence.Items.Add(any2)
1921             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
1922             attribute1.Name = "namespace"
1923             attribute1.FixedValue = ds.Namespace
1924             type.Attributes.Add(attribute1)
1925             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
1926             attribute2.Name = "tableTypeName"
1927             attribute2.FixedValue = "GamesDataTable"
1928             type.Attributes.Add(attribute2)
1929             type.Particle = sequence
1930             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
1931             If xs.Contains(dsSchema.TargetNamespace) Then
1932                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1933                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1934                 Try
1935                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
1936                     dsSchema.Write(s1)
1937                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
1938                     Do While schemas.MoveNext
1939                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
1940                         s2.SetLength(0)
1941                         schema.Write(s2)
1942                         If (s1.Length = s2.Length) Then
1943                             s1.Position = 0
1944                             s2.Position = 0
1945
1946                             Do While ((s1.Position <> s1.Length)  _
1947                                         AndAlso (s1.ReadByte = s2.ReadByte))
1948
1949
1950                             Loop
1951                             If (s1.Position = s1.Length) Then
1952                                 Return type
1953                             End If
1954                         End If
1955
1956                     Loop
1957                 Finally
1958                     If (Not (s1) Is Nothing) Then
1959                         s1.Close
1960                     End If
1961                     If (Not (s2) Is Nothing) Then
1962                         s2.Close
1963                     End If
1964                 End Try
1965             End If
1966             xs.Add(dsSchema)
1967             Return type
1968         End Function
1969     End Class
1970
1971     '''<summary>
1972     '''Represents the strongly named DataTable class.
1973     '''</summary>
1974     <Global.System.Serializable(),  _
1975      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
1976     Partial Public Class PurchasedDataTable
1977         Inherits Global.System.Data.TypedTableBase(Of PurchasedRow)
1978
1979         Private columnPurchaseID As Global.System.Data.DataColumn
1980
1981         Private columnUserID As Global.System.Data.DataColumn
1982
1983         Private columnGameID As Global.System.Data.DataColumn
1984
1985         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1986          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1987         Public Sub New()
1988             MyBase.New
1989             Me.TableName = "Purchased"
1990             Me.BeginInit
1991             Me.InitClass
1992             Me.EndInit
1993         End Sub
1994
1995         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
1996          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
1997         Friend Sub New(ByVal table As Global.System.Data.DataTable)
1998             MyBase.New
1999             Me.TableName = table.TableName
2000             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
2001                 Me.CaseSensitive = table.CaseSensitive
2002             End If
2003             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
2004                 Me.Locale = table.Locale
2005             End If
2006             If (table.Namespace <> table.DataSet.Namespace) Then
2007                 Me.Namespace = table.Namespace
2008             End If
2009             Me.Prefix = table.Prefix
2010             Me.MinimumCapacity = table.MinimumCapacity
2011         End Sub
2012
2013         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2014          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2015         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
2016             MyBase.New(info, context)
2017             Me.InitVars
2018         End Sub
2019
2020         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2021          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2022         Public ReadOnly Property PurchaseIDColumn() As Global.System.Data.DataColumn
2023             Get
2024                 Return Me.columnPurchaseID
2025             End Get
2026         End Property
2027
2028         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2029          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2030         Public ReadOnly Property UserIDColumn() As Global.System.Data.DataColumn
2031             Get
2032                 Return Me.columnUserID
2033             End Get
2034         End Property
2035
2036         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2037          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2038         Public ReadOnly Property GameIDColumn() As Global.System.Data.DataColumn
2039             Get
2040                 Return Me.columnGameID
2041             End Get
2042         End Property
2043
2044         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2045          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
2046          Global.System.ComponentModel.Browsable(false)>  _
2047         Public ReadOnly Property Count() As Integer
2048             Get
2049                 Return Me.Rows.Count
2050             End Get
2051         End Property
2052
2053         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2054          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2055         Public Default ReadOnly Property Item(ByVal index As Integer) As PurchasedRow
2056             Get
2057                 Return CType(Me.Rows(index),PurchasedRow)
2058             End Get
2059         End Property
2060
2061         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2062         Public Event PurchasedRowChanging As PurchasedRowChangeEventHandler
2063
2064         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2065         Public Event PurchasedRowChanged As PurchasedRowChangeEventHandler
2066
2067         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2068         Public Event PurchasedRowDeleting As PurchasedRowChangeEventHandler
2069
2070         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2071         Public Event PurchasedRowDeleted As PurchasedRowChangeEventHandler
2072
2073         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2074          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2075         Public Overloads Sub AddPurchasedRow(ByVal row As PurchasedRow)
2076             Me.Rows.Add(row)
2077         End Sub
2078
2079         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2080          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2081         Public Overloads Function AddPurchasedRow(ByVal UserID As Integer, ByVal parentGamesRowByGamesPurchased As GamesRow) As PurchasedRow
2082             Dim rowPurchasedRow As PurchasedRow = CType(Me.NewRow,PurchasedRow)
2083             Dim columnValuesArray() As Object = New Object() {Nothing, UserID, Nothing}
2084             If (Not (parentGamesRowByGamesPurchased) Is Nothing) Then
2085                 columnValuesArray(2) = parentGamesRowByGamesPurchased(0)
2086             End If
2087             rowPurchasedRow.ItemArray = columnValuesArray
2088             Me.Rows.Add(rowPurchasedRow)
2089             Return rowPurchasedRow
2090         End Function
2091
2092         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2093          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2094         Public Function FindByPurchaseID(ByVal PurchaseID As Integer) As PurchasedRow
2095             Return CType(Me.Rows.Find(New Object() {PurchaseID}),PurchasedRow)
2096         End Function
2097
2098         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2099          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2100         Public Overrides Function Clone() As Global.System.Data.DataTable
2101             Dim cln As PurchasedDataTable = CType(MyBase.Clone,PurchasedDataTable)
2102             cln.InitVars
2103             Return cln
2104         End Function
2105
2106         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2107          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2108         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
2109             Return New PurchasedDataTable()
2110         End Function
2111
2112         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2113          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2114         Friend Sub InitVars()
2115             Me.columnPurchaseID = MyBase.Columns("PurchaseID")
2116             Me.columnUserID = MyBase.Columns("UserID")
2117             Me.columnGameID = MyBase.Columns("GameID")
2118         End Sub
2119
2120         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2121          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2122         Private Sub InitClass()
2123             Me.columnPurchaseID = New Global.System.Data.DataColumn("PurchaseID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
2124             MyBase.Columns.Add(Me.columnPurchaseID)
2125             Me.columnUserID = New Global.System.Data.DataColumn("UserID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
2126             MyBase.Columns.Add(Me.columnUserID)
2127             Me.columnGameID = New Global.System.Data.DataColumn("GameID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
2128             MyBase.Columns.Add(Me.columnGameID)
2129             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnPurchaseID}, true))
2130             Me.columnPurchaseID.AutoIncrement = true
2131             Me.columnPurchaseID.AutoIncrementSeed = -1
2132             Me.columnPurchaseID.AutoIncrementStep = -1
2133             Me.columnPurchaseID.AllowDBNull = false
2134             Me.columnPurchaseID.Unique = true
2135         End Sub
2136
2137         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2138          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2139         Public Function NewPurchasedRow() As PurchasedRow
2140             Return CType(Me.NewRow,PurchasedRow)
2141         End Function
2142
2143         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2144          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2145         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
2146             Return New PurchasedRow(builder)
2147         End Function
2148
2149         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2150          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2151         Protected Overrides Function GetRowType() As Global.System.Type
2152             Return GetType(PurchasedRow)
2153         End Function
2154
2155         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2156          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2157         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2158             MyBase.OnRowChanged(e)
2159             If (Not (Me.PurchasedRowChangedEvent) Is Nothing) Then
2160                 RaiseEvent PurchasedRowChanged(Me, New PurchasedRowChangeEvent(CType(e.Row,PurchasedRow), e.Action))
2161             End If
2162         End Sub
2163
2164         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2165          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2166         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2167             MyBase.OnRowChanging(e)
2168             If (Not (Me.PurchasedRowChangingEvent) Is Nothing) Then
2169                 RaiseEvent PurchasedRowChanging(Me, New PurchasedRowChangeEvent(CType(e.Row,PurchasedRow), e.Action))
2170             End If
2171         End Sub
2172
2173         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2174          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2175         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2176             MyBase.OnRowDeleted(e)
2177             If (Not (Me.PurchasedRowDeletedEvent) Is Nothing) Then
2178                 RaiseEvent PurchasedRowDeleted(Me, New PurchasedRowChangeEvent(CType(e.Row,PurchasedRow), e.Action))
2179             End If
2180         End Sub
2181
2182         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2183          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2184         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2185             MyBase.OnRowDeleting(e)
2186             If (Not (Me.PurchasedRowDeletingEvent) Is Nothing) Then
2187                 RaiseEvent PurchasedRowDeleting(Me, New PurchasedRowChangeEvent(CType(e.Row,PurchasedRow), e.Action))
2188             End If
2189         End Sub
2190
2191         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2192          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2193         Public Sub RemovePurchasedRow(ByVal row As PurchasedRow)
2194             Me.Rows.Remove(row)
2195         End Sub
2196
2197         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2198          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2199         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
2200             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
2201             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
2202             Dim ds As NEADataSet = New NEADataSet()
2203             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
2204             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
2205             any1.MinOccurs = New Decimal(0)
2206             any1.MaxOccurs = Decimal.MaxValue
2207             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2208             sequence.Items.Add(any1)
2209             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
2210             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
2211             any2.MinOccurs = New Decimal(1)
2212             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2213             sequence.Items.Add(any2)
2214             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
2215             attribute1.Name = "namespace"
2216             attribute1.FixedValue = ds.Namespace
2217             type.Attributes.Add(attribute1)
2218             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
2219             attribute2.Name = "tableTypeName"
2220             attribute2.FixedValue = "PurchasedDataTable"
2221             type.Attributes.Add(attribute2)
2222             type.Particle = sequence
2223             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
2224             If xs.Contains(dsSchema.TargetNamespace) Then
2225                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
2226                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
2227                 Try
2228                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
2229                     dsSchema.Write(s1)
2230                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
2231                     Do While schemas.MoveNext
2232                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
2233                         s2.SetLength(0)
2234                         schema.Write(s2)
2235                         If (s1.Length = s2.Length) Then
2236                             s1.Position = 0
2237                             s2.Position = 0
2238
2239                             Do While ((s1.Position <> s1.Length)  _
2240                                         AndAlso (s1.ReadByte = s2.ReadByte))
2241
2242
2243                             Loop
2244                             If (s1.Position = s1.Length) Then
2245                                 Return type
2246                             End If
2247                         End If
2248
2249                     Loop
2250                 Finally
2251                     If (Not (s1) Is Nothing) Then
2252                         s1.Close
2253                     End If
2254                     If (Not (s2) Is Nothing) Then
2255                         s2.Close
2256                     End If
2257                 End Try
2258             End If
2259             xs.Add(dsSchema)
2260             Return type
2261         End Function
2262     End Class
2263
2264     '''<summary>
2265     '''Represents the strongly named DataTable class.
2266     '''</summary>
2267     <Global.System.Serializable(),  _
2268      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
2269     Partial Public Class ReviewsDataTable
2270         Inherits Global.System.Data.TypedTableBase(Of ReviewsRow)
2271
2272         Private columnReviewID As Global.System.Data.DataColumn
2273
2274         Private columnGameID As Global.System.Data.DataColumn
2275
2276         Private columnReview As Global.System.Data.DataColumn
2277
2278         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2279          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2280         Public Sub New()
2281             MyBase.New
2282             Me.TableName = "Reviews"
2283             Me.BeginInit
2284             Me.InitClass
2285             Me.EndInit
2286         End Sub
2287
2288         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2289          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2290         Friend Sub New(ByVal table As Global.System.Data.DataTable)
2291             MyBase.New
2292             Me.TableName = table.TableName
2293             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
2294                 Me.CaseSensitive = table.CaseSensitive
2295             End If
2296             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
2297                 Me.Locale = table.Locale
2298             End If
2299             If (table.Namespace <> table.DataSet.Namespace) Then
2300                 Me.Namespace = table.Namespace
2301             End If
2302             Me.Prefix = table.Prefix
2303             Me.MinimumCapacity = table.MinimumCapacity
2304         End Sub
2305
2306         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2307          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2308         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
2309             MyBase.New(info, context)
2310             Me.InitVars
2311         End Sub
2312
2313         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2314          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2315         Public ReadOnly Property ReviewIDColumn() As Global.System.Data.DataColumn
2316             Get
2317                 Return Me.columnReviewID
2318             End Get
2319         End Property
2320
2321         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2322          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2323         Public ReadOnly Property GameIDColumn() As Global.System.Data.DataColumn
2324             Get
2325                 Return Me.columnGameID
2326             End Get
2327         End Property
2328
2329         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2330          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2331         Public ReadOnly Property ReviewColumn() As Global.System.Data.DataColumn
2332             Get
2333                 Return Me.columnReview
2334             End Get
2335         End Property
2336
2337         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2338          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
2339          Global.System.ComponentModel.Browsable(false)>  _
2340         Public ReadOnly Property Count() As Integer
2341             Get
2342                 Return Me.Rows.Count
2343             End Get
2344         End Property
2345
2346         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2347          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2348         Public Default ReadOnly Property Item(ByVal index As Integer) As ReviewsRow
2349             Get
2350                 Return CType(Me.Rows(index),ReviewsRow)
2351             End Get
2352         End Property
2353
2354         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2355         Public Event ReviewsRowChanging As ReviewsRowChangeEventHandler
2356
2357         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2358         Public Event ReviewsRowChanged As ReviewsRowChangeEventHandler
2359
2360         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2361         Public Event ReviewsRowDeleting As ReviewsRowChangeEventHandler
2362
2363         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2364         Public Event ReviewsRowDeleted As ReviewsRowChangeEventHandler
2365
2366         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2367          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2368         Public Overloads Sub AddReviewsRow(ByVal row As ReviewsRow)
2369             Me.Rows.Add(row)
2370         End Sub
2371
2372         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2373          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2374         Public Overloads Function AddReviewsRow(ByVal parentGamesRowByGamesReviews As GamesRow, ByVal Review As String) As ReviewsRow
2375             Dim rowReviewsRow As ReviewsRow = CType(Me.NewRow,ReviewsRow)
2376             Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Review}
2377             If (Not (parentGamesRowByGamesReviews) Is Nothing) Then
2378                 columnValuesArray(1) = parentGamesRowByGamesReviews(0)
2379             End If
2380             rowReviewsRow.ItemArray = columnValuesArray
2381             Me.Rows.Add(rowReviewsRow)
2382             Return rowReviewsRow
2383         End Function
2384
2385         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2386          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2387         Public Function FindByReviewID(ByVal ReviewID As Integer) As ReviewsRow
2388             Return CType(Me.Rows.Find(New Object() {ReviewID}),ReviewsRow)
2389         End Function
2390
2391         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2392          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2393         Public Overrides Function Clone() As Global.System.Data.DataTable
2394             Dim cln As ReviewsDataTable = CType(MyBase.Clone,ReviewsDataTable)
2395             cln.InitVars
2396             Return cln
2397         End Function
2398
2399         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2400          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2401         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
2402             Return New ReviewsDataTable()
2403         End Function
2404
2405         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2406          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2407         Friend Sub InitVars()
2408             Me.columnReviewID = MyBase.Columns("ReviewID")
2409             Me.columnGameID = MyBase.Columns("GameID")
2410             Me.columnReview = MyBase.Columns("Review")
2411         End Sub
2412
2413         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2414          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2415         Private Sub InitClass()
2416             Me.columnReviewID = New Global.System.Data.DataColumn("ReviewID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
2417             MyBase.Columns.Add(Me.columnReviewID)
2418             Me.columnGameID = New Global.System.Data.DataColumn("GameID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
2419             MyBase.Columns.Add(Me.columnGameID)
2420             Me.columnReview = New Global.System.Data.DataColumn("Review", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2421             MyBase.Columns.Add(Me.columnReview)
2422             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnReviewID}, true))
2423             Me.columnReviewID.AutoIncrement = true
2424             Me.columnReviewID.AutoIncrementSeed = -1
2425             Me.columnReviewID.AutoIncrementStep = -1
2426             Me.columnReviewID.AllowDBNull = false
2427             Me.columnReviewID.Unique = true
2428             Me.columnReview.MaxLength = 536870910
2429         End Sub
2430
2431         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2432          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2433         Public Function NewReviewsRow() As ReviewsRow
2434             Return CType(Me.NewRow,ReviewsRow)
2435         End Function
2436
2437         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2438          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2439         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
2440             Return New ReviewsRow(builder)
2441         End Function
2442
2443         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2444          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2445         Protected Overrides Function GetRowType() As Global.System.Type
2446             Return GetType(ReviewsRow)
2447         End Function
2448
2449         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2450          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2451         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2452             MyBase.OnRowChanged(e)
2453             If (Not (Me.ReviewsRowChangedEvent) Is Nothing) Then
2454                 RaiseEvent ReviewsRowChanged(Me, New ReviewsRowChangeEvent(CType(e.Row,ReviewsRow), e.Action))
2455             End If
2456         End Sub
2457
2458         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2459          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2460         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2461             MyBase.OnRowChanging(e)
2462             If (Not (Me.ReviewsRowChangingEvent) Is Nothing) Then
2463                 RaiseEvent ReviewsRowChanging(Me, New ReviewsRowChangeEvent(CType(e.Row,ReviewsRow), e.Action))
2464             End If
2465         End Sub
2466
2467         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2468          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2469         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2470             MyBase.OnRowDeleted(e)
2471             If (Not (Me.ReviewsRowDeletedEvent) Is Nothing) Then
2472                 RaiseEvent ReviewsRowDeleted(Me, New ReviewsRowChangeEvent(CType(e.Row,ReviewsRow), e.Action))
2473             End If
2474         End Sub
2475
2476         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2477          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2478         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2479             MyBase.OnRowDeleting(e)
2480             If (Not (Me.ReviewsRowDeletingEvent) Is Nothing) Then
2481                 RaiseEvent ReviewsRowDeleting(Me, New ReviewsRowChangeEvent(CType(e.Row,ReviewsRow), e.Action))
2482             End If
2483         End Sub
2484
2485         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2486          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2487         Public Sub RemoveReviewsRow(ByVal row As ReviewsRow)
2488             Me.Rows.Remove(row)
2489         End Sub
2490
2491         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2492          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2493         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
2494             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
2495             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
2496             Dim ds As NEADataSet = New NEADataSet()
2497             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
2498             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
2499             any1.MinOccurs = New Decimal(0)
2500             any1.MaxOccurs = Decimal.MaxValue
2501             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2502             sequence.Items.Add(any1)
2503             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
2504             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
2505             any2.MinOccurs = New Decimal(1)
2506             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2507             sequence.Items.Add(any2)
2508             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
2509             attribute1.Name = "namespace"
2510             attribute1.FixedValue = ds.Namespace
2511             type.Attributes.Add(attribute1)
2512             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
2513             attribute2.Name = "tableTypeName"
2514             attribute2.FixedValue = "ReviewsDataTable"
2515             type.Attributes.Add(attribute2)
2516             type.Particle = sequence
2517             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
2518             If xs.Contains(dsSchema.TargetNamespace) Then
2519                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
2520                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
2521                 Try
2522                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
2523                     dsSchema.Write(s1)
2524                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
2525                     Do While schemas.MoveNext
2526                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
2527                         s2.SetLength(0)
2528                         schema.Write(s2)
2529                         If (s1.Length = s2.Length) Then
2530                             s1.Position = 0
2531                             s2.Position = 0
2532
2533                             Do While ((s1.Position <> s1.Length)  _
2534                                         AndAlso (s1.ReadByte = s2.ReadByte))
2535
2536
2537                             Loop
2538                             If (s1.Position = s1.Length) Then
2539                                 Return type
2540                             End If
2541                         End If
2542
2543                     Loop
2544                 Finally
2545                     If (Not (s1) Is Nothing) Then
2546                         s1.Close
2547                     End If
2548                     If (Not (s2) Is Nothing) Then
2549                         s2.Close
2550                     End If
2551                 End Try
2552             End If
2553             xs.Add(dsSchema)
2554             Return type
2555         End Function
2556     End Class
2557
2558     '''<summary>
2559     '''Represents the strongly named DataTable class.
2560     '''</summary>
2561     <Global.System.Serializable(),  _
2562      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
2563     Partial Public Class TagsDataTable
2564         Inherits Global.System.Data.TypedTableBase(Of TagsRow)
2565
2566         Private columnID As Global.System.Data.DataColumn
2567
2568         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2569          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2570         Public Sub New()
2571             MyBase.New
2572             Me.TableName = "Tags"
2573             Me.BeginInit
2574             Me.InitClass
2575             Me.EndInit
2576         End Sub
2577
2578         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2579          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2580         Friend Sub New(ByVal table As Global.System.Data.DataTable)
2581             MyBase.New
2582             Me.TableName = table.TableName
2583             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
2584                 Me.CaseSensitive = table.CaseSensitive
2585             End If
2586             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
2587                 Me.Locale = table.Locale
2588             End If
2589             If (table.Namespace <> table.DataSet.Namespace) Then
2590                 Me.Namespace = table.Namespace
2591             End If
2592             Me.Prefix = table.Prefix
2593             Me.MinimumCapacity = table.MinimumCapacity
2594         End Sub
2595
2596         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2597          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2598         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
2599             MyBase.New(info, context)
2600             Me.InitVars
2601         End Sub
2602
2603         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2604          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2605         Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn
2606             Get
2607                 Return Me.columnID
2608             End Get
2609         End Property
2610
2611         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2612          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
2613          Global.System.ComponentModel.Browsable(false)>  _
2614         Public ReadOnly Property Count() As Integer
2615             Get
2616                 Return Me.Rows.Count
2617             End Get
2618         End Property
2619
2620         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2621          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2622         Public Default ReadOnly Property Item(ByVal index As Integer) As TagsRow
2623             Get
2624                 Return CType(Me.Rows(index),TagsRow)
2625             End Get
2626         End Property
2627
2628         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2629         Public Event TagsRowChanging As TagsRowChangeEventHandler
2630
2631         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2632         Public Event TagsRowChanged As TagsRowChangeEventHandler
2633
2634         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2635         Public Event TagsRowDeleting As TagsRowChangeEventHandler
2636
2637         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2638         Public Event TagsRowDeleted As TagsRowChangeEventHandler
2639
2640         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2641          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2642         Public Overloads Sub AddTagsRow(ByVal row As TagsRow)
2643             Me.Rows.Add(row)
2644         End Sub
2645
2646         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2647          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2648         Public Overloads Function AddTagsRow() As TagsRow
2649             Dim rowTagsRow As TagsRow = CType(Me.NewRow,TagsRow)
2650             Dim columnValuesArray() As Object = New Object() {Nothing}
2651             rowTagsRow.ItemArray = columnValuesArray
2652             Me.Rows.Add(rowTagsRow)
2653             Return rowTagsRow
2654         End Function
2655
2656         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2657          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2658         Public Function FindByID(ByVal ID As Integer) As TagsRow
2659             Return CType(Me.Rows.Find(New Object() {ID}),TagsRow)
2660         End Function
2661
2662         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2663          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2664         Public Overrides Function Clone() As Global.System.Data.DataTable
2665             Dim cln As TagsDataTable = CType(MyBase.Clone,TagsDataTable)
2666             cln.InitVars
2667             Return cln
2668         End Function
2669
2670         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2671          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2672         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
2673             Return New TagsDataTable()
2674         End Function
2675
2676         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2677          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2678         Friend Sub InitVars()
2679             Me.columnID = MyBase.Columns("ID")
2680         End Sub
2681
2682         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2683          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2684         Private Sub InitClass()
2685             Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
2686             MyBase.Columns.Add(Me.columnID)
2687             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true))
2688             Me.columnID.AutoIncrement = true
2689             Me.columnID.AutoIncrementSeed = -1
2690             Me.columnID.AutoIncrementStep = -1
2691             Me.columnID.AllowDBNull = false
2692             Me.columnID.Unique = true
2693         End Sub
2694
2695         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2696          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2697         Public Function NewTagsRow() As TagsRow
2698             Return CType(Me.NewRow,TagsRow)
2699         End Function
2700
2701         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2702          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2703         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
2704             Return New TagsRow(builder)
2705         End Function
2706
2707         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2708          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2709         Protected Overrides Function GetRowType() As Global.System.Type
2710             Return GetType(TagsRow)
2711         End Function
2712
2713         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2714          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2715         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2716             MyBase.OnRowChanged(e)
2717             If (Not (Me.TagsRowChangedEvent) Is Nothing) Then
2718                 RaiseEvent TagsRowChanged(Me, New TagsRowChangeEvent(CType(e.Row,TagsRow), e.Action))
2719             End If
2720         End Sub
2721
2722         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2723          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2724         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2725             MyBase.OnRowChanging(e)
2726             If (Not (Me.TagsRowChangingEvent) Is Nothing) Then
2727                 RaiseEvent TagsRowChanging(Me, New TagsRowChangeEvent(CType(e.Row,TagsRow), e.Action))
2728             End If
2729         End Sub
2730
2731         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2732          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2733         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2734             MyBase.OnRowDeleted(e)
2735             If (Not (Me.TagsRowDeletedEvent) Is Nothing) Then
2736                 RaiseEvent TagsRowDeleted(Me, New TagsRowChangeEvent(CType(e.Row,TagsRow), e.Action))
2737             End If
2738         End Sub
2739
2740         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2741          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2742         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2743             MyBase.OnRowDeleting(e)
2744             If (Not (Me.TagsRowDeletingEvent) Is Nothing) Then
2745                 RaiseEvent TagsRowDeleting(Me, New TagsRowChangeEvent(CType(e.Row,TagsRow), e.Action))
2746             End If
2747         End Sub
2748
2749         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2750          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2751         Public Sub RemoveTagsRow(ByVal row As TagsRow)
2752             Me.Rows.Remove(row)
2753         End Sub
2754
2755         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2756          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2757         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
2758             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
2759             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
2760             Dim ds As NEADataSet = New NEADataSet()
2761             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
2762             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
2763             any1.MinOccurs = New Decimal(0)
2764             any1.MaxOccurs = Decimal.MaxValue
2765             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2766             sequence.Items.Add(any1)
2767             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
2768             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
2769             any2.MinOccurs = New Decimal(1)
2770             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2771             sequence.Items.Add(any2)
2772             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
2773             attribute1.Name = "namespace"
2774             attribute1.FixedValue = ds.Namespace
2775             type.Attributes.Add(attribute1)
2776             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
2777             attribute2.Name = "tableTypeName"
2778             attribute2.FixedValue = "TagsDataTable"
2779             type.Attributes.Add(attribute2)
2780             type.Particle = sequence
2781             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
2782             If xs.Contains(dsSchema.TargetNamespace) Then
2783                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
2784                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
2785                 Try
2786                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
2787                     dsSchema.Write(s1)
2788                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
2789                     Do While schemas.MoveNext
2790                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
2791                         s2.SetLength(0)
2792                         schema.Write(s2)
2793                         If (s1.Length = s2.Length) Then
2794                             s1.Position = 0
2795                             s2.Position = 0
2796
2797                             Do While ((s1.Position <> s1.Length)  _
2798                                         AndAlso (s1.ReadByte = s2.ReadByte))
2799
2800
2801                             Loop
2802                             If (s1.Position = s1.Length) Then
2803                                 Return type
2804                             End If
2805                         End If
2806
2807                     Loop
2808                 Finally
2809                     If (Not (s1) Is Nothing) Then
2810                         s1.Close
2811                     End If
2812                     If (Not (s2) Is Nothing) Then
2813                         s2.Close
2814                     End If
2815                 End Try
2816             End If
2817             xs.Add(dsSchema)
2818             Return type
2819         End Function
2820     End Class
2821
2822     '''<summary>
2823     '''Represents the strongly named DataTable class.
2824     '''</summary>
2825     <Global.System.Serializable(),  _
2826      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
2827     Partial Public Class User_DetailsDataTable
2828         Inherits Global.System.Data.TypedTableBase(Of User_DetailsRow)
2829
2830         Private columnUserDetailsID As Global.System.Data.DataColumn
2831
2832         Private columnFirstName As Global.System.Data.DataColumn
2833
2834         Private columnLastName As Global.System.Data.DataColumn
2835
2836         Private columnAddressLine1 As Global.System.Data.DataColumn
2837
2838         Private columnTown As Global.System.Data.DataColumn
2839
2840         Private columnPostcode As Global.System.Data.DataColumn
2841
2842         Private columnCardNumber As Global.System.Data.DataColumn
2843
2844         Private columnCVC As Global.System.Data.DataColumn
2845
2846         Private columnIGN As Global.System.Data.DataColumn
2847
2848         Private columnEmail As Global.System.Data.DataColumn
2849
2850         Private columnProfilePic As Global.System.Data.DataColumn
2851
2852         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2853          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2854         Public Sub New()
2855             MyBase.New
2856             Me.TableName = "User_Details"
2857             Me.BeginInit
2858             Me.InitClass
2859             Me.EndInit
2860         End Sub
2861
2862         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2863          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2864         Friend Sub New(ByVal table As Global.System.Data.DataTable)
2865             MyBase.New
2866             Me.TableName = table.TableName
2867             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
2868                 Me.CaseSensitive = table.CaseSensitive
2869             End If
2870             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
2871                 Me.Locale = table.Locale
2872             End If
2873             If (table.Namespace <> table.DataSet.Namespace) Then
2874                 Me.Namespace = table.Namespace
2875             End If
2876             Me.Prefix = table.Prefix
2877             Me.MinimumCapacity = table.MinimumCapacity
2878         End Sub
2879
2880         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2881          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2882         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
2883             MyBase.New(info, context)
2884             Me.InitVars
2885         End Sub
2886
2887         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2888          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2889         Public ReadOnly Property UserDetailsIDColumn() As Global.System.Data.DataColumn
2890             Get
2891                 Return Me.columnUserDetailsID
2892             End Get
2893         End Property
2894
2895         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2896          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2897         Public ReadOnly Property FirstNameColumn() As Global.System.Data.DataColumn
2898             Get
2899                 Return Me.columnFirstName
2900             End Get
2901         End Property
2902
2903         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2904          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2905         Public ReadOnly Property LastNameColumn() As Global.System.Data.DataColumn
2906             Get
2907                 Return Me.columnLastName
2908             End Get
2909         End Property
2910
2911         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2912          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2913         Public ReadOnly Property AddressLine1Column() As Global.System.Data.DataColumn
2914             Get
2915                 Return Me.columnAddressLine1
2916             End Get
2917         End Property
2918
2919         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2920          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2921         Public ReadOnly Property TownColumn() As Global.System.Data.DataColumn
2922             Get
2923                 Return Me.columnTown
2924             End Get
2925         End Property
2926
2927         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2928          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2929         Public ReadOnly Property PostcodeColumn() As Global.System.Data.DataColumn
2930             Get
2931                 Return Me.columnPostcode
2932             End Get
2933         End Property
2934
2935         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2936          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2937         Public ReadOnly Property CardNumberColumn() As Global.System.Data.DataColumn
2938             Get
2939                 Return Me.columnCardNumber
2940             End Get
2941         End Property
2942
2943         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2944          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2945         Public ReadOnly Property CVCColumn() As Global.System.Data.DataColumn
2946             Get
2947                 Return Me.columnCVC
2948             End Get
2949         End Property
2950
2951         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2952          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2953         Public ReadOnly Property IGNColumn() As Global.System.Data.DataColumn
2954             Get
2955                 Return Me.columnIGN
2956             End Get
2957         End Property
2958
2959         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2960          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2961         Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn
2962             Get
2963                 Return Me.columnEmail
2964             End Get
2965         End Property
2966
2967         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2968          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2969         Public ReadOnly Property ProfilePicColumn() As Global.System.Data.DataColumn
2970             Get
2971                 Return Me.columnProfilePic
2972             End Get
2973         End Property
2974
2975         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2976          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
2977          Global.System.ComponentModel.Browsable(false)>  _
2978         Public ReadOnly Property Count() As Integer
2979             Get
2980                 Return Me.Rows.Count
2981             End Get
2982         End Property
2983
2984         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
2985          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2986         Public Default ReadOnly Property Item(ByVal index As Integer) As User_DetailsRow
2987             Get
2988                 Return CType(Me.Rows(index),User_DetailsRow)
2989             End Get
2990         End Property
2991
2992         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2993         Public Event User_DetailsRowChanging As User_DetailsRowChangeEventHandler
2994
2995         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2996         Public Event User_DetailsRowChanged As User_DetailsRowChangeEventHandler
2997
2998         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
2999         Public Event User_DetailsRowDeleting As User_DetailsRowChangeEventHandler
3000
3001         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3002         Public Event User_DetailsRowDeleted As User_DetailsRowChangeEventHandler
3003
3004         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3005          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3006         Public Overloads Sub AddUser_DetailsRow(ByVal row As User_DetailsRow)
3007             Me.Rows.Add(row)
3008         End Sub
3009
3010         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3011          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3012         Public Overloads Function AddUser_DetailsRow(ByVal FirstName As String, ByVal LastName As String, ByVal AddressLine1 As String, ByVal Town As String, ByVal Postcode As String, ByVal CardNumber As Integer, ByVal CVC As Integer, ByVal IGN As String, ByVal Email As String, ByVal ProfilePic() As Byte) As User_DetailsRow
3013             Dim rowUser_DetailsRow As User_DetailsRow = CType(Me.NewRow,User_DetailsRow)
3014             Dim columnValuesArray() As Object = New Object() {Nothing, FirstName, LastName, AddressLine1, Town, Postcode, CardNumber, CVC, IGN, Email, ProfilePic}
3015             rowUser_DetailsRow.ItemArray = columnValuesArray
3016             Me.Rows.Add(rowUser_DetailsRow)
3017             Return rowUser_DetailsRow
3018         End Function
3019
3020         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3021          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3022         Public Function FindByUserDetailsID(ByVal UserDetailsID As Integer) As User_DetailsRow
3023             Return CType(Me.Rows.Find(New Object() {UserDetailsID}),User_DetailsRow)
3024         End Function
3025
3026         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3027          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3028         Public Overrides Function Clone() As Global.System.Data.DataTable
3029             Dim cln As User_DetailsDataTable = CType(MyBase.Clone,User_DetailsDataTable)
3030             cln.InitVars
3031             Return cln
3032         End Function
3033
3034         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3035          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3036         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
3037             Return New User_DetailsDataTable()
3038         End Function
3039
3040         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3041          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3042         Friend Sub InitVars()
3043             Me.columnUserDetailsID = MyBase.Columns("UserDetailsID")
3044             Me.columnFirstName = MyBase.Columns("FirstName")
3045             Me.columnLastName = MyBase.Columns("LastName")
3046             Me.columnAddressLine1 = MyBase.Columns("AddressLine1")
3047             Me.columnTown = MyBase.Columns("Town")
3048             Me.columnPostcode = MyBase.Columns("Postcode")
3049             Me.columnCardNumber = MyBase.Columns("CardNumber")
3050             Me.columnCVC = MyBase.Columns("CVC")
3051             Me.columnIGN = MyBase.Columns("IGN")
3052             Me.columnEmail = MyBase.Columns("Email")
3053             Me.columnProfilePic = MyBase.Columns("ProfilePic")
3054         End Sub
3055
3056         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3057          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3058         Private Sub InitClass()
3059             Me.columnUserDetailsID = New Global.System.Data.DataColumn("UserDetailsID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3060             MyBase.Columns.Add(Me.columnUserDetailsID)
3061             Me.columnFirstName = New Global.System.Data.DataColumn("FirstName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3062             MyBase.Columns.Add(Me.columnFirstName)
3063             Me.columnLastName = New Global.System.Data.DataColumn("LastName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3064             MyBase.Columns.Add(Me.columnLastName)
3065             Me.columnAddressLine1 = New Global.System.Data.DataColumn("AddressLine1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3066             MyBase.Columns.Add(Me.columnAddressLine1)
3067             Me.columnTown = New Global.System.Data.DataColumn("Town", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3068             MyBase.Columns.Add(Me.columnTown)
3069             Me.columnPostcode = New Global.System.Data.DataColumn("Postcode", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3070             MyBase.Columns.Add(Me.columnPostcode)
3071             Me.columnCardNumber = New Global.System.Data.DataColumn("CardNumber", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3072             MyBase.Columns.Add(Me.columnCardNumber)
3073             Me.columnCVC = New Global.System.Data.DataColumn("CVC", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3074             MyBase.Columns.Add(Me.columnCVC)
3075             Me.columnIGN = New Global.System.Data.DataColumn("IGN", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3076             MyBase.Columns.Add(Me.columnIGN)
3077             Me.columnEmail = New Global.System.Data.DataColumn("Email", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3078             MyBase.Columns.Add(Me.columnEmail)
3079             Me.columnProfilePic = New Global.System.Data.DataColumn("ProfilePic", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element)
3080             MyBase.Columns.Add(Me.columnProfilePic)
3081             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnUserDetailsID}, true))
3082             Me.columnUserDetailsID.AutoIncrement = true
3083             Me.columnUserDetailsID.AutoIncrementSeed = -1
3084             Me.columnUserDetailsID.AutoIncrementStep = -1
3085             Me.columnUserDetailsID.AllowDBNull = false
3086             Me.columnUserDetailsID.Unique = true
3087             Me.columnFirstName.MaxLength = 536870910
3088             Me.columnLastName.MaxLength = 536870910
3089             Me.columnAddressLine1.MaxLength = 536870910
3090             Me.columnTown.MaxLength = 255
3091             Me.columnPostcode.MaxLength = 536870910
3092             Me.columnIGN.MaxLength = 536870910
3093             Me.columnEmail.MaxLength = 536870910
3094         End Sub
3095
3096         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3097          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3098         Public Function NewUser_DetailsRow() As User_DetailsRow
3099             Return CType(Me.NewRow,User_DetailsRow)
3100         End Function
3101
3102         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3103          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3104         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
3105             Return New User_DetailsRow(builder)
3106         End Function
3107
3108         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3109          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3110         Protected Overrides Function GetRowType() As Global.System.Type
3111             Return GetType(User_DetailsRow)
3112         End Function
3113
3114         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3115          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3116         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3117             MyBase.OnRowChanged(e)
3118             If (Not (Me.User_DetailsRowChangedEvent) Is Nothing) Then
3119                 RaiseEvent User_DetailsRowChanged(Me, New User_DetailsRowChangeEvent(CType(e.Row,User_DetailsRow), e.Action))
3120             End If
3121         End Sub
3122
3123         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3124          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3125         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3126             MyBase.OnRowChanging(e)
3127             If (Not (Me.User_DetailsRowChangingEvent) Is Nothing) Then
3128                 RaiseEvent User_DetailsRowChanging(Me, New User_DetailsRowChangeEvent(CType(e.Row,User_DetailsRow), e.Action))
3129             End If
3130         End Sub
3131
3132         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3133          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3134         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3135             MyBase.OnRowDeleted(e)
3136             If (Not (Me.User_DetailsRowDeletedEvent) Is Nothing) Then
3137                 RaiseEvent User_DetailsRowDeleted(Me, New User_DetailsRowChangeEvent(CType(e.Row,User_DetailsRow), e.Action))
3138             End If
3139         End Sub
3140
3141         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3142          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3143         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3144             MyBase.OnRowDeleting(e)
3145             If (Not (Me.User_DetailsRowDeletingEvent) Is Nothing) Then
3146                 RaiseEvent User_DetailsRowDeleting(Me, New User_DetailsRowChangeEvent(CType(e.Row,User_DetailsRow), e.Action))
3147             End If
3148         End Sub
3149
3150         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3151          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3152         Public Sub RemoveUser_DetailsRow(ByVal row As User_DetailsRow)
3153             Me.Rows.Remove(row)
3154         End Sub
3155
3156         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3157          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3158         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
3159             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
3160             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
3161             Dim ds As NEADataSet = New NEADataSet()
3162             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
3163             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
3164             any1.MinOccurs = New Decimal(0)
3165             any1.MaxOccurs = Decimal.MaxValue
3166             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3167             sequence.Items.Add(any1)
3168             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
3169             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
3170             any2.MinOccurs = New Decimal(1)
3171             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3172             sequence.Items.Add(any2)
3173             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
3174             attribute1.Name = "namespace"
3175             attribute1.FixedValue = ds.Namespace
3176             type.Attributes.Add(attribute1)
3177             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
3178             attribute2.Name = "tableTypeName"
3179             attribute2.FixedValue = "User_DetailsDataTable"
3180             type.Attributes.Add(attribute2)
3181             type.Particle = sequence
3182             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
3183             If xs.Contains(dsSchema.TargetNamespace) Then
3184                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
3185                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
3186                 Try
3187                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
3188                     dsSchema.Write(s1)
3189                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
3190                     Do While schemas.MoveNext
3191                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
3192                         s2.SetLength(0)
3193                         schema.Write(s2)
3194                         If (s1.Length = s2.Length) Then
3195                             s1.Position = 0
3196                             s2.Position = 0
3197
3198                             Do While ((s1.Position <> s1.Length)  _
3199                                         AndAlso (s1.ReadByte = s2.ReadByte))
3200
3201
3202                             Loop
3203                             If (s1.Position = s1.Length) Then
3204                                 Return type
3205                             End If
3206                         End If
3207
3208                     Loop
3209                 Finally
3210                     If (Not (s1) Is Nothing) Then
3211                         s1.Close
3212                     End If
3213                     If (Not (s2) Is Nothing) Then
3214                         s2.Close
3215                     End If
3216                 End Try
3217             End If
3218             xs.Add(dsSchema)
3219             Return type
3220         End Function
3221     End Class
3222
3223     '''<summary>
3224     '''Represents the strongly named DataTable class.
3225     '''</summary>
3226     <Global.System.Serializable(),  _
3227      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
3228     Partial Public Class UsersDataTable
3229         Inherits Global.System.Data.TypedTableBase(Of UsersRow)
3230
3231         Private columnUserID As Global.System.Data.DataColumn
3232
3233         Private columnUser_DetailsID As Global.System.Data.DataColumn
3234
3235         Private columnUsername As Global.System.Data.DataColumn
3236
3237         Private columnPassword As Global.System.Data.DataColumn
3238
3239         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3240          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3241         Public Sub New()
3242             MyBase.New
3243             Me.TableName = "Users"
3244             Me.BeginInit
3245             Me.InitClass
3246             Me.EndInit
3247         End Sub
3248
3249         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3250          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3251         Friend Sub New(ByVal table As Global.System.Data.DataTable)
3252             MyBase.New
3253             Me.TableName = table.TableName
3254             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
3255                 Me.CaseSensitive = table.CaseSensitive
3256             End If
3257             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
3258                 Me.Locale = table.Locale
3259             End If
3260             If (table.Namespace <> table.DataSet.Namespace) Then
3261                 Me.Namespace = table.Namespace
3262             End If
3263             Me.Prefix = table.Prefix
3264             Me.MinimumCapacity = table.MinimumCapacity
3265         End Sub
3266
3267         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3268          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3269         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
3270             MyBase.New(info, context)
3271             Me.InitVars
3272         End Sub
3273
3274         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3275          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3276         Public ReadOnly Property UserIDColumn() As Global.System.Data.DataColumn
3277             Get
3278                 Return Me.columnUserID
3279             End Get
3280         End Property
3281
3282         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3283          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3284         Public ReadOnly Property User_DetailsIDColumn() As Global.System.Data.DataColumn
3285             Get
3286                 Return Me.columnUser_DetailsID
3287             End Get
3288         End Property
3289
3290         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3291          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3292         Public ReadOnly Property UsernameColumn() As Global.System.Data.DataColumn
3293             Get
3294                 Return Me.columnUsername
3295             End Get
3296         End Property
3297
3298         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3299          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3300         Public ReadOnly Property PasswordColumn() As Global.System.Data.DataColumn
3301             Get
3302                 Return Me.columnPassword
3303             End Get
3304         End Property
3305
3306         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3307          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
3308          Global.System.ComponentModel.Browsable(false)>  _
3309         Public ReadOnly Property Count() As Integer
3310             Get
3311                 Return Me.Rows.Count
3312             End Get
3313         End Property
3314
3315         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3316          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3317         Public Default ReadOnly Property Item(ByVal index As Integer) As UsersRow
3318             Get
3319                 Return CType(Me.Rows(index),UsersRow)
3320             End Get
3321         End Property
3322
3323         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3324         Public Event UsersRowChanging As UsersRowChangeEventHandler
3325
3326         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3327         Public Event UsersRowChanged As UsersRowChangeEventHandler
3328
3329         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3330         Public Event UsersRowDeleting As UsersRowChangeEventHandler
3331
3332         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3333         Public Event UsersRowDeleted As UsersRowChangeEventHandler
3334
3335         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3336          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3337         Public Overloads Sub AddUsersRow(ByVal row As UsersRow)
3338             Me.Rows.Add(row)
3339         End Sub
3340
3341         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3342          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3343         Public Overloads Function AddUsersRow(ByVal parentUser_DetailsRowByUser_DetailsUsers As User_DetailsRow, ByVal Username As String, ByVal Password As String) As UsersRow
3344             Dim rowUsersRow As UsersRow = CType(Me.NewRow,UsersRow)
3345             Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Username, Password}
3346             If (Not (parentUser_DetailsRowByUser_DetailsUsers) Is Nothing) Then
3347                 columnValuesArray(1) = parentUser_DetailsRowByUser_DetailsUsers(0)
3348             End If
3349             rowUsersRow.ItemArray = columnValuesArray
3350             Me.Rows.Add(rowUsersRow)
3351             Return rowUsersRow
3352         End Function
3353
3354         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3355          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3356         Public Function FindByUserID(ByVal UserID As Integer) As UsersRow
3357             Return CType(Me.Rows.Find(New Object() {UserID}),UsersRow)
3358         End Function
3359
3360         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3361          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3362         Public Overrides Function Clone() As Global.System.Data.DataTable
3363             Dim cln As UsersDataTable = CType(MyBase.Clone,UsersDataTable)
3364             cln.InitVars
3365             Return cln
3366         End Function
3367
3368         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3369          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3370         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
3371             Return New UsersDataTable()
3372         End Function
3373
3374         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3375          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3376         Friend Sub InitVars()
3377             Me.columnUserID = MyBase.Columns("UserID")
3378             Me.columnUser_DetailsID = MyBase.Columns("User_DetailsID")
3379             Me.columnUsername = MyBase.Columns("Username")
3380             Me.columnPassword = MyBase.Columns("Password")
3381         End Sub
3382
3383         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3384          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3385         Private Sub InitClass()
3386             Me.columnUserID = New Global.System.Data.DataColumn("UserID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3387             MyBase.Columns.Add(Me.columnUserID)
3388             Me.columnUser_DetailsID = New Global.System.Data.DataColumn("User_DetailsID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3389             MyBase.Columns.Add(Me.columnUser_DetailsID)
3390             Me.columnUsername = New Global.System.Data.DataColumn("Username", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3391             MyBase.Columns.Add(Me.columnUsername)
3392             Me.columnPassword = New Global.System.Data.DataColumn("Password", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3393             MyBase.Columns.Add(Me.columnPassword)
3394             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnUserID}, true))
3395             Me.columnUserID.AutoIncrement = true
3396             Me.columnUserID.AutoIncrementSeed = -1
3397             Me.columnUserID.AutoIncrementStep = -1
3398             Me.columnUserID.AllowDBNull = false
3399             Me.columnUserID.Unique = true
3400             Me.columnUsername.MaxLength = 536870910
3401             Me.columnPassword.MaxLength = 536870910
3402         End Sub
3403
3404         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3405          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3406         Public Function NewUsersRow() As UsersRow
3407             Return CType(Me.NewRow,UsersRow)
3408         End Function
3409
3410         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3411          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3412         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
3413             Return New UsersRow(builder)
3414         End Function
3415
3416         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3417          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3418         Protected Overrides Function GetRowType() As Global.System.Type
3419             Return GetType(UsersRow)
3420         End Function
3421
3422         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3423          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3424         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3425             MyBase.OnRowChanged(e)
3426             If (Not (Me.UsersRowChangedEvent) Is Nothing) Then
3427                 RaiseEvent UsersRowChanged(Me, New UsersRowChangeEvent(CType(e.Row,UsersRow), e.Action))
3428             End If
3429         End Sub
3430
3431         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3432          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3433         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3434             MyBase.OnRowChanging(e)
3435             If (Not (Me.UsersRowChangingEvent) Is Nothing) Then
3436                 RaiseEvent UsersRowChanging(Me, New UsersRowChangeEvent(CType(e.Row,UsersRow), e.Action))
3437             End If
3438         End Sub
3439
3440         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3441          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3442         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3443             MyBase.OnRowDeleted(e)
3444             If (Not (Me.UsersRowDeletedEvent) Is Nothing) Then
3445                 RaiseEvent UsersRowDeleted(Me, New UsersRowChangeEvent(CType(e.Row,UsersRow), e.Action))
3446             End If
3447         End Sub
3448
3449         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3450          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3451         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3452             MyBase.OnRowDeleting(e)
3453             If (Not (Me.UsersRowDeletingEvent) Is Nothing) Then
3454                 RaiseEvent UsersRowDeleting(Me, New UsersRowChangeEvent(CType(e.Row,UsersRow), e.Action))
3455             End If
3456         End Sub
3457
3458         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3459          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3460         Public Sub RemoveUsersRow(ByVal row As UsersRow)
3461             Me.Rows.Remove(row)
3462         End Sub
3463
3464         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3465          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3466         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
3467             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
3468             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
3469             Dim ds As NEADataSet = New NEADataSet()
3470             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
3471             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
3472             any1.MinOccurs = New Decimal(0)
3473             any1.MaxOccurs = Decimal.MaxValue
3474             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3475             sequence.Items.Add(any1)
3476             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
3477             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
3478             any2.MinOccurs = New Decimal(1)
3479             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3480             sequence.Items.Add(any2)
3481             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
3482             attribute1.Name = "namespace"
3483             attribute1.FixedValue = ds.Namespace
3484             type.Attributes.Add(attribute1)
3485             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
3486             attribute2.Name = "tableTypeName"
3487             attribute2.FixedValue = "UsersDataTable"
3488             type.Attributes.Add(attribute2)
3489             type.Particle = sequence
3490             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
3491             If xs.Contains(dsSchema.TargetNamespace) Then
3492                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
3493                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
3494                 Try
3495                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
3496                     dsSchema.Write(s1)
3497                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
3498                     Do While schemas.MoveNext
3499                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
3500                         s2.SetLength(0)
3501                         schema.Write(s2)
3502                         If (s1.Length = s2.Length) Then
3503                             s1.Position = 0
3504                             s2.Position = 0
3505
3506                             Do While ((s1.Position <> s1.Length)  _
3507                                         AndAlso (s1.ReadByte = s2.ReadByte))
3508
3509
3510                             Loop
3511                             If (s1.Position = s1.Length) Then
3512                                 Return type
3513                             End If
3514                         End If
3515
3516                     Loop
3517                 Finally
3518                     If (Not (s1) Is Nothing) Then
3519                         s1.Close
3520                     End If
3521                     If (Not (s2) Is Nothing) Then
3522                         s2.Close
3523                     End If
3524                 End Try
3525             End If
3526             xs.Add(dsSchema)
3527             Return type
3528         End Function
3529     End Class
3530
3531     '''<summary>
3532     '''Represents the strongly named DataTable class.
3533     '''</summary>
3534     <Global.System.Serializable(),  _
3535      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
3536     Partial Public Class WishlistDataTable
3537         Inherits Global.System.Data.TypedTableBase(Of WishlistRow)
3538
3539         Private columnWishlistID As Global.System.Data.DataColumn
3540
3541         Private columnUserID As Global.System.Data.DataColumn
3542
3543         Private columnGameID As Global.System.Data.DataColumn
3544
3545         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3546          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3547         Public Sub New()
3548             MyBase.New
3549             Me.TableName = "Wishlist"
3550             Me.BeginInit
3551             Me.InitClass
3552             Me.EndInit
3553         End Sub
3554
3555         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3556          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3557         Friend Sub New(ByVal table As Global.System.Data.DataTable)
3558             MyBase.New
3559             Me.TableName = table.TableName
3560             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
3561                 Me.CaseSensitive = table.CaseSensitive
3562             End If
3563             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
3564                 Me.Locale = table.Locale
3565             End If
3566             If (table.Namespace <> table.DataSet.Namespace) Then
3567                 Me.Namespace = table.Namespace
3568             End If
3569             Me.Prefix = table.Prefix
3570             Me.MinimumCapacity = table.MinimumCapacity
3571         End Sub
3572
3573         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3574          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3575         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
3576             MyBase.New(info, context)
3577             Me.InitVars
3578         End Sub
3579
3580         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3581          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3582         Public ReadOnly Property WishlistIDColumn() As Global.System.Data.DataColumn
3583             Get
3584                 Return Me.columnWishlistID
3585             End Get
3586         End Property
3587
3588         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3589          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3590         Public ReadOnly Property UserIDColumn() As Global.System.Data.DataColumn
3591             Get
3592                 Return Me.columnUserID
3593             End Get
3594         End Property
3595
3596         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3597          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3598         Public ReadOnly Property GameIDColumn() As Global.System.Data.DataColumn
3599             Get
3600                 Return Me.columnGameID
3601             End Get
3602         End Property
3603
3604         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3605          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
3606          Global.System.ComponentModel.Browsable(false)>  _
3607         Public ReadOnly Property Count() As Integer
3608             Get
3609                 Return Me.Rows.Count
3610             End Get
3611         End Property
3612
3613         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3614          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3615         Public Default ReadOnly Property Item(ByVal index As Integer) As WishlistRow
3616             Get
3617                 Return CType(Me.Rows(index),WishlistRow)
3618             End Get
3619         End Property
3620
3621         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3622         Public Event WishlistRowChanging As WishlistRowChangeEventHandler
3623
3624         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3625         Public Event WishlistRowChanged As WishlistRowChangeEventHandler
3626
3627         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3628         Public Event WishlistRowDeleting As WishlistRowChangeEventHandler
3629
3630         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3631         Public Event WishlistRowDeleted As WishlistRowChangeEventHandler
3632
3633         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3634          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3635         Public Overloads Sub AddWishlistRow(ByVal row As WishlistRow)
3636             Me.Rows.Add(row)
3637         End Sub
3638
3639         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3640          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3641         Public Overloads Function AddWishlistRow(ByVal UserID As Integer, ByVal parentGamesRowByGamesWishlist As GamesRow) As WishlistRow
3642             Dim rowWishlistRow As WishlistRow = CType(Me.NewRow,WishlistRow)
3643             Dim columnValuesArray() As Object = New Object() {Nothing, UserID, Nothing}
3644             If (Not (parentGamesRowByGamesWishlist) Is Nothing) Then
3645                 columnValuesArray(2) = parentGamesRowByGamesWishlist(0)
3646             End If
3647             rowWishlistRow.ItemArray = columnValuesArray
3648             Me.Rows.Add(rowWishlistRow)
3649             Return rowWishlistRow
3650         End Function
3651
3652         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3653          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3654         Public Function FindByWishlistID(ByVal WishlistID As Integer) As WishlistRow
3655             Return CType(Me.Rows.Find(New Object() {WishlistID}),WishlistRow)
3656         End Function
3657
3658         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3659          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3660         Public Overrides Function Clone() As Global.System.Data.DataTable
3661             Dim cln As WishlistDataTable = CType(MyBase.Clone,WishlistDataTable)
3662             cln.InitVars
3663             Return cln
3664         End Function
3665
3666         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3667          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3668         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
3669             Return New WishlistDataTable()
3670         End Function
3671
3672         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3673          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3674         Friend Sub InitVars()
3675             Me.columnWishlistID = MyBase.Columns("WishlistID")
3676             Me.columnUserID = MyBase.Columns("UserID")
3677             Me.columnGameID = MyBase.Columns("GameID")
3678         End Sub
3679
3680         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3681          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3682         Private Sub InitClass()
3683             Me.columnWishlistID = New Global.System.Data.DataColumn("WishlistID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3684             MyBase.Columns.Add(Me.columnWishlistID)
3685             Me.columnUserID = New Global.System.Data.DataColumn("UserID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3686             MyBase.Columns.Add(Me.columnUserID)
3687             Me.columnGameID = New Global.System.Data.DataColumn("GameID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3688             MyBase.Columns.Add(Me.columnGameID)
3689             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnWishlistID}, true))
3690             Me.columnWishlistID.AutoIncrement = true
3691             Me.columnWishlistID.AutoIncrementSeed = -1
3692             Me.columnWishlistID.AutoIncrementStep = -1
3693             Me.columnWishlistID.AllowDBNull = false
3694             Me.columnWishlistID.Unique = true
3695         End Sub
3696
3697         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3698          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3699         Public Function NewWishlistRow() As WishlistRow
3700             Return CType(Me.NewRow,WishlistRow)
3701         End Function
3702
3703         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3704          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3705         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
3706             Return New WishlistRow(builder)
3707         End Function
3708
3709         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3710          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3711         Protected Overrides Function GetRowType() As Global.System.Type
3712             Return GetType(WishlistRow)
3713         End Function
3714
3715         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3716          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3717         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3718             MyBase.OnRowChanged(e)
3719             If (Not (Me.WishlistRowChangedEvent) Is Nothing) Then
3720                 RaiseEvent WishlistRowChanged(Me, New WishlistRowChangeEvent(CType(e.Row,WishlistRow), e.Action))
3721             End If
3722         End Sub
3723
3724         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3725          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3726         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3727             MyBase.OnRowChanging(e)
3728             If (Not (Me.WishlistRowChangingEvent) Is Nothing) Then
3729                 RaiseEvent WishlistRowChanging(Me, New WishlistRowChangeEvent(CType(e.Row,WishlistRow), e.Action))
3730             End If
3731         End Sub
3732
3733         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3734          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3735         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3736             MyBase.OnRowDeleted(e)
3737             If (Not (Me.WishlistRowDeletedEvent) Is Nothing) Then
3738                 RaiseEvent WishlistRowDeleted(Me, New WishlistRowChangeEvent(CType(e.Row,WishlistRow), e.Action))
3739             End If
3740         End Sub
3741
3742         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3743          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3744         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3745             MyBase.OnRowDeleting(e)
3746             If (Not (Me.WishlistRowDeletingEvent) Is Nothing) Then
3747                 RaiseEvent WishlistRowDeleting(Me, New WishlistRowChangeEvent(CType(e.Row,WishlistRow), e.Action))
3748             End If
3749         End Sub
3750
3751         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3752          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3753         Public Sub RemoveWishlistRow(ByVal row As WishlistRow)
3754             Me.Rows.Remove(row)
3755         End Sub
3756
3757         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3758          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3759         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
3760             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
3761             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
3762             Dim ds As NEADataSet = New NEADataSet()
3763             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
3764             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
3765             any1.MinOccurs = New Decimal(0)
3766             any1.MaxOccurs = Decimal.MaxValue
3767             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3768             sequence.Items.Add(any1)
3769             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
3770             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
3771             any2.MinOccurs = New Decimal(1)
3772             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3773             sequence.Items.Add(any2)
3774             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
3775             attribute1.Name = "namespace"
3776             attribute1.FixedValue = ds.Namespace
3777             type.Attributes.Add(attribute1)
3778             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
3779             attribute2.Name = "tableTypeName"
3780             attribute2.FixedValue = "WishlistDataTable"
3781             type.Attributes.Add(attribute2)
3782             type.Particle = sequence
3783             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
3784             If xs.Contains(dsSchema.TargetNamespace) Then
3785                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
3786                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
3787                 Try
3788                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
3789                     dsSchema.Write(s1)
3790                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
3791                     Do While schemas.MoveNext
3792                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
3793                         s2.SetLength(0)
3794                         schema.Write(s2)
3795                         If (s1.Length = s2.Length) Then
3796                             s1.Position = 0
3797                             s2.Position = 0
3798
3799                             Do While ((s1.Position <> s1.Length)  _
3800                                         AndAlso (s1.ReadByte = s2.ReadByte))
3801
3802
3803                             Loop
3804                             If (s1.Position = s1.Length) Then
3805                                 Return type
3806                             End If
3807                         End If
3808
3809                     Loop
3810                 Finally
3811                     If (Not (s1) Is Nothing) Then
3812                         s1.Close
3813                     End If
3814                     If (Not (s2) Is Nothing) Then
3815                         s2.Close
3816                     End If
3817                 End Try
3818             End If
3819             xs.Add(dsSchema)
3820             Return type
3821         End Function
3822     End Class
3823
3824     '''<summary>
3825     '''Represents strongly named DataRow class.
3826     '''</summary>
3827     Partial Public Class AchievementRow
3828         Inherits Global.System.Data.DataRow
3829
3830         Private tableAchievement As AchievementDataTable
3831
3832         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3833          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3834         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
3835             MyBase.New(rb)
3836             Me.tableAchievement = CType(Me.Table,AchievementDataTable)
3837         End Sub
3838
3839         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3840          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3841         Public Property AchievementID() As Integer
3842             Get
3843                 Return CType(Me(Me.tableAchievement.AchievementIDColumn),Integer)
3844             End Get
3845             Set
3846                 Me(Me.tableAchievement.AchievementIDColumn) = value
3847             End Set
3848         End Property
3849
3850         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3851          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3852         Public Property GameID() As Integer
3853             Get
3854                 Try
3855                     Return CType(Me(Me.tableAchievement.GameIDColumn),Integer)
3856                 Catch e As Global.System.InvalidCastException
3857                     Throw New Global.System.Data.StrongTypingException("The value for column 'GameID' in table 'Achievement' is DBNull.", e)
3858                 End Try
3859             End Get
3860             Set
3861                 Me(Me.tableAchievement.GameIDColumn) = value
3862             End Set
3863         End Property
3864
3865         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3866          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3867         Public Property UserID() As Integer
3868             Get
3869                 Try
3870                     Return CType(Me(Me.tableAchievement.UserIDColumn),Integer)
3871                 Catch e As Global.System.InvalidCastException
3872                     Throw New Global.System.Data.StrongTypingException("The value for column 'UserID' in table 'Achievement' is DBNull.", e)
3873                 End Try
3874             End Get
3875             Set
3876                 Me(Me.tableAchievement.UserIDColumn) = value
3877             End Set
3878         End Property
3879
3880         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3881          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3882         Public Property Achievment_1() As String
3883             Get
3884                 Try
3885                     Return CType(Me(Me.tableAchievement.Achievment_1Column),String)
3886                 Catch e As Global.System.InvalidCastException
3887                     Throw New Global.System.Data.StrongTypingException("The value for column 'Achievment 1' in table 'Achievement' is DBNull.", e)
3888                 End Try
3889             End Get
3890             Set
3891                 Me(Me.tableAchievement.Achievment_1Column) = value
3892             End Set
3893         End Property
3894
3895         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3896          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3897         Public Property Achievment_2() As String
3898             Get
3899                 Try
3900                     Return CType(Me(Me.tableAchievement.Achievment_2Column),String)
3901                 Catch e As Global.System.InvalidCastException
3902                     Throw New Global.System.Data.StrongTypingException("The value for column 'Achievment 2' in table 'Achievement' is DBNull.", e)
3903                 End Try
3904             End Get
3905             Set
3906                 Me(Me.tableAchievement.Achievment_2Column) = value
3907             End Set
3908         End Property
3909
3910         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3911          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3912         Public Property Achievment_3() As String
3913             Get
3914                 Try
3915                     Return CType(Me(Me.tableAchievement.Achievment_3Column),String)
3916                 Catch e As Global.System.InvalidCastException
3917                     Throw New Global.System.Data.StrongTypingException("The value for column 'Achievment 3' in table 'Achievement' is DBNull.", e)
3918                 End Try
3919             End Get
3920             Set
3921                 Me(Me.tableAchievement.Achievment_3Column) = value
3922             End Set
3923         End Property
3924
3925         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3926          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3927         Public Property Achievment_4() As String
3928             Get
3929                 Try
3930                     Return CType(Me(Me.tableAchievement.Achievment_4Column),String)
3931                 Catch e As Global.System.InvalidCastException
3932                     Throw New Global.System.Data.StrongTypingException("The value for column 'Achievment 4' in table 'Achievement' is DBNull.", e)
3933                 End Try
3934             End Get
3935             Set
3936                 Me(Me.tableAchievement.Achievment_4Column) = value
3937             End Set
3938         End Property
3939
3940         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3941          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3942         Public Property Achievment_5() As String
3943             Get
3944                 Try
3945                     Return CType(Me(Me.tableAchievement.Achievment_5Column),String)
3946                 Catch e As Global.System.InvalidCastException
3947                     Throw New Global.System.Data.StrongTypingException("The value for column 'Achievment 5' in table 'Achievement' is DBNull.", e)
3948                 End Try
3949             End Get
3950             Set
3951                 Me(Me.tableAchievement.Achievment_5Column) = value
3952             End Set
3953         End Property
3954
3955         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3956          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3957         Public Property GamesRow() As GamesRow
3958             Get
3959                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("GamesAchievement")),GamesRow)
3960             End Get
3961             Set
3962                 Me.SetParentRow(value, Me.Table.ParentRelations("GamesAchievement"))
3963             End Set
3964         End Property
3965
3966         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3967          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3968         Public Function IsGameIDNull() As Boolean
3969             Return Me.IsNull(Me.tableAchievement.GameIDColumn)
3970         End Function
3971
3972         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3973          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3974         Public Sub SetGameIDNull()
3975             Me(Me.tableAchievement.GameIDColumn) = Global.System.Convert.DBNull
3976         End Sub
3977
3978         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3979          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3980         Public Function IsUserIDNull() As Boolean
3981             Return Me.IsNull(Me.tableAchievement.UserIDColumn)
3982         End Function
3983
3984         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3985          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3986         Public Sub SetUserIDNull()
3987             Me(Me.tableAchievement.UserIDColumn) = Global.System.Convert.DBNull
3988         End Sub
3989
3990         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3991          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3992         Public Function IsAchievment_1Null() As Boolean
3993             Return Me.IsNull(Me.tableAchievement.Achievment_1Column)
3994         End Function
3995
3996         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3997          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3998         Public Sub SetAchievment_1Null()
3999             Me(Me.tableAchievement.Achievment_1Column) = Global.System.Convert.DBNull
4000         End Sub
4001
4002         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4003          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4004         Public Function IsAchievment_2Null() As Boolean
4005             Return Me.IsNull(Me.tableAchievement.Achievment_2Column)
4006         End Function
4007
4008         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4009          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4010         Public Sub SetAchievment_2Null()
4011             Me(Me.tableAchievement.Achievment_2Column) = Global.System.Convert.DBNull
4012         End Sub
4013
4014         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4015          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4016         Public Function IsAchievment_3Null() As Boolean
4017             Return Me.IsNull(Me.tableAchievement.Achievment_3Column)
4018         End Function
4019
4020         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4021          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4022         Public Sub SetAchievment_3Null()
4023             Me(Me.tableAchievement.Achievment_3Column) = Global.System.Convert.DBNull
4024         End Sub
4025
4026         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4027          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4028         Public Function IsAchievment_4Null() As Boolean
4029             Return Me.IsNull(Me.tableAchievement.Achievment_4Column)
4030         End Function
4031
4032         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4033          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4034         Public Sub SetAchievment_4Null()
4035             Me(Me.tableAchievement.Achievment_4Column) = Global.System.Convert.DBNull
4036         End Sub
4037
4038         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4039          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4040         Public Function IsAchievment_5Null() As Boolean
4041             Return Me.IsNull(Me.tableAchievement.Achievment_5Column)
4042         End Function
4043
4044         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4045          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4046         Public Sub SetAchievment_5Null()
4047             Me(Me.tableAchievement.Achievment_5Column) = Global.System.Convert.DBNull
4048         End Sub
4049     End Class
4050
4051     '''<summary>
4052     '''Represents strongly named DataRow class.
4053     '''</summary>
4054     Partial Public Class DOWRow
4055         Inherits Global.System.Data.DataRow
4056
4057         Private tableDOW As DOWDataTable
4058
4059         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4060          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4061         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
4062             MyBase.New(rb)
4063             Me.tableDOW = CType(Me.Table,DOWDataTable)
4064         End Sub
4065
4066         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4067          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4068         Public Property DOWID() As Integer
4069             Get
4070                 Return CType(Me(Me.tableDOW.DOWIDColumn),Integer)
4071             End Get
4072             Set
4073                 Me(Me.tableDOW.DOWIDColumn) = value
4074             End Set
4075         End Property
4076
4077         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4078          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4079         Public Property Start() As Date
4080             Get
4081                 Try
4082                     Return CType(Me(Me.tableDOW.StartColumn),Date)
4083                 Catch e As Global.System.InvalidCastException
4084                     Throw New Global.System.Data.StrongTypingException("The value for column 'Start' in table 'DOW' is DBNull.", e)
4085                 End Try
4086             End Get
4087             Set
4088                 Me(Me.tableDOW.StartColumn) = value
4089             End Set
4090         End Property
4091
4092         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4093          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4094         Public Property _End() As Date
4095             Get
4096                 Try
4097                     Return CType(Me(Me.tableDOW.EndColumn),Date)
4098                 Catch e As Global.System.InvalidCastException
4099                     Throw New Global.System.Data.StrongTypingException("The value for column 'End' in table 'DOW' is DBNull.", e)
4100                 End Try
4101             End Get
4102             Set
4103                 Me(Me.tableDOW.EndColumn) = value
4104             End Set
4105         End Property
4106
4107         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4108          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4109         Public Property GameID() As Integer
4110             Get
4111                 Try
4112                     Return CType(Me(Me.tableDOW.GameIDColumn),Integer)
4113                 Catch e As Global.System.InvalidCastException
4114                     Throw New Global.System.Data.StrongTypingException("The value for column 'GameID' in table 'DOW' is DBNull.", e)
4115                 End Try
4116             End Get
4117             Set
4118                 Me(Me.tableDOW.GameIDColumn) = value
4119             End Set
4120         End Property
4121
4122         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4123          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4124         Public Property GamesRow() As GamesRow
4125             Get
4126                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("GamesDOW")),GamesRow)
4127             End Get
4128             Set
4129                 Me.SetParentRow(value, Me.Table.ParentRelations("GamesDOW"))
4130             End Set
4131         End Property
4132
4133         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4134          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4135         Public Function IsStartNull() As Boolean
4136             Return Me.IsNull(Me.tableDOW.StartColumn)
4137         End Function
4138
4139         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4140          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4141         Public Sub SetStartNull()
4142             Me(Me.tableDOW.StartColumn) = Global.System.Convert.DBNull
4143         End Sub
4144
4145         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4146          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4147         Public Function Is_EndNull() As Boolean
4148             Return Me.IsNull(Me.tableDOW.EndColumn)
4149         End Function
4150
4151         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4152          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4153         Public Sub Set_EndNull()
4154             Me(Me.tableDOW.EndColumn) = Global.System.Convert.DBNull
4155         End Sub
4156
4157         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4158          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4159         Public Function IsGameIDNull() As Boolean
4160             Return Me.IsNull(Me.tableDOW.GameIDColumn)
4161         End Function
4162
4163         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4164          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4165         Public Sub SetGameIDNull()
4166             Me(Me.tableDOW.GameIDColumn) = Global.System.Convert.DBNull
4167         End Sub
4168     End Class
4169
4170     '''<summary>
4171     '''Represents strongly named DataRow class.
4172     '''</summary>
4173     Partial Public Class FriendsRow
4174         Inherits Global.System.Data.DataRow
4175
4176         Private tableFriends As FriendsDataTable
4177
4178         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4179          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4180         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
4181             MyBase.New(rb)
4182             Me.tableFriends = CType(Me.Table,FriendsDataTable)
4183         End Sub
4184
4185         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4186          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4187         Public Property ID() As Integer
4188             Get
4189                 Return CType(Me(Me.tableFriends.IDColumn),Integer)
4190             End Get
4191             Set
4192                 Me(Me.tableFriends.IDColumn) = value
4193             End Set
4194         End Property
4195
4196         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4197          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4198         Public Property FriendID() As Integer
4199             Get
4200                 Try
4201                     Return CType(Me(Me.tableFriends.FriendIDColumn),Integer)
4202                 Catch e As Global.System.InvalidCastException
4203                     Throw New Global.System.Data.StrongTypingException("The value for column 'FriendID' in table 'Friends' is DBNull.", e)
4204                 End Try
4205             End Get
4206             Set
4207                 Me(Me.tableFriends.FriendIDColumn) = value
4208             End Set
4209         End Property
4210
4211         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4212          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4213         Public Property UserID() As Integer
4214             Get
4215                 Try
4216                     Return CType(Me(Me.tableFriends.UserIDColumn),Integer)
4217                 Catch e As Global.System.InvalidCastException
4218                     Throw New Global.System.Data.StrongTypingException("The value for column 'UserID' in table 'Friends' is DBNull.", e)
4219                 End Try
4220             End Get
4221             Set
4222                 Me(Me.tableFriends.UserIDColumn) = value
4223             End Set
4224         End Property
4225
4226         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4227          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4228         Public Function IsFriendIDNull() As Boolean
4229             Return Me.IsNull(Me.tableFriends.FriendIDColumn)
4230         End Function
4231
4232         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4233          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4234         Public Sub SetFriendIDNull()
4235             Me(Me.tableFriends.FriendIDColumn) = Global.System.Convert.DBNull
4236         End Sub
4237
4238         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4239          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4240         Public Function IsUserIDNull() As Boolean
4241             Return Me.IsNull(Me.tableFriends.UserIDColumn)
4242         End Function
4243
4244         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4245          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4246         Public Sub SetUserIDNull()
4247             Me(Me.tableFriends.UserIDColumn) = Global.System.Convert.DBNull
4248         End Sub
4249     End Class
4250
4251     '''<summary>
4252     '''Represents strongly named DataRow class.
4253     '''</summary>
4254     Partial Public Class GamesRow
4255         Inherits Global.System.Data.DataRow
4256
4257         Private tableGames As GamesDataTable
4258
4259         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4260          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4261         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
4262             MyBase.New(rb)
4263             Me.tableGames = CType(Me.Table,GamesDataTable)
4264         End Sub
4265
4266         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4267          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4268         Public Property GameID() As Integer
4269             Get
4270                 Return CType(Me(Me.tableGames.GameIDColumn),Integer)
4271             End Get
4272             Set
4273                 Me(Me.tableGames.GameIDColumn) = value
4274             End Set
4275         End Property
4276
4277         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4278          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4279         Public Property Name() As String
4280             Get
4281                 Try
4282                     Return CType(Me(Me.tableGames.NameColumn),String)
4283                 Catch e As Global.System.InvalidCastException
4284                     Throw New Global.System.Data.StrongTypingException("The value for column 'Name' in table 'Games' is DBNull.", e)
4285                 End Try
4286             End Get
4287             Set
4288                 Me(Me.tableGames.NameColumn) = value
4289             End Set
4290         End Property
4291
4292         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4293          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4294         Public Property Price() As Decimal
4295             Get
4296                 Try
4297                     Return CType(Me(Me.tableGames.PriceColumn),Decimal)
4298                 Catch e As Global.System.InvalidCastException
4299                     Throw New Global.System.Data.StrongTypingException("The value for column 'Price' in table 'Games' is DBNull.", e)
4300                 End Try
4301             End Get
4302             Set
4303                 Me(Me.tableGames.PriceColumn) = value
4304             End Set
4305         End Property
4306
4307         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4308          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4309         Public Property Rating() As Integer
4310             Get
4311                 Try
4312                     Return CType(Me(Me.tableGames.RatingColumn),Integer)
4313                 Catch e As Global.System.InvalidCastException
4314                     Throw New Global.System.Data.StrongTypingException("The value for column 'Rating' in table 'Games' is DBNull.", e)
4315                 End Try
4316             End Get
4317             Set
4318                 Me(Me.tableGames.RatingColumn) = value
4319             End Set
4320         End Property
4321
4322         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4323          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4324         Public Property Certificate() As Integer
4325             Get
4326                 Try
4327                     Return CType(Me(Me.tableGames.CertificateColumn),Integer)
4328                 Catch e As Global.System.InvalidCastException
4329                     Throw New Global.System.Data.StrongTypingException("The value for column 'Certificate' in table 'Games' is DBNull.", e)
4330                 End Try
4331             End Get
4332             Set
4333                 Me(Me.tableGames.CertificateColumn) = value
4334             End Set
4335         End Property
4336
4337         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4338          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4339         Public Property Dev() As String
4340             Get
4341                 Try
4342                     Return CType(Me(Me.tableGames.DevColumn),String)
4343                 Catch e As Global.System.InvalidCastException
4344                     Throw New Global.System.Data.StrongTypingException("The value for column 'Dev' in table 'Games' is DBNull.", e)
4345                 End Try
4346             End Get
4347             Set
4348                 Me(Me.tableGames.DevColumn) = value
4349             End Set
4350         End Property
4351
4352         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4353          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4354         Public Property Publisher() As String
4355             Get
4356                 Try
4357                     Return CType(Me(Me.tableGames.PublisherColumn),String)
4358                 Catch e As Global.System.InvalidCastException
4359                     Throw New Global.System.Data.StrongTypingException("The value for column 'Publisher' in table 'Games' is DBNull.", e)
4360                 End Try
4361             End Get
4362             Set
4363                 Me(Me.tableGames.PublisherColumn) = value
4364             End Set
4365         End Property
4366
4367         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4368          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4369         Public Property Icon() As String
4370             Get
4371                 Try
4372                     Return CType(Me(Me.tableGames.IconColumn),String)
4373                 Catch e As Global.System.InvalidCastException
4374                     Throw New Global.System.Data.StrongTypingException("The value for column 'Icon' in table 'Games' is DBNull.", e)
4375                 End Try
4376             End Get
4377             Set
4378                 Me(Me.tableGames.IconColumn) = value
4379             End Set
4380         End Property
4381
4382         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4383          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4384         Public Property Tags() As String
4385             Get
4386                 Try
4387                     Return CType(Me(Me.tableGames.TagsColumn),String)
4388                 Catch e As Global.System.InvalidCastException
4389                     Throw New Global.System.Data.StrongTypingException("The value for column 'Tags' in table 'Games' is DBNull.", e)
4390                 End Try
4391             End Get
4392             Set
4393                 Me(Me.tableGames.TagsColumn) = value
4394             End Set
4395         End Property
4396
4397         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4398          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4399         Public Property Theme_Colour() As Integer
4400             Get
4401                 Try
4402                     Return CType(Me(Me.tableGames.Theme_ColourColumn),Integer)
4403                 Catch e As Global.System.InvalidCastException
4404                     Throw New Global.System.Data.StrongTypingException("The value for column 'Theme Colour' in table 'Games' is DBNull.", e)
4405                 End Try
4406             End Get
4407             Set
4408                 Me(Me.tableGames.Theme_ColourColumn) = value
4409             End Set
4410         End Property
4411
4412         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4413          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4414         Public Function IsNameNull() As Boolean
4415             Return Me.IsNull(Me.tableGames.NameColumn)
4416         End Function
4417
4418         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4419          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4420         Public Sub SetNameNull()
4421             Me(Me.tableGames.NameColumn) = Global.System.Convert.DBNull
4422         End Sub
4423
4424         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4425          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4426         Public Function IsPriceNull() As Boolean
4427             Return Me.IsNull(Me.tableGames.PriceColumn)
4428         End Function
4429
4430         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4431          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4432         Public Sub SetPriceNull()
4433             Me(Me.tableGames.PriceColumn) = Global.System.Convert.DBNull
4434         End Sub
4435
4436         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4437          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4438         Public Function IsRatingNull() As Boolean
4439             Return Me.IsNull(Me.tableGames.RatingColumn)
4440         End Function
4441
4442         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4443          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4444         Public Sub SetRatingNull()
4445             Me(Me.tableGames.RatingColumn) = Global.System.Convert.DBNull
4446         End Sub
4447
4448         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4449          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4450         Public Function IsCertificateNull() As Boolean
4451             Return Me.IsNull(Me.tableGames.CertificateColumn)
4452         End Function
4453
4454         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4455          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4456         Public Sub SetCertificateNull()
4457             Me(Me.tableGames.CertificateColumn) = Global.System.Convert.DBNull
4458         End Sub
4459
4460         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4461          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4462         Public Function IsDevNull() As Boolean
4463             Return Me.IsNull(Me.tableGames.DevColumn)
4464         End Function
4465
4466         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4467          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4468         Public Sub SetDevNull()
4469             Me(Me.tableGames.DevColumn) = Global.System.Convert.DBNull
4470         End Sub
4471
4472         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4473          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4474         Public Function IsPublisherNull() As Boolean
4475             Return Me.IsNull(Me.tableGames.PublisherColumn)
4476         End Function
4477
4478         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4479          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4480         Public Sub SetPublisherNull()
4481             Me(Me.tableGames.PublisherColumn) = Global.System.Convert.DBNull
4482         End Sub
4483
4484         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4485          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4486         Public Function IsIconNull() As Boolean
4487             Return Me.IsNull(Me.tableGames.IconColumn)
4488         End Function
4489
4490         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4491          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4492         Public Sub SetIconNull()
4493             Me(Me.tableGames.IconColumn) = Global.System.Convert.DBNull
4494         End Sub
4495
4496         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4497          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4498         Public Function IsTagsNull() As Boolean
4499             Return Me.IsNull(Me.tableGames.TagsColumn)
4500         End Function
4501
4502         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4503          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4504         Public Sub SetTagsNull()
4505             Me(Me.tableGames.TagsColumn) = Global.System.Convert.DBNull
4506         End Sub
4507
4508         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4509          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4510         Public Function IsTheme_ColourNull() As Boolean
4511             Return Me.IsNull(Me.tableGames.Theme_ColourColumn)
4512         End Function
4513
4514         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4515          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4516         Public Sub SetTheme_ColourNull()
4517             Me(Me.tableGames.Theme_ColourColumn) = Global.System.Convert.DBNull
4518         End Sub
4519
4520         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4521          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4522         Public Function GetAchievementRows() As AchievementRow()
4523             If (Me.Table.ChildRelations("GamesAchievement") Is Nothing) Then
4524                 Return New AchievementRow(-1) {}
4525             Else
4526                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("GamesAchievement")),AchievementRow())
4527             End If
4528         End Function
4529
4530         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4531          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4532         Public Function GetDOWRows() As DOWRow()
4533             If (Me.Table.ChildRelations("GamesDOW") Is Nothing) Then
4534                 Return New DOWRow(-1) {}
4535             Else
4536                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("GamesDOW")),DOWRow())
4537             End If
4538         End Function
4539
4540         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4541          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4542         Public Function GetPurchasedRows() As PurchasedRow()
4543             If (Me.Table.ChildRelations("GamesPurchased") Is Nothing) Then
4544                 Return New PurchasedRow(-1) {}
4545             Else
4546                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("GamesPurchased")),PurchasedRow())
4547             End If
4548         End Function
4549
4550         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4551          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4552         Public Function GetReviewsRows() As ReviewsRow()
4553             If (Me.Table.ChildRelations("GamesReviews") Is Nothing) Then
4554                 Return New ReviewsRow(-1) {}
4555             Else
4556                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("GamesReviews")),ReviewsRow())
4557             End If
4558         End Function
4559
4560         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4561          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4562         Public Function GetWishlistRows() As WishlistRow()
4563             If (Me.Table.ChildRelations("GamesWishlist") Is Nothing) Then
4564                 Return New WishlistRow(-1) {}
4565             Else
4566                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("GamesWishlist")),WishlistRow())
4567             End If
4568         End Function
4569     End Class
4570
4571     '''<summary>
4572     '''Represents strongly named DataRow class.
4573     '''</summary>
4574     Partial Public Class PurchasedRow
4575         Inherits Global.System.Data.DataRow
4576
4577         Private tablePurchased As PurchasedDataTable
4578
4579         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4580          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4581         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
4582             MyBase.New(rb)
4583             Me.tablePurchased = CType(Me.Table,PurchasedDataTable)
4584         End Sub
4585
4586         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4587          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4588         Public Property PurchaseID() As Integer
4589             Get
4590                 Return CType(Me(Me.tablePurchased.PurchaseIDColumn),Integer)
4591             End Get
4592             Set
4593                 Me(Me.tablePurchased.PurchaseIDColumn) = value
4594             End Set
4595         End Property
4596
4597         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4598          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4599         Public Property UserID() As Integer
4600             Get
4601                 Try
4602                     Return CType(Me(Me.tablePurchased.UserIDColumn),Integer)
4603                 Catch e As Global.System.InvalidCastException
4604                     Throw New Global.System.Data.StrongTypingException("The value for column 'UserID' in table 'Purchased' is DBNull.", e)
4605                 End Try
4606             End Get
4607             Set
4608                 Me(Me.tablePurchased.UserIDColumn) = value
4609             End Set
4610         End Property
4611
4612         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4613          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4614         Public Property GameID() As Integer
4615             Get
4616                 Try
4617                     Return CType(Me(Me.tablePurchased.GameIDColumn),Integer)
4618                 Catch e As Global.System.InvalidCastException
4619                     Throw New Global.System.Data.StrongTypingException("The value for column 'GameID' in table 'Purchased' is DBNull.", e)
4620                 End Try
4621             End Get
4622             Set
4623                 Me(Me.tablePurchased.GameIDColumn) = value
4624             End Set
4625         End Property
4626
4627         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4628          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4629         Public Property GamesRow() As GamesRow
4630             Get
4631                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("GamesPurchased")),GamesRow)
4632             End Get
4633             Set
4634                 Me.SetParentRow(value, Me.Table.ParentRelations("GamesPurchased"))
4635             End Set
4636         End Property
4637
4638         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4639          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4640         Public Function IsUserIDNull() As Boolean
4641             Return Me.IsNull(Me.tablePurchased.UserIDColumn)
4642         End Function
4643
4644         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4645          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4646         Public Sub SetUserIDNull()
4647             Me(Me.tablePurchased.UserIDColumn) = Global.System.Convert.DBNull
4648         End Sub
4649
4650         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4651          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4652         Public Function IsGameIDNull() As Boolean
4653             Return Me.IsNull(Me.tablePurchased.GameIDColumn)
4654         End Function
4655
4656         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4657          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4658         Public Sub SetGameIDNull()
4659             Me(Me.tablePurchased.GameIDColumn) = Global.System.Convert.DBNull
4660         End Sub
4661     End Class
4662
4663     '''<summary>
4664     '''Represents strongly named DataRow class.
4665     '''</summary>
4666     Partial Public Class ReviewsRow
4667         Inherits Global.System.Data.DataRow
4668
4669         Private tableReviews As ReviewsDataTable
4670
4671         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4672          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4673         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
4674             MyBase.New(rb)
4675             Me.tableReviews = CType(Me.Table,ReviewsDataTable)
4676         End Sub
4677
4678         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4679          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4680         Public Property ReviewID() As Integer
4681             Get
4682                 Return CType(Me(Me.tableReviews.ReviewIDColumn),Integer)
4683             End Get
4684             Set
4685                 Me(Me.tableReviews.ReviewIDColumn) = value
4686             End Set
4687         End Property
4688
4689         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4690          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4691         Public Property GameID() As Integer
4692             Get
4693                 Try
4694                     Return CType(Me(Me.tableReviews.GameIDColumn),Integer)
4695                 Catch e As Global.System.InvalidCastException
4696                     Throw New Global.System.Data.StrongTypingException("The value for column 'GameID' in table 'Reviews' is DBNull.", e)
4697                 End Try
4698             End Get
4699             Set
4700                 Me(Me.tableReviews.GameIDColumn) = value
4701             End Set
4702         End Property
4703
4704         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4705          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4706         Public Property Review() As String
4707             Get
4708                 Try
4709                     Return CType(Me(Me.tableReviews.ReviewColumn),String)
4710                 Catch e As Global.System.InvalidCastException
4711                     Throw New Global.System.Data.StrongTypingException("The value for column 'Review' in table 'Reviews' is DBNull.", e)
4712                 End Try
4713             End Get
4714             Set
4715                 Me(Me.tableReviews.ReviewColumn) = value
4716             End Set
4717         End Property
4718
4719         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4720          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4721         Public Property GamesRow() As GamesRow
4722             Get
4723                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("GamesReviews")),GamesRow)
4724             End Get
4725             Set
4726                 Me.SetParentRow(value, Me.Table.ParentRelations("GamesReviews"))
4727             End Set
4728         End Property
4729
4730         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4731          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4732         Public Function IsGameIDNull() As Boolean
4733             Return Me.IsNull(Me.tableReviews.GameIDColumn)
4734         End Function
4735
4736         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4737          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4738         Public Sub SetGameIDNull()
4739             Me(Me.tableReviews.GameIDColumn) = Global.System.Convert.DBNull
4740         End Sub
4741
4742         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4743          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4744         Public Function IsReviewNull() As Boolean
4745             Return Me.IsNull(Me.tableReviews.ReviewColumn)
4746         End Function
4747
4748         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4749          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4750         Public Sub SetReviewNull()
4751             Me(Me.tableReviews.ReviewColumn) = Global.System.Convert.DBNull
4752         End Sub
4753     End Class
4754
4755     '''<summary>
4756     '''Represents strongly named DataRow class.
4757     '''</summary>
4758     Partial Public Class TagsRow
4759         Inherits Global.System.Data.DataRow
4760
4761         Private tableTags As TagsDataTable
4762
4763         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4764          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4765         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
4766             MyBase.New(rb)
4767             Me.tableTags = CType(Me.Table,TagsDataTable)
4768         End Sub
4769
4770         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4771          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4772         Public Property ID() As Integer
4773             Get
4774                 Return CType(Me(Me.tableTags.IDColumn),Integer)
4775             End Get
4776             Set
4777                 Me(Me.tableTags.IDColumn) = value
4778             End Set
4779         End Property
4780     End Class
4781
4782     '''<summary>
4783     '''Represents strongly named DataRow class.
4784     '''</summary>
4785     Partial Public Class User_DetailsRow
4786         Inherits Global.System.Data.DataRow
4787
4788         Private tableUser_Details As User_DetailsDataTable
4789
4790         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4791          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4792         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
4793             MyBase.New(rb)
4794             Me.tableUser_Details = CType(Me.Table,User_DetailsDataTable)
4795         End Sub
4796
4797         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4798          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4799         Public Property UserDetailsID() As Integer
4800             Get
4801                 Return CType(Me(Me.tableUser_Details.UserDetailsIDColumn),Integer)
4802             End Get
4803             Set
4804                 Me(Me.tableUser_Details.UserDetailsIDColumn) = value
4805             End Set
4806         End Property
4807
4808         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4809          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4810         Public Property FirstName() As String
4811             Get
4812                 Try
4813                     Return CType(Me(Me.tableUser_Details.FirstNameColumn),String)
4814                 Catch e As Global.System.InvalidCastException
4815                     Throw New Global.System.Data.StrongTypingException("The value for column 'FirstName' in table 'User_Details' is DBNull.", e)
4816                 End Try
4817             End Get
4818             Set
4819                 Me(Me.tableUser_Details.FirstNameColumn) = value
4820             End Set
4821         End Property
4822
4823         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4824          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4825         Public Property LastName() As String
4826             Get
4827                 Try
4828                     Return CType(Me(Me.tableUser_Details.LastNameColumn),String)
4829                 Catch e As Global.System.InvalidCastException
4830                     Throw New Global.System.Data.StrongTypingException("The value for column 'LastName' in table 'User_Details' is DBNull.", e)
4831                 End Try
4832             End Get
4833             Set
4834                 Me(Me.tableUser_Details.LastNameColumn) = value
4835             End Set
4836         End Property
4837
4838         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4839          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4840         Public Property AddressLine1() As String
4841             Get
4842                 Try
4843                     Return CType(Me(Me.tableUser_Details.AddressLine1Column),String)
4844                 Catch e As Global.System.InvalidCastException
4845                     Throw New Global.System.Data.StrongTypingException("The value for column 'AddressLine1' in table 'User_Details' is DBNull.", e)
4846                 End Try
4847             End Get
4848             Set
4849                 Me(Me.tableUser_Details.AddressLine1Column) = value
4850             End Set
4851         End Property
4852
4853         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4854          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4855         Public Property Town() As String
4856             Get
4857                 Try
4858                     Return CType(Me(Me.tableUser_Details.TownColumn),String)
4859                 Catch e As Global.System.InvalidCastException
4860                     Throw New Global.System.Data.StrongTypingException("The value for column 'Town' in table 'User_Details' is DBNull.", e)
4861                 End Try
4862             End Get
4863             Set
4864                 Me(Me.tableUser_Details.TownColumn) = value
4865             End Set
4866         End Property
4867
4868         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4869          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4870         Public Property Postcode() As String
4871             Get
4872                 Try
4873                     Return CType(Me(Me.tableUser_Details.PostcodeColumn),String)
4874                 Catch e As Global.System.InvalidCastException
4875                     Throw New Global.System.Data.StrongTypingException("The value for column 'Postcode' in table 'User_Details' is DBNull.", e)
4876                 End Try
4877             End Get
4878             Set
4879                 Me(Me.tableUser_Details.PostcodeColumn) = value
4880             End Set
4881         End Property
4882
4883         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4884          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4885         Public Property CardNumber() As Integer
4886             Get
4887                 Try
4888                     Return CType(Me(Me.tableUser_Details.CardNumberColumn),Integer)
4889                 Catch e As Global.System.InvalidCastException
4890                     Throw New Global.System.Data.StrongTypingException("The value for column 'CardNumber' in table 'User_Details' is DBNull.", e)
4891                 End Try
4892             End Get
4893             Set
4894                 Me(Me.tableUser_Details.CardNumberColumn) = value
4895             End Set
4896         End Property
4897
4898         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4899          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4900         Public Property CVC() As Integer
4901             Get
4902                 Try
4903                     Return CType(Me(Me.tableUser_Details.CVCColumn),Integer)
4904                 Catch e As Global.System.InvalidCastException
4905                     Throw New Global.System.Data.StrongTypingException("The value for column 'CVC' in table 'User_Details' is DBNull.", e)
4906                 End Try
4907             End Get
4908             Set
4909                 Me(Me.tableUser_Details.CVCColumn) = value
4910             End Set
4911         End Property
4912
4913         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4914          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4915         Public Property IGN() As String
4916             Get
4917                 Try
4918                     Return CType(Me(Me.tableUser_Details.IGNColumn),String)
4919                 Catch e As Global.System.InvalidCastException
4920                     Throw New Global.System.Data.StrongTypingException("The value for column 'IGN' in table 'User_Details' is DBNull.", e)
4921                 End Try
4922             End Get
4923             Set
4924                 Me(Me.tableUser_Details.IGNColumn) = value
4925             End Set
4926         End Property
4927
4928         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4929          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4930         Public Property Email() As String
4931             Get
4932                 Try
4933                     Return CType(Me(Me.tableUser_Details.EmailColumn),String)
4934                 Catch e As Global.System.InvalidCastException
4935                     Throw New Global.System.Data.StrongTypingException("The value for column 'Email' in table 'User_Details' is DBNull.", e)
4936                 End Try
4937             End Get
4938             Set
4939                 Me(Me.tableUser_Details.EmailColumn) = value
4940             End Set
4941         End Property
4942
4943         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4944          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4945         Public Property ProfilePic() As Byte()
4946             Get
4947                 Try
4948                     Return CType(Me(Me.tableUser_Details.ProfilePicColumn),Byte())
4949                 Catch e As Global.System.InvalidCastException
4950                     Throw New Global.System.Data.StrongTypingException("The value for column 'ProfilePic' in table 'User_Details' is DBNull.", e)
4951                 End Try
4952             End Get
4953             Set
4954                 Me(Me.tableUser_Details.ProfilePicColumn) = value
4955             End Set
4956         End Property
4957
4958         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4959          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4960         Public Function IsFirstNameNull() As Boolean
4961             Return Me.IsNull(Me.tableUser_Details.FirstNameColumn)
4962         End Function
4963
4964         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4965          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4966         Public Sub SetFirstNameNull()
4967             Me(Me.tableUser_Details.FirstNameColumn) = Global.System.Convert.DBNull
4968         End Sub
4969
4970         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4971          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4972         Public Function IsLastNameNull() As Boolean
4973             Return Me.IsNull(Me.tableUser_Details.LastNameColumn)
4974         End Function
4975
4976         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4977          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4978         Public Sub SetLastNameNull()
4979             Me(Me.tableUser_Details.LastNameColumn) = Global.System.Convert.DBNull
4980         End Sub
4981
4982         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4983          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4984         Public Function IsAddressLine1Null() As Boolean
4985             Return Me.IsNull(Me.tableUser_Details.AddressLine1Column)
4986         End Function
4987
4988         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4989          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4990         Public Sub SetAddressLine1Null()
4991             Me(Me.tableUser_Details.AddressLine1Column) = Global.System.Convert.DBNull
4992         End Sub
4993
4994         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4995          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4996         Public Function IsTownNull() As Boolean
4997             Return Me.IsNull(Me.tableUser_Details.TownColumn)
4998         End Function
4999
5000         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5001          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5002         Public Sub SetTownNull()
5003             Me(Me.tableUser_Details.TownColumn) = Global.System.Convert.DBNull
5004         End Sub
5005
5006         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5007          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5008         Public Function IsPostcodeNull() As Boolean
5009             Return Me.IsNull(Me.tableUser_Details.PostcodeColumn)
5010         End Function
5011
5012         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5013          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5014         Public Sub SetPostcodeNull()
5015             Me(Me.tableUser_Details.PostcodeColumn) = Global.System.Convert.DBNull
5016         End Sub
5017
5018         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5019          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5020         Public Function IsCardNumberNull() As Boolean
5021             Return Me.IsNull(Me.tableUser_Details.CardNumberColumn)
5022         End Function
5023
5024         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5025          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5026         Public Sub SetCardNumberNull()
5027             Me(Me.tableUser_Details.CardNumberColumn) = Global.System.Convert.DBNull
5028         End Sub
5029
5030         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5031          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5032         Public Function IsCVCNull() As Boolean
5033             Return Me.IsNull(Me.tableUser_Details.CVCColumn)
5034         End Function
5035
5036         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5037          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5038         Public Sub SetCVCNull()
5039             Me(Me.tableUser_Details.CVCColumn) = Global.System.Convert.DBNull
5040         End Sub
5041
5042         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5043          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5044         Public Function IsIGNNull() As Boolean
5045             Return Me.IsNull(Me.tableUser_Details.IGNColumn)
5046         End Function
5047
5048         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5049          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5050         Public Sub SetIGNNull()
5051             Me(Me.tableUser_Details.IGNColumn) = Global.System.Convert.DBNull
5052         End Sub
5053
5054         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5055          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5056         Public Function IsEmailNull() As Boolean
5057             Return Me.IsNull(Me.tableUser_Details.EmailColumn)
5058         End Function
5059
5060         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5061          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5062         Public Sub SetEmailNull()
5063             Me(Me.tableUser_Details.EmailColumn) = Global.System.Convert.DBNull
5064         End Sub
5065
5066         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5067          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5068         Public Function IsProfilePicNull() As Boolean
5069             Return Me.IsNull(Me.tableUser_Details.ProfilePicColumn)
5070         End Function
5071
5072         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5073          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5074         Public Sub SetProfilePicNull()
5075             Me(Me.tableUser_Details.ProfilePicColumn) = Global.System.Convert.DBNull
5076         End Sub
5077
5078         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5079          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5080         Public Function GetUsersRows() As UsersRow()
5081             If (Me.Table.ChildRelations("User_DetailsUsers") Is Nothing) Then
5082                 Return New UsersRow(-1) {}
5083             Else
5084                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("User_DetailsUsers")),UsersRow())
5085             End If
5086         End Function
5087     End Class
5088
5089     '''<summary>
5090     '''Represents strongly named DataRow class.
5091     '''</summary>
5092     Partial Public Class UsersRow
5093         Inherits Global.System.Data.DataRow
5094
5095         Private tableUsers As UsersDataTable
5096
5097         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5098          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5099         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
5100             MyBase.New(rb)
5101             Me.tableUsers = CType(Me.Table,UsersDataTable)
5102         End Sub
5103
5104         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5105          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5106         Public Property UserID() As Integer
5107             Get
5108                 Return CType(Me(Me.tableUsers.UserIDColumn),Integer)
5109             End Get
5110             Set
5111                 Me(Me.tableUsers.UserIDColumn) = value
5112             End Set
5113         End Property
5114
5115         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5116          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5117         Public Property User_DetailsID() As Integer
5118             Get
5119                 Try
5120                     Return CType(Me(Me.tableUsers.User_DetailsIDColumn),Integer)
5121                 Catch e As Global.System.InvalidCastException
5122                     Throw New Global.System.Data.StrongTypingException("The value for column 'User_DetailsID' in table 'Users' is DBNull.", e)
5123                 End Try
5124             End Get
5125             Set
5126                 Me(Me.tableUsers.User_DetailsIDColumn) = value
5127             End Set
5128         End Property
5129
5130         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5131          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5132         Public Property Username() As String
5133             Get
5134                 Try
5135                     Return CType(Me(Me.tableUsers.UsernameColumn),String)
5136                 Catch e As Global.System.InvalidCastException
5137                     Throw New Global.System.Data.StrongTypingException("The value for column 'Username' in table 'Users' is DBNull.", e)
5138                 End Try
5139             End Get
5140             Set
5141                 Me(Me.tableUsers.UsernameColumn) = value
5142             End Set
5143         End Property
5144
5145         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5146          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5147         Public Property Password() As String
5148             Get
5149                 Try
5150                     Return CType(Me(Me.tableUsers.PasswordColumn),String)
5151                 Catch e As Global.System.InvalidCastException
5152                     Throw New Global.System.Data.StrongTypingException("The value for column 'Password' in table 'Users' is DBNull.", e)
5153                 End Try
5154             End Get
5155             Set
5156                 Me(Me.tableUsers.PasswordColumn) = value
5157             End Set
5158         End Property
5159
5160         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5161          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5162         Public Property User_DetailsRow() As User_DetailsRow
5163             Get
5164                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("User_DetailsUsers")),User_DetailsRow)
5165             End Get
5166             Set
5167                 Me.SetParentRow(value, Me.Table.ParentRelations("User_DetailsUsers"))
5168             End Set
5169         End Property
5170
5171         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5172          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5173         Public Function IsUser_DetailsIDNull() As Boolean
5174             Return Me.IsNull(Me.tableUsers.User_DetailsIDColumn)
5175         End Function
5176
5177         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5178          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5179         Public Sub SetUser_DetailsIDNull()
5180             Me(Me.tableUsers.User_DetailsIDColumn) = Global.System.Convert.DBNull
5181         End Sub
5182
5183         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5184          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5185         Public Function IsUsernameNull() As Boolean
5186             Return Me.IsNull(Me.tableUsers.UsernameColumn)
5187         End Function
5188
5189         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5190          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5191         Public Sub SetUsernameNull()
5192             Me(Me.tableUsers.UsernameColumn) = Global.System.Convert.DBNull
5193         End Sub
5194
5195         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5196          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5197         Public Function IsPasswordNull() As Boolean
5198             Return Me.IsNull(Me.tableUsers.PasswordColumn)
5199         End Function
5200
5201         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5202          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5203         Public Sub SetPasswordNull()
5204             Me(Me.tableUsers.PasswordColumn) = Global.System.Convert.DBNull
5205         End Sub
5206     End Class
5207
5208     '''<summary>
5209     '''Represents strongly named DataRow class.
5210     '''</summary>
5211     Partial Public Class WishlistRow
5212         Inherits Global.System.Data.DataRow
5213
5214         Private tableWishlist As WishlistDataTable
5215
5216         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5217          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5218         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
5219             MyBase.New(rb)
5220             Me.tableWishlist = CType(Me.Table,WishlistDataTable)
5221         End Sub
5222
5223         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5224          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5225         Public Property WishlistID() As Integer
5226             Get
5227                 Return CType(Me(Me.tableWishlist.WishlistIDColumn),Integer)
5228             End Get
5229             Set
5230                 Me(Me.tableWishlist.WishlistIDColumn) = value
5231             End Set
5232         End Property
5233
5234         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5235          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5236         Public Property UserID() As Integer
5237             Get
5238                 Try
5239                     Return CType(Me(Me.tableWishlist.UserIDColumn),Integer)
5240                 Catch e As Global.System.InvalidCastException
5241                     Throw New Global.System.Data.StrongTypingException("The value for column 'UserID' in table 'Wishlist' is DBNull.", e)
5242                 End Try
5243             End Get
5244             Set
5245                 Me(Me.tableWishlist.UserIDColumn) = value
5246             End Set
5247         End Property
5248
5249         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5250          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5251         Public Property GameID() As Integer
5252             Get
5253                 Try
5254                     Return CType(Me(Me.tableWishlist.GameIDColumn),Integer)
5255                 Catch e As Global.System.InvalidCastException
5256                     Throw New Global.System.Data.StrongTypingException("The value for column 'GameID' in table 'Wishlist' is DBNull.", e)
5257                 End Try
5258             End Get
5259             Set
5260                 Me(Me.tableWishlist.GameIDColumn) = value
5261             End Set
5262         End Property
5263
5264         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5265          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5266         Public Property GamesRow() As GamesRow
5267             Get
5268                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("GamesWishlist")),GamesRow)
5269             End Get
5270             Set
5271                 Me.SetParentRow(value, Me.Table.ParentRelations("GamesWishlist"))
5272             End Set
5273         End Property
5274
5275         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5276          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5277         Public Function IsUserIDNull() As Boolean
5278             Return Me.IsNull(Me.tableWishlist.UserIDColumn)
5279         End Function
5280
5281         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5282          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5283         Public Sub SetUserIDNull()
5284             Me(Me.tableWishlist.UserIDColumn) = Global.System.Convert.DBNull
5285         End Sub
5286
5287         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5288          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5289         Public Function IsGameIDNull() As Boolean
5290             Return Me.IsNull(Me.tableWishlist.GameIDColumn)
5291         End Function
5292
5293         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5294          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5295         Public Sub SetGameIDNull()
5296             Me(Me.tableWishlist.GameIDColumn) = Global.System.Convert.DBNull
5297         End Sub
5298     End Class
5299
5300     '''<summary>
5301     '''Row event argument class
5302     '''</summary>
5303     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5304     Public Class AchievementRowChangeEvent
5305         Inherits Global.System.EventArgs
5306
5307         Private eventRow As AchievementRow
5308
5309         Private eventAction As Global.System.Data.DataRowAction
5310
5311         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5312          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5313         Public Sub New(ByVal row As AchievementRow, ByVal action As Global.System.Data.DataRowAction)
5314             MyBase.New
5315             Me.eventRow = row
5316             Me.eventAction = action
5317         End Sub
5318
5319         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5320          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5321         Public ReadOnly Property Row() As AchievementRow
5322             Get
5323                 Return Me.eventRow
5324             End Get
5325         End Property
5326
5327         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5328          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5329         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
5330             Get
5331                 Return Me.eventAction
5332             End Get
5333         End Property
5334     End Class
5335
5336     '''<summary>
5337     '''Row event argument class
5338     '''</summary>
5339     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5340     Public Class DOWRowChangeEvent
5341         Inherits Global.System.EventArgs
5342
5343         Private eventRow As DOWRow
5344
5345         Private eventAction As Global.System.Data.DataRowAction
5346
5347         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5348          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5349         Public Sub New(ByVal row As DOWRow, ByVal action As Global.System.Data.DataRowAction)
5350             MyBase.New
5351             Me.eventRow = row
5352             Me.eventAction = action
5353         End Sub
5354
5355         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5356          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5357         Public ReadOnly Property Row() As DOWRow
5358             Get
5359                 Return Me.eventRow
5360             End Get
5361         End Property
5362
5363         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5364          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5365         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
5366             Get
5367                 Return Me.eventAction
5368             End Get
5369         End Property
5370     End Class
5371
5372     '''<summary>
5373     '''Row event argument class
5374     '''</summary>
5375     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5376     Public Class FriendsRowChangeEvent
5377         Inherits Global.System.EventArgs
5378
5379         Private eventRow As FriendsRow
5380
5381         Private eventAction As Global.System.Data.DataRowAction
5382
5383         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5384          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5385         Public Sub New(ByVal row As FriendsRow, ByVal action As Global.System.Data.DataRowAction)
5386             MyBase.New
5387             Me.eventRow = row
5388             Me.eventAction = action
5389         End Sub
5390
5391         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5392          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5393         Public ReadOnly Property Row() As FriendsRow
5394             Get
5395                 Return Me.eventRow
5396             End Get
5397         End Property
5398
5399         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5400          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5401         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
5402             Get
5403                 Return Me.eventAction
5404             End Get
5405         End Property
5406     End Class
5407
5408     '''<summary>
5409     '''Row event argument class
5410     '''</summary>
5411     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5412     Public Class GamesRowChangeEvent
5413         Inherits Global.System.EventArgs
5414
5415         Private eventRow As GamesRow
5416
5417         Private eventAction As Global.System.Data.DataRowAction
5418
5419         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5420          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5421         Public Sub New(ByVal row As GamesRow, ByVal action As Global.System.Data.DataRowAction)
5422             MyBase.New
5423             Me.eventRow = row
5424             Me.eventAction = action
5425         End Sub
5426
5427         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5428          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5429         Public ReadOnly Property Row() As GamesRow
5430             Get
5431                 Return Me.eventRow
5432             End Get
5433         End Property
5434
5435         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5436          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5437         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
5438             Get
5439                 Return Me.eventAction
5440             End Get
5441         End Property
5442     End Class
5443
5444     '''<summary>
5445     '''Row event argument class
5446     '''</summary>
5447     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5448     Public Class PurchasedRowChangeEvent
5449         Inherits Global.System.EventArgs
5450
5451         Private eventRow As PurchasedRow
5452
5453         Private eventAction As Global.System.Data.DataRowAction
5454
5455         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5456          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5457         Public Sub New(ByVal row As PurchasedRow, ByVal action As Global.System.Data.DataRowAction)
5458             MyBase.New
5459             Me.eventRow = row
5460             Me.eventAction = action
5461         End Sub
5462
5463         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5464          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5465         Public ReadOnly Property Row() As PurchasedRow
5466             Get
5467                 Return Me.eventRow
5468             End Get
5469         End Property
5470
5471         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5472          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5473         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
5474             Get
5475                 Return Me.eventAction
5476             End Get
5477         End Property
5478     End Class
5479
5480     '''<summary>
5481     '''Row event argument class
5482     '''</summary>
5483     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5484     Public Class ReviewsRowChangeEvent
5485         Inherits Global.System.EventArgs
5486
5487         Private eventRow As ReviewsRow
5488
5489         Private eventAction As Global.System.Data.DataRowAction
5490
5491         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5492          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5493         Public Sub New(ByVal row As ReviewsRow, ByVal action As Global.System.Data.DataRowAction)
5494             MyBase.New
5495             Me.eventRow = row
5496             Me.eventAction = action
5497         End Sub
5498
5499         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5500          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5501         Public ReadOnly Property Row() As ReviewsRow
5502             Get
5503                 Return Me.eventRow
5504             End Get
5505         End Property
5506
5507         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5508          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5509         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
5510             Get
5511                 Return Me.eventAction
5512             End Get
5513         End Property
5514     End Class
5515
5516     '''<summary>
5517     '''Row event argument class
5518     '''</summary>
5519     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5520     Public Class TagsRowChangeEvent
5521         Inherits Global.System.EventArgs
5522
5523         Private eventRow As TagsRow
5524
5525         Private eventAction As Global.System.Data.DataRowAction
5526
5527         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5528          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5529         Public Sub New(ByVal row As TagsRow, ByVal action As Global.System.Data.DataRowAction)
5530             MyBase.New
5531             Me.eventRow = row
5532             Me.eventAction = action
5533         End Sub
5534
5535         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5536          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5537         Public ReadOnly Property Row() As TagsRow
5538             Get
5539                 Return Me.eventRow
5540             End Get
5541         End Property
5542
5543         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5544          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5545         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
5546             Get
5547                 Return Me.eventAction
5548             End Get
5549         End Property
5550     End Class
5551
5552     '''<summary>
5553     '''Row event argument class
5554     '''</summary>
5555     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5556     Public Class User_DetailsRowChangeEvent
5557         Inherits Global.System.EventArgs
5558
5559         Private eventRow As User_DetailsRow
5560
5561         Private eventAction As Global.System.Data.DataRowAction
5562
5563         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5564          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5565         Public Sub New(ByVal row As User_DetailsRow, ByVal action As Global.System.Data.DataRowAction)
5566             MyBase.New
5567             Me.eventRow = row
5568             Me.eventAction = action
5569         End Sub
5570
5571         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5572          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5573         Public ReadOnly Property Row() As User_DetailsRow
5574             Get
5575                 Return Me.eventRow
5576             End Get
5577         End Property
5578
5579         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5580          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5581         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
5582             Get
5583                 Return Me.eventAction
5584             End Get
5585         End Property
5586     End Class
5587
5588     '''<summary>
5589     '''Row event argument class
5590     '''</summary>
5591     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5592     Public Class UsersRowChangeEvent
5593         Inherits Global.System.EventArgs
5594
5595         Private eventRow As UsersRow
5596
5597         Private eventAction As Global.System.Data.DataRowAction
5598
5599         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5600          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5601         Public Sub New(ByVal row As UsersRow, ByVal action As Global.System.Data.DataRowAction)
5602             MyBase.New
5603             Me.eventRow = row
5604             Me.eventAction = action
5605         End Sub
5606
5607         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5608          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5609         Public ReadOnly Property Row() As UsersRow
5610             Get
5611                 Return Me.eventRow
5612             End Get
5613         End Property
5614
5615         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5616          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5617         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
5618             Get
5619                 Return Me.eventAction
5620             End Get
5621         End Property
5622     End Class
5623
5624     '''<summary>
5625     '''Row event argument class
5626     '''</summary>
5627     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5628     Public Class WishlistRowChangeEvent
5629         Inherits Global.System.EventArgs
5630
5631         Private eventRow As WishlistRow
5632
5633         Private eventAction As Global.System.Data.DataRowAction
5634
5635         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5636          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5637         Public Sub New(ByVal row As WishlistRow, ByVal action As Global.System.Data.DataRowAction)
5638             MyBase.New
5639             Me.eventRow = row
5640             Me.eventAction = action
5641         End Sub
5642
5643         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5644          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5645         Public ReadOnly Property Row() As WishlistRow
5646             Get
5647                 Return Me.eventRow
5648             End Get
5649         End Property
5650
5651         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5652          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5653         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
5654             Get
5655                 Return Me.eventAction
5656             End Get
5657         End Property
5658     End Class
5659 End Class
5660
5661 Namespace NEADataSetTableAdapters
5662
5663     '''<summary>
5664     '''Represents the connection and commands used to retrieve and save data.
5665     '''</summary>
5666     <Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _
5667      Global.System.ComponentModel.ToolboxItem(true),  _
5668      Global.System.ComponentModel.DataObjectAttribute(true),  _
5669      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
5670         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _
5671      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
5672     Partial Public Class AchievementTableAdapter
5673         Inherits Global.System.ComponentModel.Component
5674
5675         Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter
5676
5677         Private _connection As Global.System.Data.OleDb.OleDbConnection
5678
5679         Private _transaction As Global.System.Data.OleDb.OleDbTransaction
5680
5681         Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
5682
5683         Private _clearBeforeFill As Boolean
5684
5685         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5686          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5687         Public Sub New()
5688             MyBase.New
5689             Me.ClearBeforeFill = true
5690         End Sub
5691
5692         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5693          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5694         Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
5695             Get
5696                 If (Me._adapter Is Nothing) Then
5697                     Me.InitAdapter
5698                 End If
5699                 Return Me._adapter
5700             End Get
5701         End Property
5702
5703         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5704          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5705         Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
5706             Get
5707                 If (Me._connection Is Nothing) Then
5708                     Me.InitConnection
5709                 End If
5710                 Return Me._connection
5711             End Get
5712             Set
5713                 Me._connection = value
5714                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
5715                     Me.Adapter.InsertCommand.Connection = value
5716                 End If
5717                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
5718                     Me.Adapter.DeleteCommand.Connection = value
5719                 End If
5720                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
5721                     Me.Adapter.UpdateCommand.Connection = value
5722                 End If
5723                 Dim i As Integer = 0
5724                 Do While (i < Me.CommandCollection.Length)
5725                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
5726                         CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value
5727                     End If
5728                     i = (i + 1)
5729                 Loop
5730             End Set
5731         End Property
5732
5733         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5734          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5735         Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
5736             Get
5737                 Return Me._transaction
5738             End Get
5739             Set
5740                 Me._transaction = value
5741                 Dim i As Integer = 0
5742                 Do While (i < Me.CommandCollection.Length)
5743                     Me.CommandCollection(i).Transaction = Me._transaction
5744                     i = (i + 1)
5745                 Loop
5746                 If ((Not (Me.Adapter) Is Nothing)  _
5747                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
5748                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
5749                 End If
5750                 If ((Not (Me.Adapter) Is Nothing)  _
5751                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
5752                     Me.Adapter.InsertCommand.Transaction = Me._transaction
5753                 End If
5754                 If ((Not (Me.Adapter) Is Nothing)  _
5755                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
5756                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
5757                 End If
5758             End Set
5759         End Property
5760
5761         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5762          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5763         Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
5764             Get
5765                 If (Me._commandCollection Is Nothing) Then
5766                     Me.InitCommandCollection
5767                 End If
5768                 Return Me._commandCollection
5769             End Get
5770         End Property
5771
5772         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5773          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5774         Public Property ClearBeforeFill() As Boolean
5775             Get
5776                 Return Me._clearBeforeFill
5777             End Get
5778             Set
5779                 Me._clearBeforeFill = value
5780             End Set
5781         End Property
5782
5783         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5784          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5785         Private Sub InitAdapter()
5786             Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
5787             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
5788             tableMapping.SourceTable = "Table"
5789             tableMapping.DataSetTable = "Achievement"
5790             tableMapping.ColumnMappings.Add("AchievementID", "AchievementID")
5791             tableMapping.ColumnMappings.Add("GameID", "GameID")
5792             tableMapping.ColumnMappings.Add("UserID", "UserID")
5793             tableMapping.ColumnMappings.Add("Achievment 1", "Achievment 1")
5794             tableMapping.ColumnMappings.Add("Achievment 2", "Achievment 2")
5795             tableMapping.ColumnMappings.Add("Achievment 3", "Achievment 3")
5796             tableMapping.ColumnMappings.Add("Achievment 4", "Achievment 4")
5797             tableMapping.ColumnMappings.Add("Achievment 5", "Achievment 5")
5798             Me._adapter.TableMappings.Add(tableMapping)
5799             Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand()
5800             Me._adapter.DeleteCommand.Connection = Me.Connection
5801             Me._adapter.DeleteCommand.CommandText = "DELETE FROM `Achievement` WHERE ((`AchievementID` = ?) AND ((? = 1 AND `GameID` I"& _
5802                 "S NULL) OR (`GameID` = ?)) AND ((? = 1 AND `UserID` IS NULL) OR (`UserID` = ?)))"& _
5803                 ""
5804             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
5805             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_AchievementID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "AchievementID", Global.System.Data.DataRowVersion.Original, false, Nothing))
5806             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, true, Nothing))
5807             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, false, Nothing))
5808             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Original, true, Nothing))
5809             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Original, false, Nothing))
5810             Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand()
5811             Me._adapter.InsertCommand.Connection = Me.Connection
5812             Me._adapter.InsertCommand.CommandText = "INSERT INTO `Achievement` (`GameID`, `UserID`, `Achievment 1`, `Achievment 2`, `A"& _
5813                 "chievment 3`, `Achievment 4`, `Achievment 5`) VALUES (?, ?, ?, ?, ?, ?, ?)"
5814             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
5815             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Current, false, Nothing))
5816             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Current, false, Nothing))
5817             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Achievment_1", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Achievment 1", Global.System.Data.DataRowVersion.Current, false, Nothing))
5818             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Achievment_2", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Achievment 2", Global.System.Data.DataRowVersion.Current, false, Nothing))
5819             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Achievment_3", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Achievment 3", Global.System.Data.DataRowVersion.Current, false, Nothing))
5820             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Achievment_4", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Achievment 4", Global.System.Data.DataRowVersion.Current, false, Nothing))
5821             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Achievment_5", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Achievment 5", Global.System.Data.DataRowVersion.Current, false, Nothing))
5822             Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand()
5823             Me._adapter.UpdateCommand.Connection = Me.Connection
5824             Me._adapter.UpdateCommand.CommandText = "UPDATE `Achievement` SET `GameID` = ?, `UserID` = ?, `Achievment 1` = ?, `Achievm"& _
5825                 "ent 2` = ?, `Achievment 3` = ?, `Achievment 4` = ?, `Achievment 5` = ? WHERE ((`"& _
5826                 "AchievementID` = ?) AND ((? = 1 AND `GameID` IS NULL) OR (`GameID` = ?)) AND ((?"& _
5827                 " = 1 AND `UserID` IS NULL) OR (`UserID` = ?)))"
5828             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
5829             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Current, false, Nothing))
5830             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Current, false, Nothing))
5831             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Achievment_1", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Achievment 1", Global.System.Data.DataRowVersion.Current, false, Nothing))
5832             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Achievment_2", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Achievment 2", Global.System.Data.DataRowVersion.Current, false, Nothing))
5833             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Achievment_3", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Achievment 3", Global.System.Data.DataRowVersion.Current, false, Nothing))
5834             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Achievment_4", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Achievment 4", Global.System.Data.DataRowVersion.Current, false, Nothing))
5835             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Achievment_5", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Achievment 5", Global.System.Data.DataRowVersion.Current, false, Nothing))
5836             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_AchievementID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "AchievementID", Global.System.Data.DataRowVersion.Original, false, Nothing))
5837             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, true, Nothing))
5838             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, false, Nothing))
5839             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Original, true, Nothing))
5840             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Original, false, Nothing))
5841         End Sub
5842
5843         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5844          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5845         Private Sub InitConnection()
5846             Me._connection = New Global.System.Data.OleDb.OleDbConnection()
5847             Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString2
5848         End Sub
5849
5850         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5851          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5852         Private Sub InitCommandCollection()
5853             Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {}
5854             Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
5855             Me._commandCollection(0).Connection = Me.Connection
5856             Me._commandCollection(0).CommandText = "SELECT AchievementID, GameID, UserID, [Achievment 1], [Achievment 2], [Achievment"& _
5857                 " 3], [Achievment 4], [Achievment 5] FROM Achievement"
5858             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
5859         End Sub
5860
5861         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5862          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
5863          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
5864          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _
5865         Public Overloads Overridable Function Fill(ByVal dataTable As NEADataSet.AchievementDataTable) As Integer
5866             Me.Adapter.SelectCommand = Me.CommandCollection(0)
5867             If (Me.ClearBeforeFill = true) Then
5868                 dataTable.Clear
5869             End If
5870             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
5871             Return returnValue
5872         End Function
5873
5874         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5875          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
5876          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
5877          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _
5878         Public Overloads Overridable Function GetData() As NEADataSet.AchievementDataTable
5879             Me.Adapter.SelectCommand = Me.CommandCollection(0)
5880             Dim dataTable As NEADataSet.AchievementDataTable = New NEADataSet.AchievementDataTable()
5881             Me.Adapter.Fill(dataTable)
5882             Return dataTable
5883         End Function
5884
5885         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5886          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
5887          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
5888         Public Overloads Overridable Function Update(ByVal dataTable As NEADataSet.AchievementDataTable) As Integer
5889             Return Me.Adapter.Update(dataTable)
5890         End Function
5891
5892         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5893          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
5894          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
5895         Public Overloads Overridable Function Update(ByVal dataSet As NEADataSet) As Integer
5896             Return Me.Adapter.Update(dataSet, "Achievement")
5897         End Function
5898
5899         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5900          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
5901          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
5902         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
5903             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
5904         End Function
5905
5906         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5907          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
5908          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
5909         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
5910             Return Me.Adapter.Update(dataRows)
5911         End Function
5912
5913         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5914          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
5915          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
5916          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _
5917         Public Overloads Overridable Function Delete(ByVal Original_AchievementID As Integer, ByVal Original_GameID As Global.System.Nullable(Of Integer), ByVal Original_UserID As Global.System.Nullable(Of Integer)) As Integer
5918             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_AchievementID,Integer)
5919             If (Original_GameID.HasValue = true) Then
5920                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
5921                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_GameID.Value,Integer)
5922             Else
5923                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
5924                 Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
5925             End If
5926             If (Original_UserID.HasValue = true) Then
5927                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
5928                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_UserID.Value,Integer)
5929             Else
5930                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
5931                 Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
5932             End If
5933             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
5934             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
5935                         <> Global.System.Data.ConnectionState.Open) Then
5936                 Me.Adapter.DeleteCommand.Connection.Open
5937             End If
5938             Try
5939                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
5940                 Return returnValue
5941             Finally
5942                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
5943                     Me.Adapter.DeleteCommand.Connection.Close
5944                 End If
5945             End Try
5946         End Function
5947
5948         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5949          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
5950          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
5951          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _
5952         Public Overloads Overridable Function Insert(ByVal GameID As Global.System.Nullable(Of Integer), ByVal UserID As Global.System.Nullable(Of Integer), ByVal Achievment_1 As String, ByVal Achievment_2 As String, ByVal Achievment_3 As String, ByVal Achievment_4 As String, ByVal Achievment_5 As String) As Integer
5953             If (GameID.HasValue = true) Then
5954                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(GameID.Value,Integer)
5955             Else
5956                 Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
5957             End If
5958             If (UserID.HasValue = true) Then
5959                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(UserID.Value,Integer)
5960             Else
5961                 Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
5962             End If
5963             If (Achievment_1 Is Nothing) Then
5964                 Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
5965             Else
5966                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(Achievment_1,String)
5967             End If
5968             If (Achievment_2 Is Nothing) Then
5969                 Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
5970             Else
5971                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(Achievment_2,String)
5972             End If
5973             If (Achievment_3 Is Nothing) Then
5974                 Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
5975             Else
5976                 Me.Adapter.InsertCommand.Parameters(4).Value = CType(Achievment_3,String)
5977             End If
5978             If (Achievment_4 Is Nothing) Then
5979                 Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
5980             Else
5981                 Me.Adapter.InsertCommand.Parameters(5).Value = CType(Achievment_4,String)
5982             End If
5983             If (Achievment_5 Is Nothing) Then
5984                 Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
5985             Else
5986                 Me.Adapter.InsertCommand.Parameters(6).Value = CType(Achievment_5,String)
5987             End If
5988             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
5989             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
5990                         <> Global.System.Data.ConnectionState.Open) Then
5991                 Me.Adapter.InsertCommand.Connection.Open
5992             End If
5993             Try
5994                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
5995                 Return returnValue
5996             Finally
5997                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
5998                     Me.Adapter.InsertCommand.Connection.Close
5999                 End If
6000             End Try
6001         End Function
6002
6003         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6004          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6005          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
6006          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _
6007         Public Overloads Overridable Function Update(ByVal GameID As Global.System.Nullable(Of Integer), ByVal UserID As Global.System.Nullable(Of Integer), ByVal Achievment_1 As String, ByVal Achievment_2 As String, ByVal Achievment_3 As String, ByVal Achievment_4 As String, ByVal Achievment_5 As String, ByVal Original_AchievementID As Integer, ByVal Original_GameID As Global.System.Nullable(Of Integer), ByVal Original_UserID As Global.System.Nullable(Of Integer)) As Integer
6008             If (GameID.HasValue = true) Then
6009                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(GameID.Value,Integer)
6010             Else
6011                 Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
6012             End If
6013             If (UserID.HasValue = true) Then
6014                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(UserID.Value,Integer)
6015             Else
6016                 Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
6017             End If
6018             If (Achievment_1 Is Nothing) Then
6019                 Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
6020             Else
6021                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Achievment_1,String)
6022             End If
6023             If (Achievment_2 Is Nothing) Then
6024                 Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
6025             Else
6026                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Achievment_2,String)
6027             End If
6028             If (Achievment_3 Is Nothing) Then
6029                 Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
6030             Else
6031                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Achievment_3,String)
6032             End If
6033             If (Achievment_4 Is Nothing) Then
6034                 Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
6035             Else
6036                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Achievment_4,String)
6037             End If
6038             If (Achievment_5 Is Nothing) Then
6039                 Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
6040             Else
6041                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Achievment_5,String)
6042             End If
6043             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_AchievementID,Integer)
6044             If (Original_GameID.HasValue = true) Then
6045                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(0,Object)
6046                 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GameID.Value,Integer)
6047             Else
6048                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(1,Object)
6049                 Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value
6050             End If
6051             If (Original_UserID.HasValue = true) Then
6052                 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object)
6053                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_UserID.Value,Integer)
6054             Else
6055                 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object)
6056                 Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
6057             End If
6058             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
6059             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
6060                         <> Global.System.Data.ConnectionState.Open) Then
6061                 Me.Adapter.UpdateCommand.Connection.Open
6062             End If
6063             Try
6064                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
6065                 Return returnValue
6066             Finally
6067                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
6068                     Me.Adapter.UpdateCommand.Connection.Close
6069                 End If
6070             End Try
6071         End Function
6072     End Class
6073
6074     '''<summary>
6075     '''Represents the connection and commands used to retrieve and save data.
6076     '''</summary>
6077     <Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _
6078      Global.System.ComponentModel.ToolboxItem(true),  _
6079      Global.System.ComponentModel.DataObjectAttribute(true),  _
6080      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
6081         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _
6082      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
6083     Partial Public Class DOWTableAdapter
6084         Inherits Global.System.ComponentModel.Component
6085
6086         Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter
6087
6088         Private _connection As Global.System.Data.OleDb.OleDbConnection
6089
6090         Private _transaction As Global.System.Data.OleDb.OleDbTransaction
6091
6092         Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
6093
6094         Private _clearBeforeFill As Boolean
6095
6096         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6097          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6098         Public Sub New()
6099             MyBase.New
6100             Me.ClearBeforeFill = true
6101         End Sub
6102
6103         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6104          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6105         Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
6106             Get
6107                 If (Me._adapter Is Nothing) Then
6108                     Me.InitAdapter
6109                 End If
6110                 Return Me._adapter
6111             End Get
6112         End Property
6113
6114         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6115          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6116         Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
6117             Get
6118                 If (Me._connection Is Nothing) Then
6119                     Me.InitConnection
6120                 End If
6121                 Return Me._connection
6122             End Get
6123             Set
6124                 Me._connection = value
6125                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
6126                     Me.Adapter.InsertCommand.Connection = value
6127                 End If
6128                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
6129                     Me.Adapter.DeleteCommand.Connection = value
6130                 End If
6131                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
6132                     Me.Adapter.UpdateCommand.Connection = value
6133                 End If
6134                 Dim i As Integer = 0
6135                 Do While (i < Me.CommandCollection.Length)
6136                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
6137                         CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value
6138                     End If
6139                     i = (i + 1)
6140                 Loop
6141             End Set
6142         End Property
6143
6144         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6145          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6146         Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
6147             Get
6148                 Return Me._transaction
6149             End Get
6150             Set
6151                 Me._transaction = value
6152                 Dim i As Integer = 0
6153                 Do While (i < Me.CommandCollection.Length)
6154                     Me.CommandCollection(i).Transaction = Me._transaction
6155                     i = (i + 1)
6156                 Loop
6157                 If ((Not (Me.Adapter) Is Nothing)  _
6158                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
6159                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
6160                 End If
6161                 If ((Not (Me.Adapter) Is Nothing)  _
6162                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
6163                     Me.Adapter.InsertCommand.Transaction = Me._transaction
6164                 End If
6165                 If ((Not (Me.Adapter) Is Nothing)  _
6166                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
6167                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
6168                 End If
6169             End Set
6170         End Property
6171
6172         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6173          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6174         Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
6175             Get
6176                 If (Me._commandCollection Is Nothing) Then
6177                     Me.InitCommandCollection
6178                 End If
6179                 Return Me._commandCollection
6180             End Get
6181         End Property
6182
6183         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6184          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6185         Public Property ClearBeforeFill() As Boolean
6186             Get
6187                 Return Me._clearBeforeFill
6188             End Get
6189             Set
6190                 Me._clearBeforeFill = value
6191             End Set
6192         End Property
6193
6194         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6195          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6196         Private Sub InitAdapter()
6197             Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
6198             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
6199             tableMapping.SourceTable = "Table"
6200             tableMapping.DataSetTable = "DOW"
6201             tableMapping.ColumnMappings.Add("DOWID", "DOWID")
6202             tableMapping.ColumnMappings.Add("Start", "Start")
6203             tableMapping.ColumnMappings.Add("End", "End")
6204             tableMapping.ColumnMappings.Add("GameID", "GameID")
6205             Me._adapter.TableMappings.Add(tableMapping)
6206             Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand()
6207             Me._adapter.DeleteCommand.Connection = Me.Connection
6208             Me._adapter.DeleteCommand.CommandText = "DELETE FROM `DOW` WHERE ((`DOWID` = ?) AND ((? = 1 AND `Start` IS NULL) OR (`Star"& _
6209                 "t` = ?)) AND ((? = 1 AND `End` IS NULL) OR (`End` = ?)) AND ((? = 1 AND `GameID`"& _
6210                 " IS NULL) OR (`GameID` = ?)))"
6211             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
6212             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_DOWID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "DOWID", Global.System.Data.DataRowVersion.Original, false, Nothing))
6213             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Start", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Start", Global.System.Data.DataRowVersion.Original, true, Nothing))
6214             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Start", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Start", Global.System.Data.DataRowVersion.Original, false, Nothing))
6215             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_End", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "End", Global.System.Data.DataRowVersion.Original, true, Nothing))
6216             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_End", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "End", Global.System.Data.DataRowVersion.Original, false, Nothing))
6217             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, true, Nothing))
6218             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, false, Nothing))
6219             Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand()
6220             Me._adapter.InsertCommand.Connection = Me.Connection
6221             Me._adapter.InsertCommand.CommandText = "INSERT INTO `DOW` (`Start`, `End`, `GameID`) VALUES (?, ?, ?)"
6222             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
6223             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Start", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Start", Global.System.Data.DataRowVersion.Current, false, Nothing))
6224             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("End", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "End", Global.System.Data.DataRowVersion.Current, false, Nothing))
6225             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Current, false, Nothing))
6226             Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand()
6227             Me._adapter.UpdateCommand.Connection = Me.Connection
6228             Me._adapter.UpdateCommand.CommandText = "UPDATE `DOW` SET `Start` = ?, `End` = ?, `GameID` = ? WHERE ((`DOWID` = ?) AND (("& _
6229                 "? = 1 AND `Start` IS NULL) OR (`Start` = ?)) AND ((? = 1 AND `End` IS NULL) OR ("& _
6230                 "`End` = ?)) AND ((? = 1 AND `GameID` IS NULL) OR (`GameID` = ?)))"
6231             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
6232             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Start", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Start", Global.System.Data.DataRowVersion.Current, false, Nothing))
6233             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("End", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "End", Global.System.Data.DataRowVersion.Current, false, Nothing))
6234             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Current, false, Nothing))
6235             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_DOWID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "DOWID", Global.System.Data.DataRowVersion.Original, false, Nothing))
6236             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Start", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Start", Global.System.Data.DataRowVersion.Original, true, Nothing))
6237             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Start", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Start", Global.System.Data.DataRowVersion.Original, false, Nothing))
6238             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_End", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "End", Global.System.Data.DataRowVersion.Original, true, Nothing))
6239             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_End", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "End", Global.System.Data.DataRowVersion.Original, false, Nothing))
6240             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, true, Nothing))
6241             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, false, Nothing))
6242         End Sub
6243
6244         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6245          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6246         Private Sub InitConnection()
6247             Me._connection = New Global.System.Data.OleDb.OleDbConnection()
6248             Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString2
6249         End Sub
6250
6251         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6252          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6253         Private Sub InitCommandCollection()
6254             Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {}
6255             Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
6256             Me._commandCollection(0).Connection = Me.Connection
6257             Me._commandCollection(0).CommandText = "SELECT DOWID, Start, [End], GameID FROM DOW"
6258             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
6259         End Sub
6260
6261         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6262          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6263          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
6264          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _
6265         Public Overloads Overridable Function Fill(ByVal dataTable As NEADataSet.DOWDataTable) As Integer
6266             Me.Adapter.SelectCommand = Me.CommandCollection(0)
6267             If (Me.ClearBeforeFill = true) Then
6268                 dataTable.Clear
6269             End If
6270             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
6271             Return returnValue
6272         End Function
6273
6274         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6275          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6276          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
6277          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _
6278         Public Overloads Overridable Function GetData() As NEADataSet.DOWDataTable
6279             Me.Adapter.SelectCommand = Me.CommandCollection(0)
6280             Dim dataTable As NEADataSet.DOWDataTable = New NEADataSet.DOWDataTable()
6281             Me.Adapter.Fill(dataTable)
6282             Return dataTable
6283         End Function
6284
6285         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6286          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6287          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
6288         Public Overloads Overridable Function Update(ByVal dataTable As NEADataSet.DOWDataTable) As Integer
6289             Return Me.Adapter.Update(dataTable)
6290         End Function
6291
6292         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6293          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6294          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
6295         Public Overloads Overridable Function Update(ByVal dataSet As NEADataSet) As Integer
6296             Return Me.Adapter.Update(dataSet, "DOW")
6297         End Function
6298
6299         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6300          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6301          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
6302         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
6303             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
6304         End Function
6305
6306         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6307          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6308          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
6309         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
6310             Return Me.Adapter.Update(dataRows)
6311         End Function
6312
6313         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6314          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6315          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
6316          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _
6317         Public Overloads Overridable Function Delete(ByVal Original_DOWID As Integer, ByVal Original_Start As Global.System.Nullable(Of Date), ByVal Original_End As Global.System.Nullable(Of Date), ByVal Original_GameID As Global.System.Nullable(Of Integer)) As Integer
6318             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_DOWID,Integer)
6319             If (Original_Start.HasValue = true) Then
6320                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
6321                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Start.Value,Date)
6322             Else
6323                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
6324                 Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
6325             End If
6326             If (Original_End.HasValue = true) Then
6327                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
6328                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_End.Value,Date)
6329             Else
6330                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
6331                 Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
6332             End If
6333             If (Original_GameID.HasValue = true) Then
6334                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
6335                 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_GameID.Value,Integer)
6336             Else
6337                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
6338                 Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
6339             End If
6340             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
6341             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
6342                         <> Global.System.Data.ConnectionState.Open) Then
6343                 Me.Adapter.DeleteCommand.Connection.Open
6344             End If
6345             Try
6346                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
6347                 Return returnValue
6348             Finally
6349                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
6350                     Me.Adapter.DeleteCommand.Connection.Close
6351                 End If
6352             End Try
6353         End Function
6354
6355         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6356          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6357          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
6358          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _
6359         Public Overloads Overridable Function Insert(ByVal Start As Global.System.Nullable(Of Date), ByVal _End As Global.System.Nullable(Of Date), ByVal GameID As Global.System.Nullable(Of Integer)) As Integer
6360             If (Start.HasValue = true) Then
6361                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(Start.Value,Date)
6362             Else
6363                 Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
6364             End If
6365             If (_End.HasValue = true) Then
6366                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(_End.Value,Date)
6367             Else
6368                 Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
6369             End If
6370             If (GameID.HasValue = true) Then
6371                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(GameID.Value,Integer)
6372             Else
6373                 Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
6374             End If
6375             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
6376             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
6377                         <> Global.System.Data.ConnectionState.Open) Then
6378                 Me.Adapter.InsertCommand.Connection.Open
6379             End If
6380             Try
6381                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
6382                 Return returnValue
6383             Finally
6384                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
6385                     Me.Adapter.InsertCommand.Connection.Close
6386                 End If
6387             End Try
6388         End Function
6389
6390         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6391          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6392          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
6393          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _
6394         Public Overloads Overridable Function Update(ByVal Start As Global.System.Nullable(Of Date), ByVal _End As Global.System.Nullable(Of Date), ByVal GameID As Global.System.Nullable(Of Integer), ByVal Original_DOWID As Integer, ByVal Original_Start As Global.System.Nullable(Of Date), ByVal Original_End As Global.System.Nullable(Of Date), ByVal Original_GameID As Global.System.Nullable(Of Integer)) As Integer
6395             If (Start.HasValue = true) Then
6396                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Start.Value,Date)
6397             Else
6398                 Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
6399             End If
6400             If (_End.HasValue = true) Then
6401                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(_End.Value,Date)
6402             Else
6403                 Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
6404             End If
6405             If (GameID.HasValue = true) Then
6406                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(GameID.Value,Integer)
6407             Else
6408                 Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
6409             End If
6410             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_DOWID,Integer)
6411             If (Original_Start.HasValue = true) Then
6412                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(0,Object)
6413                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_Start.Value,Date)
6414             Else
6415                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(1,Object)
6416                 Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
6417             End If
6418             If (Original_End.HasValue = true) Then
6419                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(0,Object)
6420                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_End.Value,Date)
6421             Else
6422                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(1,Object)
6423                 Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
6424             End If
6425             If (Original_GameID.HasValue = true) Then
6426                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(0,Object)
6427                 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GameID.Value,Integer)
6428             Else
6429                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(1,Object)
6430                 Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value
6431             End If
6432             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
6433             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
6434                         <> Global.System.Data.ConnectionState.Open) Then
6435                 Me.Adapter.UpdateCommand.Connection.Open
6436             End If
6437             Try
6438                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
6439                 Return returnValue
6440             Finally
6441                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
6442                     Me.Adapter.UpdateCommand.Connection.Close
6443                 End If
6444             End Try
6445         End Function
6446     End Class
6447
6448     '''<summary>
6449     '''Represents the connection and commands used to retrieve and save data.
6450     '''</summary>
6451     <Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _
6452      Global.System.ComponentModel.ToolboxItem(true),  _
6453      Global.System.ComponentModel.DataObjectAttribute(true),  _
6454      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
6455         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _
6456      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
6457     Partial Public Class FriendsTableAdapter
6458         Inherits Global.System.ComponentModel.Component
6459
6460         Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter
6461
6462         Private _connection As Global.System.Data.OleDb.OleDbConnection
6463
6464         Private _transaction As Global.System.Data.OleDb.OleDbTransaction
6465
6466         Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
6467
6468         Private _clearBeforeFill As Boolean
6469
6470         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6471          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6472         Public Sub New()
6473             MyBase.New
6474             Me.ClearBeforeFill = true
6475         End Sub
6476
6477         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6478          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6479         Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
6480             Get
6481                 If (Me._adapter Is Nothing) Then
6482                     Me.InitAdapter
6483                 End If
6484                 Return Me._adapter
6485             End Get
6486         End Property
6487
6488         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6489          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6490         Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
6491             Get
6492                 If (Me._connection Is Nothing) Then
6493                     Me.InitConnection
6494                 End If
6495                 Return Me._connection
6496             End Get
6497             Set
6498                 Me._connection = value
6499                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
6500                     Me.Adapter.InsertCommand.Connection = value
6501                 End If
6502                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
6503                     Me.Adapter.DeleteCommand.Connection = value
6504                 End If
6505                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
6506                     Me.Adapter.UpdateCommand.Connection = value
6507                 End If
6508                 Dim i As Integer = 0
6509                 Do While (i < Me.CommandCollection.Length)
6510                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
6511                         CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value
6512                     End If
6513                     i = (i + 1)
6514                 Loop
6515             End Set
6516         End Property
6517
6518         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6519          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6520         Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
6521             Get
6522                 Return Me._transaction
6523             End Get
6524             Set
6525                 Me._transaction = value
6526                 Dim i As Integer = 0
6527                 Do While (i < Me.CommandCollection.Length)
6528                     Me.CommandCollection(i).Transaction = Me._transaction
6529                     i = (i + 1)
6530                 Loop
6531                 If ((Not (Me.Adapter) Is Nothing)  _
6532                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
6533                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
6534                 End If
6535                 If ((Not (Me.Adapter) Is Nothing)  _
6536                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
6537                     Me.Adapter.InsertCommand.Transaction = Me._transaction
6538                 End If
6539                 If ((Not (Me.Adapter) Is Nothing)  _
6540                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
6541                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
6542                 End If
6543             End Set
6544         End Property
6545
6546         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6547          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6548         Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
6549             Get
6550                 If (Me._commandCollection Is Nothing) Then
6551                     Me.InitCommandCollection
6552                 End If
6553                 Return Me._commandCollection
6554             End Get
6555         End Property
6556
6557         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6558          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6559         Public Property ClearBeforeFill() As Boolean
6560             Get
6561                 Return Me._clearBeforeFill
6562             End Get
6563             Set
6564                 Me._clearBeforeFill = value
6565             End Set
6566         End Property
6567
6568         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6569          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6570         Private Sub InitAdapter()
6571             Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
6572             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
6573             tableMapping.SourceTable = "Table"
6574             tableMapping.DataSetTable = "Friends"
6575             tableMapping.ColumnMappings.Add("ID", "ID")
6576             tableMapping.ColumnMappings.Add("FriendID", "FriendID")
6577             tableMapping.ColumnMappings.Add("UserID", "UserID")
6578             Me._adapter.TableMappings.Add(tableMapping)
6579             Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand()
6580             Me._adapter.DeleteCommand.Connection = Me.Connection
6581             Me._adapter.DeleteCommand.CommandText = "DELETE FROM `Friends` WHERE ((`ID` = ?) AND ((? = 1 AND `FriendID` IS NULL) OR (`"& _
6582                 "FriendID` = ?)) AND ((? = 1 AND `UserID` IS NULL) OR (`UserID` = ?)))"
6583             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
6584             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ID", Global.System.Data.DataRowVersion.Original, false, Nothing))
6585             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_FriendID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "FriendID", Global.System.Data.DataRowVersion.Original, true, Nothing))
6586             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_FriendID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "FriendID", Global.System.Data.DataRowVersion.Original, false, Nothing))
6587             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Original, true, Nothing))
6588             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Original, false, Nothing))
6589             Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand()
6590             Me._adapter.InsertCommand.Connection = Me.Connection
6591             Me._adapter.InsertCommand.CommandText = "INSERT INTO `Friends` (`FriendID`, `UserID`) VALUES (?, ?)"
6592             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
6593             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("FriendID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "FriendID", Global.System.Data.DataRowVersion.Current, false, Nothing))
6594             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Current, false, Nothing))
6595             Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand()
6596             Me._adapter.UpdateCommand.Connection = Me.Connection
6597             Me._adapter.UpdateCommand.CommandText = "UPDATE `Friends` SET `FriendID` = ?, `UserID` = ? WHERE ((`ID` = ?) AND ((? = 1 A"& _
6598                 "ND `FriendID` IS NULL) OR (`FriendID` = ?)) AND ((? = 1 AND `UserID` IS NULL) OR"& _
6599                 " (`UserID` = ?)))"
6600             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
6601             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("FriendID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "FriendID", Global.System.Data.DataRowVersion.Current, false, Nothing))
6602             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Current, false, Nothing))
6603             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ID", Global.System.Data.DataRowVersion.Original, false, Nothing))
6604             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_FriendID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "FriendID", Global.System.Data.DataRowVersion.Original, true, Nothing))
6605             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_FriendID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "FriendID", Global.System.Data.DataRowVersion.Original, false, Nothing))
6606             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Original, true, Nothing))
6607             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Original, false, Nothing))
6608         End Sub
6609
6610         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6611          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6612         Private Sub InitConnection()
6613             Me._connection = New Global.System.Data.OleDb.OleDbConnection()
6614             Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString2
6615         End Sub
6616
6617         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6618          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6619         Private Sub InitCommandCollection()
6620             Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {}
6621             Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
6622             Me._commandCollection(0).Connection = Me.Connection
6623             Me._commandCollection(0).CommandText = "SELECT ID, FriendID, UserID FROM Friends"
6624             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
6625         End Sub
6626
6627         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6628          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6629          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
6630          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _
6631         Public Overloads Overridable Function Fill(ByVal dataTable As NEADataSet.FriendsDataTable) As Integer
6632             Me.Adapter.SelectCommand = Me.CommandCollection(0)
6633             If (Me.ClearBeforeFill = true) Then
6634                 dataTable.Clear
6635             End If
6636             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
6637             Return returnValue
6638         End Function
6639
6640         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6641          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6642          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
6643          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _
6644         Public Overloads Overridable Function GetData() As NEADataSet.FriendsDataTable
6645             Me.Adapter.SelectCommand = Me.CommandCollection(0)
6646             Dim dataTable As NEADataSet.FriendsDataTable = New NEADataSet.FriendsDataTable()
6647             Me.Adapter.Fill(dataTable)
6648             Return dataTable
6649         End Function
6650
6651         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6652          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6653          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
6654         Public Overloads Overridable Function Update(ByVal dataTable As NEADataSet.FriendsDataTable) As Integer
6655             Return Me.Adapter.Update(dataTable)
6656         End Function
6657
6658         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6659          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6660          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
6661         Public Overloads Overridable Function Update(ByVal dataSet As NEADataSet) As Integer
6662             Return Me.Adapter.Update(dataSet, "Friends")
6663         End Function
6664
6665         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6666          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6667          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
6668         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
6669             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
6670         End Function
6671
6672         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6673          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6674          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
6675         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
6676             Return Me.Adapter.Update(dataRows)
6677         End Function
6678
6679         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6680          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6681          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
6682          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _
6683         Public Overloads Overridable Function Delete(ByVal Original_ID As Integer, ByVal Original_FriendID As Integer, ByVal Original_UserID As Global.System.Nullable(Of Integer)) As Integer
6684             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,Integer)
6685             Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
6686             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_FriendID,Integer)
6687             If (Original_UserID.HasValue = true) Then
6688                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
6689                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_UserID.Value,Integer)
6690             Else
6691                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
6692                 Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
6693             End If
6694             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
6695             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
6696                         <> Global.System.Data.ConnectionState.Open) Then
6697                 Me.Adapter.DeleteCommand.Connection.Open
6698             End If
6699             Try
6700                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
6701                 Return returnValue
6702             Finally
6703                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
6704                     Me.Adapter.DeleteCommand.Connection.Close
6705                 End If
6706             End Try
6707         End Function
6708
6709         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6710          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6711          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
6712          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _
6713         Public Overloads Overridable Function Insert(ByVal FriendID As Integer, ByVal UserID As Global.System.Nullable(Of Integer)) As Integer
6714             Me.Adapter.InsertCommand.Parameters(0).Value = CType(FriendID,Integer)
6715             If (UserID.HasValue = true) Then
6716                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(UserID.Value,Integer)
6717             Else
6718                 Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
6719             End If
6720             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
6721             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
6722                         <> Global.System.Data.ConnectionState.Open) Then
6723                 Me.Adapter.InsertCommand.Connection.Open
6724             End If
6725             Try
6726                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
6727                 Return returnValue
6728             Finally
6729                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
6730                     Me.Adapter.InsertCommand.Connection.Close
6731                 End If
6732             End Try
6733         End Function
6734
6735         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6736          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6737          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
6738          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _
6739         Public Overloads Overridable Function Update(ByVal FriendID As Integer, ByVal UserID As Global.System.Nullable(Of Integer), ByVal Original_ID As Integer, ByVal Original_FriendID As Integer, ByVal Original_UserID As Global.System.Nullable(Of Integer)) As Integer
6740             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FriendID,Integer)
6741             If (UserID.HasValue = true) Then
6742                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(UserID.Value,Integer)
6743             Else
6744                 Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
6745             End If
6746             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_ID,Integer)
6747             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(0,Object)
6748             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_FriendID,Integer)
6749             If (Original_UserID.HasValue = true) Then
6750                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(0,Object)
6751                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_UserID.Value,Integer)
6752             Else
6753                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(1,Object)
6754                 Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
6755             End If
6756             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
6757             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
6758                         <> Global.System.Data.ConnectionState.Open) Then
6759                 Me.Adapter.UpdateCommand.Connection.Open
6760             End If
6761             Try
6762                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
6763                 Return returnValue
6764             Finally
6765                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
6766                     Me.Adapter.UpdateCommand.Connection.Close
6767                 End If
6768             End Try
6769         End Function
6770     End Class
6771
6772     '''<summary>
6773     '''Represents the connection and commands used to retrieve and save data.
6774     '''</summary>
6775     <Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _
6776      Global.System.ComponentModel.ToolboxItem(true),  _
6777      Global.System.ComponentModel.DataObjectAttribute(true),  _
6778      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
6779         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _
6780      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
6781     Partial Public Class GamesTableAdapter
6782         Inherits Global.System.ComponentModel.Component
6783
6784         Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter
6785
6786         Private _connection As Global.System.Data.OleDb.OleDbConnection
6787
6788         Private _transaction As Global.System.Data.OleDb.OleDbTransaction
6789
6790         Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
6791
6792         Private _clearBeforeFill As Boolean
6793
6794         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6795          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6796         Public Sub New()
6797             MyBase.New
6798             Me.ClearBeforeFill = true
6799         End Sub
6800
6801         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6802          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6803         Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
6804             Get
6805                 If (Me._adapter Is Nothing) Then
6806                     Me.InitAdapter
6807                 End If
6808                 Return Me._adapter
6809             End Get
6810         End Property
6811
6812         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6813          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6814         Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
6815             Get
6816                 If (Me._connection Is Nothing) Then
6817                     Me.InitConnection
6818                 End If
6819                 Return Me._connection
6820             End Get
6821             Set
6822                 Me._connection = value
6823                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
6824                     Me.Adapter.InsertCommand.Connection = value
6825                 End If
6826                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
6827                     Me.Adapter.DeleteCommand.Connection = value
6828                 End If
6829                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
6830                     Me.Adapter.UpdateCommand.Connection = value
6831                 End If
6832                 Dim i As Integer = 0
6833                 Do While (i < Me.CommandCollection.Length)
6834                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
6835                         CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value
6836                     End If
6837                     i = (i + 1)
6838                 Loop
6839             End Set
6840         End Property
6841
6842         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6843          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6844         Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
6845             Get
6846                 Return Me._transaction
6847             End Get
6848             Set
6849                 Me._transaction = value
6850                 Dim i As Integer = 0
6851                 Do While (i < Me.CommandCollection.Length)
6852                     Me.CommandCollection(i).Transaction = Me._transaction
6853                     i = (i + 1)
6854                 Loop
6855                 If ((Not (Me.Adapter) Is Nothing)  _
6856                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
6857                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
6858                 End If
6859                 If ((Not (Me.Adapter) Is Nothing)  _
6860                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
6861                     Me.Adapter.InsertCommand.Transaction = Me._transaction
6862                 End If
6863                 If ((Not (Me.Adapter) Is Nothing)  _
6864                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
6865                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
6866                 End If
6867             End Set
6868         End Property
6869
6870         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6871          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6872         Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
6873             Get
6874                 If (Me._commandCollection Is Nothing) Then
6875                     Me.InitCommandCollection
6876                 End If
6877                 Return Me._commandCollection
6878             End Get
6879         End Property
6880
6881         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6882          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6883         Public Property ClearBeforeFill() As Boolean
6884             Get
6885                 Return Me._clearBeforeFill
6886             End Get
6887             Set
6888                 Me._clearBeforeFill = value
6889             End Set
6890         End Property
6891
6892         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6893          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6894         Private Sub InitAdapter()
6895             Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
6896             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
6897             tableMapping.SourceTable = "Table"
6898             tableMapping.DataSetTable = "Games"
6899             tableMapping.ColumnMappings.Add("GameID", "GameID")
6900             tableMapping.ColumnMappings.Add("Name", "Name")
6901             tableMapping.ColumnMappings.Add("Price", "Price")
6902             tableMapping.ColumnMappings.Add("Rating", "Rating")
6903             tableMapping.ColumnMappings.Add("Certificate", "Certificate")
6904             tableMapping.ColumnMappings.Add("Dev", "Dev")
6905             tableMapping.ColumnMappings.Add("Publisher", "Publisher")
6906             tableMapping.ColumnMappings.Add("Icon", "Icon")
6907             tableMapping.ColumnMappings.Add("Tags", "Tags")
6908             tableMapping.ColumnMappings.Add("Theme Colour", "Theme Colour")
6909             Me._adapter.TableMappings.Add(tableMapping)
6910             Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand()
6911             Me._adapter.DeleteCommand.Connection = Me.Connection
6912             Me._adapter.DeleteCommand.CommandText = "DELETE FROM `Games` WHERE ((`GameID` = ?) AND ((? = 1 AND `Price` IS NULL) OR (`P"& _
6913                 "rice` = ?)) AND ((? = 1 AND `Rating` IS NULL) OR (`Rating` = ?)) AND ((? = 1 AND"& _
6914                 " `Certificate` IS NULL) OR (`Certificate` = ?)) AND ((? = 1 AND `Theme Colour` I"& _
6915                 "S NULL) OR (`Theme Colour` = ?)))"
6916             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
6917             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, false, Nothing))
6918             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Price", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Price", Global.System.Data.DataRowVersion.Original, true, Nothing))
6919             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Price", Global.System.Data.OleDb.OleDbType.Currency, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Price", Global.System.Data.DataRowVersion.Original, false, Nothing))
6920             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Rating", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Rating", Global.System.Data.DataRowVersion.Original, true, Nothing))
6921             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Rating", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Rating", Global.System.Data.DataRowVersion.Original, false, Nothing))
6922             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Certificate", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Certificate", Global.System.Data.DataRowVersion.Original, true, Nothing))
6923             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Certificate", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Certificate", Global.System.Data.DataRowVersion.Original, false, Nothing))
6924             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Theme_Colour", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Theme Colour", Global.System.Data.DataRowVersion.Original, true, Nothing))
6925             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Theme_Colour", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Theme Colour", Global.System.Data.DataRowVersion.Original, false, Nothing))
6926             Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand()
6927             Me._adapter.InsertCommand.Connection = Me.Connection
6928             Me._adapter.InsertCommand.CommandText = "INSERT INTO `Games` (`Name`, `Price`, `Rating`, `Certificate`, `Dev`, `Publisher`"& _
6929                 ", `Icon`, `Tags`, `Theme Colour`) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?)"
6930             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
6931             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Name", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Name", Global.System.Data.DataRowVersion.Current, false, Nothing))
6932             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Price", Global.System.Data.OleDb.OleDbType.Currency, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Price", Global.System.Data.DataRowVersion.Current, false, Nothing))
6933             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Rating", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Rating", Global.System.Data.DataRowVersion.Current, false, Nothing))
6934             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Certificate", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Certificate", Global.System.Data.DataRowVersion.Current, false, Nothing))
6935             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Dev", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Dev", Global.System.Data.DataRowVersion.Current, false, Nothing))
6936             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Publisher", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Publisher", Global.System.Data.DataRowVersion.Current, false, Nothing))
6937             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Icon", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Icon", Global.System.Data.DataRowVersion.Current, false, Nothing))
6938             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Tags", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Tags", Global.System.Data.DataRowVersion.Current, false, Nothing))
6939             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Theme_Colour", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Theme Colour", Global.System.Data.DataRowVersion.Current, false, Nothing))
6940             Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand()
6941             Me._adapter.UpdateCommand.Connection = Me.Connection
6942             Me._adapter.UpdateCommand.CommandText = "UPDATE `Games` SET `Name` = ?, `Price` = ?, `Rating` = ?, `Certificate` = ?, `Dev"& _
6943                 "` = ?, `Publisher` = ?, `Icon` = ?, `Tags` = ?, `Theme Colour` = ? WHERE ((`Game"& _
6944                 "ID` = ?) AND ((? = 1 AND `Price` IS NULL) OR (`Price` = ?)) AND ((? = 1 AND `Rat"& _
6945                 "ing` IS NULL) OR (`Rating` = ?)) AND ((? = 1 AND `Certificate` IS NULL) OR (`Cer"& _
6946                 "tificate` = ?)) AND ((? = 1 AND `Theme Colour` IS NULL) OR (`Theme Colour` = ?))"& _
6947                 ")"
6948             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
6949             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Name", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Name", Global.System.Data.DataRowVersion.Current, false, Nothing))
6950             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Price", Global.System.Data.OleDb.OleDbType.Currency, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Price", Global.System.Data.DataRowVersion.Current, false, Nothing))
6951             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Rating", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Rating", Global.System.Data.DataRowVersion.Current, false, Nothing))
6952             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Certificate", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Certificate", Global.System.Data.DataRowVersion.Current, false, Nothing))
6953             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Dev", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Dev", Global.System.Data.DataRowVersion.Current, false, Nothing))
6954             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Publisher", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Publisher", Global.System.Data.DataRowVersion.Current, false, Nothing))
6955             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Icon", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Icon", Global.System.Data.DataRowVersion.Current, false, Nothing))
6956             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Tags", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Tags", Global.System.Data.DataRowVersion.Current, false, Nothing))
6957             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Theme_Colour", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Theme Colour", Global.System.Data.DataRowVersion.Current, false, Nothing))
6958             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, false, Nothing))
6959             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Price", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Price", Global.System.Data.DataRowVersion.Original, true, Nothing))
6960             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Price", Global.System.Data.OleDb.OleDbType.Currency, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Price", Global.System.Data.DataRowVersion.Original, false, Nothing))
6961             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Rating", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Rating", Global.System.Data.DataRowVersion.Original, true, Nothing))
6962             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Rating", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Rating", Global.System.Data.DataRowVersion.Original, false, Nothing))
6963             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Certificate", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Certificate", Global.System.Data.DataRowVersion.Original, true, Nothing))
6964             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Certificate", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Certificate", Global.System.Data.DataRowVersion.Original, false, Nothing))
6965             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Theme_Colour", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Theme Colour", Global.System.Data.DataRowVersion.Original, true, Nothing))
6966             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Theme_Colour", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Theme Colour", Global.System.Data.DataRowVersion.Original, false, Nothing))
6967         End Sub
6968
6969         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6970          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6971         Private Sub InitConnection()
6972             Me._connection = New Global.System.Data.OleDb.OleDbConnection()
6973             Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString2
6974         End Sub
6975
6976         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6977          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6978         Private Sub InitCommandCollection()
6979             Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {}
6980             Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
6981             Me._commandCollection(0).Connection = Me.Connection
6982             Me._commandCollection(0).CommandText = "SELECT GameID, Name, Price, Rating, Certificate, Dev, Publisher, Icon, Tags, [The"& _
6983                 "me Colour] FROM Games"
6984             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
6985         End Sub
6986
6987         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6988          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6989          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
6990          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _
6991         Public Overloads Overridable Function Fill(ByVal dataTable As NEADataSet.GamesDataTable) As Integer
6992             Me.Adapter.SelectCommand = Me.CommandCollection(0)
6993             If (Me.ClearBeforeFill = true) Then
6994                 dataTable.Clear
6995             End If
6996             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
6997             Return returnValue
6998         End Function
6999
7000         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7001          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7002          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
7003          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _
7004         Public Overloads Overridable Function GetData() As NEADataSet.GamesDataTable
7005             Me.Adapter.SelectCommand = Me.CommandCollection(0)
7006             Dim dataTable As NEADataSet.GamesDataTable = New NEADataSet.GamesDataTable()
7007             Me.Adapter.Fill(dataTable)
7008             Return dataTable
7009         End Function
7010
7011         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7012          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7013          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7014         Public Overloads Overridable Function Update(ByVal dataTable As NEADataSet.GamesDataTable) As Integer
7015             Return Me.Adapter.Update(dataTable)
7016         End Function
7017
7018         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7019          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7020          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7021         Public Overloads Overridable Function Update(ByVal dataSet As NEADataSet) As Integer
7022             Return Me.Adapter.Update(dataSet, "Games")
7023         End Function
7024
7025         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7026          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7027          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7028         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
7029             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
7030         End Function
7031
7032         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7033          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7034          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7035         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
7036             Return Me.Adapter.Update(dataRows)
7037         End Function
7038
7039         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7040          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7041          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
7042          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _
7043         Public Overloads Overridable Function Delete(ByVal Original_GameID As Integer, ByVal Original_Price As Global.System.Nullable(Of Decimal), ByVal Original_Rating As Global.System.Nullable(Of Integer), ByVal Original_Certificate As Global.System.Nullable(Of Integer), ByVal Original_Theme_Colour As Global.System.Nullable(Of Integer)) As Integer
7044             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GameID,Integer)
7045             If (Original_Price.HasValue = true) Then
7046                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
7047                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Price.Value,Decimal)
7048             Else
7049                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
7050                 Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
7051             End If
7052             If (Original_Rating.HasValue = true) Then
7053                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
7054                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Rating.Value,Integer)
7055             Else
7056                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
7057                 Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
7058             End If
7059             If (Original_Certificate.HasValue = true) Then
7060                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
7061                 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_Certificate.Value,Integer)
7062             Else
7063                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
7064                 Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
7065             End If
7066             If (Original_Theme_Colour.HasValue = true) Then
7067                 Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object)
7068                 Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_Theme_Colour.Value,Integer)
7069             Else
7070                 Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object)
7071                 Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value
7072             End If
7073             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
7074             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
7075                         <> Global.System.Data.ConnectionState.Open) Then
7076                 Me.Adapter.DeleteCommand.Connection.Open
7077             End If
7078             Try
7079                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
7080                 Return returnValue
7081             Finally
7082                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
7083                     Me.Adapter.DeleteCommand.Connection.Close
7084                 End If
7085             End Try
7086         End Function
7087
7088         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7089          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7090          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
7091          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _
7092         Public Overloads Overridable Function Insert(ByVal Name As String, ByVal Price As Global.System.Nullable(Of Decimal), ByVal Rating As Global.System.Nullable(Of Integer), ByVal Certificate As Global.System.Nullable(Of Integer), ByVal Dev As String, ByVal Publisher As String, ByVal Icon As String, ByVal Tags As String, ByVal Theme_Colour As Global.System.Nullable(Of Integer)) As Integer
7093             If (Name Is Nothing) Then
7094                 Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
7095             Else
7096                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(Name,String)
7097             End If
7098             If (Price.HasValue = true) Then
7099                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(Price.Value,Decimal)
7100             Else
7101                 Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
7102             End If
7103             If (Rating.HasValue = true) Then
7104                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(Rating.Value,Integer)
7105             Else
7106                 Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
7107             End If
7108             If (Certificate.HasValue = true) Then
7109                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(Certificate.Value,Integer)
7110             Else
7111                 Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
7112             End If
7113             If (Dev Is Nothing) Then
7114                 Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
7115             Else
7116                 Me.Adapter.InsertCommand.Parameters(4).Value = CType(Dev,String)
7117             End If
7118             If (Publisher Is Nothing) Then
7119                 Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
7120             Else
7121                 Me.Adapter.InsertCommand.Parameters(5).Value = CType(Publisher,String)
7122             End If
7123             If (Icon Is Nothing) Then
7124                 Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
7125             Else
7126                 Me.Adapter.InsertCommand.Parameters(6).Value = CType(Icon,String)
7127             End If
7128             If (Tags Is Nothing) Then
7129                 Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
7130             Else
7131                 Me.Adapter.InsertCommand.Parameters(7).Value = CType(Tags,String)
7132             End If
7133             If (Theme_Colour.HasValue = true) Then
7134                 Me.Adapter.InsertCommand.Parameters(8).Value = CType(Theme_Colour.Value,Integer)
7135             Else
7136                 Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value
7137             End If
7138             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
7139             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
7140                         <> Global.System.Data.ConnectionState.Open) Then
7141                 Me.Adapter.InsertCommand.Connection.Open
7142             End If
7143             Try
7144                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
7145                 Return returnValue
7146             Finally
7147                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
7148                     Me.Adapter.InsertCommand.Connection.Close
7149                 End If
7150             End Try
7151         End Function
7152
7153         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7154          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7155          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
7156          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _
7157         Public Overloads Overridable Function Update(ByVal Name As String, ByVal Price As Global.System.Nullable(Of Decimal), ByVal Rating As Global.System.Nullable(Of Integer), ByVal Certificate As Global.System.Nullable(Of Integer), ByVal Dev As String, ByVal Publisher As String, ByVal Icon As String, ByVal Tags As String, ByVal Theme_Colour As Global.System.Nullable(Of Integer), ByVal Original_GameID As Integer, ByVal Original_Price As Global.System.Nullable(Of Decimal), ByVal Original_Rating As Global.System.Nullable(Of Integer), ByVal Original_Certificate As Global.System.Nullable(Of Integer), ByVal Original_Theme_Colour As Global.System.Nullable(Of Integer)) As Integer
7158             If (Name Is Nothing) Then
7159                 Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
7160             Else
7161                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Name,String)
7162             End If
7163             If (Price.HasValue = true) Then
7164                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Price.Value,Decimal)
7165             Else
7166                 Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
7167             End If
7168             If (Rating.HasValue = true) Then
7169                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Rating.Value,Integer)
7170             Else
7171                 Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
7172             End If
7173             If (Certificate.HasValue = true) Then
7174                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Certificate.Value,Integer)
7175             Else
7176                 Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
7177             End If
7178             If (Dev Is Nothing) Then
7179                 Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
7180             Else
7181                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Dev,String)
7182             End If
7183             If (Publisher Is Nothing) Then
7184                 Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
7185             Else
7186                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Publisher,String)
7187             End If
7188             If (Icon Is Nothing) Then
7189                 Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
7190             Else
7191                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Icon,String)
7192             End If
7193             If (Tags Is Nothing) Then
7194                 Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
7195             Else
7196                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Tags,String)
7197             End If
7198             If (Theme_Colour.HasValue = true) Then
7199                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Theme_Colour.Value,Integer)
7200             Else
7201                 Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
7202             End If
7203             Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GameID,Integer)
7204             If (Original_Price.HasValue = true) Then
7205                 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object)
7206                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_Price.Value,Decimal)
7207             Else
7208                 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object)
7209                 Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
7210             End If
7211             If (Original_Rating.HasValue = true) Then
7212                 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object)
7213                 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_Rating.Value,Integer)
7214             Else
7215                 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object)
7216                 Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
7217             End If
7218             If (Original_Certificate.HasValue = true) Then
7219                 Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object)
7220                 Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_Certificate.Value,Integer)
7221             Else
7222                 Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object)
7223                 Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value
7224             End If
7225             If (Original_Theme_Colour.HasValue = true) Then
7226                 Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object)
7227                 Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_Theme_Colour.Value,Integer)
7228             Else
7229                 Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object)
7230                 Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value
7231             End If
7232             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
7233             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
7234                         <> Global.System.Data.ConnectionState.Open) Then
7235                 Me.Adapter.UpdateCommand.Connection.Open
7236             End If
7237             Try
7238                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
7239                 Return returnValue
7240             Finally
7241                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
7242                     Me.Adapter.UpdateCommand.Connection.Close
7243                 End If
7244             End Try
7245         End Function
7246     End Class
7247
7248     '''<summary>
7249     '''Represents the connection and commands used to retrieve and save data.
7250     '''</summary>
7251     <Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _
7252      Global.System.ComponentModel.ToolboxItem(true),  _
7253      Global.System.ComponentModel.DataObjectAttribute(true),  _
7254      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
7255         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _
7256      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7257     Partial Public Class PurchasedTableAdapter
7258         Inherits Global.System.ComponentModel.Component
7259
7260         Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter
7261
7262         Private _connection As Global.System.Data.OleDb.OleDbConnection
7263
7264         Private _transaction As Global.System.Data.OleDb.OleDbTransaction
7265
7266         Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
7267
7268         Private _clearBeforeFill As Boolean
7269
7270         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7271          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7272         Public Sub New()
7273             MyBase.New
7274             Me.ClearBeforeFill = true
7275         End Sub
7276
7277         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7278          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7279         Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
7280             Get
7281                 If (Me._adapter Is Nothing) Then
7282                     Me.InitAdapter
7283                 End If
7284                 Return Me._adapter
7285             End Get
7286         End Property
7287
7288         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7289          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7290         Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
7291             Get
7292                 If (Me._connection Is Nothing) Then
7293                     Me.InitConnection
7294                 End If
7295                 Return Me._connection
7296             End Get
7297             Set
7298                 Me._connection = value
7299                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
7300                     Me.Adapter.InsertCommand.Connection = value
7301                 End If
7302                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
7303                     Me.Adapter.DeleteCommand.Connection = value
7304                 End If
7305                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
7306                     Me.Adapter.UpdateCommand.Connection = value
7307                 End If
7308                 Dim i As Integer = 0
7309                 Do While (i < Me.CommandCollection.Length)
7310                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
7311                         CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value
7312                     End If
7313                     i = (i + 1)
7314                 Loop
7315             End Set
7316         End Property
7317
7318         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7319          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7320         Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
7321             Get
7322                 Return Me._transaction
7323             End Get
7324             Set
7325                 Me._transaction = value
7326                 Dim i As Integer = 0
7327                 Do While (i < Me.CommandCollection.Length)
7328                     Me.CommandCollection(i).Transaction = Me._transaction
7329                     i = (i + 1)
7330                 Loop
7331                 If ((Not (Me.Adapter) Is Nothing)  _
7332                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
7333                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
7334                 End If
7335                 If ((Not (Me.Adapter) Is Nothing)  _
7336                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
7337                     Me.Adapter.InsertCommand.Transaction = Me._transaction
7338                 End If
7339                 If ((Not (Me.Adapter) Is Nothing)  _
7340                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
7341                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
7342                 End If
7343             End Set
7344         End Property
7345
7346         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7347          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7348         Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
7349             Get
7350                 If (Me._commandCollection Is Nothing) Then
7351                     Me.InitCommandCollection
7352                 End If
7353                 Return Me._commandCollection
7354             End Get
7355         End Property
7356
7357         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7358          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7359         Public Property ClearBeforeFill() As Boolean
7360             Get
7361                 Return Me._clearBeforeFill
7362             End Get
7363             Set
7364                 Me._clearBeforeFill = value
7365             End Set
7366         End Property
7367
7368         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7369          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7370         Private Sub InitAdapter()
7371             Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
7372             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
7373             tableMapping.SourceTable = "Table"
7374             tableMapping.DataSetTable = "Purchased"
7375             tableMapping.ColumnMappings.Add("PurchaseID", "PurchaseID")
7376             tableMapping.ColumnMappings.Add("UserID", "UserID")
7377             tableMapping.ColumnMappings.Add("GameID", "GameID")
7378             Me._adapter.TableMappings.Add(tableMapping)
7379             Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand()
7380             Me._adapter.DeleteCommand.Connection = Me.Connection
7381             Me._adapter.DeleteCommand.CommandText = "DELETE FROM `Purchased` WHERE ((`PurchaseID` = ?) AND ((? = 1 AND `UserID` IS NUL"& _
7382                 "L) OR (`UserID` = ?)) AND ((? = 1 AND `GameID` IS NULL) OR (`GameID` = ?)))"
7383             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
7384             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_PurchaseID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "PurchaseID", Global.System.Data.DataRowVersion.Original, false, Nothing))
7385             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Original, true, Nothing))
7386             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Original, false, Nothing))
7387             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, true, Nothing))
7388             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, false, Nothing))
7389             Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand()
7390             Me._adapter.InsertCommand.Connection = Me.Connection
7391             Me._adapter.InsertCommand.CommandText = "INSERT INTO `Purchased` (`UserID`, `GameID`) VALUES (?, ?)"
7392             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
7393             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Current, false, Nothing))
7394             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Current, false, Nothing))
7395             Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand()
7396             Me._adapter.UpdateCommand.Connection = Me.Connection
7397             Me._adapter.UpdateCommand.CommandText = "UPDATE `Purchased` SET `UserID` = ?, `GameID` = ? WHERE ((`PurchaseID` = ?) AND ("& _
7398                 "(? = 1 AND `UserID` IS NULL) OR (`UserID` = ?)) AND ((? = 1 AND `GameID` IS NULL"& _
7399                 ") OR (`GameID` = ?)))"
7400             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
7401             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Current, false, Nothing))
7402             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Current, false, Nothing))
7403             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_PurchaseID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "PurchaseID", Global.System.Data.DataRowVersion.Original, false, Nothing))
7404             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Original, true, Nothing))
7405             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Original, false, Nothing))
7406             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, true, Nothing))
7407             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, false, Nothing))
7408         End Sub
7409
7410         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7411          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7412         Private Sub InitConnection()
7413             Me._connection = New Global.System.Data.OleDb.OleDbConnection()
7414             Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString2
7415         End Sub
7416
7417         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7418          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7419         Private Sub InitCommandCollection()
7420             Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {}
7421             Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
7422             Me._commandCollection(0).Connection = Me.Connection
7423             Me._commandCollection(0).CommandText = "SELECT PurchaseID, UserID, GameID FROM Purchased"
7424             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
7425         End Sub
7426
7427         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7428          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7429          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
7430          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _
7431         Public Overloads Overridable Function Fill(ByVal dataTable As NEADataSet.PurchasedDataTable) As Integer
7432             Me.Adapter.SelectCommand = Me.CommandCollection(0)
7433             If (Me.ClearBeforeFill = true) Then
7434                 dataTable.Clear
7435             End If
7436             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
7437             Return returnValue
7438         End Function
7439
7440         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7441          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7442          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
7443          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _
7444         Public Overloads Overridable Function GetData() As NEADataSet.PurchasedDataTable
7445             Me.Adapter.SelectCommand = Me.CommandCollection(0)
7446             Dim dataTable As NEADataSet.PurchasedDataTable = New NEADataSet.PurchasedDataTable()
7447             Me.Adapter.Fill(dataTable)
7448             Return dataTable
7449         End Function
7450
7451         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7452          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7453          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7454         Public Overloads Overridable Function Update(ByVal dataTable As NEADataSet.PurchasedDataTable) As Integer
7455             Return Me.Adapter.Update(dataTable)
7456         End Function
7457
7458         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7459          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7460          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7461         Public Overloads Overridable Function Update(ByVal dataSet As NEADataSet) As Integer
7462             Return Me.Adapter.Update(dataSet, "Purchased")
7463         End Function
7464
7465         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7466          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7467          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7468         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
7469             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
7470         End Function
7471
7472         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7473          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7474          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7475         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
7476             Return Me.Adapter.Update(dataRows)
7477         End Function
7478
7479         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7480          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7481          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
7482          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _
7483         Public Overloads Overridable Function Delete(ByVal Original_PurchaseID As Integer, ByVal Original_UserID As Global.System.Nullable(Of Integer), ByVal Original_GameID As Global.System.Nullable(Of Integer)) As Integer
7484             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_PurchaseID,Integer)
7485             If (Original_UserID.HasValue = true) Then
7486                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
7487                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_UserID.Value,Integer)
7488             Else
7489                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
7490                 Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
7491             End If
7492             If (Original_GameID.HasValue = true) Then
7493                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
7494                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_GameID.Value,Integer)
7495             Else
7496                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
7497                 Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
7498             End If
7499             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
7500             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
7501                         <> Global.System.Data.ConnectionState.Open) Then
7502                 Me.Adapter.DeleteCommand.Connection.Open
7503             End If
7504             Try
7505                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
7506                 Return returnValue
7507             Finally
7508                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
7509                     Me.Adapter.DeleteCommand.Connection.Close
7510                 End If
7511             End Try
7512         End Function
7513
7514         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7515          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7516          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
7517          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _
7518         Public Overloads Overridable Function Insert(ByVal UserID As Global.System.Nullable(Of Integer), ByVal GameID As Global.System.Nullable(Of Integer)) As Integer
7519             If (UserID.HasValue = true) Then
7520                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(UserID.Value,Integer)
7521             Else
7522                 Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
7523             End If
7524             If (GameID.HasValue = true) Then
7525                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(GameID.Value,Integer)
7526             Else
7527                 Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
7528             End If
7529             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
7530             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
7531                         <> Global.System.Data.ConnectionState.Open) Then
7532                 Me.Adapter.InsertCommand.Connection.Open
7533             End If
7534             Try
7535                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
7536                 Return returnValue
7537             Finally
7538                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
7539                     Me.Adapter.InsertCommand.Connection.Close
7540                 End If
7541             End Try
7542         End Function
7543
7544         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7545          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7546          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
7547          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _
7548         Public Overloads Overridable Function Update(ByVal UserID As Global.System.Nullable(Of Integer), ByVal GameID As Global.System.Nullable(Of Integer), ByVal Original_PurchaseID As Integer, ByVal Original_UserID As Global.System.Nullable(Of Integer), ByVal Original_GameID As Global.System.Nullable(Of Integer)) As Integer
7549             If (UserID.HasValue = true) Then
7550                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(UserID.Value,Integer)
7551             Else
7552                 Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
7553             End If
7554             If (GameID.HasValue = true) Then
7555                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(GameID.Value,Integer)
7556             Else
7557                 Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
7558             End If
7559             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_PurchaseID,Integer)
7560             If (Original_UserID.HasValue = true) Then
7561                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(0,Object)
7562                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_UserID.Value,Integer)
7563             Else
7564                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(1,Object)
7565                 Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
7566             End If
7567             If (Original_GameID.HasValue = true) Then
7568                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(0,Object)
7569                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GameID.Value,Integer)
7570             Else
7571                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(1,Object)
7572                 Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
7573             End If
7574             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
7575             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
7576                         <> Global.System.Data.ConnectionState.Open) Then
7577                 Me.Adapter.UpdateCommand.Connection.Open
7578             End If
7579             Try
7580                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
7581                 Return returnValue
7582             Finally
7583                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
7584                     Me.Adapter.UpdateCommand.Connection.Close
7585                 End If
7586             End Try
7587         End Function
7588     End Class
7589
7590     '''<summary>
7591     '''Represents the connection and commands used to retrieve and save data.
7592     '''</summary>
7593     <Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _
7594      Global.System.ComponentModel.ToolboxItem(true),  _
7595      Global.System.ComponentModel.DataObjectAttribute(true),  _
7596      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
7597         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _
7598      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7599     Partial Public Class ReviewsTableAdapter
7600         Inherits Global.System.ComponentModel.Component
7601
7602         Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter
7603
7604         Private _connection As Global.System.Data.OleDb.OleDbConnection
7605
7606         Private _transaction As Global.System.Data.OleDb.OleDbTransaction
7607
7608         Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
7609
7610         Private _clearBeforeFill As Boolean
7611
7612         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7613          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7614         Public Sub New()
7615             MyBase.New
7616             Me.ClearBeforeFill = true
7617         End Sub
7618
7619         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7620          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7621         Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
7622             Get
7623                 If (Me._adapter Is Nothing) Then
7624                     Me.InitAdapter
7625                 End If
7626                 Return Me._adapter
7627             End Get
7628         End Property
7629
7630         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7631          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7632         Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
7633             Get
7634                 If (Me._connection Is Nothing) Then
7635                     Me.InitConnection
7636                 End If
7637                 Return Me._connection
7638             End Get
7639             Set
7640                 Me._connection = value
7641                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
7642                     Me.Adapter.InsertCommand.Connection = value
7643                 End If
7644                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
7645                     Me.Adapter.DeleteCommand.Connection = value
7646                 End If
7647                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
7648                     Me.Adapter.UpdateCommand.Connection = value
7649                 End If
7650                 Dim i As Integer = 0
7651                 Do While (i < Me.CommandCollection.Length)
7652                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
7653                         CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value
7654                     End If
7655                     i = (i + 1)
7656                 Loop
7657             End Set
7658         End Property
7659
7660         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7661          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7662         Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
7663             Get
7664                 Return Me._transaction
7665             End Get
7666             Set
7667                 Me._transaction = value
7668                 Dim i As Integer = 0
7669                 Do While (i < Me.CommandCollection.Length)
7670                     Me.CommandCollection(i).Transaction = Me._transaction
7671                     i = (i + 1)
7672                 Loop
7673                 If ((Not (Me.Adapter) Is Nothing)  _
7674                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
7675                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
7676                 End If
7677                 If ((Not (Me.Adapter) Is Nothing)  _
7678                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
7679                     Me.Adapter.InsertCommand.Transaction = Me._transaction
7680                 End If
7681                 If ((Not (Me.Adapter) Is Nothing)  _
7682                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
7683                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
7684                 End If
7685             End Set
7686         End Property
7687
7688         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7689          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7690         Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
7691             Get
7692                 If (Me._commandCollection Is Nothing) Then
7693                     Me.InitCommandCollection
7694                 End If
7695                 Return Me._commandCollection
7696             End Get
7697         End Property
7698
7699         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7700          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7701         Public Property ClearBeforeFill() As Boolean
7702             Get
7703                 Return Me._clearBeforeFill
7704             End Get
7705             Set
7706                 Me._clearBeforeFill = value
7707             End Set
7708         End Property
7709
7710         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7711          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7712         Private Sub InitAdapter()
7713             Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
7714             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
7715             tableMapping.SourceTable = "Table"
7716             tableMapping.DataSetTable = "Reviews"
7717             tableMapping.ColumnMappings.Add("ReviewID", "ReviewID")
7718             tableMapping.ColumnMappings.Add("GameID", "GameID")
7719             tableMapping.ColumnMappings.Add("Review", "Review")
7720             Me._adapter.TableMappings.Add(tableMapping)
7721             Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand()
7722             Me._adapter.DeleteCommand.Connection = Me.Connection
7723             Me._adapter.DeleteCommand.CommandText = "DELETE FROM `Reviews` WHERE ((`ReviewID` = ?) AND ((? = 1 AND `GameID` IS NULL) O"& _
7724                 "R (`GameID` = ?)))"
7725             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
7726             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_ReviewID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ReviewID", Global.System.Data.DataRowVersion.Original, false, Nothing))
7727             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, true, Nothing))
7728             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, false, Nothing))
7729             Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand()
7730             Me._adapter.InsertCommand.Connection = Me.Connection
7731             Me._adapter.InsertCommand.CommandText = "INSERT INTO `Reviews` (`GameID`, `Review`) VALUES (?, ?)"
7732             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
7733             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Current, false, Nothing))
7734             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Review", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Review", Global.System.Data.DataRowVersion.Current, false, Nothing))
7735             Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand()
7736             Me._adapter.UpdateCommand.Connection = Me.Connection
7737             Me._adapter.UpdateCommand.CommandText = "UPDATE `Reviews` SET `GameID` = ?, `Review` = ? WHERE ((`ReviewID` = ?) AND ((? ="& _
7738                 " 1 AND `GameID` IS NULL) OR (`GameID` = ?)))"
7739             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
7740             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Current, false, Nothing))
7741             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Review", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Review", Global.System.Data.DataRowVersion.Current, false, Nothing))
7742             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_ReviewID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ReviewID", Global.System.Data.DataRowVersion.Original, false, Nothing))
7743             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, true, Nothing))
7744             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, false, Nothing))
7745         End Sub
7746
7747         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7748          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7749         Private Sub InitConnection()
7750             Me._connection = New Global.System.Data.OleDb.OleDbConnection()
7751             Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString2
7752         End Sub
7753
7754         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7755          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7756         Private Sub InitCommandCollection()
7757             Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {}
7758             Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
7759             Me._commandCollection(0).Connection = Me.Connection
7760             Me._commandCollection(0).CommandText = "SELECT ReviewID, GameID, Review FROM Reviews"
7761             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
7762         End Sub
7763
7764         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7765          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7766          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
7767          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _
7768         Public Overloads Overridable Function Fill(ByVal dataTable As NEADataSet.ReviewsDataTable) As Integer
7769             Me.Adapter.SelectCommand = Me.CommandCollection(0)
7770             If (Me.ClearBeforeFill = true) Then
7771                 dataTable.Clear
7772             End If
7773             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
7774             Return returnValue
7775         End Function
7776
7777         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7778          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7779          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
7780          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _
7781         Public Overloads Overridable Function GetData() As NEADataSet.ReviewsDataTable
7782             Me.Adapter.SelectCommand = Me.CommandCollection(0)
7783             Dim dataTable As NEADataSet.ReviewsDataTable = New NEADataSet.ReviewsDataTable()
7784             Me.Adapter.Fill(dataTable)
7785             Return dataTable
7786         End Function
7787
7788         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7789          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7790          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7791         Public Overloads Overridable Function Update(ByVal dataTable As NEADataSet.ReviewsDataTable) As Integer
7792             Return Me.Adapter.Update(dataTable)
7793         End Function
7794
7795         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7796          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7797          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7798         Public Overloads Overridable Function Update(ByVal dataSet As NEADataSet) As Integer
7799             Return Me.Adapter.Update(dataSet, "Reviews")
7800         End Function
7801
7802         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7803          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7804          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7805         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
7806             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
7807         End Function
7808
7809         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7810          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7811          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7812         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
7813             Return Me.Adapter.Update(dataRows)
7814         End Function
7815
7816         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7817          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7818          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
7819          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _
7820         Public Overloads Overridable Function Delete(ByVal Original_ReviewID As Integer, ByVal Original_GameID As Global.System.Nullable(Of Integer)) As Integer
7821             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ReviewID,Integer)
7822             If (Original_GameID.HasValue = true) Then
7823                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
7824                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_GameID.Value,Integer)
7825             Else
7826                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
7827                 Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
7828             End If
7829             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
7830             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
7831                         <> Global.System.Data.ConnectionState.Open) Then
7832                 Me.Adapter.DeleteCommand.Connection.Open
7833             End If
7834             Try
7835                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
7836                 Return returnValue
7837             Finally
7838                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
7839                     Me.Adapter.DeleteCommand.Connection.Close
7840                 End If
7841             End Try
7842         End Function
7843
7844         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7845          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7846          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
7847          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _
7848         Public Overloads Overridable Function Insert(ByVal GameID As Global.System.Nullable(Of Integer), ByVal Review As String) As Integer
7849             If (GameID.HasValue = true) Then
7850                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(GameID.Value,Integer)
7851             Else
7852                 Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
7853             End If
7854             If (Review Is Nothing) Then
7855                 Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
7856             Else
7857                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(Review,String)
7858             End If
7859             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
7860             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
7861                         <> Global.System.Data.ConnectionState.Open) Then
7862                 Me.Adapter.InsertCommand.Connection.Open
7863             End If
7864             Try
7865                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
7866                 Return returnValue
7867             Finally
7868                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
7869                     Me.Adapter.InsertCommand.Connection.Close
7870                 End If
7871             End Try
7872         End Function
7873
7874         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7875          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7876          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
7877          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _
7878         Public Overloads Overridable Function Update(ByVal GameID As Global.System.Nullable(Of Integer), ByVal Review As String, ByVal Original_ReviewID As Integer, ByVal Original_GameID As Global.System.Nullable(Of Integer)) As Integer
7879             If (GameID.HasValue = true) Then
7880                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(GameID.Value,Integer)
7881             Else
7882                 Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
7883             End If
7884             If (Review Is Nothing) Then
7885                 Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
7886             Else
7887                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Review,String)
7888             End If
7889             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_ReviewID,Integer)
7890             If (Original_GameID.HasValue = true) Then
7891                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(0,Object)
7892                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_GameID.Value,Integer)
7893             Else
7894                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(1,Object)
7895                 Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
7896             End If
7897             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
7898             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
7899                         <> Global.System.Data.ConnectionState.Open) Then
7900                 Me.Adapter.UpdateCommand.Connection.Open
7901             End If
7902             Try
7903                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
7904                 Return returnValue
7905             Finally
7906                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
7907                     Me.Adapter.UpdateCommand.Connection.Close
7908                 End If
7909             End Try
7910         End Function
7911     End Class
7912
7913     '''<summary>
7914     '''Represents the connection and commands used to retrieve and save data.
7915     '''</summary>
7916     <Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _
7917      Global.System.ComponentModel.ToolboxItem(true),  _
7918      Global.System.ComponentModel.DataObjectAttribute(true),  _
7919      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
7920         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _
7921      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7922     Partial Public Class TagsTableAdapter
7923         Inherits Global.System.ComponentModel.Component
7924
7925         Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter
7926
7927         Private _connection As Global.System.Data.OleDb.OleDbConnection
7928
7929         Private _transaction As Global.System.Data.OleDb.OleDbTransaction
7930
7931         Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
7932
7933         Private _clearBeforeFill As Boolean
7934
7935         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7936          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7937         Public Sub New()
7938             MyBase.New
7939             Me.ClearBeforeFill = true
7940         End Sub
7941
7942         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7943          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7944         Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
7945             Get
7946                 If (Me._adapter Is Nothing) Then
7947                     Me.InitAdapter
7948                 End If
7949                 Return Me._adapter
7950             End Get
7951         End Property
7952
7953         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7954          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7955         Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
7956             Get
7957                 If (Me._connection Is Nothing) Then
7958                     Me.InitConnection
7959                 End If
7960                 Return Me._connection
7961             End Get
7962             Set
7963                 Me._connection = value
7964                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
7965                     Me.Adapter.InsertCommand.Connection = value
7966                 End If
7967                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
7968                     Me.Adapter.DeleteCommand.Connection = value
7969                 End If
7970                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
7971                     Me.Adapter.UpdateCommand.Connection = value
7972                 End If
7973                 Dim i As Integer = 0
7974                 Do While (i < Me.CommandCollection.Length)
7975                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
7976                         CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value
7977                     End If
7978                     i = (i + 1)
7979                 Loop
7980             End Set
7981         End Property
7982
7983         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7984          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7985         Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
7986             Get
7987                 Return Me._transaction
7988             End Get
7989             Set
7990                 Me._transaction = value
7991                 Dim i As Integer = 0
7992                 Do While (i < Me.CommandCollection.Length)
7993                     Me.CommandCollection(i).Transaction = Me._transaction
7994                     i = (i + 1)
7995                 Loop
7996                 If ((Not (Me.Adapter) Is Nothing)  _
7997                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
7998                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
7999                 End If
8000                 If ((Not (Me.Adapter) Is Nothing)  _
8001                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
8002                     Me.Adapter.InsertCommand.Transaction = Me._transaction
8003                 End If
8004                 If ((Not (Me.Adapter) Is Nothing)  _
8005                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
8006                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
8007                 End If
8008             End Set
8009         End Property
8010
8011         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8012          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8013         Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
8014             Get
8015                 If (Me._commandCollection Is Nothing) Then
8016                     Me.InitCommandCollection
8017                 End If
8018                 Return Me._commandCollection
8019             End Get
8020         End Property
8021
8022         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8023          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8024         Public Property ClearBeforeFill() As Boolean
8025             Get
8026                 Return Me._clearBeforeFill
8027             End Get
8028             Set
8029                 Me._clearBeforeFill = value
8030             End Set
8031         End Property
8032
8033         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8034          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8035         Private Sub InitAdapter()
8036             Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
8037             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
8038             tableMapping.SourceTable = "Table"
8039             tableMapping.DataSetTable = "Tags"
8040             tableMapping.ColumnMappings.Add("ID", "ID")
8041             Me._adapter.TableMappings.Add(tableMapping)
8042             Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand()
8043             Me._adapter.DeleteCommand.Connection = Me.Connection
8044             Me._adapter.DeleteCommand.CommandText = "DELETE FROM `Tags` WHERE ((`ID` = ?))"
8045             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
8046             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ID", Global.System.Data.DataRowVersion.Original, false, Nothing))
8047             Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand()
8048             Me._adapter.InsertCommand.Connection = Me.Connection
8049             Me._adapter.InsertCommand.CommandText = "INSERT INTO `Tags` DEFAULT VALUES"
8050             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
8051             Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand()
8052             Me._adapter.UpdateCommand.Connection = Me.Connection
8053             Me._adapter.UpdateCommand.CommandText = "UPDATE `Tags` WHERE ((`ID` = ?))"
8054             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
8055             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ID", Global.System.Data.DataRowVersion.Original, false, Nothing))
8056         End Sub
8057
8058         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8059          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8060         Private Sub InitConnection()
8061             Me._connection = New Global.System.Data.OleDb.OleDbConnection()
8062             Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString2
8063         End Sub
8064
8065         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8066          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8067         Private Sub InitCommandCollection()
8068             Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {}
8069             Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
8070             Me._commandCollection(0).Connection = Me.Connection
8071             Me._commandCollection(0).CommandText = "SELECT ID FROM Tags"
8072             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
8073         End Sub
8074
8075         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8076          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8077          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8078          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _
8079         Public Overloads Overridable Function Fill(ByVal dataTable As NEADataSet.TagsDataTable) As Integer
8080             Me.Adapter.SelectCommand = Me.CommandCollection(0)
8081             If (Me.ClearBeforeFill = true) Then
8082                 dataTable.Clear
8083             End If
8084             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
8085             Return returnValue
8086         End Function
8087
8088         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8089          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8090          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8091          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _
8092         Public Overloads Overridable Function GetData() As NEADataSet.TagsDataTable
8093             Me.Adapter.SelectCommand = Me.CommandCollection(0)
8094             Dim dataTable As NEADataSet.TagsDataTable = New NEADataSet.TagsDataTable()
8095             Me.Adapter.Fill(dataTable)
8096             Return dataTable
8097         End Function
8098
8099         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8100          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8101          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
8102         Public Overloads Overridable Function Update(ByVal dataTable As NEADataSet.TagsDataTable) As Integer
8103             Return Me.Adapter.Update(dataTable)
8104         End Function
8105
8106         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8107          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8108          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
8109         Public Overloads Overridable Function Update(ByVal dataSet As NEADataSet) As Integer
8110             Return Me.Adapter.Update(dataSet, "Tags")
8111         End Function
8112
8113         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8114          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8115          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
8116         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
8117             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
8118         End Function
8119
8120         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8121          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8122          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
8123         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
8124             Return Me.Adapter.Update(dataRows)
8125         End Function
8126
8127         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8128          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8129          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8130          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _
8131         Public Overloads Overridable Function Delete(ByVal Original_ID As Integer) As Integer
8132             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,Integer)
8133             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
8134             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
8135                         <> Global.System.Data.ConnectionState.Open) Then
8136                 Me.Adapter.DeleteCommand.Connection.Open
8137             End If
8138             Try
8139                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
8140                 Return returnValue
8141             Finally
8142                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
8143                     Me.Adapter.DeleteCommand.Connection.Close
8144                 End If
8145             End Try
8146         End Function
8147
8148         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8149          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8150          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8151          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _
8152         Public Overloads Overridable Function Insert() As Integer
8153             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
8154             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
8155                         <> Global.System.Data.ConnectionState.Open) Then
8156                 Me.Adapter.InsertCommand.Connection.Open
8157             End If
8158             Try
8159                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
8160                 Return returnValue
8161             Finally
8162                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
8163                     Me.Adapter.InsertCommand.Connection.Close
8164                 End If
8165             End Try
8166         End Function
8167
8168         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8169          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8170          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8171          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _
8172         Public Overloads Overridable Function Update(ByVal Original_ID As Integer) As Integer
8173             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Original_ID,Integer)
8174             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
8175             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
8176                         <> Global.System.Data.ConnectionState.Open) Then
8177                 Me.Adapter.UpdateCommand.Connection.Open
8178             End If
8179             Try
8180                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
8181                 Return returnValue
8182             Finally
8183                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
8184                     Me.Adapter.UpdateCommand.Connection.Close
8185                 End If
8186             End Try
8187         End Function
8188     End Class
8189
8190     '''<summary>
8191     '''Represents the connection and commands used to retrieve and save data.
8192     '''</summary>
8193     <Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _
8194      Global.System.ComponentModel.ToolboxItem(true),  _
8195      Global.System.ComponentModel.DataObjectAttribute(true),  _
8196      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
8197         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _
8198      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
8199     Partial Public Class User_DetailsTableAdapter
8200         Inherits Global.System.ComponentModel.Component
8201
8202         Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter
8203
8204         Private _connection As Global.System.Data.OleDb.OleDbConnection
8205
8206         Private _transaction As Global.System.Data.OleDb.OleDbTransaction
8207
8208         Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
8209
8210         Private _clearBeforeFill As Boolean
8211
8212         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8213          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8214         Public Sub New()
8215             MyBase.New
8216             Me.ClearBeforeFill = true
8217         End Sub
8218
8219         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8220          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8221         Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
8222             Get
8223                 If (Me._adapter Is Nothing) Then
8224                     Me.InitAdapter
8225                 End If
8226                 Return Me._adapter
8227             End Get
8228         End Property
8229
8230         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8231          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8232         Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
8233             Get
8234                 If (Me._connection Is Nothing) Then
8235                     Me.InitConnection
8236                 End If
8237                 Return Me._connection
8238             End Get
8239             Set
8240                 Me._connection = value
8241                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
8242                     Me.Adapter.InsertCommand.Connection = value
8243                 End If
8244                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
8245                     Me.Adapter.DeleteCommand.Connection = value
8246                 End If
8247                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
8248                     Me.Adapter.UpdateCommand.Connection = value
8249                 End If
8250                 Dim i As Integer = 0
8251                 Do While (i < Me.CommandCollection.Length)
8252                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
8253                         CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value
8254                     End If
8255                     i = (i + 1)
8256                 Loop
8257             End Set
8258         End Property
8259
8260         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8261          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8262         Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
8263             Get
8264                 Return Me._transaction
8265             End Get
8266             Set
8267                 Me._transaction = value
8268                 Dim i As Integer = 0
8269                 Do While (i < Me.CommandCollection.Length)
8270                     Me.CommandCollection(i).Transaction = Me._transaction
8271                     i = (i + 1)
8272                 Loop
8273                 If ((Not (Me.Adapter) Is Nothing)  _
8274                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
8275                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
8276                 End If
8277                 If ((Not (Me.Adapter) Is Nothing)  _
8278                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
8279                     Me.Adapter.InsertCommand.Transaction = Me._transaction
8280                 End If
8281                 If ((Not (Me.Adapter) Is Nothing)  _
8282                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
8283                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
8284                 End If
8285             End Set
8286         End Property
8287
8288         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8289          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8290         Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
8291             Get
8292                 If (Me._commandCollection Is Nothing) Then
8293                     Me.InitCommandCollection
8294                 End If
8295                 Return Me._commandCollection
8296             End Get
8297         End Property
8298
8299         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8300          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8301         Public Property ClearBeforeFill() As Boolean
8302             Get
8303                 Return Me._clearBeforeFill
8304             End Get
8305             Set
8306                 Me._clearBeforeFill = value
8307             End Set
8308         End Property
8309
8310         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8311          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8312         Private Sub InitAdapter()
8313             Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
8314             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
8315             tableMapping.SourceTable = "Table"
8316             tableMapping.DataSetTable = "User_Details"
8317             tableMapping.ColumnMappings.Add("UserDetailsID", "UserDetailsID")
8318             tableMapping.ColumnMappings.Add("FirstName", "FirstName")
8319             tableMapping.ColumnMappings.Add("LastName", "LastName")
8320             tableMapping.ColumnMappings.Add("AddressLine1", "AddressLine1")
8321             tableMapping.ColumnMappings.Add("Town", "Town")
8322             tableMapping.ColumnMappings.Add("Postcode", "Postcode")
8323             tableMapping.ColumnMappings.Add("CardNumber", "CardNumber")
8324             tableMapping.ColumnMappings.Add("CVC", "CVC")
8325             tableMapping.ColumnMappings.Add("IGN", "IGN")
8326             tableMapping.ColumnMappings.Add("Email", "Email")
8327             tableMapping.ColumnMappings.Add("ProfilePic", "ProfilePic")
8328             Me._adapter.TableMappings.Add(tableMapping)
8329             Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand()
8330             Me._adapter.DeleteCommand.Connection = Me.Connection
8331             Me._adapter.DeleteCommand.CommandText = "DELETE FROM `User_Details` WHERE ((`UserDetailsID` = ?) AND ((? = 1 AND `Town` IS"& _
8332                 " NULL) OR (`Town` = ?)) AND ((? = 1 AND `CardNumber` IS NULL) OR (`CardNumber` ="& _
8333                 " ?)) AND ((? = 1 AND `CVC` IS NULL) OR (`CVC` = ?)))"
8334             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
8335             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_UserDetailsID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserDetailsID", Global.System.Data.DataRowVersion.Original, false, Nothing))
8336             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Town", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Town", Global.System.Data.DataRowVersion.Original, true, Nothing))
8337             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Town", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Town", Global.System.Data.DataRowVersion.Original, false, Nothing))
8338             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_CardNumber", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CardNumber", Global.System.Data.DataRowVersion.Original, true, Nothing))
8339             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_CardNumber", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CardNumber", Global.System.Data.DataRowVersion.Original, false, Nothing))
8340             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_CVC", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CVC", Global.System.Data.DataRowVersion.Original, true, Nothing))
8341             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_CVC", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CVC", Global.System.Data.DataRowVersion.Original, false, Nothing))
8342             Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand()
8343             Me._adapter.InsertCommand.Connection = Me.Connection
8344             Me._adapter.InsertCommand.CommandText = "INSERT INTO `User_Details` (`FirstName`, `LastName`, `AddressLine1`, `Town`, `Pos"& _
8345                 "tcode`, `CardNumber`, `CVC`, `IGN`, `Email`, `ProfilePic`) VALUES (?, ?, ?, ?, ?"& _
8346                 ", ?, ?, ?, ?, ?)"
8347             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
8348             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("FirstName", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "FirstName", Global.System.Data.DataRowVersion.Current, false, Nothing))
8349             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("LastName", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "LastName", Global.System.Data.DataRowVersion.Current, false, Nothing))
8350             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("AddressLine1", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "AddressLine1", Global.System.Data.DataRowVersion.Current, false, Nothing))
8351             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Town", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Town", Global.System.Data.DataRowVersion.Current, false, Nothing))
8352             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Postcode", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Postcode", Global.System.Data.DataRowVersion.Current, false, Nothing))
8353             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("CardNumber", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CardNumber", Global.System.Data.DataRowVersion.Current, false, Nothing))
8354             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("CVC", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CVC", Global.System.Data.DataRowVersion.Current, false, Nothing))
8355             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IGN", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "IGN", Global.System.Data.DataRowVersion.Current, false, Nothing))
8356             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Email", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Email", Global.System.Data.DataRowVersion.Current, false, Nothing))
8357             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("ProfilePic", Global.System.Data.OleDb.OleDbType.LongVarBinary, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ProfilePic", Global.System.Data.DataRowVersion.Current, false, Nothing))
8358             Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand()
8359             Me._adapter.UpdateCommand.Connection = Me.Connection
8360             Me._adapter.UpdateCommand.CommandText = "UPDATE `User_Details` SET `FirstName` = ?, `LastName` = ?, `AddressLine1` = ?, `T"& _
8361                 "own` = ?, `Postcode` = ?, `CardNumber` = ?, `CVC` = ?, `IGN` = ?, `Email` = ?, `"& _
8362                 "ProfilePic` = ? WHERE ((`UserDetailsID` = ?) AND ((? = 1 AND `Town` IS NULL) OR "& _
8363                 "(`Town` = ?)) AND ((? = 1 AND `CardNumber` IS NULL) OR (`CardNumber` = ?)) AND ("& _
8364                 "(? = 1 AND `CVC` IS NULL) OR (`CVC` = ?)))"
8365             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
8366             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("FirstName", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "FirstName", Global.System.Data.DataRowVersion.Current, false, Nothing))
8367             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("LastName", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "LastName", Global.System.Data.DataRowVersion.Current, false, Nothing))
8368             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("AddressLine1", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "AddressLine1", Global.System.Data.DataRowVersion.Current, false, Nothing))
8369             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Town", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Town", Global.System.Data.DataRowVersion.Current, false, Nothing))
8370             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Postcode", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Postcode", Global.System.Data.DataRowVersion.Current, false, Nothing))
8371             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("CardNumber", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CardNumber", Global.System.Data.DataRowVersion.Current, false, Nothing))
8372             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("CVC", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CVC", Global.System.Data.DataRowVersion.Current, false, Nothing))
8373             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IGN", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "IGN", Global.System.Data.DataRowVersion.Current, false, Nothing))
8374             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Email", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Email", Global.System.Data.DataRowVersion.Current, false, Nothing))
8375             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("ProfilePic", Global.System.Data.OleDb.OleDbType.LongVarBinary, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ProfilePic", Global.System.Data.DataRowVersion.Current, false, Nothing))
8376             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_UserDetailsID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserDetailsID", Global.System.Data.DataRowVersion.Original, false, Nothing))
8377             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Town", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Town", Global.System.Data.DataRowVersion.Original, true, Nothing))
8378             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Town", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Town", Global.System.Data.DataRowVersion.Original, false, Nothing))
8379             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_CardNumber", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CardNumber", Global.System.Data.DataRowVersion.Original, true, Nothing))
8380             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_CardNumber", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CardNumber", Global.System.Data.DataRowVersion.Original, false, Nothing))
8381             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_CVC", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CVC", Global.System.Data.DataRowVersion.Original, true, Nothing))
8382             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_CVC", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CVC", Global.System.Data.DataRowVersion.Original, false, Nothing))
8383         End Sub
8384
8385         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8386          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8387         Private Sub InitConnection()
8388             Me._connection = New Global.System.Data.OleDb.OleDbConnection()
8389             Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString2
8390         End Sub
8391
8392         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8393          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8394         Private Sub InitCommandCollection()
8395             Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {}
8396             Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
8397             Me._commandCollection(0).Connection = Me.Connection
8398             Me._commandCollection(0).CommandText = "SELECT UserDetailsID, FirstName, LastName, AddressLine1, Town, Postcode, CardNumb"& _
8399                 "er, CVC, IGN, Email, ProfilePic FROM User_Details"
8400             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
8401         End Sub
8402
8403         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8404          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8405          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8406          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _
8407         Public Overloads Overridable Function Fill(ByVal dataTable As NEADataSet.User_DetailsDataTable) As Integer
8408             Me.Adapter.SelectCommand = Me.CommandCollection(0)
8409             If (Me.ClearBeforeFill = true) Then
8410                 dataTable.Clear
8411             End If
8412             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
8413             Return returnValue
8414         End Function
8415
8416         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8417          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8418          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8419          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _
8420         Public Overloads Overridable Function GetData() As NEADataSet.User_DetailsDataTable
8421             Me.Adapter.SelectCommand = Me.CommandCollection(0)
8422             Dim dataTable As NEADataSet.User_DetailsDataTable = New NEADataSet.User_DetailsDataTable()
8423             Me.Adapter.Fill(dataTable)
8424             Return dataTable
8425         End Function
8426
8427         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8428          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8429          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
8430         Public Overloads Overridable Function Update(ByVal dataTable As NEADataSet.User_DetailsDataTable) As Integer
8431             Return Me.Adapter.Update(dataTable)
8432         End Function
8433
8434         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8435          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8436          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
8437         Public Overloads Overridable Function Update(ByVal dataSet As NEADataSet) As Integer
8438             Return Me.Adapter.Update(dataSet, "User_Details")
8439         End Function
8440
8441         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8442          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8443          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
8444         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
8445             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
8446         End Function
8447
8448         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8449          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8450          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
8451         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
8452             Return Me.Adapter.Update(dataRows)
8453         End Function
8454
8455         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8456          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8457          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8458          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _
8459         Public Overloads Overridable Function Delete(ByVal Original_UserDetailsID As Integer, ByVal Original_Town As String, ByVal Original_CardNumber As Global.System.Nullable(Of Integer), ByVal Original_CVC As Global.System.Nullable(Of Integer)) As Integer
8460             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_UserDetailsID,Integer)
8461             If (Original_Town Is Nothing) Then
8462                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
8463                 Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
8464             Else
8465                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
8466                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Town,String)
8467             End If
8468             If (Original_CardNumber.HasValue = true) Then
8469                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
8470                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_CardNumber.Value,Integer)
8471             Else
8472                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
8473                 Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
8474             End If
8475             If (Original_CVC.HasValue = true) Then
8476                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
8477                 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_CVC.Value,Integer)
8478             Else
8479                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
8480                 Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
8481             End If
8482             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
8483             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
8484                         <> Global.System.Data.ConnectionState.Open) Then
8485                 Me.Adapter.DeleteCommand.Connection.Open
8486             End If
8487             Try
8488                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
8489                 Return returnValue
8490             Finally
8491                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
8492                     Me.Adapter.DeleteCommand.Connection.Close
8493                 End If
8494             End Try
8495         End Function
8496
8497         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8498          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8499          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8500          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _
8501         Public Overloads Overridable Function Insert(ByVal FirstName As String, ByVal LastName As String, ByVal AddressLine1 As String, ByVal Town As String, ByVal Postcode As String, ByVal CardNumber As Global.System.Nullable(Of Integer), ByVal CVC As Global.System.Nullable(Of Integer), ByVal IGN As String, ByVal Email As String, ByVal ProfilePic() As Byte) As Integer
8502             If (FirstName Is Nothing) Then
8503                 Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
8504             Else
8505                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(FirstName,String)
8506             End If
8507             If (LastName Is Nothing) Then
8508                 Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
8509             Else
8510                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(LastName,String)
8511             End If
8512             If (AddressLine1 Is Nothing) Then
8513                 Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
8514             Else
8515                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(AddressLine1,String)
8516             End If
8517             If (Town Is Nothing) Then
8518                 Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
8519             Else
8520                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(Town,String)
8521             End If
8522             If (Postcode Is Nothing) Then
8523                 Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
8524             Else
8525                 Me.Adapter.InsertCommand.Parameters(4).Value = CType(Postcode,String)
8526             End If
8527             If (CardNumber.HasValue = true) Then
8528                 Me.Adapter.InsertCommand.Parameters(5).Value = CType(CardNumber.Value,Integer)
8529             Else
8530                 Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
8531             End If
8532             If (CVC.HasValue = true) Then
8533                 Me.Adapter.InsertCommand.Parameters(6).Value = CType(CVC.Value,Integer)
8534             Else
8535                 Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
8536             End If
8537             If (IGN Is Nothing) Then
8538                 Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
8539             Else
8540                 Me.Adapter.InsertCommand.Parameters(7).Value = CType(IGN,String)
8541             End If
8542             If (Email Is Nothing) Then
8543                 Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value
8544             Else
8545                 Me.Adapter.InsertCommand.Parameters(8).Value = CType(Email,String)
8546             End If
8547             If (ProfilePic Is Nothing) Then
8548                 Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value
8549             Else
8550                 Me.Adapter.InsertCommand.Parameters(9).Value = CType(ProfilePic,Byte())
8551             End If
8552             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
8553             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
8554                         <> Global.System.Data.ConnectionState.Open) Then
8555                 Me.Adapter.InsertCommand.Connection.Open
8556             End If
8557             Try
8558                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
8559                 Return returnValue
8560             Finally
8561                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
8562                     Me.Adapter.InsertCommand.Connection.Close
8563                 End If
8564             End Try
8565         End Function
8566
8567         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8568          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8569          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8570          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _
8571         Public Overloads Overridable Function Update(ByVal FirstName As String, ByVal LastName As String, ByVal AddressLine1 As String, ByVal Town As String, ByVal Postcode As String, ByVal CardNumber As Global.System.Nullable(Of Integer), ByVal CVC As Global.System.Nullable(Of Integer), ByVal IGN As String, ByVal Email As String, ByVal ProfilePic() As Byte, ByVal Original_UserDetailsID As Integer, ByVal Original_Town As String, ByVal Original_CardNumber As Global.System.Nullable(Of Integer), ByVal Original_CVC As Global.System.Nullable(Of Integer)) As Integer
8572             If (FirstName Is Nothing) Then
8573                 Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
8574             Else
8575                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FirstName,String)
8576             End If
8577             If (LastName Is Nothing) Then
8578                 Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
8579             Else
8580                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(LastName,String)
8581             End If
8582             If (AddressLine1 Is Nothing) Then
8583                 Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
8584             Else
8585                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(AddressLine1,String)
8586             End If
8587             If (Town Is Nothing) Then
8588                 Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
8589             Else
8590                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Town,String)
8591             End If
8592             If (Postcode Is Nothing) Then
8593                 Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
8594             Else
8595                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Postcode,String)
8596             End If
8597             If (CardNumber.HasValue = true) Then
8598                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CardNumber.Value,Integer)
8599             Else
8600                 Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
8601             End If
8602             If (CVC.HasValue = true) Then
8603                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CVC.Value,Integer)
8604             Else
8605                 Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
8606             End If
8607             If (IGN Is Nothing) Then
8608                 Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
8609             Else
8610                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(IGN,String)
8611             End If
8612             If (Email Is Nothing) Then
8613                 Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
8614             Else
8615                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Email,String)
8616             End If
8617             If (ProfilePic Is Nothing) Then
8618                 Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value
8619             Else
8620                 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(ProfilePic,Byte())
8621             End If
8622             Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_UserDetailsID,Integer)
8623             If (Original_Town Is Nothing) Then
8624                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object)
8625                 Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value
8626             Else
8627                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object)
8628                 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_Town,String)
8629             End If
8630             If (Original_CardNumber.HasValue = true) Then
8631                 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object)
8632                 Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_CardNumber.Value,Integer)
8633             Else
8634                 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object)
8635                 Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value
8636             End If
8637             If (Original_CVC.HasValue = true) Then
8638                 Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object)
8639                 Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_CVC.Value,Integer)
8640             Else
8641                 Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object)
8642                 Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value
8643             End If
8644             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
8645             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
8646                         <> Global.System.Data.ConnectionState.Open) Then
8647                 Me.Adapter.UpdateCommand.Connection.Open
8648             End If
8649             Try
8650                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
8651                 Return returnValue
8652             Finally
8653                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
8654                     Me.Adapter.UpdateCommand.Connection.Close
8655                 End If
8656             End Try
8657         End Function
8658     End Class
8659
8660     '''<summary>
8661     '''Represents the connection and commands used to retrieve and save data.
8662     '''</summary>
8663     <Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _
8664      Global.System.ComponentModel.ToolboxItem(true),  _
8665      Global.System.ComponentModel.DataObjectAttribute(true),  _
8666      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
8667         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _
8668      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
8669     Partial Public Class UsersTableAdapter
8670         Inherits Global.System.ComponentModel.Component
8671
8672         Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter
8673
8674         Private _connection As Global.System.Data.OleDb.OleDbConnection
8675
8676         Private _transaction As Global.System.Data.OleDb.OleDbTransaction
8677
8678         Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
8679
8680         Private _clearBeforeFill As Boolean
8681
8682         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8683          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8684         Public Sub New()
8685             MyBase.New
8686             Me.ClearBeforeFill = true
8687         End Sub
8688
8689         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8690          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8691         Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
8692             Get
8693                 If (Me._adapter Is Nothing) Then
8694                     Me.InitAdapter
8695                 End If
8696                 Return Me._adapter
8697             End Get
8698         End Property
8699
8700         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8701          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8702         Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
8703             Get
8704                 If (Me._connection Is Nothing) Then
8705                     Me.InitConnection
8706                 End If
8707                 Return Me._connection
8708             End Get
8709             Set
8710                 Me._connection = value
8711                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
8712                     Me.Adapter.InsertCommand.Connection = value
8713                 End If
8714                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
8715                     Me.Adapter.DeleteCommand.Connection = value
8716                 End If
8717                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
8718                     Me.Adapter.UpdateCommand.Connection = value
8719                 End If
8720                 Dim i As Integer = 0
8721                 Do While (i < Me.CommandCollection.Length)
8722                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
8723                         CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value
8724                     End If
8725                     i = (i + 1)
8726                 Loop
8727             End Set
8728         End Property
8729
8730         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8731          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8732         Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
8733             Get
8734                 Return Me._transaction
8735             End Get
8736             Set
8737                 Me._transaction = value
8738                 Dim i As Integer = 0
8739                 Do While (i < Me.CommandCollection.Length)
8740                     Me.CommandCollection(i).Transaction = Me._transaction
8741                     i = (i + 1)
8742                 Loop
8743                 If ((Not (Me.Adapter) Is Nothing)  _
8744                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
8745                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
8746                 End If
8747                 If ((Not (Me.Adapter) Is Nothing)  _
8748                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
8749                     Me.Adapter.InsertCommand.Transaction = Me._transaction
8750                 End If
8751                 If ((Not (Me.Adapter) Is Nothing)  _
8752                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
8753                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
8754                 End If
8755             End Set
8756         End Property
8757
8758         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8759          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8760         Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
8761             Get
8762                 If (Me._commandCollection Is Nothing) Then
8763                     Me.InitCommandCollection
8764                 End If
8765                 Return Me._commandCollection
8766             End Get
8767         End Property
8768
8769         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8770          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8771         Public Property ClearBeforeFill() As Boolean
8772             Get
8773                 Return Me._clearBeforeFill
8774             End Get
8775             Set
8776                 Me._clearBeforeFill = value
8777             End Set
8778         End Property
8779
8780         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8781          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8782         Private Sub InitAdapter()
8783             Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
8784             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
8785             tableMapping.SourceTable = "Table"
8786             tableMapping.DataSetTable = "Users"
8787             tableMapping.ColumnMappings.Add("UserID", "UserID")
8788             tableMapping.ColumnMappings.Add("User_DetailsID", "User_DetailsID")
8789             tableMapping.ColumnMappings.Add("Username", "Username")
8790             tableMapping.ColumnMappings.Add("Password", "Password")
8791             Me._adapter.TableMappings.Add(tableMapping)
8792             Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand()
8793             Me._adapter.DeleteCommand.Connection = Me.Connection
8794             Me._adapter.DeleteCommand.CommandText = "DELETE FROM `Users` WHERE ((`UserID` = ?) AND ((? = 1 AND `User_DetailsID` IS NUL"& _
8795                 "L) OR (`User_DetailsID` = ?)))"
8796             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
8797             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Original, false, Nothing))
8798             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_User_DetailsID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "User_DetailsID", Global.System.Data.DataRowVersion.Original, true, Nothing))
8799             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_User_DetailsID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "User_DetailsID", Global.System.Data.DataRowVersion.Original, false, Nothing))
8800             Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand()
8801             Me._adapter.InsertCommand.Connection = Me.Connection
8802             Me._adapter.InsertCommand.CommandText = "INSERT INTO `Users` (`User_DetailsID`, `Username`, `Password`) VALUES (?, ?, ?)"
8803             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
8804             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("User_DetailsID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "User_DetailsID", Global.System.Data.DataRowVersion.Current, false, Nothing))
8805             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Username", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Username", Global.System.Data.DataRowVersion.Current, false, Nothing))
8806             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Password", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Password", Global.System.Data.DataRowVersion.Current, false, Nothing))
8807             Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand()
8808             Me._adapter.UpdateCommand.Connection = Me.Connection
8809             Me._adapter.UpdateCommand.CommandText = "UPDATE `Users` SET `User_DetailsID` = ?, `Username` = ?, `Password` = ? WHERE ((`"& _
8810                 "UserID` = ?) AND ((? = 1 AND `User_DetailsID` IS NULL) OR (`User_DetailsID` = ?)"& _
8811                 "))"
8812             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
8813             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("User_DetailsID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "User_DetailsID", Global.System.Data.DataRowVersion.Current, false, Nothing))
8814             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Username", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Username", Global.System.Data.DataRowVersion.Current, false, Nothing))
8815             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Password", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Password", Global.System.Data.DataRowVersion.Current, false, Nothing))
8816             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Original, false, Nothing))
8817             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_User_DetailsID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "User_DetailsID", Global.System.Data.DataRowVersion.Original, true, Nothing))
8818             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_User_DetailsID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "User_DetailsID", Global.System.Data.DataRowVersion.Original, false, Nothing))
8819         End Sub
8820
8821         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8822          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8823         Private Sub InitConnection()
8824             Me._connection = New Global.System.Data.OleDb.OleDbConnection()
8825             Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString2
8826         End Sub
8827
8828         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8829          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8830         Private Sub InitCommandCollection()
8831             Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {}
8832             Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
8833             Me._commandCollection(0).Connection = Me.Connection
8834             Me._commandCollection(0).CommandText = "SELECT UserID, User_DetailsID, Username, [Password] FROM Users"
8835             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
8836         End Sub
8837
8838         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8839          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8840          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8841          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _
8842         Public Overloads Overridable Function Fill(ByVal dataTable As NEADataSet.UsersDataTable) As Integer
8843             Me.Adapter.SelectCommand = Me.CommandCollection(0)
8844             If (Me.ClearBeforeFill = true) Then
8845                 dataTable.Clear
8846             End If
8847             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
8848             Return returnValue
8849         End Function
8850
8851         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8852          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8853          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8854          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _
8855         Public Overloads Overridable Function GetData() As NEADataSet.UsersDataTable
8856             Me.Adapter.SelectCommand = Me.CommandCollection(0)
8857             Dim dataTable As NEADataSet.UsersDataTable = New NEADataSet.UsersDataTable()
8858             Me.Adapter.Fill(dataTable)
8859             Return dataTable
8860         End Function
8861
8862         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8863          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8864          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
8865         Public Overloads Overridable Function Update(ByVal dataTable As NEADataSet.UsersDataTable) As Integer
8866             Return Me.Adapter.Update(dataTable)
8867         End Function
8868
8869         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8870          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8871          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
8872         Public Overloads Overridable Function Update(ByVal dataSet As NEADataSet) As Integer
8873             Return Me.Adapter.Update(dataSet, "Users")
8874         End Function
8875
8876         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8877          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8878          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
8879         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
8880             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
8881         End Function
8882
8883         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8884          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8885          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
8886         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
8887             Return Me.Adapter.Update(dataRows)
8888         End Function
8889
8890         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8891          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8892          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8893          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _
8894         Public Overloads Overridable Function Delete(ByVal Original_UserID As Integer, ByVal Original_User_DetailsID As Global.System.Nullable(Of Integer)) As Integer
8895             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_UserID,Integer)
8896             If (Original_User_DetailsID.HasValue = true) Then
8897                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
8898                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_User_DetailsID.Value,Integer)
8899             Else
8900                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
8901                 Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
8902             End If
8903             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
8904             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
8905                         <> Global.System.Data.ConnectionState.Open) Then
8906                 Me.Adapter.DeleteCommand.Connection.Open
8907             End If
8908             Try
8909                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
8910                 Return returnValue
8911             Finally
8912                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
8913                     Me.Adapter.DeleteCommand.Connection.Close
8914                 End If
8915             End Try
8916         End Function
8917
8918         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8919          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8920          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8921          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _
8922         Public Overloads Overridable Function Insert(ByVal User_DetailsID As Global.System.Nullable(Of Integer), ByVal Username As String, ByVal Password As String) As Integer
8923             If (User_DetailsID.HasValue = true) Then
8924                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(User_DetailsID.Value,Integer)
8925             Else
8926                 Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
8927             End If
8928             If (Username Is Nothing) Then
8929                 Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
8930             Else
8931                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(Username,String)
8932             End If
8933             If (Password Is Nothing) Then
8934                 Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
8935             Else
8936                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(Password,String)
8937             End If
8938             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
8939             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
8940                         <> Global.System.Data.ConnectionState.Open) Then
8941                 Me.Adapter.InsertCommand.Connection.Open
8942             End If
8943             Try
8944                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
8945                 Return returnValue
8946             Finally
8947                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
8948                     Me.Adapter.InsertCommand.Connection.Close
8949                 End If
8950             End Try
8951         End Function
8952
8953         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8954          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8955          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8956          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _
8957         Public Overloads Overridable Function Update(ByVal User_DetailsID As Global.System.Nullable(Of Integer), ByVal Username As String, ByVal Password As String, ByVal Original_UserID As Integer, ByVal Original_User_DetailsID As Global.System.Nullable(Of Integer)) As Integer
8958             If (User_DetailsID.HasValue = true) Then
8959                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(User_DetailsID.Value,Integer)
8960             Else
8961                 Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
8962             End If
8963             If (Username Is Nothing) Then
8964                 Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
8965             Else
8966                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Username,String)
8967             End If
8968             If (Password Is Nothing) Then
8969                 Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
8970             Else
8971                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Password,String)
8972             End If
8973             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_UserID,Integer)
8974             If (Original_User_DetailsID.HasValue = true) Then
8975                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(0,Object)
8976                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_User_DetailsID.Value,Integer)
8977             Else
8978                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(1,Object)
8979                 Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
8980             End If
8981             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
8982             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
8983                         <> Global.System.Data.ConnectionState.Open) Then
8984                 Me.Adapter.UpdateCommand.Connection.Open
8985             End If
8986             Try
8987                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
8988                 Return returnValue
8989             Finally
8990                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
8991                     Me.Adapter.UpdateCommand.Connection.Close
8992                 End If
8993             End Try
8994         End Function
8995     End Class
8996
8997     '''<summary>
8998     '''Represents the connection and commands used to retrieve and save data.
8999     '''</summary>
9000     <Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _
9001      Global.System.ComponentModel.ToolboxItem(true),  _
9002      Global.System.ComponentModel.DataObjectAttribute(true),  _
9003      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
9004         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _
9005      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
9006     Partial Public Class WishlistTableAdapter
9007         Inherits Global.System.ComponentModel.Component
9008
9009         Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter
9010
9011         Private _connection As Global.System.Data.OleDb.OleDbConnection
9012
9013         Private _transaction As Global.System.Data.OleDb.OleDbTransaction
9014
9015         Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
9016
9017         Private _clearBeforeFill As Boolean
9018
9019         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9020          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9021         Public Sub New()
9022             MyBase.New
9023             Me.ClearBeforeFill = true
9024         End Sub
9025
9026         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9027          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9028         Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
9029             Get
9030                 If (Me._adapter Is Nothing) Then
9031                     Me.InitAdapter
9032                 End If
9033                 Return Me._adapter
9034             End Get
9035         End Property
9036
9037         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9038          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9039         Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
9040             Get
9041                 If (Me._connection Is Nothing) Then
9042                     Me.InitConnection
9043                 End If
9044                 Return Me._connection
9045             End Get
9046             Set
9047                 Me._connection = value
9048                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
9049                     Me.Adapter.InsertCommand.Connection = value
9050                 End If
9051                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
9052                     Me.Adapter.DeleteCommand.Connection = value
9053                 End If
9054                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
9055                     Me.Adapter.UpdateCommand.Connection = value
9056                 End If
9057                 Dim i As Integer = 0
9058                 Do While (i < Me.CommandCollection.Length)
9059                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
9060                         CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value
9061                     End If
9062                     i = (i + 1)
9063                 Loop
9064             End Set
9065         End Property
9066
9067         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9068          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9069         Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
9070             Get
9071                 Return Me._transaction
9072             End Get
9073             Set
9074                 Me._transaction = value
9075                 Dim i As Integer = 0
9076                 Do While (i < Me.CommandCollection.Length)
9077                     Me.CommandCollection(i).Transaction = Me._transaction
9078                     i = (i + 1)
9079                 Loop
9080                 If ((Not (Me.Adapter) Is Nothing)  _
9081                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
9082                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
9083                 End If
9084                 If ((Not (Me.Adapter) Is Nothing)  _
9085                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
9086                     Me.Adapter.InsertCommand.Transaction = Me._transaction
9087                 End If
9088                 If ((Not (Me.Adapter) Is Nothing)  _
9089                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
9090                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
9091                 End If
9092             End Set
9093         End Property
9094
9095         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9096          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9097         Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
9098             Get
9099                 If (Me._commandCollection Is Nothing) Then
9100                     Me.InitCommandCollection
9101                 End If
9102                 Return Me._commandCollection
9103             End Get
9104         End Property
9105
9106         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9107          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9108         Public Property ClearBeforeFill() As Boolean
9109             Get
9110                 Return Me._clearBeforeFill
9111             End Get
9112             Set
9113                 Me._clearBeforeFill = value
9114             End Set
9115         End Property
9116
9117         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9118          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9119         Private Sub InitAdapter()
9120             Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
9121             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
9122             tableMapping.SourceTable = "Table"
9123             tableMapping.DataSetTable = "Wishlist"
9124             tableMapping.ColumnMappings.Add("WishlistID", "WishlistID")
9125             tableMapping.ColumnMappings.Add("UserID", "UserID")
9126             tableMapping.ColumnMappings.Add("GameID", "GameID")
9127             Me._adapter.TableMappings.Add(tableMapping)
9128             Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand()
9129             Me._adapter.DeleteCommand.Connection = Me.Connection
9130             Me._adapter.DeleteCommand.CommandText = "DELETE FROM `Wishlist` WHERE ((`WishlistID` = ?) AND ((? = 1 AND `UserID` IS NULL"& _
9131                 ") OR (`UserID` = ?)) AND ((? = 1 AND `GameID` IS NULL) OR (`GameID` = ?)))"
9132             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
9133             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_WishlistID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "WishlistID", Global.System.Data.DataRowVersion.Original, false, Nothing))
9134             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Original, true, Nothing))
9135             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Original, false, Nothing))
9136             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, true, Nothing))
9137             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, false, Nothing))
9138             Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand()
9139             Me._adapter.InsertCommand.Connection = Me.Connection
9140             Me._adapter.InsertCommand.CommandText = "INSERT INTO `Wishlist` (`UserID`, `GameID`) VALUES (?, ?)"
9141             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
9142             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Current, false, Nothing))
9143             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Current, false, Nothing))
9144             Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand()
9145             Me._adapter.UpdateCommand.Connection = Me.Connection
9146             Me._adapter.UpdateCommand.CommandText = "UPDATE `Wishlist` SET `UserID` = ?, `GameID` = ? WHERE ((`WishlistID` = ?) AND (("& _
9147                 "? = 1 AND `UserID` IS NULL) OR (`UserID` = ?)) AND ((? = 1 AND `GameID` IS NULL)"& _
9148                 " OR (`GameID` = ?)))"
9149             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
9150             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Current, false, Nothing))
9151             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Current, false, Nothing))
9152             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_WishlistID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "WishlistID", Global.System.Data.DataRowVersion.Original, false, Nothing))
9153             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Original, true, Nothing))
9154             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_UserID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UserID", Global.System.Data.DataRowVersion.Original, false, Nothing))
9155             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, true, Nothing))
9156             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_GameID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "GameID", Global.System.Data.DataRowVersion.Original, false, Nothing))
9157         End Sub
9158
9159         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9160          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9161         Private Sub InitConnection()
9162             Me._connection = New Global.System.Data.OleDb.OleDbConnection()
9163             Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString2
9164         End Sub
9165
9166         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9167          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9168         Private Sub InitCommandCollection()
9169             Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {}
9170             Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
9171             Me._commandCollection(0).Connection = Me.Connection
9172             Me._commandCollection(0).CommandText = "SELECT WishlistID, UserID, GameID FROM Wishlist"
9173             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
9174         End Sub
9175
9176         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9177          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9178          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
9179          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _
9180         Public Overloads Overridable Function Fill(ByVal dataTable As NEADataSet.WishlistDataTable) As Integer
9181             Me.Adapter.SelectCommand = Me.CommandCollection(0)
9182             If (Me.ClearBeforeFill = true) Then
9183                 dataTable.Clear
9184             End If
9185             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
9186             Return returnValue
9187         End Function
9188
9189         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9190          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9191          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
9192          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _
9193         Public Overloads Overridable Function GetData() As NEADataSet.WishlistDataTable
9194             Me.Adapter.SelectCommand = Me.CommandCollection(0)
9195             Dim dataTable As NEADataSet.WishlistDataTable = New NEADataSet.WishlistDataTable()
9196             Me.Adapter.Fill(dataTable)
9197             Return dataTable
9198         End Function
9199
9200         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9201          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9202          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
9203         Public Overloads Overridable Function Update(ByVal dataTable As NEADataSet.WishlistDataTable) As Integer
9204             Return Me.Adapter.Update(dataTable)
9205         End Function
9206
9207         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9208          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9209          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
9210         Public Overloads Overridable Function Update(ByVal dataSet As NEADataSet) As Integer
9211             Return Me.Adapter.Update(dataSet, "Wishlist")
9212         End Function
9213
9214         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9215          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9216          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
9217         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
9218             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
9219         End Function
9220
9221         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9222          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9223          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
9224         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
9225             Return Me.Adapter.Update(dataRows)
9226         End Function
9227
9228         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9229          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9230          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
9231          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _
9232         Public Overloads Overridable Function Delete(ByVal Original_WishlistID As Integer, ByVal Original_UserID As Global.System.Nullable(Of Integer), ByVal Original_GameID As Global.System.Nullable(Of Integer)) As Integer
9233             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_WishlistID,Integer)
9234             If (Original_UserID.HasValue = true) Then
9235                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
9236                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_UserID.Value,Integer)
9237             Else
9238                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
9239                 Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
9240             End If
9241             If (Original_GameID.HasValue = true) Then
9242                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
9243                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_GameID.Value,Integer)
9244             Else
9245                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
9246                 Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
9247             End If
9248             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
9249             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
9250                         <> Global.System.Data.ConnectionState.Open) Then
9251                 Me.Adapter.DeleteCommand.Connection.Open
9252             End If
9253             Try
9254                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
9255                 Return returnValue
9256             Finally
9257                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
9258                     Me.Adapter.DeleteCommand.Connection.Close
9259                 End If
9260             End Try
9261         End Function
9262
9263         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9264          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9265          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
9266          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _
9267         Public Overloads Overridable Function Insert(ByVal UserID As Global.System.Nullable(Of Integer), ByVal GameID As Global.System.Nullable(Of Integer)) As Integer
9268             If (UserID.HasValue = true) Then
9269                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(UserID.Value,Integer)
9270             Else
9271                 Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
9272             End If
9273             If (GameID.HasValue = true) Then
9274                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(GameID.Value,Integer)
9275             Else
9276                 Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
9277             End If
9278             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
9279             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
9280                         <> Global.System.Data.ConnectionState.Open) Then
9281                 Me.Adapter.InsertCommand.Connection.Open
9282             End If
9283             Try
9284                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
9285                 Return returnValue
9286             Finally
9287                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
9288                     Me.Adapter.InsertCommand.Connection.Close
9289                 End If
9290             End Try
9291         End Function
9292
9293         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9294          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9295          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
9296          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _
9297         Public Overloads Overridable Function Update(ByVal UserID As Global.System.Nullable(Of Integer), ByVal GameID As Global.System.Nullable(Of Integer), ByVal Original_WishlistID As Integer, ByVal Original_UserID As Global.System.Nullable(Of Integer), ByVal Original_GameID As Global.System.Nullable(Of Integer)) As Integer
9298             If (UserID.HasValue = true) Then
9299                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(UserID.Value,Integer)
9300             Else
9301                 Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
9302             End If
9303             If (GameID.HasValue = true) Then
9304                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(GameID.Value,Integer)
9305             Else
9306                 Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
9307             End If
9308             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_WishlistID,Integer)
9309             If (Original_UserID.HasValue = true) Then
9310                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(0,Object)
9311                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_UserID.Value,Integer)
9312             Else
9313                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(1,Object)
9314                 Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
9315             End If
9316             If (Original_GameID.HasValue = true) Then
9317                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(0,Object)
9318                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GameID.Value,Integer)
9319             Else
9320                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(1,Object)
9321                 Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
9322             End If
9323             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
9324             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
9325                         <> Global.System.Data.ConnectionState.Open) Then
9326                 Me.Adapter.UpdateCommand.Connection.Open
9327             End If
9328             Try
9329                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
9330                 Return returnValue
9331             Finally
9332                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
9333                     Me.Adapter.UpdateCommand.Connection.Close
9334                 End If
9335             End Try
9336         End Function
9337     End Class
9338
9339     '''<summary>
9340     '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios
9341     '''</summary>
9342     <Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _
9343      Global.System.ComponentModel.ToolboxItem(true),  _
9344      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerDesigner, Microsoft.VSD"& _
9345         "esigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _
9346      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapterManager")>  _
9347     Partial Public Class TableAdapterManager
9348         Inherits Global.System.ComponentModel.Component
9349
9350         Private _updateOrder As UpdateOrderOption
9351
9352         Private _achievementTableAdapter As AchievementTableAdapter
9353
9354         Private _dOWTableAdapter As DOWTableAdapter
9355
9356         Private _friendsTableAdapter As FriendsTableAdapter
9357
9358         Private _gamesTableAdapter As GamesTableAdapter
9359
9360         Private _purchasedTableAdapter As PurchasedTableAdapter
9361
9362         Private _reviewsTableAdapter As ReviewsTableAdapter
9363
9364         Private _tagsTableAdapter As TagsTableAdapter
9365
9366         Private _user_DetailsTableAdapter As User_DetailsTableAdapter
9367
9368         Private _usersTableAdapter As UsersTableAdapter
9369
9370         Private _wishlistTableAdapter As WishlistTableAdapter
9371
9372         Private _backupDataSetBeforeUpdate As Boolean
9373
9374         Private _connection As Global.System.Data.IDbConnection
9375
9376         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9377          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9378         Public Property UpdateOrder() As UpdateOrderOption
9379             Get
9380                 Return Me._updateOrder
9381             End Get
9382             Set
9383                 Me._updateOrder = value
9384             End Set
9385         End Property
9386
9387         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9388          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9389          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
9390             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
9391             "a", "System.Drawing.Design.UITypeEditor")>  _
9392         Public Property AchievementTableAdapter() As AchievementTableAdapter
9393             Get
9394                 Return Me._achievementTableAdapter
9395             End Get
9396             Set
9397                 Me._achievementTableAdapter = value
9398             End Set
9399         End Property
9400
9401         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9402          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9403          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
9404             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
9405             "a", "System.Drawing.Design.UITypeEditor")>  _
9406         Public Property DOWTableAdapter() As DOWTableAdapter
9407             Get
9408                 Return Me._dOWTableAdapter
9409             End Get
9410             Set
9411                 Me._dOWTableAdapter = value
9412             End Set
9413         End Property
9414
9415         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9416          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9417          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
9418             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
9419             "a", "System.Drawing.Design.UITypeEditor")>  _
9420         Public Property FriendsTableAdapter() As FriendsTableAdapter
9421             Get
9422                 Return Me._friendsTableAdapter
9423             End Get
9424             Set
9425                 Me._friendsTableAdapter = value
9426             End Set
9427         End Property
9428
9429         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9430          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9431          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
9432             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
9433             "a", "System.Drawing.Design.UITypeEditor")>  _
9434         Public Property GamesTableAdapter() As GamesTableAdapter
9435             Get
9436                 Return Me._gamesTableAdapter
9437             End Get
9438             Set
9439                 Me._gamesTableAdapter = value
9440             End Set
9441         End Property
9442
9443         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9444          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9445          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
9446             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
9447             "a", "System.Drawing.Design.UITypeEditor")>  _
9448         Public Property PurchasedTableAdapter() As PurchasedTableAdapter
9449             Get
9450                 Return Me._purchasedTableAdapter
9451             End Get
9452             Set
9453                 Me._purchasedTableAdapter = value
9454             End Set
9455         End Property
9456
9457         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9458          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9459          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
9460             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
9461             "a", "System.Drawing.Design.UITypeEditor")>  _
9462         Public Property ReviewsTableAdapter() As ReviewsTableAdapter
9463             Get
9464                 Return Me._reviewsTableAdapter
9465             End Get
9466             Set
9467                 Me._reviewsTableAdapter = value
9468             End Set
9469         End Property
9470
9471         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9472          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9473          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
9474             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
9475             "a", "System.Drawing.Design.UITypeEditor")>  _
9476         Public Property TagsTableAdapter() As TagsTableAdapter
9477             Get
9478                 Return Me._tagsTableAdapter
9479             End Get
9480             Set
9481                 Me._tagsTableAdapter = value
9482             End Set
9483         End Property
9484
9485         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9486          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9487          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
9488             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
9489             "a", "System.Drawing.Design.UITypeEditor")>  _
9490         Public Property User_DetailsTableAdapter() As User_DetailsTableAdapter
9491             Get
9492                 Return Me._user_DetailsTableAdapter
9493             End Get
9494             Set
9495                 Me._user_DetailsTableAdapter = value
9496             End Set
9497         End Property
9498
9499         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9500          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9501          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
9502             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
9503             "a", "System.Drawing.Design.UITypeEditor")>  _
9504         Public Property UsersTableAdapter() As UsersTableAdapter
9505             Get
9506                 Return Me._usersTableAdapter
9507             End Get
9508             Set
9509                 Me._usersTableAdapter = value
9510             End Set
9511         End Property
9512
9513         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9514          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9515          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
9516             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
9517             "a", "System.Drawing.Design.UITypeEditor")>  _
9518         Public Property WishlistTableAdapter() As WishlistTableAdapter
9519             Get
9520                 Return Me._wishlistTableAdapter
9521             End Get
9522             Set
9523                 Me._wishlistTableAdapter = value
9524             End Set
9525         End Property
9526
9527         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9528          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9529         Public Property BackupDataSetBeforeUpdate() As Boolean
9530             Get
9531                 Return Me._backupDataSetBeforeUpdate
9532             End Get
9533             Set
9534                 Me._backupDataSetBeforeUpdate = value
9535             End Set
9536         End Property
9537
9538         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9539          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9540          Global.System.ComponentModel.Browsable(false)>  _
9541         Public Property Connection() As Global.System.Data.IDbConnection
9542             Get
9543                 If (Not (Me._connection) Is Nothing) Then
9544                     Return Me._connection
9545                 End If
9546                 If ((Not (Me._achievementTableAdapter) Is Nothing)  _
9547                             AndAlso (Not (Me._achievementTableAdapter.Connection) Is Nothing)) Then
9548                     Return Me._achievementTableAdapter.Connection
9549                 End If
9550                 If ((Not (Me._dOWTableAdapter) Is Nothing)  _
9551                             AndAlso (Not (Me._dOWTableAdapter.Connection) Is Nothing)) Then
9552                     Return Me._dOWTableAdapter.Connection
9553                 End If
9554                 If ((Not (Me._friendsTableAdapter) Is Nothing)  _
9555                             AndAlso (Not (Me._friendsTableAdapter.Connection) Is Nothing)) Then
9556                     Return Me._friendsTableAdapter.Connection
9557                 End If
9558                 If ((Not (Me._gamesTableAdapter) Is Nothing)  _
9559                             AndAlso (Not (Me._gamesTableAdapter.Connection) Is Nothing)) Then
9560                     Return Me._gamesTableAdapter.Connection
9561                 End If
9562                 If ((Not (Me._purchasedTableAdapter) Is Nothing)  _
9563                             AndAlso (Not (Me._purchasedTableAdapter.Connection) Is Nothing)) Then
9564                     Return Me._purchasedTableAdapter.Connection
9565                 End If
9566                 If ((Not (Me._reviewsTableAdapter) Is Nothing)  _
9567                             AndAlso (Not (Me._reviewsTableAdapter.Connection) Is Nothing)) Then
9568                     Return Me._reviewsTableAdapter.Connection
9569                 End If
9570                 If ((Not (Me._tagsTableAdapter) Is Nothing)  _
9571                             AndAlso (Not (Me._tagsTableAdapter.Connection) Is Nothing)) Then
9572                     Return Me._tagsTableAdapter.Connection
9573                 End If
9574                 If ((Not (Me._user_DetailsTableAdapter) Is Nothing)  _
9575                             AndAlso (Not (Me._user_DetailsTableAdapter.Connection) Is Nothing)) Then
9576                     Return Me._user_DetailsTableAdapter.Connection
9577                 End If
9578                 If ((Not (Me._usersTableAdapter) Is Nothing)  _
9579                             AndAlso (Not (Me._usersTableAdapter.Connection) Is Nothing)) Then
9580                     Return Me._usersTableAdapter.Connection
9581                 End If
9582                 If ((Not (Me._wishlistTableAdapter) Is Nothing)  _
9583                             AndAlso (Not (Me._wishlistTableAdapter.Connection) Is Nothing)) Then
9584                     Return Me._wishlistTableAdapter.Connection
9585                 End If
9586                 Return Nothing
9587             End Get
9588             Set
9589                 Me._connection = value
9590             End Set
9591         End Property
9592
9593         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9594          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9595          Global.System.ComponentModel.Browsable(false)>  _
9596         Public ReadOnly Property TableAdapterInstanceCount() As Integer
9597             Get
9598                 Dim count As Integer = 0
9599                 If (Not (Me._achievementTableAdapter) Is Nothing) Then
9600                     count = (count + 1)
9601                 End If
9602                 If (Not (Me._dOWTableAdapter) Is Nothing) Then
9603                     count = (count + 1)
9604                 End If
9605                 If (Not (Me._friendsTableAdapter) Is Nothing) Then
9606                     count = (count + 1)
9607                 End If
9608                 If (Not (Me._gamesTableAdapter) Is Nothing) Then
9609                     count = (count + 1)
9610                 End If
9611                 If (Not (Me._purchasedTableAdapter) Is Nothing) Then
9612                     count = (count + 1)
9613                 End If
9614                 If (Not (Me._reviewsTableAdapter) Is Nothing) Then
9615                     count = (count + 1)
9616                 End If
9617                 If (Not (Me._tagsTableAdapter) Is Nothing) Then
9618                     count = (count + 1)
9619                 End If
9620                 If (Not (Me._user_DetailsTableAdapter) Is Nothing) Then
9621                     count = (count + 1)
9622                 End If
9623                 If (Not (Me._usersTableAdapter) Is Nothing) Then
9624                     count = (count + 1)
9625                 End If
9626                 If (Not (Me._wishlistTableAdapter) Is Nothing) Then
9627                     count = (count + 1)
9628                 End If
9629                 Return count
9630             End Get
9631         End Property
9632
9633         '''<summary>
9634         '''Update rows in top-down order.
9635         '''</summary>
9636         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9637          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9638         Private Function UpdateUpdatedRows(ByVal dataSet As NEADataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
9639             Dim result As Integer = 0
9640             If (Not (Me._gamesTableAdapter) Is Nothing) Then
9641                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Games.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
9642                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
9643                 If ((Not (updatedRows) Is Nothing)  _
9644                             AndAlso (0 < updatedRows.Length)) Then
9645                     result = (result + Me._gamesTableAdapter.Update(updatedRows))
9646                     allChangedRows.AddRange(updatedRows)
9647                 End If
9648             End If
9649             If (Not (Me._user_DetailsTableAdapter) Is Nothing) Then
9650                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.User_Details.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
9651                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
9652                 If ((Not (updatedRows) Is Nothing)  _
9653                             AndAlso (0 < updatedRows.Length)) Then
9654                     result = (result + Me._user_DetailsTableAdapter.Update(updatedRows))
9655                     allChangedRows.AddRange(updatedRows)
9656                 End If
9657             End If
9658             If (Not (Me._achievementTableAdapter) Is Nothing) Then
9659                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Achievement.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
9660                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
9661                 If ((Not (updatedRows) Is Nothing)  _
9662                             AndAlso (0 < updatedRows.Length)) Then
9663                     result = (result + Me._achievementTableAdapter.Update(updatedRows))
9664                     allChangedRows.AddRange(updatedRows)
9665                 End If
9666             End If
9667             If (Not (Me._dOWTableAdapter) Is Nothing) Then
9668                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.DOW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
9669                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
9670                 If ((Not (updatedRows) Is Nothing)  _
9671                             AndAlso (0 < updatedRows.Length)) Then
9672                     result = (result + Me._dOWTableAdapter.Update(updatedRows))
9673                     allChangedRows.AddRange(updatedRows)
9674                 End If
9675             End If
9676             If (Not (Me._friendsTableAdapter) Is Nothing) Then
9677                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Friends.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
9678                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
9679                 If ((Not (updatedRows) Is Nothing)  _
9680                             AndAlso (0 < updatedRows.Length)) Then
9681                     result = (result + Me._friendsTableAdapter.Update(updatedRows))
9682                     allChangedRows.AddRange(updatedRows)
9683                 End If
9684             End If
9685             If (Not (Me._purchasedTableAdapter) Is Nothing) Then
9686                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Purchased.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
9687                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
9688                 If ((Not (updatedRows) Is Nothing)  _
9689                             AndAlso (0 < updatedRows.Length)) Then
9690                     result = (result + Me._purchasedTableAdapter.Update(updatedRows))
9691                     allChangedRows.AddRange(updatedRows)
9692                 End If
9693             End If
9694             If (Not (Me._reviewsTableAdapter) Is Nothing) Then
9695                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Reviews.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
9696                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
9697                 If ((Not (updatedRows) Is Nothing)  _
9698                             AndAlso (0 < updatedRows.Length)) Then
9699                     result = (result + Me._reviewsTableAdapter.Update(updatedRows))
9700                     allChangedRows.AddRange(updatedRows)
9701                 End If
9702             End If
9703             If (Not (Me._tagsTableAdapter) Is Nothing) Then
9704                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Tags.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
9705                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
9706                 If ((Not (updatedRows) Is Nothing)  _
9707                             AndAlso (0 < updatedRows.Length)) Then
9708                     result = (result + Me._tagsTableAdapter.Update(updatedRows))
9709                     allChangedRows.AddRange(updatedRows)
9710                 End If
9711             End If
9712             If (Not (Me._usersTableAdapter) Is Nothing) Then
9713                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Users.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
9714                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
9715                 If ((Not (updatedRows) Is Nothing)  _
9716                             AndAlso (0 < updatedRows.Length)) Then
9717                     result = (result + Me._usersTableAdapter.Update(updatedRows))
9718                     allChangedRows.AddRange(updatedRows)
9719                 End If
9720             End If
9721             If (Not (Me._wishlistTableAdapter) Is Nothing) Then
9722                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Wishlist.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
9723                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
9724                 If ((Not (updatedRows) Is Nothing)  _
9725                             AndAlso (0 < updatedRows.Length)) Then
9726                     result = (result + Me._wishlistTableAdapter.Update(updatedRows))
9727                     allChangedRows.AddRange(updatedRows)
9728                 End If
9729             End If
9730             Return result
9731         End Function
9732
9733         '''<summary>
9734         '''Insert rows in top-down order.
9735         '''</summary>
9736         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9737          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9738         Private Function UpdateInsertedRows(ByVal dataSet As NEADataSet, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
9739             Dim result As Integer = 0
9740             If (Not (Me._gamesTableAdapter) Is Nothing) Then
9741                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Games.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
9742                 If ((Not (addedRows) Is Nothing)  _
9743                             AndAlso (0 < addedRows.Length)) Then
9744                     result = (result + Me._gamesTableAdapter.Update(addedRows))
9745                     allAddedRows.AddRange(addedRows)
9746                 End If
9747             End If
9748             If (Not (Me._user_DetailsTableAdapter) Is Nothing) Then
9749                 Dim addedRows() As Global.System.Data.DataRow = dataSet.User_Details.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
9750                 If ((Not (addedRows) Is Nothing)  _
9751                             AndAlso (0 < addedRows.Length)) Then
9752                     result = (result + Me._user_DetailsTableAdapter.Update(addedRows))
9753                     allAddedRows.AddRange(addedRows)
9754                 End If
9755             End If
9756             If (Not (Me._achievementTableAdapter) Is Nothing) Then
9757                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Achievement.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
9758                 If ((Not (addedRows) Is Nothing)  _
9759                             AndAlso (0 < addedRows.Length)) Then
9760                     result = (result + Me._achievementTableAdapter.Update(addedRows))
9761                     allAddedRows.AddRange(addedRows)
9762                 End If
9763             End If
9764             If (Not (Me._dOWTableAdapter) Is Nothing) Then
9765                 Dim addedRows() As Global.System.Data.DataRow = dataSet.DOW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
9766                 If ((Not (addedRows) Is Nothing)  _
9767                             AndAlso (0 < addedRows.Length)) Then
9768                     result = (result + Me._dOWTableAdapter.Update(addedRows))
9769                     allAddedRows.AddRange(addedRows)
9770                 End If
9771             End If
9772             If (Not (Me._friendsTableAdapter) Is Nothing) Then
9773                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Friends.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
9774                 If ((Not (addedRows) Is Nothing)  _
9775                             AndAlso (0 < addedRows.Length)) Then
9776                     result = (result + Me._friendsTableAdapter.Update(addedRows))
9777                     allAddedRows.AddRange(addedRows)
9778                 End If
9779             End If
9780             If (Not (Me._purchasedTableAdapter) Is Nothing) Then
9781                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Purchased.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
9782                 If ((Not (addedRows) Is Nothing)  _
9783                             AndAlso (0 < addedRows.Length)) Then
9784                     result = (result + Me._purchasedTableAdapter.Update(addedRows))
9785                     allAddedRows.AddRange(addedRows)
9786                 End If
9787             End If
9788             If (Not (Me._reviewsTableAdapter) Is Nothing) Then
9789                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Reviews.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
9790                 If ((Not (addedRows) Is Nothing)  _
9791                             AndAlso (0 < addedRows.Length)) Then
9792                     result = (result + Me._reviewsTableAdapter.Update(addedRows))
9793                     allAddedRows.AddRange(addedRows)
9794                 End If
9795             End If
9796             If (Not (Me._tagsTableAdapter) Is Nothing) Then
9797                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Tags.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
9798                 If ((Not (addedRows) Is Nothing)  _
9799                             AndAlso (0 < addedRows.Length)) Then
9800                     result = (result + Me._tagsTableAdapter.Update(addedRows))
9801                     allAddedRows.AddRange(addedRows)
9802                 End If
9803             End If
9804             If (Not (Me._usersTableAdapter) Is Nothing) Then
9805                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Users.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
9806                 If ((Not (addedRows) Is Nothing)  _
9807                             AndAlso (0 < addedRows.Length)) Then
9808                     result = (result + Me._usersTableAdapter.Update(addedRows))
9809                     allAddedRows.AddRange(addedRows)
9810                 End If
9811             End If
9812             If (Not (Me._wishlistTableAdapter) Is Nothing) Then
9813                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Wishlist.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
9814                 If ((Not (addedRows) Is Nothing)  _
9815                             AndAlso (0 < addedRows.Length)) Then
9816                     result = (result + Me._wishlistTableAdapter.Update(addedRows))
9817                     allAddedRows.AddRange(addedRows)
9818                 End If
9819             End If
9820             Return result
9821         End Function
9822
9823         '''<summary>
9824         '''Delete rows in bottom-up order.
9825         '''</summary>
9826         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9827          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9828         Private Function UpdateDeletedRows(ByVal dataSet As NEADataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
9829             Dim result As Integer = 0
9830             If (Not (Me._wishlistTableAdapter) Is Nothing) Then
9831                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Wishlist.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
9832                 If ((Not (deletedRows) Is Nothing)  _
9833                             AndAlso (0 < deletedRows.Length)) Then
9834                     result = (result + Me._wishlistTableAdapter.Update(deletedRows))
9835                     allChangedRows.AddRange(deletedRows)
9836                 End If
9837             End If
9838             If (Not (Me._usersTableAdapter) Is Nothing) Then
9839                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Users.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
9840                 If ((Not (deletedRows) Is Nothing)  _
9841                             AndAlso (0 < deletedRows.Length)) Then
9842                     result = (result + Me._usersTableAdapter.Update(deletedRows))
9843                     allChangedRows.AddRange(deletedRows)
9844                 End If
9845             End If
9846             If (Not (Me._tagsTableAdapter) Is Nothing) Then
9847                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Tags.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
9848                 If ((Not (deletedRows) Is Nothing)  _
9849                             AndAlso (0 < deletedRows.Length)) Then
9850                     result = (result + Me._tagsTableAdapter.Update(deletedRows))
9851                     allChangedRows.AddRange(deletedRows)
9852                 End If
9853             End If
9854             If (Not (Me._reviewsTableAdapter) Is Nothing) Then
9855                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Reviews.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
9856                 If ((Not (deletedRows) Is Nothing)  _
9857                             AndAlso (0 < deletedRows.Length)) Then
9858                     result = (result + Me._reviewsTableAdapter.Update(deletedRows))
9859                     allChangedRows.AddRange(deletedRows)
9860                 End If
9861             End If
9862             If (Not (Me._purchasedTableAdapter) Is Nothing) Then
9863                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Purchased.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
9864                 If ((Not (deletedRows) Is Nothing)  _
9865                             AndAlso (0 < deletedRows.Length)) Then
9866                     result = (result + Me._purchasedTableAdapter.Update(deletedRows))
9867                     allChangedRows.AddRange(deletedRows)
9868                 End If
9869             End If
9870             If (Not (Me._friendsTableAdapter) Is Nothing) Then
9871                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Friends.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
9872                 If ((Not (deletedRows) Is Nothing)  _
9873                             AndAlso (0 < deletedRows.Length)) Then
9874                     result = (result + Me._friendsTableAdapter.Update(deletedRows))
9875                     allChangedRows.AddRange(deletedRows)
9876                 End If
9877             End If
9878             If (Not (Me._dOWTableAdapter) Is Nothing) Then
9879                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.DOW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
9880                 If ((Not (deletedRows) Is Nothing)  _
9881                             AndAlso (0 < deletedRows.Length)) Then
9882                     result = (result + Me._dOWTableAdapter.Update(deletedRows))
9883                     allChangedRows.AddRange(deletedRows)
9884                 End If
9885             End If
9886             If (Not (Me._achievementTableAdapter) Is Nothing) Then
9887                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Achievement.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
9888                 If ((Not (deletedRows) Is Nothing)  _
9889                             AndAlso (0 < deletedRows.Length)) Then
9890                     result = (result + Me._achievementTableAdapter.Update(deletedRows))
9891                     allChangedRows.AddRange(deletedRows)
9892                 End If
9893             End If
9894             If (Not (Me._user_DetailsTableAdapter) Is Nothing) Then
9895                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.User_Details.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
9896                 If ((Not (deletedRows) Is Nothing)  _
9897                             AndAlso (0 < deletedRows.Length)) Then
9898                     result = (result + Me._user_DetailsTableAdapter.Update(deletedRows))
9899                     allChangedRows.AddRange(deletedRows)
9900                 End If
9901             End If
9902             If (Not (Me._gamesTableAdapter) Is Nothing) Then
9903                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Games.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
9904                 If ((Not (deletedRows) Is Nothing)  _
9905                             AndAlso (0 < deletedRows.Length)) Then
9906                     result = (result + Me._gamesTableAdapter.Update(deletedRows))
9907                     allChangedRows.AddRange(deletedRows)
9908                 End If
9909             End If
9910             Return result
9911         End Function
9912
9913         '''<summary>
9914         '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first
9915         '''</summary>
9916         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9917          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9918         Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow()
9919             If ((updatedRows Is Nothing)  _
9920                         OrElse (updatedRows.Length < 1)) Then
9921                 Return updatedRows
9922             End If
9923             If ((allAddedRows Is Nothing)  _
9924                         OrElse (allAddedRows.Count < 1)) Then
9925                 Return updatedRows
9926             End If
9927             Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
9928             Dim i As Integer = 0
9929             Do While (i < updatedRows.Length)
9930                 Dim row As Global.System.Data.DataRow = updatedRows(i)
9931                 If (allAddedRows.Contains(row) = false) Then
9932                     realUpdatedRows.Add(row)
9933                 End If
9934                 i = (i + 1)
9935             Loop
9936             Return realUpdatedRows.ToArray
9937         End Function
9938
9939         '''<summary>
9940         '''Update all changes to the dataset.
9941         '''</summary>
9942         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9943          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9944         Public Overridable Function UpdateAll(ByVal dataSet As NEADataSet) As Integer
9945             If (dataSet Is Nothing) Then
9946                 Throw New Global.System.ArgumentNullException("dataSet")
9947             End If
9948             If (dataSet.HasChanges = false) Then
9949                 Return 0
9950             End If
9951             If ((Not (Me._achievementTableAdapter) Is Nothing)  _
9952                         AndAlso (Me.MatchTableAdapterConnection(Me._achievementTableAdapter.Connection) = false)) Then
9953                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
9954                         "tring.")
9955             End If
9956             If ((Not (Me._dOWTableAdapter) Is Nothing)  _
9957                         AndAlso (Me.MatchTableAdapterConnection(Me._dOWTableAdapter.Connection) = false)) Then
9958                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
9959                         "tring.")
9960             End If
9961             If ((Not (Me._friendsTableAdapter) Is Nothing)  _
9962                         AndAlso (Me.MatchTableAdapterConnection(Me._friendsTableAdapter.Connection) = false)) Then
9963                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
9964                         "tring.")
9965             End If
9966             If ((Not (Me._gamesTableAdapter) Is Nothing)  _
9967                         AndAlso (Me.MatchTableAdapterConnection(Me._gamesTableAdapter.Connection) = false)) Then
9968                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
9969                         "tring.")
9970             End If
9971             If ((Not (Me._purchasedTableAdapter) Is Nothing)  _
9972                         AndAlso (Me.MatchTableAdapterConnection(Me._purchasedTableAdapter.Connection) = false)) Then
9973                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
9974                         "tring.")
9975             End If
9976             If ((Not (Me._reviewsTableAdapter) Is Nothing)  _
9977                         AndAlso (Me.MatchTableAdapterConnection(Me._reviewsTableAdapter.Connection) = false)) Then
9978                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
9979                         "tring.")
9980             End If
9981             If ((Not (Me._tagsTableAdapter) Is Nothing)  _
9982                         AndAlso (Me.MatchTableAdapterConnection(Me._tagsTableAdapter.Connection) = false)) Then
9983                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
9984                         "tring.")
9985             End If
9986             If ((Not (Me._user_DetailsTableAdapter) Is Nothing)  _
9987                         AndAlso (Me.MatchTableAdapterConnection(Me._user_DetailsTableAdapter.Connection) = false)) Then
9988                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
9989                         "tring.")
9990             End If
9991             If ((Not (Me._usersTableAdapter) Is Nothing)  _
9992                         AndAlso (Me.MatchTableAdapterConnection(Me._usersTableAdapter.Connection) = false)) Then
9993                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
9994                         "tring.")
9995             End If
9996             If ((Not (Me._wishlistTableAdapter) Is Nothing)  _
9997                         AndAlso (Me.MatchTableAdapterConnection(Me._wishlistTableAdapter.Connection) = false)) Then
9998                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
9999                         "tring.")
10000             End If
10001             Dim workConnection As Global.System.Data.IDbConnection = Me.Connection
10002             If (workConnection Is Nothing) Then
10003                 Throw New Global.System.ApplicationException("TableAdapterManager contains no connection information. Set each TableAdapterMana"& _
10004                         "ger TableAdapter property to a valid TableAdapter instance.")
10005             End If
10006             Dim workConnOpened As Boolean = false
10007             If ((workConnection.State And Global.System.Data.ConnectionState.Broken)  _
10008                         = Global.System.Data.ConnectionState.Broken) Then
10009                 workConnection.Close
10010             End If
10011             If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then
10012                 workConnection.Open
10013                 workConnOpened = true
10014             End If
10015             Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction
10016             If (workTransaction Is Nothing) Then
10017                 Throw New Global.System.ApplicationException("The transaction cannot begin. The current data connection does not support transa"& _
10018                         "ctions or the current state is not allowing the transaction to begin.")
10019             End If
10020             Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
10021             Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
10022             Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)()
10023             Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)()
10024             Dim result As Integer = 0
10025             Dim backupDataSet As Global.System.Data.DataSet = Nothing
10026             If Me.BackupDataSetBeforeUpdate Then
10027                 backupDataSet = New Global.System.Data.DataSet()
10028                 backupDataSet.Merge(dataSet)
10029             End If
10030             Try
10031                 '---- Prepare for update -----------
10032                 '
10033                 If (Not (Me._achievementTableAdapter) Is Nothing) Then
10034                     revertConnections.Add(Me._achievementTableAdapter, Me._achievementTableAdapter.Connection)
10035                     Me._achievementTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection)
10036                     Me._achievementTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction)
10037                     If Me._achievementTableAdapter.Adapter.AcceptChangesDuringUpdate Then
10038                         Me._achievementTableAdapter.Adapter.AcceptChangesDuringUpdate = false
10039                         adaptersWithAcceptChangesDuringUpdate.Add(Me._achievementTableAdapter.Adapter)
10040                     End If
10041                 End If
10042                 If (Not (Me._dOWTableAdapter) Is Nothing) Then
10043                     revertConnections.Add(Me._dOWTableAdapter, Me._dOWTableAdapter.Connection)
10044                     Me._dOWTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection)
10045                     Me._dOWTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction)
10046                     If Me._dOWTableAdapter.Adapter.AcceptChangesDuringUpdate Then
10047                         Me._dOWTableAdapter.Adapter.AcceptChangesDuringUpdate = false
10048                         adaptersWithAcceptChangesDuringUpdate.Add(Me._dOWTableAdapter.Adapter)
10049                     End If
10050                 End If
10051                 If (Not (Me._friendsTableAdapter) Is Nothing) Then
10052                     revertConnections.Add(Me._friendsTableAdapter, Me._friendsTableAdapter.Connection)
10053                     Me._friendsTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection)
10054                     Me._friendsTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction)
10055                     If Me._friendsTableAdapter.Adapter.AcceptChangesDuringUpdate Then
10056                         Me._friendsTableAdapter.Adapter.AcceptChangesDuringUpdate = false
10057                         adaptersWithAcceptChangesDuringUpdate.Add(Me._friendsTableAdapter.Adapter)
10058                     End If
10059                 End If
10060                 If (Not (Me._gamesTableAdapter) Is Nothing) Then
10061                     revertConnections.Add(Me._gamesTableAdapter, Me._gamesTableAdapter.Connection)
10062                     Me._gamesTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection)
10063                     Me._gamesTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction)
10064                     If Me._gamesTableAdapter.Adapter.AcceptChangesDuringUpdate Then
10065                         Me._gamesTableAdapter.Adapter.AcceptChangesDuringUpdate = false
10066                         adaptersWithAcceptChangesDuringUpdate.Add(Me._gamesTableAdapter.Adapter)
10067                     End If
10068                 End If
10069                 If (Not (Me._purchasedTableAdapter) Is Nothing) Then
10070                     revertConnections.Add(Me._purchasedTableAdapter, Me._purchasedTableAdapter.Connection)
10071                     Me._purchasedTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection)
10072                     Me._purchasedTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction)
10073                     If Me._purchasedTableAdapter.Adapter.AcceptChangesDuringUpdate Then
10074                         Me._purchasedTableAdapter.Adapter.AcceptChangesDuringUpdate = false
10075                         adaptersWithAcceptChangesDuringUpdate.Add(Me._purchasedTableAdapter.Adapter)
10076                     End If
10077                 End If
10078                 If (Not (Me._reviewsTableAdapter) Is Nothing) Then
10079                     revertConnections.Add(Me._reviewsTableAdapter, Me._reviewsTableAdapter.Connection)
10080                     Me._reviewsTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection)
10081                     Me._reviewsTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction)
10082                     If Me._reviewsTableAdapter.Adapter.AcceptChangesDuringUpdate Then
10083                         Me._reviewsTableAdapter.Adapter.AcceptChangesDuringUpdate = false
10084                         adaptersWithAcceptChangesDuringUpdate.Add(Me._reviewsTableAdapter.Adapter)
10085                     End If
10086                 End If
10087                 If (Not (Me._tagsTableAdapter) Is Nothing) Then
10088                     revertConnections.Add(Me._tagsTableAdapter, Me._tagsTableAdapter.Connection)
10089                     Me._tagsTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection)
10090                     Me._tagsTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction)
10091                     If Me._tagsTableAdapter.Adapter.AcceptChangesDuringUpdate Then
10092                         Me._tagsTableAdapter.Adapter.AcceptChangesDuringUpdate = false
10093                         adaptersWithAcceptChangesDuringUpdate.Add(Me._tagsTableAdapter.Adapter)
10094                     End If
10095                 End If
10096                 If (Not (Me._user_DetailsTableAdapter) Is Nothing) Then
10097                     revertConnections.Add(Me._user_DetailsTableAdapter, Me._user_DetailsTableAdapter.Connection)
10098                     Me._user_DetailsTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection)
10099                     Me._user_DetailsTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction)
10100                     If Me._user_DetailsTableAdapter.Adapter.AcceptChangesDuringUpdate Then
10101                         Me._user_DetailsTableAdapter.Adapter.AcceptChangesDuringUpdate = false
10102                         adaptersWithAcceptChangesDuringUpdate.Add(Me._user_DetailsTableAdapter.Adapter)
10103                     End If
10104                 End If
10105                 If (Not (Me._usersTableAdapter) Is Nothing) Then
10106                     revertConnections.Add(Me._usersTableAdapter, Me._usersTableAdapter.Connection)
10107                     Me._usersTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection)
10108                     Me._usersTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction)
10109                     If Me._usersTableAdapter.Adapter.AcceptChangesDuringUpdate Then
10110                         Me._usersTableAdapter.Adapter.AcceptChangesDuringUpdate = false
10111                         adaptersWithAcceptChangesDuringUpdate.Add(Me._usersTableAdapter.Adapter)
10112                     End If
10113                 End If
10114                 If (Not (Me._wishlistTableAdapter) Is Nothing) Then
10115                     revertConnections.Add(Me._wishlistTableAdapter, Me._wishlistTableAdapter.Connection)
10116                     Me._wishlistTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection)
10117                     Me._wishlistTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction)
10118                     If Me._wishlistTableAdapter.Adapter.AcceptChangesDuringUpdate Then
10119                         Me._wishlistTableAdapter.Adapter.AcceptChangesDuringUpdate = false
10120                         adaptersWithAcceptChangesDuringUpdate.Add(Me._wishlistTableAdapter.Adapter)
10121                     End If
10122                 End If
10123                 '
10124                 '---- Perform updates -----------
10125                 '
10126                 If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then
10127                     result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows))
10128                     result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows))
10129                 Else
10130                     result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows))
10131                     result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows))
10132                 End If
10133                 result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows))
10134                 '
10135                 '---- Commit updates -----------
10136                 '
10137                 workTransaction.Commit
10138                 If (0 < allAddedRows.Count) Then
10139                     Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow
10140                     allAddedRows.CopyTo(rows)
10141                     Dim i As Integer = 0
10142                     Do While (i < rows.Length)
10143                         Dim row As Global.System.Data.DataRow = rows(i)
10144                         row.AcceptChanges
10145                         i = (i + 1)
10146                     Loop
10147                 End If
10148                 If (0 < allChangedRows.Count) Then
10149                     Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow
10150                     allChangedRows.CopyTo(rows)
10151                     Dim i As Integer = 0
10152                     Do While (i < rows.Length)
10153                         Dim row As Global.System.Data.DataRow = rows(i)
10154                         row.AcceptChanges
10155                         i = (i + 1)
10156                     Loop
10157                 End If
10158             Catch ex As Global.System.Exception
10159                 workTransaction.Rollback
10160                 '---- Restore the dataset -----------
10161                 If Me.BackupDataSetBeforeUpdate Then
10162                     Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing))
10163                     dataSet.Clear
10164                     dataSet.Merge(backupDataSet)
10165                 Else
10166                     If (0 < allAddedRows.Count) Then
10167                         Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow
10168                         allAddedRows.CopyTo(rows)
10169                         Dim i As Integer = 0
10170                         Do While (i < rows.Length)
10171                             Dim row As Global.System.Data.DataRow = rows(i)
10172                             row.AcceptChanges
10173                             row.SetAdded
10174                             i = (i + 1)
10175                         Loop
10176                     End If
10177                 End If
10178                 Throw ex
10179             Finally
10180                 If workConnOpened Then
10181                     workConnection.Close
10182                 End If
10183                 If (Not (Me._achievementTableAdapter) Is Nothing) Then
10184                     Me._achievementTableAdapter.Connection = CType(revertConnections(Me._achievementTableAdapter),Global.System.Data.OleDb.OleDbConnection)
10185                     Me._achievementTableAdapter.Transaction = Nothing
10186                 End If
10187                 If (Not (Me._dOWTableAdapter) Is Nothing) Then
10188                     Me._dOWTableAdapter.Connection = CType(revertConnections(Me._dOWTableAdapter),Global.System.Data.OleDb.OleDbConnection)
10189                     Me._dOWTableAdapter.Transaction = Nothing
10190                 End If
10191                 If (Not (Me._friendsTableAdapter) Is Nothing) Then
10192                     Me._friendsTableAdapter.Connection = CType(revertConnections(Me._friendsTableAdapter),Global.System.Data.OleDb.OleDbConnection)
10193                     Me._friendsTableAdapter.Transaction = Nothing
10194                 End If
10195                 If (Not (Me._gamesTableAdapter) Is Nothing) Then
10196                     Me._gamesTableAdapter.Connection = CType(revertConnections(Me._gamesTableAdapter),Global.System.Data.OleDb.OleDbConnection)
10197                     Me._gamesTableAdapter.Transaction = Nothing
10198                 End If
10199                 If (Not (Me._purchasedTableAdapter) Is Nothing) Then
10200                     Me._purchasedTableAdapter.Connection = CType(revertConnections(Me._purchasedTableAdapter),Global.System.Data.OleDb.OleDbConnection)
10201                     Me._purchasedTableAdapter.Transaction = Nothing
10202                 End If
10203                 If (Not (Me._reviewsTableAdapter) Is Nothing) Then
10204                     Me._reviewsTableAdapter.Connection = CType(revertConnections(Me._reviewsTableAdapter),Global.System.Data.OleDb.OleDbConnection)
10205                     Me._reviewsTableAdapter.Transaction = Nothing
10206                 End If
10207                 If (Not (Me._tagsTableAdapter) Is Nothing) Then
10208                     Me._tagsTableAdapter.Connection = CType(revertConnections(Me._tagsTableAdapter),Global.System.Data.OleDb.OleDbConnection)
10209                     Me._tagsTableAdapter.Transaction = Nothing
10210                 End If
10211                 If (Not (Me._user_DetailsTableAdapter) Is Nothing) Then
10212                     Me._user_DetailsTableAdapter.Connection = CType(revertConnections(Me._user_DetailsTableAdapter),Global.System.Data.OleDb.OleDbConnection)
10213                     Me._user_DetailsTableAdapter.Transaction = Nothing
10214                 End If
10215                 If (Not (Me._usersTableAdapter) Is Nothing) Then
10216                     Me._usersTableAdapter.Connection = CType(revertConnections(Me._usersTableAdapter),Global.System.Data.OleDb.OleDbConnection)
10217                     Me._usersTableAdapter.Transaction = Nothing
10218                 End If
10219                 If (Not (Me._wishlistTableAdapter) Is Nothing) Then
10220                     Me._wishlistTableAdapter.Connection = CType(revertConnections(Me._wishlistTableAdapter),Global.System.Data.OleDb.OleDbConnection)
10221                     Me._wishlistTableAdapter.Transaction = Nothing
10222                 End If
10223                 If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then
10224                     Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter
10225                     adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters)
10226                     Dim i As Integer = 0
10227                     Do While (i < adapters.Length)
10228                         Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i)
10229                         adapter.AcceptChangesDuringUpdate = true
10230                         i = (i + 1)
10231                     Loop
10232                 End If
10233             End Try
10234             Return result
10235         End Function
10236
10237         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
10238          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
10239         Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)
10240             Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst))
10241         End Sub
10242
10243         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
10244          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
10245         Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean
10246             If (Not (Me._connection) Is Nothing) Then
10247                 Return true
10248             End If
10249             If ((Me.Connection Is Nothing)  _
10250                         OrElse (inputConnection Is Nothing)) Then
10251                 Return true
10252             End If
10253             If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then
10254                 Return true
10255             End If
10256             Return false
10257         End Function
10258
10259         '''<summary>
10260         '''Update Order Option
10261         '''</summary>
10262         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
10263         Public Enum UpdateOrderOption
10264
10265             InsertUpdateDelete = 0
10266
10267             UpdateInsertDelete = 1
10268         End Enum
10269
10270         '''<summary>
10271         '''Used to sort self-referenced table's rows
10272         '''</summary>
10273         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
10274         Private Class SelfReferenceComparer
10275             Inherits Object
10276             Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow)
10277
10278             Private _relation As Global.System.Data.DataRelation
10279
10280             Private _childFirst As Integer
10281
10282             <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
10283              Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
10284             Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)
10285                 MyBase.New
10286                 Me._relation = relation
10287                 If childFirst Then
10288                     Me._childFirst = -1
10289                 Else
10290                     Me._childFirst = 1
10291                 End If
10292             End Sub
10293
10294             <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
10295              Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
10296             Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow
10297                 Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing))
10298                 Dim root As Global.System.Data.DataRow = row
10299                 distance = 0
10300
10301                 Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)()
10302                 traversedRows(row) = row
10303
10304                 Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default])
10305
10306                 Do While ((Not (parent) Is Nothing)  _
10307                             AndAlso (traversedRows.ContainsKey(parent) = false))
10308                     distance = (distance + 1)
10309                     root = parent
10310                     traversedRows(parent) = parent
10311                     parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default])
10312
10313                 Loop
10314
10315                 If (distance = 0) Then
10316                     traversedRows.Clear
10317                     traversedRows(row) = row
10318                     parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original)
10319
10320                     Do While ((Not (parent) Is Nothing)  _
10321                                 AndAlso (traversedRows.ContainsKey(parent) = false))
10322                         distance = (distance + 1)
10323                         root = parent
10324                         traversedRows(parent) = parent
10325                         parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original)
10326
10327                     Loop
10328                 End If
10329
10330                 Return root
10331             End Function
10332
10333             <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
10334              Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
10335             Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare
10336                 If Object.ReferenceEquals(row1, row2) Then
10337                     Return 0
10338                 End If
10339                 If (row1 Is Nothing) Then
10340                     Return -1
10341                 End If
10342                 If (row2 Is Nothing) Then
10343                     Return 1
10344                 End If
10345
10346                 Dim distance1 As Integer = 0
10347                 Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1)
10348
10349                 Dim distance2 As Integer = 0
10350                 Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2)
10351
10352                 If Object.ReferenceEquals(root1, root2) Then
10353                     Return (Me._childFirst * distance1.CompareTo(distance2))
10354                 Else
10355                     Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing)  _
10356                                     AndAlso (Not (root2.Table) Is Nothing)))
10357                     If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then
10358                         Return -1
10359                     Else
10360                         Return 1
10361                     End If
10362                 End If
10363             End Function
10364         End Class
10365     End Class
10366 End Namespace