Bouton+BD+affichage [Résolu]

Signaler
Messages postés
17
Date d'inscription
samedi 25 novembre 2006
Statut
Membre
Dernière intervention
27 décembre 2012
-
Messages postés
17
Date d'inscription
samedi 25 novembre 2006
Statut
Membre
Dernière intervention
27 décembre 2012
-
bonjour tout le monde.
voila mon probleme j'ai un table que j'appel assignation(menu,idgroupe)
j'ai un menu (style office 2007) comportant des ongles(outils,admin par exemple)
dans les onglets on a les boutons outils(parametres,nom_entreprise par exemple)
dans admin(creer_users, habilitation par exemple)
voici les noms de mes bouton
bouton parametres le nom c'est bttparams
bouton nom_entreprise c'est bttetse
bouton creer_users c'est bttusers
bouton habilitation c'est btthabil

dans la tables assignation on a

groupe ID=1 on a

bttparams | 1
bttetse | 1
bttusers | 1
btthabil | 1

gourpe ID=2 on a

bttparams | 2
bttusers | 2

maintenant lorsqu'un utilisateur se connecte connaisant son groupe on fait
un select menu from assignation where idgroupe= groupeID par exemple si c'est
le groupe 2 on aura bttparams et bttusers
maintanant j'aimerai faire ce_quon_renvoi.visible=true
donc bttparams.visible=true et bttusers.visible=true

voila un peu ce que je veus faire, svp j'ai besoin je reponse pour faire avancé mon projet. merci pour vos reponse
DE-AUREL

1 réponse

Messages postés
17
Date d'inscription
samedi 25 novembre 2006
Statut
Membre
Dernière intervention
27 décembre 2012

j'ai trouvé comment faire

dans le module fonction.vb

Select Case idGroupe
Case 1 'Admin
   'on charge tout le menu
Case Else ' choix du menu dans la BD

                Using connexion As New SqlConnection(MedicPharma.My.Settings.medicpharmaConnectionString)
                    connexion.Open()

                    Dim sqlSelect = "select menu from assignations where groupesID=" & GroupeID
                    Dim sqlCommand As New SqlCommand(sqlSelect, connexion)

                    Try
                        Dim oReader As SqlDataReader = sqlCommand.ExecuteReader
                        Do

                            'FrmMenuPrincipal.Controls(1).Controls.Find("", True)

                            While oReader.Read()

                                'For Each ctrl As Control In FrmMenuPrincipal.C1RibbonMenu.Controls(1).Controls

                                'FrmMenuPrincipal.Controls(1).Controls.Find(oReader.GetValue(0), True)

                                FrmMenuPrincipal.affiche(oReader.GetValue(0))

                                'If (ctrl.Name = oReader.GetValue(0)) Then
                                '    CType(ctrl, C1.Win.C1Ribbon.C1Ribbon).Visible = True
                                'End If
                                'Next


                            End While

                        Loop While oReader.NextResult()
                        oReader.Close()

                    Catch ex As Exception
                        MsgBox("Il y a eu erreur lors de la sélection menu " + ex.Message)
                    Finally
                        sqlSelect = ""
                    End Try

                End Using

        End Select





la fonction affiche situe dans la fenêtre principal est comme suit


Public Sub affiche(ByVal menun As String)
        'MsgBox(menun)
        'DirectCast(Me.Controls(a), Button).visible = True
        Try
            DirectCast(Me.C1RibbonMenu.GetItemByName(menun), C1.Win.C1Ribbon.RibbonButton).Visible = True
        Catch ex As Exception
            DirectCast(Me.C1RibbonMenu.GetItemByName(menun), C1.Win.C1Ribbon.RibbonTab).Visible = True
        End Try

    End Sub



DE-AUREL