enlib中DBGRIGEH如何导出各种文件

原创于 2007-04-23 14:24:00 发布 · 1.1k 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#ext #rtf #csv #html

Learn Station 专栏收录该内容

9 篇文章

订阅专栏

本文介绍了一种使用 Delphi 实现的方案，能够将数据库网格中的数据导出为 Excel (XLS), 文本 (TXT), CSV, HTML 和 RTF 等不同格式的方法。通过简单的文件保存对话框选择，可以灵活地转换数据格式。

开发板推荐：天空星STM32F407VET6开发板

超高性价比 STM32主控 | 超高主频 | 一板兼容百芯 | 比赛神器 | 沉金彩色丝印

点击查看

strdate:=FormatdateTime('ddddd',Now);
SaveDialog1.FileName := '客户基本信息表'+strdate;
   if SaveDialog1.Execute then
    begin
      case SaveDialog1.FilterIndex of
        1: begin ExpClass := TDBGridEhExportAsXLS; Ext := 'xls'; end;
        2: begin ExpClass := TDBGridEhExportAsText; Ext := 'txt'; end;
        3: begin ExpClass := TDBGridEhExportAsCSV; Ext := 'csv'; end;
        4: begin ExpClass := TDBGridEhExportAsHTML; Ext := 'html'; end;
        5: begin ExpClass := TDBGridEhExportAsRTF; Ext := 'rtf'; end;

      else
        ExpClass := nil; Ext := '';
      end;
      if ExpClass <> nil then
      begin
        if UpperCase(Copy(SaveDialog1.FileName,Length(SaveDialog1.FileName)-2,3)) <>
           UpperCase(Ext) then
          SaveDialog1.FileName := SaveDialog1.FileName + '.' + ext;
        SaveDBGridEhToExportFile(ExpClass,dbgrideh1,
             SaveDialog1.FileName,true);
     end;
   end;