Skip to content
This repository

Modifs #2

Open
wants to merge 1 commit into from

2 participants

Charles Levesque Jean-Francois Collin
Charles Levesque
Owner

No description provided.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment

Showing 1 unique commit by 1 author.

Nov 12, 2012
Jean-Francois Collin Modifs 403654d
This page is out of date. Refresh to see the latest.
8  contenu/HobbyCartes/HobbyCartes/Accueil.aspx.vb
... ...
@@ -1,4 +1,10 @@
1  
-Imports MySql.Data
  1
+'--------------------------------------------------------------------------
  2
+' Titre: Acceuil.aspx.vb
  3
+' Auteur: Jean-François Collin
  4
+' Date: Octobre 2012
  5
+'--------------------------------------------------------------------------
  6
+
  7
+Imports MySql.Data
2 8
 Imports MySql.Data.MySqlClient
3 9
 
4 10
 Public Class Accueil
30  contenu/HobbyCartes/HobbyCartes/Administration.aspx
@@ -2,26 +2,46 @@
2 2
 
3 3
 <asp:Content ContentPlaceHolderID="cphCorps" runat="server">
4 4
     <asp:ScriptManager ID="smAdmin" runat="server" />
5  
-    
  5
+    <script type="text/javascript">
  6
+        function AfficherMessage() {
  7
+            $(document).ready(function () {
  8
+                $("#dMessage").slideDown("slow");
  9
+            });
  10
+        }
  11
+        $(document).ready(function () {
  12
+            $("#dMessage").hide();
  13
+        });
  14
+    </script>
  15
+
6 16
     <div id="administration">
  17
+        <asp:Label ID="lblDialogue" runat="server" Text=""></asp:Label>
7 18
          <div id="boutons">
8 19
             <ul>
9 20
                 <li runat="server"><asp:LinkButton ID="lnkbtnCommu" runat="server" CssClass="lnkbtnAdmin">Envoyer un communiqué</asp:LinkButton></li>
10  
-                <li runat="server"><asp:LinkButton ID="lnkbtnSupp" runat="server" CssClass="lnkbtnAdmin">Supprimé</asp:LinkButton></li>
  21
+                <li runat="server"><asp:LinkButton ID="lnkbtnSupp" runat="server" CssClass="lnkbtnAdmin">Supprimer</asp:LinkButton></li>
11 22
             </ul>
12 23
         </div>
  24
+        <asp:CheckBox runat="server" ID="ckTous" AutoPostBack="true" Text="Sélectionner tous" CssClass="ckTouscss"/>
  25
+        <div id="dMessage">
  26
+                    <asp:Label ID="lblMessage" runat="server" Text="Entrez votre message:" /> <br /><br />
  27
+                    <asp:TextBox ID="txtMessage" runat="server" TextMode="MultiLine" Width="100%" Height="100px"></asp:TextBox><br /><br />
  28
+                    <asp:Button runat="server" ID="btnEnvoyer" Text="Envoyer" Width="125px" Height="40px" />
  29
+                    <asp:Button runat="server" ID="btnAnnuler" Text="Annuler" Width="125px" Height="40px" />
  30
+        </div>
13 31
         
14  
-        
  32
+        <br />
15 33
         <div id="ContenuAdmin">
  34
+        
16 35
         <asp:UpdatePanel ID="uppanAdmin" runat="server">
17 36
             <ContentTemplate>
18 37
                 <asp:PlaceHolder ID="phAdminMembre" runat="server" >
19 38
                 
20 39
                  </asp:PlaceHolder>
21  
-                <asp:Button ID="btnSup" runat="server" Text="Supprimer" />
  40
+                
22 41
             </ContentTemplate>
23 42
             <Triggers>
24  
-                <asp:AsyncPostBackTrigger ControlID="btnSup" EventName="Click" />
  43
+                <asp:AsyncPostBackTrigger ControlID="lnkbtnSupp" EventName="Click" />
  44
+                
25 45
             </Triggers>
26 46
         </asp:UpdatePanel>
27 47
         </div>
57  contenu/HobbyCartes/HobbyCartes/Administration.aspx.designer.vb
@@ -23,6 +23,15 @@ Partial Public Class Administration
23 23
     Protected WithEvents smAdmin As Global.System.Web.UI.ScriptManager
24 24
 
25 25
     '''<summary>
  26
+    '''Contrôle lblDialogue.
  27
+    '''</summary>
  28
+    '''<remarks>
  29
+    '''Champ généré automatiquement.
  30
+    '''Pour modifier, déplacez la déclaration de champ du fichier de concepteur dans le fichier code-behind.
  31
+    '''</remarks>
  32
+    Protected WithEvents lblDialogue As Global.System.Web.UI.WebControls.Label
  33
+
  34
+    '''<summary>
26 35
     '''Contrôle lnkbtnCommu.
27 36
     '''</summary>
28 37
     '''<remarks>
@@ -41,29 +50,65 @@ Partial Public Class Administration
41 50
     Protected WithEvents lnkbtnSupp As Global.System.Web.UI.WebControls.LinkButton
42 51
 
43 52
     '''<summary>
44  
-    '''Contrôle uppanAdmin.
  53
+    '''Contrôle lblMessage.
45 54
     '''</summary>
46 55
     '''<remarks>
47 56
     '''Champ généré automatiquement.
48 57
     '''Pour modifier, déplacez la déclaration de champ du fichier de concepteur dans le fichier code-behind.
49 58
     '''</remarks>
50  
-    Protected WithEvents uppanAdmin As Global.System.Web.UI.UpdatePanel
  59
+    Protected WithEvents lblMessage As Global.System.Web.UI.WebControls.Label
51 60
 
52 61
     '''<summary>
