，我们必须创建一个实体类。属性名是否为中文，可以有不同的说法。偶目前栖身在一个医疗行业公司，医疗专业英语术语又臭又长，奥巴马未必能拼写出几个术语。如果用属性名用中文描述，将其真实的字段名放在Attribute 里，或许更能提高程序的可读性和维护性。
unit uContact;
interface
uses SysUtils,uAttribute;
type
[Table(''CONTACTS'',''联系人信息'')]
TContact = class(TStorable)
private
FName: string;
FAge: integer;
F电话: string;
published
public
[FieldInfo(''NAME'',''名称'')]
property Name: string read FName write FName;
[FieldInfo(''AGE'',''年龄'')]
property Age: integer read FAge write FAge;
[FieldInfo(''电话'',''联系电话'')]
property 电话:string read F电话 write F电话; //尝试一下中文字段名，习惯就好
end;
implementation

end.
4、调用示例就很简单了：
procedure TForm4.btn1Click(Sender: TObject);
var
Contact:TContact;
begin
Contact := TContact.Create;
Contact.Age := 32;
Contact.Name := ''TinTin'';
Contact.电话 := ''135*****918'';//你还会记得918的屈辱吗？
ShowMessage(Contact.Insert);
ShowMessage(Contact.GetFieldTitle(''Age''));
Contact.Free;
end;
5、综述：
ORM确实在对象映射上使用起来非常方便，但并非万能，如果过分依赖于ORM，不仅不能了解数据库表与业务的关系，而且还容易写出低效的SQL查询语句。Update语句，须谨记，字段值变化才去更改，否则，会增加数据库的数据不一致风险及其增加数据库日志开销。Delete语句，配合有关键字信息的Attribute，必要时候，还要校验是否影响单条或多条记录。
这只是一个简单的例子，离真正的生产力还差一步，为了执行SQL语句，你可以在TStorable 实现数据集的读写，然后才调用执行SQL语句。
作者博客：http://hi.baidu.com/tintinsoft/
本文来自Delphi之窗，原文地址：http://www.52delphi.com