Discussion :

[sondo]

Bonjour à tous,

J'ai le désir d'activer ou de désactiver le menus de mon application en fonction des rôles que chaque utilisateur disposent.
Les différents menus de mon application son déjà prêt. En faisant des recherches je crois que TActionList peux faire l'affaire.
Je crois avoir un peu compris l'utilisation de ce composant.
J'ai créer une table des roles, et dans cette table j'ai inséré chaque utilisateur avec ses rôles.
J'ai déposé un ActionList1 sur ma form principal. Ensuite j'ai Ajouter une Action de ce nom : ORDRE_DE_MISSION. Dans l'évenement OnUpdate de ORDRE_DE_MISSION j'ai écrit ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm7.ORDRE_DE_MISSIONUpdate(Sender: TObject);
Var USER : String;
begin
  Query_Dual.sql.Clear;
  Query_Dual.Sql.Add('SELECT USER AS UTIL FROM DUAL');
  Query_Dual.Open;
  User := Query_Dual.fieldbyname('UTIL').AsString;
  Query_Role_Mission.sql.Clear;
  Query_Role_Mission.sql.Add('SELECT ME_ROLE FROM MENU_ROLES');
  Query_Role_Mission.sql.Add('WHERE ME_CODE = '+ QuotedStr(User));
  Query_Role_Mission.Open;
  if Query_Role_Mission.IsEmpty = True then
     //Désactiver le menu en question
end;

Si vous avez bien compris mon code, vous verrai que j'ai des problèmes pour activer ou désactiver les menus. Pouvez-vous me guider?.
Merci pour toutes interventions.

[Yurck]

Sur ton item de menu tu as mis une action ?
Oui
Bien, il faut donc travailler avec celle-ci ,
en fonction de ton besoin tu feras

Code :

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

1
2
3
4
 
   MonAction.visible   := Not Query_Role_Mission.IsEmpty;
//  ou 
   MonAction.enabled := Not Query_Role_Mission.IsEmpty;

[Cl@udius]

En complément des propos de Yurck, je n'effectuerais pas la requête s'assurant des droits du User dans le Update du TAction.
Car celui-ci est susceptible d'être exécuté plusieurs.

Exécute ta requête au moment de la connexion et renseigne une variable (FAdminUser dans mon exemple) à ce moment là.

Ensuite ton code devient:

Code :

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

1
2
3
4
procedure TForm7.ORDRE_DE_MISSIONUpdate(Sender: TObject);
begin
  TAction(Sender).Enabled := FAdminUser; 
end;

Cette procédure Update peut-être commune à plusieurs actions.

@+ Claudius

[sondo]

Cl@udius veut dire que je dois exécuter ma requête dans le OnExécute du TAction?

[Cl@udius]

Non pas du tout ! Effectue ta requête au moment où ton User se connecte à la BDD. Celle-ci sera exécutée une fois pour toute.

Dans le OnExecute doit être présent le code correspondant à ton MenuItem (ou TButton, etc...).

@+ Claudius

[sondo]

Si je comprend bien, je dois exécuter ma requête lors de la création de ma form principal?. J'utilise la BDE.

[sondo]

Bonjour,

Merci pour votre aide d'hier. Mais je demande encore des éclaircissements, je ne comprend pas vraiment.
Merci de m'aider...

[sondo]

J'ai déposé un TDataBase sur ma form principal.
J'ai écrit le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm7.Database1AfterConnect(Sender: TObject);
VAR user : string;
begin
  Query_Dual.sql.Clear;
  Query_Dual.Sql.Add('SELECT USER AS UTIL FROM DUAL');
  Query_Dual.Open;
  user := Query_Dual.fieldbyname('UTIL').AsString;
  showMessage(user);
  Query_Role_Mission.sql.Clear;
  Query_Role_Mission.sql.Add('SELECT ME_ROLE FROM MENU');
  Query_Role_Mission.sql.Add('WHERE ME_CODE = '+ QuotedStr(user));
  Query_Role_Mission.Open;
  if Query_Role_Mission.IsEmpty = True then FAdminUser := False;
end;

Mais je constate que la requête n'est pas exécuter.
Est-ce que je suis sur la bonne voie?.

[Cl@udius]

Salut

C'est également dans l'évènement AfterConnect que j'aurais mis le traitement.

Mais je constate que la requête n'est pas exécuter.

La procédure AfterConnect est bien reliée à ton composant TDatabase ?

PS: N'oublie pas de refermer ton Query_Role_Mission après utilisation.

[sondo]

Salut,

Merci d'avoir penser à moi.
Je ne comprend pas quand vous dites

La procédure AfterConnect est bien reliée à ton composant TDatabase ?

La procédure AfterConnect est un évvènement de TDatabase.
Dans la propriété Alias de la TDatabase j'ai précisé ma base de donnée.
Ensuite voilà ce que je fais :

Code :

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

1
2
3
4
procedure TForm7.ORDRE_DE_MISSIONUpdate(Sender: TObject);
begin
  TAction(Sender).visible := FAdminUser;
end;

Code :

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

1
2
3
4
procedure TForm7.ORDRE_DE_MISSIONExecute(Sender: TObject);
begin
  ORDRE_DE_MISSION.visible := FAdminUser;
end;

[sondo]

Je dis que la requête ne s'exécute pas parce qu' un utilisateur qui a le rôle 'ordre_de_mission' n'a pas le menu en question, car le menu est toujours invisible. c'est à dire que le code

Code :

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

1
2
3
4
procedure TForm7.ORDRE_DE_MISSIONExecute(Sender: TObject);
begin
  ORDRE_DE_MISSION.visible := FAdminUser;
end;

est exécuter sans tenir compte de la requête.

[Cl@udius]

Remplace cette ligne:

Code :

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

if Query_Role_Mission.IsEmpty = True then FAdminUser := False;

par celle-ci:

Code :

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

FAdminUser := not Query_Role_Mission.IsEmpty;

@+ Claudius

[sondo]

Mon problème n'est pas encore résolu.
Je précise que j'ai déclaré FAdminUser : Boolean comme variable public.