53  
-    '''Contrôle phAdminMembre.
  62
+    '''Contrôle txtMessage.
54 63
     '''</summary>
55 64
     '''<remarks>
56 65
     '''Champ généré automatiquement.
57 66
     '''Pour modifier, déplacez la déclaration de champ du fichier de concepteur dans le fichier code-behind.
58 67
     '''</remarks>
59  
-    Protected WithEvents phAdminMembre As Global.System.Web.UI.WebControls.PlaceHolder
  68
+    Protected WithEvents txtMessage As Global.System.Web.UI.WebControls.TextBox
60 69
 
61 70
     '''<summary>
62  
-    '''Contrôle btnSup.
  71
+    '''Contrôle btnEnvoyer.
63 72
     '''</summary>
64 73
     '''<remarks>
65 74
     '''Champ généré automatiquement.
66 75
     '''Pour modifier, déplacez la déclaration de champ du fichier de concepteur dans le fichier code-behind.
67 76
     '''</remarks>
68  
-    Protected WithEvents btnSup As Global.System.Web.UI.WebControls.Button
  77
+    Protected WithEvents btnEnvoyer As Global.System.Web.UI.WebControls.Button
  78
+
  79
+    '''<summary>
  80
+    '''Contrôle btnAnnuler.
  81
+    '''</summary>
  82
+    '''<remarks>
  83
+    '''Champ généré automatiquement.
  84
+    '''Pour modifier, déplacez la déclaration de champ du fichier de concepteur dans le fichier code-behind.
  85
+    '''</remarks>
  86
+    Protected WithEvents btnAnnuler As Global.System.Web.UI.WebControls.Button
  87
+
  88
+    '''<summary>
  89
+    '''Contrôle ckTous.
  90
+    '''</summary>
  91
+    '''<remarks>
  92
+    '''Champ généré automatiquement.
  93
+    '''Pour modifier, déplacez la déclaration de champ du fichier de concepteur dans le fichier code-behind.
  94
+    '''</remarks>
  95
+    Protected WithEvents ckTous As Global.System.Web.UI.WebControls.CheckBox
  96
+
  97
+    '''<summary>
  98
+    '''Contrôle uppanAdmin.
  99
+    '''</summary>
  100
+    '''<remarks>
  101
+    '''Champ généré automatiquement.
  102
+    '''Pour modifier, déplacez la déclaration de champ du fichier de concepteur dans le fichier code-behind.
  103
+    '''</remarks>
  104
+    Protected WithEvents uppanAdmin As Global.System.Web.UI.UpdatePanel
  105
+
  106
+    '''<summary>
  107
+    '''Contrôle phAdminMembre.
  108
+    '''</summary>
  109
+    '''<remarks>
  110
+    '''Champ généré automatiquement.
  111
+    '''Pour modifier, déplacez la déclaration de champ du fichier de concepteur dans le fichier code-behind.
  112
