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 :
le hic et que j'ai aucun moyen, avec IBSecurityService, de tester sur le mot de passe !!
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;
une idée, une piste ...
merci par avance
Partager