Permalink
Browse files

Fini le cas GérerCollections

  • Loading branch information...
coylz committed Nov 26, 2012
1 parent 61df418 commit 5ce6a1a5ffe61e3bd6f6a476a5402ae8e8555cc0
@@ -28,6 +28,7 @@
display : block;
padding-top : 10px;
width : 100px;
+ margin-bottom : 10px;
}
/*
@@ -22,6 +22,7 @@
border-top : 1px solid white;
padding : 10px;
border-collapse: collapse;
+ font-size : 90%;
}
#membre #membre_contenu #membreGererCollections .membreGererCollectionsTableListeFiches tr
@@ -429,20 +429,20 @@ Namespace Entites
requete = New MySqlCommand("INSERT INTO fiche(idcollection, idediteur, idequipe, " &
"anneefi, publicationsursitefi, " &
"nomjoueurfi, prenomjoueurfi, nojoueurfi, " &
- "recruefi, positionfi, valeurfi, etatfi) " &
+ "recruefi, positionfi, valeurfi, etatfi, imagedevantfi, imagederrierefi) " &
"VALUES(" & m_idCollection & ", " & m_idEditeur & ", " & m_idEquipe &
", """ & m_annee.Year & "-" & m_annee.Month & "-" & m_annee.Day & """, NOW() " &
", """ & m_nomJoueur & """, """ & m_prenomJoueur & """, " & Numero &
", " & m_isRecrue & ", """ & m_position & """, """ & m_valeur &
- """, """ & [Enum].GetName(GetType(Etat), m_etat) & """)", dbCon)
+ """, """ & [Enum].GetName(GetType(Etat), m_etat) & """, """ & m_imageDevant & """, """ & m_imageDerriere & """)", dbCon)
Else
requete = New MySqlCommand("UPDATE fiche SET idcollection=" & m_idCollection & ", idediteur=" &
m_idEditeur & ", idequipe=" & m_idEquipe & ", anneefi=""" &
m_annee.Year & "-" & m_annee.Month & "-" & m_annee.Day & """, nomjoueurfi=""" &
m_nomJoueur & """, prenomjoueurfi=""" & m_prenomJoueur & """, nojoueurfi=" &
m_numeroJoueur & ", recruefi=" & m_isRecrue & ", positionfi=""" &
m_position & """, valeurfi=" & m_valeur & ", etatfi=""" &
- [Enum].GetName(GetType(Etat), m_etat) & """ " &
+ [Enum].GetName(GetType(Etat), m_etat) & """, imagedevantfi=""" & m_imageDevant & """, imagederrierefi=""" & m_imageDerriere & """ " &
"WHERE idfiche=" & m_id, dbCon)
End If
requete.ExecuteNonQuery()
@@ -47,9 +47,11 @@ Public Class Membre
ongletInformations.Style.Add("background-color", "Black")
ElseIf Request.ServerVariables("URL").Equals("/MembreListeCartes.aspx") Then
ongletListeCartes.Style.Add("background-color", "Black")
- ElseIf Request.ServerVariables("URL").Equals("/MembreGererCollections.aspx") Then
+ ElseIf Request.ServerVariables("URL").Equals("/MembreGererCollections.aspx") Or
+ Request.ServerVariables("URL").Equals("/MembreEditerFiche.aspx") Then
ongletGererCollections.Style.Add("background-color", "Black")
- ElseIf Request.ServerVariables("URL").Equals("/MembreVisualiserMessages.aspx") Then
+ ElseIf Request.ServerVariables("URL").Equals("/MembreVisualiserMessages.aspx") Or
+ Request.ServerVariables("URL").Equals("/MembreVisualiserMessage.aspx") Then
ongletVisualiserMessages.Style.Add("background-color", "Black")
ElseIf Request.ServerVariables("URL").Equals("/MembreEnvoiMessage.aspx") Then
ongletEnvoiMessage.Style.Add("background-color", "Black")
@@ -62,13 +62,17 @@
</tr>
<tr>
<td>Image avant : </td>
- <td><asp:FileUpload id="fichierImageAvant" runat="server" />
- <asp:Image runat="server" ID="imageAvant" cssclass="img" /></td>
+ <td><asp:FileUpload id="fuImageAvant" runat="server" /><br />
+ <asp:Label runat="server" ID="lbImageAvant" Text="/!\ Images JPEG seulement" />
+ <asp:Image runat="server" ID="imageAvant" cssclass="img" /><br />
+ <asp:CheckBox runat="server" autopostback="true" ID="chkImageAvant" /> Aucune image</td>
</tr>
<tr>
<td>Image arrière : </td>
- <td><asp:FileUpload ID="fichierImageArriere" runat="server" />
- <asp:Image runat="server" ID="imageArriere" cssclass="img" /></td>
+ <td><asp:FileUpload ID="fuImageArriere" runat="server" /><br />
+ <asp:Label runat="server" ID="lbImageArriere" Text="/!\ Images JPEG seulement" />
+ <asp:Image runat="server" ID="imageArriere" cssclass="img" /><br />
+ <asp:CheckBox runat="server" autopostback="true" ID="chkImageArriere" /> Aucune image</td>
</tr>
<tr>
<td colspan="2" class="align_center"><asp:Button ID="btnEnregistrer" runat="server" Text="Enregistrer" /></td>
@@ -140,13 +140,22 @@ Partial Public Class MembreEditerFiche
Protected WithEvents txtAnnee As Global.System.Web.UI.WebControls.TextBox
'''<summary>
- '''Contrôle fichierImageAvant.
+ '''Contrôle fuImageAvant.
'''</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 fichierImageAvant As Global.System.Web.UI.WebControls.FileUpload
+ Protected WithEvents fuImageAvant As Global.System.Web.UI.WebControls.FileUpload
+
+ '''<summary>
+ '''Contrôle lbImageAvant.
+ '''</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 lbImageAvant As Global.System.Web.UI.WebControls.Label
'''<summary>
'''Contrôle imageAvant.
@@ -158,13 +167,31 @@ Partial Public Class MembreEditerFiche
Protected WithEvents imageAvant As Global.System.Web.UI.WebControls.Image
'''<summary>
- '''Contrôle fichierImageArriere.
+ '''Contrôle chkImageAvant.
+ '''</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 chkImageAvant As Global.System.Web.UI.WebControls.CheckBox
+
+ '''<summary>
+ '''Contrôle fuImageArriere.
'''</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 fichierImageArriere As Global.System.Web.UI.WebControls.FileUpload
+ Protected WithEvents fuImageArriere As Global.System.Web.UI.WebControls.FileUpload
+
+ '''<summary>
+ '''Contrôle lbImageArriere.
+ '''</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 lbImageArriere As Global.System.Web.UI.WebControls.Label
'''<summary>
'''Contrôle imageArriere.
@@ -175,6 +202,15 @@ Partial Public Class MembreEditerFiche
'''</remarks>
Protected WithEvents imageArriere As Global.System.Web.UI.WebControls.Image
+ '''<summary>
+ '''Contrôle chkImageArriere.
+ '''</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 chkImageArriere As Global.System.Web.UI.WebControls.CheckBox
+
'''<summary>
'''Contrôle btnEnregistrer.
'''</summary>
@@ -1,4 +1,5 @@
Imports MySql.Data.MySqlClient
+Imports System.IO
Public Class MembreEditerFiche
Inherits System.Web.UI.Page
@@ -13,6 +14,9 @@ Public Class MembreEditerFiche
''' </summary>
Dim idFiche As Integer
+ Dim exImageAvant As String
+ Dim exImageArriere As String
+
''' <summary>
''' Initialisation de la page
''' </summary>
@@ -54,8 +58,13 @@ Public Class MembreEditerFiche
txtValeur.Text = fiche.Valeur
dropDownEditeur.SelectedValue = fiche.Editeur.nomEditeur
txtAnnee.Text = fiche.DateCarte.Year
+ exImageAvant = fiche.ImageAvant
imageAvant.ImageUrl = fiche.ImageAvant
+ exImageArriere = fiche.ImageArriere
imageArriere.ImageUrl = fiche.ImageArriere
+ Else
+ exImageAvant = ""
+ exImageArriere = ""
End If
End Sub
@@ -92,7 +101,7 @@ Public Class MembreEditerFiche
''' </summary>
Private Sub initDropDownEquipe()
For Each equipe As Entites.Equipe In Entites.Equipe.getAll()
- DropDownEquipe.Items.Add(equipe.Nom)
+ dropDownEquipe.Items.Add(equipe.Nom)
Next
End Sub
@@ -122,10 +131,81 @@ Public Class MembreEditerFiche
fiche.Valeur = txtValeur.Text
fiche.Editeur = New Entites.Editeur(dropDownEditeur.SelectedValue)
fiche.DateCarte = New Date(txtAnnee.Text, 1, 1)
+ If chkImageAvant.Checked Then
+ fiche.ImageAvant = ""
+ Else
+ fiche.ImageAvant = exImageAvant
+ End If
+ If chkImageArriere.Checked Then
+ fiche.ImageArriere = ""
+ Else
+ fiche.ImageArriere = exImageArriere
+ End If
+ If fuImageAvant.HasFile Then
+ Try
+ If fuImageAvant.PostedFile.ContentType.Equals("image/jpeg") Then
+ If fuImageAvant.PostedFile.ContentLength < 102400 Then
+ Dim chemin As String = "img/" + idFiche.ToString + "_avant.jpg"
+ Dim fichier As FileStream = New FileStream(Server.MapPath("~/") + chemin, FileMode.OpenOrCreate)
+ Dim data As Byte() = fuImageAvant.FileBytes
+ fichier.Write(data, 0, data.Length)
+ fichier.Close()
+ fiche.ImageAvant = chemin
+ Else
+ lbImageAvant.Text = "L'image est trop volumineuse"
+ End If
+ Else
+ lbImageAvant.Text = "Seulement JPEG!"
+ End If
+ Catch ex As Exception
+ lbImageAvant.Text = ex.Message
+ End Try
+ End If
+
+ If fuImageArriere.HasFile Then
+ Try
+ If fuImageArriere.PostedFile.ContentType.Equals("image/jpeg") Then
+ If fuImageArriere.PostedFile.ContentLength < 102400 Then
+ Dim chemin As String = "img/" + idFiche.ToString + "_arriere.jpg"
+ Dim fichier As FileStream = New FileStream(Server.MapPath("~/") + chemin, FileMode.OpenOrCreate)
+ Dim data As Byte() = fuImageArriere.FileBytes
+ fichier.Write(data, 0, data.Length)
+ fichier.Close()
+ fiche.ImageArriere = chemin
+ Else
+ lbImageArriere.Text = "L'image est trop volumineuse"
+ End If
+ Else
+ lbImageArriere.Text = "Seulement JPEG!"
+ End If
+ Catch ex As Exception
+ lbImageArriere.Text = ex.Message
+ End Try
+ End If
fiche.sauvegarde()
Response.Redirect("/MembreGererCollections.aspx")
End Sub
+ Protected Sub chkImageAvant_CheckedChanged() Handles chkImageAvant.CheckedChanged
+ If chkImageAvant.Checked Then
+ fuImageAvant.Enabled = False
+ imageAvant.Visible = False
+ Else
+ fuImageAvant.Enabled = True
+ imageAvant.Visible = True
+ End If
+ End Sub
+
+ Protected Sub chkImageArriere_CheckedChanged() Handles chkImageArriere.CheckedChanged
+ If chkImageArriere.Checked Then
+ fuImageArriere.Enabled = False
+ imageArriere.Visible = False
+ Else
+ fuImageArriere.Enabled = True
+ imageArriere.Visible = True
+ End If
+ End Sub
+
End Class
@@ -128,7 +128,7 @@ Public Class MembreGererCollections
btnAjouter.PostBackUrl = "MembreEditerFiche.aspx?idFiche=-1"
btnAjouter.Text = "Ajouter une nouvelle fiche"
cellBtnAjouter.Controls.Add(btnAjouter)
- cellBtnAjouter.ColumnSpan = 12
+ cellBtnAjouter.ColumnSpan = 13
rowBtnAjouter.Cells.Add(cellBtnAjouter)
tblListeFiches.Rows.Add(rowBtnAjouter)
End Sub
@@ -152,47 +152,53 @@ Public Class MembreGererCollections
cellPrenomEntete.Controls.Add(lblPrenomEntete)
rowEntete.Cells.Add(cellPrenomEntete)
- Dim cellEtatEntete As TableCell = New TableCell()
- Dim lblEtatEntete As Label = New Label()
- lblEtatEntete.Text = "Equipe"
- cellEtatEntete.Controls.Add(lblEtatEntete)
- rowEntete.Cells.Add(cellEtatEntete)
+ Dim cellEquipeEntete As TableCell = New TableCell()
+ Dim lblEquipeEntete As Label = New Label()
+ lblEquipeEntete.Text = "Equipe"
+ cellEquipeEntete.Controls.Add(lblEquipeEntete)
+ rowEntete.Cells.Add(cellEquipeEntete)
Dim cellNumeroEntete As TableCell = New TableCell()
Dim lblNumeroEntete As Label = New Label()
lblNumeroEntete.Text = "Numero"
cellNumeroEntete.Controls.Add(lblNumeroEntete)
rowEntete.Cells.Add(cellNumeroEntete)
+ Dim cellPositionEntete As TableCell = New TableCell()
+ Dim lblPositionEntete As Label = New Label()
+ lblPositionEntete.Text = "Position"
+ cellPositionEntete.Controls.Add(lblPositionEntete)
+ rowEntete.Cells.Add(cellPositionEntete)
+
Dim cellRecrueEntete As TableCell = New TableCell()
Dim lblRecrueEntete As Label = New Label()
- lblRecrueEntete.Text = "Position"
+ lblRecrueEntete.Text = "Recrue"
cellRecrueEntete.Controls.Add(lblRecrueEntete)
rowEntete.Cells.Add(cellRecrueEntete)
+ Dim cellEtatEntete As TableCell = New TableCell()
+ Dim lblEtatEntete As Label = New Label()
+ lblEtatEntete.Text = "Etat"
+ cellEtatEntete.Controls.Add(lblEtatEntete)
+ rowEntete.Cells.Add(cellEtatEntete)
+
Dim cellValeurEntete As TableCell = New TableCell()
Dim lblValeurEntete As Label = New Label()
- lblValeurEntete.Text = "Recrue"
+ lblValeurEntete.Text = "Valeur"
cellValeurEntete.Controls.Add(lblValeurEntete)
rowEntete.Cells.Add(cellValeurEntete)
- Dim cellEquipeEntete As TableCell = New TableCell()
- Dim lblEquipeEntete As Label = New Label()
- lblEquipeEntete.Text = "Etat"
- cellEquipeEntete.Controls.Add(lblEquipeEntete)
- rowEntete.Cells.Add(cellEquipeEntete)
-
Dim cellEditeurEntete As TableCell = New TableCell()
Dim lblEditeurEntete As Label = New Label()
- lblEditeurEntete.Text = "Valeur"
+ lblEditeurEntete.Text = "Editeur"
cellEditeurEntete.Controls.Add(lblEditeurEntete)
rowEntete.Cells.Add(cellEditeurEntete)
- Dim cellPositionEntete As TableCell = New TableCell()
- Dim lblPositionEntete As Label = New Label()
- lblPositionEntete.Text = "Editeur"
- cellPositionEntete.Controls.Add(lblPositionEntete)
- rowEntete.Cells.Add(cellPositionEntete)
+ Dim cellAnneeEntete As TableCell = New TableCell()
+ Dim lblAnneeEntete As Label = New Label()
+ lblAnneeEntete.Text = "Année"
+ cellAnneeEntete.Controls.Add(lblAnneeEntete)
+ rowEntete.Cells.Add(cellAnneeEntete)
rowEntete.Cells.Add(New TableCell)
rowEntete.Cells.Add(New TableCell)
@@ -261,6 +267,12 @@ Public Class MembreGererCollections
cellEditeur.Controls.Add(labEditeur)
row.Cells.Add(cellEditeur)
+ Dim cellAnnee = New TableCell
+ Dim labAnnee = New Label()
+ labAnnee.Text = fiche.DateCarte.Year
+ cellAnnee.Controls.Add(labAnnee)
+ row.Cells.Add(cellAnnee)
+
Dim btnSupprCell As TableCell = New TableCell()
Dim btnSuppr As Button = New Button()
btnSuppr.Text = "Supprimer"

0 comments on commit 5ce6a1a

Please sign in to comment.