+    '''</remarks>
  113
+    Protected WithEvents phAdminMembre As Global.System.Web.UI.WebControls.PlaceHolder
69 114
 End Class
172  contenu/HobbyCartes/HobbyCartes/Administration.aspx.vb
... ...
@@ -1,14 +1,25 @@
1  
-Imports MySql.Data
  1
+'--------------------------------------------------------------------------
  2
+' Titre: Administration.aspx.vb
  3
+' Auteur: Jean-François Collin
  4
+' Date: 12 novembre 2012
  5
+' Contribution : Charles Levesque
  6
+'--------------------------------------------------------------------------
  7
+
  8
+Imports MySql.Data
2 9
 Imports MySql.Data.MySqlClient
3 10
 
4 11
 
5 12
 Public Class Administration
6 13
     Inherits System.Web.UI.Page
7 14
     Private m_connection As MySqlConnection
  15
+    Private m_checkBoxes As List(Of CheckBox)
8 16
     Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
9 17
         m_connection = New MySqlConnection(My.Resources.StringConnexionBdd)
10 18
         m_connection.Open()
11 19
 
  20
+        ' Initialise la liste des checkboxes
  21
+        m_checkBoxes = New List(Of CheckBox)
  22
+
12 23
         If Not Session("Admin") Is Nothing Then
13 24
             If Not Boolean.Parse(Session("Admin")) Then
14 25
                 Response.Redirect("Accueil.aspx")
@@ -19,75 +30,130 @@ Public Class Administration
19 30
         AdminMembre()
20 31
     End Sub
21 32
 
22  
-    Private Sub AdminMembre() Handles lnkbtnSupp.Click
  33
+    Private Sub AdminMembre()
23 34
         Dim Membres As List(Of Entites.Membre) = Entites.Membre.ListeMembresOrdonnee(m_connection)
24  
-
  35
+        m_checkBoxes.Clear()
25 36
         If Membres IsNot Nothing Then
26 37
             For Each Membre In Membres
27  
-                Dim nouvDiv As New HtmlGenericControl("div")
28  
-                nouvDiv.Attributes.Add("class", "membreAdmin")
29  
-                nouvDiv.ID = "divMembre" + Membre.id.ToString
30  
-
31  
-                'Image
32  
-                Dim nouvA As New HtmlGenericControl("a")
33  
-                nouvA.Attributes.Add("href", "Membreinfo.aspx?pseudo=" + Membre.getNomUtilisateurParId(Membre.id, m_connection))
34  
-                Dim nouvImage As New Image()
35  
-                nouvImage.ID = "img" + Membre.id.ToString
36  
-                nouvImage.ImageUrl = Membre.Image
37  
-                nouvImage.Attributes.Add("alt", "imgAvant" + Membre.id.ToString)
38  
-                nouvA.Controls.Add(nouvImage)
39  
-                nouvDiv.Controls.Add(nouvA)
40  
-
41  
-                'Nouveau Membre
42  
-                Dim nouvMembre As New Label
43  
-                nouvMembre.Attributes.Add("class", "lblMembreAdmin")
44  
-                nouvMembre.ID = "lblMembre2" + Membre.id.ToString
45  
-                'Label avec un balise a, font et 2 balises br dedans pour rediriger vers la page MembreInfo
46  
-                nouvMembre.Text = "<a href=" & Chr(34) & "Membreinfo.aspx?pseudo=" + Membre.getNomUtilisateurParId(Membre.id, m_connection) & Chr(34) & _
47  
-                                    "STYLE=" & Chr(34) & "TEXT-DECORATION: NONE" & Chr(34) & "><font color=" & Chr(34) & "B8C3B8" & Chr(34) & ">" & _
48  
-                                    Membre.getNomUtilisateurParId(Membre.id, m_connection) + " <br/> <br/></font></a>"
49  
-                nouvDiv.Controls.Add(nouvMembre)
50  
-
51  
-                'Date d'inscription
52  
-                Dim nouvDateInscription As New Label()
53  
-                nouvDateInscription.Attributes.Add("class", "lblDateInscriptionAdmin")
54  
-                nouvDateInscription.ID = "lblDateInscription" + Membre.id.ToString
55  
-                nouvDateInscription.Text = "Date d'inscription: " + Membre.DateInscription.Day.ToString + "-" & _
56  
-                                            Membre.DateInscription.Month.ToString + "-" + Membre.DateInscription.Year.ToString
57  
-                nouvDiv.Controls.Add(nouvDateInscription)
58  
-
59  
-                Dim ckSup As New CheckBox
60  
-                ckSup.ID = "ck" + Membre.id.ToString
61  
-                ckSup.CssClass = "CheckBAdmin"
62  
-                nouvDiv.Controls.Add(ckSup)
63  
-
64  
-                phAdminMembre.Controls.Add(nouvDiv)
  38
+                If Not Membre.nomUtilisateur.Equals("admin") Then
  39
+                    Dim nouvDiv As New HtmlGenericControl("div")
  40
+                    nouvDiv.Attributes.Add("class", "membreAdmin")
  41
+                    nouvDiv.ID = "divMembre" + Membre.id.ToString
  42
+
  43
+                    'Image
  44
+                    Dim nouvA As New HtmlGenericControl("a")
  45
+                    nouvA.Attributes.Add("href", "Membreinfo.aspx?pseudo=" + Membre.getNomUtilisateurParId(Membre.id, m_connection))
  46
+                    Dim nouvImage As New Image()
  47
+                    nouvImage.ID = "img" + Membre.id.ToString
  48
+                    nouvImage.ImageUrl = Membre.Image
  49
+                    nouvImage.Attributes.Add("alt", "imgAvant" + Membre.id.ToString)
  50
+                    nouvA.Controls.Add(nouvImage)
  51
+                    nouvDiv.Controls.Add(nouvA)
  52
+
  53
+                    'Nouveau Membre
  54
+                    Dim nouvMembre As New Label
  55
+                    nouvMembre.Attributes.Add("class", "lblMembreAdmin")
  56
+                    nouvMembre.ID = "lblMembre2" + Membre.id.ToString
  57
+                    'Label avec un balise a, font et 2 balises br dedans pour rediriger vers la page MembreInfo
  58
+                    nouvMembre.Text = "<a href=" & Chr(34) & "Membreinfo.aspx?pseudo=" + Membre.getNomUtilisateurParId(Membre.id, m_connection) & Chr(34) & _
  59
+                                        "STYLE=" & Chr(34) & "TEXT-DECORATION: NONE" & Chr(34) & "><font color=" & Chr(34) & "B8C3B8" & Chr(34) & ">" & _
  60
+                                        Membre.getNomUtilisateurParId(Membre.id, m_connection) + " <br/> <br/></font></a>"
  61
+                    nouvDiv.Controls.Add(nouvMembre)
  62
+
  63
+                    'Date d'inscription
  64
+                    Dim nouvDateInscription As New Label()
  65
+                    nouvDateInscription.Attributes.Add("class", "lblDateInscriptionAdmin")
  66
+                    nouvDateInscription.ID = "lblDateInscription" + Membre.id.ToString
  67
+                    nouvDateInscription.Text = "Date d'inscription: " + Membre.DateInscription.Day.ToString + "-" & _
  68
+                                                Membre.DateInscription.Month.ToString + "-" + Membre.DateInscription.Year.ToString
  69
+                    nouvDiv.Controls.Add(nouvDateInscription)
  70
+
  71
+                    Dim ckSup As New CheckBox
  72
+                    ckSup.ID = "ck" + Membre.id.ToString
  73
+                    ckSup.CssClass = "CheckBAdmin"
  74
+                    nouvDiv.Controls.Add(ckSup)
  75
+                    m_checkBoxes.Add(ckSup)
  76
+                    phAdminMembre.Controls.Add(nouvDiv)
  77
+                End If
65 78
             Next
66 79
         End If
67  
-        
  80
+
68 81
     End Sub
69 82
 
70  
-    Private Sub SupMembre() Handles btnSup.Click
  83
+    Private Sub SupMembre() Handles lnkbtnSupp.Click
71 84
         Dim NomDiv As String
72 85
         Dim DivSup As New HtmlGenericControl("div")
73 86
         Dim Membres As List(Of Entites.Membre) = Entites.Membre.ListeMembresOrdonnee(m_connection)
74  
-
  87
+        ckTous.Checked = False
75 88
         For Each Membre In Membres
76  
-            NomDiv = "divMembre" + Membre.id.ToString
77  
-            DivSup = uppanAdmin.ContentTemplateContainer.FindControl(NomDiv)
  89
+            If Not Membre.nomUtilisateur.Equals("admin") Then
  90
+                NomDiv = "divMembre" + Membre.id.ToString
  91
+                DivSup = uppanAdmin.ContentTemplateContainer.FindControl(NomDiv)
78 92
 
79  
-            Dim ckSup As New CheckBox
80  
-            ckSup = DivSup.FindControl("ck" + Membre.id.ToString)
  93
+                Dim ckSup As New CheckBox
  94
+                ckSup = DivSup.FindControl("ck" + Membre.id.ToString)
81 95
 
82  
-            'Supprime les commentaires dont les Checkbox sont cochés
83  
-            If (ckSup.Checked) Then
84  
-                If (Entites.Membre.SupMembre(Membre.id, m_connection)) Then
85  
-                    phAdminMembre.Controls.Remove(DivSup)
86  
-                Else
  96
+                'Supprime les commentaires dont les Checkbox sont cochés
  97
+                If (ckSup.Checked) Then
  98
+                    If (Entites.Membre.SupMembre(Membre.id, m_connection)) Then
  99
+                        phAdminMembre.Controls.Remove(DivSup)
  100
+                    Else
87 101
 
  102
+                    End If
88 103
                 End If
89 104
             End If
90 105
         Next
91 106
     End Sub
92 107
 
  108
+    Private Sub Selecttous() Handles ckTous.CheckedChanged
  109
+
  110
+        If ckTous.Checked = True Then
  111
+            For Each Check In m_checkBoxes
  112
+                Check.Checked = True
  113
+            Next
  114
+        Else
  115
+            For Each Check In m_checkBoxes
  116
+                Check.Checked = False
  117
+            Next
  118
+        End If
  119
+
  120
+    End Sub
  121
+
  122
+    Private Sub AfficherMessage() Handles lnkbtnCommu.Click
  123
+        lblDialogue.Text = "<script type='text/javascript'>AfficherMessage();</script>"
  124
+    End Sub
  125
+
  126
+    Private Sub EnvoyerMessage() Handles btnEnvoyer.Click
  127
+        Dim i As Integer = 0
  128
+        Dim Admin As Entites.Membre = New Entites.Membre(Integer.Parse(Session("idMembre")), m_connection)
  129
+        For Each checkbox In m_checkBoxes
  130
+            If checkbox.Checked Then
  131
+                Admin.envoyerMessage(New Entites.Membre(Integer.Parse(checkbox.ID.Remove(0, 2)), m_connection), "Communiqué", txtMessage.Text)
  132
+                checkbox.Checked = False
  133
+                i += 1
  134
+            End If
  135
+        Next
  136
+        ckTous.Checked = False
  137
+
  138
+        If (i = 0) Then
  139
+            lblDialogue.Text = "Aucun destinataire sélectionné"
  140
+        Else
  141
+            lblDialogue.Text = "Le communiqué a bien été envoyé"
  142
+            txtMessage.Text = ""
  143
+        End If
  144
+        
  145
+    End Sub
  146
+
  147
+    Private Sub AnnulerMessage() Handles btnAnnuler.Click
  148
+        For Each checkbox In m_checkBoxes
  149
+            If checkbox.Checked Then
  150
+                checkbox.Checked = False
  151
+            End If
  152
+        Next
  153
+        ckTous.Checked = False
  154
+        txtMessage.Text = ""
  155
+        lblDialogue.Text = ""
  156
+    End Sub
  157
+
  158
+
93 159
 End Class
14  contenu/HobbyCartes/HobbyCartes/App_Themes/MainTheme/administration.css
@@ -81,3 +81,17 @@
81 81
     margin-right : 20px;
82 82
     float : left;
83 83
 }
  84
+#administration #dMessage
  85
+{
  86
+    padding:20px;
  87
+    border : white 1px solid;
  88
+    margin:20px;    
  89
+}
  90
+#administration .ckTouscss
  91
+{
  92
+    position:relative;
  93
+    left:750px;
  94
+    bottom:40px;
  95
+    margin-right:20px;
  96
+    font-size:large;
  97
+}
112  contenu/HobbyCartes/HobbyCartes/Connexion.aspx.vb
... ...
@@ -1,54 +1,60 @@
1  
-Imports MySql.Data
2  
-Imports MySql.Data.MySqlClient
3  
-Imports System.IO
4  
-Imports HobbyCartes.ServiceSecurite
5  
-
6  
-Public Class Connexion
7  
-    Inherits System.Web.UI.Page
8  
-
9  
-    Private m_connection As MySqlConnection
10  
-
11  
-    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
12  
-        lblMessage.Visible = False
13  
-
14  
-        m_connection = New MySqlConnection(My.Resources.StringConnexionBdd)
15  
-        m_connection.Open()
16  
-    End Sub
17  
-
18  
-    Protected Sub btnConnexion_OnClick(sender As Object, e As EventArgs) Handles btnConnexion.Click
19  
-        Dim pseudo As String = txtUtilisateur.Text
20  
-        Dim motPasse As String = txtMotPasse.Text
21  
-
22  
-        'Sécurité mot de passe
23  
-        Dim securite As Securite_hcClient = New Securite_hcClient()
24  
-        motPasse = securite.HashPass(motPasse, pseudo)
25  
-
26  
-        Dim id As Integer
27  
-        Dim chemin As String
28  
-        Dim Membre As Entites.Membre
29  
-        id = Entites.Membre.ConnexionMembre(pseudo, motPasse, m_connection)
30  
-
31  
-        If Not id.Equals(-1) Then
32  
-            Session("connected") = True
33  
-            Session("idMembre") = id
34  
-
35  
-            chemin = Entites.Membre.getImagebyID(id, m_connection, Entites.Membre.TypeImage.arriereplan)
36  
-
37  
-            If Not chemin.Equals("*") Then
38  
-                Dim cook As HttpCookie = New HttpCookie(id.ToString + "_arriereplan", chemin)
39  
-                Response.Cookies.Clear()
40  
-                Response.Cookies.Add(cook)
41  
-            End If
42  
-
43  
-            Membre = New Entites.Membre(id, m_connection)
44  
-            If Membre.isAdmin Then
45  
-                Session("Admin") = True
46  
-            End If
47  
-            Response.Redirect("Accueil.aspx")
48  
-        Else
49  
-            lblMessage.Visible = True
50  
-            lblMessage.Text = "La connexion à échoué. Vérifier votre nom d'utilisateur et votre mot de passe."
51  
-        End If
52  
-    End Sub
53  
-
  1
+'--------------------------------------------------------------------------
  2
+' Titre: Connexion.aspx.vb
  3
+' Auteur: Charles Levesque
  4
+' Date: 29 Octobre 2012
  5
+'-------------------------------------------------------------------------
  6
+
  7
+Imports MySql.Data
  8
+Imports MySql.Data.MySqlClient
  9
+Imports System.IO
  10
+Imports HobbyCartes.ServiceSecurite
  11
+
  12
+Public Class Connexion
  13
+    Inherits System.Web.UI.Page
  14
+
  15
+    Private m_connection As MySqlConnection
  16
+
  17
+    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  18
+        lblMessage.Visible = False
  19
+
  20
+        m_connection = New MySqlConnection(My.Resources.StringConnexionBdd)
  21
+        m_connection.Open()
  22
+    End Sub
  23
+
  24
+    Protected Sub btnConnexion_OnClick(sender As Object, e As EventArgs) Handles btnConnexion.Click
  25
+        Dim pseudo As String = txtUtilisateur.Text
  26
+        Dim motPasse As String = txtMotPasse.Text
  27
+
  28
+        'Sécurité mot de passe
  29
+        Dim securite As Securite_hcClient = New Securite_hcClient()
  30
+        motPasse = securite.HashPass(motPasse, pseudo)
  31
+
  32
+        Dim id As Integer
  33
+        Dim chemin As String
  34
+        Dim Membre As Entites.Membre
  35
+        id = Entites.Membre.ConnexionMembre(pseudo, motPasse, m_connection)
  36
+
  37
+        If Not id.Equals(-1) Then
  38
+            Session("connected") = True
  39
+            Session("idMembre") = id
  40
+
  41
+            chemin = Entites.Membre.getImagebyID(id, m_connection, Entites.Membre.TypeImage.arriereplan)
  42
+
  43
+            If Not chemin.Equals("*") Then
  44
+                Dim cook As HttpCookie = New HttpCookie(id.ToString + "_arriereplan", chemin)
  45
+                Response.Cookies.Clear()
  46
+                Response.Cookies.Add(cook)
  47
+            End If
  48
+
  49
+            Membre = New Entites.Membre(id, m_connection)
  50
+            If Membre.isAdmin Then
  51
+                Session("Admin") = True
  52
+            End If
  53
+            Response.Redirect("Accueil.aspx")
  54
+        Else
  55
+            lblMessage.Visible = True
  56
+            lblMessage.Text = "La connexion à échoué. Vérifier votre nom d'utilisateur et votre mot de passe."
  57
+        End If
  58
+    End Sub
  59
+
54 60
 End Class
38  contenu/HobbyCartes/HobbyCartes/Entites/Collection.vb
... ...
@@ -1,4 +1,15 @@
  1
+<<<<<<< HEAD
1 2
 Imports MySql.Data
  3
+=======
  4
+'--------------------------------------------------------------------------
  5
+' Titre: Collection.vb
  6
+' Auteur: Charles Levesque
  7
+' Date: Septembre 2012
  8
+' Contribution: Loïc Vial
  9
+'--------------------------------------------------------------------------
  10
+
  11
+Imports MySql.Data
  12
+>>>>>>> Adminstration terminé
2 13
 Imports MySql.Data.MySqlClient
3 14
 
4 15
 Namespace Entites
@@ -10,6 +21,10 @@ Namespace Entites
10 21
             Baseball
11 22
             Football
12 23
             Basketball
  24
+<<<<<<< HEAD
  25
+=======
  26
+            aucun
  27
+>>>>>>> Adminstration terminé
13 28
         End Enum
14 29
 
15 30
         ''' <summary>
