VB.NET Login & Password ( Gestion des droits pour la visualisation dans une application)

Version imprimable

21/09/2016, 10h15
Bced78

VB.NET Login & Password ( Gestion des droits pour la visualisation dans une application)

Bonjour à tous, :zoubi:

J'espère que le titre est compréhensible.

Donc voilà en gros mon projet test.

J'ai crée une base de donnée(Access) avec 4 colonnes ( Login et Password = "Champs Text" et pour Fenêtre 1 & 2 = "Champs Booléen" )

Login_____| Password_|__Fenetre 1 | Fenetre 2
Admin____| 1234_____|___[O]_____|___[O]
User 1____| 456______|___[O]_____|___[ ]
User 2____| 789______|___[ ]_____|___[O]

J'ai crée une fenêtre Login & une fenêtre Principal avec un menuStrip

Dans ce menuStrip des sous menu Fenetre 1 et Fenetre 2

J'ai trouvé le code sur internet pour la connexion avec le login et le password. ( Pas de problème de se coté là )
ou je coince . c'est la gestion des droits. suivant les champs booléen :oops:

Si je me connecte avec le compte admin , le sous menu "Fenetre1" et "Fenetre2" est visible
Si je me connecte avec le compte User 1 , le sous menu "Fenetre1" est visible et "Fenetre2" est cacher
Si je me connecte avec le compte User 2 , le sous menu "Fenetre1" est cacher et "Fenetre2" est visible

Je n'arrive pas à trouver le code à mettre pour prendre en compte mes champs booléen dans mon application suivant le login de la personne.

Ps. Je veux travailler avec une base de donnée Access , elle doit être accessible pour la gestion des droits des différents utilisateurs par l'administrateur via l'application.( Quand le programme sera finit il y aura une vingtaine de fenêtres et +/- 20 personnes)

:lol:Je vous remercie.:lol:
21/09/2016, 10h53
jopopmk

Salut,

si je résume :
- au lancement de l'appli une fenêtre de connexion apparait,
- l'utilisateur saisit user/pass :
- - si échec petit message d'erreur,
- - si succès tu enregistres dans des variables les valeurs des champs fenêtre 1 et fenêtre 2 et tu ouvres ta fenêtre principale.

J'ai bon ?
Si oui, il faut que ta fenêtre principale ait accès à ces variables (objets statics ou passé en paramètre du constructeur), et dans le constructeur (après l'InitializeComponent ^(*) ) ou dans l'event Load, tu affiches ou non les menu selon leur valeur.

^(*) il y aurait moyen de trafiquer l'InitializeComponent pour ne carrément pas créer les menu non voulu, mais c'est risqué.

PS : y'a peut-être moyen de faire du binding mais je maîtrise pas du tout.
21/09/2016, 10h55
J@ckHerror

Bonjour,

Il nous faudrait un peu de code, avec le passage où tu n'y arrives pas, parce que là, en l'état, je ne vois pas de problème, tu as l'info en bdd, tu la récupère tu affiches ou pas !
Est ce que tu as une classe Utilisateur (ou similaire) avec une méthode qui te retourne en fonction d'un écran si il doit être affiché ou pas ?
Pour te faire avancer il faut que l'on sache ou tu en ai, et pour ça rien de mieux que du code :)

J@ck.

1 pièce(s) jointe(s)

Bonjour ,

Pièce jointe 220808

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
 
Public Class Login
    Private Sub UsernamesBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles UsernamesBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.UsernamesBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.VSUSERSDataSet)
 
    End Sub
 
    Private Sub Login_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: cette ligne de code charge les données dans la table 'VSUSERSDataSet.Usernames'. Vous pouvez la déplacer ou la supprimer selon les besoins.
        Me.UsernamesTableAdapter.Fill(Me.VSUSERSDataSet.Usernames)
 
    End Sub
 
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Me.Close()
        End
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim username As String
        Dim password As String
        Dim message As String = "The username or Password is not correct, please try again"
        username = TextBox1.Text
        password = TextBox2.Text
 
        If Me.UsernamesTableAdapter.ScalarQueryLogin(username, password) Then
            Menu.Show()
            TextBox1.Clear()
            TextBox2.Text = ""
 
            Me.Hide()
 
            MessageBox.Show("Welcome", "Information", MessageBoxButtons.OK)
            Login.LaboToolStripMenuItem.Visible = True
            Login.CncToolStripMenuItem.Visible = True
            Me.Hide()
 
 
        Else
            MessageBox.Show(message, "Information", MessageBoxButtons.OK)
            TextBox1.Clear()
            TextBox2.Text = ""
 
        End If
 
    End Sub
End Class

Ou je coince c'est le code a mettre pour prendre en compte les deux champs (oui/non de ma base de donnée) pour l'affichage ou pas des menusstrip Fenetre 1 et Fenetre2 suivant le login entrer.

J'espère que c'est un peu plus claire.

Merci;)

21/09/2016, 12h56
wallace1

bonjour,

@OP : dans un premier temps (pour que tu puisses comprendre tout le sens de l intervention de jopopmk) je te suggère de saisir dans ta class Login (saisir et pas copier/coller) :

Sub New

tu tapes ensuite entrer pour voir apparaitre le constructeur de ta classe Login et dans son corps la procédure : InitializeComponent.

te voila fin près pour pouvoir discuter le même langage que nous.

a+
21/09/2016, 15h11
Bced78

J'ai trouvé dans ma fenêtre login , j'ai rajouter des checkbox lier à ma table login.

Ca fonctionne.

Désolé de vous avoir embêter.

Merci de votre aide:lol::lol: