使用“EHlib”导出数据，（下面有段代码，请达人帮我使用Ehlib导出数据）

Question

-----------------------------------------------
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGridEh, StdCtrls;type
  TForm1 = class(TForm)
    DBGridEh1: TDBGridEh;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
   
   
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
    close;
end;end.
---------------------------------------

Answer 1

引用DBGridEhImpExp单元 
然后 
procedure TFrmQuery.BtnExportClick(Sender: TObject); 
var 
  exp: TDBGridEhExportAsXLS; 
begin 
  if dlgSave1.Execute then 
  begin 
    try 
      exp:=TDBGridEhExportAsXLS.Create; 
      exp.DBGridEh:=DBGridEh1; 
      exp.ExportToFile(dlgSave1.FileName,True); 
    finally 
      exp.Free; 
    end; 
  end; 
end;

Answer 2

uses DBGridEhImpExp {引用此单元}procedure TForm1.Button1Click(Sender: TObject);
var
  ExpClass:TDBGridEhExportClass;   
begin
   { SaveDialog1.Filter:='Excel文件 (*.xls)|*.xls';
    SaveDialog1.DefaultExt:='xls';  }
    if SaveDialog1.Execute then
     begin
        ExpClass:=TDBGridEhExportAsXLS;
        SaveDBGridEhToExportFile(ExpClass,dbgrideh1,SaveDialog1.FileName,true); {TRUE表示保存DBgrideh显示的所有记录,FALSE仅保存选择的记录}
      end;
end;

Answer 3

uses DBGridEhImpExp {引用此单元}procedure TForm1.Button1Click(Sender: TObject);
var
  ExpClass:TDBGridEhExportClass;   
begin
   { SaveDialog1.Filter:='Excel文件 (*.xls)|*.xls';
    SaveDialog1.DefaultExt:='xls'; }
    if SaveDialog1.Execute then
     begin
        ExpClass:=TDBGridEhExportAsXLS;
        SaveDBGridEhToExportFile(ExpClass,dbgrideh1,SaveDialog1.FileName,true); {TRUE表示保存DBgrideh显示的所有记录,FALSE仅保存选择的记录}
      end;
end;