como crear una ventana de login
necesito crear una ventana de login conectada con una base de dato de acceses, mediante un adoquery y datasourse y un adoconecction, estoy utilizando el siguiente codigo para la consulta pero no me hace la busqueda
procedure TPassword.BitBtn2Click(Sender: TObject);
begin
edit1.SetFocus;
// saber si existen Datos.
if (edit2.text<>'') and (edit1.text<>'') then begin
// comprovar si existen en la BD.
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;
por fabor ayundeme.....
|