Sujet Précédent Sujet Suivant

Gestion Profil

jahhouda Messages postés 20 Date d'inscription jeudi 9 octobre 2008 Statut Membre Dernière intervention 2 octobre 2009 - 6 mai 2009 à 03:29
jahhouda Messages postés 20 Date d'inscription jeudi 9 octobre 2008 Statut Membre Dernière intervention 2 octobre 2009 - 8 mai 2009 à 10:21
Bonjour,
Je suis en stage de fin formation et l'application que je fais doit contenir une gestion de profil dynamique
(La possibilité d'inserrer d'autres profils) Chaque profils a un ensemble de fonctionnalite (une fonctionnalite a des sous fonctionnalites)
Ce qui est demandé c'est de donner à l'administrateur le droit de gérer les profils deja existants et d'ajouter d'autres profils et pour chaque profil n'afficher (dans un menu que les fonctionnalités auxquelles il va accéder)

prob1:dans le formulaire gestion de profil j'ai essayé de travailler avec un treeview pour donner a chaque fonctionnalites ses sous fonctionnalites(les fonctionnalites et les sous fonctionnalites se trouvent dans la meme table) mais ca ne veut pas marcher
prob2:JE NE SAIS PAS COMMENT FAIRE POUR N 'AFFICHER (DANS UN MENU) QUE LES FONCTIONNALITéS QUI LUI ONT éTé SPéCIFIé DANS LA BASE DE DONNEES

J'espére que ma question est claire
Si quelqu'un sait comment y procéder ou connait un site de reference qu'il me le dise
merci d'avance
Si je n'arrive pas à trouver la solution d'ici demain matin je suis foutu
svp aideez moi

1 réponse

Réponse 1 / 1
jahhouda Messages postés 20 Date d'inscription jeudi 9 octobre 2008 Statut Membre Dernière intervention 2 octobre 2009
8 mai 2009 à 10:21
bonjour à tous
personne n'a de'idées!!!!!!
enfin j'ai resolu le prob de la gestion du profil(creation,modification)
mais en ce qui conserne le menu j'ai pensé à le gérer avec un treeview sans checkbox
ca marche mais il garde la valaur du dernier checkbox selectionnés'il ne l'écrase qu'au deuxioeme clique
svp sauvez moi (j'ai eu un coup de chance mon sup a voyagé il ne va revenir que le lundi mais si d'ici la je ne trouve pas la solution je suis vriment foutu)


Enfin voici le code que j'ai utilisé dans le menu (pour le corriger)
<<<<load>>>
Private Sub frm_principal_Load_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
charger_treeview()
end sub
<>>
Private Sub charger_treeview()
Dim i, j As Integer

Dim n, util_nod, num_util, num_habil, num_pro, pro_nod As Integer
'chargement treeview premier niveau
da New OleDbDataAdapter("select f.Num_fonctionalite,f.nom_fonctionalite from fonctionalite f,profil_fonctionnalité pf where pf.num_fonctionalite f.Num_fonctionalite and fx_sup = 0 and Num_profil = " & num_profil, con)
da.Fill(ds, "fonctionalite")
For i = 0 To ds.Tables("fonctionalite").Rows.Count - 1
Me.TreeView1.Nodes.Add(ds.Tables("fonctionalite").Rows(i).Item(1).ToString)
Next
'chargement treeview deuxieme niveau
j = 0
For n = 0 To ds.Tables("fonctionalite").Rows.Count - 1
da New OleDbDataAdapter("select f.Num_fonctionalite,f.nom_fonctionalite from fonctionalite f,profil_fonctionnalité pf where pf.num_fonctionalite f.Num_fonctionalite and fx_sup <> 0 and fx_sup = " & ds.Tables("fonctionalite").Rows(n).Item(0).ToString & " and Num_profil = " & num_profil, con)
da.Fill(ds, "fonctionalite2")
For i = 0 To ds.Tables("fonctionalite2").Rows().Count - 1
If ds.Tables("fonctionalite").Rows(n).Item(1).ToString = Me.TreeView1.Nodes(j).Text Then
Me.TreeView1.Nodes(j).Nodes.Add(ds.Tables("fonctionalite2").Rows(i).Item(1).ToString)
End If
If ds.Tables("fonctionalite2").Rows(i).Item(1).ToString = "Gestion Utilisateur" Then
num_habil = j
num_util = ds.Tables("fonctionalite2").Rows(i).Item(0).ToString
util_nod = Me.TreeView1.Nodes(j).Nodes.Count - 1

Else
If ds.Tables("fonctionalite2").Rows(i).Item(1).ToString = "Gestion Profil" Then
num_habil = j
num_pro = ds.Tables("fonctionalite2").Rows(i).Item(0).ToString
pro_nod = Me.TreeView1.Nodes(j).Nodes.Count - 1
End If
End If

Next
ds.Tables("fonctionalite2").Clear()
j = j + 1
Next
''chargement treeview troisieme niveau1
MsgBox(num_util)
da New OleDbDataAdapter("select f.Num_fonctionalite,f.nom_fonctionalite from fonctionalite f,profil_fonctionnalité pf where pf.num_fonctionalite f.Num_fonctionalite and fx_sup <> 0 and Num_profil = " & num_profil & " and fx_sup = " & num_util, con)
da.Fill(ds, "fonctionalite3")

