Gerer les Utilisateurs d'une application

Version imprimable

08/09/2008, 12h33
souminet

Gerer les Utilisateurs d'une application

Bonjour,
Je voudrais pour mon application créer des utilisateurs pour lesquels une fenêtre d'authentification s'affiche au démarrage de mon application!!!

ensuite pouvoir gérer ces utilisateurs du point de vue mot de passe et droits.

Aussi, du point de vue: Ouverture de session, c'est à dire implémenter un tableau pour faire état du: N° de session, de l'utilisateur connecté actuellement, de la date de connexion et de l'heure de connexion.

JE travaille avec delphi7, c'est une application MonoPoste, avec une BAse de données PAradox (A travers le BDE).

Merci+++++++++++++++++:D
08/09/2008, 13h55
bubulemaster

Il faut créer une table utilisateur avec nom de login, droits, date de connexion...

En quoi pouvons nous t'aider ?
08/09/2008, 14h09
souminet

Citation:

Envoyé par bubulemaster

Il faut créer une table utilisateur avec nom de login, droits, date de connexion...

En quoi pouvons nous t'aider ?

En fait la table je l'ai crée , mais je n'ai aucune idée sur comment l'utiliser pour arriver au résulat souhaité!!!????????????????????

Salut ,

Je ne sais pas si c'est la meilleure des solutions, mais voila comment je fais.
En fait je traite cela dans le source de mon projet..

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
 
 
program toto;
 
uses
  Forms,
  windows,
  Mymessages in 'UniteCommunePhoenix\Mymessages.pas' {Fmessage},
  Urecherche in 'UniteCommunePhoenix\Urecherche.pas' {FRecherche},
  UPhoenix in 'UPhoenix.pas' {FPhoenix},
  ioce011 in 'UTILHARD\ioce011.pas',
  bla bla bla... 
  InfoPvProgramme in 'Talent\InfoPvtest\InfoPvProgramme.pas' {FinfoPv};
 
{$R *.res}
var   Splach : TFsplach;
 
begin
  SetlastError(NO_ERROR);
  CreateMutex (nil, false, 'CtrlPhoenix');
  if GetlastError <> ERROR_ALREADY_EXISTS then // controle si Phoenix est deja lancé
  begin
       //--------------------------------------------------------------
       Application.Initialize;
       // fenetre Splach et controle utilisateur par nom + mot de passe
       FSplach := TFsplach.create(application);
       Fsplach.Show;
       Fsplach.Update;
       PositionSplach:=1;
       Fsplach.ProgressBar1.min:=0;
       Fsplach.ProgressBar1.max:=32;
 
       //-----------------Controle mot de passe et des info utilisateurs necessaire-------------------
       if PasseSplashOk then 
       begin
            Fsplach.edit2.Visible:=false;
            Fsplach.PanelInfo.caption:=splachMess2;
            Fsplach.ProgressBar1.visible:=true;
            //-------------------------------------------------
            infoSplach('','');
            infoSplach('Phoenix','');
 
            Application.CreateForm(TFPhoenix, FPhoenix);
            Application.CreateForm(TFCodage, FCodage);
            Application.CreateForm(TFTest, FTest);
            Application.CreateForm(TFRecherche, FRecherche);
            Application.CreateForm(TFinfoPv, FinfoPv);
            infoSplach('Phoenix Options','');
 
            //-------------------------------------------------
 
            // ferme fenetre Splach
            Fsplach.ProgressBar1.Position:=Fsplach.ProgressBar1.max;
            Fsplach.ProgressBar1.invalidate;
            Application.ProcessMessages;
            Fsplach.Close;
            Fsplach.Release;
            //-------------------------------------------------
 
            Application.Run;
       end
       else
       begin
            Fsplach.Close;
            Fsplach.Release;
       end;
  end;
end.

bye

Citation:

Envoyé par petitcoucou31

Salut ,

Je ne sais pas si c'est la meilleure des solutions, mais voila comment je fais.
En fait je traite cela dans le source de mon projet..

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
 
 
program toto;
 
