PDA

Ver la Versión Completa : mostrar informacion en un DBEdit


lucas05
13-08-2010, 21:31:18
Hola, estoy realizando una aplicacion en delphi 7 y MySQL.
Estoy utilizando varios DBEdit para mostrar informacion.
Lo que hago es traer los datos de la tabla 'empleados' y mostrarlos en los distintos DBEdit (por ejemplo en DBEdit1 muestro el apellido, en DBEdit2 el nombre, en DBEdit3 el domicilio, etc).

Cada vez que hago click en el Button1_siguiente paso al proximo registro, mostrando los datos de otro empleado (el codigo que utilizo en el button1 es: ADOQuery1.Next).
Lo que quiero lograr es que cuando llegue al ultimo registro de la tabla y vuelva a pulsar el Button1_siguiente me lleve de nuevo al primer registro.

El Button2 _anterior hace lo contrario (ADOQuery1.Prior), muestra el registro anterior. En este caso quiero que cuando este en el primer registro y haga click en en Button2_Anterior me lleve al ultimo registro.

Espero haber sido claro. Gracias por su atencion.

Caral
13-08-2010, 22:00:09
Hola
Boton next:
Al llegar al final, regresa al primero:

ADOQuery1.Next;
If DataSource1.DataSet.Eof then
ADOQuery1.First;

Si no se tiene datasource en la linea IF:
ADOQuery1.DataSetField.DataSet.Eof

Boton Prior:
Al Llegar al primer registro, va al ultimo:

ADOQuery1.Prior;
If DataSource1.DataSet.Bof then
ADOQuery1.Last;

Si no se tiene datasource en la linea IF:
ADOQuery1.DataSetField.DataSet.Bof


Saludos

lucas05
15-08-2010, 04:32:52
Hola Caral, gracias por tu ayuda.
Tu solución funciono muy bien.

Nuevamente gracias y saludos