Visual FoxPro.

Formularios, las Propiedades y Métodos creados por el Usuario y los Botones.


¿Cómo hacer para Crear Propiedades y Métodos?

Para añadir a un formulario propiedades y/o métodos diseñados por el usuario, una vez que se tiene un formulario activo en pantalla, buscamos en el Menú Principal de VFox la opción Formulario y seguidamente hacemos Click sobre la acción que deseamos crear.

Si lo que queremos es crear una Nueva Propiedad, basta con hacer Click sobre la opción correspondiente y aparecerá en pantalla el siguiente cuadro de diálogo:

Cuadro de diálogo Nueva propiedad: Le permite crear una propiedad nueva y especificar la descripción y visibilidad de la propiedad.Este cuadro de diálogo aparece cuando selecciona.

Opciones del Cuadro de diálogo:

Seguidamente escribimos el nombre de la propiedad creada por nosotros, opcionalmente, si queremos podemos realizar una descripción detallada de la misma y finalmente pulsar el botón Agregar, si no deseamos agregar o añadir más propiedades cerramos el cuadro de diálogo. Para crear un Método procedemos de igual manera pero con un cuadro de dialogo para crear métodos.

Cuadro de diálogo Nuevo método: Le permite crear un método nuevo y especificar la descripción y  visibilidad del método.Este cuadro de diálogo aparece cuando selecciona Nuevo método en los menús Clase o Formulario.

Opciones del cuadro de diálogo:

Si queremos ver si nuestras propiedades fueron creadas o adicionadas al formulario, activamos la Ventana de Propiedades del mismo y nos situamos al final de la categoría Otras, en este punto deben aparecer todas las propiedades Creadas por el Usuario, permitiendo establecer un valor inicial: Nada; True o False; y un valor que puede ser numérico o una cadena de caracteres. Las propiedades que debes crear son: Salvareg, Últimoregistro y Adicionando.

Para verificar y codificar los métodos creados por nosotros, en la Ventana de Código de los eventos y procedimientos del formulario, los cuales se muestran en estricto orden alfabético, entre todos los procedimientos asociados o propios del Visual Foxpro, deben estar los Métodos Creados por el Usuario, para codificar éstos basta con un Doble Click sobre el método correspondiente.

Códigos para los Botones.

Botón Primero:

Go Top

ThisForm.Show

ThisForm.Botones

Botón Último:

Go Bottom

ThisForm.Show

ThisForm.Botones

Botón Siguiente:

If Not Eof( )

    Skip

    If Eof( )

       Go Bottom

    EndIf

Endif

ThisForm.Show

ThisForm.Botones

Botón Anterior:

If Not Bof( )

    Skip -1

     If Bof( )

           Go Top

    EndIf

Endif

ThisForm.Show

ThisForm.Botones

Botón Modificar:

Editando = .T.

ThisForm.Habilitar

ThisForm.Botonesencendidos

ThisForm.Botonesapagados

ThisForm.B_Guardar.Enabled = .T.

ThisForm.B_Cancelar.Enabled = .T.

ThisForm.I_CampoClave.Enabled = .F.

ThisForm.I_Campo2.GotFocus

Botón Buscar:

ThisForm.UltimoRegistro = Recno( )

On Key Label Enter Keyboard Chr(23)

On Key Label RightMouse Keyboard Chr(23)

Browse NoModify NoAppend

On Key Label Enter

On Key Label RightMouse

If Lastkey( ) = 27

     Go ( ThisForm.UltimoRegistro )

EndIf

ThisForm.Show

ThisForm.Botones

Botón Agregar:

ThisForm.SalvaReg = Recno( )

ThisForm.Adicionando = .T.

Append Blank

ThisForm.Show

Editando = .T.

ThisForm.Habilitar

ThisForm.Botonesencendidos

ThisForm.Botonesapagados

ThisForm.B_Guardar.Enabled = .T.

ThisForm.B_Cancelar.Enabled = .T.

ThisForm.I_CampoClave.GotFocus

Botón Guardar:

= TableUpdate( )

Editando = .T.

ThisForm.Adicionando. = .F.

ThisForm.Inhabilitar

ThisForm.Botonesencendidos

ThisForm.Botones

ThisForm.B_Guardar.Enabled = .F.

ThisForm.B_Cancelar.Enabled = .F.

ThisForm.B_Siguiente.GotFocus

Botón Cancelar:

= TableRevert( )

If ThisForm.Adicionando

       Go (ThisForm.SalvaReg )

EndIf

Editando = .T.

ThisForm.Adicionando. = .F.

ThisForm.Show

ThisForm.Inhabilitar

ThisForm.Botonesencendidos

ThisForm.Botones

ThisForm.B_Guardar.Enabled = .F.

ThisForm.B_Cancelar.Enabled = .F.

ThisForm.B_Siguiente.GotFocus

Botón Eliminar:

If MessageBox ("¿ Desea Eliminar este registro?", N + M + P ) = 6

       Delete next 1

Blank

Set Deleted On

Go Top

ThisForm.Show

EndIf

Nota: Tanto M,N,P son valariables utilizadas para representar la configuración estándar de un MessageBox. N: Representa el número de botones que aparecen en el cuadro de mensaje( Varía de 0 a 5); M: Para establecer que Icono mostrará (los posibles valores son: 16, 32, 48, 64); P: utilizado para predeterminar el primer botón (0), el segundo (256) o el tercero (512), y 6 que es el valor de retorno al pulsar un botón, 6 equivale a pulsar el Botón Si para este caso (varía de 1 a 7).

