Gabinete Codificacion

Nombre, Apellido validacion:
IF LEN(ALLTRIM(thisform.txtnombre.Value))>10
MESSAGEBOX("Verificar nombre")
Return (.F.)
ENDIF
Thisform.Refresh

Mayuscula:Thisform.txtnombre.value=Upper(thisform.txtnombre.value)

Minuscula:
Thisform.txtnombre.value=Lower(thisform.txtnombre.value)

Campo Vacio:
IF EMPTY(thisform.txtdireccion.value)
MESSAGEBOX("Debe Ingresar")
return (.F.)
ENDIFThisform.Refresh

Edad validacion:
IF thisform.txtedad.Value 19
MESSAGEBOX("Esta mal")
Return (.F.)
ENDIF
Thisform.Refresh

Nacimiento validacion:
IF thisform.txtnacimiento.Value >= DATE()MESSAGEBOX("Verificar fecha")
Return (.F.)
ENDIF
Thisform.Refresh

Codigo validacion:
SELECT guias
SET ORDER TO Codigo
SEEK(thisform.txtcodigo.Value)
IF FOUND()
thisform.text1.Value=Nombrethisform.text2.Value=Apellido
ELSE
MESSAGEBOX("No Existe Codigo de Guias")
Return(.f.)
ENDIF
thisform.refresh

NUEVO:
SELECT alumnos
APPEND BLANK
thisform.txtcedula.Enabled=.t.thisform.txtnombre.Enabled=.t.
thisform.txtapellido.Enabled=.t.
thisform.txtedad.Enabled=.t.
thisform.txtnacimiento.Enabled=.t.
thisform.txtcodigo.Enabled=.t.

thisform.nuevo.enabled=.f.thisform.editar.enabled=.f.
thisform.salir.enabled=.f.
thisform.primero.Enabled= .f.
thisform.siguiente.Enabled=.f.
thisform.anterior.Enabled=.f.
thisform.ultimo.Enabled=.f.

thisform.guardar.enabled=.t.thisform.cancelar.enabled=.t.

thisform.txtcedula.setfocus
thisform.Refresh

EDITAR:
SELECT alumnos
thisform.txtcedula.Enabled=.t.
thisform.txtnombre.Enabled=.t.
thisform.txtapellido.Enabled=.t.thisform.txtedad.Enabled=.t.
thisform.txtnacimiento.Enabled=.t.
thisform.txtcodigo.Enabled=.t.

thisform.guardar.enabled=.t.
thisform.cancelar.enabled=.t.

thisform.nuevo.enabled=.f.thisform.editar.enabled=.f.
thisform.salir.enabled=.f.
thisform.primero.Enabled=.f.
thisform.siguiente.Enabled=.f.
thisform.anterior.Enabled=.f.
thisform.ultimo.Enabled=.f.

thisform.txtnombre.setfocus...