NativeExcel suite v3.x

Reference > Samples > Export with grouping

Export with grouping

This example demonstrates data grouping feature

Screenshot

Excel format

HTML format

RTF format

Source code

unit ExportWithGrouping;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBGrid2Excel, Db, Grids, DBGrids, DBTables, StdCtrls;

type
  TForm1 = class(TForm)
    Query1: TQuery;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    DBGrid2Excel1: TDBGrid2Excel;
    btnSaveAs: TButton;
    SaveDialog1: TSaveDialog;
    procedure btnSaveAsClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.btnSaveAsClick(Sender: TObject);
begin
  If SaveDialog1.Execute then begin
     //disable button
     btnSaveAs.Enabled := false;

     with DBGrid2Excel1 do begin

        GroupFont.Color := clMaroon;
        GroupFont.Size := 10;
        GroupFont.Name := 'Arial';
        GroupFont.Style := [fsBold, fsItalic];

        GroupColor := clYellow;

        GroupBorderStyle := BorderStyleSingleThin;

        GroupFields.Clear;
        GroupFields.Add('Terms');
        GroupFields.Add('PaymentMethod');
     end;

     DBGrid2Excel1.SaveDBGridAs(SaveDialog1.FileName);
     btnSaveAs.Enabled := true;
  end;
end;

end.