Creación de Proyectos en Visual FoxPro Parte 3 - foxeando

Creación de Proyectos en Visual FoxPro
Parte 3
Hasta el momento vimos como se crean los proyectos, como se genera un prg para
guardar funciones y procedimientos, otro de arranque con los seteos principales y un
formulario de ABM básico.
En este documento veremos como se definen las clases propias y como se las utiliza,
como se agregan los objetos por código y por último como podemos utilizar un solo
formulario ABM para todas las tablas.
La imagen muestra el DER (diagrama de entidad-relación) de la base de datos que
usamos para el proyecto CursoFoxpro.

Los pasos a seguir van a ser los siguientes:
1) Creación de clase para selección de sexos.
2) Creación de clase para relación de tablas. (ejemplo: en alumnos guardar en el
campo id_loc el id de la localidad que seleccionamos).
3) Crear plantillas de carga.
4) Modificar el form ActAlumnos por el Actualiza genérico.
Clase Sexo:
Las clases se almacenan dentro de librerías de clases, permitiendo agruparlas por
funcionalidad. Ejemplo:
Hay dos librerías abm y herramientas, cada una de ellas tienen clases relacionada con la
funcionalidad.
Para crear una clase nueva presionamos new y nos aparece el siguiente formulario:
Nombre de la clase, ejemplo
sexo.
En que clase esta basada, en la
lista figuran las nativas del vfp
o con los tres puntitos podemos
elegir una nuestra creada
previamente.
Seleccionamos la librería donde
la vamos a almacenar. Si aun no
existe la crea.

Entonces vamos a crear una clase llamada sexo, basada en combobox y la guardamos
dentro de abm. Nos va a aparecer algo así:
El objeto combobox nos sirve para mostrar una lista de opciones posibles a seleccionar,
por ejemplo masculino y femenino. Esta clase la podemos utilizar en cualquier lugar
donde haya selección de sexo, eso es lo bueno de las clases propias, ahorramos código y
si mas tarde queremos agregar una nueva opción no tenemos que rastrear todos los
lados sino solo modificamos la clase.
El combobox tiene mucha similitud con el listbox, la única diferencia es que el listbox
siempre aparece como lista y el combo aparece solo lo que seleccionamos. Por lo tanto
las propiedades y métodos que vamos a explicar sirven para cualquiera de las dos
clases.
Las propiedades que vamos a utilizar son:
ColumnCount = 2 **Define la cantidad de columnas a mostrar en la lista.
ColumnWidths = 100, 50 **El ancho de cada columna para mostrar el valor.
Style = 2 **Como se comporta visualmente.
SelectOnEntry = .T. **Despliega automáticamente la lista al tomar foco.
Value = Nos da el valor del dato que seleccionamos, de la columna que seteamos en la
propiedad siguiente.
BoundColumn = 2 **Por defecto es 1, esto nos dice la propiedad value que valor de
columna nos devuelve.
Por ultimo en el método init vamos a realizar la carga del combobox:
This.AddListItem("Masculino", 1, 1)
This.AddListItem("M",1,2)
This.AddListItem("Femenino", 2, 1)
This.AddListItem("F", 2, 2)
El método AddlistItem tiene como parámetros el texto a mostrar, la identificación del
elemento y la columna donde se mostrara. Si queremos agregar mas de una columna
para un mismo elemento lo único que tenemos que hacer es definir la misma
identificación para todas las columnas.
La propiedad controlsource, tanto en este como en otros objetos, nos dice cual es el
origen de datos para la propiedad value, en la mayoría de los casos va a ser una campo
de una tabla. No la definimos en la clase porque la podemos usar en mas de una tabla
distinta.
Clase Relación:
La finalidad de esta clase es poder definirle que datos necesitamos, de que tabla son y
en que campo los queremos grabar. Ella sola abrirá la tabla, configurara todas las
propiedades necesarias para establecer el vínculo.

Vamos a crear una clase nueva llamada relación y la guardamos dentro de abm, basada
en combobox, igual que la anterior, y definimos las mismas 4 propiedades. Otra
propiedad a definir es RowSourceType = 2, en ella le indicamos que el tipo de origen de
datos es una tabla.
En los formularios y las clases podemos crear propiedades y métodos además de los que
ya vienen por herencia, para hacer eso vamos al menú form o class y clickeamos en
“New property” o en “New method”. Los métodos sirven para guardar procedimientos o
funciones dentro de la clase y las propiedades para guardar ciertos valores a los que
podrán acceder todos los objetos.
Necesitamos crear dos propiedades:
a) Campos Vamos a obtener la tabla y los campos que queremos mostrar.
b) Destino Va a ser nuestro valor para el ControlSource.
En el método init vamos a agregar el siguiente código:
(Las funciones utilizadas a continuación están en el apunte: www.foxeando.com.ar/paginas/funciones_vfp.htm)
Los ejemplo de los valores que se cargan en las propiedades son:
*campos = "alumnocat.id, nombre"
*destino = "alumnos.id_cat
TabOri = "bd/" + LEFT(this.campos,AT(".",this.campos)-1)
*La tabla que necesitamos abrir la vamos a obtener del string campos.
SELECT 0
USE (tabOri) ORDER id
*abrimos la tabla para que la propiedad siguiente encuentre el alias
This.RowSource = This.campos
This.ControlSource = This.Destino
De esta forma ya tenemos la clase genérica relación, a la hora de usarla solo debemos
cargar en las propiedades campos y destino los valores para que se configure sola al
ejecutarse el código.
En la próxima parte veremos los puntos que quedan.