For i = 0 To ds.Tables("fonctionalite3").Rows.Count - 1
Me.TreeView1.Nodes(num_habil).Nodes(util_nod).Nodes.Add(ds.Tables("fonctionalite3").Rows(i).Item(1).ToString)
Next
'chargement treeview troisieme niveau2
da New OleDbDataAdapter("select f.Num_fonctionalite,f.nom_fonctionalite from fonctionalite f,profil_fonctionnalité pf where pf.num_fonctionalite f.Num_fonctionalite and fx_sup <> 0 and Num_profil = " & num_profil & " and fx_sup = " & num_pro, con)
da.Fill(ds, "fonctionalite4")
For i = 0 To ds.Tables("fonctionalite4").Rows.Count - 1
Me.TreeView1.Nodes(num_habil).Nodes(pro_nod).Nodes.Add(ds.Tables("fonctionalite4").Rows(i).Item(1).ToString)
Next
End Sub
Private Function recup_tet()
Try
Dim i, j, k
Dim s As String
s = ""
For i = 0 To Me.TreeView1.Nodes.Count - 1
If Me.TreeView1.SelectedNode.Text Me.TreeView1.Nodes(i).text And Me.TreeView1.Nodes(i).Nodes.count 0 Then
s = Me.TreeView1.SelectedNode.Text
Else
For j = 0 To Me.TreeView1.Nodes(i).Nodes.count - 1
If Me.TreeView1.Nodes(i).Nodes(j).nodes.count 0 And Me.TreeView1.Nodes(i).nodes(j).text Me.TreeView1.SelectedNode.Text Then
s = Me.TreeView1.SelectedNode.Text

Else
For k = 0 To Me.TreeView1.Nodes(i).nodes(j).nodes.count - 1
If Me.TreeView1.Nodes(i).Nodes(j).Nodes(k).text = Me.TreeView1.SelectedNode.Text Then
s = Me.TreeView1.SelectedNode.Text
End If
Next
End If
Next

End If
Next
Return s
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function

Private Sub TreeView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TreeView1.Click
Dim fx As String
fx = ""
fx = recup_tet()
MsgBox(fx)
'declarer forme rdv
Dim f_creation_rdv As New frm_creer_rdv
Dim f_consultation_rdv As New frm_consulter_rdv
Dim f_modifier_rdv As New frm_modifier_rdv
'declarer forme entreprise
Dim f_creation_Ese As New frm_creer_entreprise
Dim f_consulter_Ese As New frm_consulter_Ese
Dim f_modif_Ese As New frm_modifier_Ese
'declarer forme Utilisateur
Dim f_creer_util As New frm_creer_utilisateur
Dim f_modif_util As New frm_modifier_utilisateur
Dim f_cons_util As New frm_consulter_utilisateur
'dreclarer gestion profil
Dim f_gerer_prof As New Gestion_profil
Dim f_creer_profil As New frm_creer_profil
If f_creation_rdv.Text = fx Then
f_creation_rdv.MdiParent = Me
f_creation_rdv.Show()
End If
If f_consultation_rdv.Text = fx Then
f_consultation_rdv.MdiParent = Me
f_consultation_rdv.Show()
End If
If f_modifier_rdv.Text = fx Then
f_modifier_rdv.MdiParent = Me
f_modifier_rdv.Show()
End If
If f_creation_Ese.Text = fx Then
f_creation_Ese.MdiParent = Me
f_creation_Ese.Show()
End If
If f_consulter_Ese.Text = fx Then
f_consulter_Ese.MdiParent = Me
f_consulter_Ese.Show()
End If
If f_modif_Ese.Text = fx Then
f_modif_Ese.MdiParent = Me
f_modif_Ese.Show()
End If
If f_creer_util.Text = fx Then
f_creer_util.MdiParent = Me
f_creer_util.Show()
End If
If f_modif_util.Text = fx Then
f_modif_util.MdiParent = Me
f_modif_util.Show()
End If
If f_cons_util.Text = fx Then
f_cons_util.MdiParent = Me
f_cons_util.Show()
End If
If f_gerer_prof.Text = fx Then
f_gerer_prof.MdiParent = Me
f_gerer_prof.Show()
End If
If f_creer_profil.Text = fx Then
f_creer_profil.MdiParent = Me
f_creer_profil.Show()
End If
End Sub
SV aidez moi
0

Discussions similaires

programme gestion d'intervention
hanane7575 -
imanes02 -

5 réponses
Créer comme une clé d'activation pour un fichier excel en VBA
avyrex1926 -
mortalino -

3 réponses
gestion d'association
johnny5757 -
johnny5757 -

5 réponses
gestion de systeme de pointage dans une entreprise
doudou7ma -
doudou7ma -

9 réponses
gestion rendez vous+application open source
jahhouda -
Genildf -

4 réponses
Rejoignez-nous