From c7811ad61967cd743fbef2f2f6d2d9e17e41a7d9 Mon Sep 17 00:00:00 2001 From: Jean-Francois Collin Date: Mon, 26 Nov 2012 13:51:38 -0500 Subject: [PATCH] Correction bug liste cartes --- .../HobbyCartes/Entites/Message.vb | 13 +- .../HobbyCartes/MembreListeCartes.aspx.vb | 176 ++++++------------ 2 files changed, 65 insertions(+), 124 deletions(-) diff --git a/contenu/HobbyCartes/HobbyCartes/Entites/Message.vb b/contenu/HobbyCartes/HobbyCartes/Entites/Message.vb index c161227..c53ab31 100644 --- a/contenu/HobbyCartes/HobbyCartes/Entites/Message.vb +++ b/contenu/HobbyCartes/HobbyCartes/Entites/Message.vb @@ -38,10 +38,19 @@ Namespace Entites Public Sub New(id As Integer) Dim dbCon As MySqlConnection = New MySqlConnection(My.Resources.StringConnexionBdd) dbCon.Open() - End Sub + Dim dbCom As MySqlCommand = New MySqlCommand("SELECT * FROM message WHERE idmess=" & id, dbCon) + Dim dbRead As MySqlDataReader = dbCom.ExecuteReader() + dbRead.Read() + m_id = id + m_idDestinataire = dbRead.GetInt32("iddestinataire") + m_idDestinateur = dbRead.GetInt32("iddestinateur") + m_objet = dbRead.GetString("objetmes") + m_contenu = dbRead.GetString("mesmes") + dbRead.Close() + dbCon.Close() + End Sub Public Sub New(id As Integer, dbCon As MySqlConnection) - Dim dbCom As MySqlCommand = New MySqlCommand("SELECT * FROM message WHERE idmess=" & id, dbCon) Dim dbRead As MySqlDataReader = dbCom.ExecuteReader() dbRead.Read() diff --git a/contenu/HobbyCartes/HobbyCartes/MembreListeCartes.aspx.vb b/contenu/HobbyCartes/HobbyCartes/MembreListeCartes.aspx.vb index 8386485..01469e2 100644 --- a/contenu/HobbyCartes/HobbyCartes/MembreListeCartes.aspx.vb +++ b/contenu/HobbyCartes/HobbyCartes/MembreListeCartes.aspx.vb @@ -10,7 +10,6 @@ Imports MySql.Data.MySqlClient Public Class MembreListeCartes Inherits System.Web.UI.Page - Private m_sportEnCours As Entites.Collection.Type Private m_membre As Entites.Membre Private m_collection As Entites.Collection Private m_connection As MySqlConnection @@ -21,168 +20,101 @@ Public Class MembreListeCartes m_connection.Open() 'Détermination du membre en cours - m_membre = New Entites.Membre(1, m_connection) - 'Création de la collection du membre si existe - m_collection = New Entites.Collection(m_membre.id, m_connection) - m_sportEnCours = m_collection.TypeCollection - If Not changementSport() Then - changerVisibilite(Entites.Collection.Type.Hockey, True) + Dim id As Integer + Dim accesParId As Boolean = False + + id = Entites.Membre.getIDbyPseudo(Request.QueryString("pseudo"), m_connection) + + 'Vérifie si la page est accédée par pseudo + If Not id.Equals(-1) Then + m_membre = New Entites.Membre(id, m_connection) + Else + 'Ou par identificateur + If Boolean.Parse(Session("connected")) Then + id = Integer.Parse(Session("idMembre")) + m_membre = New Entites.Membre(id, m_connection) + accesParId = True + Else + Erreur.afficherErreur(Me) + End If End If + + chargerListe(Entites.Collection.Type.hockey) End Sub - Private Function changementSport() As Boolean - m_collection.chargementNouvCollection(m_sportEnCours, m_membre.id) - m_sportEnCours = m_collection.TypeCollection - - 'Détermintation de la liste à afficher - Select Case m_sportEnCours - Case Entites.Collection.Type.Baseball - changerVisibilite(Entites.Collection.Type.Baseball, False) - - 'Chargement de la liste de fiches pour Baseball - If Not chargementListe(phBaseball) Then - lblPasDeFiche.Visible = True - End If - Case Entites.Collection.Type.Basketball - changerVisibilite(Entites.Collection.Type.Basketball, False) - - 'Chargement de la liste de fiches pour Basketball - If Not chargementListe(phBasketball) Then - lblPasDeFiche.Visible = True - End If - Case Entites.Collection.Type.Football - changerVisibilite(Entites.Collection.Type.Football, False) - - 'Chargement de la liste de fiches pour Football - If Not chargementListe(phFootball) Then - lblPasDeFiche.Visible = True - End If - Case Entites.Collection.Type.Hockey - changerVisibilite(Entites.Collection.Type.Hockey, False) - - 'Chargement de la liste de fiches pour Hockey - If Not chargementListe(phHockey) Then - lblPasDeFiche.Visible = True - End If - Case Else - Return False - End Select - Return True - End Function - - Private Function chargementListe(placeHolder As PlaceHolder) As Boolean - 'Détermination de l'existance d'une liste de fiche dans la collection - If Not m_collection.ListeFiches Is Nothing Then - placeHolder.Controls.Clear() - - 'Affichage de chaque fiche en version abrégée - For Each fiche In m_collection.ListeFiches - 'Nouvelle division + Private Sub chargerListe(sport As Entites.Collection.Type) + Dim col As Entites.Collection = New Entites.Collection(m_membre.id, sport, m_connection) + phMembreListeCartes.Controls.Clear() + + If col.ListeFiches.Count = 0 Then + lblPasDeFiche.Text = "Il n'y a pas de fiche dans cette collection" + lblPasDeFiche.Visible = True + Else + lblPasDeFiche.Visible = False + For Each Fiche In col.ListeFiches Dim nouvDiv As New HtmlGenericControl("div") nouvDiv.Attributes.Add("class", "listeFiches") - nouvDiv.ID = fiche.ID.ToString - 'Image de la fiche - Dim nouvImgAvant As New Image() - nouvImgAvant.ImageUrl = fiche.ImageAvant - nouvImgAvant.Attributes.Add("alt", "imgAvant" + fiche.ID.ToString) - nouvImgAvant.Width = 100 - nouvImgAvant.Height = 125 - nouvDiv.Controls.Add(nouvImgAvant) + 'Image avant + Dim nouvA As New HtmlGenericControl("a") + nouvA.Attributes.Add("href", "Fiche.aspx?idFiche=" + Fiche.ID.ToString) + Dim nouvImage As New Image() + nouvImage.ID = "img" + Fiche.ID.ToString + nouvImage.ImageUrl = Fiche.ImageAvant + nouvImage.Attributes.Add("alt", "imgAvant" + Fiche.ID.ToString) + nouvImage.Width = 100 + nouvImage.Height = 125 + nouvA.Controls.Add(nouvImage) + nouvDiv.Controls.Add(nouvA) 'Prénom et nom Dim nouvNom As New HyperLink() nouvNom.Attributes.Add("class", "lnkbtnNomFiches") - nouvNom.ID = "lnkbtnNom*" + fiche.ID.ToString - nouvNom.Text = fiche.NomJoueur + ", " + fiche.PrenomJoueur + " " - nouvNom.NavigateUrl = "Fiche.aspx?idFiche=" + fiche.ID.ToString + nouvNom.ID = "lnkbtnNom*" + Fiche.ID.ToString + nouvNom.Text = Fiche.NomJoueur + ", " + Fiche.PrenomJoueur + " " + nouvNom.NavigateUrl = "Fiche.aspx?idFiche=" + Fiche.ID.ToString nouvDiv.Controls.Add(nouvNom) 'Année de la carte Dim nouvAnnee As New Label() nouvAnnee.Attributes.Add("class", "lblAnneeFiches") - nouvAnnee.ID = "lblAnneeCarte" + fiche.ID.ToString - nouvAnnee.Text = "Année: " + fiche.DateCarte.Year.ToString + " " + nouvAnnee.ID = "lblAnneeCarte" + Fiche.ID.ToString + nouvAnnee.Text = "Année: " + Fiche.DateCarte.Year.ToString + " " nouvDiv.Controls.Add(nouvAnnee) 'Éditeur de la carte Dim nouvEditeur As New Label() nouvEditeur.Attributes.Add("class", "lblEditeurFiches") - nouvEditeur.ID = "lblEditeur" + fiche.ID.ToString - nouvEditeur.Text = "Éditeur: " + fiche.Editeur.NomEditeur + " " + nouvEditeur.ID = "lblEditeur" + Fiche.ID.ToString + nouvEditeur.Text = "Éditeur: " + Fiche.Editeur.nomEditeur + " " nouvDiv.Controls.Add(nouvEditeur) 'Valeur de la carte Dim nouvValeur As New Label() nouvValeur.Attributes.Add("class", "lblValeurFiches") - nouvValeur.ID = "lblValeur" + fiche.ID.ToString - nouvValeur.Text = "Valeur: " + FormatCurrency(fiche.Valeur, 2) + "CAD" + nouvValeur.ID = "lblValeur" + Fiche.ID.ToString + nouvValeur.Text = "Valeur: " + FormatCurrency(Fiche.Valeur, 2) + "CAD" nouvDiv.Controls.Add(nouvValeur) - 'Affichage de la fiche abrégée - placeHolder.Controls.Add(nouvDiv) + phMembreListeCartes.Controls.Add(nouvDiv) Next - Return True - Else - Return False End If - End Function - - Private Sub changerVisibilite(ByVal sport As Entites.Collection.Type, ByVal isSportNothing As Boolean) - Select Case sport - Case Entites.Collection.Type.Baseball - phBaseball.Visible = True - phBasketball.Visible = False - phFootball.Visible = False - phHockey.Visible = False - - Case Entites.Collection.Type.Basketball - phBaseball.Visible = False - phBasketball.Visible = True - phFootball.Visible = False - phHockey.Visible = False - - Case Entites.Collection.Type.Football - phBaseball.Visible = False - phBasketball.Visible = False - phFootball.Visible = True - phHockey.Visible = False - - Case Entites.Collection.Type.Hockey - phBaseball.Visible = False - phBasketball.Visible = False - phFootball.Visible = False - phHockey.Visible = True - - End Select End Sub Protected Sub lnkbtnHockey_click(sender As Object, e As EventArgs) Handles lnkbtnHockey.Click - m_sportEnCours = Entites.Collection.Type.Hockey - If Not changementSport() Then - changerVisibilite(Entites.Collection.Type.Hockey, True) - End If + chargerListe(Entites.Collection.Type.hockey) End Sub Protected Sub lnkbtnBaseball_click(sender As Object, e As EventArgs) Handles lnkbtnBaseball.Click - m_sportEnCours = Entites.Collection.Type.Baseball - If Not changementSport() Then - changerVisibilite(Entites.Collection.Type.Baseball, True) - End If + chargerListe(Entites.Collection.Type.baseball) End Sub Protected Sub lnkbtnBasketball_click(sender As Object, e As EventArgs) Handles lnkbtnBasketball.Click - m_sportEnCours = Entites.Collection.Type.Basketball - If Not changementSport() Then - changerVisibilite(Entites.Collection.Type.Basketball, True) - End If + chargerListe(Entites.Collection.Type.basketball) End Sub Protected Sub lnkbtnFootball_click(sender As Object, e As EventArgs) Handles lnkbtnFootball.Click - m_sportEnCours = Entites.Collection.Type.Football - If Not changementSport() Then - changerVisibilite(Entites.Collection.Type.Football, True) - End If + chargerListe(Entites.Collection.Type.football) End Sub Protected Sub page_unload(sender As Object, e As EventArgs) Handles Me.Unload