Browse files

Merge branch 'master' of https://github.com/krazdax5/HobbyCartes

  • Loading branch information...
2 parents 5ce6a1a + 06f2176 commit e216b26aeecebe776b68ef3487320ffbcc6443ad @coylz coylz committed Nov 26, 2012
View
13 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()
View
2 contenu/HobbyCartes/HobbyCartes/Membre.master.vb
@@ -12,7 +12,7 @@ Imports MySql.Data.MySqlClient
Public Class Membre
Inherits System.Web.UI.MasterPage
- Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+ Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
initSession()
Dim connected As Boolean = Boolean.Parse(Session("connected"))
View
16 contenu/HobbyCartes/HobbyCartes/MembreListeCartes.aspx
@@ -9,23 +9,11 @@
</ul>
</div>
<div id="liste_contenu">
- <asp:PlaceHolder ID="phHockey" runat="server" Visible="false">
+ <asp:PlaceHolder ID="phMembreListeCartes" runat="server">
</asp:PlaceHolder>
- <asp:PlaceHolder ID="phBaseball" runat="server" Visible="false">
-
- </asp:PlaceHolder>
-
- <asp:PlaceHolder ID="phBasketball" runat="server" Visible="false">
-
- </asp:PlaceHolder>
-
- <asp:PlaceHolder ID="phFootball" runat="server" Visible="false">
-
- </asp:PlaceHolder>
-
- <asp:Label ID="lblPasDeFiche" runat="server" Text="Il n'y a pas de fiches dans votre collection." Visible="false" CssClass="lblPasDeFiches"></asp:Label>
+ <asp:Label ID="lblPasDeFiche" runat="server" Text="" CssClass="lblPasDeFiches"></asp:Label>
</div>
</asp:Content>
View
31 contenu/HobbyCartes/HobbyCartes/MembreListeCartes.aspx.designer.vb
@@ -86,40 +86,13 @@ Partial Public Class MembreListeCartes
Protected WithEvents lnkbtnFootball As Global.System.Web.UI.WebControls.LinkButton
'''<summary>
- '''Contrôle phHockey.
+ '''Contrôle phMembreListeCartes.
'''</summary>
'''<remarks>
'''Champ généré automatiquement.
'''Pour modifier, déplacez la déclaration de champ du fichier de concepteur dans le fichier code-behind.
'''</remarks>
- Protected WithEvents phHockey As Global.System.Web.UI.WebControls.PlaceHolder
-
- '''<summary>
- '''Contrôle phBaseball.
- '''</summary>
- '''<remarks>
- '''Champ généré automatiquement.
- '''Pour modifier, déplacez la déclaration de champ du fichier de concepteur dans le fichier code-behind.
- '''</remarks>
- Protected WithEvents phBaseball As Global.System.Web.UI.WebControls.PlaceHolder
-
- '''<summary>
- '''Contrôle phBasketball.
- '''</summary>
- '''<remarks>
- '''Champ généré automatiquement.
- '''Pour modifier, déplacez la déclaration de champ du fichier de concepteur dans le fichier code-behind.
- '''</remarks>
- Protected WithEvents phBasketball As Global.System.Web.UI.WebControls.PlaceHolder
-
- '''<summary>
- '''Contrôle phFootball.
- '''</summary>
- '''<remarks>
- '''Champ généré automatiquement.
- '''Pour modifier, déplacez la déclaration de champ du fichier de concepteur dans le fichier code-behind.
- '''</remarks>
- Protected WithEvents phFootball As Global.System.Web.UI.WebControls.PlaceHolder
+ Protected WithEvents phMembreListeCartes As Global.System.Web.UI.WebControls.PlaceHolder
'''<summary>
'''Contrôle lblPasDeFiche.
View
176 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

0 comments on commit e216b26

Please sign in to comment.