'------------------------------------------------------------------------------
'
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
'
'------------------------------------------------------------------------------
Option Strict Off
Option Explicit On
'''
'''Represents a strongly typed in-memory cache of data.
'''
_
Partial Public Class NEADataSet
Inherits Global.System.Data.DataSet
Private tableAchievement As AchievementDataTable
Private tableDOW As DOWDataTable
Private tableFriends As FriendsDataTable
Private tableGames As GamesDataTable
Private tablePurchased As PurchasedDataTable
Private tableReviews As ReviewsDataTable
Private tableTags As TagsDataTable
Private tableWishlist As WishlistDataTable
Private tableUsers As UsersDataTable
Private tableUser_Details As User_DetailsDataTable
Private relationGamesAchievement As Global.System.Data.DataRelation
Private relationGamesDOW As Global.System.Data.DataRelation
Private relationGamesPurchased As Global.System.Data.DataRelation
Private relationGamesReviews As Global.System.Data.DataRelation
Private relationGamesWishlist As Global.System.Data.DataRelation
Private relationUser_DetailsUsers As Global.System.Data.DataRelation
Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
_
Public Sub New()
MyBase.New
Me.BeginInit
Me.InitClass
Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler
Me.EndInit
End Sub
_
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context, false)
If (Me.IsBinarySerialized(info, context) = true) Then
Me.InitVars(false)
Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1
AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1
Return
End If
Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String)
If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
If (Not (ds.Tables("Achievement")) Is Nothing) Then
MyBase.Tables.Add(New AchievementDataTable(ds.Tables("Achievement")))
End If
If (Not (ds.Tables("DOW")) Is Nothing) Then
MyBase.Tables.Add(New DOWDataTable(ds.Tables("DOW")))
End If
If (Not (ds.Tables("Friends")) Is Nothing) Then
MyBase.Tables.Add(New FriendsDataTable(ds.Tables("Friends")))
End If
If (Not (ds.Tables("Games")) Is Nothing) Then
MyBase.Tables.Add(New GamesDataTable(ds.Tables("Games")))
End If
If (Not (ds.Tables("Purchased")) Is Nothing) Then
MyBase.Tables.Add(New PurchasedDataTable(ds.Tables("Purchased")))
End If
If (Not (ds.Tables("Reviews")) Is Nothing) Then
MyBase.Tables.Add(New ReviewsDataTable(ds.Tables("Reviews")))
End If
If (Not (ds.Tables("Tags")) Is Nothing) Then
MyBase.Tables.Add(New TagsDataTable(ds.Tables("Tags")))
End If
If (Not (ds.Tables("Wishlist")) Is Nothing) Then
MyBase.Tables.Add(New WishlistDataTable(ds.Tables("Wishlist")))
End If
If (Not (ds.Tables("Users")) Is Nothing) Then
MyBase.Tables.Add(New UsersDataTable(ds.Tables("Users")))
End If
If (Not (ds.Tables("User_Details")) Is Nothing) Then
MyBase.Tables.Add(New User_DetailsDataTable(ds.Tables("User_Details")))
End If
Me.DataSetName = ds.DataSetName
Me.Prefix = ds.Prefix
Me.Namespace = ds.Namespace
Me.Locale = ds.Locale
Me.CaseSensitive = ds.CaseSensitive
Me.EnforceConstraints = ds.EnforceConstraints
Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
Me.InitVars
Else
Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
End If
Me.GetSerializationData(info, context)
Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
End Sub
_
Public ReadOnly Property Achievement() As AchievementDataTable
Get
Return Me.tableAchievement
End Get
End Property
_
Public ReadOnly Property DOW() As DOWDataTable
Get
Return Me.tableDOW
End Get
End Property
_
Public ReadOnly Property Friends() As FriendsDataTable
Get
Return Me.tableFriends
End Get
End Property
_
Public ReadOnly Property Games() As GamesDataTable
Get
Return Me.tableGames
End Get
End Property
_
Public ReadOnly Property Purchased() As PurchasedDataTable
Get
Return Me.tablePurchased
End Get
End Property
_
Public ReadOnly Property Reviews() As ReviewsDataTable
Get
Return Me.tableReviews
End Get
End Property
_
Public ReadOnly Property Tags() As TagsDataTable
Get
Return Me.tableTags
End Get
End Property
_
Public ReadOnly Property Wishlist() As WishlistDataTable
Get
Return Me.tableWishlist
End Get
End Property
_
Public ReadOnly Property Users() As UsersDataTable
Get
Return Me.tableUsers
End Get
End Property
_
Public ReadOnly Property User_Details() As User_DetailsDataTable
Get
Return Me.tableUser_Details
End Get
End Property
_
Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
Get
Return Me._schemaSerializationMode
End Get
Set
Me._schemaSerializationMode = value
End Set
End Property
_
Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
Get
Return MyBase.Tables
End Get
End Property
_
Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
Get
Return MyBase.Relations
End Get
End Property
_
Protected Overrides Sub InitializeDerivedDataSet()
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
_
Public Overrides Function Clone() As Global.System.Data.DataSet
Dim cln As NEADataSet = CType(MyBase.Clone,NEADataSet)
cln.InitVars
cln.SchemaSerializationMode = Me.SchemaSerializationMode
Return cln
End Function
_
Protected Overrides Function ShouldSerializeTables() As Boolean
Return false
End Function
_
Protected Overrides Function ShouldSerializeRelations() As Boolean
Return false
End Function
_
Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader)
If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
Me.Reset
Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
ds.ReadXml(reader)
If (Not (ds.Tables("Achievement")) Is Nothing) Then
MyBase.Tables.Add(New AchievementDataTable(ds.Tables("Achievement")))
End If
If (Not (ds.Tables("DOW")) Is Nothing) Then
MyBase.Tables.Add(New DOWDataTable(ds.Tables("DOW")))
End If
If (Not (ds.Tables("Friends")) Is Nothing) Then
MyBase.Tables.Add(New FriendsDataTable(ds.Tables("Friends")))
End If
If (Not (ds.Tables("Games")) Is Nothing) Then
MyBase.Tables.Add(New GamesDataTable(ds.Tables("Games")))
End If
If (Not (ds.Tables("Purchased")) Is Nothing) Then
MyBase.Tables.Add(New PurchasedDataTable(ds.Tables("Purchased")))
End If
If (Not (ds.Tables("Reviews")) Is Nothing) Then
MyBase.Tables.Add(New ReviewsDataTable(ds.Tables("Reviews")))
End If
If (Not (ds.Tables("Tags")) Is Nothing) Then
MyBase.Tables.Add(New TagsDataTable(ds.Tables("Tags")))
End If
If (Not (ds.Tables("Wishlist")) Is Nothing) Then
MyBase.Tables.Add(New WishlistDataTable(ds.Tables("Wishlist")))
End If
If (Not (ds.Tables("Users")) Is Nothing) Then
MyBase.Tables.Add(New UsersDataTable(ds.Tables("Users")))
End If
If (Not (ds.Tables("User_Details")) Is Nothing) Then
MyBase.Tables.Add(New User_DetailsDataTable(ds.Tables("User_Details")))
End If
Me.DataSetName = ds.DataSetName
Me.Prefix = ds.Prefix
Me.Namespace = ds.Namespace
Me.Locale = ds.Locale
Me.CaseSensitive = ds.CaseSensitive
Me.EnforceConstraints = ds.EnforceConstraints
Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
Me.InitVars
Else
Me.ReadXml(reader)
Me.InitVars
End If
End Sub
_
Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema
Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing))
stream.Position = 0
Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing)
End Function
_
Friend Overloads Sub InitVars()
Me.InitVars(true)
End Sub
_
Friend Overloads Sub InitVars(ByVal initTable As Boolean)
Me.tableAchievement = CType(MyBase.Tables("Achievement"),AchievementDataTable)
If (initTable = true) Then
If (Not (Me.tableAchievement) Is Nothing) Then
Me.tableAchievement.InitVars
End If
End If
Me.tableDOW = CType(MyBase.Tables("DOW"),DOWDataTable)
If (initTable = true) Then
If (Not (Me.tableDOW) Is Nothing) Then
Me.tableDOW.InitVars
End If
End If
Me.tableFriends = CType(MyBase.Tables("Friends"),FriendsDataTable)
If (initTable = true) Then
If (Not (Me.tableFriends) Is Nothing) Then
Me.tableFriends.InitVars
End If
End If
Me.tableGames = CType(MyBase.Tables("Games"),GamesDataTable)
If (initTable = true) Then
If (Not (Me.tableGames) Is Nothing) Then
Me.tableGames.InitVars
End If
End If
Me.tablePurchased = CType(MyBase.Tables("Purchased"),PurchasedDataTable)
If (initTable = true) Then
If (Not (Me.tablePurchased) Is Nothing) Then
Me.tablePurchased.InitVars
End If
End If
Me.tableReviews = CType(MyBase.Tables("Reviews"),ReviewsDataTable)
If (initTable = true) Then
If (Not (Me.tableReviews) Is Nothing) Then
Me.tableReviews.InitVars
End If
End If
Me.tableTags = CType(MyBase.Tables("Tags"),TagsDataTable)
If (initTable = true) Then
If (Not (Me.tableTags) Is Nothing) Then
Me.tableTags.InitVars
End If
End If
Me.tableWishlist = CType(MyBase.Tables("Wishlist"),WishlistDataTable)
If (initTable = true) Then
If (Not (Me.tableWishlist) Is Nothing) Then
Me.tableWishlist.InitVars
End If
End If
Me.tableUsers = CType(MyBase.Tables("Users"),UsersDataTable)
If (initTable = true) Then
If (Not (Me.tableUsers) Is Nothing) Then
Me.tableUsers.InitVars
End If
End If
Me.tableUser_Details = CType(MyBase.Tables("User_Details"),User_DetailsDataTable)
If (initTable = true) Then
If (Not (Me.tableUser_Details) Is Nothing) Then
Me.tableUser_Details.InitVars
End If
End If
Me.relationGamesAchievement = Me.Relations("GamesAchievement")
Me.relationGamesDOW = Me.Relations("GamesDOW")
Me.relationGamesPurchased = Me.Relations("GamesPurchased")
Me.relationGamesReviews = Me.Relations("GamesReviews")
Me.relationGamesWishlist = Me.Relations("GamesWishlist")
Me.relationUser_DetailsUsers = Me.Relations("User_DetailsUsers")
End Sub
_
Private Sub InitClass()
Me.DataSetName = "NEADataSet"
Me.Prefix = ""
Me.Namespace = "http://tempuri.org/NEADataSet.xsd"
Me.EnforceConstraints = true
Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
Me.tableAchievement = New AchievementDataTable()
MyBase.Tables.Add(Me.tableAchievement)
Me.tableDOW = New DOWDataTable()
MyBase.Tables.Add(Me.tableDOW)
Me.tableFriends = New FriendsDataTable()
MyBase.Tables.Add(Me.tableFriends)
Me.tableGames = New GamesDataTable()
MyBase.Tables.Add(Me.tableGames)
Me.tablePurchased = New PurchasedDataTable()
MyBase.Tables.Add(Me.tablePurchased)
Me.tableReviews = New ReviewsDataTable()
MyBase.Tables.Add(Me.tableReviews)
Me.tableTags = New TagsDataTable()
MyBase.Tables.Add(Me.tableTags)
Me.tableWishlist = New WishlistDataTable()
MyBase.Tables.Add(Me.tableWishlist)
Me.tableUsers = New UsersDataTable()
MyBase.Tables.Add(Me.tableUsers)
Me.tableUser_Details = New User_DetailsDataTable()
MyBase.Tables.Add(Me.tableUser_Details)
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)
Me.Relations.Add(Me.relationGamesAchievement)
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)
Me.Relations.Add(Me.relationGamesDOW)
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)
Me.Relations.Add(Me.relationGamesPurchased)
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)
Me.Relations.Add(Me.relationGamesReviews)
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)
Me.Relations.Add(Me.relationGamesWishlist)
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)
Me.Relations.Add(Me.relationUser_DetailsUsers)
End Sub
_
Private Function ShouldSerializeAchievement() As Boolean
Return false
End Function
_
Private Function ShouldSerializeDOW() As Boolean
Return false
End Function
_
Private Function ShouldSerializeFriends() As Boolean
Return false
End Function
_
Private Function ShouldSerializeGames() As Boolean
Return false
End Function
_
Private Function ShouldSerializePurchased() As Boolean
Return false
End Function
_
Private Function ShouldSerializeReviews() As Boolean
Return false
End Function
_
Private Function ShouldSerializeTags() As Boolean
Return false
End Function
_
Private Function ShouldSerializeWishlist() As Boolean
Return false
End Function
_
Private Function ShouldSerializeUsers() As Boolean
Return false
End Function
_
Private Function ShouldSerializeUser_Details() As Boolean
Return false
End Function
_
Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
Me.InitVars
End If
End Sub
_
Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
Dim ds As NEADataSet = New NEADataSet()
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
any.Namespace = ds.Namespace
sequence.Items.Add(any)
type.Particle = sequence
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
If xs.Contains(dsSchema.TargetNamespace) Then
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Try
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
dsSchema.Write(s1)
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
Do While schemas.MoveNext
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
s2.SetLength(0)
schema.Write(s2)
If (s1.Length = s2.Length) Then
s1.Position = 0
s2.Position = 0
Do While ((s1.Position <> s1.Length) _
AndAlso (s1.ReadByte = s2.ReadByte))
Loop
If (s1.Position = s1.Length) Then
Return type
End If
End If
Loop
Finally
If (Not (s1) Is Nothing) Then
s1.Close
End If
If (Not (s2) Is Nothing) Then
s2.Close
End If
End Try
End If
xs.Add(dsSchema)
Return type
End Function
_
Public Delegate Sub AchievementRowChangeEventHandler(ByVal sender As Object, ByVal e As AchievementRowChangeEvent)
_
Public Delegate Sub DOWRowChangeEventHandler(ByVal sender As Object, ByVal e As DOWRowChangeEvent)
_
Public Delegate Sub FriendsRowChangeEventHandler(ByVal sender As Object, ByVal e As FriendsRowChangeEvent)
_
Public Delegate Sub GamesRowChangeEventHandler(ByVal sender As Object, ByVal e As GamesRowChangeEvent)
_
Public Delegate Sub PurchasedRowChangeEventHandler(ByVal sender As Object, ByVal e As PurchasedRowChangeEvent)
_
Public Delegate Sub ReviewsRowChangeEventHandler(ByVal sender As Object, ByVal e As ReviewsRowChangeEvent)
_
Public Delegate Sub TagsRowChangeEventHandler(ByVal sender As Object, ByVal e As TagsRowChangeEvent)
_
Public Delegate Sub WishlistRowChangeEventHandler(ByVal sender As Object, ByVal e As WishlistRowChangeEvent)
_
Public Delegate Sub UsersRowChangeEventHandler(ByVal sender As Object, ByVal e As UsersRowChangeEvent)
_
Public Delegate Sub User_DetailsRowChangeEventHandler(ByVal sender As Object, ByVal e As User_DetailsRowChangeEvent)
'''
'''Represents the strongly named DataTable class.
'''
_
Partial Public Class AchievementDataTable
Inherits Global.System.Data.TypedTableBase(Of AchievementRow)
Private columnAchievementID As Global.System.Data.DataColumn
Private columnGameID As Global.System.Data.DataColumn
Private columnUserID As Global.System.Data.DataColumn
Private columnAchievment_1 As Global.System.Data.DataColumn
Private columnAchievment_2 As Global.System.Data.DataColumn
Private columnAchievment_3 As Global.System.Data.DataColumn
Private columnAchievment_4 As Global.System.Data.DataColumn
Private columnAchievment_5 As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "Achievement"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
_
Friend Sub New(ByVal table As Global.System.Data.DataTable)
MyBase.New
Me.TableName = table.TableName
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
Me.CaseSensitive = table.CaseSensitive
End If
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
Me.Locale = table.Locale
End If
If (table.Namespace <> table.DataSet.Namespace) Then
Me.Namespace = table.Namespace
End If
Me.Prefix = table.Prefix
Me.MinimumCapacity = table.MinimumCapacity
End Sub
_
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
Me.InitVars
End Sub
_
Public ReadOnly Property AchievementIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnAchievementID
End Get
End Property
_
Public ReadOnly Property GameIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGameID
End Get
End Property
_
Public ReadOnly Property UserIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnUserID
End Get
End Property
_
Public ReadOnly Property Achievment_1Column() As Global.System.Data.DataColumn
Get
Return Me.columnAchievment_1
End Get
End Property
_
Public ReadOnly Property Achievment_2Column() As Global.System.Data.DataColumn
Get
Return Me.columnAchievment_2
End Get
End Property
_
Public ReadOnly Property Achievment_3Column() As Global.System.Data.DataColumn
Get
Return Me.columnAchievment_3
End Get
End Property
_
Public ReadOnly Property Achievment_4Column() As Global.System.Data.DataColumn
Get
Return Me.columnAchievment_4
End Get
End Property
_
Public ReadOnly Property Achievment_5Column() As Global.System.Data.DataColumn
Get
Return Me.columnAchievment_5
End Get
End Property
_
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
_
Public Default ReadOnly Property Item(ByVal index As Integer) As AchievementRow
Get
Return CType(Me.Rows(index),AchievementRow)
End Get
End Property
_
Public Event AchievementRowChanging As AchievementRowChangeEventHandler
_
Public Event AchievementRowChanged As AchievementRowChangeEventHandler
_
Public Event AchievementRowDeleting As AchievementRowChangeEventHandler
_
Public Event AchievementRowDeleted As AchievementRowChangeEventHandler
_
Public Overloads Sub AddAchievementRow(ByVal row As AchievementRow)
Me.Rows.Add(row)
End Sub
_
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
Dim rowAchievementRow As AchievementRow = CType(Me.NewRow,AchievementRow)
Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, UserID, Achievment_1, Achievment_2, Achievment_3, Achievment_4, Achievment_5}
If (Not (parentGamesRowByGamesAchievement) Is Nothing) Then
columnValuesArray(1) = parentGamesRowByGamesAchievement(0)
End If
rowAchievementRow.ItemArray = columnValuesArray
Me.Rows.Add(rowAchievementRow)
Return rowAchievementRow
End Function
_
Public Function FindByAchievementID(ByVal AchievementID As Integer) As AchievementRow
Return CType(Me.Rows.Find(New Object() {AchievementID}),AchievementRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As AchievementDataTable = CType(MyBase.Clone,AchievementDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New AchievementDataTable()
End Function
_
Friend Sub InitVars()
Me.columnAchievementID = MyBase.Columns("AchievementID")
Me.columnGameID = MyBase.Columns("GameID")
Me.columnUserID = MyBase.Columns("UserID")
Me.columnAchievment_1 = MyBase.Columns("Achievment 1")
Me.columnAchievment_2 = MyBase.Columns("Achievment 2")
Me.columnAchievment_3 = MyBase.Columns("Achievment 3")
Me.columnAchievment_4 = MyBase.Columns("Achievment 4")
Me.columnAchievment_5 = MyBase.Columns("Achievment 5")
End Sub
_
Private Sub InitClass()
Me.columnAchievementID = New Global.System.Data.DataColumn("AchievementID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnAchievementID)
Me.columnGameID = New Global.System.Data.DataColumn("GameID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnGameID)
Me.columnUserID = New Global.System.Data.DataColumn("UserID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnUserID)
Me.columnAchievment_1 = New Global.System.Data.DataColumn("Achievment 1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnAchievment_1)
Me.columnAchievment_2 = New Global.System.Data.DataColumn("Achievment 2", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnAchievment_2)
Me.columnAchievment_3 = New Global.System.Data.DataColumn("Achievment 3", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnAchievment_3)
Me.columnAchievment_4 = New Global.System.Data.DataColumn("Achievment 4", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnAchievment_4)
Me.columnAchievment_5 = New Global.System.Data.DataColumn("Achievment 5", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnAchievment_5)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnAchievementID}, true))
Me.columnAchievementID.AutoIncrement = true
Me.columnAchievementID.AutoIncrementSeed = -1
Me.columnAchievementID.AutoIncrementStep = -1
Me.columnAchievementID.AllowDBNull = false
Me.columnAchievementID.Unique = true
Me.columnAchievment_1.MaxLength = 536870910
Me.columnAchievment_2.MaxLength = 536870910
Me.columnAchievment_3.MaxLength = 536870910
Me.columnAchievment_4.MaxLength = 536870910
Me.columnAchievment_5.MaxLength = 536870910
End Sub
_
Public Function NewAchievementRow() As AchievementRow
Return CType(Me.NewRow,AchievementRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New AchievementRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(AchievementRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.AchievementRowChangedEvent) Is Nothing) Then
RaiseEvent AchievementRowChanged(Me, New AchievementRowChangeEvent(CType(e.Row,AchievementRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.AchievementRowChangingEvent) Is Nothing) Then
RaiseEvent AchievementRowChanging(Me, New AchievementRowChangeEvent(CType(e.Row,AchievementRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.AchievementRowDeletedEvent) Is Nothing) Then
RaiseEvent AchievementRowDeleted(Me, New AchievementRowChangeEvent(CType(e.Row,AchievementRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.AchievementRowDeletingEvent) Is Nothing) Then
RaiseEvent AchievementRowDeleting(Me, New AchievementRowChangeEvent(CType(e.Row,AchievementRow), e.Action))
End If
End Sub
_
Public Sub RemoveAchievementRow(ByVal row As AchievementRow)
Me.Rows.Remove(row)
End Sub
_
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
Dim ds As NEADataSet = New NEADataSet()
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
any1.MinOccurs = New Decimal(0)
any1.MaxOccurs = Decimal.MaxValue
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any1)
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
any2.MinOccurs = New Decimal(1)
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any2)
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute1.Name = "namespace"
attribute1.FixedValue = ds.Namespace
type.Attributes.Add(attribute1)
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute2.Name = "tableTypeName"
attribute2.FixedValue = "AchievementDataTable"
type.Attributes.Add(attribute2)
type.Particle = sequence
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
If xs.Contains(dsSchema.TargetNamespace) Then
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Try
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
dsSchema.Write(s1)
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
Do While schemas.MoveNext
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
s2.SetLength(0)
schema.Write(s2)
If (s1.Length = s2.Length) Then
s1.Position = 0
s2.Position = 0
Do While ((s1.Position <> s1.Length) _
AndAlso (s1.ReadByte = s2.ReadByte))
Loop
If (s1.Position = s1.Length) Then
Return type
End If
End If
Loop
Finally
If (Not (s1) Is Nothing) Then
s1.Close
End If
If (Not (s2) Is Nothing) Then
s2.Close
End If
End Try
End If
xs.Add(dsSchema)
Return type
End Function
End Class
'''
'''Represents the strongly named DataTable class.
'''
_
Partial Public Class DOWDataTable
Inherits Global.System.Data.TypedTableBase(Of DOWRow)
Private columnDOWID As Global.System.Data.DataColumn
Private columnStart As Global.System.Data.DataColumn
Private columnEnd As Global.System.Data.DataColumn
Private columnGameID As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "DOW"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
_
Friend Sub New(ByVal table As Global.System.Data.DataTable)
MyBase.New
Me.TableName = table.TableName
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
Me.CaseSensitive = table.CaseSensitive
End If
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
Me.Locale = table.Locale
End If
If (table.Namespace <> table.DataSet.Namespace) Then
Me.Namespace = table.Namespace
End If
Me.Prefix = table.Prefix
Me.MinimumCapacity = table.MinimumCapacity
End Sub
_
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
Me.InitVars
End Sub
_
Public ReadOnly Property DOWIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDOWID
End Get
End Property
_
Public ReadOnly Property StartColumn() As Global.System.Data.DataColumn
Get
Return Me.columnStart
End Get
End Property
_
Public ReadOnly Property EndColumn() As Global.System.Data.DataColumn
Get
Return Me.columnEnd
End Get
End Property
_
Public ReadOnly Property GameIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGameID
End Get
End Property
_
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
_
Public Default ReadOnly Property Item(ByVal index As Integer) As DOWRow
Get
Return CType(Me.Rows(index),DOWRow)
End Get
End Property
_
Public Event DOWRowChanging As DOWRowChangeEventHandler
_
Public Event DOWRowChanged As DOWRowChangeEventHandler
_
Public Event DOWRowDeleting As DOWRowChangeEventHandler
_
Public Event DOWRowDeleted As DOWRowChangeEventHandler
_
Public Overloads Sub AddDOWRow(ByVal row As DOWRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddDOWRow(ByVal Start As Date, ByVal _End As Date, ByVal parentGamesRowByGamesDOW As GamesRow) As DOWRow
Dim rowDOWRow As DOWRow = CType(Me.NewRow,DOWRow)
Dim columnValuesArray() As Object = New Object() {Nothing, Start, _End, Nothing}
If (Not (parentGamesRowByGamesDOW) Is Nothing) Then
columnValuesArray(3) = parentGamesRowByGamesDOW(0)
End If
rowDOWRow.ItemArray = columnValuesArray
Me.Rows.Add(rowDOWRow)
Return rowDOWRow
End Function
_
Public Function FindByDOWID(ByVal DOWID As Integer) As DOWRow
Return CType(Me.Rows.Find(New Object() {DOWID}),DOWRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As DOWDataTable = CType(MyBase.Clone,DOWDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New DOWDataTable()
End Function
_
Friend Sub InitVars()
Me.columnDOWID = MyBase.Columns("DOWID")
Me.columnStart = MyBase.Columns("Start")
Me.columnEnd = MyBase.Columns("End")
Me.columnGameID = MyBase.Columns("GameID")
End Sub
_
Private Sub InitClass()
Me.columnDOWID = New Global.System.Data.DataColumn("DOWID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDOWID)
Me.columnStart = New Global.System.Data.DataColumn("Start", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnStart)
Me.columnEnd = New Global.System.Data.DataColumn("End", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
Me.columnEnd.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "EndColumn")
Me.columnEnd.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnEnd")
Me.columnEnd.ExtendedProperties.Add("Generator_UserColumnName", "End")
MyBase.Columns.Add(Me.columnEnd)
Me.columnGameID = New Global.System.Data.DataColumn("GameID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnGameID)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnDOWID}, true))
Me.columnDOWID.AutoIncrement = true
Me.columnDOWID.AutoIncrementSeed = -1
Me.columnDOWID.AutoIncrementStep = -1
Me.columnDOWID.AllowDBNull = false
Me.columnDOWID.Unique = true
End Sub
_
Public Function NewDOWRow() As DOWRow
Return CType(Me.NewRow,DOWRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New DOWRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(DOWRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.DOWRowChangedEvent) Is Nothing) Then
RaiseEvent DOWRowChanged(Me, New DOWRowChangeEvent(CType(e.Row,DOWRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.DOWRowChangingEvent) Is Nothing) Then
RaiseEvent DOWRowChanging(Me, New DOWRowChangeEvent(CType(e.Row,DOWRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.DOWRowDeletedEvent) Is Nothing) Then
RaiseEvent DOWRowDeleted(Me, New DOWRowChangeEvent(CType(e.Row,DOWRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.DOWRowDeletingEvent) Is Nothing) Then
RaiseEvent DOWRowDeleting(Me, New DOWRowChangeEvent(CType(e.Row,DOWRow), e.Action))
End If
End Sub
_
Public Sub RemoveDOWRow(ByVal row As DOWRow)
Me.Rows.Remove(row)
End Sub
_
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
Dim ds As NEADataSet = New NEADataSet()
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
any1.MinOccurs = New Decimal(0)
any1.MaxOccurs = Decimal.MaxValue
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any1)
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
any2.MinOccurs = New Decimal(1)
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any2)
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute1.Name = "namespace"
attribute1.FixedValue = ds.Namespace
type.Attributes.Add(attribute1)
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute2.Name = "tableTypeName"
attribute2.FixedValue = "DOWDataTable"
type.Attributes.Add(attribute2)
type.Particle = sequence
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
If xs.Contains(dsSchema.TargetNamespace) Then
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Try
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
dsSchema.Write(s1)
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
Do While schemas.MoveNext
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
s2.SetLength(0)
schema.Write(s2)
If (s1.Length = s2.Length) Then
s1.Position = 0
s2.Position = 0
Do While ((s1.Position <> s1.Length) _
AndAlso (s1.ReadByte = s2.ReadByte))
Loop
If (s1.Position = s1.Length) Then
Return type
End If
End If
Loop
Finally
If (Not (s1) Is Nothing) Then
s1.Close
End If
If (Not (s2) Is Nothing) Then
s2.Close
End If
End Try
End If
xs.Add(dsSchema)
Return type
End Function
End Class
'''
'''Represents the strongly named DataTable class.
'''
_
Partial Public Class FriendsDataTable
Inherits Global.System.Data.TypedTableBase(Of FriendsRow)
Private columnID As Global.System.Data.DataColumn
Private columnFriendID As Global.System.Data.DataColumn
Private columnUserID As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "Friends"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
_
Friend Sub New(ByVal table As Global.System.Data.DataTable)
MyBase.New
Me.TableName = table.TableName
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
Me.CaseSensitive = table.CaseSensitive
End If
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
Me.Locale = table.Locale
End If
If (table.Namespace <> table.DataSet.Namespace) Then
Me.Namespace = table.Namespace
End If
Me.Prefix = table.Prefix
Me.MinimumCapacity = table.MinimumCapacity
End Sub
_
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
Me.InitVars
End Sub
_
Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnID
End Get
End Property
_
Public ReadOnly Property FriendIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnFriendID
End Get
End Property
_
Public ReadOnly Property UserIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnUserID
End Get
End Property
_
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
_
Public Default ReadOnly Property Item(ByVal index As Integer) As FriendsRow
Get
Return CType(Me.Rows(index),FriendsRow)
End Get
End Property
_
Public Event FriendsRowChanging As FriendsRowChangeEventHandler
_
Public Event FriendsRowChanged As FriendsRowChangeEventHandler
_
Public Event FriendsRowDeleting As FriendsRowChangeEventHandler
_
Public Event FriendsRowDeleted As FriendsRowChangeEventHandler
_
Public Overloads Sub AddFriendsRow(ByVal row As FriendsRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddFriendsRow(ByVal FriendID As Integer, ByVal UserID As Integer) As FriendsRow
Dim rowFriendsRow As FriendsRow = CType(Me.NewRow,FriendsRow)
Dim columnValuesArray() As Object = New Object() {Nothing, FriendID, UserID}
rowFriendsRow.ItemArray = columnValuesArray
Me.Rows.Add(rowFriendsRow)
Return rowFriendsRow
End Function
_
Public Function FindByID(ByVal ID As Integer) As FriendsRow
Return CType(Me.Rows.Find(New Object() {ID}),FriendsRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As FriendsDataTable = CType(MyBase.Clone,FriendsDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New FriendsDataTable()
End Function
_
Friend Sub InitVars()
Me.columnID = MyBase.Columns("ID")
Me.columnFriendID = MyBase.Columns("FriendID")
Me.columnUserID = MyBase.Columns("UserID")
End Sub
_
Private Sub InitClass()
Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnID)
Me.columnFriendID = New Global.System.Data.DataColumn("FriendID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnFriendID)
Me.columnUserID = New Global.System.Data.DataColumn("UserID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnUserID)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true))
Me.columnID.AutoIncrement = true
Me.columnID.AutoIncrementSeed = -1
Me.columnID.AutoIncrementStep = -1
Me.columnID.AllowDBNull = false
Me.columnID.Unique = true
End Sub
_
Public Function NewFriendsRow() As FriendsRow
Return CType(Me.NewRow,FriendsRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New FriendsRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(FriendsRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.FriendsRowChangedEvent) Is Nothing) Then
RaiseEvent FriendsRowChanged(Me, New FriendsRowChangeEvent(CType(e.Row,FriendsRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.FriendsRowChangingEvent) Is Nothing) Then
RaiseEvent FriendsRowChanging(Me, New FriendsRowChangeEvent(CType(e.Row,FriendsRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.FriendsRowDeletedEvent) Is Nothing) Then
RaiseEvent FriendsRowDeleted(Me, New FriendsRowChangeEvent(CType(e.Row,FriendsRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.FriendsRowDeletingEvent) Is Nothing) Then
RaiseEvent FriendsRowDeleting(Me, New FriendsRowChangeEvent(CType(e.Row,FriendsRow), e.Action))
End If
End Sub
_
Public Sub RemoveFriendsRow(ByVal row As FriendsRow)
Me.Rows.Remove(row)
End Sub
_
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
Dim ds As NEADataSet = New NEADataSet()
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
any1.MinOccurs = New Decimal(0)
any1.MaxOccurs = Decimal.MaxValue
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any1)
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
any2.MinOccurs = New Decimal(1)
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any2)
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute1.Name = "namespace"
attribute1.FixedValue = ds.Namespace
type.Attributes.Add(attribute1)
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute2.Name = "tableTypeName"
attribute2.FixedValue = "FriendsDataTable"
type.Attributes.Add(attribute2)
type.Particle = sequence
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
If xs.Contains(dsSchema.TargetNamespace) Then
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Try
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
dsSchema.Write(s1)
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
Do While schemas.MoveNext
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
s2.SetLength(0)
schema.Write(s2)
If (s1.Length = s2.Length) Then
s1.Position = 0
s2.Position = 0
Do While ((s1.Position <> s1.Length) _
AndAlso (s1.ReadByte = s2.ReadByte))
Loop
If (s1.Position = s1.Length) Then
Return type
End If
End If
Loop
Finally
If (Not (s1) Is Nothing) Then
s1.Close
End If
If (Not (s2) Is Nothing) Then
s2.Close
End If
End Try
End If
xs.Add(dsSchema)
Return type
End Function
End Class
'''
'''Represents the strongly named DataTable class.
'''
_
Partial Public Class GamesDataTable
Inherits Global.System.Data.TypedTableBase(Of GamesRow)
Private columnGameID As Global.System.Data.DataColumn
Private columnName As Global.System.Data.DataColumn
Private columnPrice As Global.System.Data.DataColumn
Private columnRating As Global.System.Data.DataColumn
Private columnCertificate As Global.System.Data.DataColumn
Private columnDev As Global.System.Data.DataColumn
Private columnPublisher As Global.System.Data.DataColumn
Private columnIcon As Global.System.Data.DataColumn
Private columnTags As Global.System.Data.DataColumn
Private columnTheme_Colour As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "Games"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
_
Friend Sub New(ByVal table As Global.System.Data.DataTable)
MyBase.New
Me.TableName = table.TableName
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
Me.CaseSensitive = table.CaseSensitive
End If
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
Me.Locale = table.Locale
End If
If (table.Namespace <> table.DataSet.Namespace) Then
Me.Namespace = table.Namespace
End If
Me.Prefix = table.Prefix
Me.MinimumCapacity = table.MinimumCapacity
End Sub
_
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
Me.InitVars
End Sub
_
Public ReadOnly Property GameIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGameID
End Get
End Property
_
Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn
Get
Return Me.columnName
End Get
End Property
_
Public ReadOnly Property PriceColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPrice
End Get
End Property
_
Public ReadOnly Property RatingColumn() As Global.System.Data.DataColumn
Get
Return Me.columnRating
End Get
End Property
_
Public ReadOnly Property CertificateColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCertificate
End Get
End Property
_
Public ReadOnly Property DevColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDev
End Get
End Property
_
Public ReadOnly Property PublisherColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPublisher
End Get
End Property
_
Public ReadOnly Property IconColumn() As Global.System.Data.DataColumn
Get
Return Me.columnIcon
End Get
End Property
_
Public ReadOnly Property TagsColumn() As Global.System.Data.DataColumn
Get
Return Me.columnTags
End Get
End Property
_
Public ReadOnly Property Theme_ColourColumn() As Global.System.Data.DataColumn
Get
Return Me.columnTheme_Colour
End Get
End Property
_
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
_
Public Default ReadOnly Property Item(ByVal index As Integer) As GamesRow
Get
Return CType(Me.Rows(index),GamesRow)
End Get
End Property
_
Public Event GamesRowChanging As GamesRowChangeEventHandler
_
Public Event GamesRowChanged As GamesRowChangeEventHandler
_
Public Event GamesRowDeleting As GamesRowChangeEventHandler
_
Public Event GamesRowDeleted As GamesRowChangeEventHandler
_
Public Overloads Sub AddGamesRow(ByVal row As GamesRow)
Me.Rows.Add(row)
End Sub
_
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
Dim rowGamesRow As GamesRow = CType(Me.NewRow,GamesRow)
Dim columnValuesArray() As Object = New Object() {Nothing, Name, Price, Rating, Certificate, Dev, Publisher, Icon, Tags, Theme_Colour}
rowGamesRow.ItemArray = columnValuesArray
Me.Rows.Add(rowGamesRow)
Return rowGamesRow
End Function
_
Public Function FindByGameID(ByVal GameID As Integer) As GamesRow
Return CType(Me.Rows.Find(New Object() {GameID}),GamesRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As GamesDataTable = CType(MyBase.Clone,GamesDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New GamesDataTable()
End Function
_
Friend Sub InitVars()
Me.columnGameID = MyBase.Columns("GameID")
Me.columnName = MyBase.Columns("Name")
Me.columnPrice = MyBase.Columns("Price")
Me.columnRating = MyBase.Columns("Rating")
Me.columnCertificate = MyBase.Columns("Certificate")
Me.columnDev = MyBase.Columns("Dev")
Me.columnPublisher = MyBase.Columns("Publisher")
Me.columnIcon = MyBase.Columns("Icon")
Me.columnTags = MyBase.Columns("Tags")
Me.columnTheme_Colour = MyBase.Columns("Theme Colour")
End Sub
_
Private Sub InitClass()
Me.columnGameID = New Global.System.Data.DataColumn("GameID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnGameID)
Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnName)
Me.columnPrice = New Global.System.Data.DataColumn("Price", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPrice)
Me.columnRating = New Global.System.Data.DataColumn("Rating", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnRating)
Me.columnCertificate = New Global.System.Data.DataColumn("Certificate", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCertificate)
Me.columnDev = New Global.System.Data.DataColumn("Dev", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDev)
Me.columnPublisher = New Global.System.Data.DataColumn("Publisher", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPublisher)
Me.columnIcon = New Global.System.Data.DataColumn("Icon", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnIcon)
Me.columnTags = New Global.System.Data.DataColumn("Tags", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnTags)
Me.columnTheme_Colour = New Global.System.Data.DataColumn("Theme Colour", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnTheme_Colour)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGameID}, true))
Me.columnGameID.AutoIncrement = true
Me.columnGameID.AutoIncrementSeed = -1
Me.columnGameID.AutoIncrementStep = -1
Me.columnGameID.AllowDBNull = false
Me.columnGameID.Unique = true
Me.columnName.MaxLength = 536870910
Me.columnDev.MaxLength = 536870910
Me.columnPublisher.MaxLength = 536870910
Me.columnIcon.MaxLength = 536870910
Me.columnTags.MaxLength = 536870910
End Sub
_
Public Function NewGamesRow() As GamesRow
Return CType(Me.NewRow,GamesRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New GamesRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(GamesRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.GamesRowChangedEvent) Is Nothing) Then
RaiseEvent GamesRowChanged(Me, New GamesRowChangeEvent(CType(e.Row,GamesRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.GamesRowChangingEvent) Is Nothing) Then
RaiseEvent GamesRowChanging(Me, New GamesRowChangeEvent(CType(e.Row,GamesRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.GamesRowDeletedEvent) Is Nothing) Then
RaiseEvent GamesRowDeleted(Me, New GamesRowChangeEvent(CType(e.Row,GamesRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.GamesRowDeletingEvent) Is Nothing) Then
RaiseEvent GamesRowDeleting(Me, New GamesRowChangeEvent(CType(e.Row,GamesRow), e.Action))
End If
End Sub
_
Public Sub RemoveGamesRow(ByVal row As GamesRow)
Me.Rows.Remove(row)
End Sub
_
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
Dim ds As NEADataSet = New NEADataSet()
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
any1.MinOccurs = New Decimal(0)
any1.MaxOccurs = Decimal.MaxValue
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any1)
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
any2.MinOccurs = New Decimal(1)
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any2)
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute1.Name = "namespace"
attribute1.FixedValue = ds.Namespace
type.Attributes.Add(attribute1)
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute2.Name = "tableTypeName"
attribute2.FixedValue = "GamesDataTable"
type.Attributes.Add(attribute2)
type.Particle = sequence
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
If xs.Contains(dsSchema.TargetNamespace) Then
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Try
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
dsSchema.Write(s1)
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
Do While schemas.MoveNext
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
s2.SetLength(0)
schema.Write(s2)
If (s1.Length = s2.Length) Then
s1.Position = 0
s2.Position = 0
Do While ((s1.Position <> s1.Length) _
AndAlso (s1.ReadByte = s2.ReadByte))
Loop
If (s1.Position = s1.Length) Then
Return type
End If
End If
Loop
Finally
If (Not (s1) Is Nothing) Then
s1.Close
End If
If (Not (s2) Is Nothing) Then
s2.Close
End If
End Try
End If
xs.Add(dsSchema)
Return type
End Function
End Class
'''
'''Represents the strongly named DataTable class.
'''
_
Partial Public Class PurchasedDataTable
Inherits Global.System.Data.TypedTableBase(Of PurchasedRow)
Private columnPurchaseID As Global.System.Data.DataColumn
Private columnUserID As Global.System.Data.DataColumn
Private columnGameID As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "Purchased"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
_
Friend Sub New(ByVal table As Global.System.Data.DataTable)
MyBase.New
Me.TableName = table.TableName
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
Me.CaseSensitive = table.CaseSensitive
End If
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
Me.Locale = table.Locale
End If
If (table.Namespace <> table.DataSet.Namespace) Then
Me.Namespace = table.Namespace
End If
Me.Prefix = table.Prefix
Me.MinimumCapacity = table.MinimumCapacity
End Sub
_
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
Me.InitVars
End Sub
_
Public ReadOnly Property PurchaseIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPurchaseID
End Get
End Property
_
Public ReadOnly Property UserIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnUserID
End Get
End Property
_
Public ReadOnly Property GameIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGameID
End Get
End Property
_
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
_
Public Default ReadOnly Property Item(ByVal index As Integer) As PurchasedRow
Get
Return CType(Me.Rows(index),PurchasedRow)
End Get
End Property
_
Public Event PurchasedRowChanging As PurchasedRowChangeEventHandler
_
Public Event PurchasedRowChanged As PurchasedRowChangeEventHandler
_
Public Event PurchasedRowDeleting As PurchasedRowChangeEventHandler
_
Public Event PurchasedRowDeleted As PurchasedRowChangeEventHandler
_
Public Overloads Sub AddPurchasedRow(ByVal row As PurchasedRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddPurchasedRow(ByVal UserID As Integer, ByVal parentGamesRowByGamesPurchased As GamesRow) As PurchasedRow
Dim rowPurchasedRow As PurchasedRow = CType(Me.NewRow,PurchasedRow)
Dim columnValuesArray() As Object = New Object() {Nothing, UserID, Nothing}
If (Not (parentGamesRowByGamesPurchased) Is Nothing) Then
columnValuesArray(2) = parentGamesRowByGamesPurchased(0)
End If
rowPurchasedRow.ItemArray = columnValuesArray
Me.Rows.Add(rowPurchasedRow)
Return rowPurchasedRow
End Function
_
Public Function FindByPurchaseID(ByVal PurchaseID As Integer) As PurchasedRow
Return CType(Me.Rows.Find(New Object() {PurchaseID}),PurchasedRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As PurchasedDataTable = CType(MyBase.Clone,PurchasedDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New PurchasedDataTable()
End Function
_
Friend Sub InitVars()
Me.columnPurchaseID = MyBase.Columns("PurchaseID")
Me.columnUserID = MyBase.Columns("UserID")
Me.columnGameID = MyBase.Columns("GameID")
End Sub
_
Private Sub InitClass()
Me.columnPurchaseID = New Global.System.Data.DataColumn("PurchaseID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPurchaseID)
Me.columnUserID = New Global.System.Data.DataColumn("UserID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnUserID)
Me.columnGameID = New Global.System.Data.DataColumn("GameID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnGameID)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnPurchaseID}, true))
Me.columnPurchaseID.AutoIncrement = true
Me.columnPurchaseID.AutoIncrementSeed = -1
Me.columnPurchaseID.AutoIncrementStep = -1
Me.columnPurchaseID.AllowDBNull = false
Me.columnPurchaseID.Unique = true
End Sub
_
Public Function NewPurchasedRow() As PurchasedRow
Return CType(Me.NewRow,PurchasedRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New PurchasedRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(PurchasedRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.PurchasedRowChangedEvent) Is Nothing) Then
RaiseEvent PurchasedRowChanged(Me, New PurchasedRowChangeEvent(CType(e.Row,PurchasedRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.PurchasedRowChangingEvent) Is Nothing) Then
RaiseEvent PurchasedRowChanging(Me, New PurchasedRowChangeEvent(CType(e.Row,PurchasedRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.PurchasedRowDeletedEvent) Is Nothing) Then
RaiseEvent PurchasedRowDeleted(Me, New PurchasedRowChangeEvent(CType(e.Row,PurchasedRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.PurchasedRowDeletingEvent) Is Nothing) Then
RaiseEvent PurchasedRowDeleting(Me, New PurchasedRowChangeEvent(CType(e.Row,PurchasedRow), e.Action))
End If
End Sub
_
Public Sub RemovePurchasedRow(ByVal row As PurchasedRow)
Me.Rows.Remove(row)
End Sub
_
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
Dim ds As NEADataSet = New NEADataSet()
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
any1.MinOccurs = New Decimal(0)
any1.MaxOccurs = Decimal.MaxValue
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any1)
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
any2.MinOccurs = New Decimal(1)
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any2)
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute1.Name = "namespace"
attribute1.FixedValue = ds.Namespace
type.Attributes.Add(attribute1)
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute2.Name = "tableTypeName"
attribute2.FixedValue = "PurchasedDataTable"
type.Attributes.Add(attribute2)
type.Particle = sequence
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
If xs.Contains(dsSchema.TargetNamespace) Then
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Try
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
dsSchema.Write(s1)
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
Do While schemas.MoveNext
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
s2.SetLength(0)
schema.Write(s2)
If (s1.Length = s2.Length) Then
s1.Position = 0
s2.Position = 0
Do While ((s1.Position <> s1.Length) _
AndAlso (s1.ReadByte = s2.ReadByte))
Loop
If (s1.Position = s1.Length) Then
Return type
End If
End If
Loop
Finally
If (Not (s1) Is Nothing) Then
s1.Close
End If
If (Not (s2) Is Nothing) Then
s2.Close
End If
End Try
End If
xs.Add(dsSchema)
Return type
End Function
End Class
'''
'''Represents the strongly named DataTable class.
'''
_
Partial Public Class ReviewsDataTable
Inherits Global.System.Data.TypedTableBase(Of ReviewsRow)
Private columnReviewID As Global.System.Data.DataColumn
Private columnGameID As Global.System.Data.DataColumn
Private columnReview As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "Reviews"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
_
Friend Sub New(ByVal table As Global.System.Data.DataTable)
MyBase.New
Me.TableName = table.TableName
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
Me.CaseSensitive = table.CaseSensitive
End If
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
Me.Locale = table.Locale
End If
If (table.Namespace <> table.DataSet.Namespace) Then
Me.Namespace = table.Namespace
End If
Me.Prefix = table.Prefix
Me.MinimumCapacity = table.MinimumCapacity
End Sub
_
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
Me.InitVars
End Sub
_
Public ReadOnly Property ReviewIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnReviewID
End Get
End Property
_
Public ReadOnly Property GameIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGameID
End Get
End Property
_
Public ReadOnly Property ReviewColumn() As Global.System.Data.DataColumn
Get
Return Me.columnReview
End Get
End Property
_
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
_
Public Default ReadOnly Property Item(ByVal index As Integer) As ReviewsRow
Get
Return CType(Me.Rows(index),ReviewsRow)
End Get
End Property
_
Public Event ReviewsRowChanging As ReviewsRowChangeEventHandler
_
Public Event ReviewsRowChanged As ReviewsRowChangeEventHandler
_
Public Event ReviewsRowDeleting As ReviewsRowChangeEventHandler
_
Public Event ReviewsRowDeleted As ReviewsRowChangeEventHandler
_
Public Overloads Sub AddReviewsRow(ByVal row As ReviewsRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddReviewsRow(ByVal parentGamesRowByGamesReviews As GamesRow, ByVal Review As String) As ReviewsRow
Dim rowReviewsRow As ReviewsRow = CType(Me.NewRow,ReviewsRow)
Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Review}
If (Not (parentGamesRowByGamesReviews) Is Nothing) Then
columnValuesArray(1) = parentGamesRowByGamesReviews(0)
End If
rowReviewsRow.ItemArray = columnValuesArray
Me.Rows.Add(rowReviewsRow)
Return rowReviewsRow
End Function
_
Public Function FindByReviewID(ByVal ReviewID As Integer) As ReviewsRow
Return CType(Me.Rows.Find(New Object() {ReviewID}),ReviewsRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As ReviewsDataTable = CType(MyBase.Clone,ReviewsDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New ReviewsDataTable()
End Function
_
Friend Sub InitVars()
Me.columnReviewID = MyBase.Columns("ReviewID")
Me.columnGameID = MyBase.Columns("GameID")
Me.columnReview = MyBase.Columns("Review")
End Sub
_
Private Sub InitClass()
Me.columnReviewID = New Global.System.Data.DataColumn("ReviewID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnReviewID)
Me.columnGameID = New Global.System.Data.DataColumn("GameID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnGameID)
Me.columnReview = New Global.System.Data.DataColumn("Review", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnReview)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnReviewID}, true))
Me.columnReviewID.AutoIncrement = true
Me.columnReviewID.AutoIncrementSeed = -1
Me.columnReviewID.AutoIncrementStep = -1
Me.columnReviewID.AllowDBNull = false
Me.columnReviewID.Unique = true
Me.columnReview.MaxLength = 536870910
End Sub
_
Public Function NewReviewsRow() As ReviewsRow
Return CType(Me.NewRow,ReviewsRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New ReviewsRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(ReviewsRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.ReviewsRowChangedEvent) Is Nothing) Then
RaiseEvent ReviewsRowChanged(Me, New ReviewsRowChangeEvent(CType(e.Row,ReviewsRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.ReviewsRowChangingEvent) Is Nothing) Then
RaiseEvent ReviewsRowChanging(Me, New ReviewsRowChangeEvent(CType(e.Row,ReviewsRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.ReviewsRowDeletedEvent) Is Nothing) Then
RaiseEvent ReviewsRowDeleted(Me, New ReviewsRowChangeEvent(CType(e.Row,ReviewsRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.ReviewsRowDeletingEvent) Is Nothing) Then
RaiseEvent ReviewsRowDeleting(Me, New ReviewsRowChangeEvent(CType(e.Row,ReviewsRow), e.Action))
End If
End Sub
_
Public Sub RemoveReviewsRow(ByVal row As ReviewsRow)
Me.Rows.Remove(row)
End Sub
_
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
Dim ds As NEADataSet = New NEADataSet()
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
any1.MinOccurs = New Decimal(0)
any1.MaxOccurs = Decimal.MaxValue
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any1)
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
any2.MinOccurs = New Decimal(1)
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any2)
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute1.Name = "namespace"
attribute1.FixedValue = ds.Namespace
type.Attributes.Add(attribute1)
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute2.Name = "tableTypeName"
attribute2.FixedValue = "ReviewsDataTable"
type.Attributes.Add(attribute2)
type.Particle = sequence
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
If xs.Contains(dsSchema.TargetNamespace) Then
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Try
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
dsSchema.Write(s1)
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
Do While schemas.MoveNext
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
s2.SetLength(0)
schema.Write(s2)
If (s1.Length = s2.Length) Then
s1.Position = 0
s2.Position = 0
Do While ((s1.Position <> s1.Length) _
AndAlso (s1.ReadByte = s2.ReadByte))
Loop
If (s1.Position = s1.Length) Then
Return type
End If
End If
Loop
Finally
If (Not (s1) Is Nothing) Then
s1.Close
End If
If (Not (s2) Is Nothing) Then
s2.Close
End If
End Try
End If
xs.Add(dsSchema)
Return type
End Function
End Class
'''
'''Represents the strongly named DataTable class.
'''
_
Partial Public Class TagsDataTable
Inherits Global.System.Data.TypedTableBase(Of TagsRow)
Private columnID As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "Tags"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
_
Friend Sub New(ByVal table As Global.System.Data.DataTable)
MyBase.New
Me.TableName = table.TableName
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
Me.CaseSensitive = table.CaseSensitive
End If
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
Me.Locale = table.Locale
End If
If (table.Namespace <> table.DataSet.Namespace) Then
Me.Namespace = table.Namespace
End If
Me.Prefix = table.Prefix
Me.MinimumCapacity = table.MinimumCapacity
End Sub
_
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
Me.InitVars
End Sub
_
Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnID
End Get
End Property
_
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
_
Public Default ReadOnly Property Item(ByVal index As Integer) As TagsRow
Get
Return CType(Me.Rows(index),TagsRow)
End Get
End Property
_
Public Event TagsRowChanging As TagsRowChangeEventHandler
_
Public Event TagsRowChanged As TagsRowChangeEventHandler
_
Public Event TagsRowDeleting As TagsRowChangeEventHandler
_
Public Event TagsRowDeleted As TagsRowChangeEventHandler
_
Public Overloads Sub AddTagsRow(ByVal row As TagsRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddTagsRow() As TagsRow
Dim rowTagsRow As TagsRow = CType(Me.NewRow,TagsRow)
Dim columnValuesArray() As Object = New Object() {Nothing}
rowTagsRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTagsRow)
Return rowTagsRow
End Function
_
Public Function FindByID(ByVal ID As Integer) As TagsRow
Return CType(Me.Rows.Find(New Object() {ID}),TagsRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As TagsDataTable = CType(MyBase.Clone,TagsDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TagsDataTable()
End Function
_
Friend Sub InitVars()
Me.columnID = MyBase.Columns("ID")
End Sub
_
Private Sub InitClass()
Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnID)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true))
Me.columnID.AutoIncrement = true
Me.columnID.AutoIncrementSeed = -1
Me.columnID.AutoIncrementStep = -1
Me.columnID.AllowDBNull = false
Me.columnID.Unique = true
End Sub
_
Public Function NewTagsRow() As TagsRow
Return CType(Me.NewRow,TagsRow)
End Function