uses
  Forms,
  windows,
  Mymessages in 'UniteCommunePhoenix\Mymessages.pas' {Fmessage},
  Urecherche in 'UniteCommunePhoenix\Urecherche.pas' {FRecherche},
  UPhoenix in 'UPhoenix.pas' {FPhoenix},
  ioce011 in 'UTILHARD\ioce011.pas',
  bla bla bla... 
  InfoPvProgramme in 'Talent\InfoPvtest\InfoPvProgramme.pas' {FinfoPv};
 
{$R *.res}
var   Splach : TFsplach;
 
begin
  SetlastError(NO_ERROR);
  CreateMutex (nil, false, 'CtrlPhoenix');
  if GetlastError <> ERROR_ALREADY_EXISTS then // controle si Phoenix est deja lancé
  begin
       //--------------------------------------------------------------
       Application.Initialize;
       // fenetre Splach et controle utilisateur par nom + mot de passe
       FSplach := TFsplach.create(application);
       Fsplach.Show;
       Fsplach.Update;
       PositionSplach:=1;
       Fsplach.ProgressBar1.min:=0;
       Fsplach.ProgressBar1.max:=32;
 
       //-----------------Controle mot de passe et des info utilisateurs necessaire-------------------
       if PasseSplashOk then 
       begin
            Fsplach.edit2.Visible:=false;
            Fsplach.PanelInfo.caption:=splachMess2;
            Fsplach.ProgressBar1.visible:=true;
            //-------------------------------------------------
            infoSplach('','');
            infoSplach('Phoenix','');
 
            Application.CreateForm(TFPhoenix, FPhoenix);
            Application.CreateForm(TFCodage, FCodage);
            Application.CreateForm(TFTest, FTest);
            Application.CreateForm(TFRecherche, FRecherche);
            Application.CreateForm(TFinfoPv, FinfoPv);
            infoSplach('Phoenix Options','');
 
            //-------------------------------------------------
 
            // ferme fenetre Splach
            Fsplach.ProgressBar1.Position:=Fsplach.ProgressBar1.max;
            Fsplach.ProgressBar1.invalidate;
            Application.ProcessMessages;
            Fsplach.Close;
            Fsplach.Release;
            //-------------------------------------------------
 
            Application.Run;
       end
       else
       begin
            Fsplach.Close;
            Fsplach.Release;
       end;
  end;
end.

bye

Merci pour ta solution , j'aurais juste besoin de quelques petites explications comme pour le : TFsplach et le PasseSplashOk ??????????

Merci+++++++++

09/09/2008, 10h12
Andry

Alors voici comment je fais lorsque l'application nécessite une sécurité au niveau utilisateur :
1° Creation d'une table Utilisateur avec les champs suivantes :
- Id Utilisateur
- Pseudo
- Mot de passe
- IsAdmin

A partir de la, il faut gerer une liste d'autorisation par module. Si l'appli a 4 modules, il faut coder les 4 autorisation dans la base Utilisateurs.
Ensuite, il suffit de charger ces autorisation lors du login de l'utilisateur.

Voilà.
09/09/2008, 12h13
petitcoucou31

re

Citation:

Merci pour ta solution , j'aurais juste besoin de quelques petites explications comme pour le : TFsplach et le PasseSplashOk ??????????

Comme on te l'a dis , j'ai une table qui possède diverses informations, qui bien sur sont modifiables dans l'application et par des personnes qui ont un mots de passe de niveau adéquate.Je géré donc une hiérarchie de mot de passe.
dans mon cas
- Un nom utilisateur
- Un mot de passe associé a chaque utilisateur
- Un Id utilisateur

TFsplach est rien de plus qu'une fiche qui fait office de screenSplash et qui me permet de saisir les infos qui sont nécessaires, cette fiche n'est pas crée automatiquement par l'application, mais juste sur demande.

PasseSplashOk est juste une fonction décrite dans la form précédente
qui contrôle les infos saisis (mots de passe ...) et valide certaines options du logiciel ou simplement interdit son ouverture.

