Discussion :

[rabbygerekusa]

Bonjour les amis, je suis bloqué, j'essaie de créer un formulaire login qui récupère les informations des utilisateurs dans une base de données Access mais ça récupère seulement le premier enregistrement, les autres enregistrements ne se voient pas. Aidez-moi svp. Je travaille avec Delphi 10.3

[SergioMaster]

Bonjour et bienvenue,

Dès que je lis "filtre" (ex-intitulé), mon cœur a un petit raté.
Vous avez une base de données donc utiliser ce qui peut aller avec : le langage de requête (SQL) et donc non pas l'utilisation d'une Table, mais d'une Query.

Voici un exemple :
la requête, tant qu'à faire autant prendre de bonnes habitudes, sera paramétrée :

Code SQL :

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

SELECT Nom_Utilisateur FROM Utilisateurs WHERE UPPER(Nom_Utilisateur)=:u AND motdepasse=:mdp

Ensuite, cela va dépendre de ce que vous utilisez comme connecteurs à la base de données.
Ci-dessous un exemple avec les connecteurs Firedac.
N.B.

1. Firedac permet certaines simplifications de code que j'ai volontairement omises ici
2. Pour de bonnes habitudes, tout ce qui est accès aux données (connexion, tables, requêtes) sera dans un datamodule (code métier)

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
fonction datamodule.testlogin(const nom, motdepasse : String) : Boolean;
var aQuery : TFDQuery;
begin
aQuery:=TFDQuery.Create(Self);
try
aQuery.Connection:=FDConnexion;
aQuery.SQL.Text:='SELECT Nom_Utilisateur FROM Utilisateurs WHERE UPPER(Nom_Utilisateur)=:u AND motdepasse=:mdp';
aQuery.paramByName('u').asString:=Upper(Nom);  // insensible à la casse
aQuery.parambyname('mdp').asString:=motdepasse;          // sensible à la casse
aQuery.Open;
if aQuery.fieldbyName('Nom_utilisateur').isnull    // je n'ai pas trouvé le couple nom,mdp  
  then begin
     // traitement erreur 
     result=false;
  end
else begin
    // c'est ok 
    result:=true;
end;
finally
  aQuery.Close; // fermeture pas forcément nécessqire dans ce contexte 
  aQuery.Free;  // libération mémoire
end;

utilisation dans la forme

Code :

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

1
2
3
4
5
6
7
if datamodule.testlogin(edtnom.text,edtmdp.text) 
  then  begin
    // traitement connexion ok
  end
else begin
   // traitement connexion raté
end;

[ShaiLeTroll]

J'ajouterais que stocker le mot de passe via un MD5 serait un minimum, le WHERE devant reproduire ce mécanisme aussi

C'est une chose à connaitre lorsque l'on est étudiant, c'est la base de la sécurité de ne pas stocker un mot de passe, on verra plus tard pour introduire un SALT avec un SHA1

Evoquer dans un sujet très récent sur le forum

Crée une table user (Login, Hash)
Stocke le Mot de Passe en MD5 pour commencer, Sha512 plus tard avec un Salt

Et tu fais un SELECT 1 FROM USER WHERE Login = :pLogin AND Hash = :pHash bindé par ParamByName et le pHash tu le transforme coté Delphi en MD5 ainsi les mots de passe ne circule pas en clair.
D7 c'est vieux, faudrait changer cela si c'est un nouveau projet, à vérifier si TIdHashMessageDigest5 existe dans Indy 9

.

[rabbygerekusa]

Ok merci je suis en train d'essayer cela

[rabbygerekusa]

Merci beaucoup j'ai essayé et ça fonctionne a merveille

[rabbygerekusa]

Bonjour Mr Sergio avec ce code comment faire pour que chaque utilisateur après connexion puisse voir uniquement son formulaire de travail

[SergioMaster]

Demande trop peu explicite. Vous avez le nom de l'utilisateur, à l'occasion votre table pourrait contenir une indication quelconque. À partir de là, il ne s'agit que d'utiliser une série de conditions.

[rabbygerekusa]

Merci monsieur se fait déjà

[ShaiLeTroll]

C'est une gestion de droit applicatif, à vous de vous voir comment structurer vos données avec des clés étrangères pour la lier à un utilisateur ou un à groupe (de groupe ou d'utilisateur) et éventuellement gérer des rôles.