Skip to content
This repository has been archived by the owner on Jun 6, 2023. It is now read-only.

Commit

Permalink
Correction bug liste cartes
Browse files Browse the repository at this point in the history
  • Loading branch information
@jfcollin
jfcollin committed Nov 26, 2012
1 parent 61df418 commit c7811ad
Show file tree
Hide file tree
Showing 2 changed files with 65 additions and 124 deletions.
13 changes: 11 additions & 2 deletions contenu/HobbyCartes/HobbyCartes/Entites/Message.vb
View file
Expand Up @@ -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()
Expand Down
176 changes: 54 additions & 122 deletions contenu/HobbyCartes/HobbyCartes/MembreListeCartes.aspx.vb
View file
Expand Up @@ -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
Expand All @@ -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
Expand Down

0 comments on commit c7811ad

Please sign in to comment.