Application multi couche

Signaler
Messages postés
71
Date d'inscription
jeudi 7 juillet 2011
Statut
Membre
Dernière intervention
27 novembre 2017
-
en faite mon projet est de programmé en réalisant une application multi-couche c'est à dire séparer interface utilisateur, une class USER , une classe Connection et un module qui regroupe mes fonctions.

Je sais pas si ma disposition est correcte j'en ai déduis cela en fonction de ce que j'ai pu lire sur internet d'ailleurs j'ai trouvé des exemples mais assez compliqué pour comprendre

voici mon module de fonction

Module fonction

    '--------- B D D ----------------

    'renvoie l'emplacement où se trouve la BD
    Public Function createChemin() As String
        Dim chemin As String
        Dim dbname As String = "Data_base"
        Dim cheminApp As String = Application.StartupPath
        cheminApp &= ""

        chemin = cheminApp & dbname & ".accdb"
        'MessageBox.Show(chemin)
        Return chemin
    End Function

    'Test si un fichier existe
    ' dans ce cas-là, test si la base existe à l'aide de son chemin
    Public Function ExistBase() As Boolean
        Return System.IO.File.Exists(createChemin())
    End Function

    '--------- FORMULAIRE -----------

    'Message personnalisé de chaque form
    Public Function Fermeture(ByVal fr As Form)
            Return Not (MessageBox.Show("Voulez-vous quitter " & fr.Name, ".:: DEMANDE", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes)
    End Function

    'Affichage en fonction du formulaire 
    Public Sub Affichage(ByVal fr As Form, ByVal gb As GroupBox)
        Select Case fr.Name
            Case "connection"
                AffichageConnection(gb)
        End Select
    End Sub

    'Affiche ou pas les ctrl de la page Connection
    Private Sub AffichageConnection(ByVal gb As GroupBox)
        For Each ctrl In gb.Controls
            ctrl.Enabled = False
            If ctrl.Name = "Linscription" Then
                ctrl.Enabled = True
            End If
        Next
    End Sub

    'vérifie si TextBox vide
    Private Function TBvide(ByVal tb As TextBox) As Boolean
        'return true si vide
        Return tb.Text = ""
    End Function

    'vérifie si ComboBox vide
    Private Function CBvide(ByVal cb As ComboBox) As Boolean
        'return true si vide
        Return cb.SelectedText = ""
    End Function

    'Parcours controls dans un GroupBox
    Public Sub Verif_Ctrl(ByVal gb As GroupBox, ByRef ep As ErrorProvider)
        'Pour chaque CTRL dans le GroupBox
        For Each ctrl In gb.Controls
            'Si le type est TextBox
            If TypeOf ctrl Is TextBox Then
                'Si fonction TBvide = true
                If TBvide(ctrl) Then
                    ep.SetError(ctrl, "Champ " & ctrl.name & " vide !")
                End If
                'Si le type est ComboBox
            ElseIf TypeOf ctrl Is ComboBox Then
                'Si fonction TBvide = true
                If CBvide(ctrl) Then
                    ep.SetError(ctrl, "Sélection " & ctrl.name & " vide !")
                End If
            End If
        Next
    End Sub
End Module






je voulais savoir que vous pensiez de cela ? et si la fonction du chemin et la fonction existBase sont a placé dans la classe connection.

Et aussi si par hazard vous auriez un lien pour un exemple simple de VB.net en multi-couche.