Discussion :

[hayat2]

bonjour à tous
je suis debutante en delphi et j'ai utilisé paradox pour les base de donées dans mon application.j'ai 2 tables
user(nom,id);
password(id,motpass)
j'ai met dans le form: 2 edits un pour le nom et l'autre pour le mot de passe et un boutton pour valider.je vous demande comment vérifier que le nom d'utilisateur et le mot de passe sont correct à partir des tables précédentes?aidez moi svp c'est urgent.
merci d'avance.

[Rayek]

- Soit tu utilises le locate des TxxxTables.
- Soit tu fais une requête pour chaque table en recherchant le nom et le mot de passe

Dans les deux cas, il faut que le user et le password soient trouvés tous les deux.

[hayat2]

j'ai ecri ce code dans l'evenement onclick de boutton ok:

Code :

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

1
2
3
4
5
6
7
8
var
option : TLocateOptions;
begin
 
 Option := [loPartialKey]; // Rajout de l'option "ne fait pas attention à la casse"
  if form2.table1.Locate('nom',edit1.text,Option) and form2.table2.Locate('motdepass',edit2.text,Option)then
 form2.show;
end;

mais il m'affiche ce message d'erreur:

Code :

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

projet raised exception class EDataBaseError with message 'table1':cannot perform this operation on a closed dataset.process stopped.

aidez moi svp c'est urgent.

[evarisnea]

comme le message d'erreur l'indique, tu dois t'assurer que la table est ouverte avant d'appeler la méthode Locate du dataset.
de plus l'option pour ne pas tenir compte te la casse c'est loCaseInsensitive.
autre chose, normalement la comparaison d'un mot de passe devrait tenir compte de la casse non ?
qu'à cela ne tienne, voici un bout de code qui devrait fonctionner.

Code :

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

1
2
3
4
5
6
7
var
option : TLocateOptions;
begin
  option := [loCaseInsensitive]; // Rajout de l'option "ne fait pas attention à la casse"
  if form2.table1.Locate('nom;motdepass',[edit1.text, edit2.text],Option) then
    form2.show;
end;

remarque que dans le premier paramètre de la fonction tu peux ajouter les champs servant de critère de localisation séparés par un point virgule, et utiliser un tableau dynamique pour les valeurs. pour plus d'infos, consulter l'aide delphi.

[hayat2]

comme le message d'erreur l'indique, tu dois t'assurer que la table est ouverte avant d'appeler la méthode Locate du dataset.
de plus l'option pour ne pas tenir compte te la casse c'est loCaseInsensitive.
autre chose, normalement la comparaison d'un mot de passe devrait tenir compte de la casse non ?
qu'à cela ne tienne, voici un bout de code qui devrait fonctionner.

Code :

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

1
2
3
4
5
6
7
var
option : TLocateOptions;
begin
  option := [loCaseInsensitive]; // Rajout de l'option "ne fait pas attention à la casse"
  if form2.table1.Locate('nom;motdepass',[edit1.text, edit2.text],Option) then
    form2.show;
end;

remarque que dans le premier paramètre de la fonction tu peux ajouter les champs servant de critère de localisation séparés par un point virgule, et utiliser un tableau dynamique pour les valeurs. pour plus d'infos, consulter l'aide delphi.

Merci beaucoup sa fonctionne bien