Herencia

  La herencia multiple Se presenta cuando una subclase tiene más de una superclase herencia multiple Se presenta cuando una subclase tiene más de una superclase Clasificación Múltiple (herenciamúltiple) La herencia múltiple debe manejarse con precaución. Algunos problemas son el conflicto de nombre y el conflicto de precedencia
 Se recomienda un uso restringido y disciplinado de la herencia.Java y Ada 95 simplemente no ofrecen herencia múltiple
Una de las ventajas que nos dá el uso de clases es el ahorro de programación y el mantenimiento centralizado de códigos que antes podían estárregados (y repetidos) en tu aplicación. Es sencillo, tener tu código lo más general posible, ésto se hace con el uso de propiedades y métodos personalizados por medio de parámetros. Es decir, puedeque en cierto lugar establezcas por ejemplo, la tabla base en la que trabajarás, y después, aplicarle métodos con parámetros. Esto es con respecto a herencia, para tratar de que lo que ya escribiste, tesirva en más ocasiones.

Otra función de las clases, es dejar que éstas hagan el código genérico, y después de ello, aplicarle el código específico, esto se hace con la función DoDefault() y elcomando NODEFAULT... A continuación un pequeño ejemplo:

oForm = CREATEOBJECT("MyForm")
oForm.SHow(1)
DEFINE CLASS MyForm AS cAbstractForm
cFormName = "Client Form"
PROCEDURE cmdAceptar.ClickDODEFAULT()
***** Procedimiento despues de tu codigo base
MESSAGEBOX("MyForm.Class Message")
ENDPROC
PROCEDURE DoAction
LPARAMETERS tcActionMESSAGEBOX("Codigo antes de...")
DODEFAULT(tcAction)
ENDPROC
PROCEDURE DoExitValidation
IF DODEFAULT()
lcMessage = "Reconfirma que quiere salir"
RETURN(MESSAGEBOX(lcMessage,4+32,this.cFormName)==6)
ELSE
RETURN .F.
ENDIF
ENDPROC
ENDDEFINE

DEFINE CLASS cAbstractForm AS FORM
cExitMessage = "Salir del Formulario"
ADD...