Permalink
Browse files

Recherche Avancée

Nouvelle classe CDemandeClient
!À FAIRE!->modifier la tables demandegest il manque le champs pour le
type de demande
  • Loading branch information...
1 parent 784610c commit 33fd2d92003b733e30e855bebe9529909087071f @hackxel hackxel committed Oct 11, 2012
View
BIN Cabinet Services Jennie Huard.suo
Binary file not shown.
View
13 Cabinet Services Jennie Huard/CClient.vb
@@ -17,6 +17,10 @@
Private ConnStr As String
+ Public Sub New()
+
+ End Sub
+
Public Sub New(ByVal Profil, ByVal MDP, ByVal Courriel, ByVal Nom, ByVal Prenom, ByVal DateNaiss, ByVal Type, ByVal Telephone, ByVal CodePost, ByVal StatutM, ByVal Ville, ByVal Adresse, ByVal Pays)
m_cli_Profil = Profil
m_cli_MotPasse = MDP
@@ -37,7 +41,14 @@
m_cli_Prenom = Prenom
m_cli_Courriel = Courriel
End Sub
-
+ Public Property NomProfil() As String
+ Get
+ Return m_cli_Profil
+ End Get
+ Set(ByVal value As String)
+ m_cli_Profil = value
+ End Set
+ End Property
'Propriété pour le Nom
Public Property Nom() As String
Get
View
24 Cabinet Services Jennie Huard/CDemandeClient.vb
@@ -0,0 +1,24 @@
+Public Class CDemandeClient
+ Private m_NoDemClient As Integer
+ Private m_NomClient As String
+ Private m_DemClient_Nom As String
+ Private m_DemClient_Prenom As String
+ Private m_DemClient_DateNaiss As Date
+ Private m_DemClient_Type As Char
+ Private m_DemClient_Telephone As String
+ Private m_DemClient_CodePostal As String
+ Private m_DemClient_StatutMarital As Char
+ Private m_DemClient_Ville As String
+ Private m_DemClient_Adresse As String
+ Private m_DemClient_Pays As String
+ Private m_DemClient_Statut As String
+ Private m_DemClient_Texte As String
+
+
+ 'Fonction pour modifier le Statut
+
+ 'repondre a demande
+
+ 'flagger a suprimmer
+
+End Class
View
23 Cabinet Services Jennie Huard/CRepresentant.vb
@@ -10,6 +10,11 @@ Public Class CRepresentant
m_NomRep = Nom
m_MotPasseRep = MDP
m_CourrielRep = Courriel
+ 'String de Connection à la bd
+ ConnStr = "Database=projet;" & _
+ "Data Source=192.168.2.13;" & _
+ "User Id=axel;Password=admin123"
+
End Sub
Public Property Nom() As String
Get
@@ -36,10 +41,6 @@ Public Class CRepresentant
Dim Result As New ArrayList
Dim nbrParam As Integer = 0
- 'String de Connection à la bd
- ConnStr = "Database=projet;" & _
- "Data Source=192.168.2.13;" & _
- "User Id=axel;Password=admin123"
Dim Requete As String = "Select * from client where "
'Analyse des paramètres de recherche
@@ -102,4 +103,18 @@ Public Class CRepresentant
End Try
End Function
+
+ 'Fonction de Recherche des demandes de Clients exécution au premier load de la page
+ Public Function RechercheDemandeClient() As ArrayList
+ Dim Resultat As New ArrayList
+ Dim Requete As String
+ Requete = "Select * from "
+ Return Resultat
+ End Function
+ 'Fonction de recherche des demandes clients selon le nom et prenom du client retourne la demande
+
+
+ 'Fonction de recherche des demandes d'inscription va être affiché en mm temps que recherche demande client
+
End Class
+
View
1 Cabinet Services Jennie Huard/Cabinet Services Jennie Huard.vbproj
@@ -174,6 +174,7 @@
<SubType>ASPXCodeBehind</SubType>
</Compile>
<Compile Include="CClient.vb" />
+ <Compile Include="CDemandeClient.vb" />
<Compile Include="Client\GestionAssurances.aspx.designer.vb">
<DependentUpon>GestionAssurances.aspx</DependentUpon>
</Compile>
View
3 Cabinet Services Jennie Huard/Global.asax.vb
@@ -9,7 +9,8 @@ Public Class Global_asax
Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
' Se déclenche lorsque la session est démarrée
-
+ Session("resultat") = New ArrayList
+ Session("SelClient") = New CClient
End Sub
Sub Application_BeginRequest(ByVal sender As Object, ByVal e As EventArgs)
View
1 Cabinet Services Jennie Huard/Representant/ConsulterDemandes.aspx
@@ -4,6 +4,7 @@
<asp:Content ID="HeaderContent" runat="server" ContentPlaceHolderID="HeadContent">
</asp:Content>
<asp:Content ID="BodyContent" runat="server" ContentPlaceHolderID="MainContent">
+ <h2>&nbsp;</h2>
<h2>Les demandes :</h2>
<br />
<asp:Table ID="tbl_Demandes" runat="server" BorderColor="Black"
View
23 Cabinet Services Jennie Huard/Representant/RechercherClient.aspx
@@ -1,6 +1,6 @@
<%@ Page Title="" Language="vb" AutoEventWireup="false" MasterPageFile="~/Site.Master" CodeBehind="RechercherClient.aspx.vb" Inherits="Cabinet_Services_Jennie_Huard.RechercherClient" %>
<asp:Content ID="Content1" ContentPlaceHolderID="HeadContent" runat="server">
-</asp:Content>
+ </asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="MainContent" runat="server">
<h2>
Recherche d'un client:
@@ -46,4 +46,25 @@
<asp:TableCell ID="TableCell3" runat="server" Enabled="False">Adresse e-mail</asp:TableCell>
</asp:TableRow>
</asp:Table>
+ <br />
+ <table>
+ <tr>
+ <td>
+ <asp:Label ID="lblPos" runat="server" Text="Position du client:"
+ Visible="False"></asp:Label>
+ </td>
+ <td><asp:TextBox ID="txtNoClient" runat="server" Visible="False" /></td>
+ </tr>
+ </table>
+ <br /><br />
+ <table>
+ <tr>
+ <td><asp:Button ID="btnContacter" runat="server" Text="Contacter" Width="100px"
+ Visible="False" /></td>
+ <td></td>
+ <td><asp:Button ID="btnGerer" runat="server" Text="Gérer le compte" Width="100px"
+ Visible="False" /></td>
+ </tr>
+ </table>
+
</asp:Content>
View
36 Cabinet Services Jennie Huard/Representant/RechercherClient.aspx.designer.vb
@@ -102,4 +102,40 @@ Partial Public Class RechercherClient
'''Pour modifier, déplacez la déclaration de champ du fichier de concepteur dans le fichier code-behind.
'''</remarks>
Protected WithEvents TableCell3 As Global.System.Web.UI.WebControls.TableCell
+
+ '''<summary>
+ '''Contrôle lblPos.
+ '''</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 lblPos As Global.System.Web.UI.WebControls.Label
+
+ '''<summary>
+ '''Contrôle txtNoClient.
+ '''</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 txtNoClient As Global.System.Web.UI.WebControls.TextBox
+
+ '''<summary>
+ '''Contrôle btnContacter.
+ '''</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 btnContacter As Global.System.Web.UI.WebControls.Button
+
+ '''<summary>
+ '''Contrôle btnGerer.
+ '''</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 btnGerer As Global.System.Web.UI.WebControls.Button
End Class
View
28 Cabinet Services Jennie Huard/Representant/RechercherClient.aspx.vb
@@ -2,16 +2,19 @@
Public Class RechercherClient
Inherits System.Web.UI.Page
+
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Protected Sub btnRechcercheClient_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnRechcercheClient.Click
Dim Rep As New CRepresentant("test", "test123", "test@hotmail.com")
Dim resultat As New ArrayList
+
+
'Recherche du (des) client
resultat = Rep.RechercherClient(txtNom.Text, txtPrenom.Text, txtVille.Text, ddTypeClient.SelectedValue.ToString())
-
+ Session("resultat") = resultat
'Affichage des résultats
For Each Client As CClient In resultat
Dim rangee As New TableRow
@@ -24,16 +27,27 @@ Public Class RechercherClient
Cellule = New TableCell()
Cellule.Text = Client.Courriel()
rangee.Cells.Add(Cellule)
+ Cellule = New TableCell()
+ rangee.Cells.Add(Cellule)
tableResultat.Rows.Add(rangee)
+
Next
+ lblPos.Visible = True
+ txtNoClient.Visible = True
+ btnContacter.Visible = True
+ btnGerer.Visible = True
+ End Sub
+ Protected Sub btnContacter_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnContacter.Click
+ Dim NoClient As Integer
+ NoClient = Val(txtNoClient.Text)
- End Sub
- Public Sub Test()
- Dim i As Integer
- i = 4
- '"<a href=" & Chr(34) & "./ContacterClient.aspx" & Chr(34) & " onclick= " & Chr(34) & "Test" & Chr(34) &
- '" runat=" & Chr(34) & "server" & Chr(34) & ">" + reader.GetString(2) + "</a>" 'Cellule pour l'adresse courriel
+ Session("SelClient") = CType(Session.Item("resultat"), ArrayList).Item(NoClient - 1)
+ Dim Selection As New CClient
+ Selection = CType(Session.Item("SelClient"), CClient)
+
+ Response.Redirect("~/Representant/ContacterClient.aspx")
End Sub
+
End Class
View
BIN Cabinet Services Jennie Huard/bin/Cabinet Services Jennie Huard.dll
Binary file not shown.
View
BIN Cabinet Services Jennie Huard/bin/Cabinet Services Jennie Huard.pdb
Binary file not shown.
View
32 Cabinet Services Jennie Huard/bin/Cabinet Services Jennie Huard.xml
@@ -470,6 +470,38 @@ Contrôle TableCell3.
Champ généré automatiquement.
Pour modifier, déplacez la déclaration de champ du fichier de concepteur dans le fichier code-behind.
</remarks>
+</member><member name="F:Cabinet_Services_Jennie_Huard.RechercherClient.lblPos">
+ <summary>
+Contrôle lblPos.
+</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>
+</member><member name="F:Cabinet_Services_Jennie_Huard.RechercherClient.txtNoClient">
+ <summary>
+Contrôle txtNoClient.
+</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>
+</member><member name="F:Cabinet_Services_Jennie_Huard.RechercherClient.btnContacter">
+ <summary>
+Contrôle btnContacter.
+</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>
+</member><member name="F:Cabinet_Services_Jennie_Huard.RechercherClient.btnGerer">
+ <summary>
+Contrôle btnGerer.
+</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>
</member><member name="F:Cabinet_Services_Jennie_Huard.Site.HeadContent">
<summary>
Contrôle HeadContent.
View
BIN Cabinet Services Jennie Huard/obj/Debug/Cabinet Services Jennie Huard.dll
Binary file not shown.
View
BIN Cabinet Services Jennie Huard/obj/Debug/Cabinet Services Jennie Huard.pdb
Binary file not shown.
View
32 Cabinet Services Jennie Huard/obj/Debug/Cabinet Services Jennie Huard.xml
@@ -470,6 +470,38 @@ Contrôle TableCell3.
Champ généré automatiquement.
Pour modifier, déplacez la déclaration de champ du fichier de concepteur dans le fichier code-behind.
</remarks>
+</member><member name="F:Cabinet_Services_Jennie_Huard.RechercherClient.lblPos">
+ <summary>
+Contrôle lblPos.
+</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>
+</member><member name="F:Cabinet_Services_Jennie_Huard.RechercherClient.txtNoClient">
+ <summary>
+Contrôle txtNoClient.
+</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>
+</member><member name="F:Cabinet_Services_Jennie_Huard.RechercherClient.btnContacter">
+ <summary>
+Contrôle btnContacter.
+</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>
+</member><member name="F:Cabinet_Services_Jennie_Huard.RechercherClient.btnGerer">
+ <summary>
+Contrôle btnGerer.
+</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>
</member><member name="F:Cabinet_Services_Jennie_Huard.Site.HeadContent">
<summary>
Contrôle HeadContent.
View
BIN Documentation/~$ojet Implantation Axel-Joey-Mathieu.docx
Binary file not shown.

0 comments on commit 33fd2d9

Please sign in to comment.