D2010 RTTI + Attribute 简单实现ORM
还记得David I 今年四月来盛大时,被问及“反射机制能再做得好一点吗?我们想放弃RTTI
”,David I 回答“这的确是需要考虑的地方,当然RTTI我们不会放弃的”。(这个白胡子的老哥哥还真很可爱,当年Borland几经起落,唯一能看得顺眼的就是David I)。 我还以为RTTI在D2010最多只是改良,炒冷饭而已。没想到,RTTI不仅能反射Public、protected、Private里的信息,还能动态执行该类里的方法,更惊奇的是,还支持Attribute。D2010 New RTTI 在某种程度上,比肩UniCode,在扩展框架上有无限的遐想空间。下面说一下 D2010 RTTI + Attribute 简单实现ORM。
1、支持ORM,最基础的两个信息是表的信息和字段信息。这两个信息,如果用Attribute 来辅助,代码更简洁和可读性更好。可以把属性名当做真实字段名,也可以将特性里的属性当成真实姓名,再加上字段标题(可以当成注释)、必填字段、是否为主键、显示格式等等,如果没有Attribute ,类、属性的辅助信息必须用其他信息来描述,非常麻烦。
uses
SysUtils, RTTI, TypInfo,Types;
type
Table = class(TCustomAttribute)
private
FName: string;
FTitle: string;
published
public
constructor Create(ATableName, ATitle: string);
property Name: string read FName write FName;
property Title: string read FTitle write FTitle;
end;
FieldInfo = class(TCustomAttribute)
private
FFieldName: string;
FTitle: string;
published
public
constructor Create(AFieldName, ATitle: string);
//字段名
property FieldName: string read FFieldName write FFieldName;
//标题
property Title: string read FTitle write FTitle;
end;
2、有了这两个Attribute,我们必须创建一个解析属性和Attribute的类,并且能解析Insert、update、delete、select等SQL语句。我们姑且叫 TStorable。这个类可以根据需要扩展你所想要的东西。目前只实现了Insert方法,其他的方法,留给勤奋的人去遐想。
TStorable = class
public
//插入SQL语句
function Insert: string;
//获取字段标题
function GetFieldTitle(const AFieldName: string): string;
//设置
//function SetAttributeValue(const PropName, AttributeValue: string): Boolean;
end;
function TStorable.GetFieldTitle(const AFieldName: string): string;
var
Context: TRttiContext;
typ: TRttiType;
A1, A2: TCustomAttribute;
Prop: TRttiProperty;
begin
Context := TRttiContext.Create;
try
typ := Context.GetType(ClassType);
for Prop in typ.GetProperties do
begin
for A2 in Prop.GetAttributes do
begin
if (A2 is FieldInfo) and SameText(FieldInfo(A2).FieldName, AFieldName) then
begin
Result := FieldInfo(A2).Title;
Break;
end;
end;
end;
finally
Context.Free;
end;
end;
function TStorable.Insert: string;
var
Context:TRttiContext;
Prop:TRttiProperty;
typ:TRttiType;
A1,A2:TCustomAttribute;
Sqls,Fields,Values,Value:string;
begin
Context := TRttiContext.Create;
try
Sqls := '';
Fields := '';
Values := '';
typ := Context.GetType(ClassType);
for A1 in typ.GetAttributes do
begin
if A1 is Table then
begin
Sqls := 'Insert Into '+Table(A1).Name; //获取Insert表名
for Prop in typ.GetProperties do
begin
for A2 in Prop.GetAttributes do
begin
if A2 is FieldInfo then //AHa
begin
Fields := Fields + ','+ FieldInfo(A2).FieldName ;
// the value of the attribute
Value := Prop.GetValue(Self).ToString;
//根据数据类型对属性值加以编辑
case Prop.GetValue(Self).Kind of
tkString, tkChar, tkWChar, tkWString, tkUString:
Value := QuotedStr(Value);
tkInteger, tkInt64, tkFloat:
Value := Value;
else
Value := QuotedStr(Value);
end;
Values := Values + ',' + Value ;
end; //for A2 in Prop.GetAttributes
end;
end; //enf of for Prop
Delete(Fields,1,1);
Delete(Values,1,1);
Sqls := Sqls + ' (' + Fields + ') VALUES (' + Values + ');';
Result := Sqls;
end; //if A1 is Table then
end; //for A1 in typ.GetAttributes do
finally
Context.Free;
end;
end;
constructor FieldInfo.Create(AFieldName, ATitle: string);
begin
FFieldName := AFieldName;
FTitle := ATitle;
end;
3、有了上面的解析类和SQL基础,我们必须创建一个实体类。属性名是否为中文,可以有不同的说法。偶目前栖身在一个医疗行业公司,医疗专业英语术语又臭又长,奥巴马未必能拼写出几个术语。如果用属性名用中文描述,将其真实的字段名放在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://blog.csdn.net/shuaihj/article/details/6125697
D2010 RTTI + Attribute 简单实现ORM的更多相关文章
- Delphi2010 RTTI + Attribute 简单实现ORM实例
1.支持ORM,最基础的两个信息是表的信息和字段信息.这两个信息,如果用Attribute 来辅助,代码更简洁和可读性更好.可以把属性名当做真实字段名,也可以将特性里的属性当成真实姓名,再加上字段标题 ...
- C#基础笔记---浅谈XML读取以及简单的ORM实现
背景: 在开发ASP.NETMVC4 项目中,虽然web.config配置满足了大部分需求,不过对于某些特定业务,我们有时候需要添加新的配置文件来记录配置信息,那么XML文件配置无疑是我们选择的一个方 ...
- C#基础---浅谈XML读取以及简单的ORM实现
背景: 在开发ASP.NETMVC4 项目中,虽然web.config配置满足了大部分需求,不过对于某些特定业务,我们有时候需要添加新的配置文件来记录配置信息,那么XML文件配置无疑是我们选择的一个方 ...
- 实现简单的ORM
介绍 本篇将介绍实现简单的ORM,即:对数据表的通用操作:增.删.改.查 数据访问层 数据访问层类图 类说明: 1.DbProvider(供应):为数据操作提供基本对象,如:连接.操作对象.事务... ...
- 一个简单的ORM制作(SQL帮助类)
一个简单的ORM制作大概需要以下几个类: SQL执行类 CURD操作类 其他酱油类 先从SQL执行类说起,可能会涉及数据库的迁移等问题,所以需要定义一个接口以方便迁移到其他数据库, 事务没提供命名,若 ...
- metadata的使用以及简单的orm模式
使用sqllite3和metadata简单的封装了个简单的orm #!/usr/bim/python #-*-coding: utf-8 -*- import threading import sql ...
- 通过反射来手写简单的ORM SQlserver
不说废话,直接上干货,如发现问题,欢迎大家指出,谢谢! //------------------------------------MySQlServerORM [简单 CURD] using Sys ...
- 简单理解ORM,实体类生成查询SQL语句
目前有很多开源的ORM项目,大多情况下也不需要我们重复去造轮子,我们只需要了解轮子怎么造的,怎么用就可以,下面简单说一下怎么通过实体生成一个SQL语句: 先建立2个Attribute类,TableAt ...
- C# 定制 Attribute 简单使用
所谓 “定制Attribute”,就是一个类的实例,它被序列化成驻留在元数据的一个字节流. 我们可以使用 Attribute 来保存注释: namespace AttributeDemo { [Att ...
随机推荐
- NSStringDrawingOptions
如果options参数为NSStringDrawingUsesLineFragmentOrigin,那么整个文本将以每行组成的矩形为单位计算整个文本的尺寸.(在这里有点奇怪,因为字体高度大概是13.8 ...
- shell中exec解析(转)
参考:<linux命令.编辑器与shell编程> <unix环境高级编程> exec和source都属于bash内部命令(builtins commands),在bash下输入 ...
- 无法从“const char *”转换为“char *”
写了如下的一段代码: const char *str; char *p=str; 提示错误: const char* 不能用于初始化char *类型的实体.这是为什么?我想应该是const char ...
- 相邻数字的基数等比确定进制问题pojg2972
解决数制转换问题时,如果所给的数值不是用十进制表示的,一般用一个字符型数组来存放,数组的每个元素分别存储它的一位数字.然后按位转换求和,得到十进制表示,再把十进制转成成其他所求的进制表示.转成的结果也 ...
- 7款Linux下阅读PDF的阅读器。
5款Linux下阅读PDF的阅读器.1. Mupdf:link 2. Adobe Reader:link 3. Foxit Reader:link 4.Evince:link 5. Okular:li ...
- vi 快捷键积累
依据自己用到的.或者还没记住的.或者用的时候忘了的,慢慢积累. 一.全选复制粘贴. 全选: ggVG // 凝视: gg 光标移到首行 V 进入Visual(可视)模式 G 光标移到最后一行全选 选中 ...
- android软键盘的管理和属性的设置
android:windowSoftInputMode activity主窗口与软键盘的交互模式,可以用来避免输入法面板遮挡问题,Android1.5后的一个新特性. 这个属性能影响两件事情: [一] ...
- 幻世(OurDream)2D图形引擎使用教程8——处理操作输入(2)
声明:本教程版权归Lizcst Software Lab所有,欢迎转载,但是转载必须保留本段声明文字,并注明文章来源:http://blog.csdn.net/kflizcst 谢谢合作! 今天的教程 ...
- javascript笔记整理(运算符 )
1.运算符和操作数的组合就称为表达式. 2.算术运算符(+ - * / % a++ a-- --a ++a) a.+ 1.用于数值计算:var a=1;var b=2;alert(a+b)===3 2 ...
- 基于visual Studio2013解决C语言竞赛题之1020订票
题目 解决代码及点评 /* 某航空公司规定:在旅游旺季7─9月份,若订票超过20张,优惠票价的15%,20张以下,优惠5%: 在旅游淡季1─5月.10月.11月份订票超过 ...