DBGridEh导出功能详解.docx

DBGridEh导出功能详解(SaveDBGridEhToExportFile说明)经常有用户要求数据导出，对此，我们一直用最原始的办法，打开查询，读取每个字段的数据，逐条的的写入文件。如下：procedure TForm10.prExpData(pMode:Byte);VarpFPath:String;pFName:String;?? //Exp Name of prefixpFObject:string;pMyFile:TextFile;pStr:string;i:integer;begin??????? pFObject:=c:\Exp_Sample.csv;??????? AssignFile(pMyFile,pFObject);??????? ReWrite(pMyFile);??????? with DM.QR_ENJBTR_250 do begin??????????? CLOSE;??????????? open;??????????? //写入标题??????????? for i:=0 to DM.QR_ENJBTR_250.FieldCount-1 do begin??????????????? pStr:=pStr+DM.QR_ENJBTR_250.FieldDefs.Items[i].Name+,;??????????? end;??????????? WriteLn(pMyFile,pStr);??????????? //写入内容??????????? while not EOF do begin??????????????? pStr:=;??????????????? For i:=0 to FieldCount-1 do begin??????????????????? pstr:=pStr+Fields.Fields[i].AsString+,;??????????????? end;??????????????? //copy(pStr,1,Length(pStr)-1);??????????????? WriteLn(pMyFile,pStr);??????????????? Next;??????????? end;??????? end; //With end;??????? xMsg:=---成功导出PurPart明细表：+pFObject; cpWriteLog(x_pLogFile,xMsg,1); // V2033 Add??????? CloseFile(pMyFile);end;　　后来发现，其实DBGridEh控件提供了一个过程：SaveDBGridEhToExportFile，提供了很好的导出功能，可以方便的将查询出的数据导出为txt,csv,html等格式的文件。　　说明如下：　　procedure SaveDBGridEhToExportFile( ExportClass: TDBGridEhExportClass; DBGridEh: TCustomDBGridEh; constFileName: String; IsSaveAll: Boolean);　　其中：　　ExportClass--导出文件类型，可以为以下值：TDBGridEhExportAsText, TDBGridEhExportAsCsv, TDBGridEhExportAsHTML, TDBGridEhExportAsRTF, TDBGridEhExportAsVCLDBIF，TDBGridEhExportAsXLS.　　DBGridEh--DBGridEh控件　　FileName--要导出的文件路径名称　　IsSaveAll--是否导出全部数据：Y-导出全部数据；N：导出选择部分数据。　　注意：　　使用时必须添加新的引用单元：DBGridEhImpExp(以下两个引用单元也必须存在：DBGridEh, EhLibBDE)。　　示例：　　SaveDBGridEhToExportFile(pExpClass,dbgMain,pExpFile,True);??? //导出全部数据。　　SaveDBGridEhToExportFile(pExpClass,TDBGridEh(ActiveControl),pExpFile,False); //导出选择数据　　+++　　附使用示例：　　---　　环境：Delphi Version6.0[Build 6.163]+EhlibV3.4　　准备介绍如下：　　1，在窗体uses中，添加新的引用单元：DBGridEhImpExp(以下两个引用单元也必须存在：DBGridEh, EhLibBDE)。　　2，在窗体中添加一个DBGridEh控件，并设置名称为：dbg