Discussion :

[omarius]

salut

j'ai suis entrain de développé une application avec delphi 7 et comme base de donné j'utilise MYSQL .

mon problème est que j'ai trois utilisateur avec 3 accès différent j'aimerai savoir comme faire pour désactiver des champs sur le mainmenu une fois que l'utilisateur tape son login et passe les accès qui ne lui sont pas attribuer soi invisible

merci

[BuzzLeclaire]

Bonjour,

voici un exemple avec un popupmenu

Désactivé le premier choix
PopupMenu1.Items[0].Enabled := False;

Items[0] est la première rubrique du menupopup

Sur un Menu tu pourras cumulé
Menu1.Items[0].Items[1].Enabled := False;
là cela désactive le premier menu et le 2 ème item.

@+

[popo]

Le plus simple est de se servir des tags. Tu associe un droit utilisateur à un tag et tu affiche le menu en fonction.

Ci dessous un extrait simplifié d'un dev que j'utilise régulièrement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
for i := 0 to MonMenu.Items.Count - 1 do
  MonMenu.Items[i].Visible := (MonUser.GetAcces = MonMenu.Items[i].Tag);

Edit : MonUser est Objet de type TUser. Je me sert de la méthode GetAccess qui me renvoi un entier en fonction des droit d'accès de l'utilisateur. Ensuite je compare cet entier avec le tag du menu