Proyecto vfp

Solo disponible en BuenasTareas
  • Páginas : 2 (311 palabras )
  • Descarga(s) : 0
  • Publicado : 3 de febrero de 2012
Leer documento completo
Vista previa del texto
Creación de Proyectos en Visual FoxPro Parte 2
En el documento anterior vimos como se crea un proyecto, como se compone y un ejemplo de prg de inicio con varios seteos y una llamada aun formulario menú, en este documentos veremos el prg nuevamente pero en lugar de llamar al form, generaremos un menú de acceso a los distintos módulos que iremos agregando de a poco.****************Inicio.Prg****************
SET CONFIRM ON SET CENTURY TO 19 ROLLOVER 80 SET CENTURY ON SET DATE TO FRENCH SET DECIMALS TO 5 SET DELETED ON SET ECHO OFF SET ENGINEBEHAVIOR 70SET ESCAPE OFF SET EXACT ON SET HELP OFF SET HEADING OFF SET MEMOWIDTH TO 256 SET PATH TO SET PRINTER TO PRN SET SAFETY OFF SET STATUS OFF SET TALK OFF SET STATUS BAR OFF SET SYSMENU TOSET EXCLUSIVE OFF SET PROCEDURE TO prg/funciones.prg (2) SET DEFAULT TO 'F:\LEO\CURSOFOXPRO' SET PATH TO 'F:\LEO\CURSOFOXPRO' _screen.Visible = .T. _screen.ForeColor = RGB(255,128,128)_screen.Picture = 'F:\LEO\CURSOFOXPRO\IMAGENES\FONDO.JPG' *Un fondo al screen _screen.WindowState = 2 *Que siempre se ejecute maximizado DO GenMenu READ EVENTS (1)

(1) Si nos acordamos enpseudocódigo cuando queríamos ejecutar un procedimiento la sentencia se escribía hacer , en vfp es parecido pero en ingles DO GenMenu si necesito pasarles parámetros van entre paréntesisy separados por comas, Ej.: DO GenMenu(“hola”, VarCant). Si vemos arriba en la parte de seteos en el (2) vemos la definición del prg a utilizar para guardar las funciones yprocedimientos, que serán accesibles desde todos los módulos del sistema.

Entonces tenemos dos prgs, uno llamado inicio.prg (el definido como default de arranque) y funciones.prg donde iremosguardando todos los procedimientos y funciones.

************Funciones.Prg************** PROCEDURE genmenu SET SYSMENU TO *Desactiva el menú del vfp. DEFINE PAD sysuno OF _MSYSMENU PROMPT '\
tracking img