DBGridEh导出功能详解(SaveDBGridEhToExportFile说明).docVIP

DBGridEh导出功能详解(SaveDBGridEhToExportFile说明) DBGridEh导出功能详解(SaveDBGridEhToExportFile说明)作者：sunjun0427 来源：博客园 发布时间：2010-12-16 13:38 阅读：125 次 原文链接 [收藏] DBGridEh导出功能详解(SaveDBGridEhToExportFile说明) --- 　　经常有用户要求数据导出，对此，我们一直用最原始的办法，打开查询，读取每个字段的数据，逐条的的写入文件。如下： procedure TForm10.prExpData(pMode:Byte); Var pFPath:String; pFName:String; //Exp Name of prefix pFObject: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; const FileName: 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,