一、图像数据的保存
1.创建一个含有Graphic字段的数据库列表。
在WindowsISQ(或Databasedesktop)下create database mydb.gdb
create table myfrieds(name varchar(15) notnull，telephone varchar(12)， address varchar(30)，zipvarchar(8)，picture varchar(15)，image blob);
其中，picture字段用于保存图像的名称(包括路径)，image(Graphic字符)则用于存储图像，其数据类型为“blob”。
2.建立窗体(如图1所示)，设置窗体中各控件的属性。
该窗体的主要功能是将某人信息进行编辑和保存。需要注意的图像保存所用的图像框必须用TImage而不能用TDBImage，编辑框宜用Tedit而不宜用TDBEdit，这一点与图像的读取恰好相反。
其中，各主要控件的属性设置如下:
Datasource1.Dataset:=table1;
Table1.Databasename:=mydb.gdb;
Table1.Tablename:=myfriends;
Table1.active:=true;
其他诸如Caption之类的属性设置不再叙述。
3.数据处理程序的建立。
(1)图像( .bmp文件)打开的处理。
procedureTForm1.pictopenbtnClick(Sender:TObject);
beginopendialog1.execute;
image1.picture.loadfromfile(opendialog1.filename);
end;
(2)图像保存的处理。
图像保存的处理程序完成把在窗体1所编辑的信息包括图像保存到相应的数据库中，其关键是要定义一个Graphic类型的变量且该变量要用Assign()函数传递到相应数据库中保存。具体程序如下:
procedureTform1.Savebtnclick(sender:TObject);
var
graphic1:TGraphic;
begin
graphic1:=TGraphic.Create;
graphic1.loadfromfile(opendialog1.filename);
table1.insert;
le1.fieldbyname(name).asstring:=edit1.text;
table1.fieldbyname(telephon).asstring:=edit2.text;
table1.fieldbyname(address).asfloat:=edit3.text;
table1.fieldbyname(zip).asfloat:=edit4.text;
table1.fields[4].assign(graphic1);
table1.post;
graphic1.free;
end;
二、图像数据的读取
在数据库数据(包括Graphic字段的数据)的读取和浏览方面，Delphi这一具有强大代码自动生成功能的面向对象的开发工具的优越性得到淋漓尽致的体现。毫不夸张地说，不需要一条语句即可完成这一功能！
建立窗体，设置各控件的属性。
图中Table1和Datasource1的属性的设置与数据的保存部分相同，所不同的是数据库数据的读取时用TDBEdit和TDBImage控件而不用TEdit和TImage。控件TDBEdit和TDBImage只要将datafield属性设置为其相对应的域;TDBNavigator的datasouce属性设置为datasource1即可。
2009年上半年全国计算机等级考试参考答案请进入计算机考试论坛
2009年全国计算机等级考试报名信息汇总
2009年NCRE考试有新变化
2009年全国计算机等级考试大纲
2009年上半年全国计算机二级考试试题及答案
2009年上半年全国计算机等级考试试题答案汇总
