Pasar de registro en registro con botones

[quote][B]Ricardo Aguirre Escribió:[/b]

<pre>
Gracias de antemano por la ayuda

Mira lo que quiero es saber como le ago para desplazarme entre los
registros de una tabla por medio de botones. Pero no quiero utilizar en
navigator de fox.

Quiero saber con que codigo puedo ir al siguiente registro o regresar al
registro anterior de una tabla, ycomo le ago para guardar insertar y
modificar un registro.


PortalFox :: Nada corre como un zorro
[link]http://www.portalfox.com[/link]

PortalFox - NNTP Forum Gateway

</pre>
[/quote]


Para que te rompes la cabeza tratado de descubrir el hilo negro ???'
simplemente haz uso de las clases que trae VisualFoxPro, de lo contrario
necesitas crear tu propia barra de desplazamiento y ahi necesitas cuidar
muchas cosas o sea necesitas escribir codigo en algunos Metodos y
Procedimientos .
Yo hice una y si me llevo algo de tiempo llegar a lograrla

Te recomiendo que utilizes las barras de los ejemplos ahora si realmente
quieres crear tu propia clase
el truco es generar una clase contenedora y ahi poner todos los botones
que necesites, bueno asi me funciono a mi .




WebsurferMX


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway

en el metodo clik del boton pones
skip 1
thisform.refresh

y

skip -1
thisform.refresh

"Ricardo Aguirre" wrote in message
news:%

Gracias de antemano por la ayuda

Mira lo que quiero es saber como le ago para desplazarme entre los
registros de una tabla por medio de botones. Pero no quiero utilizar en
navigator de fox.

Quiero saber con que codigo puedo ir al siguiente registro o regresar al
registro anterior de una tabla, ycomo le ago para guardar insertar y
modificar un registro.


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway

Ricardo,

*primer registro, cmdPrimero
SELECT tabla
GO TOP IN tabla

*desactiva anterior y primero
thisform.cmdAnterior.enabled = .F.
thisform.cmdPrimero.enabled = .F.

IF RECCOUNT(tabla) > 1
*activa siguiente y ultimo
thisform.cmdSiguiente.enabled = .T.
thisform.cmdUltimo.enabled = .T.
ENDIF

thisform.refresh

*avanza un registro, cmdSiguiente

SELECT tabla

IF .NOT. EOF(tabla)
SKIP 1 IN tabla

IF EOF(tabla)
SKIP -1 IN tabla
*desactiva siguiente y ultimo
thisform.cmdSiguiente.enabled = .F.
thisform.cmdUltimo.enabled = .F.
ENDIF

IF .NOT. thisform.cmdAnterior.enabled
*activa anterior y primero
thisform.cmdAnterior.enabled = .T.
thisform.cmdPrimero.enabled = .T.
ENDIF
ENDIF

thisform.refresh


*retrocede un registro, cmdAnterior

SELECT tabla

IF .NOT. BOF(tabla)
SKIP -1 IN tabla

IF BOF(tabla)
*desactiva anterior y primero
thisform.cmdAnterior.enabled = .F.
thisform.cmdPrimero.enabled = .F.
ENDIF

IF RECCOUNT(tabla) > 1
*activa siguiente y ultimo
thisform.cmdSiguiente.enabled = .T.
thisform.cmdUltimo.enabled = .T.
ENDIF
ENDIF

thisform.refresh


*ultimo registro, cmdUltimo

SELECT tabla

GO BOTTOM IN tabla

*desactiva siguiente y ultimo
thisform.cmdSiguiente.enabled = .F.
thisform.cmdUltimo.enabled = .F.

IF .NOT. thisform.cmdAnterior.enabled
*activa anterior y primero
thisform.cmdAnterior.enabled = .T.
thisform.cmdPrimero.enabled = .T.
ENDIF

thisform.refresh



Espero te sirva. Este codigo ponelo en el envento click de 4 botones Hacele
los ajustes que necesites, pero creo que la idea esta.