Fox pro

INSTITUTO METROPOLITANO DE EDUCACIÓN PROGRAMACIÓN DE COMPUTADORES GUIA #10 DE VISUAL FOXPRO DOCENTE: MAURICIO CANO LA UTILIDAD GENERAR INDICES DEL SISTEMA Uno de los problemas bastante comunes en las aplicaciones con Xbase, es el índices defectuosos. Entre más se utilice una aplicación, mayor es el riesgo a que se originen problemas en ellos. Estos problemas hacen que nuestra aplicación no hallela información en procesos de validación de códigos, ordenamiento correcto de los datos, o pueden llegar a causar, que en un reporte o consulta, el sistema, simplemente no muestra nada. En realidad, la información no ha sido retirada de la tabla, simplemente por algún problema se han destruido las entradas en un fichero clave (.CDX). Por lo anterior, es recomendable que nuestra aplicación posea enel menú utilidades, una rutina que reconstruya el sistema de ficheros índices de las tablas del sistema. Debe tener en cuenta que para crear ficheros índices, no puede haber nadie conectado a la aplicación. La creación de ficheros índices requiere acceso exclusivo a los archivos. En capítulos anteriores, se explicaba el uso de la sentencia EXCLUSIVE en las instrucciones INDEX ON. Tenga presenteque si la aplicación trabajará en una red, debe programar rutinas ON ERROR para controlar la situación de un archivo en uso por otro usuario dentro de la red. Esto, con el objetivo de evitar que la aplicación cancele su ejecución debido a un error interno. La pantalla de la utilidad es la siguiente:

1. bTabla

2. bProgreso 3. bFondo

4. btnGenerar

5. btnCerrar

Los objetos identificadoscon los numerales 1, 2 y 3, son textos. Al objeto 3 asigne el color de fondo (backcolor) gris oscuro (128,128,128). Al objeto 2, asígnele un color más oscuro que al del objeto 2 (por ejemplo 0,0,64). La idea de los objetos 2 y 3, es dibujar una barra de progreso. El objeto 1 servirá para visualizar un texto, acorde al progreso del proceso de indexado. El objeto 2, establezca la propiedad visiblecomo false.

Instituto Metropolitano de Educación

Visual FoxPro - Guía de Clases #10 BtnGenerar.click *abrir entorno utilizando las variables públicas *tabla maestro asignaturas set safety off close data *deshabilitar botón this.enabled = .f. *ancho maximo: 349 thisform.bProgreso.visible = .t. thisform.bProgreso.width = 50 thisform.bTabla.caption = "Indexando tabla Programa" mTabla = _dircia+ "programa.dbf" if file( mTabla) use &mTabla exclusive index on codigo tag codigo for !deleted() index on nombre tag nombre for !deleted() endif thisform.bProgreso.width = 100 thisform.bTabla.caption = "Indexando tabla Asignaturas" mTabla = _dircia + "asigna.dbf" if file( mTabla) use &mTabla exclusive index on codigo tag codigo for !deleted() index on nombre tag nombre for !deleted() endifthisform.bProgreso.width = 150 thisform.bTabla.caption = "Indexando tabla Profesores" mTabla = _dircia + "profe.dbf" if file( mTabla) use &mTabla exclusive index on codigo tag codigo for !deleted() index on nombre tag nombre for !deleted() endif thisform.bProgreso.width = 200 thisform.bTabla.caption = "Indexando tabla Hojas de vida" mTabla = _dircia + "hvida.dbf" if file( mTabla) use &mTabla exclusiveindex on codigo tag codigo for !deleted() index on nombre tag nombre for !deleted() endif

2

Instituto Metropolitano de Educación

Visual FoxPro - Guía de Clases #10

3

thisform.bProgreso.width = 250 mTabla = _dircia + "matric.dbf" thisform.bTabla.caption = "Indexando tabla Matrícula" if file( mTabla) use &mTabla exclusive index on codigo tag codigo for !deleted() endifthisform.bProgreso.width = 300 mTabla = _dircia + "grupos.dbf" thisform.bTabla.caption = "Indexando tabla Grupos" if file( mTabla) use &mTabla exclusive index on codigo tag codigo for !deleted() index on nombre tag nombre for !deleted() endif thisform.bProgreso.width = 348 thisform.bTabla.caption = "Indexando tabla Estudiantes por grupo" mTabla = _dircia + "estgrupo.dbf" if file( mTabla) use &mTabla exclusive...