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