Salut !
quelle méthode et composant adéquat pour tester si un utilisateur a le droit d'accéder ou pas à ma base de données. A priori, j'ai créé plusieurs utilisateurs avec différents rôle, maintenant dans mon application, à l'exécution, l'utilisateur doit renseigner son nom d'utilisateur et son mot de passe, puis l'application vérifie s'il peut continuer ou pas à exécuter l'application...

je me suis documenté mais je me suis vite perdu, j'ai essayé avec :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
procedure TPasswordDlg.OKBtnClick(Sender: TObject);
begin
  if teste_utilisateur(Edit_nom.Text,Edit_MDP.Text) then
  ShowMessage('trouvé') else ShowMessage('introuvable');
end;
 
function TPasswordDlg.teste_utilisateur(Utilisateur, MDP : String) : boolean;
var i:integer;
begin
  Result := False;
  with DataModule2.IBSecurityService1 do
  begin
    UserName :=Utilisateur;
    Password :=MDP;
    SQLRole :='rdb$admin';
    DisplayUsers;
    for i := 0 UserInfoCount-1 do
    begin
      if (UserInfo[i].UserName = Utilisateur) then
      // je voudrais tester sur le MDP mais UserInfo ne dispose pas de cette info
      begin
        Result := True;
        BREAK;
      end;
    end;
  end;
end;
le hic et que j'ai aucun moyen, avec IBSecurityService, de tester sur le mot de passe !!

une idée, une piste ...

merci par avance