Delphi数据导出到EXCEL方法

TBookMark: GetBookMark,GotoBookMark,FreeBookMark的参数，不同的数据集实现BOOKMarKs的方式不一样。所有不要再不同的数据集上使用同一个BOOKMark，如Client DataSet 和 interDataset;

ExpressMemData是一个超快的内存数据集后代。可以从多个数据源中获取数据。如文本，2进制，ini文件，跟其他数据类型。可以绑定数据源，然后在任意一个二进制中显示。支持，排序，分组（通过expressquantunGrid）,保存/加载从文本文件跟二进制文件。多字段定位。过滤。

用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;