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 String) 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(String), 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             Me.columnProfilePic.MaxLength = 536870910
3095         End Sub
3096
3097         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3098          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3099         Public Function NewUser_DetailsRow() As User_DetailsRow
3100             Return CType(Me.NewRow,User_DetailsRow)
3101         End Function
3102
3103         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3104          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3105         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
3106             Return New User_DetailsRow(builder)
3107         End Function
3108
3109         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3110          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3111         Protected Overrides Function GetRowType() As Global.System.Type
3112             Return GetType(User_DetailsRow)
3113         End Function
3114
3115         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3116          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3117         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3118             MyBase.OnRowChanged(e)
3119             If (Not (Me.User_DetailsRowChangedEvent) Is Nothing) Then
3120                 RaiseEvent User_DetailsRowChanged(Me, New User_DetailsRowChangeEvent(CType(e.Row,User_DetailsRow), e.Action))
3121             End If
3122         End Sub
3123
3124         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3125          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3126         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3127             MyBase.OnRowChanging(e)
3128             If (Not (Me.User_DetailsRowChangingEvent) Is Nothing) Then
3129                 RaiseEvent User_DetailsRowChanging(Me, New User_DetailsRowChangeEvent(CType(e.Row,User_DetailsRow), e.Action))
3130             End If
3131         End Sub
3132
3133         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3134          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3135         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3136             MyBase.OnRowDeleted(e)
3137             If (Not (Me.User_DetailsRowDeletedEvent) Is Nothing) Then
3138                 RaiseEvent User_DetailsRowDeleted(Me, New User_DetailsRowChangeEvent(CType(e.Row,User_DetailsRow), e.Action))
3139             End If
3140         End Sub
3141
3142         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3143          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3144         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3145             MyBase.OnRowDeleting(e)
3146             If (Not (Me.User_DetailsRowDeletingEvent) Is Nothing) Then
3147                 RaiseEvent User_DetailsRowDeleting(Me, New User_DetailsRowChangeEvent(CType(e.Row,User_DetailsRow), e.Action))
3148             End If
3149         End Sub
3150
3151         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3152          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3153         Public Sub RemoveUser_DetailsRow(ByVal row As User_DetailsRow)
3154             Me.Rows.Remove(row)
3155         End Sub
3156
3157         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3158          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3159         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
3160             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
3161             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
3162             Dim ds As NEADataSet = New NEADataSet()
3163             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
3164             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
3165             any1.MinOccurs = New Decimal(0)
3166             any1.MaxOccurs = Decimal.MaxValue
3167             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3168             sequence.Items.Add(any1)
3169             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
3170             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
3171             any2.MinOccurs = New Decimal(1)
3172             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3173             sequence.Items.Add(any2)
3174             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
3175             attribute1.Name = "namespace"
3176             attribute1.FixedValue = ds.Namespace
3177             type.Attributes.Add(attribute1)
3178             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
3179             attribute2.Name = "tableTypeName"
3180             attribute2.FixedValue = "User_DetailsDataTable"
3181             type.Attributes.Add(attribute2)
3182             type.Particle = sequence
3183             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
3184             If xs.Contains(dsSchema.TargetNamespace) Then
3185                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
3186                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
3187                 Try
3188                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
3189                     dsSchema.Write(s1)
3190                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
3191                     Do While schemas.MoveNext
3192                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
3193                         s2.SetLength(0)
3194                         schema.Write(s2)
3195                         If (s1.Length = s2.Length) Then
3196                             s1.Position = 0
3197                             s2.Position = 0
3198
3199                             Do While ((s1.Position <> s1.Length)  _
3200                                         AndAlso (s1.ReadByte = s2.ReadByte))
3201
3202
3203                             Loop
3204                             If (s1.Position = s1.Length) Then
3205                                 Return type
3206                             End If
3207                         End If
3208
3209                     Loop
3210                 Finally
3211                     If (Not (s1) Is Nothing) Then
3212                         s1.Close
3213                     End If
3214                     If (Not (s2) Is Nothing) Then
3215                         s2.Close
3216                     End If
3217                 End Try
3218             End If
3219             xs.Add(dsSchema)
3220             Return type
3221         End Function
3222     End Class
3223
3224     '''<summary>
3225     '''Represents the strongly named DataTable class.
3226     '''</summary>
3227     <Global.System.Serializable(),  _
3228      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
3229     Partial Public Class UsersDataTable
3230         Inherits Global.System.Data.TypedTableBase(Of UsersRow)
3231
3232         Private columnUserID As Global.System.Data.DataColumn
3233
3234         Private columnUser_DetailsID As Global.System.Data.DataColumn
3235
3236         Private columnUsername As Global.System.Data.DataColumn
3237
3238         Private columnPassword As Global.System.Data.DataColumn
3239
3240         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3241          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3242         Public Sub New()
3243             MyBase.New
3244             Me.TableName = "Users"
3245             Me.BeginInit
3246             Me.InitClass
3247             Me.EndInit
3248         End Sub
3249
3250         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3251          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3252         Friend Sub New(ByVal table As Global.System.Data.DataTable)
3253             MyBase.New
3254             Me.TableName = table.TableName
3255             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
3256                 Me.CaseSensitive = table.CaseSensitive
3257             End If
3258             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
3259                 Me.Locale = table.Locale
3260             End If
3261             If (table.Namespace <> table.DataSet.Namespace) Then
3262                 Me.Namespace = table.Namespace
3263             End If
3264             Me.Prefix = table.Prefix
3265             Me.MinimumCapacity = table.MinimumCapacity
3266         End Sub
3267
3268         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3269          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3270         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
3271             MyBase.New(info, context)
3272             Me.InitVars
3273         End Sub
3274
3275         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3276          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3277         Public ReadOnly Property UserIDColumn() As Global.System.Data.DataColumn
3278             Get
3279                 Return Me.columnUserID
3280             End Get
3281         End Property
3282
3283         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3284          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3285         Public ReadOnly Property User_DetailsIDColumn() As Global.System.Data.DataColumn
3286             Get
3287                 Return Me.columnUser_DetailsID
3288             End Get
3289         End Property
3290
3291         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3292          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3293         Public ReadOnly Property UsernameColumn() As Global.System.Data.DataColumn
3294             Get
3295                 Return Me.columnUsername
3296             End Get
3297         End Property
3298
3299         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3300          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3301         Public ReadOnly Property PasswordColumn() As Global.System.Data.DataColumn
3302             Get
3303                 Return Me.columnPassword
3304             End Get
3305         End Property
3306
3307         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3308          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
3309          Global.System.ComponentModel.Browsable(false)>  _
3310         Public ReadOnly Property Count() As Integer
3311             Get
3312                 Return Me.Rows.Count
3313             End Get
3314         End Property
3315
3316         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3317          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3318         Public Default ReadOnly Property Item(ByVal index As Integer) As UsersRow
3319             Get
3320                 Return CType(Me.Rows(index),UsersRow)
3321             End Get
3322         End Property
3323
3324         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3325         Public Event UsersRowChanging As UsersRowChangeEventHandler
3326
3327         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3328         Public Event UsersRowChanged As UsersRowChangeEventHandler
3329
3330         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3331         Public Event UsersRowDeleting As UsersRowChangeEventHandler
3332
3333         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3334         Public Event UsersRowDeleted As UsersRowChangeEventHandler
3335
3336         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3337          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3338         Public Overloads Sub AddUsersRow(ByVal row As UsersRow)
3339             Me.Rows.Add(row)
3340         End Sub
3341
3342         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3343          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3344         Public Overloads Function AddUsersRow(ByVal parentUser_DetailsRowByUser_DetailsUsers As User_DetailsRow, ByVal Username As String, ByVal Password As String) As UsersRow
3345             Dim rowUsersRow As UsersRow = CType(Me.NewRow,UsersRow)
3346             Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Username, Password}
3347             If (Not (parentUser_DetailsRowByUser_DetailsUsers) Is Nothing) Then
3348                 columnValuesArray(1) = parentUser_DetailsRowByUser_DetailsUsers(0)
3349             End If
3350             rowUsersRow.ItemArray = columnValuesArray
3351             Me.Rows.Add(rowUsersRow)
3352             Return rowUsersRow
3353         End Function
3354
3355         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3356          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3357         Public Function FindByUserID(ByVal UserID As Integer) As UsersRow
3358             Return CType(Me.Rows.Find(New Object() {UserID}),UsersRow)
3359         End Function
3360
3361         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3362          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3363         Public Overrides Function Clone() As Global.System.Data.DataTable
3364             Dim cln As UsersDataTable = CType(MyBase.Clone,UsersDataTable)
3365             cln.InitVars
3366             Return cln
3367         End Function
3368
3369         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3370          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3371         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
3372             Return New UsersDataTable()
3373         End Function
3374
3375         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3376          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3377         Friend Sub InitVars()
3378             Me.columnUserID = MyBase.Columns("UserID")
3379             Me.columnUser_DetailsID = MyBase.Columns("User_DetailsID")
3380             Me.columnUsername = MyBase.Columns("Username")
3381             Me.columnPassword = MyBase.Columns("Password")
3382         End Sub
3383
3384         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3385          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3386         Private Sub InitClass()
3387             Me.columnUserID = New Global.System.Data.DataColumn("UserID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3388             MyBase.Columns.Add(Me.columnUserID)
3389             Me.columnUser_DetailsID = New Global.System.Data.DataColumn("User_DetailsID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3390             MyBase.Columns.Add(Me.columnUser_DetailsID)
3391             Me.columnUsername = New Global.System.Data.DataColumn("Username", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3392             MyBase.Columns.Add(Me.columnUsername)
3393             Me.columnPassword = New Global.System.Data.DataColumn("Password", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3394             MyBase.Columns.Add(Me.columnPassword)
3395             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnUserID}, true))
3396             Me.columnUserID.AutoIncrement = true
3397             Me.columnUserID.AutoIncrementSeed = -1
3398             Me.columnUserID.AutoIncrementStep = -1
3399             Me.columnUserID.AllowDBNull = false
3400             Me.columnUserID.Unique = true
3401             Me.columnUsername.MaxLength = 536870910
3402             Me.columnPassword.MaxLength = 536870910
3403         End Sub
3404
3405         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3406          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3407         Public Function NewUsersRow() As UsersRow
3408             Return CType(Me.NewRow,UsersRow)
3409         End Function
3410
3411         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3412          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3413         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
3414             Return New UsersRow(builder)
3415         End Function
3416
3417         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3418          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3419         Protected Overrides Function GetRowType() As Global.System.Type
3420             Return GetType(UsersRow)
3421         End Function
3422
3423         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3424          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3425         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3426             MyBase.OnRowChanged(e)
3427             If (Not (Me.UsersRowChangedEvent) Is Nothing) Then
3428                 RaiseEvent UsersRowChanged(Me, New UsersRowChangeEvent(CType(e.Row,UsersRow), e.Action))
3429             End If
3430         End Sub
3431
3432         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3433          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3434         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3435             MyBase.OnRowChanging(e)
3436             If (Not (Me.UsersRowChangingEvent) Is Nothing) Then
3437                 RaiseEvent UsersRowChanging(Me, New UsersRowChangeEvent(CType(e.Row,UsersRow), e.Action))
3438             End If
3439         End Sub
3440
3441         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3442          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3443         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3444             MyBase.OnRowDeleted(e)
3445             If (Not (Me.UsersRowDeletedEvent) Is Nothing) Then
3446                 RaiseEvent UsersRowDeleted(Me, New UsersRowChangeEvent(CType(e.Row,UsersRow), e.Action))
3447             End If
3448         End Sub
3449
3450         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3451          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3452         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3453             MyBase.OnRowDeleting(e)
3454             If (Not (Me.UsersRowDeletingEvent) Is Nothing) Then
3455                 RaiseEvent UsersRowDeleting(Me, New UsersRowChangeEvent(CType(e.Row,UsersRow), e.Action))
3456             End If
3457         End Sub
3458
3459         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3460          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3461         Public Sub RemoveUsersRow(ByVal row As UsersRow)
3462             Me.Rows.Remove(row)
3463         End Sub
3464
3465         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3466          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3467         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
3468             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
3469             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
3470             Dim ds As NEADataSet = New NEADataSet()
3471             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
3472             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
3473             any1.MinOccurs = New Decimal(0)
3474             any1.MaxOccurs = Decimal.MaxValue
3475             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3476             sequence.Items.Add(any1)
3477             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
3478             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
3479             any2.MinOccurs = New Decimal(1)
3480             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3481             sequence.Items.Add(any2)
3482             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
3483             attribute1.Name = "namespace"
3484             attribute1.FixedValue = ds.Namespace
3485             type.Attributes.Add(attribute1)
3486             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
3487             attribute2.Name = "tableTypeName"
3488             attribute2.FixedValue = "UsersDataTable"
3489             type.Attributes.Add(attribute2)
3490             type.Particle = sequence
3491             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
3492             If xs.Contains(dsSchema.TargetNamespace) Then
3493                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
3494                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
3495                 Try
3496                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
3497                     dsSchema.Write(s1)
3498                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
3499                     Do While schemas.MoveNext
3500                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
3501                         s2.SetLength(0)
3502                         schema.Write(s2)
3503                         If (s1.Length = s2.Length) Then
3504                             s1.Position = 0
3505                             s2.Position = 0
3506
3507                             Do While ((s1.Position <> s1.Length)  _
3508                                         AndAlso (s1.ReadByte = s2.ReadByte))
3509
3510
3511                             Loop
3512                             If (s1.Position = s1.Length) Then
3513                                 Return type
3514                             End If
3515                         End If
3516
3517                     Loop
3518                 Finally
3519                     If (Not (s1) Is Nothing) Then
3520                         s1.Close
3521                     End If
3522                     If (Not (s2) Is Nothing) Then
3523                         s2.Close
3524                     End If
3525                 End Try
3526             End If
3527             xs.Add(dsSchema)
3528             Return type
3529         End Function
3530     End Class
3531
3532     '''<summary>
3533     '''Represents the strongly named DataTable class.
3534     '''</summary>
3535     <Global.System.Serializable(),  _
3536      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
3537     Partial Public Class WishlistDataTable
3538         Inherits Global.System.Data.TypedTableBase(Of WishlistRow)
3539
3540         Private columnWishlistID As Global.System.Data.DataColumn
3541
3542         Private columnUserID As Global.System.Data.DataColumn
3543
3544         Private columnGameID As Global.System.Data.DataColumn
3545
3546         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3547          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3548         Public Sub New()
3549             MyBase.New
3550             Me.TableName = "Wishlist"
3551             Me.BeginInit
3552             Me.InitClass
3553             Me.EndInit
3554         End Sub
3555
3556         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3557          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3558         Friend Sub New(ByVal table As Global.System.Data.DataTable)
3559             MyBase.New
3560             Me.TableName = table.TableName
3561             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
3562                 Me.CaseSensitive = table.CaseSensitive
3563             End If
3564             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
3565                 Me.Locale = table.Locale
3566             End If
3567             If (table.Namespace <> table.DataSet.Namespace) Then
3568                 Me.Namespace = table.Namespace
3569             End If
3570             Me.Prefix = table.Prefix
3571             Me.MinimumCapacity = table.MinimumCapacity
3572         End Sub
3573
3574         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3575          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3576         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
3577             MyBase.New(info, context)
3578             Me.InitVars
3579         End Sub
3580
3581         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3582          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3583         Public ReadOnly Property WishlistIDColumn() As Global.System.Data.DataColumn
3584             Get
3585                 Return Me.columnWishlistID
3586             End Get
3587         End Property
3588
3589         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3590          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3591         Public ReadOnly Property UserIDColumn() As Global.System.Data.DataColumn
3592             Get
3593                 Return Me.columnUserID
3594             End Get
3595         End Property
3596
3597         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3598          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3599         Public ReadOnly Property GameIDColumn() As Global.System.Data.DataColumn
3600             Get
3601                 Return Me.columnGameID
3602             End Get
3603         End Property
3604
3605         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3606          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
3607          Global.System.ComponentModel.Browsable(false)>  _
3608         Public ReadOnly Property Count() As Integer
3609             Get
3610                 Return Me.Rows.Count
3611             End Get
3612         End Property
3613
3614         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3615          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3616         Public Default ReadOnly Property Item(ByVal index As Integer) As WishlistRow
3617             Get
3618                 Return CType(Me.Rows(index),WishlistRow)
3619             End Get
3620         End Property
3621
3622         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3623         Public Event WishlistRowChanging As WishlistRowChangeEventHandler
3624
3625         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3626         Public Event WishlistRowChanged As WishlistRowChangeEventHandler
3627
3628         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3629         Public Event WishlistRowDeleting As WishlistRowChangeEventHandler
3630
3631         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3632         Public Event WishlistRowDeleted As WishlistRowChangeEventHandler
3633
3634         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3635          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3636         Public Overloads Sub AddWishlistRow(ByVal row As WishlistRow)
3637             Me.Rows.Add(row)
3638         End Sub
3639
3640         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3641          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3642         Public Overloads Function AddWishlistRow(ByVal UserID As Integer, ByVal parentGamesRowByGamesWishlist As GamesRow) As WishlistRow
3643             Dim rowWishlistRow As WishlistRow = CType(Me.NewRow,WishlistRow)
3644             Dim columnValuesArray() As Object = New Object() {Nothing, UserID, Nothing}
3645             If (Not (parentGamesRowByGamesWishlist) Is Nothing) Then
3646                 columnValuesArray(2) = parentGamesRowByGamesWishlist(0)
3647             End If
3648             rowWishlistRow.ItemArray = columnValuesArray
3649             Me.Rows.Add(rowWishlistRow)
3650             Return rowWishlistRow
3651         End Function
3652
3653         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3654          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3655         Public Function FindByWishlistID(ByVal WishlistID As Integer) As WishlistRow
3656             Return CType(Me.Rows.Find(New Object() {WishlistID}),WishlistRow)
3657         End Function
3658
3659         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3660          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3661         Public Overrides Function Clone() As Global.System.Data.DataTable
3662             Dim cln As WishlistDataTable = CType(MyBase.Clone,WishlistDataTable)
3663             cln.InitVars
3664             Return cln
3665         End Function
3666
3667         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3668          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3669         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
3670             Return New WishlistDataTable()
3671         End Function
3672
3673         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3674          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3675         Friend Sub InitVars()
3676             Me.columnWishlistID = MyBase.Columns("WishlistID")
3677             Me.columnUserID = MyBase.Columns("UserID")
3678             Me.columnGameID = MyBase.Columns("GameID")
3679         End Sub
3680
3681         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3682          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3683         Private Sub InitClass()
3684             Me.columnWishlistID = New Global.System.Data.DataColumn("WishlistID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3685             MyBase.Columns.Add(Me.columnWishlistID)
3686             Me.columnUserID = New Global.System.Data.DataColumn("UserID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3687             MyBase.Columns.Add(Me.columnUserID)
3688             Me.columnGameID = New Global.System.Data.DataColumn("GameID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3689             MyBase.Columns.Add(Me.columnGameID)
3690             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnWishlistID}, true))
3691             Me.columnWishlistID.AutoIncrement = true
3692             Me.columnWishlistID.AutoIncrementSeed = -1
3693             Me.columnWishlistID.AutoIncrementStep = -1
3694             Me.columnWishlistID.AllowDBNull = false
3695             Me.columnWishlistID.Unique = true
3696         End Sub
3697
3698         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3699          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3700         Public Function NewWishlistRow() As WishlistRow
3701             Return CType(Me.NewRow,WishlistRow)
3702         End Function
3703
3704         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3705          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3706         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
3707             Return New WishlistRow(builder)
3708         End Function
3709
3710         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3711          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3712         Protected Overrides Function GetRowType() As Global.System.Type
3713             Return GetType(WishlistRow)
3714         End Function
3715
3716         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3717          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3718         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3719             MyBase.OnRowChanged(e)
3720             If (Not (Me.WishlistRowChangedEvent) Is Nothing) Then
3721                 RaiseEvent WishlistRowChanged(Me, New WishlistRowChangeEvent(CType(e.Row,WishlistRow), e.Action))
3722             End If
3723         End Sub
3724
3725         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3726          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3727         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3728             MyBase.OnRowChanging(e)
3729             If (Not (Me.WishlistRowChangingEvent) Is Nothing) Then
3730                 RaiseEvent WishlistRowChanging(Me, New WishlistRowChangeEvent(CType(e.Row,WishlistRow), e.Action))
3731             End If
3732         End Sub
3733
3734         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3735          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3736         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3737             MyBase.OnRowDeleted(e)
3738             If (Not (Me.WishlistRowDeletedEvent) Is Nothing) Then
3739                 RaiseEvent WishlistRowDeleted(Me, New WishlistRowChangeEvent(CType(e.Row,WishlistRow), e.Action))
3740             End If
3741         End Sub
3742
3743         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3744          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3745         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3746             MyBase.OnRowDeleting(e)
3747             If (Not (Me.WishlistRowDeletingEvent) Is Nothing) Then
3748                 RaiseEvent WishlistRowDeleting(Me, New WishlistRowChangeEvent(CType(e.Row,WishlistRow), e.Action))
3749             End If
3750         End Sub
3751
3752         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3753          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3754         Public Sub RemoveWishlistRow(ByVal row As WishlistRow)
3755             Me.Rows.Remove(row)
3756         End Sub
3757
3758         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3759          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3760         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
3761             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
3762             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
3763             Dim ds As NEADataSet = New NEADataSet()
3764             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
3765             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
3766             any1.MinOccurs = New Decimal(0)
3767             any1.MaxOccurs = Decimal.MaxValue
3768             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3769             sequence.Items.Add(any1)
3770             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
3771             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
3772             any2.MinOccurs = New Decimal(1)
3773             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3774             sequence.Items.Add(any2)
3775             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
3776             attribute1.Name = "namespace"
3777             attribute1.FixedValue = ds.Namespace
3778             type.Attributes.Add(attribute1)
3779             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
3780             attribute2.Name = "tableTypeName"
3781             attribute2.FixedValue = "WishlistDataTable"
3782             type.Attributes.Add(attribute2)
3783             type.Particle = sequence
3784             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
3785             If xs.Contains(dsSchema.TargetNamespace) Then
3786                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
3787                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
3788                 Try
3789                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
3790                     dsSchema.Write(s1)
3791                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
3792                     Do While schemas.MoveNext
3793                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
3794                         s2.SetLength(0)
3795                         schema.Write(s2)
3796                         If (s1.Length = s2.Length) Then
3797                             s1.Position = 0
3798                             s2.Position = 0
3799
3800                             Do While ((s1.Position <> s1.Length)  _
3801                                         AndAlso (s1.ReadByte = s2.ReadByte))
3802
3803
3804                             Loop
3805                             If (s1.Position = s1.Length) Then
3806                                 Return type
3807                             End If
3808                         End If
3809
3810                     Loop
3811                 Finally
3812                     If (Not (s1) Is Nothing) Then
3813                         s1.Close
3814                     End If
3815                     If (Not (s2) Is Nothing) Then
3816                         s2.Close
3817                     End If
3818                 End Try
3819             End If
3820             xs.Add(dsSchema)
3821             Return type
3822         End Function
3823     End Class
3824
3825     '''<summary>
3826     '''Represents strongly named DataRow class.
3827     '''</summary>
3828     Partial Public Class AchievementRow
3829         Inherits Global.System.Data.DataRow
3830
3831         Private tableAchievement As AchievementDataTable
3832
3833         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3834          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3835         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
3836             MyBase.New(rb)
3837             Me.tableAchievement = CType(Me.Table,AchievementDataTable)
3838         End Sub
3839
3840         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3841          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3842         Public Property AchievementID() As Integer
3843             Get
3844                 Return CType(Me(Me.tableAchievement.AchievementIDColumn),Integer)
3845             End Get
3846             Set
3847                 Me(Me.tableAchievement.AchievementIDColumn) = value
3848             End Set
3849         End Property
3850
3851         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3852          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3853         Public Property GameID() As Integer
3854             Get
3855                 Try
3856                     Return CType(Me(Me.tableAchievement.GameIDColumn),Integer)
3857                 Catch e As Global.System.InvalidCastException
3858                     Throw New Global.System.Data.StrongTypingException("The value for column 'GameID' in table 'Achievement' is DBNull.", e)
3859                 End Try
3860             End Get
3861             Set
3862                 Me(Me.tableAchievement.GameIDColumn) = value
3863             End Set
3864         End Property
3865
3866         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3867          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3868         Public Property UserID() As Integer
3869             Get
3870                 Try
3871                     Return CType(Me(Me.tableAchievement.UserIDColumn),Integer)
3872                 Catch e As Global.System.InvalidCastException
3873                     Throw New Global.System.Data.StrongTypingException("The value for column 'UserID' in table 'Achievement' is DBNull.", e)
3874                 End Try
3875             End Get
3876             Set
3877                 Me(Me.tableAchievement.UserIDColumn) = value
3878             End Set
3879         End Property
3880
3881         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3882          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3883         Public Property Achievment_1() As String
3884             Get
3885                 Try
3886                     Return CType(Me(Me.tableAchievement.Achievment_1Column),String)
3887                 Catch e As Global.System.InvalidCastException
3888                     Throw New Global.System.Data.StrongTypingException("The value for column 'Achievment 1' in table 'Achievement' is DBNull.", e)
3889                 End Try
3890             End Get
3891             Set
3892                 Me(Me.tableAchievement.Achievment_1Column) = value
3893             End Set
3894         End Property
3895
3896         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3897          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3898         Public Property Achievment_2() As String
3899             Get
3900                 Try
3901                     Return CType(Me(Me.tableAchievement.Achievment_2Column),String)
3902                 Catch e As Global.System.InvalidCastException
3903                     Throw New Global.System.Data.StrongTypingException("The value for column 'Achievment 2' in table 'Achievement' is DBNull.", e)
3904                 End Try
3905             End Get
3906             Set
3907                 Me(Me.tableAchievement.Achievment_2Column) = value
3908             End Set
3909         End Property
3910
3911         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3912          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3913         Public Property Achievment_3() As String
3914             Get
3915                 Try
3916                     Return CType(Me(Me.tableAchievement.Achievment_3Column),String)
3917                 Catch e As Global.System.InvalidCastException
3918                     Throw New Global.System.Data.StrongTypingException("The value for column 'Achievment 3' in table 'Achievement' is DBNull.", e)
3919                 End Try
3920             End Get
3921             Set
3922                 Me(Me.tableAchievement.Achievment_3Column) = value
3923             End Set
3924         End Property
3925
3926         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3927          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3928         Public Property Achievment_4() As String
3929             Get
3930                 Try
3931                     Return CType(Me(Me.tableAchievement.Achievment_4Column),String)
3932                 Catch e As Global.System.InvalidCastException
3933                     Throw New Global.System.Data.StrongTypingException("The value for column 'Achievment 4' in table 'Achievement' is DBNull.", e)
3934                 End Try
3935             End Get
3936             Set
3937                 Me(Me.tableAchievement.Achievment_4Column) = value
3938             End Set
3939         End Property
3940
3941         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3942          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3943         Public Property Achievment_5() As String
3944             Get
3945                 Try
3946                     Return CType(Me(Me.tableAchievement.Achievment_5Column),String)
3947                 Catch e As Global.System.InvalidCastException
3948                     Throw New Global.System.Data.StrongTypingException("The value for column 'Achievment 5' in table 'Achievement' is DBNull.", e)
3949                 End Try
3950             End Get
3951             Set
3952                 Me(Me.tableAchievement.Achievment_5Column) = value
3953             End Set
3954         End Property
3955
3956         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3957          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3958         Public Property GamesRow() As GamesRow
3959             Get
3960                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("GamesAchievement")),GamesRow)
3961             End Get
3962             Set
3963                 Me.SetParentRow(value, Me.Table.ParentRelations("GamesAchievement"))
3964             End Set
3965         End Property
3966
3967         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3968          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3969         Public Function IsGameIDNull() As Boolean
3970             Return Me.IsNull(Me.tableAchievement.GameIDColumn)
3971         End Function
3972
3973         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3974          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3975         Public Sub SetGameIDNull()
3976             Me(Me.tableAchievement.GameIDColumn) = Global.System.Convert.DBNull
3977         End Sub
3978
3979         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3980          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3981         Public Function IsUserIDNull() As Boolean
3982             Return Me.IsNull(Me.tableAchievement.UserIDColumn)
3983         End Function
3984
3985         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3986          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3987         Public Sub SetUserIDNull()
3988             Me(Me.tableAchievement.UserIDColumn) = Global.System.Convert.DBNull
3989         End Sub
3990
3991         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3992          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3993         Public Function IsAchievment_1Null() As Boolean
3994             Return Me.IsNull(Me.tableAchievement.Achievment_1Column)
3995         End Function
3996
3997         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
3998          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
3999         Public Sub SetAchievment_1Null()
4000             Me(Me.tableAchievement.Achievment_1Column) = Global.System.Convert.DBNull
4001         End Sub
4002
4003         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4004          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4005         Public Function IsAchievment_2Null() As Boolean
4006             Return Me.IsNull(Me.tableAchievement.Achievment_2Column)
4007         End Function
4008
4009         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4010          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4011         Public Sub SetAchievment_2Null()
4012             Me(Me.tableAchievement.Achievment_2Column) = Global.System.Convert.DBNull
4013         End Sub
4014
4015         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4016          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4017         Public Function IsAchievment_3Null() As Boolean
4018             Return Me.IsNull(Me.tableAchievement.Achievment_3Column)
4019         End Function
4020
4021         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4022          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4023         Public Sub SetAchievment_3Null()
4024             Me(Me.tableAchievement.Achievment_3Column) = Global.System.Convert.DBNull
4025         End Sub
4026
4027         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4028          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4029         Public Function IsAchievment_4Null() As Boolean
4030             Return Me.IsNull(Me.tableAchievement.Achievment_4Column)
4031         End Function
4032
4033         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4034          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4035         Public Sub SetAchievment_4Null()
4036             Me(Me.tableAchievement.Achievment_4Column) = Global.System.Convert.DBNull
4037         End Sub
4038
4039         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4040          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4041         Public Function IsAchievment_5Null() As Boolean
4042             Return Me.IsNull(Me.tableAchievement.Achievment_5Column)
4043         End Function
4044
4045         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4046          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4047         Public Sub SetAchievment_5Null()
4048             Me(Me.tableAchievement.Achievment_5Column) = Global.System.Convert.DBNull
4049         End Sub
4050     End Class
4051
4052     '''<summary>
4053     '''Represents strongly named DataRow class.
4054     '''</summary>
4055     Partial Public Class DOWRow
4056         Inherits Global.System.Data.DataRow
4057
4058         Private tableDOW As DOWDataTable
4059
4060         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4061          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4062         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
4063             MyBase.New(rb)
4064             Me.tableDOW = CType(Me.Table,DOWDataTable)
4065         End Sub
4066
4067         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4068          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4069         Public Property DOWID() As Integer
4070             Get
4071                 Return CType(Me(Me.tableDOW.DOWIDColumn),Integer)
4072             End Get
4073             Set
4074                 Me(Me.tableDOW.DOWIDColumn) = value
4075             End Set
4076         End Property
4077
4078         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4079          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4080         Public Property Start() As Date
4081             Get
4082                 Try
4083                     Return CType(Me(Me.tableDOW.StartColumn),Date)
4084                 Catch e As Global.System.InvalidCastException
4085                     Throw New Global.System.Data.StrongTypingException("The value for column 'Start' in table 'DOW' is DBNull.", e)
4086                 End Try
4087             End Get
4088             Set
4089                 Me(Me.tableDOW.StartColumn) = value
4090             End Set
4091         End Property
4092
4093         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4094          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4095         Public Property _End() As Date
4096             Get
4097                 Try
4098                     Return CType(Me(Me.tableDOW.EndColumn),Date)
4099                 Catch e As Global.System.InvalidCastException
4100                     Throw New Global.System.Data.StrongTypingException("The value for column 'End' in table 'DOW' is DBNull.", e)
4101                 End Try
4102             End Get
4103             Set
4104                 Me(Me.tableDOW.EndColumn) = value
4105             End Set
4106         End Property
4107
4108         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4109          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4110         Public Property GameID() As Integer
4111             Get
4112                 Try
4113                     Return CType(Me(Me.tableDOW.GameIDColumn),Integer)
4114                 Catch e As Global.System.InvalidCastException
4115                     Throw New Global.System.Data.StrongTypingException("The value for column 'GameID' in table 'DOW' is DBNull.", e)
4116                 End Try
4117             End Get
4118             Set
4119                 Me(Me.tableDOW.GameIDColumn) = value
4120             End Set
4121         End Property
4122
4123         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4124          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4125         Public Property GamesRow() As GamesRow
4126             Get
4127                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("GamesDOW")),GamesRow)
4128             End Get
4129             Set
4130                 Me.SetParentRow(value, Me.Table.ParentRelations("GamesDOW"))
4131             End Set
4132         End Property
4133
4134         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4135          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4136         Public Function IsStartNull() As Boolean
4137             Return Me.IsNull(Me.tableDOW.StartColumn)
4138         End Function
4139
4140         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4141          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4142         Public Sub SetStartNull()
4143             Me(Me.tableDOW.StartColumn) = Global.System.Convert.DBNull
4144         End Sub
4145
4146         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4147          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4148         Public Function Is_EndNull() As Boolean
4149             Return Me.IsNull(Me.tableDOW.EndColumn)
4150         End Function
4151
4152         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4153          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4154         Public Sub Set_EndNull()
4155             Me(Me.tableDOW.EndColumn) = Global.System.Convert.DBNull
4156         End Sub
4157
4158         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4159          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4160         Public Function IsGameIDNull() As Boolean
4161             Return Me.IsNull(Me.tableDOW.GameIDColumn)
4162         End Function
4163
4164         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4165          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4166         Public Sub SetGameIDNull()
4167             Me(Me.tableDOW.GameIDColumn) = Global.System.Convert.DBNull
4168         End Sub
4169     End Class
4170
4171     '''<summary>
4172     '''Represents strongly named DataRow class.
4173     '''</summary>
4174     Partial Public Class FriendsRow
4175         Inherits Global.System.Data.DataRow
4176
4177         Private tableFriends As FriendsDataTable
4178
4179         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4180          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4181         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
4182             MyBase.New(rb)
4183             Me.tableFriends = CType(Me.Table,FriendsDataTable)
4184         End Sub
4185
4186         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4187          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4188         Public Property ID() As Integer
4189             Get
4190                 Return CType(Me(Me.tableFriends.IDColumn),Integer)
4191             End Get
4192             Set
4193                 Me(Me.tableFriends.IDColumn) = value
4194             End Set
4195         End Property
4196
4197         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4198          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4199         Public Property FriendID() As Integer
4200             Get
4201                 Try
4202                     Return CType(Me(Me.tableFriends.FriendIDColumn),Integer)
4203                 Catch e As Global.System.InvalidCastException
4204                     Throw New Global.System.Data.StrongTypingException("The value for column 'FriendID' in table 'Friends' is DBNull.", e)
4205                 End Try
4206             End Get
4207             Set
4208                 Me(Me.tableFriends.FriendIDColumn) = value
4209             End Set
4210         End Property
4211
4212         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4213          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4214         Public Property UserID() As Integer
4215             Get
4216                 Try
4217                     Return CType(Me(Me.tableFriends.UserIDColumn),Integer)
4218                 Catch e As Global.System.InvalidCastException
4219                     Throw New Global.System.Data.StrongTypingException("The value for column 'UserID' in table 'Friends' is DBNull.", e)
4220                 End Try
4221             End Get
4222             Set
4223                 Me(Me.tableFriends.UserIDColumn) = value
4224             End Set
4225         End Property
4226
4227         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4228          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4229         Public Function IsFriendIDNull() As Boolean
4230             Return Me.IsNull(Me.tableFriends.FriendIDColumn)
4231         End Function
4232
4233         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4234          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4235         Public Sub SetFriendIDNull()
4236             Me(Me.tableFriends.FriendIDColumn) = Global.System.Convert.DBNull
4237         End Sub
4238
4239         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4240          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4241         Public Function IsUserIDNull() As Boolean
4242             Return Me.IsNull(Me.tableFriends.UserIDColumn)
4243         End Function
4244
4245         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4246          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4247         Public Sub SetUserIDNull()
4248             Me(Me.tableFriends.UserIDColumn) = Global.System.Convert.DBNull
4249         End Sub
4250     End Class
4251
4252     '''<summary>
4253     '''Represents strongly named DataRow class.
4254     '''</summary>
4255     Partial Public Class GamesRow
4256         Inherits Global.System.Data.DataRow
4257
4258         Private tableGames As GamesDataTable
4259
4260         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4261          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4262         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
4263             MyBase.New(rb)
4264             Me.tableGames = CType(Me.Table,GamesDataTable)
4265         End Sub
4266
4267         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4268          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4269         Public Property GameID() As Integer
4270             Get
4271                 Return CType(Me(Me.tableGames.GameIDColumn),Integer)
4272             End Get
4273             Set
4274                 Me(Me.tableGames.GameIDColumn) = value
4275             End Set
4276         End Property
4277
4278         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4279          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4280         Public Property Name() As String
4281             Get
4282                 Try
4283                     Return CType(Me(Me.tableGames.NameColumn),String)
4284                 Catch e As Global.System.InvalidCastException
4285                     Throw New Global.System.Data.StrongTypingException("The value for column 'Name' in table 'Games' is DBNull.", e)
4286                 End Try
4287             End Get
4288             Set
4289                 Me(Me.tableGames.NameColumn) = value
4290             End Set
4291         End Property
4292
4293         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4294          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4295         Public Property Price() As Decimal
4296             Get
4297                 Try
4298                     Return CType(Me(Me.tableGames.PriceColumn),Decimal)
4299                 Catch e As Global.System.InvalidCastException
4300                     Throw New Global.System.Data.StrongTypingException("The value for column 'Price' in table 'Games' is DBNull.", e)
4301                 End Try
4302             End Get
4303             Set
4304                 Me(Me.tableGames.PriceColumn) = value
4305             End Set
4306         End Property
4307
4308         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4309          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4310         Public Property Rating() As Integer
4311             Get
4312                 Try
4313                     Return CType(Me(Me.tableGames.RatingColumn),Integer)
4314                 Catch e As Global.System.InvalidCastException
4315                     Throw New Global.System.Data.StrongTypingException("The value for column 'Rating' in table 'Games' is DBNull.", e)
4316                 End Try
4317             End Get
4318             Set
4319                 Me(Me.tableGames.RatingColumn) = value
4320             End Set
4321         End Property
4322
4323         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4324          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4325         Public Property Certificate() As Integer
4326             Get
4327                 Try
4328                     Return CType(Me(Me.tableGames.CertificateColumn),Integer)
4329                 Catch e As Global.System.InvalidCastException
4330                     Throw New Global.System.Data.StrongTypingException("The value for column 'Certificate' in table 'Games' is DBNull.", e)
4331                 End Try
4332             End Get
4333             Set
4334                 Me(Me.tableGames.CertificateColumn) = value
4335             End Set
4336         End Property
4337
4338         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4339          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4340         Public Property Dev() As String
4341             Get
4342                 Try
4343                     Return CType(Me(Me.tableGames.DevColumn),String)
4344                 Catch e As Global.System.InvalidCastException
4345                     Throw New Global.System.Data.StrongTypingException("The value for column 'Dev' in table 'Games' is DBNull.", e)
4346                 End Try
4347             End Get
4348             Set
4349                 Me(Me.tableGames.DevColumn) = value
4350             End Set
4351         End Property
4352
4353         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4354          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4355         Public Property Publisher() As String
4356             Get
4357                 Try
4358                     Return CType(Me(Me.tableGames.PublisherColumn),String)
4359                 Catch e As Global.System.InvalidCastException
4360                     Throw New Global.System.Data.StrongTypingException("The value for column 'Publisher' in table 'Games' is DBNull.", e)
4361                 End Try
4362             End Get
4363             Set
4364                 Me(Me.tableGames.PublisherColumn) = value
4365             End Set
4366         End Property
4367
4368         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4369          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4370         Public Property Icon() As String
4371             Get
4372                 Try
4373                     Return CType(Me(Me.tableGames.IconColumn),String)
4374                 Catch e As Global.System.InvalidCastException
4375                     Throw New Global.System.Data.StrongTypingException("The value for column 'Icon' in table 'Games' is DBNull.", e)
4376                 End Try
4377             End Get
4378             Set
4379                 Me(Me.tableGames.IconColumn) = value
4380             End Set
4381         End Property
4382
4383         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4384          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4385         Public Property Tags() As String
4386             Get
4387                 Try
4388                     Return CType(Me(Me.tableGames.TagsColumn),String)
4389                 Catch e As Global.System.InvalidCastException
4390                     Throw New Global.System.Data.StrongTypingException("The value for column 'Tags' in table 'Games' is DBNull.", e)
4391                 End Try
4392             End Get
4393             Set
4394                 Me(Me.tableGames.TagsColumn) = value
4395             End Set
4396         End Property
4397
4398         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4399          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4400         Public Property Theme_Colour() As Integer
4401             Get
4402                 Try
4403                     Return CType(Me(Me.tableGames.Theme_ColourColumn),Integer)
4404                 Catch e As Global.System.InvalidCastException
4405                     Throw New Global.System.Data.StrongTypingException("The value for column 'Theme Colour' in table 'Games' is DBNull.", e)
4406                 End Try
4407             End Get
4408             Set
4409                 Me(Me.tableGames.Theme_ColourColumn) = value
4410             End Set
4411         End Property
4412
4413         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4414          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4415         Public Function IsNameNull() As Boolean
4416             Return Me.IsNull(Me.tableGames.NameColumn)
4417         End Function
4418
4419         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4420          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4421         Public Sub SetNameNull()
4422             Me(Me.tableGames.NameColumn) = Global.System.Convert.DBNull
4423         End Sub
4424
4425         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4426          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4427         Public Function IsPriceNull() As Boolean
4428             Return Me.IsNull(Me.tableGames.PriceColumn)
4429         End Function
4430
4431         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4432          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4433         Public Sub SetPriceNull()
4434             Me(Me.tableGames.PriceColumn) = Global.System.Convert.DBNull
4435         End Sub
4436
4437         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4438          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4439         Public Function IsRatingNull() As Boolean
4440             Return Me.IsNull(Me.tableGames.RatingColumn)
4441         End Function
4442
4443         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4444          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4445         Public Sub SetRatingNull()
4446             Me(Me.tableGames.RatingColumn) = Global.System.Convert.DBNull
4447         End Sub
4448
4449         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4450          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4451         Public Function IsCertificateNull() As Boolean
4452             Return Me.IsNull(Me.tableGames.CertificateColumn)
4453         End Function
4454
4455         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4456          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4457         Public Sub SetCertificateNull()
4458             Me(Me.tableGames.CertificateColumn) = Global.System.Convert.DBNull
4459         End Sub
4460
4461         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4462          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4463         Public Function IsDevNull() As Boolean
4464             Return Me.IsNull(Me.tableGames.DevColumn)
4465         End Function
4466
4467         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4468          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4469         Public Sub SetDevNull()
4470             Me(Me.tableGames.DevColumn) = Global.System.Convert.DBNull
4471         End Sub
4472
4473         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4474          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4475         Public Function IsPublisherNull() As Boolean
4476             Return Me.IsNull(Me.tableGames.PublisherColumn)
4477         End Function
4478
4479         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4480          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4481         Public Sub SetPublisherNull()
4482             Me(Me.tableGames.PublisherColumn) = Global.System.Convert.DBNull
4483         End Sub
4484
4485         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4486          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4487         Public Function IsIconNull() As Boolean
4488             Return Me.IsNull(Me.tableGames.IconColumn)
4489         End Function
4490
4491         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4492          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4493         Public Sub SetIconNull()
4494             Me(Me.tableGames.IconColumn) = Global.System.Convert.DBNull
4495         End Sub
4496
4497         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4498          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4499         Public Function IsTagsNull() As Boolean
4500             Return Me.IsNull(Me.tableGames.TagsColumn)
4501         End Function
4502
4503         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4504          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4505         Public Sub SetTagsNull()
4506             Me(Me.tableGames.TagsColumn) = Global.System.Convert.DBNull
4507         End Sub
4508
4509         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4510          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4511         Public Function IsTheme_ColourNull() As Boolean
4512             Return Me.IsNull(Me.tableGames.Theme_ColourColumn)
4513         End Function
4514
4515         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4516          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4517         Public Sub SetTheme_ColourNull()
4518             Me(Me.tableGames.Theme_ColourColumn) = Global.System.Convert.DBNull
4519         End Sub
4520
4521         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4522          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4523         Public Function GetAchievementRows() As AchievementRow()
4524             If (Me.Table.ChildRelations("GamesAchievement") Is Nothing) Then
4525                 Return New AchievementRow(-1) {}
4526             Else
4527                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("GamesAchievement")),AchievementRow())
4528             End If
4529         End Function
4530
4531         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4532          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4533         Public Function GetDOWRows() As DOWRow()
4534             If (Me.Table.ChildRelations("GamesDOW") Is Nothing) Then
4535                 Return New DOWRow(-1) {}
4536             Else
4537                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("GamesDOW")),DOWRow())
4538             End If
4539         End Function
4540
4541         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4542          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4543         Public Function GetPurchasedRows() As PurchasedRow()
4544             If (Me.Table.ChildRelations("GamesPurchased") Is Nothing) Then
4545                 Return New PurchasedRow(-1) {}
4546             Else
4547                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("GamesPurchased")),PurchasedRow())
4548             End If
4549         End Function
4550
4551         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4552          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4553         Public Function GetReviewsRows() As ReviewsRow()
4554             If (Me.Table.ChildRelations("GamesReviews") Is Nothing) Then
4555                 Return New ReviewsRow(-1) {}
4556             Else
4557                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("GamesReviews")),ReviewsRow())
4558             End If
4559         End Function
4560
4561         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4562          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4563         Public Function GetWishlistRows() As WishlistRow()
4564             If (Me.Table.ChildRelations("GamesWishlist") Is Nothing) Then
4565                 Return New WishlistRow(-1) {}
4566             Else
4567                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("GamesWishlist")),WishlistRow())
4568             End If
4569         End Function
4570     End Class
4571
4572     '''<summary>
4573     '''Represents strongly named DataRow class.
4574     '''</summary>
4575     Partial Public Class PurchasedRow
4576         Inherits Global.System.Data.DataRow
4577
4578         Private tablePurchased As PurchasedDataTable
4579
4580         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4581          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4582         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
4583             MyBase.New(rb)
4584             Me.tablePurchased = CType(Me.Table,PurchasedDataTable)
4585         End Sub
4586
4587         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4588          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4589         Public Property PurchaseID() As Integer
4590             Get
4591                 Return CType(Me(Me.tablePurchased.PurchaseIDColumn),Integer)
4592             End Get
4593             Set
4594                 Me(Me.tablePurchased.PurchaseIDColumn) = value
4595             End Set
4596         End Property
4597
4598         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4599          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4600         Public Property UserID() As Integer
4601             Get
4602                 Try
4603                     Return CType(Me(Me.tablePurchased.UserIDColumn),Integer)
4604                 Catch e As Global.System.InvalidCastException
4605                     Throw New Global.System.Data.StrongTypingException("The value for column 'UserID' in table 'Purchased' is DBNull.", e)
4606                 End Try
4607             End Get
4608             Set
4609                 Me(Me.tablePurchased.UserIDColumn) = value
4610             End Set
4611         End Property
4612
4613         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4614          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4615         Public Property GameID() As Integer
4616             Get
4617                 Try
4618                     Return CType(Me(Me.tablePurchased.GameIDColumn),Integer)
4619                 Catch e As Global.System.InvalidCastException
4620                     Throw New Global.System.Data.StrongTypingException("The value for column 'GameID' in table 'Purchased' is DBNull.", e)
4621                 End Try
4622             End Get
4623             Set
4624                 Me(Me.tablePurchased.GameIDColumn) = value
4625             End Set
4626         End Property
4627
4628         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4629          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4630         Public Property GamesRow() As GamesRow
4631             Get
4632                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("GamesPurchased")),GamesRow)
4633             End Get
4634             Set
4635                 Me.SetParentRow(value, Me.Table.ParentRelations("GamesPurchased"))
4636             End Set
4637         End Property
4638
4639         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4640          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4641         Public Function IsUserIDNull() As Boolean
4642             Return Me.IsNull(Me.tablePurchased.UserIDColumn)
4643         End Function
4644
4645         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4646          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4647         Public Sub SetUserIDNull()
4648             Me(Me.tablePurchased.UserIDColumn) = Global.System.Convert.DBNull
4649         End Sub
4650
4651         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4652          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4653         Public Function IsGameIDNull() As Boolean
4654             Return Me.IsNull(Me.tablePurchased.GameIDColumn)
4655         End Function
4656
4657         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4658          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4659         Public Sub SetGameIDNull()
4660             Me(Me.tablePurchased.GameIDColumn) = Global.System.Convert.DBNull
4661         End Sub
4662     End Class
4663
4664     '''<summary>
4665     '''Represents strongly named DataRow class.
4666     '''</summary>
4667     Partial Public Class ReviewsRow
4668         Inherits Global.System.Data.DataRow
4669
4670         Private tableReviews As ReviewsDataTable
4671
4672         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4673          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4674         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
4675             MyBase.New(rb)
4676             Me.tableReviews = CType(Me.Table,ReviewsDataTable)
4677         End Sub
4678
4679         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4680          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4681         Public Property ReviewID() As Integer
4682             Get
4683                 Return CType(Me(Me.tableReviews.ReviewIDColumn),Integer)
4684             End Get
4685             Set
4686                 Me(Me.tableReviews.ReviewIDColumn) = value
4687             End Set
4688         End Property
4689
4690         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4691          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4692         Public Property GameID() As Integer
4693             Get
4694                 Try
4695                     Return CType(Me(Me.tableReviews.GameIDColumn),Integer)
4696                 Catch e As Global.System.InvalidCastException
4697                     Throw New Global.System.Data.StrongTypingException("The value for column 'GameID' in table 'Reviews' is DBNull.", e)
4698                 End Try
4699             End Get
4700             Set
4701                 Me(Me.tableReviews.GameIDColumn) = value
4702             End Set
4703         End Property
4704
4705         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4706          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4707         Public Property Review() As String
4708             Get
4709                 Try
4710                     Return CType(Me(Me.tableReviews.ReviewColumn),String)
4711                 Catch e As Global.System.InvalidCastException
4712                     Throw New Global.System.Data.StrongTypingException("The value for column 'Review' in table 'Reviews' is DBNull.", e)
4713                 End Try
4714             End Get
4715             Set
4716                 Me(Me.tableReviews.ReviewColumn) = value
4717             End Set
4718         End Property
4719
4720         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4721          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4722         Public Property GamesRow() As GamesRow
4723             Get
4724                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("GamesReviews")),GamesRow)
4725             End Get
4726             Set
4727                 Me.SetParentRow(value, Me.Table.ParentRelations("GamesReviews"))
4728             End Set
4729         End Property
4730
4731         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4732          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4733         Public Function IsGameIDNull() As Boolean
4734             Return Me.IsNull(Me.tableReviews.GameIDColumn)
4735         End Function
4736
4737         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4738          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4739         Public Sub SetGameIDNull()
4740             Me(Me.tableReviews.GameIDColumn) = Global.System.Convert.DBNull
4741         End Sub
4742
4743         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4744          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4745         Public Function IsReviewNull() As Boolean
4746             Return Me.IsNull(Me.tableReviews.ReviewColumn)
4747         End Function
4748
4749         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4750          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4751         Public Sub SetReviewNull()
4752             Me(Me.tableReviews.ReviewColumn) = Global.System.Convert.DBNull
4753         End Sub
4754     End Class
4755
4756     '''<summary>
4757     '''Represents strongly named DataRow class.
4758     '''</summary>
4759     Partial Public Class TagsRow
4760         Inherits Global.System.Data.DataRow
4761
4762         Private tableTags As TagsDataTable
4763
4764         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4765          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4766         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
4767             MyBase.New(rb)
4768             Me.tableTags = CType(Me.Table,TagsDataTable)
4769         End Sub
4770
4771         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4772          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4773         Public Property ID() As Integer
4774             Get
4775                 Return CType(Me(Me.tableTags.IDColumn),Integer)
4776             End Get
4777             Set
4778                 Me(Me.tableTags.IDColumn) = value
4779             End Set
4780         End Property
4781     End Class
4782
4783     '''<summary>
4784     '''Represents strongly named DataRow class.
4785     '''</summary>
4786     Partial Public Class User_DetailsRow
4787         Inherits Global.System.Data.DataRow
4788
4789         Private tableUser_Details As User_DetailsDataTable
4790
4791         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4792          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4793         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
4794             MyBase.New(rb)
4795             Me.tableUser_Details = CType(Me.Table,User_DetailsDataTable)
4796         End Sub
4797
4798         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4799          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4800         Public Property UserDetailsID() As Integer
4801             Get
4802                 Return CType(Me(Me.tableUser_Details.UserDetailsIDColumn),Integer)
4803             End Get
4804             Set
4805                 Me(Me.tableUser_Details.UserDetailsIDColumn) = value
4806             End Set
4807         End Property
4808
4809         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4810          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4811         Public Property FirstName() As String
4812             Get
4813                 Try
4814                     Return CType(Me(Me.tableUser_Details.FirstNameColumn),String)
4815                 Catch e As Global.System.InvalidCastException
4816                     Throw New Global.System.Data.StrongTypingException("The value for column 'FirstName' in table 'User_Details' is DBNull.", e)
4817                 End Try
4818             End Get
4819             Set
4820                 Me(Me.tableUser_Details.FirstNameColumn) = value
4821             End Set
4822         End Property
4823
4824         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4825          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4826         Public Property LastName() As String
4827             Get
4828                 Try
4829                     Return CType(Me(Me.tableUser_Details.LastNameColumn),String)
4830                 Catch e As Global.System.InvalidCastException
4831                     Throw New Global.System.Data.StrongTypingException("The value for column 'LastName' in table 'User_Details' is DBNull.", e)
4832                 End Try
4833             End Get
4834             Set
4835                 Me(Me.tableUser_Details.LastNameColumn) = value
4836             End Set
4837         End Property
4838
4839         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4840          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4841         Public Property AddressLine1() As String
4842             Get
4843                 Try
4844                     Return CType(Me(Me.tableUser_Details.AddressLine1Column),String)
4845                 Catch e As Global.System.InvalidCastException
4846                     Throw New Global.System.Data.StrongTypingException("The value for column 'AddressLine1' in table 'User_Details' is DBNull.", e)
4847                 End Try
4848             End Get
4849             Set
4850                 Me(Me.tableUser_Details.AddressLine1Column) = value
4851             End Set
4852         End Property
4853
4854         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4855          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4856         Public Property Town() As String
4857             Get
4858                 Try
4859                     Return CType(Me(Me.tableUser_Details.TownColumn),String)
4860                 Catch e As Global.System.InvalidCastException
4861                     Throw New Global.System.Data.StrongTypingException("The value for column 'Town' in table 'User_Details' is DBNull.", e)
4862                 End Try
4863             End Get
4864             Set
4865                 Me(Me.tableUser_Details.TownColumn) = value
4866             End Set
4867         End Property
4868
4869         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4870          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4871         Public Property Postcode() As String
4872             Get
4873                 Try
4874                     Return CType(Me(Me.tableUser_Details.PostcodeColumn),String)
4875                 Catch e As Global.System.InvalidCastException
4876                     Throw New Global.System.Data.StrongTypingException("The value for column 'Postcode' in table 'User_Details' is DBNull.", e)
4877                 End Try
4878             End Get
4879             Set
4880                 Me(Me.tableUser_Details.PostcodeColumn) = value
4881             End Set
4882         End Property
4883
4884         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4885          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4886         Public Property CardNumber() As Integer
4887             Get
4888                 Try
4889                     Return CType(Me(Me.tableUser_Details.CardNumberColumn),Integer)
4890                 Catch e As Global.System.InvalidCastException
4891                     Throw New Global.System.Data.StrongTypingException("The value for column 'CardNumber' in table 'User_Details' is DBNull.", e)
4892                 End Try
4893             End Get
4894             Set
4895                 Me(Me.tableUser_Details.CardNumberColumn) = value
4896             End Set
4897         End Property
4898
4899         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4900          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4901         Public Property CVC() As Integer
4902             Get
4903                 Try
4904                     Return CType(Me(Me.tableUser_Details.CVCColumn),Integer)
4905                 Catch e As Global.System.InvalidCastException
4906                     Throw New Global.System.Data.StrongTypingException("The value for column 'CVC' in table 'User_Details' is DBNull.", e)
4907                 End Try
4908             End Get
4909             Set
4910                 Me(Me.tableUser_Details.CVCColumn) = value
4911             End Set
4912         End Property
4913
4914         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4915          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4916         Public Property IGN() As String
4917             Get
4918                 Try
4919                     Return CType(Me(Me.tableUser_Details.IGNColumn),String)
4920                 Catch e As Global.System.InvalidCastException
4921                     Throw New Global.System.Data.StrongTypingException("The value for column 'IGN' in table 'User_Details' is DBNull.", e)
4922                 End Try
4923             End Get
4924             Set
4925                 Me(Me.tableUser_Details.IGNColumn) = value
4926             End Set
4927         End Property
4928
4929         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4930          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4931         Public Property Email() As String
4932             Get
4933                 Try
4934                     Return CType(Me(Me.tableUser_Details.EmailColumn),String)
4935                 Catch e As Global.System.InvalidCastException
4936                     Throw New Global.System.Data.StrongTypingException("The value for column 'Email' in table 'User_Details' is DBNull.", e)
4937                 End Try
4938             End Get
4939             Set
4940                 Me(Me.tableUser_Details.EmailColumn) = value
4941             End Set
4942         End Property
4943
4944         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4945          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4946         Public Property ProfilePic() As String
4947             Get
4948                 Try
4949                     Return CType(Me(Me.tableUser_Details.ProfilePicColumn),String)
4950                 Catch e As Global.System.InvalidCastException
4951                     Throw New Global.System.Data.StrongTypingException("The value for column 'ProfilePic' in table 'User_Details' is DBNull.", e)
4952                 End Try
4953             End Get
4954             Set
4955                 Me(Me.tableUser_Details.ProfilePicColumn) = value
4956             End Set
4957         End Property
4958
4959         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4960          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4961         Public Function IsFirstNameNull() As Boolean
4962             Return Me.IsNull(Me.tableUser_Details.FirstNameColumn)
4963         End Function
4964
4965         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4966          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4967         Public Sub SetFirstNameNull()
4968             Me(Me.tableUser_Details.FirstNameColumn) = Global.System.Convert.DBNull
4969         End Sub
4970
4971         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4972          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4973         Public Function IsLastNameNull() As Boolean
4974             Return Me.IsNull(Me.tableUser_Details.LastNameColumn)
4975         End Function
4976
4977         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4978          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4979         Public Sub SetLastNameNull()
4980             Me(Me.tableUser_Details.LastNameColumn) = Global.System.Convert.DBNull
4981         End Sub
4982
4983         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4984          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4985         Public Function IsAddressLine1Null() As Boolean
4986             Return Me.IsNull(Me.tableUser_Details.AddressLine1Column)
4987         End Function
4988
4989         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4990          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4991         Public Sub SetAddressLine1Null()
4992             Me(Me.tableUser_Details.AddressLine1Column) = Global.System.Convert.DBNull
4993         End Sub
4994
4995         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
4996          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
4997         Public Function IsTownNull() As Boolean
4998             Return Me.IsNull(Me.tableUser_Details.TownColumn)
4999         End Function
5000
5001         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5002          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5003         Public Sub SetTownNull()
5004             Me(Me.tableUser_Details.TownColumn) = Global.System.Convert.DBNull
5005         End Sub
5006
5007         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5008          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5009         Public Function IsPostcodeNull() As Boolean
5010             Return Me.IsNull(Me.tableUser_Details.PostcodeColumn)
5011         End Function
5012
5013         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5014          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5015         Public Sub SetPostcodeNull()
5016             Me(Me.tableUser_Details.PostcodeColumn) = Global.System.Convert.DBNull
5017         End Sub
5018
5019         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5020          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5021         Public Function IsCardNumberNull() As Boolean
5022             Return Me.IsNull(Me.tableUser_Details.CardNumberColumn)
5023         End Function
5024
5025         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5026          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5027         Public Sub SetCardNumberNull()
5028             Me(Me.tableUser_Details.CardNumberColumn) = Global.System.Convert.DBNull
5029         End Sub
5030
5031         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5032          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5033         Public Function IsCVCNull() As Boolean
5034             Return Me.IsNull(Me.tableUser_Details.CVCColumn)
5035         End Function
5036
5037         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5038          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5039         Public Sub SetCVCNull()
5040             Me(Me.tableUser_Details.CVCColumn) = Global.System.Convert.DBNull
5041         End Sub
5042
5043         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5044          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5045         Public Function IsIGNNull() As Boolean
5046             Return Me.IsNull(Me.tableUser_Details.IGNColumn)
5047         End Function
5048
5049         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5050          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5051         Public Sub SetIGNNull()
5052             Me(Me.tableUser_Details.IGNColumn) = Global.System.Convert.DBNull
5053         End Sub
5054
5055         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5056          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5057         Public Function IsEmailNull() As Boolean
5058             Return Me.IsNull(Me.tableUser_Details.EmailColumn)
5059         End Function
5060
5061         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5062          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5063         Public Sub SetEmailNull()
5064             Me(Me.tableUser_Details.EmailColumn) = Global.System.Convert.DBNull
5065         End Sub
5066
5067         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5068          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5069         Public Function IsProfilePicNull() As Boolean
5070             Return Me.IsNull(Me.tableUser_Details.ProfilePicColumn)
5071         End Function
5072
5073         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5074          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5075         Public Sub SetProfilePicNull()
5076             Me(Me.tableUser_Details.ProfilePicColumn) = Global.System.Convert.DBNull
5077         End Sub
5078
5079         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5080          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5081         Public Function GetUsersRows() As UsersRow()
5082             If (Me.Table.ChildRelations("User_DetailsUsers") Is Nothing) Then
5083                 Return New UsersRow(-1) {}
5084             Else
5085                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("User_DetailsUsers")),UsersRow())
5086             End If
5087         End Function
5088     End Class
5089
5090     '''<summary>
5091     '''Represents strongly named DataRow class.
5092     '''</summary>
5093     Partial Public Class UsersRow
5094         Inherits Global.System.Data.DataRow
5095
5096         Private tableUsers As UsersDataTable
5097
5098         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5099          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5100         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
5101             MyBase.New(rb)
5102             Me.tableUsers = CType(Me.Table,UsersDataTable)
5103         End Sub
5104
5105         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5106          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5107         Public Property UserID() As Integer
5108             Get
5109                 Return CType(Me(Me.tableUsers.UserIDColumn),Integer)
5110             End Get
5111             Set
5112                 Me(Me.tableUsers.UserIDColumn) = value
5113             End Set
5114         End Property
5115
5116         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5117          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5118         Public Property User_DetailsID() As Integer
5119             Get
5120                 Try
5121                     Return CType(Me(Me.tableUsers.User_DetailsIDColumn),Integer)
5122                 Catch e As Global.System.InvalidCastException
5123                     Throw New Global.System.Data.StrongTypingException("The value for column 'User_DetailsID' in table 'Users' is DBNull.", e)
5124                 End Try
5125             End Get
5126             Set
5127                 Me(Me.tableUsers.User_DetailsIDColumn) = value
5128             End Set
5129         End Property
5130
5131         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5132          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5133         Public Property Username() As String
5134             Get
5135                 Try
5136                     Return CType(Me(Me.tableUsers.UsernameColumn),String)
5137                 Catch e As Global.System.InvalidCastException
5138                     Throw New Global.System.Data.StrongTypingException("The value for column 'Username' in table 'Users' is DBNull.", e)
5139                 End Try
5140             End Get
5141             Set
5142                 Me(Me.tableUsers.UsernameColumn) = value
5143             End Set
5144         End Property
5145
5146         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5147          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5148         Public Property Password() As String
5149             Get
5150                 Try
5151                     Return CType(Me(Me.tableUsers.PasswordColumn),String)
5152                 Catch e As Global.System.InvalidCastException
5153                     Throw New Global.System.Data.StrongTypingException("The value for column 'Password' in table 'Users' is DBNull.", e)
5154                 End Try
5155             End Get
5156             Set
5157                 Me(Me.tableUsers.PasswordColumn) = value
5158             End Set
5159         End Property
5160
5161         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5162          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5163         Public Property User_DetailsRow() As User_DetailsRow
5164             Get
5165                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("User_DetailsUsers")),User_DetailsRow)
5166             End Get
5167             Set
5168                 Me.SetParentRow(value, Me.Table.ParentRelations("User_DetailsUsers"))
5169             End Set
5170         End Property
5171
5172         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5173          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5174         Public Function IsUser_DetailsIDNull() As Boolean
5175             Return Me.IsNull(Me.tableUsers.User_DetailsIDColumn)
5176         End Function
5177
5178         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5179          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5180         Public Sub SetUser_DetailsIDNull()
5181             Me(Me.tableUsers.User_DetailsIDColumn) = Global.System.Convert.DBNull
5182         End Sub
5183
5184         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5185          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5186         Public Function IsUsernameNull() As Boolean
5187             Return Me.IsNull(Me.tableUsers.UsernameColumn)
5188         End Function
5189
5190         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5191          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5192         Public Sub SetUsernameNull()
5193             Me(Me.tableUsers.UsernameColumn) = Global.System.Convert.DBNull
5194         End Sub
5195
5196         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5197          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5198         Public Function IsPasswordNull() As Boolean
5199             Return Me.IsNull(Me.tableUsers.PasswordColumn)
5200         End Function
5201
5202         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5203          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5204         Public Sub SetPasswordNull()
5205             Me(Me.tableUsers.PasswordColumn) = Global.System.Convert.DBNull
5206         End Sub
5207     End Class
5208
5209     '''<summary>
5210     '''Represents strongly named DataRow class.
5211     '''</summary>
5212     Partial Public Class WishlistRow
5213         Inherits Global.System.Data.DataRow
5214
5215         Private tableWishlist As WishlistDataTable
5216
5217         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5218          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5219         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
5220             MyBase.New(rb)
5221             Me.tableWishlist = CType(Me.Table,WishlistDataTable)
5222         End Sub
5223
5224         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5225          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5226         Public Property WishlistID() As Integer
5227             Get
5228                 Return CType(Me(Me.tableWishlist.WishlistIDColumn),Integer)
5229             End Get
5230             Set
5231                 Me(Me.tableWishlist.WishlistIDColumn) = value
5232             End Set
5233         End Property
5234
5235         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5236          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5237         Public Property UserID() As Integer
5238             Get
5239                 Try
5240                     Return CType(Me(Me.tableWishlist.UserIDColumn),Integer)
5241                 Catch e As Global.System.InvalidCastException
5242                     Throw New Global.System.Data.StrongTypingException("The value for column 'UserID' in table 'Wishlist' is DBNull.", e)
5243                 End Try
5244             End Get
5245             Set
5246                 Me(Me.tableWishlist.UserIDColumn) = value
5247             End Set
5248         End Property
5249
5250         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5251          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5252         Public Property GameID() As Integer
5253             Get
5254                 Try
5255                     Return CType(Me(Me.tableWishlist.GameIDColumn),Integer)
5256                 Catch e As Global.System.InvalidCastException
5257                     Throw New Global.System.Data.StrongTypingException("The value for column 'GameID' in table 'Wishlist' is DBNull.", e)
5258                 End Try
5259             End Get
5260             Set
5261                 Me(Me.tableWishlist.GameIDColumn) = value
5262             End Set
5263         End Property
5264
5265         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5266          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5267         Public Property GamesRow() As GamesRow
5268             Get
5269                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("GamesWishlist")),GamesRow)
5270             End Get
5271             Set
5272                 Me.SetParentRow(value, Me.Table.ParentRelations("GamesWishlist"))
5273             End Set
5274         End Property
5275
5276         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5277          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5278         Public Function IsUserIDNull() As Boolean
5279             Return Me.IsNull(Me.tableWishlist.UserIDColumn)
5280         End Function
5281
5282         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5283          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5284         Public Sub SetUserIDNull()
5285             Me(Me.tableWishlist.UserIDColumn) = Global.System.Convert.DBNull
5286         End Sub
5287
5288         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5289          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5290         Public Function IsGameIDNull() As Boolean
5291             Return Me.IsNull(Me.tableWishlist.GameIDColumn)
5292         End Function
5293
5294         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5295          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5296         Public Sub SetGameIDNull()
5297             Me(Me.tableWishlist.GameIDColumn) = Global.System.Convert.DBNull
5298         End Sub
5299     End Class
5300
5301     '''<summary>
5302     '''Row event argument class
5303     '''</summary>
5304     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5305     Public Class AchievementRowChangeEvent
5306         Inherits Global.System.EventArgs
5307
5308         Private eventRow As AchievementRow
5309
5310         Private eventAction As Global.System.Data.DataRowAction
5311
5312         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5313          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5314         Public Sub New(ByVal row As AchievementRow, ByVal action As Global.System.Data.DataRowAction)
5315             MyBase.New
5316             Me.eventRow = row
5317             Me.eventAction = action
5318         End Sub
5319
5320         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5321          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5322         Public ReadOnly Property Row() As AchievementRow
5323             Get
5324                 Return Me.eventRow
5325             End Get
5326         End Property
5327
5328         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5329          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5330         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
5331             Get
5332                 Return Me.eventAction
5333             End Get
5334         End Property
5335     End Class
5336
5337     '''<summary>
5338     '''Row event argument class
5339     '''</summary>
5340     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5341     Public Class DOWRowChangeEvent
5342         Inherits Global.System.EventArgs
5343
5344         Private eventRow As DOWRow
5345
5346         Private eventAction As Global.System.Data.DataRowAction
5347
5348         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5349          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5350         Public Sub New(ByVal row As DOWRow, ByVal action As Global.System.Data.DataRowAction)
5351             MyBase.New
5352             Me.eventRow = row
5353             Me.eventAction = action
5354         End Sub
5355
5356         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5357          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5358         Public ReadOnly Property Row() As DOWRow
5359             Get
5360                 Return Me.eventRow
5361             End Get
5362         End Property
5363
5364         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5365          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5366         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
5367             Get
5368                 Return Me.eventAction
5369             End Get
5370         End Property
5371     End Class
5372
5373     '''<summary>
5374     '''Row event argument class
5375     '''</summary>
5376     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5377     Public Class FriendsRowChangeEvent
5378         Inherits Global.System.EventArgs
5379
5380         Private eventRow As FriendsRow
5381
5382         Private eventAction As Global.System.Data.DataRowAction
5383
5384         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5385          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5386         Public Sub New(ByVal row As FriendsRow, ByVal action As Global.System.Data.DataRowAction)
5387             MyBase.New
5388             Me.eventRow = row
5389             Me.eventAction = action
5390         End Sub
5391
5392         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5393          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5394         Public ReadOnly Property Row() As FriendsRow
5395             Get
5396                 Return Me.eventRow
5397             End Get
5398         End Property
5399
5400         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5401          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5402         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
5403             Get
5404                 Return Me.eventAction
5405             End Get
5406         End Property
5407     End Class
5408
5409     '''<summary>
5410     '''Row event argument class
5411     '''</summary>
5412     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5413     Public Class GamesRowChangeEvent
5414         Inherits Global.System.EventArgs
5415
5416         Private eventRow As GamesRow
5417
5418         Private eventAction As Global.System.Data.DataRowAction
5419
5420         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5421          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5422         Public Sub New(ByVal row As GamesRow, ByVal action As Global.System.Data.DataRowAction)
5423             MyBase.New
5424             Me.eventRow = row
5425             Me.eventAction = action
5426         End Sub
5427
5428         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5429          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5430         Public ReadOnly Property Row() As GamesRow
5431             Get
5432                 Return Me.eventRow
5433             End Get
5434         End Property
5435
5436         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5437          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5438         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
5439             Get
5440                 Return Me.eventAction
5441             End Get
5442         End Property
5443     End Class
5444
5445     '''<summary>
5446     '''Row event argument class
5447     '''</summary>
5448     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5449     Public Class PurchasedRowChangeEvent
5450         Inherits Global.System.EventArgs
5451
5452         Private eventRow As PurchasedRow
5453
5454         Private eventAction As Global.System.Data.DataRowAction
5455
5456         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5457          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5458         Public Sub New(ByVal row As PurchasedRow, ByVal action As Global.System.Data.DataRowAction)
5459             MyBase.New
5460             Me.eventRow = row
5461             Me.eventAction = action
5462         End Sub
5463
5464         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5465          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5466         Public ReadOnly Property Row() As PurchasedRow
5467             Get
5468                 Return Me.eventRow
5469             End Get
5470         End Property
5471
5472         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5473          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5474         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
5475             Get
5476                 Return Me.eventAction
5477             End Get
5478         End Property
5479     End Class
5480
5481     '''<summary>
5482     '''Row event argument class
5483     '''</summary>
5484     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5485     Public Class ReviewsRowChangeEvent
5486         Inherits Global.System.EventArgs
5487
5488         Private eventRow As ReviewsRow
5489
5490         Private eventAction As Global.System.Data.DataRowAction
5491
5492         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5493          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5494         Public Sub New(ByVal row As ReviewsRow, ByVal action As Global.System.Data.DataRowAction)
5495             MyBase.New
5496             Me.eventRow = row
5497             Me.eventAction = action
5498         End Sub
5499
5500         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5501          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5502         Public ReadOnly Property Row() As ReviewsRow
5503             Get
5504                 Return Me.eventRow
5505             End Get
5506         End Property
5507
5508         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5509          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5510         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
5511             Get
5512                 Return Me.eventAction
5513             End Get
5514         End Property
5515     End Class
5516
5517     '''<summary>
5518     '''Row event argument class
5519     '''</summary>
5520     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5521     Public Class TagsRowChangeEvent
5522         Inherits Global.System.EventArgs
5523
5524         Private eventRow As TagsRow
5525
5526         Private eventAction As Global.System.Data.DataRowAction
5527
5528         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5529          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5530         Public Sub New(ByVal row As TagsRow, ByVal action As Global.System.Data.DataRowAction)
5531             MyBase.New
5532             Me.eventRow = row
5533             Me.eventAction = action
5534         End Sub
5535
5536         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5537          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5538         Public ReadOnly Property Row() As TagsRow
5539             Get
5540                 Return Me.eventRow
5541             End Get
5542         End Property
5543
5544         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5545          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5546         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
5547             Get
5548                 Return Me.eventAction
5549             End Get
5550         End Property
5551     End Class
5552
5553     '''<summary>
5554     '''Row event argument class
5555     '''</summary>
5556     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5557     Public Class User_DetailsRowChangeEvent
5558         Inherits Global.System.EventArgs
5559
5560         Private eventRow As User_DetailsRow
5561
5562         Private eventAction As Global.System.Data.DataRowAction
5563
5564         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5565          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5566         Public Sub New(ByVal row As User_DetailsRow, ByVal action As Global.System.Data.DataRowAction)
5567             MyBase.New
5568             Me.eventRow = row
5569             Me.eventAction = action
5570         End Sub
5571
5572         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5573          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5574         Public ReadOnly Property Row() As User_DetailsRow
5575             Get
5576                 Return Me.eventRow
5577             End Get
5578         End Property
5579
5580         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5581          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5582         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
5583             Get
5584                 Return Me.eventAction
5585             End Get
5586         End Property
5587     End Class
5588
5589     '''<summary>
5590     '''Row event argument class
5591     '''</summary>
5592     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5593     Public Class UsersRowChangeEvent
5594         Inherits Global.System.EventArgs
5595
5596         Private eventRow As UsersRow
5597
5598         Private eventAction As Global.System.Data.DataRowAction
5599
5600         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5601          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5602         Public Sub New(ByVal row As UsersRow, ByVal action As Global.System.Data.DataRowAction)
5603             MyBase.New
5604             Me.eventRow = row
5605             Me.eventAction = action
5606         End Sub
5607
5608         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5609          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5610         Public ReadOnly Property Row() As UsersRow
5611             Get
5612                 Return Me.eventRow
5613             End Get
5614         End Property
5615
5616         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5617          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5618         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
5619             Get
5620                 Return Me.eventAction
5621             End Get
5622         End Property
5623     End Class
5624
5625     '''<summary>
5626     '''Row event argument class
5627     '''</summary>
5628     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5629     Public Class WishlistRowChangeEvent
5630         Inherits Global.System.EventArgs
5631
5632         Private eventRow As WishlistRow
5633
5634         Private eventAction As Global.System.Data.DataRowAction
5635
5636         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5637          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5638         Public Sub New(ByVal row As WishlistRow, ByVal action As Global.System.Data.DataRowAction)
5639             MyBase.New
5640             Me.eventRow = row
5641             Me.eventAction = action
5642         End Sub
5643
5644         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5645          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5646         Public ReadOnly Property Row() As WishlistRow
5647             Get
5648                 Return Me.eventRow
5649             End Get
5650         End Property
5651
5652         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5653          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5654         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
5655             Get
5656                 Return Me.eventAction
5657             End Get
5658         End Property
5659     End Class
5660 End Class
5661
5662 Namespace NEADataSetTableAdapters
5663
5664     '''<summary>
5665     '''Represents the connection and commands used to retrieve and save data.
5666     '''</summary>
5667     <Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _
5668      Global.System.ComponentModel.ToolboxItem(true),  _
5669      Global.System.ComponentModel.DataObjectAttribute(true),  _
5670      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
5671         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _
5672      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
5673     Partial Public Class AchievementTableAdapter
5674         Inherits Global.System.ComponentModel.Component
5675
5676         Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter
5677
5678         Private _connection As Global.System.Data.OleDb.OleDbConnection
5679
5680         Private _transaction As Global.System.Data.OleDb.OleDbTransaction
5681
5682         Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
5683
5684         Private _clearBeforeFill As Boolean
5685
5686         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5687          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5688         Public Sub New()
5689             MyBase.New
5690             Me.ClearBeforeFill = true
5691         End Sub
5692
5693         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5694          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5695         Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
5696             Get
5697                 If (Me._adapter Is Nothing) Then
5698                     Me.InitAdapter
5699                 End If
5700                 Return Me._adapter
5701             End Get
5702         End Property
5703
5704         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5705          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5706         Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
5707             Get
5708                 If (Me._connection Is Nothing) Then
5709                     Me.InitConnection
5710                 End If
5711                 Return Me._connection
5712             End Get
5713             Set
5714                 Me._connection = value
5715                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
5716                     Me.Adapter.InsertCommand.Connection = value
5717                 End If
5718                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
5719                     Me.Adapter.DeleteCommand.Connection = value
5720                 End If
5721                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
5722                     Me.Adapter.UpdateCommand.Connection = value
5723                 End If
5724                 Dim i As Integer = 0
5725                 Do While (i < Me.CommandCollection.Length)
5726                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
5727                         CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value
5728                     End If
5729                     i = (i + 1)
5730                 Loop
5731             End Set
5732         End Property
5733
5734         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5735          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5736         Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
5737             Get
5738                 Return Me._transaction
5739             End Get
5740             Set
5741                 Me._transaction = value
5742                 Dim i As Integer = 0
5743                 Do While (i < Me.CommandCollection.Length)
5744                     Me.CommandCollection(i).Transaction = Me._transaction
5745                     i = (i + 1)
5746                 Loop
5747                 If ((Not (Me.Adapter) Is Nothing)  _
5748                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
5749                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
5750                 End If
5751                 If ((Not (Me.Adapter) Is Nothing)  _
5752                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
5753                     Me.Adapter.InsertCommand.Transaction = Me._transaction
5754                 End If
5755                 If ((Not (Me.Adapter) Is Nothing)  _
5756                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
5757                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
5758                 End If
5759             End Set
5760         End Property
5761
5762         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5763          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5764         Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
5765             Get
5766                 If (Me._commandCollection Is Nothing) Then
5767                     Me.InitCommandCollection
5768                 End If
5769                 Return Me._commandCollection
5770             End Get
5771         End Property
5772
5773         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5774          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5775         Public Property ClearBeforeFill() As Boolean
5776             Get
5777                 Return Me._clearBeforeFill
5778             End Get
5779             Set
5780                 Me._clearBeforeFill = value
5781             End Set
5782         End Property
5783
5784         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5785          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5786         Private Sub InitAdapter()
5787             Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
5788             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
5789             tableMapping.SourceTable = "Table"
5790             tableMapping.DataSetTable = "Achievement"
5791             tableMapping.ColumnMappings.Add("AchievementID", "AchievementID")
5792             tableMapping.ColumnMappings.Add("GameID", "GameID")
5793             tableMapping.ColumnMappings.Add("UserID", "UserID")
5794             tableMapping.ColumnMappings.Add("Achievment 1", "Achievment 1")
5795             tableMapping.ColumnMappings.Add("Achievment 2", "Achievment 2")
5796             tableMapping.ColumnMappings.Add("Achievment 3", "Achievment 3")
5797             tableMapping.ColumnMappings.Add("Achievment 4", "Achievment 4")
5798             tableMapping.ColumnMappings.Add("Achievment 5", "Achievment 5")
5799             Me._adapter.TableMappings.Add(tableMapping)
5800             Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand()
5801             Me._adapter.DeleteCommand.Connection = Me.Connection
5802             Me._adapter.DeleteCommand.CommandText = "DELETE FROM `Achievement` WHERE ((`AchievementID` = ?) AND ((? = 1 AND `GameID` I"& _
5803                 "S NULL) OR (`GameID` = ?)) AND ((? = 1 AND `UserID` IS NULL) OR (`UserID` = ?)))"& _
5804                 ""
5805             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
5806             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))
5807             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))
5808             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))
5809             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))
5810             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))
5811             Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand()
5812             Me._adapter.InsertCommand.Connection = Me.Connection
5813             Me._adapter.InsertCommand.CommandText = "INSERT INTO `Achievement` (`GameID`, `UserID`, `Achievment 1`, `Achievment 2`, `A"& _
5814                 "chievment 3`, `Achievment 4`, `Achievment 5`) VALUES (?, ?, ?, ?, ?, ?, ?)"
5815             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
5816             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))
5817             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))
5818             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))
5819             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))
5820             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))
5821             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))
5822             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))
5823             Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand()
5824             Me._adapter.UpdateCommand.Connection = Me.Connection
5825             Me._adapter.UpdateCommand.CommandText = "UPDATE `Achievement` SET `GameID` = ?, `UserID` = ?, `Achievment 1` = ?, `Achievm"& _
5826                 "ent 2` = ?, `Achievment 3` = ?, `Achievment 4` = ?, `Achievment 5` = ? WHERE ((`"& _
5827                 "AchievementID` = ?) AND ((? = 1 AND `GameID` IS NULL) OR (`GameID` = ?)) AND ((?"& _
5828                 " = 1 AND `UserID` IS NULL) OR (`UserID` = ?)))"
5829             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
5830             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))
5831             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))
5832             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))
5833             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))
5834             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))
5835             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))
5836             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))
5837             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))
5838             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))
5839             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))
5840             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))
5841             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))
5842         End Sub
5843
5844         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5845          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5846         Private Sub InitConnection()
5847             Me._connection = New Global.System.Data.OleDb.OleDbConnection()
5848             Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString_accdb
5849         End Sub
5850
5851         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5852          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
5853         Private Sub InitCommandCollection()
5854             Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {}
5855             Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
5856             Me._commandCollection(0).Connection = Me.Connection
5857             Me._commandCollection(0).CommandText = "SELECT AchievementID, GameID, UserID, [Achievment 1], [Achievment 2], [Achievment"& _
5858                 " 3], [Achievment 4], [Achievment 5] FROM Achievement"
5859             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
5860         End Sub
5861
5862         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5863          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
5864          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
5865          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _
5866         Public Overloads Overridable Function Fill(ByVal dataTable As NEADataSet.AchievementDataTable) As Integer
5867             Me.Adapter.SelectCommand = Me.CommandCollection(0)
5868             If (Me.ClearBeforeFill = true) Then
5869                 dataTable.Clear
5870             End If
5871             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
5872             Return returnValue
5873         End Function
5874
5875         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5876          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
5877          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
5878          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _
5879         Public Overloads Overridable Function GetData() As NEADataSet.AchievementDataTable
5880             Me.Adapter.SelectCommand = Me.CommandCollection(0)
5881             Dim dataTable As NEADataSet.AchievementDataTable = New NEADataSet.AchievementDataTable()
5882             Me.Adapter.Fill(dataTable)
5883             Return dataTable
5884         End Function
5885
5886         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5887          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
5888          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
5889         Public Overloads Overridable Function Update(ByVal dataTable As NEADataSet.AchievementDataTable) As Integer
5890             Return Me.Adapter.Update(dataTable)
5891         End Function
5892
5893         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5894          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
5895          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
5896         Public Overloads Overridable Function Update(ByVal dataSet As NEADataSet) As Integer
5897             Return Me.Adapter.Update(dataSet, "Achievement")
5898         End Function
5899
5900         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5901          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
5902          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
5903         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
5904             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
5905         End Function
5906
5907         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5908          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
5909          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
5910         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
5911             Return Me.Adapter.Update(dataRows)
5912         End Function
5913
5914         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5915          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
5916          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
5917          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _
5918         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
5919             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_AchievementID,Integer)
5920             If (Original_GameID.HasValue = true) Then
5921                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
5922                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_GameID.Value,Integer)
5923             Else
5924                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
5925                 Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
5926             End If
5927             If (Original_UserID.HasValue = true) Then
5928                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
5929                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_UserID.Value,Integer)
5930             Else
5931                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
5932                 Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
5933             End If
5934             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
5935             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
5936                         <> Global.System.Data.ConnectionState.Open) Then
5937                 Me.Adapter.DeleteCommand.Connection.Open
5938             End If
5939             Try
5940                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
5941                 Return returnValue
5942             Finally
5943                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
5944                     Me.Adapter.DeleteCommand.Connection.Close
5945                 End If
5946             End Try
5947         End Function
5948
5949         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
5950          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
5951          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
5952          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _
5953         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
5954             If (GameID.HasValue = true) Then
5955                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(GameID.Value,Integer)
5956             Else
5957                 Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
5958             End If
5959             If (UserID.HasValue = true) Then
5960                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(UserID.Value,Integer)
5961             Else
5962                 Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
5963             End If
5964             If (Achievment_1 Is Nothing) Then
5965                 Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
5966             Else
5967                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(Achievment_1,String)
5968             End If
5969             If (Achievment_2 Is Nothing) Then
5970                 Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
5971             Else
5972                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(Achievment_2,String)
5973             End If
5974             If (Achievment_3 Is Nothing) Then
5975                 Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
5976             Else
5977                 Me.Adapter.InsertCommand.Parameters(4).Value = CType(Achievment_3,String)
5978             End If
5979             If (Achievment_4 Is Nothing) Then
5980                 Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
5981             Else
5982                 Me.Adapter.InsertCommand.Parameters(5).Value = CType(Achievment_4,String)
5983             End If
5984             If (Achievment_5 Is Nothing) Then
5985                 Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
5986             Else
5987                 Me.Adapter.InsertCommand.Parameters(6).Value = CType(Achievment_5,String)
5988             End If
5989             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
5990             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
5991                         <> Global.System.Data.ConnectionState.Open) Then
5992                 Me.Adapter.InsertCommand.Connection.Open
5993             End If
5994             Try
5995                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
5996                 Return returnValue
5997             Finally
5998                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
5999                     Me.Adapter.InsertCommand.Connection.Close
6000                 End If
6001             End Try
6002         End Function
6003
6004         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6005          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6006          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
6007          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _
6008         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
6009             If (GameID.HasValue = true) Then
6010                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(GameID.Value,Integer)
6011             Else
6012                 Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
6013             End If
6014             If (UserID.HasValue = true) Then
6015                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(UserID.Value,Integer)
6016             Else
6017                 Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
6018             End If
6019             If (Achievment_1 Is Nothing) Then
6020                 Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
6021             Else
6022                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Achievment_1,String)
6023             End If
6024             If (Achievment_2 Is Nothing) Then
6025                 Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
6026             Else
6027                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Achievment_2,String)
6028             End If
6029             If (Achievment_3 Is Nothing) Then
6030                 Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
6031             Else
6032                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Achievment_3,String)
6033             End If
6034             If (Achievment_4 Is Nothing) Then
6035                 Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
6036             Else
6037                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Achievment_4,String)
6038             End If
6039             If (Achievment_5 Is Nothing) Then
6040                 Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
6041             Else
6042                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Achievment_5,String)
6043             End If
6044             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_AchievementID,Integer)
6045             If (Original_GameID.HasValue = true) Then
6046                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(0,Object)
6047                 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GameID.Value,Integer)
6048             Else
6049                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(1,Object)
6050                 Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value
6051             End If
6052             If (Original_UserID.HasValue = true) Then
6053                 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object)
6054                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_UserID.Value,Integer)
6055             Else
6056                 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object)
6057                 Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
6058             End If
6059             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
6060             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
6061                         <> Global.System.Data.ConnectionState.Open) Then
6062                 Me.Adapter.UpdateCommand.Connection.Open
6063             End If
6064             Try
6065                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
6066                 Return returnValue
6067             Finally
6068                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
6069                     Me.Adapter.UpdateCommand.Connection.Close
6070                 End If
6071             End Try
6072         End Function
6073     End Class
6074
6075     '''<summary>
6076     '''Represents the connection and commands used to retrieve and save data.
6077     '''</summary>
6078     <Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _
6079      Global.System.ComponentModel.ToolboxItem(true),  _
6080      Global.System.ComponentModel.DataObjectAttribute(true),  _
6081      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
6082         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _
6083      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
6084     Partial Public Class DOWTableAdapter
6085         Inherits Global.System.ComponentModel.Component
6086
6087         Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter
6088
6089         Private _connection As Global.System.Data.OleDb.OleDbConnection
6090
6091         Private _transaction As Global.System.Data.OleDb.OleDbTransaction
6092
6093         Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
6094
6095         Private _clearBeforeFill As Boolean
6096
6097         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6098          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6099         Public Sub New()
6100             MyBase.New
6101             Me.ClearBeforeFill = true
6102         End Sub
6103
6104         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6105          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6106         Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
6107             Get
6108                 If (Me._adapter Is Nothing) Then
6109                     Me.InitAdapter
6110                 End If
6111                 Return Me._adapter
6112             End Get
6113         End Property
6114
6115         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6116          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6117         Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
6118             Get
6119                 If (Me._connection Is Nothing) Then
6120                     Me.InitConnection
6121                 End If
6122                 Return Me._connection
6123             End Get
6124             Set
6125                 Me._connection = value
6126                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
6127                     Me.Adapter.InsertCommand.Connection = value
6128                 End If
6129                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
6130                     Me.Adapter.DeleteCommand.Connection = value
6131                 End If
6132                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
6133                     Me.Adapter.UpdateCommand.Connection = value
6134                 End If
6135                 Dim i As Integer = 0
6136                 Do While (i < Me.CommandCollection.Length)
6137                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
6138                         CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value
6139                     End If
6140                     i = (i + 1)
6141                 Loop
6142             End Set
6143         End Property
6144
6145         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6146          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6147         Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
6148             Get
6149                 Return Me._transaction
6150             End Get
6151             Set
6152                 Me._transaction = value
6153                 Dim i As Integer = 0
6154                 Do While (i < Me.CommandCollection.Length)
6155                     Me.CommandCollection(i).Transaction = Me._transaction
6156                     i = (i + 1)
6157                 Loop
6158                 If ((Not (Me.Adapter) Is Nothing)  _
6159                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
6160                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
6161                 End If
6162                 If ((Not (Me.Adapter) Is Nothing)  _
6163                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
6164                     Me.Adapter.InsertCommand.Transaction = Me._transaction
6165                 End If
6166                 If ((Not (Me.Adapter) Is Nothing)  _
6167                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
6168                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
6169                 End If
6170             End Set
6171         End Property
6172
6173         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6174          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6175         Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
6176             Get
6177                 If (Me._commandCollection Is Nothing) Then
6178                     Me.InitCommandCollection
6179                 End If
6180                 Return Me._commandCollection
6181             End Get
6182         End Property
6183
6184         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6185          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6186         Public Property ClearBeforeFill() As Boolean
6187             Get
6188                 Return Me._clearBeforeFill
6189             End Get
6190             Set
6191                 Me._clearBeforeFill = value
6192             End Set
6193         End Property
6194
6195         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6196          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6197         Private Sub InitAdapter()
6198             Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
6199             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
6200             tableMapping.SourceTable = "Table"
6201             tableMapping.DataSetTable = "DOW"
6202             tableMapping.ColumnMappings.Add("DOWID", "DOWID")
6203             tableMapping.ColumnMappings.Add("Start", "Start")
6204             tableMapping.ColumnMappings.Add("End", "End")
6205             tableMapping.ColumnMappings.Add("GameID", "GameID")
6206             Me._adapter.TableMappings.Add(tableMapping)
6207             Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand()
6208             Me._adapter.DeleteCommand.Connection = Me.Connection
6209             Me._adapter.DeleteCommand.CommandText = "DELETE FROM `DOW` WHERE ((`DOWID` = ?) AND ((? = 1 AND `Start` IS NULL) OR (`Star"& _
6210                 "t` = ?)) AND ((? = 1 AND `End` IS NULL) OR (`End` = ?)) AND ((? = 1 AND `GameID`"& _
6211                 " IS NULL) OR (`GameID` = ?)))"
6212             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
6213             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))
6214             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))
6215             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))
6216             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))
6217             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))
6218             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))
6219             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))
6220             Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand()
6221             Me._adapter.InsertCommand.Connection = Me.Connection
6222             Me._adapter.InsertCommand.CommandText = "INSERT INTO `DOW` (`Start`, `End`, `GameID`) VALUES (?, ?, ?)"
6223             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
6224             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))
6225             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))
6226             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))
6227             Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand()
6228             Me._adapter.UpdateCommand.Connection = Me.Connection
6229             Me._adapter.UpdateCommand.CommandText = "UPDATE `DOW` SET `Start` = ?, `End` = ?, `GameID` = ? WHERE ((`DOWID` = ?) AND (("& _
6230                 "? = 1 AND `Start` IS NULL) OR (`Start` = ?)) AND ((? = 1 AND `End` IS NULL) OR ("& _
6231                 "`End` = ?)) AND ((? = 1 AND `GameID` IS NULL) OR (`GameID` = ?)))"
6232             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
6233             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))
6234             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))
6235             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))
6236             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))
6237             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))
6238             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))
6239             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))
6240             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))
6241             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))
6242             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))
6243         End Sub
6244
6245         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6246          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6247         Private Sub InitConnection()
6248             Me._connection = New Global.System.Data.OleDb.OleDbConnection()
6249             Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString_accdb
6250         End Sub
6251
6252         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6253          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6254         Private Sub InitCommandCollection()
6255             Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {}
6256             Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
6257             Me._commandCollection(0).Connection = Me.Connection
6258             Me._commandCollection(0).CommandText = "SELECT DOWID, Start, [End], GameID FROM DOW"
6259             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
6260         End Sub
6261
6262         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6263          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6264          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
6265          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _
6266         Public Overloads Overridable Function Fill(ByVal dataTable As NEADataSet.DOWDataTable) As Integer
6267             Me.Adapter.SelectCommand = Me.CommandCollection(0)
6268             If (Me.ClearBeforeFill = true) Then
6269                 dataTable.Clear
6270             End If
6271             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
6272             Return returnValue
6273         End Function
6274
6275         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6276          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6277          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
6278          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _
6279         Public Overloads Overridable Function GetData() As NEADataSet.DOWDataTable
6280             Me.Adapter.SelectCommand = Me.CommandCollection(0)
6281             Dim dataTable As NEADataSet.DOWDataTable = New NEADataSet.DOWDataTable()
6282             Me.Adapter.Fill(dataTable)
6283             Return dataTable
6284         End Function
6285
6286         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6287          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6288          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
6289         Public Overloads Overridable Function Update(ByVal dataTable As NEADataSet.DOWDataTable) As Integer
6290             Return Me.Adapter.Update(dataTable)
6291         End Function
6292
6293         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6294          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6295          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
6296         Public Overloads Overridable Function Update(ByVal dataSet As NEADataSet) As Integer
6297             Return Me.Adapter.Update(dataSet, "DOW")
6298         End Function
6299
6300         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6301          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6302          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
6303         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
6304             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
6305         End Function
6306
6307         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6308          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6309          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
6310         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
6311             Return Me.Adapter.Update(dataRows)
6312         End Function
6313
6314         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6315          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6316          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
6317          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _
6318         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
6319             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_DOWID,Integer)
6320             If (Original_Start.HasValue = true) Then
6321                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
6322                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Start.Value,Date)
6323             Else
6324                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
6325                 Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
6326             End If
6327             If (Original_End.HasValue = true) Then
6328                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
6329                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_End.Value,Date)
6330             Else
6331                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
6332                 Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
6333             End If
6334             If (Original_GameID.HasValue = true) Then
6335                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
6336                 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_GameID.Value,Integer)
6337             Else
6338                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
6339                 Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
6340             End If
6341             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
6342             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
6343                         <> Global.System.Data.ConnectionState.Open) Then
6344                 Me.Adapter.DeleteCommand.Connection.Open
6345             End If
6346             Try
6347                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
6348                 Return returnValue
6349             Finally
6350                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
6351                     Me.Adapter.DeleteCommand.Connection.Close
6352                 End If
6353             End Try
6354         End Function
6355
6356         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6357          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6358          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
6359          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _
6360         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
6361             If (Start.HasValue = true) Then
6362                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(Start.Value,Date)
6363             Else
6364                 Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
6365             End If
6366             If (_End.HasValue = true) Then
6367                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(_End.Value,Date)
6368             Else
6369                 Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
6370             End If
6371             If (GameID.HasValue = true) Then
6372                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(GameID.Value,Integer)
6373             Else
6374                 Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
6375             End If
6376             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
6377             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
6378                         <> Global.System.Data.ConnectionState.Open) Then
6379                 Me.Adapter.InsertCommand.Connection.Open
6380             End If
6381             Try
6382                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
6383                 Return returnValue
6384             Finally
6385                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
6386                     Me.Adapter.InsertCommand.Connection.Close
6387                 End If
6388             End Try
6389         End Function
6390
6391         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6392          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6393          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
6394          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _
6395         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
6396             If (Start.HasValue = true) Then
6397                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Start.Value,Date)
6398             Else
6399                 Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
6400             End If
6401             If (_End.HasValue = true) Then
6402                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(_End.Value,Date)
6403             Else
6404                 Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
6405             End If
6406             If (GameID.HasValue = true) Then
6407                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(GameID.Value,Integer)
6408             Else
6409                 Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
6410             End If
6411             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_DOWID,Integer)
6412             If (Original_Start.HasValue = true) Then
6413                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(0,Object)
6414                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_Start.Value,Date)
6415             Else
6416                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(1,Object)
6417                 Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
6418             End If
6419             If (Original_End.HasValue = true) Then
6420                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(0,Object)
6421                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_End.Value,Date)
6422             Else
6423                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(1,Object)
6424                 Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
6425             End If
6426             If (Original_GameID.HasValue = true) Then
6427                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(0,Object)
6428                 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GameID.Value,Integer)
6429             Else
6430                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(1,Object)
6431                 Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value
6432             End If
6433             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
6434             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
6435                         <> Global.System.Data.ConnectionState.Open) Then
6436                 Me.Adapter.UpdateCommand.Connection.Open
6437             End If
6438             Try
6439                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
6440                 Return returnValue
6441             Finally
6442                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
6443                     Me.Adapter.UpdateCommand.Connection.Close
6444                 End If
6445             End Try
6446         End Function
6447     End Class
6448
6449     '''<summary>
6450     '''Represents the connection and commands used to retrieve and save data.
6451     '''</summary>
6452     <Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _
6453      Global.System.ComponentModel.ToolboxItem(true),  _
6454      Global.System.ComponentModel.DataObjectAttribute(true),  _
6455      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
6456         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _
6457      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
6458     Partial Public Class FriendsTableAdapter
6459         Inherits Global.System.ComponentModel.Component
6460
6461         Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter
6462
6463         Private _connection As Global.System.Data.OleDb.OleDbConnection
6464
6465         Private _transaction As Global.System.Data.OleDb.OleDbTransaction
6466
6467         Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
6468
6469         Private _clearBeforeFill As Boolean
6470
6471         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6472          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6473         Public Sub New()
6474             MyBase.New
6475             Me.ClearBeforeFill = true
6476         End Sub
6477
6478         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6479          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6480         Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
6481             Get
6482                 If (Me._adapter Is Nothing) Then
6483                     Me.InitAdapter
6484                 End If
6485                 Return Me._adapter
6486             End Get
6487         End Property
6488
6489         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6490          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6491         Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
6492             Get
6493                 If (Me._connection Is Nothing) Then
6494                     Me.InitConnection
6495                 End If
6496                 Return Me._connection
6497             End Get
6498             Set
6499                 Me._connection = value
6500                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
6501                     Me.Adapter.InsertCommand.Connection = value
6502                 End If
6503                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
6504                     Me.Adapter.DeleteCommand.Connection = value
6505                 End If
6506                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
6507                     Me.Adapter.UpdateCommand.Connection = value
6508                 End If
6509                 Dim i As Integer = 0
6510                 Do While (i < Me.CommandCollection.Length)
6511                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
6512                         CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value
6513                     End If
6514                     i = (i + 1)
6515                 Loop
6516             End Set
6517         End Property
6518
6519         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6520          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6521         Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
6522             Get
6523                 Return Me._transaction
6524             End Get
6525             Set
6526                 Me._transaction = value
6527                 Dim i As Integer = 0
6528                 Do While (i < Me.CommandCollection.Length)
6529                     Me.CommandCollection(i).Transaction = Me._transaction
6530                     i = (i + 1)
6531                 Loop
6532                 If ((Not (Me.Adapter) Is Nothing)  _
6533                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
6534                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
6535                 End If
6536                 If ((Not (Me.Adapter) Is Nothing)  _
6537                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
6538                     Me.Adapter.InsertCommand.Transaction = Me._transaction
6539                 End If
6540                 If ((Not (Me.Adapter) Is Nothing)  _
6541                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
6542                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
6543                 End If
6544             End Set
6545         End Property
6546
6547         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6548          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6549         Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
6550             Get
6551                 If (Me._commandCollection Is Nothing) Then
6552                     Me.InitCommandCollection
6553                 End If
6554                 Return Me._commandCollection
6555             End Get
6556         End Property
6557
6558         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6559          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6560         Public Property ClearBeforeFill() As Boolean
6561             Get
6562                 Return Me._clearBeforeFill
6563             End Get
6564             Set
6565                 Me._clearBeforeFill = value
6566             End Set
6567         End Property
6568
6569         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6570          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6571         Private Sub InitAdapter()
6572             Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
6573             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
6574             tableMapping.SourceTable = "Table"
6575             tableMapping.DataSetTable = "Friends"
6576             tableMapping.ColumnMappings.Add("ID", "ID")
6577             tableMapping.ColumnMappings.Add("FriendID", "FriendID")
6578             tableMapping.ColumnMappings.Add("UserID", "UserID")
6579             Me._adapter.TableMappings.Add(tableMapping)
6580             Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand()
6581             Me._adapter.DeleteCommand.Connection = Me.Connection
6582             Me._adapter.DeleteCommand.CommandText = "DELETE FROM `Friends` WHERE ((`ID` = ?) AND ((? = 1 AND `FriendID` IS NULL) OR (`"& _
6583                 "FriendID` = ?)) AND ((? = 1 AND `UserID` IS NULL) OR (`UserID` = ?)))"
6584             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
6585             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))
6586             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))
6587             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))
6588             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))
6589             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))
6590             Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand()
6591             Me._adapter.InsertCommand.Connection = Me.Connection
6592             Me._adapter.InsertCommand.CommandText = "INSERT INTO `Friends` (`FriendID`, `UserID`) VALUES (?, ?)"
6593             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
6594             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))
6595             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))
6596             Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand()
6597             Me._adapter.UpdateCommand.Connection = Me.Connection
6598             Me._adapter.UpdateCommand.CommandText = "UPDATE `Friends` SET `FriendID` = ?, `UserID` = ? WHERE ((`ID` = ?) AND ((? = 1 A"& _
6599                 "ND `FriendID` IS NULL) OR (`FriendID` = ?)) AND ((? = 1 AND `UserID` IS NULL) OR"& _
6600                 " (`UserID` = ?)))"
6601             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
6602             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))
6603             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))
6604             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))
6605             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))
6606             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))
6607             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))
6608             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))
6609         End Sub
6610
6611         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6612          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6613         Private Sub InitConnection()
6614             Me._connection = New Global.System.Data.OleDb.OleDbConnection()
6615             Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString_accdb
6616         End Sub
6617
6618         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6619          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6620         Private Sub InitCommandCollection()
6621             Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {}
6622             Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
6623             Me._commandCollection(0).Connection = Me.Connection
6624             Me._commandCollection(0).CommandText = "SELECT ID, FriendID, UserID FROM Friends"
6625             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
6626         End Sub
6627
6628         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6629          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6630          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
6631          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _
6632         Public Overloads Overridable Function Fill(ByVal dataTable As NEADataSet.FriendsDataTable) As Integer
6633             Me.Adapter.SelectCommand = Me.CommandCollection(0)
6634             If (Me.ClearBeforeFill = true) Then
6635                 dataTable.Clear
6636             End If
6637             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
6638             Return returnValue
6639         End Function
6640
6641         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6642          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6643          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
6644          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _
6645         Public Overloads Overridable Function GetData() As NEADataSet.FriendsDataTable
6646             Me.Adapter.SelectCommand = Me.CommandCollection(0)
6647             Dim dataTable As NEADataSet.FriendsDataTable = New NEADataSet.FriendsDataTable()
6648             Me.Adapter.Fill(dataTable)
6649             Return dataTable
6650         End Function
6651
6652         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6653          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6654          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
6655         Public Overloads Overridable Function Update(ByVal dataTable As NEADataSet.FriendsDataTable) As Integer
6656             Return Me.Adapter.Update(dataTable)
6657         End Function
6658
6659         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6660          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6661          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
6662         Public Overloads Overridable Function Update(ByVal dataSet As NEADataSet) As Integer
6663             Return Me.Adapter.Update(dataSet, "Friends")
6664         End Function
6665
6666         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6667          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6668          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
6669         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
6670             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
6671         End Function
6672
6673         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6674          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6675          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
6676         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
6677             Return Me.Adapter.Update(dataRows)
6678         End Function
6679
6680         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6681          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6682          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
6683          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _
6684         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
6685             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,Integer)
6686             Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
6687             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_FriendID,Integer)
6688             If (Original_UserID.HasValue = true) Then
6689                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
6690                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_UserID.Value,Integer)
6691             Else
6692                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
6693                 Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
6694             End If
6695             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
6696             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
6697                         <> Global.System.Data.ConnectionState.Open) Then
6698                 Me.Adapter.DeleteCommand.Connection.Open
6699             End If
6700             Try
6701                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
6702                 Return returnValue
6703             Finally
6704                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
6705                     Me.Adapter.DeleteCommand.Connection.Close
6706                 End If
6707             End Try
6708         End Function
6709
6710         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6711          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6712          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
6713          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _
6714         Public Overloads Overridable Function Insert(ByVal FriendID As Integer, ByVal UserID As Global.System.Nullable(Of Integer)) As Integer
6715             Me.Adapter.InsertCommand.Parameters(0).Value = CType(FriendID,Integer)
6716             If (UserID.HasValue = true) Then
6717                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(UserID.Value,Integer)
6718             Else
6719                 Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
6720             End If
6721             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
6722             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
6723                         <> Global.System.Data.ConnectionState.Open) Then
6724                 Me.Adapter.InsertCommand.Connection.Open
6725             End If
6726             Try
6727                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
6728                 Return returnValue
6729             Finally
6730                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
6731                     Me.Adapter.InsertCommand.Connection.Close
6732                 End If
6733             End Try
6734         End Function
6735
6736         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6737          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6738          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
6739          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _
6740         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
6741             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FriendID,Integer)
6742             If (UserID.HasValue = true) Then
6743                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(UserID.Value,Integer)
6744             Else
6745                 Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
6746             End If
6747             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_ID,Integer)
6748             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(0,Object)
6749             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_FriendID,Integer)
6750             If (Original_UserID.HasValue = true) Then
6751                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(0,Object)
6752                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_UserID.Value,Integer)
6753             Else
6754                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(1,Object)
6755                 Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
6756             End If
6757             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
6758             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
6759                         <> Global.System.Data.ConnectionState.Open) Then
6760                 Me.Adapter.UpdateCommand.Connection.Open
6761             End If
6762             Try
6763                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
6764                 Return returnValue
6765             Finally
6766                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
6767                     Me.Adapter.UpdateCommand.Connection.Close
6768                 End If
6769             End Try
6770         End Function
6771     End Class
6772
6773     '''<summary>
6774     '''Represents the connection and commands used to retrieve and save data.
6775     '''</summary>
6776     <Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _
6777      Global.System.ComponentModel.ToolboxItem(true),  _
6778      Global.System.ComponentModel.DataObjectAttribute(true),  _
6779      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
6780         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _
6781      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
6782     Partial Public Class GamesTableAdapter
6783         Inherits Global.System.ComponentModel.Component
6784
6785         Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter
6786
6787         Private _connection As Global.System.Data.OleDb.OleDbConnection
6788
6789         Private _transaction As Global.System.Data.OleDb.OleDbTransaction
6790
6791         Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
6792
6793         Private _clearBeforeFill As Boolean
6794
6795         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6796          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6797         Public Sub New()
6798             MyBase.New
6799             Me.ClearBeforeFill = true
6800         End Sub
6801
6802         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6803          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6804         Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
6805             Get
6806                 If (Me._adapter Is Nothing) Then
6807                     Me.InitAdapter
6808                 End If
6809                 Return Me._adapter
6810             End Get
6811         End Property
6812
6813         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6814          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6815         Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
6816             Get
6817                 If (Me._connection Is Nothing) Then
6818                     Me.InitConnection
6819                 End If
6820                 Return Me._connection
6821             End Get
6822             Set
6823                 Me._connection = value
6824                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
6825                     Me.Adapter.InsertCommand.Connection = value
6826                 End If
6827                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
6828                     Me.Adapter.DeleteCommand.Connection = value
6829                 End If
6830                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
6831                     Me.Adapter.UpdateCommand.Connection = value
6832                 End If
6833                 Dim i As Integer = 0
6834                 Do While (i < Me.CommandCollection.Length)
6835                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
6836                         CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value
6837                     End If
6838                     i = (i + 1)
6839                 Loop
6840             End Set
6841         End Property
6842
6843         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6844          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6845         Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
6846             Get
6847                 Return Me._transaction
6848             End Get
6849             Set
6850                 Me._transaction = value
6851                 Dim i As Integer = 0
6852                 Do While (i < Me.CommandCollection.Length)
6853                     Me.CommandCollection(i).Transaction = Me._transaction
6854                     i = (i + 1)
6855                 Loop
6856                 If ((Not (Me.Adapter) Is Nothing)  _
6857                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
6858                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
6859                 End If
6860                 If ((Not (Me.Adapter) Is Nothing)  _
6861                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
6862                     Me.Adapter.InsertCommand.Transaction = Me._transaction
6863                 End If
6864                 If ((Not (Me.Adapter) Is Nothing)  _
6865                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
6866                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
6867                 End If
6868             End Set
6869         End Property
6870
6871         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6872          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6873         Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
6874             Get
6875                 If (Me._commandCollection Is Nothing) Then
6876                     Me.InitCommandCollection
6877                 End If
6878                 Return Me._commandCollection
6879             End Get
6880         End Property
6881
6882         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6883          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6884         Public Property ClearBeforeFill() As Boolean
6885             Get
6886                 Return Me._clearBeforeFill
6887             End Get
6888             Set
6889                 Me._clearBeforeFill = value
6890             End Set
6891         End Property
6892
6893         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6894          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6895         Private Sub InitAdapter()
6896             Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
6897             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
6898             tableMapping.SourceTable = "Table"
6899             tableMapping.DataSetTable = "Games"
6900             tableMapping.ColumnMappings.Add("GameID", "GameID")
6901             tableMapping.ColumnMappings.Add("Name", "Name")
6902             tableMapping.ColumnMappings.Add("Price", "Price")
6903             tableMapping.ColumnMappings.Add("Rating", "Rating")
6904             tableMapping.ColumnMappings.Add("Certificate", "Certificate")
6905             tableMapping.ColumnMappings.Add("Dev", "Dev")
6906             tableMapping.ColumnMappings.Add("Publisher", "Publisher")
6907             tableMapping.ColumnMappings.Add("Icon", "Icon")
6908             tableMapping.ColumnMappings.Add("Tags", "Tags")
6909             tableMapping.ColumnMappings.Add("Theme Colour", "Theme Colour")
6910             Me._adapter.TableMappings.Add(tableMapping)
6911             Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand()
6912             Me._adapter.DeleteCommand.Connection = Me.Connection
6913             Me._adapter.DeleteCommand.CommandText = "DELETE FROM `Games` WHERE ((`GameID` = ?) AND ((? = 1 AND `Price` IS NULL) OR (`P"& _
6914                 "rice` = ?)) AND ((? = 1 AND `Rating` IS NULL) OR (`Rating` = ?)) AND ((? = 1 AND"& _
6915                 " `Certificate` IS NULL) OR (`Certificate` = ?)) AND ((? = 1 AND `Theme Colour` I"& _
6916                 "S NULL) OR (`Theme Colour` = ?)))"
6917             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
6918             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))
6919             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))
6920             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))
6921             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))
6922             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))
6923             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))
6924             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))
6925             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))
6926             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))
6927             Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand()
6928             Me._adapter.InsertCommand.Connection = Me.Connection
6929             Me._adapter.InsertCommand.CommandText = "INSERT INTO `Games` (`Name`, `Price`, `Rating`, `Certificate`, `Dev`, `Publisher`"& _
6930                 ", `Icon`, `Tags`, `Theme Colour`) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?)"
6931             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
6932             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))
6933             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))
6934             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))
6935             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))
6936             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))
6937             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))
6938             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))
6939             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))
6940             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))
6941             Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand()
6942             Me._adapter.UpdateCommand.Connection = Me.Connection
6943             Me._adapter.UpdateCommand.CommandText = "UPDATE `Games` SET `Name` = ?, `Price` = ?, `Rating` = ?, `Certificate` = ?, `Dev"& _
6944                 "` = ?, `Publisher` = ?, `Icon` = ?, `Tags` = ?, `Theme Colour` = ? WHERE ((`Game"& _
6945                 "ID` = ?) AND ((? = 1 AND `Price` IS NULL) OR (`Price` = ?)) AND ((? = 1 AND `Rat"& _
6946                 "ing` IS NULL) OR (`Rating` = ?)) AND ((? = 1 AND `Certificate` IS NULL) OR (`Cer"& _
6947                 "tificate` = ?)) AND ((? = 1 AND `Theme Colour` IS NULL) OR (`Theme Colour` = ?))"& _
6948                 ")"
6949             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
6950             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))
6951             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))
6952             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))
6953             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))
6954             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))
6955             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))
6956             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))
6957             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))
6958             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))
6959             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))
6960             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))
6961             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))
6962             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))
6963             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))
6964             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))
6965             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))
6966             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))
6967             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))
6968         End Sub
6969
6970         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6971          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6972         Private Sub InitConnection()
6973             Me._connection = New Global.System.Data.OleDb.OleDbConnection()
6974             Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString_accdb
6975         End Sub
6976
6977         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6978          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
6979         Private Sub InitCommandCollection()
6980             Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {}
6981             Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
6982             Me._commandCollection(0).Connection = Me.Connection
6983             Me._commandCollection(0).CommandText = "SELECT GameID, Name, Price, Rating, Certificate, Dev, Publisher, Icon, Tags, [The"& _
6984                 "me Colour] FROM Games"
6985             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
6986         End Sub
6987
6988         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
6989          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
6990          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
6991          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _
6992         Public Overloads Overridable Function Fill(ByVal dataTable As NEADataSet.GamesDataTable) As Integer
6993             Me.Adapter.SelectCommand = Me.CommandCollection(0)
6994             If (Me.ClearBeforeFill = true) Then
6995                 dataTable.Clear
6996             End If
6997             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
6998             Return returnValue
6999         End Function
7000
7001         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7002          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7003          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
7004          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _
7005         Public Overloads Overridable Function GetData() As NEADataSet.GamesDataTable
7006             Me.Adapter.SelectCommand = Me.CommandCollection(0)
7007             Dim dataTable As NEADataSet.GamesDataTable = New NEADataSet.GamesDataTable()
7008             Me.Adapter.Fill(dataTable)
7009             Return dataTable
7010         End Function
7011
7012         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7013          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7014          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7015         Public Overloads Overridable Function Update(ByVal dataTable As NEADataSet.GamesDataTable) As Integer
7016             Return Me.Adapter.Update(dataTable)
7017         End Function
7018
7019         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7020          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7021          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7022         Public Overloads Overridable Function Update(ByVal dataSet As NEADataSet) As Integer
7023             Return Me.Adapter.Update(dataSet, "Games")
7024         End Function
7025
7026         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7027          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7028          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7029         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
7030             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
7031         End Function
7032
7033         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7034          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7035          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7036         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
7037             Return Me.Adapter.Update(dataRows)
7038         End Function
7039
7040         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7041          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7042          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
7043          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _
7044         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
7045             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GameID,Integer)
7046             If (Original_Price.HasValue = true) Then
7047                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
7048                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Price.Value,Decimal)
7049             Else
7050                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
7051                 Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
7052             End If
7053             If (Original_Rating.HasValue = true) Then
7054                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
7055                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Rating.Value,Integer)
7056             Else
7057                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
7058                 Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
7059             End If
7060             If (Original_Certificate.HasValue = true) Then
7061                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
7062                 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_Certificate.Value,Integer)
7063             Else
7064                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
7065                 Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
7066             End If
7067             If (Original_Theme_Colour.HasValue = true) Then
7068                 Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object)
7069                 Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_Theme_Colour.Value,Integer)
7070             Else
7071                 Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object)
7072                 Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value
7073             End If
7074             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
7075             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
7076                         <> Global.System.Data.ConnectionState.Open) Then
7077                 Me.Adapter.DeleteCommand.Connection.Open
7078             End If
7079             Try
7080                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
7081                 Return returnValue
7082             Finally
7083                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
7084                     Me.Adapter.DeleteCommand.Connection.Close
7085                 End If
7086             End Try
7087         End Function
7088
7089         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7090          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7091          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
7092          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _
7093         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
7094             If (Name Is Nothing) Then
7095                 Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
7096             Else
7097                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(Name,String)
7098             End If
7099             If (Price.HasValue = true) Then
7100                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(Price.Value,Decimal)
7101             Else
7102                 Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
7103             End If
7104             If (Rating.HasValue = true) Then
7105                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(Rating.Value,Integer)
7106             Else
7107                 Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
7108             End If
7109             If (Certificate.HasValue = true) Then
7110                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(Certificate.Value,Integer)
7111             Else
7112                 Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
7113             End If
7114             If (Dev Is Nothing) Then
7115                 Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
7116             Else
7117                 Me.Adapter.InsertCommand.Parameters(4).Value = CType(Dev,String)
7118             End If
7119             If (Publisher Is Nothing) Then
7120                 Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
7121             Else
7122                 Me.Adapter.InsertCommand.Parameters(5).Value = CType(Publisher,String)
7123             End If
7124             If (Icon Is Nothing) Then
7125                 Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
7126             Else
7127                 Me.Adapter.InsertCommand.Parameters(6).Value = CType(Icon,String)
7128             End If
7129             If (Tags Is Nothing) Then
7130                 Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
7131             Else
7132                 Me.Adapter.InsertCommand.Parameters(7).Value = CType(Tags,String)
7133             End If
7134             If (Theme_Colour.HasValue = true) Then
7135                 Me.Adapter.InsertCommand.Parameters(8).Value = CType(Theme_Colour.Value,Integer)
7136             Else
7137                 Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value
7138             End If
7139             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
7140             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
7141                         <> Global.System.Data.ConnectionState.Open) Then
7142                 Me.Adapter.InsertCommand.Connection.Open
7143             End If
7144             Try
7145                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
7146                 Return returnValue
7147             Finally
7148                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
7149                     Me.Adapter.InsertCommand.Connection.Close
7150                 End If
7151             End Try
7152         End Function
7153
7154         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7155          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7156          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
7157          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _
7158         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
7159             If (Name Is Nothing) Then
7160                 Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
7161             Else
7162                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Name,String)
7163             End If
7164             If (Price.HasValue = true) Then
7165                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Price.Value,Decimal)
7166             Else
7167                 Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
7168             End If
7169             If (Rating.HasValue = true) Then
7170                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Rating.Value,Integer)
7171             Else
7172                 Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
7173             End If
7174             If (Certificate.HasValue = true) Then
7175                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Certificate.Value,Integer)
7176             Else
7177                 Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
7178             End If
7179             If (Dev Is Nothing) Then
7180                 Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
7181             Else
7182                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Dev,String)
7183             End If
7184             If (Publisher Is Nothing) Then
7185                 Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
7186             Else
7187                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Publisher,String)
7188             End If
7189             If (Icon Is Nothing) Then
7190                 Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
7191             Else
7192                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Icon,String)
7193             End If
7194             If (Tags Is Nothing) Then
7195                 Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
7196             Else
7197                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Tags,String)
7198             End If
7199             If (Theme_Colour.HasValue = true) Then
7200                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Theme_Colour.Value,Integer)
7201             Else
7202                 Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
7203             End If
7204             Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GameID,Integer)
7205             If (Original_Price.HasValue = true) Then
7206                 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object)
7207                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_Price.Value,Decimal)
7208             Else
7209                 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object)
7210                 Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
7211             End If
7212             If (Original_Rating.HasValue = true) Then
7213                 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object)
7214                 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_Rating.Value,Integer)
7215             Else
7216                 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object)
7217                 Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
7218             End If
7219             If (Original_Certificate.HasValue = true) Then
7220                 Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object)
7221                 Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_Certificate.Value,Integer)
7222             Else
7223                 Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object)
7224                 Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value
7225             End If
7226             If (Original_Theme_Colour.HasValue = true) Then
7227                 Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object)
7228                 Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_Theme_Colour.Value,Integer)
7229             Else
7230                 Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object)
7231                 Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value
7232             End If
7233             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
7234             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
7235                         <> Global.System.Data.ConnectionState.Open) Then
7236                 Me.Adapter.UpdateCommand.Connection.Open
7237             End If
7238             Try
7239                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
7240                 Return returnValue
7241             Finally
7242                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
7243                     Me.Adapter.UpdateCommand.Connection.Close
7244                 End If
7245             End Try
7246         End Function
7247     End Class
7248
7249     '''<summary>
7250     '''Represents the connection and commands used to retrieve and save data.
7251     '''</summary>
7252     <Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _
7253      Global.System.ComponentModel.ToolboxItem(true),  _
7254      Global.System.ComponentModel.DataObjectAttribute(true),  _
7255      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
7256         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _
7257      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7258     Partial Public Class PurchasedTableAdapter
7259         Inherits Global.System.ComponentModel.Component
7260
7261         Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter
7262
7263         Private _connection As Global.System.Data.OleDb.OleDbConnection
7264
7265         Private _transaction As Global.System.Data.OleDb.OleDbTransaction
7266
7267         Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
7268
7269         Private _clearBeforeFill As Boolean
7270
7271         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7272          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7273         Public Sub New()
7274             MyBase.New
7275             Me.ClearBeforeFill = true
7276         End Sub
7277
7278         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7279          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7280         Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
7281             Get
7282                 If (Me._adapter Is Nothing) Then
7283                     Me.InitAdapter
7284                 End If
7285                 Return Me._adapter
7286             End Get
7287         End Property
7288
7289         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7290          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7291         Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
7292             Get
7293                 If (Me._connection Is Nothing) Then
7294                     Me.InitConnection
7295                 End If
7296                 Return Me._connection
7297             End Get
7298             Set
7299                 Me._connection = value
7300                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
7301                     Me.Adapter.InsertCommand.Connection = value
7302                 End If
7303                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
7304                     Me.Adapter.DeleteCommand.Connection = value
7305                 End If
7306                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
7307                     Me.Adapter.UpdateCommand.Connection = value
7308                 End If
7309                 Dim i As Integer = 0
7310                 Do While (i < Me.CommandCollection.Length)
7311                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
7312                         CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value
7313                     End If
7314                     i = (i + 1)
7315                 Loop
7316             End Set
7317         End Property
7318
7319         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7320          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7321         Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
7322             Get
7323                 Return Me._transaction
7324             End Get
7325             Set
7326                 Me._transaction = value
7327                 Dim i As Integer = 0
7328                 Do While (i < Me.CommandCollection.Length)
7329                     Me.CommandCollection(i).Transaction = Me._transaction
7330                     i = (i + 1)
7331                 Loop
7332                 If ((Not (Me.Adapter) Is Nothing)  _
7333                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
7334                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
7335                 End If
7336                 If ((Not (Me.Adapter) Is Nothing)  _
7337                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
7338                     Me.Adapter.InsertCommand.Transaction = Me._transaction
7339                 End If
7340                 If ((Not (Me.Adapter) Is Nothing)  _
7341                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
7342                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
7343                 End If
7344             End Set
7345         End Property
7346
7347         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7348          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7349         Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
7350             Get
7351                 If (Me._commandCollection Is Nothing) Then
7352                     Me.InitCommandCollection
7353                 End If
7354                 Return Me._commandCollection
7355             End Get
7356         End Property
7357
7358         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7359          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7360         Public Property ClearBeforeFill() As Boolean
7361             Get
7362                 Return Me._clearBeforeFill
7363             End Get
7364             Set
7365                 Me._clearBeforeFill = value
7366             End Set
7367         End Property
7368
7369         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7370          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7371         Private Sub InitAdapter()
7372             Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
7373             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
7374             tableMapping.SourceTable = "Table"
7375             tableMapping.DataSetTable = "Purchased"
7376             tableMapping.ColumnMappings.Add("PurchaseID", "PurchaseID")
7377             tableMapping.ColumnMappings.Add("UserID", "UserID")
7378             tableMapping.ColumnMappings.Add("GameID", "GameID")
7379             Me._adapter.TableMappings.Add(tableMapping)
7380             Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand()
7381             Me._adapter.DeleteCommand.Connection = Me.Connection
7382             Me._adapter.DeleteCommand.CommandText = "DELETE FROM `Purchased` WHERE ((`PurchaseID` = ?) AND ((? = 1 AND `UserID` IS NUL"& _
7383                 "L) OR (`UserID` = ?)) AND ((? = 1 AND `GameID` IS NULL) OR (`GameID` = ?)))"
7384             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
7385             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))
7386             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))
7387             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))
7388             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))
7389             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))
7390             Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand()
7391             Me._adapter.InsertCommand.Connection = Me.Connection
7392             Me._adapter.InsertCommand.CommandText = "INSERT INTO `Purchased` (`UserID`, `GameID`) VALUES (?, ?)"
7393             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
7394             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))
7395             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))
7396             Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand()
7397             Me._adapter.UpdateCommand.Connection = Me.Connection
7398             Me._adapter.UpdateCommand.CommandText = "UPDATE `Purchased` SET `UserID` = ?, `GameID` = ? WHERE ((`PurchaseID` = ?) AND ("& _
7399                 "(? = 1 AND `UserID` IS NULL) OR (`UserID` = ?)) AND ((? = 1 AND `GameID` IS NULL"& _
7400                 ") OR (`GameID` = ?)))"
7401             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
7402             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))
7403             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))
7404             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))
7405             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))
7406             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))
7407             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))
7408             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))
7409         End Sub
7410
7411         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7412          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7413         Private Sub InitConnection()
7414             Me._connection = New Global.System.Data.OleDb.OleDbConnection()
7415             Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString_accdb
7416         End Sub
7417
7418         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7419          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7420         Private Sub InitCommandCollection()
7421             Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {}
7422             Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
7423             Me._commandCollection(0).Connection = Me.Connection
7424             Me._commandCollection(0).CommandText = "SELECT PurchaseID, UserID, GameID FROM Purchased"
7425             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
7426         End Sub
7427
7428         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7429          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7430          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
7431          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _
7432         Public Overloads Overridable Function Fill(ByVal dataTable As NEADataSet.PurchasedDataTable) As Integer
7433             Me.Adapter.SelectCommand = Me.CommandCollection(0)
7434             If (Me.ClearBeforeFill = true) Then
7435                 dataTable.Clear
7436             End If
7437             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
7438             Return returnValue
7439         End Function
7440
7441         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7442          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7443          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
7444          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _
7445         Public Overloads Overridable Function GetData() As NEADataSet.PurchasedDataTable
7446             Me.Adapter.SelectCommand = Me.CommandCollection(0)
7447             Dim dataTable As NEADataSet.PurchasedDataTable = New NEADataSet.PurchasedDataTable()
7448             Me.Adapter.Fill(dataTable)
7449             Return dataTable
7450         End Function
7451
7452         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7453          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7454          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7455         Public Overloads Overridable Function Update(ByVal dataTable As NEADataSet.PurchasedDataTable) As Integer
7456             Return Me.Adapter.Update(dataTable)
7457         End Function
7458
7459         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7460          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7461          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7462         Public Overloads Overridable Function Update(ByVal dataSet As NEADataSet) As Integer
7463             Return Me.Adapter.Update(dataSet, "Purchased")
7464         End Function
7465
7466         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7467          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7468          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7469         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
7470             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
7471         End Function
7472
7473         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7474          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7475          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7476         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
7477             Return Me.Adapter.Update(dataRows)
7478         End Function
7479
7480         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7481          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7482          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
7483          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _
7484         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
7485             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_PurchaseID,Integer)
7486             If (Original_UserID.HasValue = true) Then
7487                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
7488                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_UserID.Value,Integer)
7489             Else
7490                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
7491                 Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
7492             End If
7493             If (Original_GameID.HasValue = true) Then
7494                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
7495                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_GameID.Value,Integer)
7496             Else
7497                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
7498                 Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
7499             End If
7500             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
7501             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
7502                         <> Global.System.Data.ConnectionState.Open) Then
7503                 Me.Adapter.DeleteCommand.Connection.Open
7504             End If
7505             Try
7506                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
7507                 Return returnValue
7508             Finally
7509                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
7510                     Me.Adapter.DeleteCommand.Connection.Close
7511                 End If
7512             End Try
7513         End Function
7514
7515         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7516          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7517          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
7518          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _
7519         Public Overloads Overridable Function Insert(ByVal UserID As Global.System.Nullable(Of Integer), ByVal GameID As Global.System.Nullable(Of Integer)) As Integer
7520             If (UserID.HasValue = true) Then
7521                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(UserID.Value,Integer)
7522             Else
7523                 Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
7524             End If
7525             If (GameID.HasValue = true) Then
7526                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(GameID.Value,Integer)
7527             Else
7528                 Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
7529             End If
7530             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
7531             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
7532                         <> Global.System.Data.ConnectionState.Open) Then
7533                 Me.Adapter.InsertCommand.Connection.Open
7534             End If
7535             Try
7536                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
7537                 Return returnValue
7538             Finally
7539                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
7540                     Me.Adapter.InsertCommand.Connection.Close
7541                 End If
7542             End Try
7543         End Function
7544
7545         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7546          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7547          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
7548          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _
7549         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
7550             If (UserID.HasValue = true) Then
7551                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(UserID.Value,Integer)
7552             Else
7553                 Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
7554             End If
7555             If (GameID.HasValue = true) Then
7556                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(GameID.Value,Integer)
7557             Else
7558                 Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
7559             End If
7560             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_PurchaseID,Integer)
7561             If (Original_UserID.HasValue = true) Then
7562                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(0,Object)
7563                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_UserID.Value,Integer)
7564             Else
7565                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(1,Object)
7566                 Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
7567             End If
7568             If (Original_GameID.HasValue = true) Then
7569                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(0,Object)
7570                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GameID.Value,Integer)
7571             Else
7572                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(1,Object)
7573                 Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
7574             End If
7575             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
7576             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
7577                         <> Global.System.Data.ConnectionState.Open) Then
7578                 Me.Adapter.UpdateCommand.Connection.Open
7579             End If
7580             Try
7581                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
7582                 Return returnValue
7583             Finally
7584                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
7585                     Me.Adapter.UpdateCommand.Connection.Close
7586                 End If
7587             End Try
7588         End Function
7589     End Class
7590
7591     '''<summary>
7592     '''Represents the connection and commands used to retrieve and save data.
7593     '''</summary>
7594     <Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _
7595      Global.System.ComponentModel.ToolboxItem(true),  _
7596      Global.System.ComponentModel.DataObjectAttribute(true),  _
7597      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
7598         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _
7599      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7600     Partial Public Class ReviewsTableAdapter
7601         Inherits Global.System.ComponentModel.Component
7602
7603         Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter
7604
7605         Private _connection As Global.System.Data.OleDb.OleDbConnection
7606
7607         Private _transaction As Global.System.Data.OleDb.OleDbTransaction
7608
7609         Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
7610
7611         Private _clearBeforeFill As Boolean
7612
7613         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7614          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7615         Public Sub New()
7616             MyBase.New
7617             Me.ClearBeforeFill = true
7618         End Sub
7619
7620         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7621          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7622         Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
7623             Get
7624                 If (Me._adapter Is Nothing) Then
7625                     Me.InitAdapter
7626                 End If
7627                 Return Me._adapter
7628             End Get
7629         End Property
7630
7631         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7632          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7633         Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
7634             Get
7635                 If (Me._connection Is Nothing) Then
7636                     Me.InitConnection
7637                 End If
7638                 Return Me._connection
7639             End Get
7640             Set
7641                 Me._connection = value
7642                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
7643                     Me.Adapter.InsertCommand.Connection = value
7644                 End If
7645                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
7646                     Me.Adapter.DeleteCommand.Connection = value
7647                 End If
7648                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
7649                     Me.Adapter.UpdateCommand.Connection = value
7650                 End If
7651                 Dim i As Integer = 0
7652                 Do While (i < Me.CommandCollection.Length)
7653                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
7654                         CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value
7655                     End If
7656                     i = (i + 1)
7657                 Loop
7658             End Set
7659         End Property
7660
7661         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7662          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7663         Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
7664             Get
7665                 Return Me._transaction
7666             End Get
7667             Set
7668                 Me._transaction = value
7669                 Dim i As Integer = 0
7670                 Do While (i < Me.CommandCollection.Length)
7671                     Me.CommandCollection(i).Transaction = Me._transaction
7672                     i = (i + 1)
7673                 Loop
7674                 If ((Not (Me.Adapter) Is Nothing)  _
7675                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
7676                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
7677                 End If
7678                 If ((Not (Me.Adapter) Is Nothing)  _
7679                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
7680                     Me.Adapter.InsertCommand.Transaction = Me._transaction
7681                 End If
7682                 If ((Not (Me.Adapter) Is Nothing)  _
7683                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
7684                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
7685                 End If
7686             End Set
7687         End Property
7688
7689         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7690          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7691         Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
7692             Get
7693                 If (Me._commandCollection Is Nothing) Then
7694                     Me.InitCommandCollection
7695                 End If
7696                 Return Me._commandCollection
7697             End Get
7698         End Property
7699
7700         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7701          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7702         Public Property ClearBeforeFill() As Boolean
7703             Get
7704                 Return Me._clearBeforeFill
7705             End Get
7706             Set
7707                 Me._clearBeforeFill = value
7708             End Set
7709         End Property
7710
7711         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7712          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7713         Private Sub InitAdapter()
7714             Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
7715             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
7716             tableMapping.SourceTable = "Table"
7717             tableMapping.DataSetTable = "Reviews"
7718             tableMapping.ColumnMappings.Add("ReviewID", "ReviewID")
7719             tableMapping.ColumnMappings.Add("GameID", "GameID")
7720             tableMapping.ColumnMappings.Add("Review", "Review")
7721             Me._adapter.TableMappings.Add(tableMapping)
7722             Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand()
7723             Me._adapter.DeleteCommand.Connection = Me.Connection
7724             Me._adapter.DeleteCommand.CommandText = "DELETE FROM `Reviews` WHERE ((`ReviewID` = ?) AND ((? = 1 AND `GameID` IS NULL) O"& _
7725                 "R (`GameID` = ?)))"
7726             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
7727             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))
7728             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))
7729             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))
7730             Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand()
7731             Me._adapter.InsertCommand.Connection = Me.Connection
7732             Me._adapter.InsertCommand.CommandText = "INSERT INTO `Reviews` (`GameID`, `Review`) VALUES (?, ?)"
7733             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
7734             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))
7735             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))
7736             Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand()
7737             Me._adapter.UpdateCommand.Connection = Me.Connection
7738             Me._adapter.UpdateCommand.CommandText = "UPDATE `Reviews` SET `GameID` = ?, `Review` = ? WHERE ((`ReviewID` = ?) AND ((? ="& _
7739                 " 1 AND `GameID` IS NULL) OR (`GameID` = ?)))"
7740             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
7741             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))
7742             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))
7743             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))
7744             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))
7745             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))
7746         End Sub
7747
7748         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7749          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7750         Private Sub InitConnection()
7751             Me._connection = New Global.System.Data.OleDb.OleDbConnection()
7752             Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString_accdb
7753         End Sub
7754
7755         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7756          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7757         Private Sub InitCommandCollection()
7758             Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {}
7759             Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
7760             Me._commandCollection(0).Connection = Me.Connection
7761             Me._commandCollection(0).CommandText = "SELECT ReviewID, GameID, Review FROM Reviews"
7762             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
7763         End Sub
7764
7765         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7766          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7767          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
7768          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _
7769         Public Overloads Overridable Function Fill(ByVal dataTable As NEADataSet.ReviewsDataTable) As Integer
7770             Me.Adapter.SelectCommand = Me.CommandCollection(0)
7771             If (Me.ClearBeforeFill = true) Then
7772                 dataTable.Clear
7773             End If
7774             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
7775             Return returnValue
7776         End Function
7777
7778         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7779          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7780          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
7781          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _
7782         Public Overloads Overridable Function GetData() As NEADataSet.ReviewsDataTable
7783             Me.Adapter.SelectCommand = Me.CommandCollection(0)
7784             Dim dataTable As NEADataSet.ReviewsDataTable = New NEADataSet.ReviewsDataTable()
7785             Me.Adapter.Fill(dataTable)
7786             Return dataTable
7787         End Function
7788
7789         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7790          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7791          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7792         Public Overloads Overridable Function Update(ByVal dataTable As NEADataSet.ReviewsDataTable) As Integer
7793             Return Me.Adapter.Update(dataTable)
7794         End Function
7795
7796         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7797          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7798          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7799         Public Overloads Overridable Function Update(ByVal dataSet As NEADataSet) As Integer
7800             Return Me.Adapter.Update(dataSet, "Reviews")
7801         End Function
7802
7803         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7804          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7805          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7806         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
7807             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
7808         End Function
7809
7810         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7811          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7812          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7813         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
7814             Return Me.Adapter.Update(dataRows)
7815         End Function
7816
7817         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7818          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7819          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
7820          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _
7821         Public Overloads Overridable Function Delete(ByVal Original_ReviewID As Integer, ByVal Original_GameID As Global.System.Nullable(Of Integer)) As Integer
7822             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ReviewID,Integer)
7823             If (Original_GameID.HasValue = true) Then
7824                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
7825                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_GameID.Value,Integer)
7826             Else
7827                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
7828                 Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
7829             End If
7830             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
7831             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
7832                         <> Global.System.Data.ConnectionState.Open) Then
7833                 Me.Adapter.DeleteCommand.Connection.Open
7834             End If
7835             Try
7836                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
7837                 Return returnValue
7838             Finally
7839                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
7840                     Me.Adapter.DeleteCommand.Connection.Close
7841                 End If
7842             End Try
7843         End Function
7844
7845         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7846          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7847          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
7848          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _
7849         Public Overloads Overridable Function Insert(ByVal GameID As Global.System.Nullable(Of Integer), ByVal Review As String) As Integer
7850             If (GameID.HasValue = true) Then
7851                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(GameID.Value,Integer)
7852             Else
7853                 Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
7854             End If
7855             If (Review Is Nothing) Then
7856                 Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
7857             Else
7858                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(Review,String)
7859             End If
7860             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
7861             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
7862                         <> Global.System.Data.ConnectionState.Open) Then
7863                 Me.Adapter.InsertCommand.Connection.Open
7864             End If
7865             Try
7866                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
7867                 Return returnValue
7868             Finally
7869                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
7870                     Me.Adapter.InsertCommand.Connection.Close
7871                 End If
7872             End Try
7873         End Function
7874
7875         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7876          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
7877          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
7878          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _
7879         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
7880             If (GameID.HasValue = true) Then
7881                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(GameID.Value,Integer)
7882             Else
7883                 Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
7884             End If
7885             If (Review Is Nothing) Then
7886                 Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
7887             Else
7888                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Review,String)
7889             End If
7890             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_ReviewID,Integer)
7891             If (Original_GameID.HasValue = true) Then
7892                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(0,Object)
7893                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_GameID.Value,Integer)
7894             Else
7895                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(1,Object)
7896                 Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
7897             End If
7898             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
7899             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
7900                         <> Global.System.Data.ConnectionState.Open) Then
7901                 Me.Adapter.UpdateCommand.Connection.Open
7902             End If
7903             Try
7904                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
7905                 Return returnValue
7906             Finally
7907                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
7908                     Me.Adapter.UpdateCommand.Connection.Close
7909                 End If
7910             End Try
7911         End Function
7912     End Class
7913
7914     '''<summary>
7915     '''Represents the connection and commands used to retrieve and save data.
7916     '''</summary>
7917     <Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _
7918      Global.System.ComponentModel.ToolboxItem(true),  _
7919      Global.System.ComponentModel.DataObjectAttribute(true),  _
7920      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
7921         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _
7922      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
7923     Partial Public Class TagsTableAdapter
7924         Inherits Global.System.ComponentModel.Component
7925
7926         Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter
7927
7928         Private _connection As Global.System.Data.OleDb.OleDbConnection
7929
7930         Private _transaction As Global.System.Data.OleDb.OleDbTransaction
7931
7932         Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
7933
7934         Private _clearBeforeFill As Boolean
7935
7936         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7937          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7938         Public Sub New()
7939             MyBase.New
7940             Me.ClearBeforeFill = true
7941         End Sub
7942
7943         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7944          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7945         Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
7946             Get
7947                 If (Me._adapter Is Nothing) Then
7948                     Me.InitAdapter
7949                 End If
7950                 Return Me._adapter
7951             End Get
7952         End Property
7953
7954         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7955          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7956         Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
7957             Get
7958                 If (Me._connection Is Nothing) Then
7959                     Me.InitConnection
7960                 End If
7961                 Return Me._connection
7962             End Get
7963             Set
7964                 Me._connection = value
7965                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
7966                     Me.Adapter.InsertCommand.Connection = value
7967                 End If
7968                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
7969                     Me.Adapter.DeleteCommand.Connection = value
7970                 End If
7971                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
7972                     Me.Adapter.UpdateCommand.Connection = value
7973                 End If
7974                 Dim i As Integer = 0
7975                 Do While (i < Me.CommandCollection.Length)
7976                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
7977                         CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value
7978                     End If
7979                     i = (i + 1)
7980                 Loop
7981             End Set
7982         End Property
7983
7984         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
7985          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
7986         Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
7987             Get
7988                 Return Me._transaction
7989             End Get
7990             Set
7991                 Me._transaction = value
7992                 Dim i As Integer = 0
7993                 Do While (i < Me.CommandCollection.Length)
7994                     Me.CommandCollection(i).Transaction = Me._transaction
7995                     i = (i + 1)
7996                 Loop
7997                 If ((Not (Me.Adapter) Is Nothing)  _
7998                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
7999                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
8000                 End If
8001                 If ((Not (Me.Adapter) Is Nothing)  _
8002                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
8003                     Me.Adapter.InsertCommand.Transaction = Me._transaction
8004                 End If
8005                 If ((Not (Me.Adapter) Is Nothing)  _
8006                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
8007                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
8008                 End If
8009             End Set
8010         End Property
8011
8012         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8013          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8014         Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
8015             Get
8016                 If (Me._commandCollection Is Nothing) Then
8017                     Me.InitCommandCollection
8018                 End If
8019                 Return Me._commandCollection
8020             End Get
8021         End Property
8022
8023         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8024          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8025         Public Property ClearBeforeFill() As Boolean
8026             Get
8027                 Return Me._clearBeforeFill
8028             End Get
8029             Set
8030                 Me._clearBeforeFill = value
8031             End Set
8032         End Property
8033
8034         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8035          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8036         Private Sub InitAdapter()
8037             Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
8038             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
8039             tableMapping.SourceTable = "Table"
8040             tableMapping.DataSetTable = "Tags"
8041             tableMapping.ColumnMappings.Add("ID", "ID")
8042             Me._adapter.TableMappings.Add(tableMapping)
8043             Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand()
8044             Me._adapter.DeleteCommand.Connection = Me.Connection
8045             Me._adapter.DeleteCommand.CommandText = "DELETE FROM `Tags` WHERE ((`ID` = ?))"
8046             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
8047             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))
8048             Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand()
8049             Me._adapter.InsertCommand.Connection = Me.Connection
8050             Me._adapter.InsertCommand.CommandText = "INSERT INTO `Tags` DEFAULT VALUES"
8051             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
8052             Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand()
8053             Me._adapter.UpdateCommand.Connection = Me.Connection
8054             Me._adapter.UpdateCommand.CommandText = "UPDATE `Tags` WHERE ((`ID` = ?))"
8055             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
8056             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))
8057         End Sub
8058
8059         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8060          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8061         Private Sub InitConnection()
8062             Me._connection = New Global.System.Data.OleDb.OleDbConnection()
8063             Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString_accdb
8064         End Sub
8065
8066         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8067          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8068         Private Sub InitCommandCollection()
8069             Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {}
8070             Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
8071             Me._commandCollection(0).Connection = Me.Connection
8072             Me._commandCollection(0).CommandText = "SELECT ID FROM Tags"
8073             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
8074         End Sub
8075
8076         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8077          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8078          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8079          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _
8080         Public Overloads Overridable Function Fill(ByVal dataTable As NEADataSet.TagsDataTable) As Integer
8081             Me.Adapter.SelectCommand = Me.CommandCollection(0)
8082             If (Me.ClearBeforeFill = true) Then
8083                 dataTable.Clear
8084             End If
8085             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
8086             Return returnValue
8087         End Function
8088
8089         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8090          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8091          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8092          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _
8093         Public Overloads Overridable Function GetData() As NEADataSet.TagsDataTable
8094             Me.Adapter.SelectCommand = Me.CommandCollection(0)
8095             Dim dataTable As NEADataSet.TagsDataTable = New NEADataSet.TagsDataTable()
8096             Me.Adapter.Fill(dataTable)
8097             Return dataTable
8098         End Function
8099
8100         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8101          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8102          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
8103         Public Overloads Overridable Function Update(ByVal dataTable As NEADataSet.TagsDataTable) As Integer
8104             Return Me.Adapter.Update(dataTable)
8105         End Function
8106
8107         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8108          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8109          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
8110         Public Overloads Overridable Function Update(ByVal dataSet As NEADataSet) As Integer
8111             Return Me.Adapter.Update(dataSet, "Tags")
8112         End Function
8113
8114         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8115          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8116          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
8117         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
8118             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
8119         End Function
8120
8121         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8122          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8123          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
8124         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
8125             Return Me.Adapter.Update(dataRows)
8126         End Function
8127
8128         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8129          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8130          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8131          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _
8132         Public Overloads Overridable Function Delete(ByVal Original_ID As Integer) As Integer
8133             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,Integer)
8134             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
8135             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
8136                         <> Global.System.Data.ConnectionState.Open) Then
8137                 Me.Adapter.DeleteCommand.Connection.Open
8138             End If
8139             Try
8140                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
8141                 Return returnValue
8142             Finally
8143                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
8144                     Me.Adapter.DeleteCommand.Connection.Close
8145                 End If
8146             End Try
8147         End Function
8148
8149         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8150          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8151          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8152          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _
8153         Public Overloads Overridable Function Insert() As Integer
8154             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
8155             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
8156                         <> Global.System.Data.ConnectionState.Open) Then
8157                 Me.Adapter.InsertCommand.Connection.Open
8158             End If
8159             Try
8160                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
8161                 Return returnValue
8162             Finally
8163                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
8164                     Me.Adapter.InsertCommand.Connection.Close
8165                 End If
8166             End Try
8167         End Function
8168
8169         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8170          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8171          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8172          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _
8173         Public Overloads Overridable Function Update(ByVal Original_ID As Integer) As Integer
8174             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Original_ID,Integer)
8175             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
8176             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
8177                         <> Global.System.Data.ConnectionState.Open) Then
8178                 Me.Adapter.UpdateCommand.Connection.Open
8179             End If
8180             Try
8181                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
8182                 Return returnValue
8183             Finally
8184                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
8185                     Me.Adapter.UpdateCommand.Connection.Close
8186                 End If
8187             End Try
8188         End Function
8189     End Class
8190
8191     '''<summary>
8192     '''Represents the connection and commands used to retrieve and save data.
8193     '''</summary>
8194     <Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _
8195      Global.System.ComponentModel.ToolboxItem(true),  _
8196      Global.System.ComponentModel.DataObjectAttribute(true),  _
8197      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
8198         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _
8199      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
8200     Partial Public Class User_DetailsTableAdapter
8201         Inherits Global.System.ComponentModel.Component
8202
8203         Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter
8204
8205         Private _connection As Global.System.Data.OleDb.OleDbConnection
8206
8207         Private _transaction As Global.System.Data.OleDb.OleDbTransaction
8208
8209         Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
8210
8211         Private _clearBeforeFill As Boolean
8212
8213         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8214          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8215         Public Sub New()
8216             MyBase.New
8217             Me.ClearBeforeFill = true
8218         End Sub
8219
8220         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8221          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8222         Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
8223             Get
8224                 If (Me._adapter Is Nothing) Then
8225                     Me.InitAdapter
8226                 End If
8227                 Return Me._adapter
8228             End Get
8229         End Property
8230
8231         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8232          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8233         Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
8234             Get
8235                 If (Me._connection Is Nothing) Then
8236                     Me.InitConnection
8237                 End If
8238                 Return Me._connection
8239             End Get
8240             Set
8241                 Me._connection = value
8242                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
8243                     Me.Adapter.InsertCommand.Connection = value
8244                 End If
8245                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
8246                     Me.Adapter.DeleteCommand.Connection = value
8247                 End If
8248                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
8249                     Me.Adapter.UpdateCommand.Connection = value
8250                 End If
8251                 Dim i As Integer = 0
8252                 Do While (i < Me.CommandCollection.Length)
8253                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
8254                         CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value
8255                     End If
8256                     i = (i + 1)
8257                 Loop
8258             End Set
8259         End Property
8260
8261         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8262          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8263         Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
8264             Get
8265                 Return Me._transaction
8266             End Get
8267             Set
8268                 Me._transaction = value
8269                 Dim i As Integer = 0
8270                 Do While (i < Me.CommandCollection.Length)
8271                     Me.CommandCollection(i).Transaction = Me._transaction
8272                     i = (i + 1)
8273                 Loop
8274                 If ((Not (Me.Adapter) Is Nothing)  _
8275                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
8276                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
8277                 End If
8278                 If ((Not (Me.Adapter) Is Nothing)  _
8279                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
8280                     Me.Adapter.InsertCommand.Transaction = Me._transaction
8281                 End If
8282                 If ((Not (Me.Adapter) Is Nothing)  _
8283                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
8284                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
8285                 End If
8286             End Set
8287         End Property
8288
8289         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8290          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8291         Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
8292             Get
8293                 If (Me._commandCollection Is Nothing) Then
8294                     Me.InitCommandCollection
8295                 End If
8296                 Return Me._commandCollection
8297             End Get
8298         End Property
8299
8300         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8301          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8302         Public Property ClearBeforeFill() As Boolean
8303             Get
8304                 Return Me._clearBeforeFill
8305             End Get
8306             Set
8307                 Me._clearBeforeFill = value
8308             End Set
8309         End Property
8310
8311         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8312          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8313         Private Sub InitAdapter()
8314             Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
8315             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
8316             tableMapping.SourceTable = "Table"
8317             tableMapping.DataSetTable = "User_Details"
8318             tableMapping.ColumnMappings.Add("UserDetailsID", "UserDetailsID")
8319             tableMapping.ColumnMappings.Add("FirstName", "FirstName")
8320             tableMapping.ColumnMappings.Add("LastName", "LastName")
8321             tableMapping.ColumnMappings.Add("AddressLine1", "AddressLine1")
8322             tableMapping.ColumnMappings.Add("Town", "Town")
8323             tableMapping.ColumnMappings.Add("Postcode", "Postcode")
8324             tableMapping.ColumnMappings.Add("CardNumber", "CardNumber")
8325             tableMapping.ColumnMappings.Add("CVC", "CVC")
8326             tableMapping.ColumnMappings.Add("IGN", "IGN")
8327             tableMapping.ColumnMappings.Add("Email", "Email")
8328             tableMapping.ColumnMappings.Add("ProfilePic", "ProfilePic")
8329             Me._adapter.TableMappings.Add(tableMapping)
8330             Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand()
8331             Me._adapter.DeleteCommand.Connection = Me.Connection
8332             Me._adapter.DeleteCommand.CommandText = "DELETE FROM `User_Details` WHERE ((`UserDetailsID` = ?) AND ((? = 1 AND `Town` IS"& _
8333                 " NULL) OR (`Town` = ?)) AND ((? = 1 AND `CardNumber` IS NULL) OR (`CardNumber` ="& _
8334                 " ?)) AND ((? = 1 AND `CVC` IS NULL) OR (`CVC` = ?)))"
8335             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
8336             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))
8337             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))
8338             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))
8339             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))
8340             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))
8341             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))
8342             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))
8343             Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand()
8344             Me._adapter.InsertCommand.Connection = Me.Connection
8345             Me._adapter.InsertCommand.CommandText = "INSERT INTO `User_Details` (`FirstName`, `LastName`, `AddressLine1`, `Town`, `Pos"& _
8346                 "tcode`, `CardNumber`, `CVC`, `IGN`, `Email`, `ProfilePic`) VALUES (?, ?, ?, ?, ?"& _
8347                 ", ?, ?, ?, ?, ?)"
8348             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
8349             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))
8350             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))
8351             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))
8352             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))
8353             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))
8354             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))
8355             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))
8356             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))
8357             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))
8358             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("ProfilePic", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ProfilePic", Global.System.Data.DataRowVersion.Current, false, Nothing))
8359             Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand()
8360             Me._adapter.UpdateCommand.Connection = Me.Connection
8361             Me._adapter.UpdateCommand.CommandText = "UPDATE `User_Details` SET `FirstName` = ?, `LastName` = ?, `AddressLine1` = ?, `T"& _
8362                 "own` = ?, `Postcode` = ?, `CardNumber` = ?, `CVC` = ?, `IGN` = ?, `Email` = ?, `"& _
8363                 "ProfilePic` = ? WHERE ((`UserDetailsID` = ?) AND ((? = 1 AND `Town` IS NULL) OR "& _
8364                 "(`Town` = ?)) AND ((? = 1 AND `CardNumber` IS NULL) OR (`CardNumber` = ?)) AND ("& _
8365                 "(? = 1 AND `CVC` IS NULL) OR (`CVC` = ?)))"
8366             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
8367             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))
8368             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))
8369             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))
8370             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))
8371             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))
8372             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))
8373             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))
8374             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))
8375             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))
8376             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("ProfilePic", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ProfilePic", Global.System.Data.DataRowVersion.Current, false, Nothing))
8377             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))
8378             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))
8379             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))
8380             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))
8381             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))
8382             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))
8383             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))
8384         End Sub
8385
8386         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8387          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8388         Private Sub InitConnection()
8389             Me._connection = New Global.System.Data.OleDb.OleDbConnection()
8390             Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString_accdb
8391         End Sub
8392
8393         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8394          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8395         Private Sub InitCommandCollection()
8396             Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {}
8397             Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
8398             Me._commandCollection(0).Connection = Me.Connection
8399             Me._commandCollection(0).CommandText = "SELECT UserDetailsID, FirstName, LastName, AddressLine1, Town, Postcode, CardNumb"& _
8400                 "er, CVC, IGN, Email, ProfilePic FROM User_Details"
8401             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
8402         End Sub
8403
8404         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8405          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8406          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8407          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _
8408         Public Overloads Overridable Function Fill(ByVal dataTable As NEADataSet.User_DetailsDataTable) As Integer
8409             Me.Adapter.SelectCommand = Me.CommandCollection(0)
8410             If (Me.ClearBeforeFill = true) Then
8411                 dataTable.Clear
8412             End If
8413             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
8414             Return returnValue
8415         End Function
8416
8417         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8418          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8419          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8420          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _
8421         Public Overloads Overridable Function GetData() As NEADataSet.User_DetailsDataTable
8422             Me.Adapter.SelectCommand = Me.CommandCollection(0)
8423             Dim dataTable As NEADataSet.User_DetailsDataTable = New NEADataSet.User_DetailsDataTable()
8424             Me.Adapter.Fill(dataTable)
8425             Return dataTable
8426         End Function
8427
8428         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8429          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8430          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
8431         Public Overloads Overridable Function Update(ByVal dataTable As NEADataSet.User_DetailsDataTable) As Integer
8432             Return Me.Adapter.Update(dataTable)
8433         End Function
8434
8435         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8436          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8437          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
8438         Public Overloads Overridable Function Update(ByVal dataSet As NEADataSet) As Integer
8439             Return Me.Adapter.Update(dataSet, "User_Details")
8440         End Function
8441
8442         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8443          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8444          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
8445         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
8446             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
8447         End Function
8448
8449         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8450          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8451          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
8452         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
8453             Return Me.Adapter.Update(dataRows)
8454         End Function
8455
8456         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8457          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8458          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8459          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _
8460         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
8461             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_UserDetailsID,Integer)
8462             If (Original_Town Is Nothing) Then
8463                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
8464                 Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
8465             Else
8466                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
8467                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Town,String)
8468             End If
8469             If (Original_CardNumber.HasValue = true) Then
8470                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
8471                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_CardNumber.Value,Integer)
8472             Else
8473                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
8474                 Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
8475             End If
8476             If (Original_CVC.HasValue = true) Then
8477                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
8478                 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_CVC.Value,Integer)
8479             Else
8480                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
8481                 Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
8482             End If
8483             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
8484             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
8485                         <> Global.System.Data.ConnectionState.Open) Then
8486                 Me.Adapter.DeleteCommand.Connection.Open
8487             End If
8488             Try
8489                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
8490                 Return returnValue
8491             Finally
8492                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
8493                     Me.Adapter.DeleteCommand.Connection.Close
8494                 End If
8495             End Try
8496         End Function
8497
8498         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8499          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8500          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8501          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _
8502         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 String) As Integer
8503             If (FirstName Is Nothing) Then
8504                 Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
8505             Else
8506                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(FirstName,String)
8507             End If
8508             If (LastName Is Nothing) Then
8509                 Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
8510             Else
8511                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(LastName,String)
8512             End If
8513             If (AddressLine1 Is Nothing) Then
8514                 Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
8515             Else
8516                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(AddressLine1,String)
8517             End If
8518             If (Town Is Nothing) Then
8519                 Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
8520             Else
8521                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(Town,String)
8522             End If
8523             If (Postcode Is Nothing) Then
8524                 Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
8525             Else
8526                 Me.Adapter.InsertCommand.Parameters(4).Value = CType(Postcode,String)
8527             End If
8528             If (CardNumber.HasValue = true) Then
8529                 Me.Adapter.InsertCommand.Parameters(5).Value = CType(CardNumber.Value,Integer)
8530             Else
8531                 Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
8532             End If
8533             If (CVC.HasValue = true) Then
8534                 Me.Adapter.InsertCommand.Parameters(6).Value = CType(CVC.Value,Integer)
8535             Else
8536                 Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
8537             End If
8538             If (IGN Is Nothing) Then
8539                 Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
8540             Else
8541                 Me.Adapter.InsertCommand.Parameters(7).Value = CType(IGN,String)
8542             End If
8543             If (Email Is Nothing) Then
8544                 Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value
8545             Else
8546                 Me.Adapter.InsertCommand.Parameters(8).Value = CType(Email,String)
8547             End If
8548             If (ProfilePic Is Nothing) Then
8549                 Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value
8550             Else
8551                 Me.Adapter.InsertCommand.Parameters(9).Value = CType(ProfilePic,String)
8552             End If
8553             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
8554             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
8555                         <> Global.System.Data.ConnectionState.Open) Then
8556                 Me.Adapter.InsertCommand.Connection.Open
8557             End If
8558             Try
8559                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
8560                 Return returnValue
8561             Finally
8562                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
8563                     Me.Adapter.InsertCommand.Connection.Close
8564                 End If
8565             End Try
8566         End Function
8567
8568         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8569          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8570          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8571          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _
8572         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 String, 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
8573             If (FirstName Is Nothing) Then
8574                 Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
8575             Else
8576                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FirstName,String)
8577             End If
8578             If (LastName Is Nothing) Then
8579                 Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
8580             Else
8581                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(LastName,String)
8582             End If
8583             If (AddressLine1 Is Nothing) Then
8584                 Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
8585             Else
8586                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(AddressLine1,String)
8587             End If
8588             If (Town Is Nothing) Then
8589                 Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
8590             Else
8591                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Town,String)
8592             End If
8593             If (Postcode Is Nothing) Then
8594                 Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
8595             Else
8596                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Postcode,String)
8597             End If
8598             If (CardNumber.HasValue = true) Then
8599                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CardNumber.Value,Integer)
8600             Else
8601                 Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
8602             End If
8603             If (CVC.HasValue = true) Then
8604                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CVC.Value,Integer)
8605             Else
8606                 Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
8607             End If
8608             If (IGN Is Nothing) Then
8609                 Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
8610             Else
8611                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(IGN,String)
8612             End If
8613             If (Email Is Nothing) Then
8614                 Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
8615             Else
8616                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Email,String)
8617             End If
8618             If (ProfilePic Is Nothing) Then
8619                 Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value
8620             Else
8621                 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(ProfilePic,String)
8622             End If
8623             Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_UserDetailsID,Integer)
8624             If (Original_Town Is Nothing) Then
8625                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object)
8626                 Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value
8627             Else
8628                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object)
8629                 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_Town,String)
8630             End If
8631             If (Original_CardNumber.HasValue = true) Then
8632                 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object)
8633                 Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_CardNumber.Value,Integer)
8634             Else
8635                 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object)
8636                 Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value
8637             End If
8638             If (Original_CVC.HasValue = true) Then
8639                 Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object)
8640                 Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_CVC.Value,Integer)
8641             Else
8642                 Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object)
8643                 Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value
8644             End If
8645             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
8646             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
8647                         <> Global.System.Data.ConnectionState.Open) Then
8648                 Me.Adapter.UpdateCommand.Connection.Open
8649             End If
8650             Try
8651                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
8652                 Return returnValue
8653             Finally
8654                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
8655                     Me.Adapter.UpdateCommand.Connection.Close
8656                 End If
8657             End Try
8658         End Function
8659     End Class
8660
8661     '''<summary>
8662     '''Represents the connection and commands used to retrieve and save data.
8663     '''</summary>
8664     <Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _
8665      Global.System.ComponentModel.ToolboxItem(true),  _
8666      Global.System.ComponentModel.DataObjectAttribute(true),  _
8667      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
8668         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _
8669      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
8670     Partial Public Class UsersTableAdapter
8671         Inherits Global.System.ComponentModel.Component
8672
8673         Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter
8674
8675         Private _connection As Global.System.Data.OleDb.OleDbConnection
8676
8677         Private _transaction As Global.System.Data.OleDb.OleDbTransaction
8678
8679         Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
8680
8681         Private _clearBeforeFill As Boolean
8682
8683         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8684          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8685         Public Sub New()
8686             MyBase.New
8687             Me.ClearBeforeFill = true
8688         End Sub
8689
8690         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8691          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8692         Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
8693             Get
8694                 If (Me._adapter Is Nothing) Then
8695                     Me.InitAdapter
8696                 End If
8697                 Return Me._adapter
8698             End Get
8699         End Property
8700
8701         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8702          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8703         Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
8704             Get
8705                 If (Me._connection Is Nothing) Then
8706                     Me.InitConnection
8707                 End If
8708                 Return Me._connection
8709             End Get
8710             Set
8711                 Me._connection = value
8712                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
8713                     Me.Adapter.InsertCommand.Connection = value
8714                 End If
8715                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
8716                     Me.Adapter.DeleteCommand.Connection = value
8717                 End If
8718                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
8719                     Me.Adapter.UpdateCommand.Connection = value
8720                 End If
8721                 Dim i As Integer = 0
8722                 Do While (i < Me.CommandCollection.Length)
8723                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
8724                         CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value
8725                     End If
8726                     i = (i + 1)
8727                 Loop
8728             End Set
8729         End Property
8730
8731         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8732          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8733         Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
8734             Get
8735                 Return Me._transaction
8736             End Get
8737             Set
8738                 Me._transaction = value
8739                 Dim i As Integer = 0
8740                 Do While (i < Me.CommandCollection.Length)
8741                     Me.CommandCollection(i).Transaction = Me._transaction
8742                     i = (i + 1)
8743                 Loop
8744                 If ((Not (Me.Adapter) Is Nothing)  _
8745                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
8746                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
8747                 End If
8748                 If ((Not (Me.Adapter) Is Nothing)  _
8749                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
8750                     Me.Adapter.InsertCommand.Transaction = Me._transaction
8751                 End If
8752                 If ((Not (Me.Adapter) Is Nothing)  _
8753                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
8754                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
8755                 End If
8756             End Set
8757         End Property
8758
8759         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8760          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8761         Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
8762             Get
8763                 If (Me._commandCollection Is Nothing) Then
8764                     Me.InitCommandCollection
8765                 End If
8766                 Return Me._commandCollection
8767             End Get
8768         End Property
8769
8770         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8771          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8772         Public Property ClearBeforeFill() As Boolean
8773             Get
8774                 Return Me._clearBeforeFill
8775             End Get
8776             Set
8777                 Me._clearBeforeFill = value
8778             End Set
8779         End Property
8780
8781         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8782          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8783         Private Sub InitAdapter()
8784             Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
8785             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
8786             tableMapping.SourceTable = "Table"
8787             tableMapping.DataSetTable = "Users"
8788             tableMapping.ColumnMappings.Add("UserID", "UserID")
8789             tableMapping.ColumnMappings.Add("User_DetailsID", "User_DetailsID")
8790             tableMapping.ColumnMappings.Add("Username", "Username")
8791             tableMapping.ColumnMappings.Add("Password", "Password")
8792             Me._adapter.TableMappings.Add(tableMapping)
8793             Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand()
8794             Me._adapter.DeleteCommand.Connection = Me.Connection
8795             Me._adapter.DeleteCommand.CommandText = "DELETE FROM `Users` WHERE ((`UserID` = ?) AND ((? = 1 AND `User_DetailsID` IS NUL"& _
8796                 "L) OR (`User_DetailsID` = ?)))"
8797             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
8798             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))
8799             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))
8800             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))
8801             Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand()
8802             Me._adapter.InsertCommand.Connection = Me.Connection
8803             Me._adapter.InsertCommand.CommandText = "INSERT INTO `Users` (`User_DetailsID`, `Username`, `Password`) VALUES (?, ?, ?)"
8804             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
8805             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))
8806             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))
8807             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))
8808             Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand()
8809             Me._adapter.UpdateCommand.Connection = Me.Connection
8810             Me._adapter.UpdateCommand.CommandText = "UPDATE `Users` SET `User_DetailsID` = ?, `Username` = ?, `Password` = ? WHERE ((`"& _
8811                 "UserID` = ?) AND ((? = 1 AND `User_DetailsID` IS NULL) OR (`User_DetailsID` = ?)"& _
8812                 "))"
8813             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
8814             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))
8815             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))
8816             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))
8817             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))
8818             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))
8819             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))
8820         End Sub
8821
8822         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8823          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8824         Private Sub InitConnection()
8825             Me._connection = New Global.System.Data.OleDb.OleDbConnection()
8826             Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString_accdb
8827         End Sub
8828
8829         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8830          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
8831         Private Sub InitCommandCollection()
8832             Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {}
8833             Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
8834             Me._commandCollection(0).Connection = Me.Connection
8835             Me._commandCollection(0).CommandText = "SELECT UserID, User_DetailsID, Username, [Password] FROM Users"
8836             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
8837         End Sub
8838
8839         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8840          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8841          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8842          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _
8843         Public Overloads Overridable Function Fill(ByVal dataTable As NEADataSet.UsersDataTable) As Integer
8844             Me.Adapter.SelectCommand = Me.CommandCollection(0)
8845             If (Me.ClearBeforeFill = true) Then
8846                 dataTable.Clear
8847             End If
8848             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
8849             Return returnValue
8850         End Function
8851
8852         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8853          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8854          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8855          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _
8856         Public Overloads Overridable Function GetData() As NEADataSet.UsersDataTable
8857             Me.Adapter.SelectCommand = Me.CommandCollection(0)
8858             Dim dataTable As NEADataSet.UsersDataTable = New NEADataSet.UsersDataTable()
8859             Me.Adapter.Fill(dataTable)
8860             Return dataTable
8861         End Function
8862
8863         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8864          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8865          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
8866         Public Overloads Overridable Function Update(ByVal dataTable As NEADataSet.UsersDataTable) As Integer
8867             Return Me.Adapter.Update(dataTable)
8868         End Function
8869
8870         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8871          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8872          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
8873         Public Overloads Overridable Function Update(ByVal dataSet As NEADataSet) As Integer
8874             Return Me.Adapter.Update(dataSet, "Users")
8875         End Function
8876
8877         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8878          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8879          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
8880         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
8881             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
8882         End Function
8883
8884         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8885          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8886          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
8887         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
8888             Return Me.Adapter.Update(dataRows)
8889         End Function
8890
8891         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8892          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8893          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8894          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _
8895         Public Overloads Overridable Function Delete(ByVal Original_UserID As Integer, ByVal Original_User_DetailsID As Global.System.Nullable(Of Integer)) As Integer
8896             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_UserID,Integer)
8897             If (Original_User_DetailsID.HasValue = true) Then
8898                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
8899                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_User_DetailsID.Value,Integer)
8900             Else
8901                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
8902                 Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
8903             End If
8904             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
8905             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
8906                         <> Global.System.Data.ConnectionState.Open) Then
8907                 Me.Adapter.DeleteCommand.Connection.Open
8908             End If
8909             Try
8910                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
8911                 Return returnValue
8912             Finally
8913                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
8914                     Me.Adapter.DeleteCommand.Connection.Close
8915                 End If
8916             End Try
8917         End Function
8918
8919         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8920          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8921          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8922          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _
8923         Public Overloads Overridable Function Insert(ByVal User_DetailsID As Global.System.Nullable(Of Integer), ByVal Username As String, ByVal Password As String) As Integer
8924             If (User_DetailsID.HasValue = true) Then
8925                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(User_DetailsID.Value,Integer)
8926             Else
8927                 Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
8928             End If
8929             If (Username Is Nothing) Then
8930                 Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
8931             Else
8932                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(Username,String)
8933             End If
8934             If (Password Is Nothing) Then
8935                 Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
8936             Else
8937                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(Password,String)
8938             End If
8939             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
8940             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
8941                         <> Global.System.Data.ConnectionState.Open) Then
8942                 Me.Adapter.InsertCommand.Connection.Open
8943             End If
8944             Try
8945                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
8946                 Return returnValue
8947             Finally
8948                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
8949                     Me.Adapter.InsertCommand.Connection.Close
8950                 End If
8951             End Try
8952         End Function
8953
8954         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
8955          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
8956          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
8957          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _
8958         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
8959             If (User_DetailsID.HasValue = true) Then
8960                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(User_DetailsID.Value,Integer)
8961             Else
8962                 Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
8963             End If
8964             If (Username Is Nothing) Then
8965                 Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
8966             Else
8967                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Username,String)
8968             End If
8969             If (Password Is Nothing) Then
8970                 Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
8971             Else
8972                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Password,String)
8973             End If
8974             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_UserID,Integer)
8975             If (Original_User_DetailsID.HasValue = true) Then
8976                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(0,Object)
8977                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_User_DetailsID.Value,Integer)
8978             Else
8979                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(1,Object)
8980                 Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
8981             End If
8982             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
8983             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
8984                         <> Global.System.Data.ConnectionState.Open) Then
8985                 Me.Adapter.UpdateCommand.Connection.Open
8986             End If
8987             Try
8988                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
8989                 Return returnValue
8990             Finally
8991                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
8992                     Me.Adapter.UpdateCommand.Connection.Close
8993                 End If
8994             End Try
8995         End Function
8996     End Class
8997
8998     '''<summary>
8999     '''Represents the connection and commands used to retrieve and save data.
9000     '''</summary>
9001     <Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _
9002      Global.System.ComponentModel.ToolboxItem(true),  _
9003      Global.System.ComponentModel.DataObjectAttribute(true),  _
9004      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
9005         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _
9006      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
9007     Partial Public Class WishlistTableAdapter
9008         Inherits Global.System.ComponentModel.Component
9009
9010         Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter
9011
9012         Private _connection As Global.System.Data.OleDb.OleDbConnection
9013
9014         Private _transaction As Global.System.Data.OleDb.OleDbTransaction
9015
9016         Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
9017
9018         Private _clearBeforeFill As Boolean
9019
9020         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9021          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9022         Public Sub New()
9023             MyBase.New
9024             Me.ClearBeforeFill = true
9025         End Sub
9026
9027         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9028          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9029         Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
9030             Get
9031                 If (Me._adapter Is Nothing) Then
9032                     Me.InitAdapter
9033                 End If
9034                 Return Me._adapter
9035             End Get
9036         End Property
9037
9038         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9039          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9040         Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
9041             Get
9042                 If (Me._connection Is Nothing) Then
9043                     Me.InitConnection
9044                 End If
9045                 Return Me._connection
9046             End Get
9047             Set
9048                 Me._connection = value
9049                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
9050                     Me.Adapter.InsertCommand.Connection = value
9051                 End If
9052                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
9053                     Me.Adapter.DeleteCommand.Connection = value
9054                 End If
9055                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
9056                     Me.Adapter.UpdateCommand.Connection = value
9057                 End If
9058                 Dim i As Integer = 0
9059                 Do While (i < Me.CommandCollection.Length)
9060                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
9061                         CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value
9062                     End If
9063                     i = (i + 1)
9064                 Loop
9065             End Set
9066         End Property
9067
9068         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9069          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9070         Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
9071             Get
9072                 Return Me._transaction
9073             End Get
9074             Set
9075                 Me._transaction = value
9076                 Dim i As Integer = 0
9077                 Do While (i < Me.CommandCollection.Length)
9078                     Me.CommandCollection(i).Transaction = Me._transaction
9079                     i = (i + 1)
9080                 Loop
9081                 If ((Not (Me.Adapter) Is Nothing)  _
9082                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
9083                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
9084                 End If
9085                 If ((Not (Me.Adapter) Is Nothing)  _
9086                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
9087                     Me.Adapter.InsertCommand.Transaction = Me._transaction
9088                 End If
9089                 If ((Not (Me.Adapter) Is Nothing)  _
9090                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
9091                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
9092                 End If
9093             End Set
9094         End Property
9095
9096         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9097          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9098         Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
9099             Get
9100                 If (Me._commandCollection Is Nothing) Then
9101                     Me.InitCommandCollection
9102                 End If
9103                 Return Me._commandCollection
9104             End Get
9105         End Property
9106
9107         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9108          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9109         Public Property ClearBeforeFill() As Boolean
9110             Get
9111                 Return Me._clearBeforeFill
9112             End Get
9113             Set
9114                 Me._clearBeforeFill = value
9115             End Set
9116         End Property
9117
9118         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9119          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9120         Private Sub InitAdapter()
9121             Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
9122             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
9123             tableMapping.SourceTable = "Table"
9124             tableMapping.DataSetTable = "Wishlist"
9125             tableMapping.ColumnMappings.Add("WishlistID", "WishlistID")
9126             tableMapping.ColumnMappings.Add("UserID", "UserID")
9127             tableMapping.ColumnMappings.Add("GameID", "GameID")
9128             Me._adapter.TableMappings.Add(tableMapping)
9129             Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand()
9130             Me._adapter.DeleteCommand.Connection = Me.Connection
9131             Me._adapter.DeleteCommand.CommandText = "DELETE FROM `Wishlist` WHERE ((`WishlistID` = ?) AND ((? = 1 AND `UserID` IS NULL"& _
9132                 ") OR (`UserID` = ?)) AND ((? = 1 AND `GameID` IS NULL) OR (`GameID` = ?)))"
9133             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
9134             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))
9135             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))
9136             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))
9137             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))
9138             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))
9139             Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand()
9140             Me._adapter.InsertCommand.Connection = Me.Connection
9141             Me._adapter.InsertCommand.CommandText = "INSERT INTO `Wishlist` (`UserID`, `GameID`) VALUES (?, ?)"
9142             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
9143             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))
9144             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))
9145             Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand()
9146             Me._adapter.UpdateCommand.Connection = Me.Connection
9147             Me._adapter.UpdateCommand.CommandText = "UPDATE `Wishlist` SET `UserID` = ?, `GameID` = ? WHERE ((`WishlistID` = ?) AND (("& _
9148                 "? = 1 AND `UserID` IS NULL) OR (`UserID` = ?)) AND ((? = 1 AND `GameID` IS NULL)"& _
9149                 " OR (`GameID` = ?)))"
9150             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
9151             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))
9152             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))
9153             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))
9154             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))
9155             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))
9156             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))
9157             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))
9158         End Sub
9159
9160         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9161          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9162         Private Sub InitConnection()
9163             Me._connection = New Global.System.Data.OleDb.OleDbConnection()
9164             Me._connection.ConnectionString = Global.NEA.MySettings.Default.NEAConnectionString_accdb
9165         End Sub
9166
9167         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9168          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9169         Private Sub InitCommandCollection()
9170             Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {}
9171             Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
9172             Me._commandCollection(0).Connection = Me.Connection
9173             Me._commandCollection(0).CommandText = "SELECT WishlistID, UserID, GameID FROM Wishlist"
9174             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
9175         End Sub
9176
9177         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9178          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9179          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
9180          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _
9181         Public Overloads Overridable Function Fill(ByVal dataTable As NEADataSet.WishlistDataTable) As Integer
9182             Me.Adapter.SelectCommand = Me.CommandCollection(0)
9183             If (Me.ClearBeforeFill = true) Then
9184                 dataTable.Clear
9185             End If
9186             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
9187             Return returnValue
9188         End Function
9189
9190         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9191          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9192          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
9193          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _
9194         Public Overloads Overridable Function GetData() As NEADataSet.WishlistDataTable
9195             Me.Adapter.SelectCommand = Me.CommandCollection(0)
9196             Dim dataTable As NEADataSet.WishlistDataTable = New NEADataSet.WishlistDataTable()
9197             Me.Adapter.Fill(dataTable)
9198             Return dataTable
9199         End Function
9200
9201         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9202          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9203          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
9204         Public Overloads Overridable Function Update(ByVal dataTable As NEADataSet.WishlistDataTable) As Integer
9205             Return Me.Adapter.Update(dataTable)
9206         End Function
9207
9208         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9209          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9210          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
9211         Public Overloads Overridable Function Update(ByVal dataSet As NEADataSet) As Integer
9212             Return Me.Adapter.Update(dataSet, "Wishlist")
9213         End Function
9214
9215         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9216          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9217          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
9218         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
9219             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
9220         End Function
9221
9222         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9223          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9224          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
9225         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
9226             Return Me.Adapter.Update(dataRows)
9227         End Function
9228
9229         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9230          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9231          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
9232          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _
9233         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
9234             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_WishlistID,Integer)
9235             If (Original_UserID.HasValue = true) Then
9236                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
9237                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_UserID.Value,Integer)
9238             Else
9239                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
9240                 Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
9241             End If
9242             If (Original_GameID.HasValue = true) Then
9243                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
9244                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_GameID.Value,Integer)
9245             Else
9246                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
9247                 Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
9248             End If
9249             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
9250             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
9251                         <> Global.System.Data.ConnectionState.Open) Then
9252                 Me.Adapter.DeleteCommand.Connection.Open
9253             End If
9254             Try
9255                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
9256                 Return returnValue
9257             Finally
9258                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
9259                     Me.Adapter.DeleteCommand.Connection.Close
9260                 End If
9261             End Try
9262         End Function
9263
9264         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9265          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9266          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
9267          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _
9268         Public Overloads Overridable Function Insert(ByVal UserID As Global.System.Nullable(Of Integer), ByVal GameID As Global.System.Nullable(Of Integer)) As Integer
9269             If (UserID.HasValue = true) Then
9270                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(UserID.Value,Integer)
9271             Else
9272                 Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
9273             End If
9274             If (GameID.HasValue = true) Then
9275                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(GameID.Value,Integer)
9276             Else
9277                 Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
9278             End If
9279             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
9280             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
9281                         <> Global.System.Data.ConnectionState.Open) Then
9282                 Me.Adapter.InsertCommand.Connection.Open
9283             End If
9284             Try
9285                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
9286                 Return returnValue
9287             Finally
9288                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
9289                     Me.Adapter.InsertCommand.Connection.Close
9290                 End If
9291             End Try
9292         End Function
9293
9294         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9295          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9296          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
9297          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _
9298         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
9299             If (UserID.HasValue = true) Then
9300                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(UserID.Value,Integer)
9301             Else
9302                 Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
9303             End If
9304             If (GameID.HasValue = true) Then
9305                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(GameID.Value,Integer)
9306             Else
9307                 Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
9308             End If
9309             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_WishlistID,Integer)
9310             If (Original_UserID.HasValue = true) Then
9311                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(0,Object)
9312                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_UserID.Value,Integer)
9313             Else
9314                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(1,Object)
9315                 Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
9316             End If
9317             If (Original_GameID.HasValue = true) Then
9318                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(0,Object)
9319                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GameID.Value,Integer)
9320             Else
9321                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(1,Object)
9322                 Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
9323             End If
9324             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
9325             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
9326                         <> Global.System.Data.ConnectionState.Open) Then
9327                 Me.Adapter.UpdateCommand.Connection.Open
9328             End If
9329             Try
9330                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
9331                 Return returnValue
9332             Finally
9333                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
9334                     Me.Adapter.UpdateCommand.Connection.Close
9335                 End If
9336             End Try
9337         End Function
9338     End Class
9339
9340     '''<summary>
9341     '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios
9342     '''</summary>
9343     <Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _
9344      Global.System.ComponentModel.ToolboxItem(true),  _
9345      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerDesigner, Microsoft.VSD"& _
9346         "esigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _
9347      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapterManager")>  _
9348     Partial Public Class TableAdapterManager
9349         Inherits Global.System.ComponentModel.Component
9350
9351         Private _updateOrder As UpdateOrderOption
9352
9353         Private _achievementTableAdapter As AchievementTableAdapter
9354
9355         Private _dOWTableAdapter As DOWTableAdapter
9356
9357         Private _friendsTableAdapter As FriendsTableAdapter
9358
9359         Private _gamesTableAdapter As GamesTableAdapter
9360
9361         Private _purchasedTableAdapter As PurchasedTableAdapter
9362
9363         Private _reviewsTableAdapter As ReviewsTableAdapter
9364
9365         Private _tagsTableAdapter As TagsTableAdapter
9366
9367         Private _user_DetailsTableAdapter As User_DetailsTableAdapter
9368
9369         Private _usersTableAdapter As UsersTableAdapter
9370
9371         Private _wishlistTableAdapter As WishlistTableAdapter
9372
9373         Private _backupDataSetBeforeUpdate As Boolean
9374
9375         Private _connection As Global.System.Data.IDbConnection
9376
9377         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9378          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9379         Public Property UpdateOrder() As UpdateOrderOption
9380             Get
9381                 Return Me._updateOrder
9382             End Get
9383             Set
9384                 Me._updateOrder = value
9385             End Set
9386         End Property
9387
9388         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9389          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9390          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
9391             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
9392             "a", "System.Drawing.Design.UITypeEditor")>  _
9393         Public Property AchievementTableAdapter() As AchievementTableAdapter
9394             Get
9395                 Return Me._achievementTableAdapter
9396             End Get
9397             Set
9398                 Me._achievementTableAdapter = value
9399             End Set
9400         End Property
9401
9402         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9403          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9404          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
9405             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
9406             "a", "System.Drawing.Design.UITypeEditor")>  _
9407         Public Property DOWTableAdapter() As DOWTableAdapter
9408             Get
9409                 Return Me._dOWTableAdapter
9410             End Get
9411             Set
9412                 Me._dOWTableAdapter = value
9413             End Set
9414         End Property
9415
9416         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9417          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9418          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
9419             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
9420             "a", "System.Drawing.Design.UITypeEditor")>  _
9421         Public Property FriendsTableAdapter() As FriendsTableAdapter
9422             Get
9423                 Return Me._friendsTableAdapter
9424             End Get
9425             Set
9426                 Me._friendsTableAdapter = value
9427             End Set
9428         End Property
9429
9430         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9431          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9432          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
9433             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
9434             "a", "System.Drawing.Design.UITypeEditor")>  _
9435         Public Property GamesTableAdapter() As GamesTableAdapter
9436             Get
9437                 Return Me._gamesTableAdapter
9438             End Get
9439             Set
9440                 Me._gamesTableAdapter = value
9441             End Set
9442         End Property
9443
9444         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9445          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9446          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
9447             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
9448             "a", "System.Drawing.Design.UITypeEditor")>  _
9449         Public Property PurchasedTableAdapter() As PurchasedTableAdapter
9450             Get
9451                 Return Me._purchasedTableAdapter
9452             End Get
9453             Set
9454                 Me._purchasedTableAdapter = value
9455             End Set
9456         End Property
9457
9458         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9459          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9460          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
9461             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
9462             "a", "System.Drawing.Design.UITypeEditor")>  _
9463         Public Property ReviewsTableAdapter() As ReviewsTableAdapter
9464             Get
9465                 Return Me._reviewsTableAdapter
9466             End Get
9467             Set
9468                 Me._reviewsTableAdapter = value
9469             End Set
9470         End Property
9471
9472         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9473          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9474          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
9475             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
9476             "a", "System.Drawing.Design.UITypeEditor")>  _
9477         Public Property TagsTableAdapter() As TagsTableAdapter
9478             Get
9479                 Return Me._tagsTableAdapter
9480             End Get
9481             Set
9482                 Me._tagsTableAdapter = value
9483             End Set
9484         End Property
9485
9486         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9487          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9488          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
9489             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
9490             "a", "System.Drawing.Design.UITypeEditor")>  _
9491         Public Property User_DetailsTableAdapter() As User_DetailsTableAdapter
9492             Get
9493                 Return Me._user_DetailsTableAdapter
9494             End Get
9495             Set
9496                 Me._user_DetailsTableAdapter = value
9497             End Set
9498         End Property
9499
9500         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9501          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9502          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
9503             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
9504             "a", "System.Drawing.Design.UITypeEditor")>  _
9505         Public Property UsersTableAdapter() As UsersTableAdapter
9506             Get
9507                 Return Me._usersTableAdapter
9508             End Get
9509             Set
9510                 Me._usersTableAdapter = value
9511             End Set
9512         End Property
9513
9514         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9515          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9516          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
9517             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
9518             "a", "System.Drawing.Design.UITypeEditor")>  _
9519         Public Property WishlistTableAdapter() As WishlistTableAdapter
9520             Get
9521                 Return Me._wishlistTableAdapter
9522             End Get
9523             Set
9524                 Me._wishlistTableAdapter = value
9525             End Set
9526         End Property
9527
9528         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9529          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9530         Public Property BackupDataSetBeforeUpdate() As Boolean
9531             Get
9532                 Return Me._backupDataSetBeforeUpdate
9533             End Get
9534             Set
9535                 Me._backupDataSetBeforeUpdate = value
9536             End Set
9537         End Property
9538
9539         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9540          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9541          Global.System.ComponentModel.Browsable(false)>  _
9542         Public Property Connection() As Global.System.Data.IDbConnection
9543             Get
9544                 If (Not (Me._connection) Is Nothing) Then
9545                     Return Me._connection
9546                 End If
9547                 If ((Not (Me._achievementTableAdapter) Is Nothing)  _
9548                             AndAlso (Not (Me._achievementTableAdapter.Connection) Is Nothing)) Then
9549                     Return Me._achievementTableAdapter.Connection
9550                 End If
9551                 If ((Not (Me._dOWTableAdapter) Is Nothing)  _
9552                             AndAlso (Not (Me._dOWTableAdapter.Connection) Is Nothing)) Then
9553                     Return Me._dOWTableAdapter.Connection
9554                 End If
9555                 If ((Not (Me._friendsTableAdapter) Is Nothing)  _
9556                             AndAlso (Not (Me._friendsTableAdapter.Connection) Is Nothing)) Then
9557                     Return Me._friendsTableAdapter.Connection
9558                 End If
9559                 If ((Not (Me._gamesTableAdapter) Is Nothing)  _
9560                             AndAlso (Not (Me._gamesTableAdapter.Connection) Is Nothing)) Then
9561                     Return Me._gamesTableAdapter.Connection
9562                 End If
9563                 If ((Not (Me._purchasedTableAdapter) Is Nothing)  _
9564                             AndAlso (Not (Me._purchasedTableAdapter.Connection) Is Nothing)) Then
9565                     Return Me._purchasedTableAdapter.Connection
9566                 End If
9567                 If ((Not (Me._reviewsTableAdapter) Is Nothing)  _
9568                             AndAlso (Not (Me._reviewsTableAdapter.Connection) Is Nothing)) Then
9569                     Return Me._reviewsTableAdapter.Connection
9570                 End If
9571                 If ((Not (Me._tagsTableAdapter) Is Nothing)  _
9572                             AndAlso (Not (Me._tagsTableAdapter.Connection) Is Nothing)) Then
9573                     Return Me._tagsTableAdapter.Connection
9574                 End If
9575                 If ((Not (Me._user_DetailsTableAdapter) Is Nothing)  _
9576                             AndAlso (Not (Me._user_DetailsTableAdapter.Connection) Is Nothing)) Then
9577                     Return Me._user_DetailsTableAdapter.Connection
9578                 End If
9579                 If ((Not (Me._usersTableAdapter) Is Nothing)  _
9580                             AndAlso (Not (Me._usersTableAdapter.Connection) Is Nothing)) Then
9581                     Return Me._usersTableAdapter.Connection
9582                 End If
9583                 If ((Not (Me._wishlistTableAdapter) Is Nothing)  _
9584                             AndAlso (Not (Me._wishlistTableAdapter.Connection) Is Nothing)) Then
9585                     Return Me._wishlistTableAdapter.Connection
9586                 End If
9587                 Return Nothing
9588             End Get
9589             Set
9590                 Me._connection = value
9591             End Set
9592         End Property
9593
9594         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9595          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
9596          Global.System.ComponentModel.Browsable(false)>  _
9597         Public ReadOnly Property TableAdapterInstanceCount() As Integer
9598             Get
9599                 Dim count As Integer = 0
9600                 If (Not (Me._achievementTableAdapter) Is Nothing) Then
9601                     count = (count + 1)
9602                 End If
9603                 If (Not (Me._dOWTableAdapter) Is Nothing) Then
9604                     count = (count + 1)
9605                 End If
9606                 If (Not (Me._friendsTableAdapter) Is Nothing) Then
9607                     count = (count + 1)
9608                 End If
9609                 If (Not (Me._gamesTableAdapter) Is Nothing) Then
9610                     count = (count + 1)
9611                 End If
9612                 If (Not (Me._purchasedTableAdapter) Is Nothing) Then
9613                     count = (count + 1)
9614                 End If
9615                 If (Not (Me._reviewsTableAdapter) Is Nothing) Then
9616                     count = (count + 1)
9617                 End If
9618                 If (Not (Me._tagsTableAdapter) Is Nothing) Then
9619                     count = (count + 1)
9620                 End If
9621                 If (Not (Me._user_DetailsTableAdapter) Is Nothing) Then
9622                     count = (count + 1)
9623                 End If
9624                 If (Not (Me._usersTableAdapter) Is Nothing) Then
9625                     count = (count + 1)
9626                 End If
9627                 If (Not (Me._wishlistTableAdapter) Is Nothing) Then
9628                     count = (count + 1)
9629                 End If
9630                 Return count
9631             End Get
9632         End Property
9633
9634         '''<summary>
9635         '''Update rows in top-down order.
9636         '''</summary>
9637         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9638          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9639         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
9640             Dim result As Integer = 0
9641             If (Not (Me._gamesTableAdapter) Is Nothing) Then
9642                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Games.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
9643                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
9644                 If ((Not (updatedRows) Is Nothing)  _
9645                             AndAlso (0 < updatedRows.Length)) Then
9646                     result = (result + Me._gamesTableAdapter.Update(updatedRows))
9647                     allChangedRows.AddRange(updatedRows)
9648                 End If
9649             End If
9650             If (Not (Me._user_DetailsTableAdapter) Is Nothing) Then
9651                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.User_Details.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
9652                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
9653                 If ((Not (updatedRows) Is Nothing)  _
9654                             AndAlso (0 < updatedRows.Length)) Then
9655                     result = (result + Me._user_DetailsTableAdapter.Update(updatedRows))
9656                     allChangedRows.AddRange(updatedRows)
9657                 End If
9658             End If
9659             If (Not (Me._achievementTableAdapter) Is Nothing) Then
9660                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Achievement.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
9661                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
9662                 If ((Not (updatedRows) Is Nothing)  _
9663                             AndAlso (0 < updatedRows.Length)) Then
9664                     result = (result + Me._achievementTableAdapter.Update(updatedRows))
9665                     allChangedRows.AddRange(updatedRows)
9666                 End If
9667             End If
9668             If (Not (Me._dOWTableAdapter) Is Nothing) Then
9669                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.DOW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
9670                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
9671                 If ((Not (updatedRows) Is Nothing)  _
9672                             AndAlso (0 < updatedRows.Length)) Then
9673                     result = (result + Me._dOWTableAdapter.Update(updatedRows))
9674                     allChangedRows.AddRange(updatedRows)
9675                 End If
9676             End If
9677             If (Not (Me._friendsTableAdapter) Is Nothing) Then
9678                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Friends.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
9679                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
9680                 If ((Not (updatedRows) Is Nothing)  _
9681                             AndAlso (0 < updatedRows.Length)) Then
9682                     result = (result + Me._friendsTableAdapter.Update(updatedRows))
9683                     allChangedRows.AddRange(updatedRows)
9684                 End If
9685             End If
9686             If (Not (Me._purchasedTableAdapter) Is Nothing) Then
9687                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Purchased.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
9688                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
9689                 If ((Not (updatedRows) Is Nothing)  _
9690                             AndAlso (0 < updatedRows.Length)) Then
9691                     result = (result + Me._purchasedTableAdapter.Update(updatedRows))
9692                     allChangedRows.AddRange(updatedRows)
9693                 End If
9694             End If
9695             If (Not (Me._reviewsTableAdapter) Is Nothing) Then
9696                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Reviews.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
9697                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
9698                 If ((Not (updatedRows) Is Nothing)  _
9699                             AndAlso (0 < updatedRows.Length)) Then
9700                     result = (result + Me._reviewsTableAdapter.Update(updatedRows))
9701                     allChangedRows.AddRange(updatedRows)
9702                 End If
9703             End If
9704             If (Not (Me._tagsTableAdapter) Is Nothing) Then
9705                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Tags.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
9706                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
9707                 If ((Not (updatedRows) Is Nothing)  _
9708                             AndAlso (0 < updatedRows.Length)) Then
9709                     result = (result + Me._tagsTableAdapter.Update(updatedRows))
9710                     allChangedRows.AddRange(updatedRows)
9711                 End If
9712             End If
9713             If (Not (Me._usersTableAdapter) Is Nothing) Then
9714                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Users.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
9715                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
9716                 If ((Not (updatedRows) Is Nothing)  _
9717                             AndAlso (0 < updatedRows.Length)) Then
9718                     result = (result + Me._usersTableAdapter.Update(updatedRows))
9719                     allChangedRows.AddRange(updatedRows)
9720                 End If
9721             End If
9722             If (Not (Me._wishlistTableAdapter) Is Nothing) Then
9723                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Wishlist.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
9724                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
9725                 If ((Not (updatedRows) Is Nothing)  _
9726                             AndAlso (0 < updatedRows.Length)) Then
9727                     result = (result + Me._wishlistTableAdapter.Update(updatedRows))
9728                     allChangedRows.AddRange(updatedRows)
9729                 End If
9730             End If
9731             Return result
9732         End Function
9733
9734         '''<summary>
9735         '''Insert rows in top-down order.
9736         '''</summary>
9737         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9738          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9739         Private Function UpdateInsertedRows(ByVal dataSet As NEADataSet, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
9740             Dim result As Integer = 0
9741             If (Not (Me._gamesTableAdapter) Is Nothing) Then
9742                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Games.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
9743                 If ((Not (addedRows) Is Nothing)  _
9744                             AndAlso (0 < addedRows.Length)) Then
9745                     result = (result + Me._gamesTableAdapter.Update(addedRows))
9746                     allAddedRows.AddRange(addedRows)
9747                 End If
9748             End If
9749             If (Not (Me._user_DetailsTableAdapter) Is Nothing) Then
9750                 Dim addedRows() As Global.System.Data.DataRow = dataSet.User_Details.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
9751                 If ((Not (addedRows) Is Nothing)  _
9752                             AndAlso (0 < addedRows.Length)) Then
9753                     result = (result + Me._user_DetailsTableAdapter.Update(addedRows))
9754                     allAddedRows.AddRange(addedRows)
9755                 End If
9756             End If
9757             If (Not (Me._achievementTableAdapter) Is Nothing) Then
9758                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Achievement.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
9759                 If ((Not (addedRows) Is Nothing)  _
9760                             AndAlso (0 < addedRows.Length)) Then
9761                     result = (result + Me._achievementTableAdapter.Update(addedRows))
9762                     allAddedRows.AddRange(addedRows)
9763                 End If
9764             End If
9765             If (Not (Me._dOWTableAdapter) Is Nothing) Then
9766                 Dim addedRows() As Global.System.Data.DataRow = dataSet.DOW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
9767                 If ((Not (addedRows) Is Nothing)  _
9768                             AndAlso (0 < addedRows.Length)) Then
9769                     result = (result + Me._dOWTableAdapter.Update(addedRows))
9770                     allAddedRows.AddRange(addedRows)
9771                 End If
9772             End If
9773             If (Not (Me._friendsTableAdapter) Is Nothing) Then
9774                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Friends.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
9775                 If ((Not (addedRows) Is Nothing)  _
9776                             AndAlso (0 < addedRows.Length)) Then
9777                     result = (result + Me._friendsTableAdapter.Update(addedRows))
9778                     allAddedRows.AddRange(addedRows)
9779                 End If
9780             End If
9781             If (Not (Me._purchasedTableAdapter) Is Nothing) Then
9782                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Purchased.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
9783                 If ((Not (addedRows) Is Nothing)  _
9784                             AndAlso (0 < addedRows.Length)) Then
9785                     result = (result + Me._purchasedTableAdapter.Update(addedRows))
9786                     allAddedRows.AddRange(addedRows)
9787                 End If
9788             End If
9789             If (Not (Me._reviewsTableAdapter) Is Nothing) Then
9790                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Reviews.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
9791                 If ((Not (addedRows) Is Nothing)  _
9792                             AndAlso (0 < addedRows.Length)) Then
9793                     result = (result + Me._reviewsTableAdapter.Update(addedRows))
9794                     allAddedRows.AddRange(addedRows)
9795                 End If
9796             End If
9797             If (Not (Me._tagsTableAdapter) Is Nothing) Then
9798                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Tags.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
9799                 If ((Not (addedRows) Is Nothing)  _
9800                             AndAlso (0 < addedRows.Length)) Then
9801                     result = (result + Me._tagsTableAdapter.Update(addedRows))
9802                     allAddedRows.AddRange(addedRows)
9803                 End If
9804             End If
9805             If (Not (Me._usersTableAdapter) Is Nothing) Then
9806                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Users.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
9807                 If ((Not (addedRows) Is Nothing)  _
9808                             AndAlso (0 < addedRows.Length)) Then
9809                     result = (result + Me._usersTableAdapter.Update(addedRows))
9810                     allAddedRows.AddRange(addedRows)
9811                 End If
9812             End If
9813             If (Not (Me._wishlistTableAdapter) Is Nothing) Then
9814                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Wishlist.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
9815                 If ((Not (addedRows) Is Nothing)  _
9816                             AndAlso (0 < addedRows.Length)) Then
9817                     result = (result + Me._wishlistTableAdapter.Update(addedRows))
9818                     allAddedRows.AddRange(addedRows)
9819                 End If
9820             End If
9821             Return result
9822         End Function
9823
9824         '''<summary>
9825         '''Delete rows in bottom-up order.
9826         '''</summary>
9827         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9828          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9829         Private Function UpdateDeletedRows(ByVal dataSet As NEADataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
9830             Dim result As Integer = 0
9831             If (Not (Me._wishlistTableAdapter) Is Nothing) Then
9832                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Wishlist.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
9833                 If ((Not (deletedRows) Is Nothing)  _
9834                             AndAlso (0 < deletedRows.Length)) Then
9835                     result = (result + Me._wishlistTableAdapter.Update(deletedRows))
9836                     allChangedRows.AddRange(deletedRows)
9837                 End If
9838             End If
9839             If (Not (Me._usersTableAdapter) Is Nothing) Then
9840                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Users.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
9841                 If ((Not (deletedRows) Is Nothing)  _
9842                             AndAlso (0 < deletedRows.Length)) Then
9843                     result = (result + Me._usersTableAdapter.Update(deletedRows))
9844                     allChangedRows.AddRange(deletedRows)
9845                 End If
9846             End If
9847             If (Not (Me._tagsTableAdapter) Is Nothing) Then
9848                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Tags.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
9849                 If ((Not (deletedRows) Is Nothing)  _
9850                             AndAlso (0 < deletedRows.Length)) Then
9851                     result = (result + Me._tagsTableAdapter.Update(deletedRows))
9852                     allChangedRows.AddRange(deletedRows)
9853                 End If
9854             End If
9855             If (Not (Me._reviewsTableAdapter) Is Nothing) Then
9856                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Reviews.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
9857                 If ((Not (deletedRows) Is Nothing)  _
9858                             AndAlso (0 < deletedRows.Length)) Then
9859                     result = (result + Me._reviewsTableAdapter.Update(deletedRows))
9860                     allChangedRows.AddRange(deletedRows)
9861                 End If
9862             End If
9863             If (Not (Me._purchasedTableAdapter) Is Nothing) Then
9864                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Purchased.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
9865                 If ((Not (deletedRows) Is Nothing)  _
9866                             AndAlso (0 < deletedRows.Length)) Then
9867                     result = (result + Me._purchasedTableAdapter.Update(deletedRows))
9868                     allChangedRows.AddRange(deletedRows)
9869                 End If
9870             End If
9871             If (Not (Me._friendsTableAdapter) Is Nothing) Then
9872                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Friends.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
9873                 If ((Not (deletedRows) Is Nothing)  _
9874                             AndAlso (0 < deletedRows.Length)) Then
9875                     result = (result + Me._friendsTableAdapter.Update(deletedRows))
9876                     allChangedRows.AddRange(deletedRows)
9877                 End If
9878             End If
9879             If (Not (Me._dOWTableAdapter) Is Nothing) Then
9880                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.DOW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
9881                 If ((Not (deletedRows) Is Nothing)  _
9882                             AndAlso (0 < deletedRows.Length)) Then
9883                     result = (result + Me._dOWTableAdapter.Update(deletedRows))
9884                     allChangedRows.AddRange(deletedRows)
9885                 End If
9886             End If
9887             If (Not (Me._achievementTableAdapter) Is Nothing) Then
9888                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Achievement.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
9889                 If ((Not (deletedRows) Is Nothing)  _
9890                             AndAlso (0 < deletedRows.Length)) Then
9891                     result = (result + Me._achievementTableAdapter.Update(deletedRows))
9892                     allChangedRows.AddRange(deletedRows)
9893                 End If
9894             End If
9895             If (Not (Me._user_DetailsTableAdapter) Is Nothing) Then
9896                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.User_Details.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
9897                 If ((Not (deletedRows) Is Nothing)  _
9898                             AndAlso (0 < deletedRows.Length)) Then
9899                     result = (result + Me._user_DetailsTableAdapter.Update(deletedRows))
9900                     allChangedRows.AddRange(deletedRows)
9901                 End If
9902             End If
9903             If (Not (Me._gamesTableAdapter) Is Nothing) Then
9904                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Games.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
9905                 If ((Not (deletedRows) Is Nothing)  _
9906                             AndAlso (0 < deletedRows.Length)) Then
9907                     result = (result + Me._gamesTableAdapter.Update(deletedRows))
9908                     allChangedRows.AddRange(deletedRows)
9909                 End If
9910             End If
9911             Return result
9912         End Function
9913
9914         '''<summary>
9915         '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first
9916         '''</summary>
9917         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9918          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9919         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()
9920             If ((updatedRows Is Nothing)  _
9921                         OrElse (updatedRows.Length < 1)) Then
9922                 Return updatedRows
9923             End If
9924             If ((allAddedRows Is Nothing)  _
9925                         OrElse (allAddedRows.Count < 1)) Then
9926                 Return updatedRows
9927             End If
9928             Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
9929             Dim i As Integer = 0
9930             Do While (i < updatedRows.Length)
9931                 Dim row As Global.System.Data.DataRow = updatedRows(i)
9932                 If (allAddedRows.Contains(row) = false) Then
9933                     realUpdatedRows.Add(row)
9934                 End If
9935                 i = (i + 1)
9936             Loop
9937             Return realUpdatedRows.ToArray
9938         End Function
9939
9940         '''<summary>
9941         '''Update all changes to the dataset.
9942         '''</summary>
9943         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
9944          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
9945         Public Overridable Function UpdateAll(ByVal dataSet As NEADataSet) As Integer
9946             If (dataSet Is Nothing) Then
9947                 Throw New Global.System.ArgumentNullException("dataSet")
9948             End If
9949             If (dataSet.HasChanges = false) Then
9950                 Return 0
9951             End If
9952             If ((Not (Me._achievementTableAdapter) Is Nothing)  _
9953                         AndAlso (Me.MatchTableAdapterConnection(Me._achievementTableAdapter.Connection) = false)) Then
9954                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
9955                         "tring.")
9956             End If
9957             If ((Not (Me._dOWTableAdapter) Is Nothing)  _
9958                         AndAlso (Me.MatchTableAdapterConnection(Me._dOWTableAdapter.Connection) = false)) Then
9959                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
9960                         "tring.")
9961             End If
9962             If ((Not (Me._friendsTableAdapter) Is Nothing)  _
9963                         AndAlso (Me.MatchTableAdapterConnection(Me._friendsTableAdapter.Connection) = false)) Then
9964                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
9965                         "tring.")
9966             End If
9967             If ((Not (Me._gamesTableAdapter) Is Nothing)  _
9968                         AndAlso (Me.MatchTableAdapterConnection(Me._gamesTableAdapter.Connection) = false)) Then
9969                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
9970                         "tring.")
9971             End If
9972             If ((Not (Me._purchasedTableAdapter) Is Nothing)  _
9973                         AndAlso (Me.MatchTableAdapterConnection(Me._purchasedTableAdapter.Connection) = false)) Then
9974                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
9975                         "tring.")
9976             End If
9977             If ((Not (Me._reviewsTableAdapter) Is Nothing)  _
9978                         AndAlso (Me.MatchTableAdapterConnection(Me._reviewsTableAdapter.Connection) = false)) Then
9979                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
9980                         "tring.")
9981             End If
9982             If ((Not (Me._tagsTableAdapter) Is Nothing)  _
9983                         AndAlso (Me.MatchTableAdapterConnection(Me._tagsTableAdapter.Connection) = false)) Then
9984                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
9985                         "tring.")
9986             End If
9987             If ((Not (Me._user_DetailsTableAdapter) Is Nothing)  _
9988                         AndAlso (Me.MatchTableAdapterConnection(Me._user_DetailsTableAdapter.Connection) = false)) Then
9989                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
9990                         "tring.")
9991             End If
9992             If ((Not (Me._usersTableAdapter) Is Nothing)  _
9993                         AndAlso (Me.MatchTableAdapterConnection(Me._usersTableAdapter.Connection) = false)) Then
9994                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
9995                         "tring.")
9996             End If
9997             If ((Not (Me._wishlistTableAdapter) Is Nothing)  _
9998                         AndAlso (Me.MatchTableAdapterConnection(Me._wishlistTableAdapter.Connection) = false)) Then
9999                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
10000                         "tring.")
10001             End If
10002             Dim workConnection As Global.System.Data.IDbConnection = Me.Connection
10003             If (workConnection Is Nothing) Then
10004                 Throw New Global.System.ApplicationException("TableAdapterManager contains no connection information. Set each TableAdapterMana"& _
10005                         "ger TableAdapter property to a valid TableAdapter instance.")
10006             End If
10007             Dim workConnOpened As Boolean = false
10008             If ((workConnection.State And Global.System.Data.ConnectionState.Broken)  _
10009                         = Global.System.Data.ConnectionState.Broken) Then
10010                 workConnection.Close
10011             End If
10012             If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then
10013                 workConnection.Open
10014                 workConnOpened = true
10015             End If
10016             Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction
10017             If (workTransaction Is Nothing) Then
10018                 Throw New Global.System.ApplicationException("The transaction cannot begin. The current data connection does not support transa"& _
10019                         "ctions or the current state is not allowing the transaction to begin.")
10020             End If
10021             Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
10022             Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
10023             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)()
10024             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)()
10025             Dim result As Integer = 0
10026             Dim backupDataSet As Global.System.Data.DataSet = Nothing
10027             If Me.BackupDataSetBeforeUpdate Then
10028                 backupDataSet = New Global.System.Data.DataSet()
10029                 backupDataSet.Merge(dataSet)
10030             End If
10031             Try
10032                 '---- Prepare for update -----------
10033                 '
10034                 If (Not (Me._achievementTableAdapter) Is Nothing) Then
10035                     revertConnections.Add(Me._achievementTableAdapter, Me._achievementTableAdapter.Connection)
10036                     Me._achievementTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection)
10037                     Me._achievementTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction)
10038                     If Me._achievementTableAdapter.Adapter.AcceptChangesDuringUpdate Then
10039                         Me._achievementTableAdapter.Adapter.AcceptChangesDuringUpdate = false
10040                         adaptersWithAcceptChangesDuringUpdate.Add(Me._achievementTableAdapter.Adapter)
10041                     End If
10042                 End If
10043                 If (Not (Me._dOWTableAdapter) Is Nothing) Then
10044                     revertConnections.Add(Me._dOWTableAdapter, Me._dOWTableAdapter.Connection)
10045                     Me._dOWTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection)
10046                     Me._dOWTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction)
10047                     If Me._dOWTableAdapter.Adapter.AcceptChangesDuringUpdate Then
10048                         Me._dOWTableAdapter.Adapter.AcceptChangesDuringUpdate = false
10049                         adaptersWithAcceptChangesDuringUpdate.Add(Me._dOWTableAdapter.Adapter)
10050                     End If
10051                 End If
10052                 If (Not (Me._friendsTableAdapter) Is Nothing) Then
10053                     revertConnections.Add(Me._friendsTableAdapter, Me._friendsTableAdapter.Connection)
10054                     Me._friendsTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection)
10055                     Me._friendsTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction)
10056                     If Me._friendsTableAdapter.Adapter.AcceptChangesDuringUpdate Then
10057                         Me._friendsTableAdapter.Adapter.AcceptChangesDuringUpdate = false
10058                         adaptersWithAcceptChangesDuringUpdate.Add(Me._friendsTableAdapter.Adapter)
10059                     End If
10060                 End If
10061                 If (Not (Me._gamesTableAdapter) Is Nothing) Then
10062                     revertConnections.Add(Me._gamesTableAdapter, Me._gamesTableAdapter.Connection)
10063                     Me._gamesTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection)
10064                     Me._gamesTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction)
10065                     If Me._gamesTableAdapter.Adapter.AcceptChangesDuringUpdate Then
10066                         Me._gamesTableAdapter.Adapter.AcceptChangesDuringUpdate = false
10067                         adaptersWithAcceptChangesDuringUpdate.Add(Me._gamesTableAdapter.Adapter)
10068                     End If
10069                 End If
10070                 If (Not (Me._purchasedTableAdapter) Is Nothing) Then
10071                     revertConnections.Add(Me._purchasedTableAdapter, Me._purchasedTableAdapter.Connection)
10072                     Me._purchasedTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection)
10073                     Me._purchasedTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction)
10074                     If Me._purchasedTableAdapter.Adapter.AcceptChangesDuringUpdate Then
10075                         Me._purchasedTableAdapter.Adapter.AcceptChangesDuringUpdate = false
10076                         adaptersWithAcceptChangesDuringUpdate.Add(Me._purchasedTableAdapter.Adapter)
10077                     End If
10078                 End If
10079                 If (Not (Me._reviewsTableAdapter) Is Nothing) Then
10080                     revertConnections.Add(Me._reviewsTableAdapter, Me._reviewsTableAdapter.Connection)
10081                     Me._reviewsTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection)
10082                     Me._reviewsTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction)
10083                     If Me._reviewsTableAdapter.Adapter.AcceptChangesDuringUpdate Then
10084                         Me._reviewsTableAdapter.Adapter.AcceptChangesDuringUpdate = false
10085                         adaptersWithAcceptChangesDuringUpdate.Add(Me._reviewsTableAdapter.Adapter)
10086                     End If
10087                 End If
10088                 If (Not (Me._tagsTableAdapter) Is Nothing) Then
10089                     revertConnections.Add(Me._tagsTableAdapter, Me._tagsTableAdapter.Connection)
10090                     Me._tagsTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection)
10091                     Me._tagsTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction)
10092                     If Me._tagsTableAdapter.Adapter.AcceptChangesDuringUpdate Then
10093                         Me._tagsTableAdapter.Adapter.AcceptChangesDuringUpdate = false
10094                         adaptersWithAcceptChangesDuringUpdate.Add(Me._tagsTableAdapter.Adapter)
10095                     End If
10096                 End If
10097                 If (Not (Me._user_DetailsTableAdapter) Is Nothing) Then
10098                     revertConnections.Add(Me._user_DetailsTableAdapter, Me._user_DetailsTableAdapter.Connection)
10099                     Me._user_DetailsTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection)
10100                     Me._user_DetailsTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction)
10101                     If Me._user_DetailsTableAdapter.Adapter.AcceptChangesDuringUpdate Then
10102                         Me._user_DetailsTableAdapter.Adapter.AcceptChangesDuringUpdate = false
10103                         adaptersWithAcceptChangesDuringUpdate.Add(Me._user_DetailsTableAdapter.Adapter)
10104                     End If
10105                 End If
10106                 If (Not (Me._usersTableAdapter) Is Nothing) Then
10107                     revertConnections.Add(Me._usersTableAdapter, Me._usersTableAdapter.Connection)
10108                     Me._usersTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection)
10109                     Me._usersTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction)
10110                     If Me._usersTableAdapter.Adapter.AcceptChangesDuringUpdate Then
10111                         Me._usersTableAdapter.Adapter.AcceptChangesDuringUpdate = false
10112                         adaptersWithAcceptChangesDuringUpdate.Add(Me._usersTableAdapter.Adapter)
10113                     End If
10114                 End If
10115                 If (Not (Me._wishlistTableAdapter) Is Nothing) Then
10116                     revertConnections.Add(Me._wishlistTableAdapter, Me._wishlistTableAdapter.Connection)
10117                     Me._wishlistTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection)
10118                     Me._wishlistTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction)
10119                     If Me._wishlistTableAdapter.Adapter.AcceptChangesDuringUpdate Then
10120                         Me._wishlistTableAdapter.Adapter.AcceptChangesDuringUpdate = false
10121                         adaptersWithAcceptChangesDuringUpdate.Add(Me._wishlistTableAdapter.Adapter)
10122                     End If
10123                 End If
10124                 '
10125                 '---- Perform updates -----------
10126                 '
10127                 If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then
10128                     result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows))
10129                     result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows))
10130                 Else
10131                     result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows))
10132                     result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows))
10133                 End If
10134                 result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows))
10135                 '
10136                 '---- Commit updates -----------
10137                 '
10138                 workTransaction.Commit
10139                 If (0 < allAddedRows.Count) Then
10140                     Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow
10141                     allAddedRows.CopyTo(rows)
10142                     Dim i As Integer = 0
10143                     Do While (i < rows.Length)
10144                         Dim row As Global.System.Data.DataRow = rows(i)
10145                         row.AcceptChanges
10146                         i = (i + 1)
10147                     Loop
10148                 End If
10149                 If (0 < allChangedRows.Count) Then
10150                     Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow
10151                     allChangedRows.CopyTo(rows)
10152                     Dim i As Integer = 0
10153                     Do While (i < rows.Length)
10154                         Dim row As Global.System.Data.DataRow = rows(i)
10155                         row.AcceptChanges
10156                         i = (i + 1)
10157                     Loop
10158                 End If
10159             Catch ex As Global.System.Exception
10160                 workTransaction.Rollback
10161                 '---- Restore the dataset -----------
10162                 If Me.BackupDataSetBeforeUpdate Then
10163                     Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing))
10164                     dataSet.Clear
10165                     dataSet.Merge(backupDataSet)
10166                 Else
10167                     If (0 < allAddedRows.Count) Then
10168                         Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow
10169                         allAddedRows.CopyTo(rows)
10170                         Dim i As Integer = 0
10171                         Do While (i < rows.Length)
10172                             Dim row As Global.System.Data.DataRow = rows(i)
10173                             row.AcceptChanges
10174                             row.SetAdded
10175                             i = (i + 1)
10176                         Loop
10177                     End If
10178                 End If
10179                 Throw ex
10180             Finally
10181                 If workConnOpened Then
10182                     workConnection.Close
10183                 End If
10184                 If (Not (Me._achievementTableAdapter) Is Nothing) Then
10185                     Me._achievementTableAdapter.Connection = CType(revertConnections(Me._achievementTableAdapter),Global.System.Data.OleDb.OleDbConnection)
10186                     Me._achievementTableAdapter.Transaction = Nothing
10187                 End If
10188                 If (Not (Me._dOWTableAdapter) Is Nothing) Then
10189                     Me._dOWTableAdapter.Connection = CType(revertConnections(Me._dOWTableAdapter),Global.System.Data.OleDb.OleDbConnection)
10190                     Me._dOWTableAdapter.Transaction = Nothing
10191                 End If
10192                 If (Not (Me._friendsTableAdapter) Is Nothing) Then
10193                     Me._friendsTableAdapter.Connection = CType(revertConnections(Me._friendsTableAdapter),Global.System.Data.OleDb.OleDbConnection)
10194                     Me._friendsTableAdapter.Transaction = Nothing
10195                 End If
10196                 If (Not (Me._gamesTableAdapter) Is Nothing) Then
10197                     Me._gamesTableAdapter.Connection = CType(revertConnections(Me._gamesTableAdapter),Global.System.Data.OleDb.OleDbConnection)
10198                     Me._gamesTableAdapter.Transaction = Nothing
10199                 End If
10200                 If (Not (Me._purchasedTableAdapter) Is Nothing) Then
10201                     Me._purchasedTableAdapter.Connection = CType(revertConnections(Me._purchasedTableAdapter),Global.System.Data.OleDb.OleDbConnection)
10202                     Me._purchasedTableAdapter.Transaction = Nothing
10203                 End If
10204                 If (Not (Me._reviewsTableAdapter) Is Nothing) Then
10205                     Me._reviewsTableAdapter.Connection = CType(revertConnections(Me._reviewsTableAdapter),Global.System.Data.OleDb.OleDbConnection)
10206                     Me._reviewsTableAdapter.Transaction = Nothing
10207                 End If
10208                 If (Not (Me._tagsTableAdapter) Is Nothing) Then
10209                     Me._tagsTableAdapter.Connection = CType(revertConnections(Me._tagsTableAdapter),Global.System.Data.OleDb.OleDbConnection)
10210                     Me._tagsTableAdapter.Transaction = Nothing
10211                 End If
10212                 If (Not (Me._user_DetailsTableAdapter) Is Nothing) Then
10213                     Me._user_DetailsTableAdapter.Connection = CType(revertConnections(Me._user_DetailsTableAdapter),Global.System.Data.OleDb.OleDbConnection)
10214                     Me._user_DetailsTableAdapter.Transaction = Nothing
10215                 End If
10216                 If (Not (Me._usersTableAdapter) Is Nothing) Then
10217                     Me._usersTableAdapter.Connection = CType(revertConnections(Me._usersTableAdapter),Global.System.Data.OleDb.OleDbConnection)
10218                     Me._usersTableAdapter.Transaction = Nothing
10219                 End If
10220                 If (Not (Me._wishlistTableAdapter) Is Nothing) Then
10221                     Me._wishlistTableAdapter.Connection = CType(revertConnections(Me._wishlistTableAdapter),Global.System.Data.OleDb.OleDbConnection)
10222                     Me._wishlistTableAdapter.Transaction = Nothing
10223                 End If
10224                 If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then
10225                     Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter
10226                     adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters)
10227                     Dim i As Integer = 0
10228                     Do While (i < adapters.Length)
10229                         Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i)
10230                         adapter.AcceptChangesDuringUpdate = true
10231                         i = (i + 1)
10232                     Loop
10233                 End If
10234             End Try
10235             Return result
10236         End Function
10237
10238         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
10239          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
10240         Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)
10241             Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst))
10242         End Sub
10243
10244         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
10245          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
10246         Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean
10247             If (Not (Me._connection) Is Nothing) Then
10248                 Return true
10249             End If
10250             If ((Me.Connection Is Nothing)  _
10251                         OrElse (inputConnection Is Nothing)) Then
10252                 Return true
10253             End If
10254             If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then
10255                 Return true
10256             End If
10257             Return false
10258         End Function
10259
10260         '''<summary>
10261         '''Update Order Option
10262         '''</summary>
10263         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
10264         Public Enum UpdateOrderOption
10265
10266             InsertUpdateDelete = 0
10267
10268             UpdateInsertDelete = 1
10269         End Enum
10270
10271         '''<summary>
10272         '''Used to sort self-referenced table's rows
10273         '''</summary>
10274         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
10275         Private Class SelfReferenceComparer
10276             Inherits Object
10277             Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow)
10278
10279             Private _relation As Global.System.Data.DataRelation
10280
10281             Private _childFirst As Integer
10282
10283             <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
10284              Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
10285             Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)
10286                 MyBase.New
10287                 Me._relation = relation
10288                 If childFirst Then
10289                     Me._childFirst = -1
10290                 Else
10291                     Me._childFirst = 1
10292                 End If
10293             End Sub
10294
10295             <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
10296              Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
10297             Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow
10298                 Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing))
10299                 Dim root As Global.System.Data.DataRow = row
10300                 distance = 0
10301
10302                 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)()
10303                 traversedRows(row) = row
10304
10305                 Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default])
10306
10307                 Do While ((Not (parent) Is Nothing)  _
10308                             AndAlso (traversedRows.ContainsKey(parent) = false))
10309                     distance = (distance + 1)
10310                     root = parent
10311                     traversedRows(parent) = parent
10312                     parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default])
10313
10314                 Loop
10315
10316                 If (distance = 0) Then
10317                     traversedRows.Clear
10318                     traversedRows(row) = row
10319                     parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original)
10320
10321                     Do While ((Not (parent) Is Nothing)  _
10322                                 AndAlso (traversedRows.ContainsKey(parent) = false))
10323                         distance = (distance + 1)
10324                         root = parent
10325                         traversedRows(parent) = parent
10326                         parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original)
10327
10328                     Loop
10329                 End If
10330
10331                 Return root
10332             End Function
10333
10334             <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
10335              Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
10336             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
10337                 If Object.ReferenceEquals(row1, row2) Then
10338                     Return 0
10339                 End If
10340                 If (row1 Is Nothing) Then
10341                     Return -1
10342                 End If
10343                 If (row2 Is Nothing) Then
10344                     Return 1
10345                 End If
10346
10347                 Dim distance1 As Integer = 0
10348                 Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1)
10349
10350                 Dim distance2 As Integer = 0
10351                 Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2)
10352
10353                 If Object.ReferenceEquals(root1, root2) Then
10354                     Return (Me._childFirst * distance1.CompareTo(distance2))
10355                 Else
10356                     Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing)  _
10357                                     AndAlso (Not (root2.Table) Is Nothing)))
10358                     If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then
10359                         Return -1
10360                     Else
10361                         Return 1
10362                     End If
10363                 End If
10364             End Function
10365         End Class
10366     End Class
10367 End Namespace