Botón Salir:

Release ThisForm

Método Load:

If Not Used ( "Nombre_de_la_Tabla" )

          Use Nombre_de_la_Tabla In 0

EndIf

Select Nombre_de_la_Tabla

Set Order To Campo_de_Orden

Set Multilock On     && Se Específica si estas utilizando la Versión 3.o de Vfox

= CursorSetprop ("Buffering", 3)

Método BotonesEncendidos:

For I = 1 to ThisForm.ControlCount

        If ThisForm.Controls(I).Name = [B_]

             ThisForm.Controls(I).Enabled = .T.

        EndIf

EndFor

Método Botones:

SalvaReg = Recno( )

If Eof( )

        ThisForm.B_Siguiente.Enabled = .F.

Else

       ThisForm.B_Siguiente.Enabled = .T.

      Skip

      If Eof( )

          ThisForm.B_Siguiente.Enabled = .F.

         Go Bottom

     EndIf

EndIf

If Between (SalvaReg, 1, Reccount( ) )

          Go ( SalvaReg )

EndIf

If Bof( )

      ThisForm.B_Anterior.Enabled = .F.

Else

    ThisForm.B_Anterior.Enabled = .T.

     Skip - 1

    If Bof( )

          ThisForm.B_Anterior.Enabled = .F.

          Go Top

   EndIf

EndIf

If Between (SalvaReg, 1, Reccount( ) )

    Go ( SalvaReg )

EndIf

Método BotonesApagados:

For I = 1 to ThisForm.ControlCount

     If ThisForm.Controls(I).Name = [B_]

           ThisForm.Controls(I).Enabled = .F.

   EndIf

EndFor

Método Habilitar:

For I = 1 to ThisForm.ControlCount

    If ThisForm.Controls(I).Name = [I_]

         ThisForm.Controls(I).Enabled = .T.

   EndIf

EndFor

Método Inhabilitar:

For I = 1 to ThisForm.ControlCount

      If ThisForm.Controls(I).Name = [I_]

          ThisForm.Controls(I).Enabled = .F.

    EndIf

EndFor

Evento GotFocus:

ThisForeColor = Rgb ( 255, 255, 255)

ThisBackColor = Rgb ( 68, 128, 128)

Evento LostFocus:

ThisForeColor = Rgb ( 0, 0, 0)

ThisBackColor = Rgb ( 255, 255, 255)

 

¿Cómo Enlazar mis Datos con el Formulario?.

Para enlazar los datos de las tablas o de una Base de Datos a un formulario es necesario realizar un Entorno de Datos , el cual permite que todas las tablas, vistas y relaciones que se abran cuando ejecutes o modifiques un formulario o un informe. El entorno de datos se guarda con el formulario o el informe y se puede modificar en el Diseñador de entornos de datos.

Para realizar un entorno de datos existen varias vías, la primera de ellas es a través de la Opción Ver del Menú Principal de VFox o haciendo Click sobre el siguiente Icono y seguidamente (de no haber un entorno de datos previo) se abre o aparece en pantalla el Cuadro de Diálogo para el Entorno de Datos:

Cuadro de diálogo Agregar tabla o vista: En este cuadro de diálogo, se seleccionan una o más tablas o vistas existentes en las que se basa la nueva consulta o vista local. Opciones del cuadro de diálogo:

Si ya existe un Entorno de Datos en el formulario, Visual FoxPro muestra Diseñador de entorno de datos: Utilice el Diseñador de visualmente el entorno de datos de formularios, conjuntos de formularios e informes. Cuando la ventana del Diseñador de entorno de datos está activa, Visual FoxPro muestra el menú Entorno de datos, que le permite controlar objetos de entorno de datos. Un entorno de datos define el origen de los datos usados en un formulario o informe. Aquí puedes incluir nuevas tablas, vistas y relaciones que no se incluyeron al momento de crear el Entorno de Datos por primera vez, también puedes utilizarlo para quitar objetos del entorno. Cuando se define el entorno de datos de un formulario o informe, Visual FoxPro abre automáticamente las tablas o vistas cuando abre o ejecuta el archivo y los cierra cuando se cierra o se libera el archivo.

Ya está listo el entorno de datos, nos queda como única tarea mostrar o visualizar los datos o campos del entorno en nuestro formulario. Asegúrate que en el diseño de tu formulario cuente por lo menos con una serie de cajas de texto "TextBox" (próximamente usaremos Cuadrículas "Grid", etc) para desplegar la información del entorno de datos.

Para cada Etiqueta de Texto, en la Propiedad ControlSource muestra todos los campos (asociados a sus respectivas tablas) del entorno de datos, te queda como última tarea, asignarle o seleccionar el campo o el dato que quieres mostrar en cada una de ellas.

Para los formularios, Visual FoxPro rellena la lista de propiedades ControlSource en la ventana Propiedades con todos los campos de su entorno de datos. Para los informes, Visual FoxPro rellena el conjunto de datos que su informe necesita basado en las tablas y vistas asociadas.

 

Para Bajar toda la Información de esta sección  Bajate la Información Completa

Arriba

 

Free counter and web stats

 


Para más información contactar con:
Francisco A. Ponte R.
Correo electrónico: fponte@.uc.edu.ve