Discussion :

[Benjamin GAGNEUX]

Bonjour,

Je tente actuellement d'intégrer la gestion des utilisateurs dans mon application. J'utilise pour cela le TIBSecurityService.
La création et la suppresion fonctionnent bien cependant je ne vois pas comment on peut modifier un utilisateur.

[Edit]
L'indexation de la table gérant les utilisateurs semble se faire au niveau de UserName.
Ainsi, pour la modification, seul le UserName est nécessaire.
Cependant, je souhaiterais pouvoir récupérer par la même occasion le mot de passe afin de permettre sa vérification lors de la modification.
[/Edit]

Je n'au pas trouvé d'aide la dessus.

Aussi, si quelqu'un a une idée, je suis prenneur.
Merci,

PS : autre petite question concernant cette fois l'ajout : comment différencier l'exception généré par un doublon des autres ?

[Andry]

Je ne comprends pas variement ton souci mais voici mon code pour gerer les utilisateurs. et ça marche bien
ENREGISTREMENT

Code :

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

1
2
3
4
5
6
7
8
9
 
  with srvUsers do
  begin
    UserName := edtUser.Text;
    Password := edtPassword.Text;
    FirstName := edtFirstName.Text;
    MiddleName := edtMiddleName.Text;
    LastName := edtLastName.Text;
  end;

AFFICHAGE

Code :

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

1
2
3
4
5
6
7
8
 
      srvUsers.DisplayUser(Usr);
      edtUser.Text            := srvUsers.UserInfo[0].UserName;
      edtUser.ReadOnly    := true;
      edtPassword.Text     := srvUsers.UserInfo[0].Password;
      edtFirstName.Text    := srvUsers.UserInfo[0].FirstName;
      edtMiddleName.Text := srvUsers.UserInfo[0].MiddleName;
      edtLastName.Text    := srvUsers.UserInfo[0].LastName;

Ici srvUsers et de type TIBSecurityService.

A+

[Benjamin GAGNEUX]

AFFICHAGE

Code :

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

1
2
3
4
5
6
7
8
 
      srvUsers.DisplayUser(Usr);
      edtUser.Text            := srvUsers.UserInfo[0].UserName;
      edtUser.ReadOnly    := true;
      edtPassword.Text     := srvUsers.UserInfo[0].Password;
      edtFirstName.Text    := srvUsers.UserInfo[0].FirstName;
      edtMiddleName.Text := srvUsers.UserInfo[0].MiddleName;
      edtLastName.Text    := srvUsers.UserInfo[0].LastName;

Ici srvUsers et de type TIBSecurityService.

Merci pour ta réponse
C'est comme cela que je pratiquais mais le champ srvUsers.UserInfo[0].Password reste toujours vide. En est-il de même pour toi ? (dans ce cas j'aurais laisser passé une erreur ?) Sinon est-il possible de recupérer le password ?
merci,

[Benjamin GAGNEUX]

Apparement cela n'est pas possible...
Je contourne le problème en stockant en mémoire toutes les informations concernant l'utilisateur lors de sa connection.
merci,