@@ -91,11 +106,19 @@ Namespace Entites
91 106
                     Case "basketball"
92 107
                         m_type = Type.Basketball
93 108
                     Case Else
  109
+<<<<<<< HEAD
94 110
                         m_type = Nothing
95 111
                 End Select
96 112
 
97 113
             Catch ex As Exception
98 114
                 m_type = Nothing
  115
+=======
  116
+                        m_type = Type.aucun
  117
+                End Select
  118
+
  119
+            Catch ex As Exception
  120
+                m_type = Type.aucun
  121
+>>>>>>> Adminstration terminé
99 122
             End Try
100 123
         End Sub
101 124
 
@@ -171,13 +194,21 @@ Namespace Entites
171 194
                     reader.Close()
172 195
                     chargementListeFiches()
173 196
                 Else
  197
+<<<<<<< HEAD
174 198
                     m_type = Nothing
  199
+=======
  200
+                    m_type = Type.aucun
  201
+>>>>>>> Adminstration terminé
175 202
                     m_id = -1
176 203
                     reader.Close()
177 204
                 End If
178 205
 
179 206
             Catch ex As Exception
  207
+<<<<<<< HEAD
180 208
                 m_type = Nothing
  209
+=======
  210
+                m_type = Type.aucun
  211
+>>>>>>> Adminstration terminé
181 212
                 m_id = -1
