Navigation entre des utilisateurs en vb 2010

Version imprimable

Salut, j'ai un projet en vb net 2010 et j'ai 3 utilisateurs qui se connectent avec différents comptes via un formulaire connexion.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        If LoginTextbox.Text = "Administrator" And PasswordTextBox.Text = "admin" Then
            Me.Close()
            EcranAdmin()
            FrmMDI.ShowDialog()
        ElseIf LoginTextbox.Text = "Responsable Achat" And PasswordTextBox.Text = "achat" Then
            Me.Close()
            EcranRA()
            FrmMDI.ShowDialog()
        ElseIf LoginTextbox.Text = "Responsable Uniforme" And PasswordTextBox.Text = "uniforme" Then
            Me.Close()
            EcranRMU()
            FrmMDI.ShowDialog()
        Else
            MessageBox.Show("Login et/ou Mot de passe incorrect(s)", "ERREUR", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            LoginTextbox.Text = ""
            PasswordTextBox.Text = ""
        End If
    End Sub

Le menu déconnexion de mon formulaire principal contient le code suivant :

Code:

1
2
3
4
5
 
Me.Hide()
        FrmLogin.LoginTextbox.Text = ""
        FrmLogin.PasswordTextBox.Text = ""
        FrmLogin.ShowDialog()

Le probleme est que je n'arrive pas à naviguer entre les differents utilisateurs. Quand je me deconnecte et que je veux me connecter a un autre utilisateurs, j'ai cette exception :

Citation:

Form that is already displayed modally cannot be displayed as a modal dialog box. Close the form before calling showDialog.

Merci de bien vouloir m'aider.
Cordialement

16/05/2011, 11h38
Kropernic

La réponse se trouve dans le message d'erreur il me semble...
16/05/2011, 14h28
Pol63

ta form est affichée et visible, il est alors impossible d'appeler showdialog
rien à voir avec des utilisateurs ... 8O

donc soit tu repenses ce que tu as codé, soit tu tente de bricoler avec frm.hide avant frm.showdialog :aie:

Citation:

Envoyé par Pol63

ta form est affichée et visible, il est alors impossible d'appeler showdialog
rien à voir avec des utilisateurs ... 8O

donc soit tu repenses ce que tu as codé, soit tu tente de bricoler avec frm.hide avant frm.showdialog :aie:

Merci Pol63. Même avec le frm.hide. Par contre avec un frm.dispose je peux naviguer entre mes utilisateurs mais le hic est lorsque je souhaite fermer mon formulaire, je dois fermer plusieurs fois en fonction du nombre de fois que j'ai changé d'utilisateurs.Je rappelle par la suite que j'ai géré l'évènement form closing de mon formulaire principal de telle sorte qu'il me demande de comfirmer avant de quitter definitivement le projet.
Code:

1 2 3 4 5 6 Dim reponse As Integer reponse = MessageBox.Show("Voulez vous Quitter?", "QUITTER", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) If reponse = vbNo = True Then e.Cancel = True End If

18/05/2011, 09h24
Psycadi

Je pense que tu devrais revoir la façon dont est gérer la connexion.

Moi je le verrais comme ça.

1 - Ouverture de l'application
2 - Création d'un objet utilisateur "vide"
3 - Test si utilisateur est vide alors affichage du formulaire d'authentification
4 - Le formulaire d'authentification te retourne un objet non vide
5 - Fermeture du formulaire d'authentification
6 - Ouverture du formulaire voulu en fonction de l'utilisateur connecté.

Par contre, je ne comprend pas pourquoi tu fais un

Code:

FrmMDI.ShowDialog()

Si c'est un formulaire de type MDI, pourquoi ne pas l'afficher dès le début? Même si tu le laisse vide tant que personne n'est connecté. Et du coup, c'est ce formulaire qui ouvre le formulaire d'authentification.
25/05/2011, 12h50
tiny23

Citation:

Envoyé par JaCaDi

Je pense que tu devrais revoir la façon dont est gérer la connexion.

Moi je le verrais comme ça.

1 - Ouverture de l'application
2 - Création d'un objet utilisateur "vide"
3 - Test si utilisateur est vide alors affichage du formulaire d'authentification
4 - Le formulaire d'authentification te retourne un objet non vide
5 - Fermeture du formulaire d'authentification
6 - Ouverture du formulaire voulu en fonction de l'utilisateur connecté.

Par contre, je ne comprend pas pourquoi tu fais un

Code:

FrmMDI.ShowDialog()

Si c'est un formulaire de type MDI, pourquoi ne pas l'afficher dès le début? Même si tu le laisse vide tant que personne n'est connecté. Et du coup, c'est ce formulaire qui ouvre le formulaire d'authentification.

Donc tout devrait fonctionner comme suit :
1- Ouverture du splashscreen
2- Ouverture du formulaire principal avec tous les menus grisés sauf "Menu", "Connexion".
3- Ouverture du formulaire d'authentification et choix de l'utilisateur
4- Ouverture de l'interface en fonction de l'utilisateur choisi (les menus accessibles).
Maintenant comment se passera la navigation entre les users ?
on aura un menu "deconnexion" qui devra fermer la connexion ouverte et afficher le formulaire authentification. Je ne sais pas comment m'y prendre. Y a t'il une différence entre objet utilisateur vide et le controle utilisateur ?
25/05/2011, 16h50
Psycadi

Je ne vois pas trop ce qu'est ton splashscreen mais voici ce que j'ai fait sur une application multiuser. Ce n'est pas parfait mais ça marche assez bien.

J'ai créé un objet User avec son Login, Mdp, Droit d'accès...

Mon application ouvre une fenêtre MDI avec juste le menu et on ne peut que faire "Connexion" et "Quitter" dans cette fenêtre Mdi, j'ai un objet user null car personne n'est connecté.
L'utilisateur ouvre le menu Connexion et s'authentifie. Cet formulaire retourne un objet user au formulaire MDI et donc mon formulaire MDI connaît mon user connecté et affiche le menu en conséquence.
Mon menu "Connexion" devient "Déconnexion".
Si l'utilisateur clique sur déconnexion, je remet l'objet user de mon MDI à vide et vide le menu pour ne laisser que Connexion et Quitter.

Le contrôle utilisateur n'est que de l'affichage pour renseigner ton objet user.

Ensuite, il te reste à faire le "joli" comme affiché automatiquement le formulaire de connexion si l'objet user est vide...
26/05/2011, 21h08
tiny23

Citation:

Envoyé par JaCaDi

J'ai créé un objet User avec son Login, Mdp, Droit d'accès...

Avec SQL Server ou VB Net ?

À vrai dire, je ne suis pas assez bon en SQL Serveur pour savoir si on peut y créer des objets.

Donc, je pense que le plus simple serait de faire une objet en VB.net.

Un truc genre

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
Public Class oUser
    Private pLogin As String
    Private pPwd As String
    Private pProfile As eProfile
 
 
    Public Property Login() As String
        Get
            Login = pLogin
        End Get
        Set(ByVal Value As String)
            pLogin = Value
        End Set
    End Property
 
    Public Property Pwd() As String
        Get
            Pwd = pPwd
        End Get
        Set(ByVal Value As String)
            pPwd = Value
        End Set
    End Property
 
    Public Property Profile() As eProfile
        Get
            Profile = pProfile
        End Get
        Set(ByVal Value As eProfile)
            pProfile = Value
        End Set
    End Property
End Class

Citation:
Envoyé par JaCaDi
À vrai dire, je ne suis pas assez bon en SQL Serveur pour savoir si on peut y créer des objets.

Donc, je pense que le plus simple serait de faire une objet en VB.net.

Un truc genre
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 Public Class oUser Private pLogin As String Private pPwd As String Private pProfile As eProfile Public Property Login() As String Get Login = pLogin End Get Set(ByVal Value As String) pLogin = Value End Set End Property Public Property Pwd() As String Get Pwd = pPwd End Get Set(ByVal Value As String) pPwd = Value End Set End Property Public Property Profile() As eProfile Get Profile = pProfile End Get Set(ByVal Value As eProfile) pProfile = Value End Set End Proiperty End Class
eProfile n'est pas reconnu en tant que type.

En sql server, j'ai créé 3 connexions avec 3 utilisateurs et j'ai ajouter une nouvelle table User avec comme Attributs (Nom,Prenom,Login,Password).
Maintenant ce que je voudrait, c'est à l'aide de vb net 2010 de pouvoir avoir accès à ma base de données par l'un de ses trois utilisateurs.

27/05/2011, 16h26
Psycadi

Le code que j'ai posté est un exemple. Le eProfile est un type perso, tu n'en as peut-être pas besoin.

Par contre, je ne comprends pas pourquoi tu as créé 3 connexions avec 3 utilisateurs sous SQL Server.
À mon avis, tu mélanges connexion à la base de données et connexion à l'application.
30/05/2011, 10h37
tiny23

Citation:

Envoyé par JaCaDi

Le code que j'ai posté est un exemple. Le eProfile est un type perso, tu n'en as peut-être pas besoin.

OK

Citation:

Envoyé par JaCaDi

Par contre, je ne comprends pas pourquoi tu as créé 3 connexions avec 3 utilisateurs sous SQL Server.
À mon avis, tu mélanges connexion à la base de données et connexion à l'application.

Ca doit être ca. J'ai créé 3 utilisateurs sous sql parce que je me suis dit que ca serai plu simple de gérer les droits. Parce que 2 d'entre les 3 n'auront pas la possibilité de supprimer un enrégistrement. Maintenant s'il ya un autre moyen plus simple de pouvoir réaliser ca ca serai bien parce que ce que j'ai en tête actuellement, c'ai de créer 3 formulaires principaux, supprimer les 3 users que j'ai créer et les gerer directement dans vb dans un block if. Mais ca se semble ne pas etre une bonne reflexion, ca alourdirait le programme pour rien.

Problème résolu. Suis passé par cette méthode

Le bouton OK du Frmlogin

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        If (LoginTextbox.Text = "Administrateur" And PasswordTextBox.Text = "admin") Then
            Me.Close()
            FrmMDI.Close()
            EcranAdmin()
            FrmMDI.ShowDialog()
        ElseIf LoginTextbox.Text = "Responsable Achat" And PasswordTextBox.Text = "achat" Then
            Me.Close()
            FrmMDI.Close()
            EcranRA()
            FrmMDI.ShowDialog()
        ElseIf (LoginTextbox.Text = "Responsable Uniforme" And PasswordTextBox.Text = "uniforme") Then
            Me.Close()
            FrmMDI.Close()
            EcranRMU()
            FrmMDI.ShowDialog()
        Else
            MessageBox.Show("Login et/ou Mot de passe incorrect(s)", "ERREUR", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            LoginTextbox.Text = ""
            PasswordTextBox.Text = ""
        End If
    End Sub

Le sous menu Déconnexion

Code:

1
2
3
4
5
6
 
Private Sub DéconnexionToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DéconnexionToolStripMenuItem.Click
        Me.Dispose()
        FrmLogin.Dispose()
        FrmLogin.ShowDialog()
End Sub