código proyecto de Visual Foxpro
Antes de crear el proyecto debe crear un conjunto de carpetas como se muestra en la imagen, esto se hace con el objetivo de ir organizando todos los archivos.
Pasos para crear el proyecto
1->Clic en file ->new, aparecerá la siguiente ventana
2->Seleccione Project -> clic en New File
3-> Escriba el Nombre del proyecto y guárdelo en la carpeta deseadaPasos para agregar una nueva base de datos
1-> Con el proyecto abierto seleccione la ficha “Data”
2-> Clic en Database
3-> Clic en New…
4-> Clic en New Database
5-> Escriba el Nombre de la base de Datos y guárdela en la carpeta “Base_Datos”
6-> Agregue Todas las tablas que necesita y guárdelas en la misma carpeta
7-> Cierre la base de datos, observe que ésta y todas sus tablas yaaparecen en su proyecto
Agregar Un formulario al proyecto y su configuración para dar el Mantenimiento de una tabla
1-> Clic en la Ficha “Documents”
2-> Seleccione Form
3-> Clic en New…
4-> Clic en New Form
5-> Aparecerá la ventana de “Editor de Formularios”
Configurar el Entorno de Datos
1-> Clic Derecho en el formulario
2-> Clic en “Data Enviroment”
3-> Clic Derecho en el“Data Enviroment”
4-> Clic en Add..
5-> Seleccione la tabla que desea
6-> Clic en add
7-> Clic en Close
8-> Debe quedar así
9-> Clic en el entorno de datos y cambie el valor a la siguiente propiedad, InicialSelectedAlias y seleccione el nombre de la tabla
10-> De clic en la tabla y configure las siguientes propiedades, Exclusive = .T. , Order = “campo Principal”
11-> De un clicSostenido en “Flields” y arrastre hasta el Formulario
12-> Cierre el Entorno de Datos
13-> A cada Cuadro de texto configure la siguiente propiedad, ControlSource
Ejemplo
ControlSource = Personas.Rne
Deberá borrar el nombre de la tabla y escribir la letra m, quedando de la siguiente manera m.Rne
“La letra m es para trabajar con las variables en memoria”
Puesta a punto FormularioDiseño
Agregue los Siguientes métodos
ActivarCajas
DesactivarCajas
ActivarBotones
DesactivarBotones
Vacio
** Siguiente página se dice como agregar un método
Para Agregar un método
1-> Estando Abierto el formulario
2-> Clic en la barra de menú opción “Form”
3-> Clic en “new method”
Agregue 11 Botones de comando
Propiedades
Command1
Command2
Command3
NameCmdNuevo
Name
CmdGuardar
Name
CmdEditar
ToolTipText
Nuevo
ToolTipText
Guardar
ToolTipText
Editar
Command4
Command5
Command6
Name
CmdBuscar
Name
CmdCancelar
Name
CmdEliminar
ToolTipText
Buscar
ToolTipText
Cancelar
ToolTipText
Eliminar
Command7
Command8
Command9
Name
CmdCerrar
Name
CmdPrimero
Name
CmdAnterior
ToolTipText
Cerrar
ToolTipText
Primero
ToolTipTextAnterior
Command10
Command11
Name
CmdSiguiente
Name
CmdUltimo
ToolTipText
Siguiente
ToolTipText
Ultimo
Observaciones: - La propiedad Caption de todos debe estar en blanco
- la propiedad Picture se establecerá por medio del código
Códigos
CmdNuevo.Init
This.Picture = “nuevo.bmp”
Observación: Todos los Botones de comando llevaran ese código, lo único que cambiara será lo queva entre comillas y deberá escribir el nombre del botón sin las letras cmd
Explicación: El comando “Set path to” que se encuentra en el programa de ambientación se encarga de indicar las carpetas de trabajo, así de esta manera no debemos poner toda la dirección del archivo del cual queremos que tome la imagen, sino que únicamente el nombre del archivo, los cuales deberán están guardados en lacarpeta de imágenes y con los nombres de correspondientes a la imagen que se muestra a continuación
Form1.Load
PUBLIC Tabla,PlNuevo
Form1.Init
PlNuevo = .F.
Tabla = ALIAS()
SELECT &Tabla
ThisForm.ActivarBotones
IF RECCOUNT()=0 THEN
ThisForm.vacio
SCATTER MEMVAR BLANK
ELSE
SCATTER MEMVAR
ENDIF
ThisForm.Refresh
Form1.QueryUnload
RELEASE tabla,Plnuevo,Thisform...
Regístrate para leer el documento completo.