Oui c'est ok, maintenant pour la petite procédure de vérification du nom utilisateur et du mot de passe voilà ce que j'ai fait:
Code:

1 2 3 4 5 6 7 8 9 10 11 procedure TFAuthentification.suiButton1Click(Sender: TObject); begin DataModule2.TabUser.First; if EditUser.Text =DataModule2.TabUser.FieldValues['Utilisateur'] then if EditPassword.Text=DataModule2.TabUser.FieldValues['Mot_Passe'] then FAuthentification.Close else showmessage('Mot de passe incorrect') Else Showmessage('Nom d''utilisateur incorrect'); end;
Je sais que ce bout de code ne me permet que de vérifier le 1er enregistrement de la table, mais quand j'integre une boucle While avec une condition sur le EOF tout se bloque, je suis sure que c'est simple à réaliser mais ça ne veux pas marcher pour moi!!!

Please!!!!!!!!!!!!!

Une idée de fonction pour tester une identification :

Code:

1
2
3
4
5
6
7
8
9
10
11
function isValidPassword(aLogin: String, aPassword : String): Boolean;
begin
  Query.Active := false ;
  Query.SQL.Clear;
  Query.SQL.Add( 'SELECT * FROM MaTablePassword'); //mettre le nom de ta table
  Query.SQL.Add( 'WHERE Login = ' + QuotedStr(aLogin) ); //mettre le nom de ton champ login dans ta table
  Query.SQL.Add( 'AND Password = ' + QuotedStr(aPassword) ); //mettre le nom de ton champ password dans ta table
  Query.Active := true ;
 
  Result := not( Query.Bof and Query.EoF ) ;
end;

A utiliser par exemple en faisant dans ta Form :

Code:

1
2
3
4
5
6
//[...]
if isValidPassword( Edit1->Text, Edit2->Text ) then
  ShowMessage('Identification Réussie')
else
  ShowMessage('Utilisateur inconnu: connection refusée')
//[...]

PS : il y a peut etre l'une ou l'autre erreur de syntaxe, je n'ai pas Delphi sous la main

boucle while

Si tu intègre ça dans une boucle while, ça vas être illogique
Puisque il va comparer le nom utilisateur avec ta table et a chaque fois que c’est incorrecte il va afficher le message d’erreur « nom utilisateur incorrecte »
si le nom n'y figure pas tu vas avoir le message s'afficher au nombre de tes enregistrements

La meilleur solution c’est de créer une variable état

Le code sera ainsi
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 procedure TFAuthentification.suiButton1Click(Sender: TObject); var etat:boolean; begin DataModule2.TabUser.First; etat:=false; While (not DataModule2.TabUser.eof) and (etat=false) then begin If (EditUser.Text =DataModule2.TabUser.FieldValues['Utilisateur']) and editPassword.Text=DataModule2.TabUser.FieldValues['Mot_Passe'] then Etat:= true else etat:=false; DataModule2.TabUser.next; end; if etat = true then FAuthentification.Close Else showmessage('Nom utilisateur ou Mot de passe incorrect'); end;
ça c'est pour ta boucle

une autre solution que je n'ai pas essayé, serai de déclarer le champ "nom utilisateur" comme une "clef" de la table et puis de faire une recherche sur cette table, une fois le nom utilisateur trouvé, il ne reste plus qu’a contrôler le mot de passe, je pense que c’est faisable et plus facile (moins de code).

le probleme qui se pose, c'est comment securiser ta table "TabUser" car n'importe qui, peut y acceder (en utilisant module base de données par exemple) et avoir tous les noms utlisateurs et mots de passe,
je pense qu'il faut revoir ta philosophie.

Citation:
Envoyé par samy larson
Si tu intègre ça dans une boucle while, ça vas être illogique
Puisque il va comparer le nom utilisateur avec ta table et a chaque fois que c’est incorrecte il va afficher le message d’erreur « nom utilisateur incorrecte »
si le nom n'y figure pas tu vas avoir le message s'afficher au nombre de tes enregistrements

