Termine l'envoi de message et avance la partie "visualisation"

contenu/HobbyCartes/HobbyCartes/Membre.vb

@@ -5,6 +5,8 @@ Namespace Entitees
 
     Public Class Membre
 
+        Private m_id As Integer
+
         Private m_prenom As String
 
         Private m_nom As String
@@ -13,7 +15,7 @@ Namespace Entitees
 
         Private m_motDePasse As String
 
-        Private _mville As String
+        Private m_ville As String
 
         Private m_codePostal As String
 
@@ -27,13 +29,6 @@ Namespace Entitees
 
         Private m_dbConnection As MySqlConnection
 
-        ''' <summary>
-        ''' Constructeur par defaut.
-        ''' </summary>
-        Public Sub New(dbCon As MySqlConnection)
-            m_dbConnection = dbCon
-        End Sub
-
         ''' <summary>
         ''' Construit un membre avec son id dans la base de donnees.
         ''' Le membre va se construire en chargeant ses attributs depuis la base de donnees passee en parametre.
@@ -49,8 +44,12 @@ Namespace Entitees
             Dim dbRead As MySqlDataReader = dbCom.ExecuteReader()
             dbRead.Read()
             ' Chargement des attributs
+            m_id = id
             m_prenom = dbRead.GetString("prenom")
             m_nom = dbRead.GetString("nom")
+            m_dbConnection = dbCon
+            ' TODO chargement des autres attributs
+            dbRead.Close()
         End Sub
 
         ''' <summary>
@@ -99,6 +98,31 @@ Namespace Entitees
             End Get
         End Property
 
+
+        ''' <summary>
+        ''' Accesseur de l'id du membre
+        ''' </summary>
+        Public ReadOnly Property id() As Integer
+            Get
+                Return m_id
+            End Get
+        End Property
+
+        ''' <summary>
+        ''' Envoie un message a un autre membre.
+        ''' </summary>
+        ''' <param name="destinataire">Le destinataire du message</param>
+        ''' <param name="objet">L'objet du message</param>
+        ''' <param name="contenu">Le contenu du message</param>
+        Sub envoyerMessage(destinataire As Membre, objet As String, contenu As String)
+            Dim dbCom As MySqlCommand = New MySqlCommand("INSERT INTO message (iddestinataire, iddestinateur, objet, mess) " &
+                                                        "VALUES(" & destinataire.id & ", " & Me.id & ", '" & objet & "', '" & contenu & "');",
+                                                        m_dbConnection)
+            dbCom.ExecuteNonQuery()
+        End Sub
+
+
+
         Public Function nouvMembre(ByVal prenom As String, ByVal nom As String, ByVal ville As String, ByVal codePostal As String, ByVal courriel As String, ByVal nomUtilisateur As String, ByVal motPass As String, ByRef msgErreur As String) As Boolean
             m_arrierePlan = ""
             m_codePostal = codePostal

contenu/HobbyCartes/HobbyCartes/MembreEnvoiMessage.aspx.vb

@@ -21,6 +21,16 @@ Public Class MembreEnvoiMessage
     ''' </summary>
     Private destinateur As Entitees.Membre
 
+    ''' <summary>
+    ''' L'objet du message
+    ''' </summary>
+    Private objet As String
+
+    ''' <summary>
+    ''' Le contenu du message
+    ''' </summary>
+    Private contenu As String
+
     ''' <summary>
     ''' Chargement de la page
     ''' </summary>
@@ -40,7 +50,7 @@ Public Class MembreEnvoiMessage
         lbNom.Text = destinataire.nomComplet
         ' Chargement du destinateur avec la session de l'utilisateur
         ' destinateur = Session("membre")
