Avanzar de registro en consulta a MySQL

[marcoszorrilla]

Normalmente debiera funcionar:

Código Delphi [-]
Query.Prior
Query.Next;
Query.First;
Query.Last;

Un Saludo

[jlrdz]

Ya lo hice de la siguiente manera, me avanza al siguiente registro y me llena los campos pero solamente un registro y cuando presiono nuevamente el botón ya no lo hace, ya no me avanza a la siguiente registro de la columna.

Código Delphi [-]
procedure TfrmUsuarios.bitSiguienteClick(Sender: TObject);
begin

frmLogin.query.Next;
 edtNumero.Text:=frmLogin.query.FieldValues['numero_usuario'];
  edtNombre.Text:=frmLogin.query.FieldValues['nombre_usuario'];
  edtTipo.Text:=frmLogin.query.FieldValues['tipo'];
  btnCambiarpass.Visible:=True;
  
end;

en que estaré mal?

[cloayza]

Sera que solo tiene un registro como resultado de tu consulta?

Verifica cual es el valor de RecordCount!!

O talvez ya esta al fin de archivo...Verifica con

Código Delphi [-]
If frmLogin.query.Eof then
   Showmessage('Fin registros..');

Saludos

[jlrdz]

Lo hice hecho ya verifique con

If frmLogin.query.Eof then
Showmessage('Fin registros..');

y al dar click para que me muestre el segundo registro lo hace y aparece el mensaje "Fin de registros..", pero puse un Label donde se escribiera el numero de registros con RecordCount y me salen 5, revisé en la base de datos y efectivamente solo tengo 5.

Saludos y gracias por tu respuesta.

#Editado#

en el label con RecordCount me sale 1, pero yo en mi base de datos tengo 5, la consulta a mysql que hago es "select * from usuarios", esta consulta la hago en un formulario al momento de crearse, ahi hago un RecordCount con el showmessage y ahi es donde si me indica que tengo 5 registros, pero cuando hago click en el boton siguiente ya solo me marca 1 registro.

[cloayza]

por alguna razón talvez no estas al principio de los registros...

Asegurate que estas al inicio cuando comienzas a recorrerlos...

frmLogin.query.Open;

frmLogin.query.First;

Un poquito de codigo para que controle el avance de registros y el retrocezo.

Código Delphi [-]
procedure tform1.cmdNextClick(Sender:TObject);
begin
       cmdNext.Enabled:=Not frmLogin.query.Eof;
       if cmdNext.Enabled then
         frmLogin.query.Next; 

       cmdPrev.Enabled:=Not frmLogin.query.Bof;
end;

procedure tform1.cmdPrevClick(Sender:TObject);
begin
       //verifica que no es fin de registros...
       cmdPrev.Enabled:=Not frmLogin.query.Bof;
       if cmdPrev.Enabled then
         frmLogin.query.Prior; //Avanza al siguiente

      cmdNext.Enabled:=Not frmLogin.query.Eof;
end;

[jlrdz]

Lo hice con ese codigo pero me sigue apareciendo lo mismo, doy click y solo me muestra el siguiente registro despues doy clic nuevamente y ya no me muestra el siguiente, sabiendo que en la base de datos tengo 5 registros y estoy seleccionandolos todos con "select * from usuarios"