La meilleur solution c’est de créer une variable état

Le code sera ainsi
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 procedure TFAuthentification.suiButton1Click(Sender: TObject); var etat:boolean; begin DataModule2.TabUser.First; etat:=false; While (not DataModule2.TabUser.eof) and (etat=false) then begin If (EditUser.Text =DataModule2.TabUser.FieldValues['Utilisateur']) and editPassword.Text=DataModule2.TabUser.FieldValues['Mot_Passe'] then Etat:= true else etat:=false; DataModule2.TabUser.next; end; if etat = true then FAuthentification.Close Else showmessage('Nom utilisateur ou Mot de passe incorrect'); end;
ça c'est pour ta boucle

une autre solution que je n'ai pas essayé, serai de déclarer le champ "nom utilisateur" comme une "clef" de la table et puis de faire une recherche sur cette table, une fois le nom utilisateur trouvé, il ne reste plus qu’a contrôler le mot de passe, je pense que c’est faisable et plus facile (moins de code).

le probleme qui se pose, c'est comment securiser ta table "TabUser" car n'importe qui, peut y acceder (en utilisant module base de données par exemple) et avoir tous les noms utlisateurs et mots de passe,
je pense qu'il faut revoir ta philosophie.
Pour la solution avec la variable logique, je l'ai déja essayé, mais le IC est que l'on arrive pas à savoir exactement à quel niveau situer l'erreur d'identification: le nom d'utilisateur ou encore le mot de passe, j'aurais voulu dissocier les deux, mais bon!!!

Juste un petit truc, je sais que ça doit certainement être une faute comise par inadvertance mais la boucle While est suivi par un 'do' et non par un 'Then'...:sm:

Merci+++++

Si tu as des idées sur une potentielle sécurisation de la table je suis preneuse!!!

Comme j'ai un peu de temps, voici ma procédure à moi.
une table TPROFIL avec les champs suivants :

Citation:

PRF_ID : id du profil
PRF_PSEUDO : Pseudo
PRF_PASSWORD : Mot de passe
PRF_ACTIF : Actif ou pas

Une autre table TAUTORISATION avec les champs suivants

Citation:

AUT_PROFILE : L'id du profile
AUT_MODULENAME : Nom du module à gerer
AUT_MASK : masque d'autorisation (4bits : Consultation-Creation-Edition-Suppression)

Donc si tu as 4 modules par exemple dans une gestion de Commercial tu devrais avoir Module CLIENT, ARTICLE, COMMERCIAL, VENTE etc;
tu devrais avoir 4 lignes dans cette table pour chaque profil créer.
Ensuite.
Une fiche de Login nommé FrmLogin avec 2 Edits pour User et Mot de passe
et un bouton pour se loguer.
Fonction pour tester le couple Login/Mot de passe
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 function FrmLogin.Login(aUser,aPassword : String) : Integer; //Ce code compare le login et password avec les enregistrement dans la //table TPROFIL et retourne l'Id du profile si un enregistrement est trouvé, //sinon retourne 0 begin With TQuery.Create(Nil) do try Database := TonDatabase; SQL.Add('SELECT PRF_ID FROM TPROFIL'); SQL.Add('WHERE PRF_ACTIF = 1 AND PRF_PSEUDO = :PUSER and PRF_PASSWORD = :PPWD'); ParamByName('PUSER').AsString := aUser; ParamByNAme('PPWD').AsString := aPassword; Open; if Not IsEmpty then Result := FieldByName('PRF_ID').AsInteger else Result := 0; finally Free; end; end;
Maintenant dans l'evenement OnCLic du bouton login
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 procedure FrmLogin.BtnLoginClick(Sender : TObjects); var : Prf : Integer; begin Prf := Login(edUser.Text, edPassword.Text); if Prf > 0 then //Login Ok, on a notre Id profile. With TQuery.Create(Nil) do try Database := TonDatabase; SQL.Add('SELECT * FROM TAUTORISATION'); SQL.Add('WHERE AUT_PROFIL = :PPROFIL'); ParamByName('PPROFIL').AsInteger:= Prf; Open; //Ici parcours des resultats et traitement. finally Free; end; end;
Voila.

