Botones

Botón primero:
GO TOP
THISFORM.REFRESH
Botón anterior:
IF .NOT. BOF()
SKIP -1
ELSE
GO BOTTOM
ENDIF
THISFORM.REFRESH
Botón Siguiente:
IF .NOT. EOF()
SKIP 1
ELSE
GO TOP
ENDIF
THISFORM.REFRESH
Botón último:
GO BOTTOM
THISFORM.REFRESH
Agrega un botón para buscar registros
Vamos a agregar un botón para que busque registros por medio del campo índice código del cliente, para ello inserta un contenedory dentro del un botón de comandos y un cuadro de texto, modifica las propiedades necesarias de modo que te quede como el siguiente ejemplo:
buscar= 0
buscar=VAL(THISFORM.CONTAINER1.txtbuscar.VALUE)
SEEK buscar ORDER TAG cod_client;
OF ‘C:\Hector Hernandez\Sistema de Clientes\Datos\clientes.cdx’
IF !FOUND()
Cmdguardar
ctexto = '¿Esta seguro de grabar el registro?'
ntipodedialogo = 4 + 32 + 256ctitulo = 'Guardar'
* 4 = Botones Sí y No.
* 32 = Icono del signo de interrogación.
* 256 = El segundo botón es el predeterminado.
nrespuesta = MESSAGEBOX(ctexto, ntipodedialogo, ctitulo)
DO CASE
CASE nrespuesta = 6
THISFORM.REFRESH
CASE nrespuesta = 7
DELETE
PACK
ENDCASE
THISFORM.txtcod_cliente.ENABLED=.f.
THISFORM.txtnom_cliente.ENABLED=.f.
THISFORM.txtape_cliente.ENABLED=.f.THISFORM.txtnom_negocio.ENABLED=.f.
THISFORM.edtdir_cliente.ENABLED=.f.
THISFORM.txtcod_dpto.ENABLED=.f.
THISFORM.txttele_cliente.ENABLED=.f.
THISFORM.txtfax_cliente.ENABLED=.f.
THISFORM.txtno_cuenta.ENABLED=.f.
THISFORM.commandgroup1.ENABLED=.t.
THISFORM.container1.ENABLED=.t.
THISFORM.commandgroup2.ENABLED=.t.
THISFORM.cmdsalir.ENABLED=.t.
THISFORM.cmdguardar.VISIBLE=.f.
THISFORM.REFRESH
Cmdborrarmensaje=MESSAGEBOX("¿Seguro de eliminar el registro?",; 4+32+256,"Eliminar registros")
DO CASE
CASE mensaje = 6
DELETE
PACK
GO TOP
THISFORM.REFRESH
CASE mensaje = 7
THISFORM.REFRESH
ENDCASE
Cmdeditar
THISFORM.txtnom_cliente.ENABLED=.t.
THISFORM.txtape_cliente.ENABLED=.t.
THISFORM.txtnom_negocio.ENABLED=.t.
THISFORM.edtdir_cliente.ENABLED=.t.
THISFORM.txtcod_dpto.ENABLED=.t.
THISFORM.txttele_cliente.ENABLED=.t.THISFORM.txtfax_cliente.ENABLED=.t.
THISFORM.txtno_cuenta.ENABLED=.t.
THISFORM.commandgroup1.ENABLED=.f.
THISFORM.container1.ENABLED=.F.
THISFORM.commandgroup2.ENABLED=.F.
THISFORM.cmdsalir.ENABLED=.F.
THISFORM.cmdguardare.VISIBLE=.T.
THISFORM.txtnom_cliente.SETFOCUS
THISFORM.REFRESH
Cmdgrabare
THISFORM.txtcod_cliente.ENABLED=.f.
THISFORM.txtnom_cliente.ENABLED=.f.
THISFORM.txtape_cliente.ENABLED=.f.THISFORM.txtnom_negocio.ENABLED=.f.
THISFORM.edtdir_cliente.ENABLED=.f.
THISFORM.txtcod_dpto.ENABLED=.f.
THISFORM.txttele_cliente.ENABLED=.f.
THISFORM.txtfax_cliente.ENABLED=.f.
THISFORM.txtno_cuenta.ENABLED=.f.
THISFORM.commandgroup1.ENABLED=.t.
THISFORM.container1.ENABLED=.t.
THISFORM.commandgroup2.ENABLED=.t.
THISFORM.cmdsalir.ENABLED=.t.
THISFORM.cmdguardare.VISIBLE=.f.
THISFORM.REFRESH
Enclase se implementó una clase basada en la clase TextBox que cambia el color de fondo y el color de la letra del Textbox cuando el texbox obtiene o pierde el focus ( utilizando los procedimientos LosFocus y GotFocus) de esta manera el usuario identifica mas facilmente el texbox activo
Código del Procedimiento LostFocus de la clase TxtColor (obtenel el focus)
This.backcolor=rgb(0,0,255) (color defondo azul)
This.forecolor=rgb(255,255,255) (color de las letras blancas)
Código del Procedimiento GosFocus del la clase TextColor (perder el focus)
This.backcolor=rgb(255,255,255) (color de fondo blanca)
This.forecolor=rgb(0,0,0) (color de las letras negras)
Soporte de Tecnología ActiveX
Cuando usted instala Visual Foxpro, se instalan una serie de controles ActiveX soportados por Visual Foxpro.
UnActiveX, no es más que un control externo, es parecido a una clase ya que las clases se pueden guardar en un archivo (extensión VCX) y los ActiveX tienen extensión OCX. La diferencia es que los VCX solo puede ocuparse en Visual Foxpro, mientras que los OCX se consideran como tecnología abierta, es decir, pueden ser utilizado por cualquier lenguaje visual como Visual C++ o Visual Basic, por...