Programmation objet VB.Net

Version imprimable

Bonjour à tous,

J'ai développé, dans le cadre de mon examen, une application permettant la gestion de réservations de séance de cinéma.

Si le thème importe peu, l'obligation ici et que l'application doit être programmée en objet.

Ma question porte sur la méthode, car pour le moment, l'application fonctionne parfaitement mais je ne suis pas sûr d'avoir correctement utilisé l'objet, je m'explique :

Actuellement, mon application utilise trois classes métiers (client, film, projection) et une classe technique (Connexion) qui me permet donc d'exécuter diverse requête sur ma base de données.

Par exemple, pour remplir mon objet FILM, je procède ainsi :
Appel depuis le programme principal :
Code:

1 2 3 4 strRequete = "SELECT titreFilm FROM FILM WHERE idFilm=" & X objFilm = New Film(strRequete) FilmsListBox.Items.Add(objFilm.GetTitreFilm())
Constructeur de la classe FILM :
Code:

1 2 3 4 5 6 7 8 Public Sub New(ByVal UneRequete As String) Dim objConnexionBDD As Connexion objConnexionBDD = New Connexion(UneRequete) strTitreFilm = objConnexionBDD.ExecuteSelect("titreFilm") strDescriptionFilm = objConnexionBDD.ExecuteSelect("DescriptionFilm") . . . End Sub
Constructeur de la classe CONNEXION :
Code:

1 2 3 4 5 6 7 Public Sub New(ByVal UneRequete As String) objConnexion = New SqlConnection(My.Settings.ChaineConnexion) objCommande = New SqlCommand(UneRequete, objConnexion) End Sub
Fonction ExecuteSelect de la classe Connexion :
Code:

1 2 3 4 5 6 7 8 9 10 11 Public Function ExecuteSelect(ByVal Propriete As String) As String Dim ValeurRetour As String = "" objLecteur = objCommande.ExecuteReader() objLecteur.Read() ValeurRetour = CStr(objLecteur(Propriete)) objLecteur.Close() objConnexion.Close() Return ValeurRetour End Function
Ma question est : Est-ce la bonne manière d'utiliser l'objet FILM ? La requête principale ne doit-elle pas se trouver plutôt dans le constructeur et non pas dans le programme principal ?

je pensais avoir bien programmé le tout mais on m'a affirmé le contraire c'est pourquoi je me tourne vers vous avant de tout chambouler.

Merci à vous !

12/04/2012, 17h03
hunteshiva
Bonjour,

La comme ça, j'ai du mal a tout cerné.
Il n'y a pas tout et ça fait un moment que je n'ai pas fait de connexion à une BDD.

Mais non je trouve que l'utilisation est correcte.
Si ce n'est les fonction "Public Sub New", elles n'ont pas de nom? :?

dans ta classe FILM j'aurais mis plus de paramètres,
plutôt que de rentrer en dur le "titreFilm" et "DescriptionFilm"
Code:

1 2 strTitreFilm = objConnexionBDD.ExecuteSelect("titreFilm") strDescriptionFilm = objConnexionBDD.ExecuteSelect("DescriptionFilm")
je ne vois pas ou est le soucis,
peux tu nous mettre l'intégralité de ton code *dans des blocs séparés bien sur :mrgreen:
*ex: 1 bloc -> 1 class*

PS: c'est beaucoup mieux avec les balises ;)
12/04/2012, 17h03
-N4w4k-

Je ne suis pas un expert mais pour moi, tes objets Film, Client , etc. ne devraient contenir que des données et aucune méthode de remplissage/sauvegarde. Après il a été dit et redit qu'il n'y a pas qu'une méthode..

Je laisserais le soin aux personnes plus expérimenté de réagir si nécessaire mais le problème de l'architecture multi-couches a déjà beaucoup été abordé, notamment ici. Je pense que tu y trouveras les infos que tu souhaites.

++
12/04/2012, 17h26
Pol63

on ne fait pas une requete par colonne à rapatrier !
après faire de l'objet, c'est pas seulement au niveau de la connexion aux données, mais c'est surtout l'utilisation au niveau de l'ihm
si par exemple tu as un listbox, si tu mets des string dedans c'est pas OO, si tu mets des instances de film par exemple, là ca l'est

D'abord merci pour ces réponses rapides !

Voici mon code :

Ma Classe FILM :

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
 