-        'destinateur = New Entitees.Membre()
+        ' TODO
     End Sub
 
     ''' <summary>
@@ -53,7 +63,7 @@ Public Class MembreEnvoiMessage
         Dim contenu As String = txtContenu.Text
         ' Envoi du message au destinataire
         Try
-            'destinateur.envoyerMessage(destinataire, objet, contenu, dbCon)
+            destinateur.envoyerMessage(destinataire, objet, contenu)
             ' Affiche la page de succes si tout s'est bien passe
             ' TODO
         Catch ex As Exception

contenu/HobbyCartes/HobbyCartes/MembreVisualiserMessages.aspx

@@ -3,6 +3,7 @@
 <asp:Content ContentPlaceHolderID="cphPageMembreContenu" runat="server">
     <div id="visualiser_messages">
         <h1>Messagerie</h1>
+        <div id="liste_messages" runat="server" />
         <div class="message">
             <div class="boxSuppr">Supprimer <asp:CheckBox runat="server" /></div>
             Destinateur : Bob<br />
@@ -20,7 +21,7 @@
         </div>
         <div class="message">
             <div class="boxSuppr">Supprimer <asp:CheckBox runat="server" /></div>
-            Destinateur : Bob<br />
+            Destinateur : Bosb<br />
             Objet : Hej !
         </div>
         <div id="btnSuppr">

contenu/HobbyCartes/HobbyCartes/MembreVisualiserMessages.aspx.vb

@@ -1,8 +1,41 @@
-Public Class MembreVisualiserMessages
+Imports MySql.Data.MySqlClient
+
+''' <summary>
+''' Page de visualisation des messages du membre
+''' </summary>
+Public Class MembreVisualiserMessages
     Inherits System.Web.UI.Page
 
-    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+    ''' <summary>
+    ''' La liste des messages
+    ''' </summary>
+    ''' <remarks></remarks>
+    Private messages As List(Of Entitees.Message)
+
+    ''' <summary>
+    ''' La connexion a la base de donnees
+    ''' </summary>
+    Private dbCon As MySqlConnection
+
+    ''' <summary>
+    ''' Chargement de la page
+    ''' </summary>
+    Protected Sub Page_Load() Handles Me.Load
+        ' Ouvre la connexion a la base de donnees
+        dbCon = New MySqlConnection("Server=G264-11;Database=test;Uid=root;Pwd=toor;")
+        dbCon.Open()
+        ' Chargement de la liste de messages
+        messages = Entitees.Message.getListe(1, dbCon)
+        For i As Integer = 1 To 5
+
+        Next
+    End Sub
 
+    ''' <summary>
+    ''' Fermeture de la page
+    ''' </summary>
+    Protected Sub Page_Unload() Handles Me.Unload
+        dbCon.Close()
     End Sub
 
 End Class

contenu/HobbyCartes/HobbyCartes/Message.vb

@@ -1,15 +1,47 @@
-Namespace Entitees
+Imports MySql.Data.MySqlClient
 
-    Public Class Message
-
-        Private destinateur As Membre
-
-        Private destinataire As Membre
+Namespace Entitees
 
-        Private objet As String
-
-        Private message As String
+    Public Class Message
 
+        Private m_id As Integer
+
+        Private m_idDestinateur As Integer
+
+        Private m_idDestinataire As Integer
+
+        Private m_objet As String
+
+        Private m_contenu As String
+
+        ''' <summary>
+        ''' Construit un message
+        ''' </summary>
+        Public Sub New(id As Integer, idDestinateur As Integer, idDestinataire As Integer, objet As String, contenu As String)
+            m_id = id
+            m_idDestinataire = idDestinataire
+            m_idDestinateur = m_idDestinateur
+            m_objet = objet
+            m_contenu = contenu
+        End Sub
+
+        ''' <summary>
+        ''' Recupere et retourne la liste des messages dont le destinataire est le membre dont l'id est passee en parametre
+        ''' </summary>
+        Public Shared Function getListe(idMembre As Integer, dbCon As MySqlConnection) As List(Of Message)
+            Dim listeMessages As List(Of Message) = New List(Of Message)
+            Dim dbCom As MySqlCommand = New MySqlCommand("SELECT * FROM message WHERE iddestinataire=" & idMembre, dbCon)
+            Dim dbRead As MySqlDataReader = dbCom.ExecuteReader()
+            While dbRead.Read()
+                Dim message As Message = New Message(dbRead.GetInt16("idmess"),
+                                                     dbRead.GetInt16("iddestinataire"),
+                                                     dbRead.GetInt16("iddestinateur"),
+                                                     dbRead.GetString("objet"),
+                                                     dbRead.GetString("mess"))
+            End While
+            dbRead.Close()
+            Return listeMessages
+        End Function
 
     End Class