HotXLS: database export to spreadsheet reports in Delphi

Dieser deutsche Artikel behandelt HotXLS: database export to spreadsheet reports in Delphi für Teams, die mit Delphi, C++Builder, Lazarus/FPC und losLab-Komponenten arbeiten

Der Fokus liegt auf praxisnahen Entscheidungen, Fallstricken und Prüfpunkten, damit die Lösung im produktiven Einsatz verlässlich bleibt

Architekturentscheidungen

Treat the dataset schema as a workbook contract. field-to-column mapping, captions, order, grouping, and sort rules / null, date, time zone, currency, decimal, and Boolean formatting

• field-to-column mapping, captions, order, grouping, and sort rules
• null, date, time zone, currency, decimal, and Boolean formatting
• formula totals, subtotals, filters, frozen panes, and table-like navigation
• streaming, pagination, and memory policy for large result sets

Implementierungsablauf

Map database fields to worksheet semantics. The order below keeps the workflow reviewable for Delphi and C++Builder teams.

1. derive an export profile from the report requirement and dataset schema
2. validate field types and required columns before creating the workbook
3. write headers, formats, and formulas before streaming large row groups
4. apply filters, freeze panes, totals, and page setup after the data range is known
5. compare row counts and key aggregates with the source query

Validierungsnachweise

Export diagnostics for support and finance teams. Keep these fields with the output or support record.

• query identifier, field mapping, row count, column count, and export profile
• null and data-type conversions, locale profile, and formula summary
• source aggregate totals compared with workbook totals
• warnings for truncated text, unsupported types, or memory-limit fallback

Types matter more than cell values

Database export needs explicit mapping from field types to worksheet cells, number formats, formulas, totals, and visible labels. Without that mapping, users receive a workbook that looks correct but behaves poorly in analysis.

Implementierungshinweise für die Produktion

Behandle HotXLS: database export to spreadsheet reports in Delphi als klaren Servicevertrag rund um die HotXLS-Aufrufe, mit getrennten Schritten für Eingabeprüfung, Arbeitsmappenaufbau, Ausgabekontrolle und Support-Evidenz

• Datenquelle, Zellbereiche und Ausgabeformat festlegen, bevor die Arbeitsmappe erzeugt wird
• Zeilenanzahl, Blattanzahl, Warnungen und Ausgabepfad in ein prüfbares Support-Protokoll schreiben
• Anwendungsspezifische Details in testbare Helper kapseln, statt sie in UI-Ereignissen zu verteilen
• Die gespeicherte Datei erneut öffnen oder prüfen, bevor sie an ein anderes System oder an Kunden geht

Fehlerfälle, die getestet werden sollten

• Ein erfolgreicher SaveAs-Aufruf beweist noch nicht, dass der fachliche Vertrag stimmt
• Schriftarten, Rechte und regionale Einstellungen können auf Servern anders sein als auf Entwicklerrechnern
• Logs dürfen keine Passwörter, Kundendaten oder internen Links offenlegen

Ausführliches Delphi-Beispiel

Das folgende Beispiel zeigt eine praktische Servicegrenze für dieses Thema und hält Policy, Logging und Validierung testbar getrennt

procedure ExportCustomerReport(DataSet: TDataSet; const OutputFile: string);
var
  Wb: TXLSXWorkbook;
  Sh: IXLSWorksheet;
  RowIndex: Integer;
begin
  RequireOpenDataSet(DataSet);
  Wb := TXLSXWorkbook.Create;
  try
    Sh := Wb.Sheets[0];
    Sh.Name := 'Customers';
    WriteHeaderRow(Sh, ['CustomerId', 'Name', 'Region', 'Balance', 'LastOrder']);

    RowIndex := 2;
    DataSet.First;
    while not DataSet.Eof do
    begin
      Sh.Range['A' + IntToStr(RowIndex)].Value := DataSet.FieldByName('CustomerId').AsString;
      Sh.Range['B' + IntToStr(RowIndex)].Value := DataSet.FieldByName('Name').AsString;
      Sh.Range['C' + IntToStr(RowIndex)].Value := DataSet.FieldByName('Region').AsString;
      Sh.Range['D' + IntToStr(RowIndex)].Value := DataSet.FieldByName('Balance').AsCurrency;
      Sh.Range['E' + IntToStr(RowIndex)].Value := DataSet.FieldByName('LastOrder').AsDateTime;
      Inc(RowIndex);
      DataSet.Next;
    end;

    Sh.Range['A1:E1'].ApplyBuiltinStyle(xbsTitle);
    ApplyDateAndCurrencyFormats(Sh, RowIndex - 1);
    AddAutoFilterToHeader(Sh, 'A1:E' + IntToStr(RowIndex - 1));
    WriteExportManifest(Wb, DataSet, RowIndex - 2);

    if Wb.SaveAs(OutputFile) <> 1 then
      RaiseWorkbookSaveError(OutputFile);
  finally
    Wb.Free;
  end;
end;

Produktionscheckliste

• Run the workflow on an empty workbook, a normal customer workbook, and a worst-case workbook
• Open the output with the target spreadsheet application or downstream importer
• Log product version, template version, profile, row count, output path, elapsed time, and warning count
• Keep passwords, temporary files, customer data, and support bundles under explicit retention rules
• Add regression workbooks when a customer file exposes a new edge case

Product documentation

HotXLS Component

Zusätzliche Codebeispiele

uses lxXlsxExport;

Exporter.SaveDatasetAs('orders.xls');
// the component exposes the IXLSWorkbook it populated
SaveXLSWorkbookAsXLSX(Exporter.Workbook, 'orders.xlsx');

procedure ExportOrders(Q: TDataSet; const FileName: string);
var
  Book: TXLSXWorkbook;
  Sheet: TXLSXWorksheet;
  Row: Integer;
begin
  Book := TXLSXWorkbook.Create;
  try
    Sheet := Book.Sheets.Add('Orders');
    Sheet.Cells[1, 1].Value := 'Order No';
    Sheet.Cells[1, 2].Value := 'Customer';
    Sheet.Cells[1, 3].Value := 'Ordered';
    Sheet.Cells[1, 4].Value := 'Amount';

    Row := 2;
    Q.First;
    while not Q.Eof do
    begin
      Sheet.Cells[Row, 1].Value := Q.FieldByName('OrderNo').AsInteger;
      Sheet.Cells[Row, 2].Value := Q.FieldByName('Customer').AsString;
      if not Q.FieldByName('Ordered').IsNull then
        Sheet.Cells[Row, 3].Value := Q.FieldByName('Ordered').AsDateTime;
      Sheet.Cells[Row, 4].Value := Q.FieldByName('Amount').AsFloat;
      Inc(Row);
      Q.Next;
    end;

    Book.StreamingWrite := True;  // stream sheet XML straight into the zip
    Book.SaveAs(FileName);
  finally
    Book.Free;
  end;
end;