Imports ConnexionClass
Imports ProjectionClass
Public Class Film
    Private strTitreFilm As String
    Private strDescriptionFilm As String
    Private strImageFilm As String
    Private strDureeFilm As String
    Private decNoteMoyenneFilm As Decimal
    Private intIdFilm As Integer
    Private nbFilms As Integer
 
    Public Sub New(ByVal UneRequete As String)
        Dim objConnexionBDD As Connexion
        objConnexionBDD = New Connexion(UneRequete)
        strTitreFilm = objConnexionBDD.ExecuteSelect("titreFilm")
        strDescriptionFilm = objConnexionBDD.ExecuteSelect("DescriptionFilm")
        strImageFilm = objConnexionBDD.ExecuteSelect("ImageFilm")
        strDureeFilm = objConnexionBDD.ExecuteSelect("DureeFilm")
        decNoteMoyenneFilm = CDec(objConnexionBDD.ExecuteSelect("NoteMoyenneFilm"))
        intIdFilm = CInt(objConnexionBDD.ExecuteSelect("idFilm"))
        nbFilms = CInt(objConnexionBDD.ExecuteSelect("NbFilms"))
    End Sub
 
 
    Public Function GetImageFilm() As String ' // Retourne le chemin de l'image du film
        Dim CheminImage As String
 
        CheminImage = strImageFilm
 
        Return CheminImage
    End Function
 
    Public Function GetNoteFilm() As Decimal '//  Retourne la note moyenne du film
        Dim NoteFilm As Decimal
 
        NoteFilm = decNoteMoyenneFilm
 
        Return NoteFilm
    End Function
 
    Public Function GetDureeFilm() As String '// Retourne la durée du film
        Dim DureeFilm As String
 
        DureeFilm = strDureeFilm
 
        Return DureeFilm
    End Function
 
    Public Function GetDescriptionFilm() As String '// Retourne la description du film
        Dim DescriptionFilm As String
 
        DescriptionFilm = strDescriptionFilm
 
        Return DescriptionFilm
    End Function
 
 
    Public Function GetTitreFilm() As String '// Retourne le Titre du Film en fonction de l'Identifiant
        Dim TitreFilm As String
 
        TitreFilm = strTitreFilm
 
        Return TitreFilm
    End Function
 
    Public Function GetIdFilm() As Integer '// Retourne l'id du  Film en fonction de l'Identifiant
        Dim IdFilm As Integer
 
        IdFilm = intIdFilm
 
        Return IdFilm
    End Function
 
    Public Function GetNbFilms() As String ' // Retourne le nombre de films
        Dim NombreDeFilms As Integer
 
        NombreDeFilms = nbFilms
 
        Return NombreDeFilms
    End Function
 
End Class

Ma classe CONNEXION :

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
87
88
89
90
91
92
93
94
95
96
 
Public Class Connexion
    Private objLecteur As SqlDataReader
    Private strRequete As String
    Private objCommande As SqlCommand
    Private objConnexion As SqlConnection
    Private objAdaptateurDeDonnees As SqlDataAdapter
 
    Private Function OuvertureConnexion() As Boolean
        Dim Test As Boolean
        Try
            objConnexion.Open()
            Test = True
        Catch ex As Exception
            Test = False
        End Try
 
        Return Test
    End Function
 
    Public Sub New(ByVal UneRequete As String)
 
        objConnexion = New SqlConnection(My.Settings.ChaineConnexion)
        objCommande = New SqlCommand(UneRequete, objConnexion)
 
    End Sub
 
    Public Function ExecuteSelectMultiple(ByVal Propriete As String) As Collection
        Dim CollectionRetour As New Collection
 
        If OuvertureConnexion() = True Then
            objLecteur = objCommande.ExecuteReader
 
 
            Do While objLecteur.Read
                Try
                    CollectionRetour.Add(objLecteur(Propriete))
                Catch ex As Exception
 
                End Try
            Loop
 
            objLecteur.Close()
            objConnexion.Close()
        End If
 
        Return CollectionRetour
    End Function
 
    Public Function ExecuteSelect(ByVal Propriete As String) As String
        Dim ValeurRetour As String
 
        If OuvertureConnexion() = True Then
 
            objLecteur = objCommande.ExecuteReader()
 
            Try
                objLecteur.Read()
                ValeurRetour = CStr(objLecteur(Propriete))
 
            Catch ex As Exception
                ValeurRetour = Nothing
            End Try
 
            objLecteur.Close()
            objConnexion.Close()
 
        End If
 
        Return ValeurRetour
    End Function
 
    Public Sub ExecuteUID(ByVal uneRequete As String)
        If OuvertureConnexion() = True Then
 
            objCommande.Connection = objConnexion
            objCommande.CommandType = CommandType.Text
            objCommande.CommandText = uneRequete
 
            objAdaptateurDeDonnees = New SqlDataAdapter(objCommande)
            objAdaptateurDeDonnees.SelectCommand = objCommande
 
            objCommande.ExecuteNonQuery()
            objConnexion.Close()
        End If
 
    End Sub
 
 
    Public Function GetObjCommande()
        Dim objetCommande As SqlCommand
        objetCommande = objCommande
 
        Return objetCommande
    End Function
