login et mot de passe recherche dans bd?

**jakol** · 04/08/2010, 15h11

Bonjour
je souhaiterais créer un form1 avec un "edit1.text" et un bouton
qui permettrait d'ouvrir un form2.
Dans le form1, il y aurait une recherche du mot de passe dans une table d'une base:

J'ai fait ceci ci-dessous mais comme vous constatez, il n'y a pas de recherche de la variable dans une table mais juste la valeur 'password'

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
begin
if (Edit1.text='password') then
   form2.showmodal
else
ShowMessage('essaye encore!!');
close;
end;
 
 
var i:integer;
begin
  with Datamodule3 do
  begin
     table1.first;

########################################

J'ai fait aussi:

Code :

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

1
2
3
4
5
6
7
8
9
     for i:=1 to table1.recordcount do
     	begin
	if (Edit1.text='table1.fieldbyname('password').asstring') then
   	form2.showmodal
	else
	ShowMessage('essaye encore!!');
	close;
	end;
end;

[Erreur] Unit1.pas(64): ')' attendu(e) mais identificateur 'password' trouvé(e)

Merci d'avance pour vos futures réponses

**Rayek** · 04/08/2010, 16h32

Utilise locate

Code :

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

1
2
3
4
5
 
if Table1.Locate('Password',Edit1.text,[locaseInsensitive]) then
  form2.showmodal
else
  ShowMessage('essaye encore!!');

Mais bon la méthode que tu emplois n'est pas terrible pour la sécurité

**jakol** · 04/08/2010, 16h53

SAlut
merci pour le code, je l'ai essayé mais

locaseInsensitive n'est pas reconnu

[Erreur] Unit1.pas(61): Identificateur non déclaré : 'locaseInsensitive'
[Erreur] Unit1.pas(61): Types incompatibles : 'TLocateOption' et 'Integer'
[Erreur fatale] Project1.dpr(7): Ne peut compiler l'unité utilisée 'Unit1.pas'

merci de m'éclairer

**Rayek** · 04/08/2010, 16h59

Allez un petit effort, tu mets le curseur sur locaseinsensitive et tu fais

et la tu auras l'unité où il se trouve.

**jakol** · 04/08/2010, 17h33

Envoyé par Rayek

Allez un petit effort, tu mets le curseur sur locaseinsensitive et tu fais

et la tu auras l'unité où il se trouve.

Salut merci
j'ai lu la doc...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
begin
 
//module où se trouve la table1 et la datasource
with Datamodule3 do
 
begin
if table1.Locate('Libelle_Ville',Edit1.text,[locaseInsensitive]) then
  form2.showmodal
else
  ShowMessage('essaye encore!!');
end;
end;
 
end.

[Erreur] Unit1.pas(62): Identificateur non déclaré : 'locaseInsensitive'
[Erreur] Unit1.pas(62): Types incompatibles : 'TLocateOption' et 'Integer'
[Erreur fatale] Project1.dpr(7): Ne peut compiler l'unité utilisée 'Unit1.pas'

je suis désolé, tu n'es pas un debugger mais je suis un peu dépassé...

**redoran** · 05/08/2010, 09h07

salut; vous prouver aussi utilisé une requête pour résoudre votre problème

Code :

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

1
2
3
4
select champs
from ta table
where
champs=: c1  // votre paramètre

**Rayek** · 05/08/2010, 09h24

Envoyé par jakol

je suis désolé, tu n'es pas un debugger mais je suis un peu dépassé...

Quand tu appuies sur :F1:, dans la doc tu as marqué l'unité où se trouve LoCaseInsensitive, et ca te dit : Db
Donc tu rajoutes dans les uses de ton unité : DB

**jakol** · 05/08/2010, 11h33

Envoyé par Rayek

Quand tu appuies sur :F1:, dans la doc tu as marqué l'unité où se trouve LoCaseInsensitive, et ca te dit : Db
Donc tu rajoutes dans les uses de ton unité : DB

Salut
j'ai mis DB dans uses

Un grand Merci à vous 2 pour m'avoir guidé et d'avoir fait preuve de patience et de pédagogie avec un newbie en Delphi
Merci encore