RE:¿Como agregar y mostrar imagenes en un formular
No es recomendable guardar las imágenes en caqmpos de tipo general ya que a medida que crecen, las tablas con imágenes en campos de tipo general se vuelven inestables, es mejor guardar en un campo de tipo character la ruta de la imegen en disco.
En todo caso si calculas que las imágenes a guardar en la tabla pocas y pequeñas en tamaño puedes arriesgar.
Si tienes la versión 9, puedes usar los campos de tipo BLOB que te permiten guardar una imágen con un formato tipo texto, puedes abrir el archivo imágen del disco así:
* tenemos una tabla IMAGEN con un campo de tipo BLOB
LOCAL cFile
* buscamos la imagen en disco
cFile = GETPICT()
IF !EMPTY( cFile )
* convertimos a formato texto el contenido del archivo gráfico
* para guardarlo en el campo de tipo BLOB usando la función FileToStr
APPEND BLANK IN IMAGEN
REPLACE foto WITH FILETOSTR( cFile ) IN IMAGEN
ENDIF
luego en un formulario localizas un control tipo Image, te fijarás que en la versión 9 hay una propiedad PictureVal que permite mostrar imágenes de campos tipo BLOB, por lo que haces esto:
THISFORM.image1.PictureVal = IMAGEN.foto