Ehlib 的 DBGridEh 控件导出到Excel的三种封装过程/函数

必须uses DBGridEhImpExp,  EhlibADO, DBGridEh

第一种：

procedure TForm2.dbgridehtoexp(lsdbgrideh: tdbgrideh; Title: string); //lsdbgrideh传入dbgrideh变量；Title保存标题
var
  ExpClass: TDBGridEhExportClass;
  Ext: string;
  sd1: tsavedialog;
begin
  try
    sd1 := tsavedialog.Create(nil);
    sd1.Filter := '*.xls|*.xls|*.csv|*.csv|*.htm|*.htm|*.rtf|*.rtf|*.txt|*.txt';
    sd1.FileName := Title;
    if sd1.Execute then
      begin
        case sd1.FilterIndex of
          1:
            begin
              ExpClass := TDBGridEhExportAsText;
              Ext := 'xls';
            end;
          2:
            begin
              ExpClass := TDBGridEhExportAsCSV;
              Ext := 'csv';
            end;
          3:
            begin
              ExpClass := TDBGridEhExportAsHTML;
              Ext := 'htm';
            end;
          4:
            begin
              ExpClass := TDBGridEhExportAsRTF;
              Ext := 'rtf';
            end;
          5:
            begin
              ExpClass := TDBGridEhExportAsXLS;
              Ext := 'txt';
            end;
        else
          ExpClass := nil;
          Ext := '';
        end;
        if ExpClass <> nil then
          begin
            if UpperCase(Copy(sd1.FileName, Length(sd1.FileName) - 2, 3)) <> UpperCase(Ext) then
              sd1.FileName := sd1.FileName + '.' + Ext;
            if FileExists(sd1.FileName) then
              begin
                if application.MessageBox('文件名已存在，是否覆盖', '提示', MB_ICONASTERISK or MB_OKCANCEL) <> idok then
                  begin
                    exit;
                  end;
              end;
            Screen.Cursor := crHourGlass;
            SaveDBGridEhToExportFile(ExpClass, lsDBGridEh, sd1.FileName, true);
            Screen.Cursor := crDefault;
          end;
      end;
  finally
    sd1.Free;
  end;
end;

第二种：
procedure TForm2.GridSaveAS(grid: TDBGridEh);
var
  ExpClass: TDBGridEhExportClass;
  Ext: string;
  SaveDlg: TSaveDialog;
  ExportAll: Boolean;
begin
  ExportAll := True; //缺省情况下导出所有数据
  SaveDlg := TSaveDialog.Create(Application);
  SaveDlg.Filter := 'Excel表格(*.XLS)|*.XLS|HTML文档(*.HTM)|*.HTM|RTF格式(*.RTF)|*.RTF|纯文本文件(*.TXT)|*.TXT|逗号分隔文本格式(*.CSV)|*.CSV';
  SaveDlg.FileName := '未命名';
  SaveDlg.Options := [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing];
  if SaveDlg.Execute then
    begin
      case SaveDlg.FilterIndex of
        1:
          begin
            ExpClass := TDBGridEhExportAsXLS;
            Ext := 'xls';
          end;
        2:
          begin
            ExpClass := TDBGridEhExportAsHTML;
            Ext := 'htm';
          end;
        3:
          begin
            ExpClass := TDBGridEhExportAsRTF;
            Ext := 'rtf';
          end;
        4:
          begin
            ExpClass := TDBGridEhExportAsText;
            Ext := 'txt';
          end;
        5:
          begin
            ExpClass := TDBGridEhExportAsCSV;
            Ext := 'csv';
          end;
      else
        ExpClass := nil;
        Ext := '';
      end;
      if ExpClass <> nil then
        begin
          if UpperCase(Copy(SaveDlg.FileName, Length(SaveDlg.FileName) - 2, 3)) <>


          UpperCase(Ext) then
            SaveDlg.FileName := SaveDlg.FileName + '.' + Ext;
                  //如果grid中有选择的区域，则只导出所选择的区域
          if grid.Selection.SelectionType <> gstNon then ExportAll := False;
          try
            SaveDBGridEhToExportFile(ExpClass, grid, SaveDlg.FileName, ExportAll);
          except
            on E: Exception do
              begin
                MessageBox(0, LPCTSTR('保存文件发生异常,请检查是否有重名文件并且该文件没有被打开!'), '注意', MB_OK or MB_ICONWARNING);
                Exit;
              end;
          end;
        end;
    end;
end;

第三种：

function  DBGridEhToExportFile(dbgrideh:TDBGridEh;filename:string='导出的文件'):boolean ;
var ExpClass:TDBGridEhExportClass;
    Ext:String;
    sd1:tsavedialog;
begin
result:=True ;
    sd1:=tsavedialog.Create(nil);
     sd1.Filter:='Excel 文件(*.xls)|*.xls|分隔符格式(*.csv)|*.csv|Html文件(*.htm)|*.htm|WORD 文件(*.rtf)|*.rtf|文本文件(*.txt)|*.txt';
     sd1.FileName:=filename;
  if (dbgrideh is TDBGridEh) then
    if sd1.Execute then
    begin
      case sd1.FilterIndex of
        1: begin ExpClass := TDBGridEhExportAsText; Ext := 'xls'; end;
        2: begin ExpClass := TDBGridEhExportAsCSV; Ext := 'csv'; end;
        3: begin ExpClass := TDBGridEhExportAsHTML; Ext := 'htm'; end;
        4: begin ExpClass := TDBGridEhExportAsRTF; Ext := 'rtf'; end;
        5: begin ExpClass := TDBGridEhExportAsXLS; Ext := 'txt'; end;
      else
        ExpClass := nil; Ext := '';
      end;
      if ExpClass <> nil then
      begin
        if UpperCase(Copy(sd1.FileName,Length(sd1.FileName)-2,3)) <>
           UpperCase(Ext) then
          sd1.FileName := sd1.FileName + '.' + Ext;
     if FileExists( sd1.FileName) then
       begin
        if application.MessageBox('文件已存在,替换?','提示',mb_yesno+mb_defbutton1+mb_iconquestion+mb_systemmodal)=idyes then
          begin
           if   DeleteFile( sd1.FileName)=false then
            begin
               showmessage(filename+'文件正在使用,无法替换.'+chr(13)+chr(10)+'请关闭文件：'+sd1.FileName+'.在重新导入。');
           result:=false;
               exit;
            end;
        end;
       end;
        SaveDBGridEhToExportFile(ExpClass,TDBGridEh(dbgrideh),  sd1.FileName,true);  //改为false 只导出选择行
      end;
    end
    else
    begin
      result:=false;
    end;
  sd1.Free ;
end;