End Class

Exemple d'appel de la classe FILM dans le programme principal :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Imports FilmClass
Public Class AlafficheForm
    Private objFilm As Film
    Private idFilm As Integer
    Private Sub AffichageFilm()
        objFilm = New Film("SELECT * FROM FILM WHERE idFilm=" & idFilm)
        ApercuPictureBox.BackgroundImage = Image.FromFile(objFilm.GetImageFilm)
        DescriptionLabel.Text = objFilm.GetDescriptionFilm
        DetailsLabel.Text = "Titre : " & objFilm.GetTitreFilm & vbNewLine
        DetailsLabel.Text &= "Durée : " & objFilm.GetDureeFilm & vbNewLine
        DetailsLabel.Text &= "Note moyenne : " & objFilm.GetNoteFilm
        AffichageTimer.Start()
    End Sub

Citation:

Mais non je trouve que l'utilisation est correcte.
Si ce n'est les fonction "Public Sub New", elles n'ont pas de nom?

Ce sont les constructeurs, ce n'est pas la bonne synthaxe ?

Merci encore.

12/04/2012, 17h38
Pol63
si les constructeurs c'est comme ca

par contre la classe film c'est tout moche ^^

déjà
Code:

1 2 3 4 5 6 7 Public Function GetNbFilms() As String ' // Retourne le nombre de films Dim NombreDeFilms As Integer NombreDeFilms = nbFilms Return NombreDeFilms End Function
ca se résume à
Code:

1 2 3 4 Public Function GetNbFilms() As String ' // Retourne le nombre de films Return nbFilms End Function
après si vous êtes notés au nombre de ligne de code je veux bien croire :D

après il faut des property (readonly si nécessaire) plutot que des fonctions

le new qui demande une requete c'est moyen aussi, un id éventuellement

et tu peux surement charger toute la liste de film en une seule fois dans une collection, même si tu as des milliers de films ca prendra moins d'1Mo de ram
comment l'utilisateur choisit le film dont il veut voir le détail ?
12/04/2012, 17h44
Jerwyn

Citation:

le new qui demande une requete c'est moyen aussi, un id éventuellement

Voila exactement ce que je me demandais !:ccool:

Donc si j'ai un nom de film et que je souhaite instancier un objet FILM, je vais d'abord chercher l'id gràce à la classe Connexion (depuis le programme principal) puis j'instancie l'objet avec cet id ? (C'est un exemple)
C'est exactement sur ce fonctionnement que j'avais des doutes.

Merci pour les trois autres remarques, je vais changer ça au plus vite :D
12/04/2012, 17h52
Pol63

si tu as une liste de noms de films affichés sur l'interface, il faut charger les id au même moment que tu charges les noms, et même tout le reste je pense

si l'utilisateur entre un nom pour voir si tu l'as dans ta base de données dans ce cas il te faut un factory avec en paramètre le nom à chercher (ca se complique par contre :D)
12/04/2012, 17h55
hunteshiva

je suis entièrement d'accord avec -N4w4k- 8O
pas de données dans les constructeurs :vomi:

l'idée c'est qu'il soit générique,
par exemple tu fait un constructeur qui récupère une colonne excel * j’appellerais ça un méthode ou fonction mais bon*
et ce constructeur tu lui met des paramétrés (Nom de la colonne, etc.)

mais rien n'est écrit en dur.
Dit toi que la fonction doit être "fléxible" et utilisable dans plusieurs cas
12/04/2012, 17h59
Jerwyn

D'accord, j'ai donc toutes les réponses à mes questions, il ne me reste plus qu'a modifier tout ça :)

Merci à tous pour votre aide :ccool: