[VB6] Module de classe ( et Form )

Version imprimable

Voir 40 message(s) de cette discussion en une page

Merci Hervé de prendre le temps de me répondre :)

Donc je résume :

- Mes " Function " ne me sont plus utiles avec ta méthode.

-
Code:

1 2 3 4 5 6 7 8 ' Place (affecte) la valeur dans la variable locale clt_Num Public Property Let Information_clt_num(ByVal iDonnees As Integer) clt_num = iDonnees End Property ' Donne (renvoie) la valeur de la variable locale clt_Num Public Property Get Information_clt_num() As Integer ...
Donc la tu donne a clt_num, ce que contient idonnees. Mais, visiblement, elle ne contient rien ? !

-

Code:

Public Property Let Information_clt_nom(ByVal sDonnees As String)

Donc comme tu l'a noté, pour faire simple ca va chercher le nom c'est ca ? il ne reste plus qu'a l'affecter au Label_Nom ?

Bon, je reprendrai ca demain matin, j'éspère que j'aurai une autre vision de la chose :p

Merci encore Hervé ;)

14/06/2007, 18h28
rv26t
Citation:

Donc la tu donne a clt_num, ce que contient idonnees. Mais, visiblement, elle ne contient rien ? !

C'est quand tu utiliseras la propriété dans ton code (d'une form ou d'un module) qu'elle sera renseigné.

Revoie mon post explicatif du 12/06 à 23h36
Code:

1 2 'Quand tu fais MaClasse.Information_clt_nom = "Lyraaa"
Le nom sera placé dans la variable locale "clt_nom" de ta classe. C'est le même principe pour "clt_num".

Ou bien lorsque tu lanceras ta fonction de recherche de ta classe (RechercheClient), c'est-elle qui renseignera les variables locales si elle a trouvé un client.

_______________________________
Citation:
Code:

1 2 3 Public Property Get Information_clt_nom() As String Information_clt_nom = clt_nom End Property

Donc comme tu l'a noté, pour faire simple ca va chercher le nom c'est ca ? il ne reste plus qu'a l'affecter au Label_Nom ?
Oui, dans ton code d'une form tu fais :

Code:

Label_Nom.caption = MaClasse.Information_clt_nom

La valeur contenu dans ta variable locale "clt_nom" de ta classe sera placé dans ton label "Label_Nom" et tu le verras. il faut que tu ais fait ta recherche avant pour avoir le client bien sur.

Tu peux peut-être montrer ce que tu as fait à la personne qui t'as dit d'utiliser les classes, elle pourra te donner quelques explications complémentaires (c'est plus pratique quand quelqu'un est juste à coté). Et puis elle verra que tu as planché sur le sujet.

_______________________________
Auparavant ,je t'ai expliqué le fonctionnement des propriétés d'un point de vue vb.

Pour simplifier la compréhention et l'utilisation des propriétés.
Une fois créées dans ta classe, tu les utilises comme des variables sauf qu'il faut mettre le nom de variable de ta classe devant.

Ex:
- variable classique
Code:

1 2 3 4 5 Dim sNom as string ' déclaration ' une valeur dans la variable sNom = ... ' Récupérer la valeur ... = sNom
- Même principe avec les propriétés (juste le nom de la variable classe devant)
Code:

1 2 3 4 5 ' déclaration : Les propriétés sont définie dans ta classe. 'une valeur dans la propriété MaClasse.Information_clt_nom = ... 'Récupérer la valeur ... = MaClasse.Information_clt_nom
Pour les fonctions et procédures pareil que des déclarations classique, juste le nom de la variable classe devant.

Code:

if MaClasse.RechercheClient("Lyraaa") then

D'ailleur quand tu tapes "MaClasse." tu dois voir apparaître tous ce que tu as déclaré en public dans ta classe dans une petite liste d'aide à la saisie.

Merci pour tes remerciements.;)

A+, Hervé.

Bonjour a tous,

