TBookMark: GetBookMark,GotoBookMark,FreeBookMark的参数，不同的数据集实现BOOKMarKs的方式不一样。所有不要再不同的数据集上使用同一个BOOKMark，如Client DataSet 和 interDataset;
用MenData，你可以常见所有的标准域，并且支持yes，BLoB域。可以通过2中方式构造MEMdata的域，一种是指定fields属性。它是完全兼容的，当你想换一个数据库后台的时候。前台没影响。也可以通过访问Memdata内存缓存作为一个数组。
MemData的可能的使用用途。
1.作为一个快速的存取数据集。可以很容易的切换数据库
2.在做报表的时候作为一个临时表。相比于设计复杂的报表。他更容易构造计算字段。
3.做为一个临时表，当处理复杂的编辑操作时。你可以做编辑操作用MeMdata.并且立即改变到数据库
4，远程数据的本地存储。你可以允许你的用户去下载表到他们本地的硬盘并且使用MemData去浏览数据。不需要一个在线的连接到一个数据库。
使用MemData，你不需要使用额外的动态库，所有的功能都编译到你的程序中了。MemData是最理想的数据集，当你使用存在的数据觉醒控件，并且想维护数据验证的工功能。
案例：在一个应用程序中，一个用户可以增删查改网络朋友
数据规格说明：countries(id,name) friends(id,name,nickname,e-mail,birthday,interests,count)
我们可以使用一个BDE表，但是我们不需要任何数据库文件，当然我们也不想颁布我们的应用程序用功能强大，但是文件非常的大的DLL文件。
这样我们只剩下2种选择。
1个是使用唯一的数据觉醒控件。一个是使用dxMemData.
第一种方式是个好的想法。如果你有总够的时间，或者你不关心数据验证。如需要的值或者正确的值。很显然，你不得不做很多工作去实现像查询等等这样的功能。
下面我们介绍一下使用dxmemdata如何轻松的实现这样的功能。
1，拖2个dxmemdata控件在窗体上。name分别是：mdcountries,mdintFriends.
2.双击mdcountries去调用域编辑器，去添加必要的域。
添加一个域，你必须填写。域名，类型，size(for string fields only); 域类型。查询字段定义for(lookup fiedls only)
id(integer) name(string char(50))
ID (Integer),FirstName (String char(25)),LastName (String char(25)),NickName (String char(10)),
Email (String char(80)),birthday ((Date),interests (String char(250)) and CountryID (Integer).
现在定义绑定查询字段
现在我们有一个查询字段，在borland BDgrid 和 dx 的 expressgrid； 都表现成一个查询组合。在expressgrid中，他代表一个内存查询组合。、
为了确保字段的正确性。我们必须写一个方法。在插入的时候更新字段的值
procedure TForm1.dmCountriesAfterInsert(DataSet: TDataSet);
begin
DataSet.FindField('ID').AsInteger :=
DataSet.FindField('recid').AsInteger;
end;
你可以使用这段代码在2个数据集上，recid是一个为每个数据集创建的域。你可以看见他在设计时的对象观察期中或者。与编辑器中。
dxmemdata直接继承于TdataSet.
dxMemData支持。计算和查找字段，排序域，包括计算跟查找的域。书签（多选）定位，查找方法。
data属性：返回了域定义。数据集的所有域
delimiterChar：定义SaveToTextFile and LoadFromTextFile 时，数据的存储格式
determine：判断；
procedure TfmRefer.SaveToExcel; var ExcelApp,Sheet:Olevariant; rowcnt:integer; bk:TBookMark; i:Integer; begin try bk:=dxSelect.GetBookmark; if dxSelect.IsEmpty then Exit; ExcelApp:=CreateOleObject('Excel.Application'); ExcelApp.visible:=true; ExcelApp.workbooks.add; ExcelApp.workbooks[1].worksheets[1].Name:=self.Caption;//'商品选择'; Sheet:=ExcelApp.workbooks[1].worksheets[1]; rowcnt:=1; for i:=0 to grdResult.DataSource.DataSet.Fields.Count-1 do begin Sheet.Cells[rowcnt,i+1] :=grdResult.DataSource.DataSet.Fields[i].DisplayLabel; end; // Sheet.Cells[rowcnt,1] :='商品代码'; // Sheet.Cells[rowcnt,2] :='商品名称'; dxSelect.First; while not dxSelect.Eof do begin inc(rowcnt); for i:=0 to grdResult.DataSource.DataSet.Fields.Count-1 do begin Sheet.Cells[rowcnt,i+1] :=grdResult.DataSource.DataSet.Fields[i].Value; end; // Sheet.Cells[rowcnt,1]:=''''+dxSelect.FieldByName('SPDM').AsString; // Sheet.Cells[rowcnt,2]:=''''+dxSelect.FieldByName('SPMC').AsString; dxSelect.Next; end; finally dxSelect.GotoBookmark(bk); end; end;
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。