价值的创造与实现TManagedDataSet和.pdfVIP

价值的创造与实现:TManagedDataSet和 DataSetPool的实现 疯狂代码 http://CrazyC/ ĵ http:/CrazyC/Delphi/Article45197.html ; ; ; ; ; ; ; ; ;Delphi中使用最多大概是AdoExpress组件这是Borland封装了MicrosoftAdo东东使用频率最 多TAdoDataSet对应了Ado原生RecordSet在功能上做了些增强但使用方法基本致用多了就感觉 TAdoDataSet还有扩充和改造地方 ; ; ; ; ; ; ; ; ;由于代码中使用了很多TAdoDataSetControl控件创建和释放对象非常频繁而且每次创建后都要设置 很多基本相同属性颇为麻烦于是想到可以实现个记录集池每次当需要个记录集时从这个池中得到个空闲且符合 要求(只读或可读写)用完了就被池回收如果池中记录集不够就自动生成新记录集对象 ; ; ; ; ; ; ; ; ;首先要做是改造TAdoDataSet我写了个TManagedDataSet继承自TAdoDataSet可以自己知道自己 是被人使用还是空闲(通过IsUsed)重写了Free把本来释放动作改为仅是把自己设置为空闲并清除状态 (Session)信息并可以通过Source返回个指向自己TDataSource对象 ; ; ; ; ; ; ; ; ;有了这些基础后就可以很快构建TDataSetPool类了这个类仅是保存可用TManagedDataSet对象通 过GetDataSet(WantType : TManagedDataSetType)返回个空闲数据集对象如果池中没有空闲就新建个返回 TManagedDataSetType是枚举类标识只读数据集和读写数据集(只读数据集可通过优化CursorType和 LockType来加快读数据速度) ; ; ; ; ; ; ; ; ;下面代码是直接从我做个项目源文件中Copy出来有些乱仅做参考 unit ManagedDataSet; erface uses AdoDb, CommonDm, SysUtils, DB, dbgrids, ComObj, es, contnrs; type ; ; ; ; ; ; ; ; ;TManagedDataSetType = (ReadOnly, Editable); // 猅羭摸 ; ; ; ;TXlsExpAdapter = ; ; ; ; ; ; ; ;private ; ; ; ; ; ; ; ; ; ; ;_sXlsCaption : ; ; ; ; ; ; ; ; ; ; ; ; ;_sXlsFileName : ; ; ; ; ; ; ; ; ; ; ; ; ;_bOverwriteExistFile : Boolean; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;_asFieldName : TStringList; ; ; ; ; ; ; ; ; ; ; ; ;_asXlsTitle : TStringList; ; ; ; ; ; ; ; ; ; ; ; ;_aDataType : TObjectList; ; ; ; ; ; ; ; ; ; ; ; ;function GetDataType(const iniIndex : Integer) : TDataType; ; ; ; ; ; ; ; ; ; ; ; ;function GetFieldName(const iniIndex : Integer) : ; ; ; ; ; ; ; ; ; ; ; ; ;function GetXlsTitle(const iniIndex : Integer) : ; ; ; ; ; ; ; ; ;public ; ; ; ; ; ; ; ; ; ; ;constructor Create; ; ; ; ; ; ; ; ; ; ; ; ;destructor Destroy; ; ; ; ; ; ; ; ; ; ; ;property XlsCaption : read _sXlsCapt