Delphi7下仿Ado.Net类的实现
最近正在学.Net，发现.Net下的Ado.Net数据组件(方式和理念都)比Ado要先进很多，天生可以用于MultiTier环境，通过继承DataSet，能很方便创建可以在各层(主要是DataAccess层和BusinessRule层)间传递的实体对象，而且断开式的连接方式，可以很大的节省数据库服务器连接资源，同时在客户端又可以方便的处理存于对象中的数据。
由于一直是在使用Delphi，感觉很多以前在Delphi下感觉束缚的方法，通过Ado.Net，可以非常方便的解决，于是想到其实可以通过模仿Ado.Net的运作，在Delphi下自己来部分实现的。
下面对各单元和各类做简单讲解，不包含类中所有的公开接口，请参看源码。
一、DataColumn单元
实现了TDataColumn类、TDataColumnCollection类、TDataColumnState类、TDataColumnCollectionState类。
TDataColumn用来保存数据表中一列的信息(包括数据)，ColumnName属性公开列名(自定义的，不同于数据库中的物理字段名)，FieldName属性公开数据库中的字段名，DataType属性公开字段的数据类型，OriginValue、OldValue、CurrentValue属性分别公开此列的初始值(从数据库中取出数据时的值)、旧值和当前值，Value属性直接返回CurrentValue，这些属性都返回Variant类型的值，为了方便使用，AsString、AsDataTime、AsInteger和其他类似的属性直接返回对应类型的值。
TDataColumnCollection是集合类，继承自TObjectList，用来保存多个TDataColumn对象，重载了Add，Insert方法以实现类型检查。
TDataColumnState是一个枚举类，用来表示一个TDataColumn的状态，分别有csUnKnown, csUnChanged, csModified，用来表示未知、未改变、已改变三种状态。
TDataColumnCollectionState也是枚举类，用来表示一个TDataColumnCollection的状态，分别有ccsUnknown, ccsUnChanged, ccsModified。
二、DataRow单元
实现了TDataRow类、TDataRowCollection类、TDataRowState类。
TDataRow用来保存数据表中的一行数据，Columns属性是一个TDataColumnCollection类型的值，返回了这行中包含的所有列。
TDataRowCollection是集合类，用来维护多个TDataRow对象。
TDataRowState枚举类用来表示一个数据行的状态，有rsUnknown, rsUnChanged, rsNew, rsModified, rsDeleted。
三、DataCommand单元和DataCommandParameter单元
由于TAdoCommand未能符合要求，所以对其进行继承，以扩充其特性。
这两个单元实现TDataCommand类、TDataCommandParameter类、TDataCommandParameterCollection类、TDataCommandParameterType类。
TDataCommandParameter类用来表示一个TDataCommand的参数，这个参数信息用来辅助TDataCommand的CommandText实现各种操作。DataType属性公开参数表示的数据列的数据类型，FieldName属性公开物理数据库中的字段名，Name属性公开参数名，ParamType属性是一个TDataCommandParameterType枚举类型的值，可以是ptUpdateField或ptWhereField，表示参数是一个更新值还是定位值。
TDataCommandParameterCollection是集合类，表示多个TDataCommandParameter对象。
TDataCommand继承自TAdoCommand，DataParameters属性公开一个TDataCommandParameterCollection类型的值，表示一个参数集合。
四、DataTable单元
实现了TDataTable和TDataTableCollection类。
TDataTable表示一个数据表，Columns属性公开表的列集合，Rows属性公开表的行集合，NewRow()用来新增一个属于本表的TDataRow，并返回之，TableName属性返回表名，BindTo()方法可以直接把这个TDataTable绑定到一个TStringGrid控件，另外一个重载的BindTo()把一列的数据绑定到一个TStringList上。
TDataTableCollection是一个表示多个表的集合类。
五、DataSetPlus单元
实现了TDataSetPlus类。(为什么不直接用TDataSet这个名字呢？因为Delphi中已经自己用了:)
TDataSetPlus表示一个数据集，可以包含多个数据表，Tables属性公开其包含的TDataTable对象，NewTable()方法新增一个属于自身的数据表。
六、DataAdapter单元
实现TDataAdapter类，用来连接TDataSetPlus和数据库。
TDataAdapter类，可以填充或更新一个数据集，SelectCommand、InsertCommand、UpdateCommand、DeleteCommand属性分别公开四个TDataCommand类型的值，用来进行取数据、插入数据、更新数据、删除数据的操作，Fill()方法可以根据SelectCommand中的CommandText把相应的数据填充进参数中的TDataSetPlus对象中，Update()方法可以根据InsertCommand、UpdateCommand、DeleteCommand把参数中的TDataSetPlus对象更新回数据库。
最后，我们就可以这样使用了：
var
ds : TDataSetPlus;
ada : TDataAdapter;
cmdSelect, cmdInsert, cmdUpdate, cmdDelete : TDataCommand;
conn : TAdoConnection;
i : Integer;
begin
// 定义数据库连接
conn := TAdoConnection.Create(nil);
conn.ConnectionString := 'FILE NAME=.\ado+.udl';
conn.LoginPrompt := False;
// 下面分别定义四个TDataCommand，用于Select, Insert, Update, Delete
cmdSelect := TDataCommand.Create(nil);
cmdSelect.Connection := conn;
cmdSelect.CommandText := 'select username,password from userdb';
cmdInsert := TDataCommand.Create(nil);
cmdInsert.Connection := conn;
cmdInsert.CommandText := 'insert into userdb (username, password) values (@username, @password)';
// 新增参数，用来表示要更新或定位的值
cmdInsert.DataParameters.Add(TDataCommandParameter.Create('@username', 'username', ftString));
cmdInsert.DataParameters.Add(TDataCommandParameter.Create('@password', 'password', ftString));
cmdDelete := TDataCommand.Create(nil);
cmdDelete.Connection := conn;
cmdDelete.CommandText := 'delete from userdb where username=@username';
cmdDelete.DataParameters.Add(TDataCommandParameter.Create('@username', 'username', ftString));
cmdUpdate := TDataCommand.Create(nil);
cmdUpdate.Connection := conn;
cmdUpdate.CommandText := 'update userdb set password=@password where username=@username';
cmdUpdate.DataParameters.Add(TDataCommandParameter.Create('@password', 'password', ftString));
cmdUpdate.DataParameters.Add(TDataCommandParameter.Create('@username', 'username', ftString, ptWhereField));
// 定义一个数据适配器，初始化其Command属性
ada := TDataAdapter.Create();
ada.SelectCommand := cmdSelect;
ada.InsertCommand := cmdInsert;
ada.UpdateCommand := cmdUpdate;
ada.DeleteCommand := cmdDelete;
// 定义一个数据集
ds := TDataSetPlus.Create();
conn.Open();
// 用适配器填充记录集，自动新增一个叫’UserTable’的数据表放入记录集中
ada.Fill(ds, 'UserTable');
// 示范更改记录集中的数据
for i := 0 to ds.Tables.ItemByName['UserTable'].Rows.Count-1 do
begin
ds.Tables.ItemByName['UserTable'].Rows[i].Columns.ItemByFieldName['password'].Value := '12345';
end;
// 用适配器把记录集中的更改更新回数据库
ada.Update(ds.Tables[0]);
conn.Close();
FreeAndNil(conn);
FreeAndNil(ada);
FreeAndNil(ds);
FreeAndNil(cmdSelect);
FreeAndNil(cmdInsert);
FreeAndNil(cmdUpdate);
FreeAndNil(cmdDelete);
end;
大家可以看到，存在很多缺陷，还有隐藏的Bug(我基本上没有做找Bug的动作)，我只是把心里想的先试验一下，实现出来，如果有时间，再进行DeBug和完善。
已经想到要完善的：
1、实现CommandBuilder，如果只是对单个物理表做操作，可以根据SelectCommand自动生成InsertCommand、UpdateCommand和DeleteCommand。这是Ado.Net的方式，在很多场合下，可以节省大量的代码和时间。
2、更多的数据绑定。如，可以把指定的数据表中的一列的数据绑定到一个ComboBox。
3、……
整个源码可以在http://www.86soft.com/clsoft/kaneboy/adoplus.zip下载。
有什么想法，请Email联系，[email protected]，Thanks For 意见和批评。
本文地址：http://com.8s8s.com/it/it5278.htm