182 213
             End Try
183 214
 
@@ -186,6 +217,7 @@ Namespace Entites
186 217
         ''' <summary>
187 218
         ''' Retourne true ssi le membre dont l'identificateur est passé en parametre possede une collection du type passé en parametre.
188 219
         ''' </summary>
  220
+<<<<<<< HEAD
189 221
         Public Shared Function existe(idMembre As Integer, typeCol As Type) As Boolean
190 222
             Dim dbCon As MySqlConnection = New MySqlConnection(My.Resources.StringConnexionBdd)
191 223
             dbCon.Open()
@@ -216,6 +248,12 @@ Namespace Entites
216 248
             dbCon.Close()
217 249
         End Sub
218 250
 
  251
+=======
  252
+        Public Shared Function existe(idMembre As Integer, typeCol As Type, dbCon As MySqlConnection) As Boolean
  253
+            Return Not New MySqlCommand("SELECT COUNT(*) FROM collection WHERE idmembre=" & idMembre & " AND typecol='" & typeCol.ToString & "'", dbCon).ExecuteScalar = 0
  254
+        End Function
  255
+
  256
+>>>>>>> Adminstration terminé
219 257
     End Class
220 258
 
221 259
 End Namespace
176  contenu/HobbyCartes/HobbyCartes/Entites/Commentaire.vb
... ...
@@ -1,85 +1,91 @@
1  
-Namespace Entites
2  
-
3  
-    Public Class Commentaire
4  
-
5  
-        Private destinateur As String
6  
-
7  
-        Private message As String
8  
-
9  
-        Private IDFiche As Integer
10  
-
11  
-        Private IDCommentaire As Integer
12  
-
13  
-        ''' <summary>
14  
-        ''' Construit un commentaire avec une destinataire et un Idfiche de la propriétaire
15  
-        ''' </summary>
16  
-        ''' 
17  
-        Public Sub New()
18  
-            'À faire
19  
-        End Sub
20  
-
21  
-        ''' <summary>
22  
-        ''' Construit un commentaire avec une destinataire et un Idfiche de la propriétaire
23  
-        ''' </summary>
24  
-        ''' 
25  
-        Public Sub New(ByVal Dest As String, ByVal FicheID As Integer)
26  
-            destinateur = Dest
27  
-            IDFiche = FicheID
28  
-        End Sub
29  
-
30  
-        ''' <summary>
31  
-        ''' Construit un commentaire avec tout
32  
-        ''' </summary>
33  
-        ''' 
34  
-        Public Sub New(ByVal Dest As String, ByVal FicheID As Integer, ByVal CommentaireID As Integer, ByVal messages As String)
35  
-            destinateur = Dest
36  
-            IDFiche = FicheID
37  
-            IDCommentaire = CommentaireID
38  
-            message = messages
39  
-        End Sub
40  
-
41  
-        ''' <summary>
42  
-        ''' Accesseur et mutateur du message du commentaire
43  
-        ''' </summary>
44  
-        Public Property pMessage() As String
45  
-            Get
46  
-                Return Message
47  
-            End Get
48  
-            Set(ByVal value As String)
49  
-                message = value
50  
-            End Set
51  
-        End Property
52  
-
53  
-        ''' <summary>
54  
-        ''' Accesseur et mutateur du message du commentaire
55  
-        ''' </summary>
56  
-        Public Property pDestinateur() As String
57  
-            Get
58  
-                Return destinateur
59  
-            End Get
60  
-            Set(ByVal value As String)
61  
-                destinateur = value
62  
-            End Set
63  
-        End Property
64  
-
65  
-        Public Property pIDFiche() As Integer
66  
-            Get
67  
-                Return IDFiche
68  
-            End Get
69  
-            Set(ByVal value As Integer)
70  
-                IDFiche = value
71  
-            End Set
72  
-        End Property
73  
-
74  
-        Public Property pIDCommentaire() As Integer
75  
-            Get
76  
-                Return IDCommentaire
77  
-            End Get
78  
-            Set(ByVal value As Integer)
79  
-                IDCommentaire = value
80  
-            End Set
81  
-        End Property
82  
-
83  
-    End Class
84  
-
85  
-End Namespace
  1
+'--------------------------------------------------------------------------
  2
+' Titre: Commentaire.vb
  3
+' Auteur: Jean-François Collin
  4
+' Date: Septembre 2012
  5
+'--------------------------------------------------------------------------
  6
+
  7
+Namespace Entites
  8
+
  9
+    Public Class Commentaire
  10
+
  11
+        Private destinateur As String
  12
+
  13
+        Private message As String
  14
+
  15
+        Private IDFiche As Integer
  16
+
  17
+        Private IDCommentaire As Integer
  18
+
  19
+        ''' <summary>
  20
