DBGridEh导出功能详解SaveDBGridEhToExportFile说明

1、DBGridEh 导出功能详解 (SaveDBGridEhToExportFile 说明 )DBGridEh 导出功能详解 (SaveDBGridEhToExportFile 说明）经常有用户要求数据导出，对此，我们一直用最原始的办法， 打开查询， 读取每个字段的数据， 逐条的的写入文件。如下：procedure TForm10.prExpData(pMode:Byte);VarpFPath:String;pFName:String; /Exp Name of prefixpFObject:string;pMyFile:TextFile;pStr:string;i:integer;beginp

2、FObject:='c:Exp_Sample.csv'AssignFile(pMyFile,pFObject);ReWrite(pMyFile);with DM.QR_ENJBTR_250 do beginCLOSE;open;/写入标题 for i:=0 to DM.QR_ENJBTR_250.FieldCount-1do begin pStr:=pStr+DM.QR_ENJBTR_250.FieldDefs.Itemsi.Name+','end;WriteLn(pMyFile,pStr);/写入内容 while not EOF do beginpStr:=&

3、#39;'For i:=0 to FieldCount-1 dobegin pstr:=pStr+Fields.Fieldsi.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 AddCloseFile(pMyFile);end;后来发现，其实 DBGridEh

4、 控件提供了一个过程：SaveDBGridEhToExportFile ，提供了很好的导出功能，可以 方便的将查询出的数据导出为 txt,csv,html 等格式的文件。说明如下：procedureSaveDBGridEhToExportFile( ExportClass:TDBGridEhExportClass; DBGridEh:TCustomDBGridEh; const FileName: String; IsSaveAll:Boolean);其中：/、 ExportClass- 导出文件类型，可以为以下值：TDBGridEhExportAsText,TDBGridEhExportAs

5、Csv, TDBGridEhExportAsHTML,TDBGridEhExportAsRTF,TDBGridEhExportAsVCLDBIF ， TDBGridEhExportAsXLS.DBGridEh-DBGridEh 控件FileName- 要导出的文件路径名称IsSaveAII-是否导出全部数据：丫-导出全部数据；N :导出选择部分数据。注意： 使用时必须添加新的引用单元： DBGridEhImpExp( 以下两个引用单元也必须存在： DBGridEh,EhLibBDE) 。示例：SaveDBGridEhToExportFile(pExpClass,dbgMain,pExpFile

6、,Tru e);/导出全部数据。SaveDBGridEhToExportFile(pExpClass,TDBGridEh(ActiveCo ntrol),pExpFile,False);/导出选择数据+附使用示例： 环境： Delphi Version6.0Build6.163+EhlibV3.4准备介绍如下：1，在窗体 uses 中，添加新的引用单元：DBGridEhImpExp（ 以下两个引用单元也必须存在：DBGridEh,EhLibBDE) 。2，在窗体中添加一个 DBGridEh 控件，并设置名称为：dbgMain（ 可以随意命名的 ）。3，设置 DBGridEh 控件可以多重选择：

7、 在属性页中设置options-dgMultiSelect=true 。为的是可以选择范围，导出部分 数据。4，为 DBGridEh 控件指定 DataSource 数据源。5，添加 TSaveDialog 控件 SaveDialog1 ，设定文件类型列表，和默认文件类型，如下 （也可以直接在属性页中设置 ）：SaveDialog1.Filter:='Textfiles (*.txt)|*.TXT|Comma separated values (*.csv)|*.CSV|HTML file(*.htm)|*.HTM|Rich Text Format (*.rtf)|*.RTF|Micr

8、osoft ExcelWorkbook (*.xls)|*.XLS'SaveDialog1.FilterIndex:=0;6，添加两上按钮，分别为全部导出和部分导出，分别添加以下代码到按钮的单击事件中。/全部导出过程 procedure TForm1.btnAllExportClick(Sender: TObject);/导出文件类型var pExpClass:TDBGridEhExportClass;pExt:string/导出文件扩展名pExpFile:string;/导出文件路径及文件名称pExpFileExt:string;/SaveDialog1 返回的文件名的扩展名begi

9、n/ 清空 SaveDialog1 默认文件名SaveDialog1.FileName := ''if SaveDialog1.Execute then begin/如果 SaveDialog1正确执行caseSaveDialog1.FilterIndex of/根据 FilterIndex 设置导出文件类型和扩展名1:begin pExpClass := TDBGridEhExportAsText; pExt := 'txt'end;2:begin pExpClass := TDBGridEhExportAsCSV; pExt := 'csv'

10、end;3:begin pExpClass := TDBGridEhExportAsHTML; pExt := 'htm'end;4:begin pExpClass := TDBGridEhExportAsRTF; pExt := 'rtf' end;5:begin pExpClass := TDBGridEhExportAsXLS; pExt := 'xls'end;elsepExpClass := nil; pExt := ''end;/如果导出文件类ifpExpClass <> nil then

11、begin型已经被正确设置pExpFile:= trim(SaveDialog1.FileName);pExpFileExt:=Copy(pExpFile,Length(pExpFile)-2,3);/判断返回的文件名称是否已经包含正确的扩展名,如果没有则添加正确的扩展名if UpperCase(pExpFileExt)<> UpperCase(pExt) thenpExpFile := pExpFile + '.' +pExt;SaveDBGridEhToExportFile(pExpClass,DBGridEh1,pExpFile,True);/

12、按现有设置导出全部数据。/X_pMsg:='The data have saved as'+pExpFile;/stbForm.Panels0.Text:=X_pMsg;MessageDlg('The data have saved as '+pExpFile,mtInformation,mbOk,0);end;end;end;/部分导出过程 procedure TForm1.btnPartExportClick(Sender: TObject);/导出文件类型var pExpClass:TDBGridEhExportClass;pExt:string/导出文件

13、扩展名pExpFile:string;/导出文件路径及文件名称 beginSaveDialog1.FileName := ''if(ActiveControl is TDBGridEh) thenif SaveDialog1.Execute then begincaseSaveDialog1.FilterIndex of1: begin pExpClass :=TDBGridEhExportAsText; pExt := 'txt' end;2: begin pExpClass:= TDBGridEhExportAsCSV; pExt := 'csv&#

14、39; end;3: beginpExpClass := TDBGridEhExportAsHTML; pExt := 'htm' end;4:begin pExpClass := TDBGridEhExportAsRTF; pExt := 'rtf' end;5: begin pExpClass := TDBGridEhExportAsXLS; pExt := 'xls'end;elsepExpClass := nil; pExt := ''end;if pExpClass <> nil then beginpExpFile:= trim(SaveDialog1.FileName);ifUpperCase(Copy(pExpFile,Length(pExpFile)-2,3) <>UpperCase(pExt) thenpExpFile := pExpFile +