使用FireDac+SQLite时，如何统计匹配记录且不影响TDBGrid

核心思路是使用独立的TFDQuery组件专门处理统计查询，完全不触碰绑定DBGrid的原有查询组件，这样就能保证DBGrid的当前分页、筛选、光标位置等状态不受任何影响。

具体实现步骤 #

1. 组件准备

• 保留原有绑定DBGrid的TFDQuery（例如命名为qryMain）、TFDConnection（例如connSQLite）、TDBGrid和关联的TDataSource。
• 新增一个TFDQuery组件（例如命名为qryCount），将其Connection属性设置为已有的connSQLite，无需关联任何DataSource或DBGrid。

2. 工具栏按钮点击事件代码
   直接在按钮的OnClick事件中编写统计逻辑，以下是两种常见场景的示例：

固定条件统计

procedure TForm1.btnStatCountClick(Sender: TObject);
var
  Total: Integer;
begin
  qryCount.SQL.Clear;
  // 替换为你的表名和条件
  qryCount.SQL.Add('SELECT COUNT(*) AS TotalNum FROM goods WHERE price > 100');
  
  try
    qryCount.Open;
    Total := qryCount.FieldByName('TotalNum').AsInteger;
    // 可将结果显示在状态栏、标签或弹窗中
    ShowMessage(Format('符合条件的记录共 %d 条', [Total]));
  finally
    qryCount.Close;
  end;
end;

动态条件（带参数防注入）

如果条件来自用户输入（比如编辑框、下拉选），必须用参数化查询避免SQL注入：

procedure TForm1.btnStatCountClick(Sender: TObject);
var
  Total: Integer;
begin
  qryCount.SQL.Clear;
  qryCount.SQL.Add('SELECT COUNT(*) AS TotalNum FROM goods WHERE category = :Category');
  
  // 从输入控件获取参数值
  qryCount.ParamByName('Category').AsString := cbxCategory.Text;
  
  try
    qryCount.Open;
    Total := qryCount.FieldByName('TotalNum').AsInteger;
    lblStat.Caption := Format('统计结果：%d 条', [Total]);
  finally
    qryCount.Close;
  end;
end;

3. 关键注意事项

• 绝对不要修改原qryMain的SQL、Filter、Active等属性，所有统计操作都由独立的qryCount完成。
• 复用现有TFDConnection避免重复建立数据库连接，提升执行效率。
• 如果统计逻辑需要频繁执行，可以提前预定义qryCount的SQL语句，仅动态修改参数即可。

内容的提问来源于stack exchange，提问作者user3161924