Hervé, si tu me permet, je vais faire un resumé, si tu vois une erreur n'hesite pas.
En effet, je pense avoir compris " l'ensemble " mais je manque de maitrise et de pratique pour m'auto corriger.

Donc je résume, nous allons prendre le cas simple : une recherche de client
( les [...] sont les parties ou je ne sais pas quoi mettre )

Pour se faire, j'utilise 2 form ( form " tapez le nom du client " et une form ou s'affiche les info recoltés dans des labels ) et une classe de module " Client "

Donc sur le bouton " Rechercher " de la form Recherche_Client j'ai :
Code:

1 2 3 4 5 6 7 Private Sub Rechercher_Click() If [ Tu a essayé de m expliquer comment dire " Prendre comme valeur ce que l'utilisateur a tapé " mais je n'ai pas trés bien compris comment] Then ' trouvé, affiche Label_nom_client.Text = Client.information_clt_nom Else MsgBox "Pas de client." End If End Sub
Et dans la classe on a :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 private clt_nom As String Public Property Let Information_clt_nom(ByVal sDonnees As String) clt_nom = sDonnees End Property Public Property Get Information_clt_nom() As String Information_clt_nom = clt_nom End Property Public Function RechercheClient(ByVal sNom As String) As Boolean Et la phase d'initialisation.
Manque t il des choses ?

15/06/2007, 12h13
lyraaa

Bon je suis toujours en train de tester.

Mais je me demande : le code sur le bouton de recherche ne contient aucune ouverture de base de données. Est ce normal ? le fait il en allant sur le module de classe ?
15/06/2007, 13h13
rv26t

Bonjour

Citation:

If [ Tu a essayé de m expliquer comment dire " Prendre comme valeur ce que l'utilisateur a tapé " mais je n'ai pas trés bien compris comment] Then

Je ne sais pas tu as peut-être mis une TextBox. Donc t'appele la fonction avec le contenu de la textbox.

Code de la classe
Pour la fonction "RechercheClient", il faut bien sur tout le code de la fonction.
_____________
La fonction de recherche ne fait qu'une interrogation, elle n'ouvre pas la base, il faut le faire avant, mais tu m'as dis que ton module gérait cela.

Citation:

Pour acceder a la base de données, j'ai déjà crée les modules. Ces modules servent a la fois de Création de .ini et de connexion a la bdd.

A+
15/06/2007, 15h03
lyraaa

En effet, j'ai bien un module de connexion.

Et oui, on recherche le nom du client dans une TextBox.
Donc je met quoi ? If LaClasse.RechercheClient = T_nom_client.text ??

Le reste du code est bon ?
16/06/2007, 00h31
rv26t
Tout simplement en lui passant le contenu de la textBox
Code:

1 2 If MaClasse.RechercheClient(T_nom_client.text) Then '[suite de ton code ... ok]
Voila, maintenant tu que connais le principe d'utilisation d'une classe, tu vas pouvoir réaliser ton application.

Au revoir, Hervé.

Merci Hervé.

Grace a ton aide, et celle de celui qui me supervise, j'ai pu m'en sortir.

Bref, il m'a aiguillé, et j'ai reussi a effectuer les recherche.
Ca marche parfaitement pour les Entreprises, les Clients, mais pas les courtiers...

Il me dis : Membre de méthode ou de données introuvable

Pourtant c'est strictement la même structure que pour Cleint et entreprise.

En rouge, le passage indiqué ou cela ne marche pas :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
Option Explicit


Public Function RechercherCourtier(ByVal pCode As String) As Boolean

' requetes

   Dim sRequete As String
    Dim rstLigneTable As ADODB.Recordset
    Dim l_courtier As Courtier
    Dim l_compteur As Integer

' ecran sortie
 Procedures.initialiserResultats
 

  
  ' Affectation var
  RechercherCourtier = False
  Set l_courtier = New Courtier
  l_courtier.initialiserTableauRechercherTitre
  Range("D13").Value = " Recherche sur le code courtier : " & pCode
  
  ' Methodes
  
  sRequete = "select * from courtier WHERE crt_code like '%" & pCode & "%'"
  Set rstLigneTable = New ADODB.Recordset
  
  ' Ouverture DB
  BDD.Open
  
  ' Enregistrement
  
  Set rstLigneTable = New ADODB.Recordset
  rstLigneTable.Open (sRequete), BDD
  

Call Procedures.presenterTitre(l_tableauRechercheTitre, 11)

' Boucle

    l_compteur = 0

While Not rstLigneTable.EOF
    RechercherCourtier = True

' Récup de données
Set l_courtier = New Courtier
l_compteur = l_compteur + 1



' Methode d'initialisation objet

Call l_courtier.constructorCrt(rstLigneTable("crt_code"), rstLigneTable("crt_nomdiri"), rstLigneTable("crt_prenomdiri"), rstLigneTable("crt_adresse"), rstLigneTable("crt_adresse_suite"), rstLigneTable("crt_cp"), rstLigneTable("crt_ville"), rstLigneTable("crt_telephone"), rstLigneTable("crt_portable"), rstLigneTable("crt_mail"), rstLigneTable("crt_siren"), rstLigneTable("crt_retrocession"))


' Affichage resultats


Procedure.presenterDonnees l_courtier.initialiserTableauRechercherValeur, 12, l_compteur


 
' Enregistrement suivant
rstLigneTable.MoveNext

Wend

' Fermeture BDD
rstLigneTable.Close
BDD.Close
End Function



Private Sub bc_rechcourt_Click()

'Recherche un courtier

    Connexion.form_load
    RechercherCourtier (t_rechcourt.Text)
    End
    
    
End Sub

Le module ou est declaré la méthode :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
 
 
'Méthode initialiserResultats()
'-> Permet d'initialiser l'écran pour l'affichage des résultats
 
Sub initialiserResultats()
    Range("D13").Value = ""
 
    Rows("15:100").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
 
    Range("B16:O16").Select
    Selection.Font.Bold = True
    Selection.Font.ColorIndex = 0
    Selection.Font.ColorIndex = 2
    Selection.Interior.ColorIndex = 1
 
 
End Sub
 
Sub presenterTitre(ByRef tableauLibelle() As String, ByVal p_nbEnregistement As Integer)
 
    'Déclarations variables
    Dim l_indiceColonne As Integer
    Dim l_indiceLigne As Integer
    Dim l_compteurColonne As Integer
    Dim l_compteurLigne As Integer
 
    'INitialisation variable
    l_indiceColonne = 66 'Colonne B
    l_indiceLigne = 16 ' Ligne 16
    l_compteurLigne = 1
 
    For l_compteurColonne = l_indiceColonne To (l_indiceColonne + p_nbEnregistement - 1)
        Range(Chr(l_compteurColonne) & l_indiceLigne).Value = tableauLibelle(l_compteurLigne)
        l_compteurLigne = l_compteurLigne + 1
    Next
 
End Sub
 
Sub presenterDonnees(ByRef tableauValeurs() As String, ByVal p_nbEnregistement As Integer, ByVal p_numLigne As Integer)
 
    'Déclarations variables
    Dim l_indiceColonne As Integer
    Dim l_indiceLigne As Integer
 
    'INitialisation variable
    l_indiceColonne = 66 'Colonne B
    l_indiceLigne = 16 + p_numLigne
    l_compteurLigne = 1
 
    For l_compteurColonne = l_indiceColonne To (l_indiceColonne + p_nbEnregistement - 1)
        Range(Chr(l_compteurColonne) & l_indiceLigne).Value = tableauValeurs(l_compteurLigne)
        l_compteurLigne = l_compteurLigne + 1
    Next
 
End Sub

et la classe de module courtier contient bien :

Code:

1
2
3
4
5
 
Public Sub init()
 
initialiserTableauRechercherTitre
initialiserTableauRechercherValeur

une idée ??

merci

19/06/2007, 13h52
rv26t

Bonjour,

Citation:

Il me dis : Membre de méthode ou de données introuvable
Procedure.presenterDonnees l_courtier.initialiserTableauRechercherValeur, 12, l_compteur

Il manque le s à "procedures"

Code:

Procedures.presenterDonnees l_courtier.initialiserTableauRechercherValeur, 12, l_compteur

Sinon simplement pour que ce soit uniforme appele la avec call comme "Procedures.presentertitre" (n'oubli pas les () )

A+, Hervé.
19/06/2007, 15h13
lyraaa

j'ai rajotué le "s"; corrigé l'appel de procédure qui était erroné, et passé en revue l'ensemble de la page.

Elle est strictement similaire a celle de " Recherche client " et " recherche entreprise " et pourtant, toujours cette même fichue erreur !!!

je m'arrache les cheuveux, auriez vosu d'autre suggestions ?

merci
19/06/2007, 18h58
rv26t
Dans une classe les procédures et fonctions s'appelle des méthodes.

Citation:

Il me dis : Membre de méthode ou de données introuvable

Il me semble que le soucis doit être avec l_courtier. Il ne doit pas reconnaître la méthode "initialiserTableauRechercherValeur". (sub ?)

Code:

call Procedures.presenterDonnees (l_courtier.initialiserTableauRechercherValeur, 12, l_compteur)

Utilisé ainsi "l_courtier.initialiserTableauRechercherValeur" devrait être une méthode (fonction) qui renvoie un tableau (impossible). Mais ce n'est pas le cas, n'est-ce pas ?

Une supposition de ma part (mais j'en suis presque sur), ne faudrait-il pas faire comme pour "recherchertitre" (voir plus haut dans le code)
Code:

1 2 l_courtier.initialiserTableauRechercherValeur call Procedures.presenterDonnees (l_TableauRechercherValeur, 12, l_compteur)
Parce-que de toutes façons "presenterDonnees" attend pour premier paramètre un tableau par référence, donc comme paramètre il faut un tableau, pas une fonction. Il ne fait pas une copie locale, il va directement travailler avec le tableau.

Il me semble que cela devrait déjà faire avancer les choses.
Je te laisse essayer mes suggestions.

Edit: je me posais une question sur le set l_courtier dans la boucle mais je ne sais pas trop. (rien à voir avec le problème)
Quelque part tu dois avoir aussi un Set l_courtier = Nothing

En tout cas, tu bosses. :) Bravo.

A+, Hervé.
20/06/2007, 11h33
lyraaa

Merci Hervé, en effet, la solution est bien celle que tu as avancé :

Citation:

Une supposition de ma part (mais j'en suis presque sur), ne faudrait-il pas faire comme pour "recherchertitre" (voir plus haut dans le code)
Code :

l_courtier.initialiserTableauRechercherValeur call Procedures.presenterDonnees (l_TableauRechercherValeur, 12, l_compteur)

Parce-que de toutes façons "presenterDonnees" attend pour premier paramètre un tableau par référence, donc comme paramètre il faut un tableau, pas une fonction.

En effet, j'étais tellement dans ce code, dans cette erreur, que j'avais vraiment pas vu. Pourtant j'ai relu le code au moins 500 fois.

Merci pour tes encouragements. A vrai dire, je te dois beaucoup, ainsi qu'a celui qui me " supervise ". Sans ca, je n'en serais jamais la ;)

Bon sur ce, le tag " Résolu " peut enfin être coché :) mais j'ai encore plein de questions, qui viendront dans un autre post :king:

bye bye :)

edit :

Citation:

Quelque part tu dois avoir aussi un Set l_courtier = Nothing

Ah non, je n'ai pas ca, du moins, pas écrit comme ca.
20/06/2007, 12h29
rv26t

Oui, cela arrive quand on a une erreur, de temps en temps il faut prendre un peu de recul, et revenir à tête reposée.

Très heureux que mes quelques conseils aient pu t'aider. :)

A une prochaine, peut-être, si je connais les réponses. ;)
Bye, Hervé.

Voir 40 message(s) de cette discussion en une page