Como puedo avanzar de registro en la consulta que hice a la base de datos?
Estoy utilizando el componente Mydac para conectarme a MySQL, envio mi consulta de la siguiente manera:
Código Delphi
[-]
procedure TfrmUsuarios.FormCreate(Sender: TObject);
var
total:integer;
begin
frmLogin.query.Close;
frmLogin.query.SQL.Clear;
frmLogin.query.SQL.Text:='select * from usuarios';
frmLogin.query.Open;
total:=frmLogin.query.RecordCount;
if total>=0 then
begin
edtNumero.Text:=frmLogin.query.FieldValues['numero_usuario'];
edtNombre.Text:=frmLogin.query.FieldValues['nombre_usuario'];
edtTipo.Text:=frmLogin.query.FieldValues['tipo'];
btnCambiarpass.Visible:=True;
end
else
begin
showmessage('No existen usuarios');
end;
end;
Quiero crear mis propios botones como los que se usan en DBNavigator, uno en el cual yo de click me avanze al siguiente registro de todos los que me regresó la consulta y así poderlos mostrar en los TEdit
Código Delphi
[-]
procedure TfrmUsuarios.bitSiguienteClick(Sender: TObject);
begin
edtNumero.Text:=frmLogin.query.FieldValues['numero_usuario'];
edtNombre.Text:=frmLogin.query.FieldValues['nombre_usuario'];
edtTipo.Text:=frmLogin.query.FieldValues['tipo'];
btnCambiarpass.Visible:=True;
end;
Si lo dejo así como está, me llena los campos pero siempre con el primer registro y lo que quiero es que avanze al siguiente, de misma manera quiero hacer los demas botones para el registro anterior,primero y último.
Espero haberme explicado bien.
Saludos.