+        ''' Construit un commentaire avec une destinataire et un Idfiche de la propriétaire
  21
+        ''' </summary>
  22
+        ''' 
  23
+        Public Sub New()
  24
+            'À faire
  25
+        End Sub
  26
+
  27
+        ''' <summary>
  28
+        ''' Construit un commentaire avec une destinataire et un Idfiche de la propriétaire
  29
+        ''' </summary>
  30
+        ''' 
  31
+        Public Sub New(ByVal Dest As String, ByVal FicheID As Integer)
  32
+            destinateur = Dest
  33
+            IDFiche = FicheID
  34
+        End Sub
  35
+
  36
+        ''' <summary>
  37
+        ''' Construit un commentaire avec tout
  38
+        ''' </summary>
  39
+        ''' 
  40
+        Public Sub New(ByVal Dest As String, ByVal FicheID As Integer, ByVal CommentaireID As Integer, ByVal messages As String)
  41
+            destinateur = Dest
  42
+            IDFiche = FicheID
  43
+            IDCommentaire = CommentaireID
  44
+            message = messages
  45
+        End Sub
  46
+
  47
+        ''' <summary>
  48
+        ''' Accesseur et mutateur du message du commentaire
  49
+        ''' </summary>
  50
+        Public Property pMessage() As String
  51
