Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » FoxPro/Visual FoxPro » botones de control de registro(primero,anterior,siguiente,ultimo)

FoxPro/Visual FoxPro - botones de control de registro(primero,anterior,siguiente,ultimo)

Volver
Nuevo Tema
<<>>
 
Vista:

botones de control de registro(primero,anterior,siguiente,ultimo)

Publicado por luis nah (1 intervención) el 28/10/2015 05:16:05
hola amigos, me gustaría que me ayudasen con una parte de mi código :)
básicamente es de los controladores de registros:
-primero(<<)
-anterior(<)
-siguiente(>)
-ultimo(>>)
se los agradecería mucho :D
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

botones de control de registro(primero,anterior,siguiente,ultimo)

Publicado por Ernesto Hernandez (4623 intervenciones) el 28/10/2015 16:33:21
Revisa Solutions Samples en el Task Pane Manager ..

ahi hay clases que puedes utilizar en tu proyecto

Suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 59
Ha disminuido 1 puesto en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

botones de control de registro(primero,anterior,siguiente,ultimo)

Publicado por Juan R. (114 intervenciones) el 29/10/2015 19:15:42
Buenas Luis

Consideramos que debes tener algún tipo de cursor para mover los botones, no? Pues si lo quieres programar tu mismo sería algo así:

Primero (evento Click)

GO TOP in "tu cursor"

Último (evento Click)

GO BOTTOM in "tu cursor"


Siguiente (evento Click)

SKIP IN "tucursor"


Anterior (evento Click)

SKIP -1 in "tucursor"



Eso sí, tienes que controlar tanto en "Siguiente" como en "Anterior" que no llegues al final del cursor ya sea por el inicio o por el final.

Un saludo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Abel
Val: 642
Plata
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

botones de control de registro(primero,anterior,siguiente,ultimo)

Publicado por Abel (286 intervenciones) el 02/11/2015 15:06:01
Ampliando un poco más la respuesta de Juan...
Siempre en los eventos Click de tus botones command deberías tener lo siguiente.

Botón (PRIMERO):
--------------------
1
GO TOP

Botón (ANTERIOR):
--------------------
1
2
3
4
5
6
7
If Eof() 			&& Si No hay registros salir.
	Return
Endif
Skip -1
If Bof()
	Go Bottom
Endif

Botón (SIGUIENTE)
--------------------
1
2
3
4
5
6
7
If Eof() 			&& Si No hay registros salir.
	Return
Endif
Skip
If Eof()
	Go Top
Endif

Botón (ULTIMO)
--------------------
1
GO BOTTOM
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

botones de control de registro(primero,anterior,siguiente,ultimo)

Publicado por JONNATHAN (1 intervención) el 12/03/2016 04:01:14
Para el boton siguiente cuando encuentra el ultimo registro esta mal.

Debe ser:
if eof()
Go bott

No debe ser:
If Eof()
Go Top
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de José Luis Plata Garrido

botones de control de registro(primero,anterior,siguiente,ultimo)

Publicado por José Luis Plata Garrido (16 intervenciones) el 13/03/2016 07:46:46
Jonnathan, para los pocedimientos del evento click de tus botones te sugiero lo siguiente:

Botón Primero
1
2
3
4
5
If Recno() > 0
   Go Top
Else
   Aviso = MessageBox("No existen registros",64,"Aviso")
EndIf

Botón Anterior
1
2
3
4
5
6
7
If Not Bof()
   Skip -1
   If Bof()
      Aviso = MessageBox("Estás al inicio del archivo",64,"Aviso")
      Slip
   EndIf
EndIf

Botón Siguiente
1
2
3
4
5
6
If Not Eof()
   Skip
If Eof()
   Aviso = MessageBox("Estás al final del archivo",64,"Aviso")
   Skip -1
EndIf

Botón Último
1
2
3
4
5
If Recno() > 0
   Go Bottom
Else
   Aviso = MessageBox("No existen registros",64,"Aviso")
EndIf


Espero que te sea de utiliadad, saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar