Permalink
Browse files

Création Classe client

Ébauche
  • Loading branch information...
1 parent eff509e commit dc286c6bc1c0fd89827d8d39b230f8456efc9073 @hackxel hackxel committed Oct 8, 2012
Binary file not shown.
@@ -0,0 +1,35 @@
+Public Class CClient
+ 'Ébauche classe Client
+
+ Private m_cli_Profil As String
+ Private m_cli_MotPasse As String
+ Private m_cli_Courriel As String
+ Private m_cli_Nom As String
+ Private m_cli_Prenom As String
+ Private m_cli_DateNaiss As Date
+ Private m_cli_Type As Char
+ Private m_cli_Telephone As String
+ Private m_cli_CodePostal As String
+ Private m_cli_StatutMarital As Char
+ Private m_cli_Ville As String
+ Private m_cli_Adresse As String
+ Private m_cli_Pays As String
+
+ Private ConnStr As String
+
+ 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
+ m_cli_Courriel = Courriel
+ m_cli_Nom = Nom
+ m_cli_Prenom = Prenom
+ m_cli_DateNaiss = DateNaiss
+ m_cli_Type = Type
+ m_cli_Telephone = Telephone
+ m_cli_CodePostal = CodePost
+ m_cli_StatutMarital = StatutM
+ m_cli_Ville = Ville
+ m_cli_Adresse = Adresse
+ m_cli_Pays = Pays
+ End Sub
+End Class
@@ -43,7 +43,7 @@ Public Class CRepresentant
Dim nbrParam As Integer = 0
ConnStr = "Database=projet;" & _
- "Data Source=10.40.7.22;" & _
+ "Data Source=192.168.2.13;" & _
"User Id=axel;Password=admin123"
Dim Requete As String = "Select cli.nom, cli.prenom,util.Courriel from client cli join utilisateur util on cli.NoClient = util.NoClient where "
@@ -173,6 +173,7 @@
<DependentUpon>AccueilAssurances.aspx</DependentUpon>
<SubType>ASPXCodeBehind</SubType>
</Compile>
+ <Compile Include="CClient.vb" />
<Compile Include="Client\GestionAssurances.aspx.designer.vb">
<DependentUpon>GestionAssurances.aspx</DependentUpon>
</Compile>

0 comments on commit dc286c6

Please sign in to comment.