1 前言

对自定义表格中录入或者导入的数据，必须能定义查询和汇总，否则程序基本没什么用。就是说，程序应该具备对任意表格进行方便的查询汇总公式开发的功能。

2 生成数据

用外部电子表格文件生成sqlite的表非常方便。也可以用程序自带的生成测试数据功能，生成一个people(职员)表，这里指定生成1000条数据。不知道为什么速度很慢。

竟然用了13秒多。以后有时间了查查原因。

好了现在有了测试数据表：

可以用这些数据做很多测试工作。

3 设计一个汇总

位置：工具——审核与查询设计

开发时间所限，暂且把查询和汇总放到一起。

切换到“查询”选项卡，点“新建”，生成了一个sql语句框架：

选中一个表，这个表的字段会列出，选“工资字段”，点“加和”按钮，双击一个字段名称，插入到汇总公式中，完成后测试，测试成功后，保存：

定义一个汇总名称：

这样就完成了。

4 试一下效果

菜单位置：功能——查询，双击刚才定义的“分区域职工工资之和”。

导出电子表格文件：

5 导出为excel文件的源代码

procedure TFormQuery.btnOutPortClick(Sender: TObject);
var
  Exporter: TFPSExport;
  ExportSettings: TFPSExportFormatSettings;
  fnOut: string;
begin

  SaveDialog1.Filter := 'Excel文件|*.xlsx';
  if SaveDialog1.Execute then
    fnOut := SaveDialog1.FileName
  else
    exit;

  Exporter := TFPSExport.Create(nil);
  ExportSettings := TFPSExportFormatSettings.Create(true);

  try
    // Write header row with field names
    ExportSettings.HeaderRow := true;
    ExportSettings.ExportFormat := efXLSX;
    // Actually apply settings
    Exporter.FormatSettings := ExportSettings;

    // Write
    Exporter.Dataset := querySummary;
    Exporter.FileName := fnOut;
    Exporter.Execute;
    memo1.append('导出完成: ' + fnOut);
  finally
    Exporter.Free;
    ExportSettings.Free;
  end;

end;

可以导出为很多种格式，这里只使用 efXLSX 格式。

不得不说，这个处理电子表格的fpsreadsheet太牛了，继续点赞！