Practica Visual Fox Pro

PRACTICA VISUAL FOX PRO

PROFESOR : IVAN PINO TELLERIA

NOMBRES : YERSON Y. CANDIA ACHAHUI

CURSO : BASE DE DATOS

FACULTAD : FAIN

ESCUELA : ESIS

CODIGO : 2009-34067

TACNA - PERU

2012

INFORME PRACTICA 03

CREACION DE FORMULARIOS DE UNA APLICACIÓN EN VISUAL FOX

OBJETIVOS

Reconocer la estructura básica de formularios de ingreso y exploración de datos.

El alumno podrá implementar sus propios formularios de ingreso y exploración de datos.

METODOLOGIA

Se crearán plantillas de formularios. Para facilitar la programación (hasta donde es posible) se utilizarán clases reutilizables, aprovechando también los mecanismos de herencia y sobre escritura de métodos. Las clases a implementarse serán:

Taplicación, el gran objeto administrador de la aplicación.

Clases de formularios para mostrar información de referencia sobre el programa implementado.

PREPARATIVOS

Crear un directorio denominado \Pradica03. Dentro de este directorio copiar todo el contenido del directorio Practica02 (práctica anterior), incluyendo la estructura de subdirectorios. Todos los demás archivos generados durante el desarrollo de esta práctica deberán de ser guardados en estos subdirectorios (\\Practica03V...)

DESARROLLO DE LA PRÁCTICA

PARTE 01: APERTURA DE LA APLICACIÓN (\Practica03\PryMatriculas.pjx)

Abrir el proyecto \Practica03\PryMatrículas.pj

PARTE 02: DISEÑO DE LA PRIMERA CLASE BASE (CLASE Tform_Base01)

Añadir nuevas propiedades y nuevos métodos.

Utilizando la ventana de Propiedades de los comandos

Y así sucesivamente.

Ahora sobre el evento Destroy del Formulario

Método do_form_explore

PARTE 03: DISEÑO DE LA SEGUNDA CLASE BASE (CLASE Tform_Baae02)

De igual manera añadir nuevas propiedades y nuevos métodos.

Haciendo uso del inspector de objetos, click sobre el método do_form_Explore

Sobre su método Destroy:

PARTE 04: DISEÑO DE UNA SUBCLASE (CLASE TForm_Master_Detalle)

Tform_Master_Detalle

Basado en: Tform_Base01

Almacenar en:..\Practica03\Classes\Tforms_Class.vcx'.

• Insertar 02 controles “Botón de comando" (Command.)

• Insertar 4 controles ‘Etiqueta" (Label)

• Insertar 03 controles "Cuadro de texto” (Text)

• Insertar 01 control “Cuadricula“ (Grid)

Agregar nuevas propiedades

Sobre el método Destroy Event ( o método Destroy) del formulario.

PARTE 05: DISEÑO DE LA PRIMERA INTERFAZ DE USUARIO (CLASE Tform.Alumno)

Seleccionando la ventana de herramientas “Controles de formulario’.

• Insertar 05 controles "Botón de comando” (commandl,)

• Insertar 05 controles "Etiqueta’ (Label)

• Insertar 04 controles "Cuadro de texto" (Text)

• Insertar 01 control "Grupo de Opciones” (OptionGroup)

Sobre el método Init del Formulario

* Este procedimiento activa la inicialización de datos

* En este Formulario, el area de' trabajo preeterminado será

* CursorAlumno, La Tabla a Actualizar es ALUMNO

* 1. Procedimiento ABRIR de la tabla Alumno

* Donde se Grabaran los datos

Local s

* 1. Configuración de propiedades respecto de Tablas y cursores

THISFORM.p_Caption_Explore="Alumnos: Exploración de registros"

THISFORM.p_Caption_Insert="Alumnos: Nuevo Registro"

THISFORM.p_Caption_Edit="Alumnos: Modificación de registro"

THISFORM.p_tabla_default="Alumno"

THISFORM.p_cursor_default="CursorAlumno"

THISFORM.p_cursor_sql="SELECT c_alumno, apellido, nombre," + ;

" dirección, sexo FROM Alumno ORDER BY " + ;

" Apellido,Nombre INTO CURSOR " + THISFORM.p_cursor_default

* 2. Apertura de la Tabla de actualización de datos

IF !USED(THISFORM.p_tabla_default) THEN

USE(THISFORM.p_tabla_default)

ENDIF

* 3. Procedimiento ABRIR cursor (CursorAlumno en este formulario)

s=THISFORM.p_cursor_sql

&s

* 4. Termina de CONFIGURAR el Option Group

THISFORM.OptSexo.Optionl.Caption="Masculino"

THISFORM.OptSexo.Option2.Caption="Femenino"

* 5. Muestra en pantalla los datos del registro inicial

SELECT(THISFORM.p_cursor_default)

IF BOF()=.F. THEN

GOTO TOP

ENDIF

THISFORM.CmdCancel.Click()

Sobre el método f_datos_bien_escritos del formulario

Local LExiste

Local keyFieldCodigo

keyFieldCodigo="c_alumno"

* 1. Dar Formato a los datos del usuario

THISFORM.TxtCodigo.Value=ALLTRIM(THISFORM.TxtCodigo.Text)

THISFORM.TxtApellido.Value=ALLTRIM(THISFORM.TxtApellido.Text)

THISFORM.TxtNombre.Value=ALLTRIM(THISFORM.TxtNombre.Text)

THISFORM.TxtDirección.Value=ALLTRIM(THISFORM.TxtDireccion.Text)

* 2. Ira Prueba de Validación: Formato de los datos

if LEN(ALLTRIM(THISFORM.TxtCodigo.Text))<1 Then

MESSAGEBOX("Debe escribir el código")

THISFORM.TxtCodigo.SetFocus()

RETURN .F.

endif

if !THISFORM.f_Es_Numero_Int(ALLTRIM(THISFORM.TxtCodigo.Text)) Then

MESSAGEBOX("El código debe tener formato numérico")

THISFORM.TxtCodigo.SetFocus()

RETURN .F.

endif

if LEN(ALLTRIM(THISFORM.TxtApellido.Text))<1 Then

MESSAGEBOX("Debe escribir el apellido")

THISFORM.TxtApellido.SetFocus()

RETURN .F.

endif

if LEN(ALLTRIM(THISFORM.TxtNombre.Text))<1 Then

MESSAGEBOX("Debe escribir el nombre")

THISFORM.TxtNombre.SetFocus()

RETURN .F.

ENDIF

* 2. 2da Prueba de Validación: Unicidad de los datos

IF

...