数据库名：cj1
通用字段名：xp
现在80人的相片，如何在通用字段中，使用语句（命令）插入相片，盼大侠解答 ，谢谢！

1、在你的cj1数据库中添加记录（人员信息）；
2、双击对应记录（人员）中的XP字段；
3、弹出界面后，点击VFP菜单中的【编辑】→【插入对象】；
4、弹出的“插入对象”选项卡中，选择“画笔图片”或“位图文档”；
5、点击上面菜单【文件】→【打开】，把需要加入的照片打开（可编辑），完成后关闭图片编辑器（或在空白处点一下鼠标左键）即可；

6、同理可加入音频、视频等。
7、需要再编辑时：双击对应记录（人员）中的XP字段；再双击“图片”即可。
8、删除时：打开对应记录（人员）中的XP（Gen字段）字段；点击VFP菜单中的【编辑】→【清除】即可。；

请参考：
表单中设一个LIST1，一个Command1（导入）命令按钮，一个Image1（此控件可有可无，仅用于显示所选相片）。
一、在LIST1的InterActiveChage事件中加入以下代码：
cSelected = UPPER(THIS.List(THIS.ListIndex))
CD THIS.List(2)
IF ".BMP"$cSelected
    THISFORM.image1.Picture = THIS.List(2) + cSelected
ENDIF
注：List1的RowSource属性应根据图形文件的类型设置（如*.bmp,*.jpg……）
List1的RowSourceType属性设为“7－文件”
二、Command1（导入）命令按钮的Click事件写入以下代码
cSelected = UPPER(THISFORM.LIST1.List(THISFORM.LIST1.ListIndex))
CD THISFORM.LIST1.List(2)
IF ".BMP"$cSelected
    SELE 表
    APPEND GENERAL 相片 FROM THISFORM.LIST1.List(2) + cSelected
    messagebox('相同内容的问题请不要重复发贴',48,'提示信息')
ELSE
    messagebox('您并没有选择相应的相片文件',48,'提示信息')
ENDIF



[ 本帖最后由 啸凡 于 2010-11-2 13:13 编辑 ]

谢谢!
每个学生的相片使用插入位图方法,可以完成.现请教大侠,在学生数多的情况下,使用此方法很麻烦,能否使用命令加入图片.

谢谢!
每个学生的相片使用插入位图方法,可以完成.现请教大侠,在学生数多的情况下,使用此方法很麻烦,能否使用命令加入图片.我是初学者,表单的设计还不能使用,能否详解,谢谢!

从文件中导入 OLE 对象并将其放入通用字段中。
命令如下：

APPEND GENERAL GeneralFieldName [FROM FileName] [DATA cExpression] [LINK] [CLASS OLEClassName]

参数
GeneralFieldName
指定放置 OLE 对象的通用字段名。可以用带有表别名的字段名来指定在非当前工作区中打开的表的通用字段。

FROM FileName
指定包含 OLE 对象的文件。必须给出文件全名，包括扩展名。如果文件不在当前目录或当前文件夹中，还需要给出文件的路径。

DATA cExpression
指定字符表达式，此表达式作为一个字符串存入 OLE 对象的通用字段中。OLE 对象必须能接收和处理字符串。例如，不能往 Paintbrush. 的图片对象中存入字符串。

LINK
建立 OLE 对象和包含对象的文件间的链接。OLE 对象出现在通用字段，但对象定义仍在文件中。如果省略 LINK，OLE 对象将嵌入到通用字段中。

CLASS OLEClassName
指定 OLE 对象是 OLE 类，而非其默认类。
当包含 OLE 对象的文件的扩展名与默认的扩展名不同而且你想为类强制行为时, 你可以指定一个类名。如果默认的扩展名可用于多个 Automation 服务程序, 包括 class 来指定一个特定的服务程序。

备注
如果在通用字段中已有一个 OLE 对象，它将被源文件中的 OLE 对象取代。要从通用字段中移去 OLE 对象, 使用不带额外参数APPEND GENERAL GeneralFieldName (GeneralFieldName 是要清除的通用字段)。

关于 Visual FoxPro 中的 OLE 对象的更多信息, 参见添加 OLE。

示例
以下示例从 excel 目录或文件夹中导入 microsoft excel 图表，存入通用字段 mygenfield 中。
CREATE TABLE MyGenTbl (mygenfield G)
APPEND BLANK  && 添加一个空记录
APPEND GENERAL mygenfield FROM C:\EXCEL\BOOK1.XLS CLASS EXCELCHART

谢谢大侠！参照使用，不能完美解决问题！