DBGridEh导出功能详解

《DBGridEh导出功能详解》由会员分享，可在线阅读，更多相关《DBGridEh导出功能详解（12页珍藏版）》请在装配图网上搜索。

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

2、inpFObject:=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-1 do beginpStr:=pStr+DM.QR_ENJBTR_250.FieldDefs.Itemsi.Name+,; end;WriteLn(pMyFile,pStr);/写入内容while not EOF do beginpStr:=;For i:=0 to Fiel

3、dCount-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 控件提供了一个过程： SaveDBGridEhToExportFile ，提供了很好的导出功能

4、，可以 方便的将查询出的数据导出为 txt,csv,html 等格式的文件。说明如下：procedureSaveDBGridEhToExportFile( ExportClass:TDBGridEhExportClass; DBGridEh:TCustomDBGridEh; const FileName: String; IsSaveAll: Boolean);其中：ExportClass- 导出文件类型，可以为以下值：TDBGridEhExportAsText,TDBGridEhExportAsCsv, TDBGridEhExportAsHTML,TDBGridEhExportAsRTF,T

5、DBGridEhExportAsVCLDBIF ， TDBGridEhExportAsXLS.DBGridEh-DBGridEh 控件FileName- 要导出的文件路径名称IsSaveAII-是否导出全部数据：丫-导出全部数据；N :导 出选择部分数据。使用时必须添加新的引用单元： DBGridEhImpExp( 以下 两个引用单元也必须存在： DBGridEh,EhLibBDE) 。示例：SaveDBGridEhToExportFiIe(pExpCIass,dbgMain,pExpFiIe,True);/导出全部数据。SaveDBGridEhToExportFiIe(pExpCIass,T

6、DBGridEh(ActiveControI),pExpFiIe,FaIse);/导出选择数据+ 附使用示例：环境： Delphi Version6.0Build6.163+EhlibV3.4准备介绍如下：1，在窗体 uses 中，添加新的引用单元：DBGridEhImpExp（ 以下两个引用单元也必须存在： DBGridEh,EhLibBDE） 。2，在窗体中添加一个 DBGridEh 控件，并设置名称为： dbgMain（ 可以随意命名的 ）。3，设置 DBGridEh 控件可以多重选择： 在属性页中设置 options-dgMultiSelect=true 。为的是可以选择范围，导出部分

7、 数据。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|Microsoft ExcelWorkbook(*.xls)|*.XLS;SaveDialog1.FilterInd

8、ex:=0;6，添加两上按钮，分别为全部导出和部分导出，分别 添加以下代码到按钮的单击事件中。/全部导出过程procedure TForm1.btnAllExportClick(Sender: TObject);varpExpClass:TDBGridEhExportClass; / 导出文件类型pExt:string;/ 导出文件扩展名pExpFile:string;/导出文件路径及文件名称pExpFileExt:string;/SaveDialog1 返回的文件名的扩展名begin/ 清空 SaveDialog1 默认文件名SaveDialog1.FileName := if SaveDi

9、alog1.Execute then begin/如果 SaveDialog1正确执行caseSaveDialog1.FilterIndex of /根据 FilterIndex 设置导出文 件类型和扩展名begin pExpClass :=TDBGridEhExportAsText; pExt := txt;end;2:begin pExpClass :=TDBGridEhExportAsCSV; pExt := csv;end;o.begin pExpClass :=TDBGridEhExportAsHTML; pExt := htm;end;4:begin pExpClass :=5:T

10、DBGridEhExportAsRTF; pExt := rtf; end;Jbegin pExpClass :=TDBGridEhExportAsXLS; pExt := xls;end;elsepExpClass := nil; pExt := end;/如果导出文件类if pExpClass <> nil then begin 型已经被正确设置pExpFile:= trim(SaveDialog1.FileName); pExpFileExt:=Copy(pExpFile,Length(pExpFile)-2,3);/判断返回的文件名称是否已经包含正确的扩展名,如果没有则添加

11、正确的扩展名if UpperCase(pExpFileExt)<> UpperCase(pExt) thenpExpFile := pExpFile + . +pExt;SaveDBGridEhToExportFile(pExpClass,DBGridEh1,pExpFile, True);/按现有设置导出全部数据。/X_pMsg:=The data have saved as +pExpFile;/stbForm.Panels0.Text:=X_pMsg;MessageDlg(The data have saved as+pExpFile,mtInformation,mbOk,0

12、);end;end;end;/部分导出过程procedure TForm1.btnPartExportClick(Sender: TObject); varpExpClass:TDBGridEhExportClass;/ 导出文件类型pExt:string;/ 导出文件扩展名pExpFile:string;/导出文件路径及文件名称beginSaveDialog1.FileName := ;if(ActiveControl is TDBGridEh) thenif SaveDialog1.Execute then begincaseSaveDialog1.FilterIndex of1: beg

13、in pExpClass :=TDBGridEhExportAsText; pExt := txt; end;2: begin pExpClass:= TDBGridEhExportAsCSV; pExt := csv; end;3: beginpExpClass := TDBGridEhExportAsHTML; pExt := htm; end;4:begin pExpClass := TDBGridEhExportAsRTF; pExt := rtf; end;5: begin pExpClass := TDBGridEhExportAsXLS; pExt := xls; end;els

14、epExpClass := nil; pExt := ; end;if pExpClass <> nil then beginpExpFile:= trim(SaveDialog1.FileName);ifUpperCase(Copy(pExpFile,Length(pExpFile)-2,3) <>UpperCase(pExt)thenpExpFile := pExpFile + . + pExt;SaveDBGridEhToExportFile(pExpClass,TDBGridEh(ActiveCo ntrol),pExpFile,False);X_pMsg:=The data have saved as +pExpFile;stbForm.Panels0.Text:=X_pMsg;MessageDlg(x_pMsg,mtInformation,mbOk,0);end;end;end;