Accès par mot de passe

**vg-matrix** · 24/05/2009, 19h37

tout le monde, je veux créer un accès dynamique par mot de passe à mon application, mais je ne sais pas comment y arriver.
J'ai une table utilisateur (numuser, nameuser) mais j'ignore comment faire l'accès et le contrôle depuis une ma fenêtre en delphi.

**andreditdd** · 24/05/2009, 20h00

Quelle BDD et comment, par quel moyen tu t'y connecte ?

André

**aallal** · 25/05/2009, 10h51

Si tu utilises Firebird ou Interbase , tu dois créer des Grants pour les tables de ta base pour chaque utilisateur , au niveau de ton application Delphi , tu actives le loginprompt de ton objet DataBase et dans l'évènement Onlogin du DataBase tu places du code pour saisir le user + pw dans une fenêtre, comme ceci :

Code :

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

1
2
3
4
5
6
 
if  GetLoginParams(LoginParams) Then
 begin
 Database.Params.Values['USER NAME']:=  LoginParams.Values['USER NAME'];
 Database.Params.Values['PASSWORD']:=   LoginParams.Values['PASSWORD'];
 end;

ici GetLoginParams affiche une fenêtre de saisi et rempli le user +pw dans le TStrings LoginParams.