ITPub博客

首页 > Linux操作系统 > Linux操作系统 > Delphi7下仿Ado.Net类的实现 (转)

Delphi7下仿Ado.Net类的实现 (转)

原创 Linux操作系统 作者:amyz 时间:2007-11-25 08:53:11 0 删除 编辑
Delphi7下仿Ado.Net类的实现 (转)[@more@]

Delphi7下仿ado.NET类的实现

Mailto:kaneboy@163.net">kaneboy@163.net

XML:namespace prefix = o ns = "urn:schemas-microsoft-com:Office:office" />

最近正在学.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联系,kaneboy@163.net,Thanks For 意见和批评。

 


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752019/viewspace-984484/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    3984
  • 访问量
    7339084