Page 476 - IT2
P. 476

0,1

                                 0,n
                                        EstSousC





            MLD : Le modèle conceptuel de données en découle.





            Dossier 4  (7 pts)

            Il est évident que plusieurs approches peuvent être adoptées pour la résolution de ce dossier.
            L’implémentation se fera évidemment selon le langage choisi.
            Le correcteur saura juger de la pertinence de la solution et du respect des règles de la programmation
            structurée et les fondements de la POO. Toutefois voici une implémentation partielle en VB, sur
            laquelle les solutions proposées pourraient se baser :

            Public MustInherit Class F_D
                Private _nom As String
                Private _cat As New Categorie
                Private _prop As New Proprietaire

                Public Property nom As String
                    Get
                        Return _nom
                    End Get
                    Set(ByVal value As String)
                        _nom = value
                    End Set
                End Property

                Public Property cat As Categorie
                    Get
                        Return _cat
                    End Get
                    Set(ByVal value As Categorie)
                        _cat = value
                    End Set
                End Property

                Public Property prop As Proprietaire
                    Get
                        Return _prop
                    End Get
                    Set(ByVal value As Proprietaire)
                        _prop = value
                    End Set
                End Property

                Public Sub New()

                End Sub

                Public Sub New(ByVal nom As String)
                    Me.nom = nom
                End Sub

                Public Sub New(ByVal f_d As F_D)
                    Me.nom = f_d.nom
                                         www.itlearning-settat.com                                 4/5

                                  Email: admission@itlearning-settat.com

                                                  Tél.:0661077812
   471   472   473   474   475   476   477   478   479   480   481