Delphi 2010 et Firebird 2.5
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:
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
