Permalink
Browse files

Modifs

  • Loading branch information...
1 parent 456be0e commit 403654da166407daf7da144802c632c5191043d8 @jfcollin jfcollin committed Nov 12, 2012
@@ -1,4 +1,10 @@
-Imports MySql.Data
+'--------------------------------------------------------------------------
+' Titre: Acceuil.aspx.vb
+' Auteur: Jean-François Collin
+' Date: Octobre 2012
+'--------------------------------------------------------------------------
+
+Imports MySql.Data
Imports MySql.Data.MySqlClient
Public Class Accueil
@@ -2,26 +2,46 @@
<asp:Content ContentPlaceHolderID="cphCorps" runat="server">
<asp:ScriptManager ID="smAdmin" runat="server" />
-
+ <script type="text/javascript">
+ function AfficherMessage() {
+ $(document).ready(function () {
+ $("#dMessage").slideDown("slow");
+ });
+ }
+ $(document).ready(function () {
+ $("#dMessage").hide();
+ });
+ </script>
+
<div id="administration">
+ <asp:Label ID="lblDialogue" runat="server" Text=""></asp:Label>
<div id="boutons">
<ul>
<li runat="server"><asp:LinkButton ID="lnkbtnCommu" runat="server" CssClass="lnkbtnAdmin">Envoyer un communiqué</asp:LinkButton></li>
- <li runat="server"><asp:LinkButton ID="lnkbtnSupp" runat="server" CssClass="lnkbtnAdmin">Supprimé</asp:LinkButton></li>
+ <li runat="server"><asp:LinkButton ID="lnkbtnSupp" runat="server" CssClass="lnkbtnAdmin">Supprimer</asp:LinkButton></li>
</ul>
</div>
+ <asp:CheckBox runat="server" ID="ckTous" AutoPostBack="true" Text="Sélectionner tous" CssClass="ckTouscss"/>
+ <div id="dMessage">
+ <asp:Label ID="lblMessage" runat="server" Text="Entrez votre message:" /> <br /><br />
+ <asp:TextBox ID="txtMessage" runat="server" TextMode="MultiLine" Width="100%" Height="100px"></asp:TextBox><br /><br />
+ <asp:Button runat="server" ID="btnEnvoyer" Text="Envoyer" Width="125px" Height="40px" />
+ <asp:Button runat="server" ID="btnAnnuler" Text="Annuler" Width="125px" Height="40px" />
+ </div>
-
+ <br />
<div id="ContenuAdmin">
+
<asp:UpdatePanel ID="uppanAdmin" runat="server">
<ContentTemplate>
<asp:PlaceHolder ID="phAdminMembre" runat="server" >
</asp:PlaceHolder>
- <asp:Button ID="btnSup" runat="server" Text="Supprimer" />
+
</ContentTemplate>
<Triggers>
- <asp:AsyncPostBackTrigger ControlID="btnSup" EventName="Click" />
+ <asp:AsyncPostBackTrigger ControlID="lnkbtnSupp" EventName="Click" />
+
</Triggers>
</asp:UpdatePanel>
</div>
@@ -23,6 +23,15 @@ Partial Public Class Administration
Protected WithEvents smAdmin As Global.System.Web.UI.ScriptManager
'''<summary>
+ '''Contrôle lblDialogue.
+ '''</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 lblDialogue As Global.System.Web.UI.WebControls.Label
+
+ '''<summary>
'''Contrôle lnkbtnCommu.
'''</summary>
'''<remarks>
@@ -41,29 +50,65 @@ Partial Public Class Administration
Protected WithEvents lnkbtnSupp As Global.System.Web.UI.WebControls.LinkButton
'''<summary>
- '''Contrôle uppanAdmin.
+ '''Contrôle lblMessage.
'''</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 uppanAdmin As Global.System.Web.UI.UpdatePanel
+ Protected WithEvents lblMessage As Global.System.Web.UI.WebControls.Label
'''<summary>
- '''Contrôle phAdminMembre.
+ '''Contrôle txtMessage.
'''</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 phAdminMembre As Global.System.Web.UI.WebControls.PlaceHolder
+ Protected WithEvents txtMessage As Global.System.Web.UI.WebControls.TextBox
'''<summary>
- '''Contrôle btnSup.
+ '''Contrôle btnEnvoyer.
'''</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 btnSup As Global.System.Web.UI.WebControls.Button
+ Protected WithEvents btnEnvoyer As Global.System.Web.UI.WebControls.Button
+
+ '''<summary>
+ '''Contrôle btnAnnuler.
+ '''</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 btnAnnuler As Global.System.Web.UI.WebControls.Button
+
+ '''<summary>
+ '''Contrôle ckTous.
+ '''</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 ckTous As Global.System.Web.UI.WebControls.CheckBox
+
+ '''<summary>
+ '''Contrôle uppanAdmin.
+ '''</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 uppanAdmin As Global.System.Web.UI.UpdatePanel
+
+ '''<summary>
+ '''Contrôle phAdminMembre.
+ '''</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 phAdminMembre As Global.System.Web.UI.WebControls.PlaceHolder
End Class
@@ -1,14 +1,25 @@
-Imports MySql.Data
+'--------------------------------------------------------------------------
+' Titre: Administration.aspx.vb
+' Auteur: Jean-François Collin
+' Date: 12 novembre 2012
+' Contribution : Charles Levesque
+'--------------------------------------------------------------------------
+
+Imports MySql.Data
Imports MySql.Data.MySqlClient
Public Class Administration
Inherits System.Web.UI.Page
Private m_connection As MySqlConnection
+ Private m_checkBoxes As List(Of CheckBox)
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
m_connection = New MySqlConnection(My.Resources.StringConnexionBdd)
m_connection.Open()
+ ' Initialise la liste des checkboxes
+ m_checkBoxes = New List(Of CheckBox)
+
If Not Session("Admin") Is Nothing Then
If Not Boolean.Parse(Session("Admin")) Then
Response.Redirect("Accueil.aspx")
@@ -19,75 +30,130 @@ Public Class Administration
AdminMembre()
End Sub
- Private Sub AdminMembre() Handles lnkbtnSupp.Click
+ Private Sub AdminMembre()
Dim Membres As List(Of Entites.Membre) = Entites.Membre.ListeMembresOrdonnee(m_connection)
-
+ m_checkBoxes.Clear()
If Membres IsNot Nothing Then
For Each Membre In Membres
- Dim nouvDiv As New HtmlGenericControl("div")
- nouvDiv.Attributes.Add("class", "membreAdmin")
- nouvDiv.ID = "divMembre" + Membre.id.ToString
-
- 'Image
- Dim nouvA As New HtmlGenericControl("a")
- nouvA.Attributes.Add("href", "Membreinfo.aspx?pseudo=" + Membre.getNomUtilisateurParId(Membre.id, m_connection))
- Dim nouvImage As New Image()
- nouvImage.ID = "img" + Membre.id.ToString
- nouvImage.ImageUrl = Membre.Image
- nouvImage.Attributes.Add("alt", "imgAvant" + Membre.id.ToString)
- nouvA.Controls.Add(nouvImage)
- nouvDiv.Controls.Add(nouvA)
-
- 'Nouveau Membre
- Dim nouvMembre As New Label
- nouvMembre.Attributes.Add("class", "lblMembreAdmin")
- nouvMembre.ID = "lblMembre2" + Membre.id.ToString
- 'Label avec un balise a, font et 2 balises br dedans pour rediriger vers la page MembreInfo
- nouvMembre.Text = "<a href=" & Chr(34) & "Membreinfo.aspx?pseudo=" + Membre.getNomUtilisateurParId(Membre.id, m_connection) & Chr(34) & _
- "STYLE=" & Chr(34) & "TEXT-DECORATION: NONE" & Chr(34) & "><font color=" & Chr(34) & "B8C3B8" & Chr(34) & ">" & _
- Membre.getNomUtilisateurParId(Membre.id, m_connection) + " <br/> <br/></font></a>"
- nouvDiv.Controls.Add(nouvMembre)
-
- 'Date d'inscription
- Dim nouvDateInscription As New Label()
- nouvDateInscription.Attributes.Add("class", "lblDateInscriptionAdmin")
- nouvDateInscription.ID = "lblDateInscription" + Membre.id.ToString
- nouvDateInscription.Text = "Date d'inscription: " + Membre.DateInscription.Day.ToString + "-" & _
- Membre.DateInscription.Month.ToString + "-" + Membre.DateInscription.Year.ToString
- nouvDiv.Controls.Add(nouvDateInscription)
-
- Dim ckSup As New CheckBox
- ckSup.ID = "ck" + Membre.id.ToString
- ckSup.CssClass = "CheckBAdmin"
- nouvDiv.Controls.Add(ckSup)
-
- phAdminMembre.Controls.Add(nouvDiv)
+ If Not Membre.nomUtilisateur.Equals("admin") Then
+ Dim nouvDiv As New HtmlGenericControl("div")
+ nouvDiv.Attributes.Add("class", "membreAdmin")
+ nouvDiv.ID = "divMembre" + Membre.id.ToString
+
+ 'Image
+ Dim nouvA As New HtmlGenericControl("a")
+ nouvA.Attributes.Add("href", "Membreinfo.aspx?pseudo=" + Membre.getNomUtilisateurParId(Membre.id, m_connection))
+ Dim nouvImage As New Image()
+ nouvImage.ID = "img" + Membre.id.ToString
+ nouvImage.ImageUrl = Membre.Image
+ nouvImage.Attributes.Add("alt", "imgAvant" + Membre.id.ToString)
+ nouvA.Controls.Add(nouvImage)
+ nouvDiv.Controls.Add(nouvA)
+
+ 'Nouveau Membre
+ Dim nouvMembre As New Label
+ nouvMembre.Attributes.Add("class", "lblMembreAdmin")
+ nouvMembre.ID = "lblMembre2" + Membre.id.ToString
+ 'Label avec un balise a, font et 2 balises br dedans pour rediriger vers la page MembreInfo
+ nouvMembre.Text = "<a href=" & Chr(34) & "Membreinfo.aspx?pseudo=" + Membre.getNomUtilisateurParId(Membre.id, m_connection) & Chr(34) & _
+ "STYLE=" & Chr(34) & "TEXT-DECORATION: NONE" & Chr(34) & "><font color=" & Chr(34) & "B8C3B8" & Chr(34) & ">" & _
+ Membre.getNomUtilisateurParId(Membre.id, m_connection) + " <br/> <br/></font></a>"
+ nouvDiv.Controls.Add(nouvMembre)
+
+ 'Date d'inscription
+ Dim nouvDateInscription As New Label()
+ nouvDateInscription.Attributes.Add("class", "lblDateInscriptionAdmin")
+ nouvDateInscription.ID = "lblDateInscription" + Membre.id.ToString
+ nouvDateInscription.Text = "Date d'inscription: " + Membre.DateInscription.Day.ToString + "-" & _
+ Membre.DateInscription.Month.ToString + "-" + Membre.DateInscription.Year.ToString
+ nouvDiv.Controls.Add(nouvDateInscription)
+
+ Dim ckSup As New CheckBox
+ ckSup.ID = "ck" + Membre.id.ToString
+ ckSup.CssClass = "CheckBAdmin"
+ nouvDiv.Controls.Add(ckSup)
+ m_checkBoxes.Add(ckSup)
+ phAdminMembre.Controls.Add(nouvDiv)
+ End If
Next
End If
-
+
End Sub
- Private Sub SupMembre() Handles btnSup.Click
+ Private Sub SupMembre() Handles lnkbtnSupp.Click
Dim NomDiv As String
Dim DivSup As New HtmlGenericControl("div")
Dim Membres As List(Of Entites.Membre) = Entites.Membre.ListeMembresOrdonnee(m_connection)
-
+ ckTous.Checked = False
For Each Membre In Membres
- NomDiv = "divMembre" + Membre.id.ToString
- DivSup = uppanAdmin.ContentTemplateContainer.FindControl(NomDiv)
+ If Not Membre.nomUtilisateur.Equals("admin") Then
+ NomDiv = "divMembre" + Membre.id.ToString
+ DivSup = uppanAdmin.ContentTemplateContainer.FindControl(NomDiv)
- Dim ckSup As New CheckBox
- ckSup = DivSup.FindControl("ck" + Membre.id.ToString)
+ Dim ckSup As New CheckBox
+ ckSup = DivSup.FindControl("ck" + Membre.id.ToString)
- 'Supprime les commentaires dont les Checkbox sont cochés
- If (ckSup.Checked) Then
- If (Entites.Membre.SupMembre(Membre.id, m_connection)) Then
- phAdminMembre.Controls.Remove(DivSup)
- Else
+ 'Supprime les commentaires dont les Checkbox sont cochés
+ If (ckSup.Checked) Then
+ If (Entites.Membre.SupMembre(Membre.id, m_connection)) Then
+ phAdminMembre.Controls.Remove(DivSup)
+ Else
+ End If
End If
End If
Next
End Sub
+ Private Sub Selecttous() Handles ckTous.CheckedChanged
+
+ If ckTous.Checked = True Then
+ For Each Check In m_checkBoxes
+ Check.Checked = True
+ Next
+ Else
+ For Each Check In m_checkBoxes
+ Check.Checked = False
+ Next
+ End If
+
+ End Sub
+
+ Private Sub AfficherMessage() Handles lnkbtnCommu.Click
+ lblDialogue.Text = "<script type='text/javascript'>AfficherMessage();</script>"
+ End Sub
+
+ Private Sub EnvoyerMessage() Handles btnEnvoyer.Click
+ Dim i As Integer = 0
+ Dim Admin As Entites.Membre = New Entites.Membre(Integer.Parse(Session("idMembre")), m_connection)
+ For Each checkbox In m_checkBoxes
+ If checkbox.Checked Then
+ Admin.envoyerMessage(New Entites.Membre(Integer.Parse(checkbox.ID.Remove(0, 2)), m_connection), "Communiqué", txtMessage.Text)
+ checkbox.Checked = False
+ i += 1
+ End If
+ Next
+ ckTous.Checked = False
+
+ If (i = 0) Then
+ lblDialogue.Text = "Aucun destinataire sélectionné"
+ Else
+ lblDialogue.Text = "Le communiqué a bien été envoyé"
+ txtMessage.Text = ""
+ End If
+
+ End Sub
+
+ Private Sub AnnulerMessage() Handles btnAnnuler.Click
+ For Each checkbox In m_checkBoxes
+ If checkbox.Checked Then
+ checkbox.Checked = False
+ End If
+ Next
+ ckTous.Checked = False
+ txtMessage.Text = ""
+ lblDialogue.Text = ""
+ End Sub
+
+
End Class
@@ -81,3 +81,17 @@
margin-right : 20px;
float : left;
}
+#administration #dMessage
+{
+ padding:20px;
+ border : white 1px solid;
+ margin:20px;
+}
+#administration .ckTouscss
+{
+ position:relative;
+ left:750px;
+ bottom:40px;
+ margin-right:20px;
+ font-size:large;
+}
Oops, something went wrong.

0 comments on commit 403654d

Please sign in to comment.