+            Get
  52
+                Return message
  53
+            End Get
  54
+            Set(ByVal value As String)
  55
+                message = value
  56
+            End Set
  57
+        End Property
  58
+
  59
+        ''' <summary>
  60
+        ''' Accesseur et mutateur du message du commentaire
  61
+        ''' </summary>
  62
+        Public Property pDestinateur() As String
  63
+            Get
  64
+                Return destinateur
  65
+            End Get
  66
+            Set(ByVal value As String)
  67
+                destinateur = value
  68
+            End Set
  69
+        End Property
  70
+
  71
+        Public Property pIDFiche() As Integer
  72
+            Get
  73
+                Return IDFiche
  74
+            End Get
  75
+            Set(ByVal value As Integer)
  76
+                IDFiche = value
  77
+            End Set
  78
+        End Property
  79
+
  80
+        Public Property pIDCommentaire() As Integer
  81
+            Get
  82
+                Return IDCommentaire
  83
+            End Get
  84
+            Set(ByVal value As Integer)
  85
+                IDCommentaire = value
  86
+            End Set
  87
+        End Property
  88
+
  89
+    End Class
  90
+
  91
+End Namespace
94  contenu/HobbyCartes/HobbyCartes/Entites/Editeur.vb
... ...
@@ -1,44 +1,50 @@
1  
-Imports MySql.Data
2  
-Imports MySql.Data.MySqlClient
3  
-
4  
-Namespace Entites
5  
-
6  
-    Public Class Editeur
7  
-
8  
-        Private m_nom As String
9  
-
10  
-        Private m_id As Integer
11  
-
12  
-        Private m_connection As MySqlConnection
13  
-
14  
-        Public ReadOnly Property NomEditeur As String
15  
-            Get
16  
-                Return m_nom
17  
-            End Get
18  
-        End Property
19  
-
20  
-        ''' <summary>
21  
-        ''' Constructeur par défaut. m_id est -1 si la construction échoue.
22  
-        ''' </summary>
23  
-        ''' <param name="id">Identificateur de l'éditeur.</param>
24  
-        ''' <param name="connection">Connection à la base de données MySQL.</param>
25  
-        Public Sub New(id As Integer, connection As MySqlConnection)
26  
-            m_connection = connection
27  
-            Dim requete As MySqlCommand = New MySqlCommand("SELECT * FROM editeur WHERE idediteur=" + id.ToString, connection)
28  
-            Dim reader As MySqlDataReader
29  
-
30  
-            Try
31  
-                reader = requete.ExecuteReader()
32  
-                reader.Read()
33  
-
34  
-                m_nom = reader.GetString("nomed")
35  
-                m_id = id
36  
-                reader.Close()
37  
-            Catch ex As Exception
38  
-                m_id = -1
39  
-            End Try
40  
-        End Sub
41  
-
42  
-    End Class
43  
-
44  
-End Namespace
  1
+'--------------------------------------------------------------------------
  2
+' Titre: Editeur.vb
  3
+' Auteur: Charles Levesque
  4
+' Date: Septembre 2012
  5
+'--------------------------------------------------------------------------
  6
+
  7
+Imports MySql.Data
  8
+Imports MySql.Data.MySqlClient
  9
+
  10
+Namespace Entites
  11
+
  12
+    Public Class Editeur
  13
+
  14
+        Private m_nom As String
  15
+
  16
+        Private m_id As Integer
  17
+
  18
+        Private m_connection As MySqlConnection
  19
+
  20
+        Public ReadOnly Property NomEditeur As String
  21
+            Get
  22
+                Return m_nom
  23
+            End Get
  24
+        End Property
  25
+
  26
+        ''' <summary>
  27
+        ''' Constructeur par défaut. m_id est -1 si la construction échoue.
  28
+        ''' </summary>
  29
+        ''' <param name="id">Identificateur de l'éditeur.</param>
  30
