dbgrideh的導入和導出

最新推荐文章于 2023-03-05 16:24:59 发布

hnxxcxg

最新推荐文章于 2023-03-05 16:24:59 发布

阅读量1.4k

点赞数

分类专栏： grid 文章标签： ext rtf csv 工作 excel windows

本文链接：https://blog.csdn.net/hnxxcxg/article/details/4025585

版权

grid 专栏收录该内容

28 篇文章 0 订阅

订阅专栏

{*******************************************************}
{                                                       }
{       导出Tdbgrideh数据                               }
{                                                       }
{       版权所有 (C) 2007 咏南工作室                    }
{                                                       }
{*******************************************************}

unit uExport;

interface

uses
DBGridEhImpExp, DBGridEh, SysUtils, Dialogs, ComObj, ActiveX, Variants, db,
FormWait,Windows,Graphics;

procedure ExpDbgridEh(grid:TDBGridEh;OpenExcel:Boolean=True);
procedure ImpDbgridEH(Grid:TDBGridEh);

implementation

//==============================================================================
// 增加进度条显示 by cxg 2008-01-05 10:08:09
//==============================================================================

procedure ImpDbgridEH(Grid:TDBGridEh);
var
OpenDialog:TOpenDialog;
begin
if (not Assigned(grid)) or (not grid.DataSource.DataSet.Active) then
    exit;
OpenDialog:=TOpenDialog.create(nil);
try
    OpenDialog.Filter:='文本文件|*.TXT';
    OpenDialog.FilterIndex:=1;
    if OpenDialog.Execute then
    begin
      ShowWaitText('请稍候');
      LoadDBGridEhFromImportFile(TDBGridEhImportAsText,
        Grid,OpenDialog.FileName,True);
    end;
finally
    OpenDialog.Free;
    ShowWaitText();
end;
end;

procedure ExpDbgridEh(grid:TDBGridEh;OpenExcel:Boolean=True);
var
ExpClass:TDBGridEhExportClass;
Ext:String;
SaveDialog:TSaveDialog;
ExcelApp: Variant;
begin
if (not Assigned(grid)) or (not grid.DataSource.DataSet.Active)
    or (grid.DataSource.DataSet.IsEmpty) then exit;
SaveDialog:=TSaveDialog.Create(nil);
try
    SaveDialog.FileName := '文件1';
    SaveDialog.Filter:='EXCEL电子表格|*.XLS|HTML网页|*.HTM|文本文件|*.TXT|CSV'
      +'|*.CSV|RTF富文本|*.RTF';
    SaveDialog.FilterIndex:=1;
    if SaveDialog.Execute then
    begin
      ShowWaitText('请稍候');
      try
        case SaveDialog.FilterIndex of
          1: begin ExpClass := TDBGridEhExportAsXLS; Ext := 'xls'; end;
          2: begin ExpClass := TDBGridEhExportAsHTML; Ext := 'htm'; end;
          3: begin ExpClass := TDBGridEhExportAsText; Ext := 'txt'; end;
          4: begin ExpClass := TDBGridEhExportAsCSV; Ext := 'csv'; end;
          5: begin ExpClass := TDBGridEhExportAsRTF; Ext := 'rtf'; end;
        else
          ExpClass := nil; Ext := '';
        end;
        if ExpClass <> nil then
        begin
          if UpperCase(Copy(SaveDialog.FileName,
            Length(SaveDialog.FileName)-2,3))<> UpperCase(Ext) then
            SaveDialog.FileName := SaveDialog.FileName + '.' + Ext;
          SaveDBGridEhToExportFile(ExpClass,grid,SaveDialog.FileName,true);

          if SaveDialog.FilterIndex=1 then
          begin
            if OpenExcel then
            begin
              ExcelApp := CreateOleObject( 'Excel.Application' );
              ExcelApp.visible := True;
              ExcelApp.workbooks.add;
              ExcelApp.WorkBooks.Open(SaveDialog.FileName);
              ExcelApp.ActiveSheet.PageSetup.PrintGridLines := True;
              //ExcelApp.ActiveSheet.PageSetup.CenterHeader := '咏南工作室';
              ExcelApp.ActiveSheet.PageSetup.CenterFooter := '第&P页';
              ExcelApp.ActiveSheet.Rows[1].Font.Name := '宋体';
              ExcelApp.ActiveSheet.Rows[1].Font.Color := clBlue;
              //ExcelApp.ActiveSheet.Rows[1].Font.Bold   := True;
            end;
          end;
            //excel的列从1开始记数,DBGRIDEH的列从0开始记数
            //excel的列宽以字符为单位,DBGRIDEH的列宽不同
        end;
      finally
        ShowWaitText();
      end;
    end;
finally
    FreeAndNil(SaveDialog);
end;
end;