Salu.Je me demande bien si un simple locate ne resoud pas le problème.
Pour me loguer à une application j'ai l'habitude d'utiliser le code suivant:
Code:

1 2 3 4 5 6 7 8 9 10 11 if not datamodule2.tuser.locate('pseudo;modepass',vararrayof([edit1.text,edit2.Text]),[]) then begin showmessage('Nom d''utilisateur ou mot de passe incorrecte'); edit1.Clear; edit2.Clear; edit1.SetFocus; end else begin hide; form_dacceuil.Show; end;
Dans la table utilisateur on suppose q'on a au moins les champ pseudo et mopass.
Tu a ausi la possibilité de controler les droits en faisant un autre locate sur le champ isadmin dans ta table user.
bonne chance :bug:

10/09/2008, 12h33
petitcoucou31

bonjour ,

je me pose une question ? quel intérêt de vouloir saisir un pseudo + un mots de passe ?
Quand on connait l'un , on connait l'autre puisque ils sont associés dans la table.

Une fois l'activation faite sur un mot de passe par exemple , on connait les autres infos ( pseudo , Id , niveau .. ) il suffit en fonctions des informations associés au mot de passe (ou d'ailleurs a n'importe quel champs saisie ) de valider certaines actions.

Dans mon cas j'ai pas de tables , juste un fichier texte crypté pour éviter de laisser ces informations visibles.

la solution

bonjour

voici la solution a tes problèmes

Avec module bases de données tu mets le champ ‘utilisateur’ comme index de la table ‘tabuser’ c’est important sinon ça marche pas
Code:

1 2 3 4 5 6 7 8 9 10 11 procedure TFAuthentification.suiButton1Click(Sender: TObject); begin if DataModule2.TabUser.FindKey([EditUser.text]) then begin if DataModule2.TabUser.FieldValues[' Mot_Passe '] <> EditPassword.Text then showmessage(' Mot de passe incorrect ') else FAuthentification.Close end else showmessage(' Nom d''utilisateur incorrect '); end;
Pour sécuriser ta table tu lui mets un mot de passe avec module BDD, une fois fait à chaque fois que tu ouvres ta table dans ton application il te sera demandé d’entrer ce mot de passe, ce qui peut être énervant, pour que ce mot de passe ne soit plus demandé (la table reste toujours protégée) tu utilises le composant session comme suit :
Code:

1 2 3 4 5 procedure TForm1.FormCreate(Sender: TObject); begin Session.AddPassword(‘tu écris ici ton mot de passe’); DataModule2.TabUser.Open; end;
il faut juste :
- Que les deux composants « table » et « session » aient la même propriété « SessionName »
- Que la table soit désactivée « active=false »

bonne chance

13/09/2008, 09h37
souminet

Merci pour tous ceux qui m'ont répondu...
Grâce à vos réponses j'ai pu trouver une solution

Merci++++++++++++++++++++:king:
13/09/2008, 12h57
Invité1

derien

derien :king:

peut etre que tu ne l'as pas vu, mais j'ai rajouté la solution finale pour securiser ta table

si tu as d'autres questions, fais moi signe

a++++++++++++++++++++
15/09/2008, 08h09
Andry

Citation:

Envoyé par petitcoucou31

bonjour ,

je me pose une question ? quel intérêt de vouloir saisir un pseudo + un mots de passe ?
Quand on connait l'un , on connait l'autre puisque ils sont associés dans la table.

Une fois l'activation faite sur un mot de passe par exemple , on connait les autres infos ( pseudo , Id , niveau .. ) il suffit en fonctions des informations associés au mot de passe (ou d'ailleurs a n'importe quel champs saisie ) de valider certaines actions.

Dans mon cas j'ai pas de tables , juste un fichier texte crypté pour éviter de laisser ces informations visibles.

Mieux vaut deux protection qu'une à mon avis même si cette protection sera très facile à contourner pour les connaisseurs.

A+