FoxPro/Visual FoxPro - MANTENIMIENTO DE REGISTROS EN FORMULARIOS

Hey saludos, gracias x las ayudas anteriores, como puedo hacer para confeccionar un formulario de matenimiento de registros sin usar el asistente de formularios, cual es el codigo para los botones de nuevo, actualizacion, grabado, cancelar, eliminar registros y data de una tabla, gracias

En la seccion codigo fuente de este foro encontrarás muchos ejemplos de botones, el codigo para el funcionamiento es similar, despues que tengas alguna experiencia le vas personalizando el codigo como tu desees.

Cualquier ayuda solo postea y si quieres te apoyo con el codigo de los botones..poco a poco..

Suerte

HOLA AMIGO

****BOTON GUARDAR
ocal cCod_prod, cProducto, nMensaje

cCod_prod=alltrim(thisform.txtCod_prod.value)
cProducto=alltrim(thisform.txtProducto.value)

nMensaje=messagebox("¿Desea Agregar el Producto?" +" "+cProducto +" ¿Con su Codigo? "+cCod_prod,4+32+256,"Confirmar/Secuencia")

Select Productos
go top
Locate for alltrim(Cod_prod)=alltrim(cCod_prod)

If !empty(cCod_prod) and !empty(cProducto)
If found()
nMensaje=messagebox("El Dato/Codigo Ya Existe",0+16+0,"Error/Secuencia")
else
If nMensaje=6
Select productos
Append Blank
Replace cod_prod with cCod_prod
Replace Producto with cProducto

thisform.txtCod_prod.value=""
thisform.txtProducto.value=""
thisform.grdProductos.click
Wait Windows "Los datos se han Agregado"
else
nMensaje=messagebox("No se Agrego" +chr(13)+"Accion Cancelada por el Usuario",0+48+0,"Cancelado/Secuencia")
endif
endif
else
nMensaje=messagebox("Hay Datos Vacios",0+16+0,"Error/Secuencia")
Endif
thisform.grdProductos.setFocus

********BOTON ELIMINAR
***EN EL EVENTO INIT DEL FORMULARIO ESCRIBES
SET DELETE ON, PARA QUE FUNCIONE EL CODIFO DE ELIMINAR.

********BOTON ELIMINAR
local cCod_prod, nMensaje

Select Productos
cCod_prod=alltrim(Cod_prod)
cProducto=alltrim(Producto)
nMensaje=messageBox("¿Desea Eliminar el Producto? "+cProducto+" ¿Con su Codigo? "+cCod_prod+"?",4+48+256,"Eliminando")

If nMensaje=6
Select Productos
Delete
thisform.grdProductos.setfocus
else
nMensaje=messageBox("El Dato no se Elimino",0+48+0,"Acción Cancelada")
Endif

*********BOTON LIMPIAR
***Limpiamos los campos****
thisform.txtCod_prod.value=""
thisform.txtProducto.value=""

ESPERO TE SIRVA

HELDER MARTINEZ
HONDURAS C.A
YORO YORO
COL. DIAZ CHAVEZ