+        ''' <param name="connection">Connection à la base de données MySQL.</param>
  31
+        Public Sub New(id As Integer, connection As MySqlConnection)
  32
+            m_connection = connection
  33
+            Dim requete As MySqlCommand = New MySqlCommand("SELECT * FROM editeur WHERE idediteur=" + id.ToString, connection)
  34
+            Dim reader As MySqlDataReader
  35
+
  36
+            Try
  37
+                reader = requete.ExecuteReader()
  38
+                reader.Read()
  39
+
  40
+                m_nom = reader.GetString("nomed")
  41
+                m_id = id
  42
+                reader.Close()
  43
+            Catch ex As Exception
  44
+                m_id = -1
  45
+            End Try
  46
+        End Sub
  47
+
  48
+    End Class
  49
+
  50
+End Namespace
90  contenu/HobbyCartes/HobbyCartes/Entites/Equipe.vb
... ...
@@ -1,42 +1,48 @@
1  
-Imports MySql.Data
2  
-Imports MySql.Data.MySqlClient
3  
-Namespace Entites
4  
-
5  
-    Public Class Equipe
6  
-
7  
-        Private m_nom As String
8  
-        Private m_ID As Integer
9  
-        Private m_dbConnectionEquipe As MySqlConnection
10  
-
11  
-        Public ReadOnly Property Nom As String
12  
-            Get
13  
-                Return m_nom
14  
-            End Get
15  
-        End Property
16  
-
17  
-        'Constructeur de L'équipe
18  
-        Public Sub New(id As Integer, dbCon As MySqlConnection)
19  
-            m_dbConnectionEquipe = dbCon
20  
-            Dim requete As MySqlCommand = New MySqlCommand("SELECT * FROM equipe WHERE idequipe=" + id.ToString, m_dbConnectionEquipe)
21  
-            Dim reader As MySqlDataReader
22  
-
23  
-            Try
24  
-                reader = requete.ExecuteReader()
25  
-                reader.Read()
26  
-
27  
-                m_nom = reader.GetString("nomeq")
28  
-                m_ID = id
29  
-                reader.Close()
30  
-            Catch ex As Exception
31  
-                m_ID = -1
32  
-            End Try
33  
-        End Sub
34  
-
35  
-
36  
-    End Class
37  
-
38  
-
39  
-
40  
-
41  
-
42  
-End Namespace
  1
+'--------------------------------------------------------------------------
  2
+' Titre: Equipe.vb
  3
+' Auteur: Jean-François Collin
  4
+' Date: Septembre 2012
  5
+'--------------------------------------------------------------------------
  6
+
  7
+Imports MySql.Data
  8
+Imports MySql.Data.MySqlClient
  9
+Namespace Entites
  10
+
  11
+    Public Class Equipe
  12
+
  13
+        Private m_nom As String
  14
+        Private m_ID As Integer
  15
+        Private m_dbConnectionEquipe As MySqlConnection
  16
+
  17
+        Public ReadOnly Property Nom As String
  18
+            Get
  19
+                Return m_nom
  20
+            End Get
  21
+        End Property
  22
+
  23
+        'Constructeur de L'équipe
  24
+        Public Sub New(id As Integer, dbCon As MySqlConnection)
  25
+            m_dbConnectionEquipe = dbCon
  26
+            Dim requete As MySqlCommand = New MySqlCommand("SELECT * FROM equipe WHERE idequipe=" + id.ToString, m_dbConnectionEquipe)
  27
+            Dim reader As MySqlDataReader
  28
+
  29
+            Try
  30
+                reader = requete.ExecuteReader()
  31
+                reader.Read()
  32
+
  33
+                m_nom = reader.GetString("nomeq")
  34
+                m_ID = id
  35
+                reader.Close()
  36
+            Catch ex As Exception
  37
+                m_ID = -1
  38
+            End Try
  39
+        End Sub
  40
+
  41
+
  42
+    End Class
  43
+
  44
+
  45
+
  46
+
  47
+
  48
+End Namespace
9  contenu/HobbyCartes/HobbyCartes/Entites/Fiche.vb
... ...
@@ -1,4 +1,11 @@
1  
-Imports MySql.Data
  1
+'--------------------------------------------------------------------------
  2
+' Titre: Fiche.vb
  3
+' Auteur: Charles Levesque
  4
+' Date: Septembre 2012
  5
+' Contribution: Jean-François Collin, Loïc Vial
  6
+'--------------------------------------------------------------------------
  7
+
  8
+Imports MySql.Data
2 9
 Imports MySql.Data.MySqlClient
3 10
 Namespace Entites
4 11
 
9  contenu/HobbyCartes/HobbyCartes/Entites/Membre.vb
... ...
@@ -1,4 +1,11 @@
1  
-Imports MySql.Data
  1
+'--------------------------------------------------------------------------
  2
+' Titre: Membre.vb
  3
+' Auteur: Loïc Vial
  4
+' Date: Septembre 2012
  5
+' Contribution: Charles Levesque, Jean-François Collin
  6
+'--------------------------------------------------------------------------
  7
+
  8
+Imports MySql.Data
2 9
 Imports MySql.Data.MySqlClient
3 10
 
4 11
 Namespace Entites
30  contenu/HobbyCartes/HobbyCartes/Entites/Message.vb
... ...
@@ -1,4 +1,14 @@
  1
+<<<<<<< HEAD
1 2
 Imports MySql.Data.MySqlClient
  3
+=======
  4
+'--------------------------------------------------------------------------
  5
+' Titre: Message.vb
  6
+' Auteur: Loïc Vial
  7
+' Date: Septembre 2012
  8
+'--------------------------------------------------------------------------
  9
+
  10
+Imports MySql.Data.MySqlClient
  11
+>>>>>>> Adminstration terminé
2 12
 
3 13
 Namespace Entites
4 14
 
@@ -29,9 +39,13 @@ Namespace Entites
29 39
         ''' Construit un message depuis la base de donnees.
30 40
         ''' Leve une exception si le message n'existe pas.
31 41
         ''' </summary>
  42
+<<<<<<< HEAD
32 43
         Public Sub New(id As Integer)
33 44
             Dim dbCon As MySqlConnection = New MySqlConnection(My.Resources.StringConnexionBdd)
34 45
             dbCon.Open()
  46
+=======
  47
+        Public Sub New(id As Integer, dbCon As MySqlConnection)
  48
+>>>>>>> Adminstration terminé
35 49
             Dim dbCom As MySqlCommand = New MySqlCommand("SELECT * FROM message WHERE idmess=" & id, dbCon)
36 50
             Dim dbRead As MySqlDataReader = dbCom.ExecuteReader()
37 51
             dbRead.Read()
@@ -41,7 +55,10 @@ Namespace Entites
41 55
             m_objet = dbRead.GetString("objetmes")
42 56
             m_contenu = dbRead.GetString("mesmes")
43 57
             dbRead.Close()