X-Git-Url: https://fbox.kageds.com/gitweb/NEATEST.git/blobdiff_plain/32b2b293bfb2fd56e2b24c67bb5c2a809b38b523..0578c72ba1aa48d80213fea8a156c19e379f5f2c:/NEA/NEADataSet.Designer.vb?ds=inline diff --git a/NEA/NEADataSet.Designer.vb b/NEA/NEADataSet.Designer.vb index aa6cc4f..17f52ea 100644 --- a/NEA/NEADataSet.Designer.vb +++ b/NEA/NEADataSet.Designer.vb @@ -1604,12 +1604,12 @@ Partial Public Class NEADataSet 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 + Private columnIcon As Global.System.Data.DataColumn + _ Public Sub New() @@ -1703,25 +1703,25 @@ Partial Public Class NEADataSet _ - Public ReadOnly Property IconColumn() As Global.System.Data.DataColumn + Public ReadOnly Property TagsColumn() As Global.System.Data.DataColumn Get - Return Me.columnIcon + Return Me.columnTags End Get End Property _ - Public ReadOnly Property TagsColumn() As Global.System.Data.DataColumn + Public ReadOnly Property Theme_ColourColumn() As Global.System.Data.DataColumn Get - Return Me.columnTags + Return Me.columnTheme_Colour End Get End Property _ - Public ReadOnly Property Theme_ColourColumn() As Global.System.Data.DataColumn + Public ReadOnly Property IconColumn() As Global.System.Data.DataColumn Get - Return Me.columnTheme_Colour + Return Me.columnIcon End Get End Property @@ -1762,9 +1762,9 @@ Partial Public Class NEADataSet _ - 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 + 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 Tags As String, ByVal Theme_Colour As Integer, ByVal Icon() As Byte) 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} + Dim columnValuesArray() As Object = New Object() {Nothing, Name, Price, Rating, Certificate, Dev, Publisher, Tags, Theme_Colour, Icon} rowGamesRow.ItemArray = columnValuesArray Me.Rows.Add(rowGamesRow) Return rowGamesRow @@ -1800,9 +1800,9 @@ Partial Public Class NEADataSet 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") + Me.columnIcon = MyBase.Columns("Icon") End Sub _ - Public Property Icon() As String + Public Property Tags() As String Get Try - Return CType(Me(Me.tableGames.IconColumn),String) + Return CType(Me(Me.tableGames.TagsColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Icon' in table 'Games' is DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'Tags' in table 'Games' is DBNull.", e) End Try End Get Set - Me(Me.tableGames.IconColumn) = value + Me(Me.tableGames.TagsColumn) = value End Set End Property _ - Public Property Tags() As String + Public Property Theme_Colour() As Integer Get Try - Return CType(Me(Me.tableGames.TagsColumn),String) + Return CType(Me(Me.tableGames.Theme_ColourColumn),Integer) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Tags' in table 'Games' is DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'Theme Colour' in table 'Games' is DBNull.", e) End Try End Get Set - Me(Me.tableGames.TagsColumn) = value + Me(Me.tableGames.Theme_ColourColumn) = value End Set End Property _ - Public Property Theme_Colour() As Integer + Public Property Icon() As Byte() Get Try - Return CType(Me(Me.tableGames.Theme_ColourColumn),Integer) + Return CType(Me(Me.tableGames.IconColumn),Byte()) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Theme Colour' in table 'Games' is DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'Icon' in table 'Games' is DBNull.", e) End Try End Get Set - Me(Me.tableGames.Theme_ColourColumn) = value + Me(Me.tableGames.IconColumn) = value End Set End Property @@ -4481,18 +4480,6 @@ Partial Public Class NEADataSet Me(Me.tableGames.PublisherColumn) = Global.System.Convert.DBNull End Sub - _ - Public Function IsIconNull() As Boolean - Return Me.IsNull(Me.tableGames.IconColumn) - End Function - - _ - Public Sub SetIconNull() - Me(Me.tableGames.IconColumn) = Global.System.Convert.DBNull - End Sub - _ Public Function IsTagsNull() As Boolean @@ -4517,6 +4504,18 @@ Partial Public Class NEADataSet Me(Me.tableGames.Theme_ColourColumn) = Global.System.Convert.DBNull End Sub + _ + Public Function IsIconNull() As Boolean + Return Me.IsNull(Me.tableGames.IconColumn) + End Function + + _ + Public Sub SetIconNull() + Me(Me.tableGames.IconColumn) = Global.System.Convert.DBNull + End Sub + _ Public Function GetAchievementRows() As AchievementRow() @@ -6903,9 +6902,9 @@ Namespace NEADataSetTableAdapters tableMapping.ColumnMappings.Add("Certificate", "Certificate") tableMapping.ColumnMappings.Add("Dev", "Dev") tableMapping.ColumnMappings.Add("Publisher", "Publisher") - tableMapping.ColumnMappings.Add("Icon", "Icon") tableMapping.ColumnMappings.Add("Tags", "Tags") tableMapping.ColumnMappings.Add("Theme Colour", "Theme Colour") + tableMapping.ColumnMappings.Add("Icon", "Icon") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand() Me._adapter.DeleteCommand.Connection = Me.Connection @@ -6926,7 +6925,7 @@ Namespace NEADataSetTableAdapters Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO `Games` (`Name`, `Price`, `Rating`, `Certificate`, `Dev`, `Publisher`"& _ - ", `Icon`, `Tags`, `Theme Colour`) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?)" + ", `Tags`, `Theme Colour`, `Icon`) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text 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)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Price", Global.System.Data.OleDb.OleDbType.Currency, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Price", Global.System.Data.DataRowVersion.Current, false, Nothing)) @@ -6934,13 +6933,13 @@ Namespace NEADataSetTableAdapters 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)) 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)) 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)) - 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)) 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)) 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)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Icon", Global.System.Data.OleDb.OleDbType.LongVarBinary, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Icon", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE `Games` SET `Name` = ?, `Price` = ?, `Rating` = ?, `Certificate` = ?, `Dev"& _ - "` = ?, `Publisher` = ?, `Icon` = ?, `Tags` = ?, `Theme Colour` = ? WHERE ((`Game"& _ + "` = ?, `Publisher` = ?, `Tags` = ?, `Theme Colour` = ?, `Icon` = ? WHERE ((`Game"& _ "ID` = ?) AND ((? = 1 AND `Price` IS NULL) OR (`Price` = ?)) AND ((? = 1 AND `Rat"& _ "ing` IS NULL) OR (`Rating` = ?)) AND ((? = 1 AND `Certificate` IS NULL) OR (`Cer"& _ "tificate` = ?)) AND ((? = 1 AND `Theme Colour` IS NULL) OR (`Theme Colour` = ?))"& _ @@ -6952,9 +6951,9 @@ Namespace NEADataSetTableAdapters 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)) 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)) 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)) - 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)) 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)) 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)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Icon", Global.System.Data.OleDb.OleDbType.LongVarBinary, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Icon", Global.System.Data.DataRowVersion.Current, false, Nothing)) 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)) 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)) 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)) @@ -6979,8 +6978,8 @@ Namespace NEADataSetTableAdapters Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {} Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GameID, Name, Price, Rating, Certificate, Dev, Publisher, Icon, Tags, [The"& _ - "me Colour] FROM Games" + Me._commandCollection(0).CommandText = "SELECT GameID, Name, Price, Rating, Certificate, Dev, Publisher, Tags, [Theme Col"& _ + "our], Icon FROM Games" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub @@ -7089,7 +7088,7 @@ Namespace NEADataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _ - 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 + 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 Tags As String, ByVal Theme_Colour As Global.System.Nullable(Of Integer), ByVal Icon() As Byte) As Integer If (Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else @@ -7120,20 +7119,20 @@ Namespace NEADataSetTableAdapters Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(Publisher,String) End If - If (Icon Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(Icon,String) - End If If (Tags Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(7).Value = CType(Tags,String) + Me.Adapter.InsertCommand.Parameters(6).Value = CType(Tags,String) End If If (Theme_Colour.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(8).Value = CType(Theme_Colour.Value,Integer) + Me.Adapter.InsertCommand.Parameters(7).Value = CType(Theme_Colour.Value,Integer) Else + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (Icon Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(Icon,Byte()) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ @@ -7154,7 +7153,7 @@ Namespace NEADataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ - 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 + 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 Tags As String, ByVal Theme_Colour As Global.System.Nullable(Of Integer), ByVal Icon() As Byte, 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 If (Name Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else @@ -7185,20 +7184,20 @@ Namespace NEADataSetTableAdapters Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Publisher,String) End If - If (Icon Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Icon,String) - End If If (Tags Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Tags,String) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Tags,String) End If If (Theme_Colour.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Theme_Colour.Value,Integer) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Theme_Colour.Value,Integer) Else + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (Icon Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Icon,Byte()) End If Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GameID,Integer) If (Original_Price.HasValue = true) Then