Por favor, pon el código entre
[ delphi ]
...
[ /delphi ]
Código Delphi
[-]
procedure TPassword.BitBtn2Click(Sender: TObject);
begin
edit1.SetFocus;
if (edit2.text<>'') and (edit1.text<>'') then begin
if (Edit1.text=adoquery1.FieldByName('nick').AsString) and
(edit2.text=adoquery1.FieldByName('contraseña').AsString) then begin
password.Free;
sistemaprincipal.ShowModal;
end else begin
messageBox(handle,'Clave Incorrecta','!!!ERROR........!!!!',MB_ICONERROR+mb_OK);
edit1.Clear;
edit2.Clear;
edit1.SetFocus;
end;
end else
messageBox(handle,'Usuário Incorrecto ','ERROR......!!!!',MB_ICONERROR+mb_OK);
end;
supongo que te falta ir avanzando por la tabla mientras comparas los campos de
edit1 y
edit2 contra los campos
nick y
contraseña
Código Delphi
[-]
procedure TPassword.BitBtn2Click(Sender: TObject);
var
LoEncontreYCoincideContrasena : boolean;
begin
Edit1.SetFocus;
if (Edit2.text<>'') and (Edit1.text<>'') then
begin
AdoQuery1.First; LoEncontreYCoincideContrasena := False;
while (not AdoQuery1.EOF) do
begin
if (Edit1.text=AdoQuery1.FieldByName('nick').AsString) and
(Edit2.text=AdoQuery1.FieldByName('contraseña').AsString) then
LoEncontreYCoincideContrasena := True;
AdoQuery1.Next;
end;
if (LoEncontreYCoincideContrasena) then
begin
Password.Free;
SistemaPrincipal.ShowModal;
end else
begin
MessageBox(handle,'Clave Incorrecta','!!!ERROR........!!!!',MB_ICONERROR+mb_OK);
Edit1.Clear;
Edit2.Clear;
Edit1.SetFocus;
end;
end else
MessageBox(handle,'Usuário Incorrecto ','ERROR......!!!!',MB_ICONERROR+mb_OK);
end;