欢迎来到天天文库
浏览记录
ID:37586780
大小:115.20 KB
页数:20页
时间:2019-05-25
《价值的创造与实现TManagedDataSet和》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、价值的创造与实现:TManagedDataSet和DataSetPool的实现疯狂代码http://CrazyCoder.cn/ĵ:http:/CrazyCoder.cn/Delphi/Article45197.html;;;;;;;;;Delphi中使用最多大概是AdoExpress组件这是Borland封装了MicrosoftAdo东东使用频率最多TAdoDataSet对应了Ado原生RecordSet在功能上做了些增强但使用方法基本致用多了就感觉TAdoDataSet还有扩充和改造地方;;;;;;;;;由于代码中使用了很多TAdoDataSet
2、Control控件创建和释放对象非常频繁而且每次创建后都要设置很多基本相同属性颇为麻烦于是想到可以实现个记录集池每次当需要个记录集时从这个池中得到个空闲且符合要求(只读或可读写)用完了就被池回收如果池中记录集不够就自动生成新记录集对象;;;;;;;;;首先要做是改造TAdoDataSet我写了个TManagedDataSet继承自TAdoDataSet可以自己知道自己是被人使用还是空闲(通过IsUsed)重写了Free把本来释放动作改为仅是把自己设置为空闲并清除状态(Session)信息并可以通过Source返回个指向自己TDataSource对象;
3、;;;;;;;;有了这些基础后就可以很快构建TDataSetPool类了这个类仅是保存可用TManagedDataSet对象通过GetDataSet(WantType:TManagedDataSetType)返回个空闲数据集对象如果池中没有空闲就新建个返回TManagedDataSetType是枚举类标识只读数据集和读写数据集(只读数据集可通过优化CursorType和LockType来加快读数据速度);;;;;;;;;下面代码是直接从我做个项目源文件中Copy出来有些乱仅做参考unitManagedDataSet;erfaceusesAdoDb,C
4、ommonDm,SysUtils,DB,dbgrids,ComObj,es,contnrs;type;;;;;;;;;TManagedDataSetType=(ReadOnly,Editable);//猅羭摸;;;;TXlsExpAdapter=;;;;;;;;private;;;;;;;;;;;_sXlsCaption:;;;;;;;;;;;;;_sXlsFileName:;;;;;;;;;;;;;_bOverwriteExistFile:Boolean;;;;;;;;;;;;;;;;;;;;;;;;;;;;;_asFieldName:TStrin
5、gList;;;;;;;;;;;;;_asXlsTitle:TStringList;;;;;;;;;;;;;_aDataType:TObjectList;;;;;;;;;;;;;functionGetDataType(constiniIndex:Integer):TDataType;;;;;;;;;;;;;functionGetFieldName(constiniIndex:Integer):;;;;;;;;;;;;;functionGetXlsTitle(constiniIndex:Integer):;;;;;;;;;public;;;;;;;;;
6、;;constructorCreate;;;;;;;;;;;;;destructorDestroy;;;;;;;;;;;;propertyXlsCaption:read_sXlsCaptionWrite_sXlsCaption;;;;;;;;;;;;;propertyXlsFileName:read_sXlsFileNameWrite_sXlsFileName;;;;;;;;;;;;;propertyOverWriteExistFile:Booleanread_bOverwriteExistFileWrite_bOverwriteExistFile;
7、;;;;;;;;;;;;;;;;;;;;;;;;;;;;procedureAddField(constinsFieldName,insCaption:;constype:TDataType=ftUnKnown);;;;;;;;;;;;;procedureGetInfoFromDBGrid(constingrid:TDBGrid);;;;;;;;;;;;;propertyDataType[constiniIndex:Integer]:TDataTypereadGetDataType;;;;;;;;;;;;;propertyFieldName[const
8、iniIndex:Integer]:readGetFieldName;;;;;;;;;;;;;propert
此文档下载收益归作者所有