如何在Delphi DBGrid中添加基于总量的百分比列（不修改TADOTable）

我之前也遇到过几乎一模一样的需求——不能改动原有TADOTable，还要基于聚合值计算百分比列。这里有两种实用方案，你可以根据自己的场景选：

方案一：直接在DBGrid绘制时计算（无需额外组件） #

这种方式不用修改数据集，完全通过DBGrid的绘制事件实现，适合快速落地需求。

步骤1：提前计算总数量 #

首先得拿到所有行的Quantity总和，建议把计算逻辑封装成方法，在合适的时机调用：

var
  TotalQuantity: Double; // 声明为窗体全局变量或类成员

procedure TYourForm.CalculateTotalQuantity;
begin
  if not ADOTable1.Active then Exit;
  
  // 优先用ADO内置Sum函数，比循环遍历快得多
  TotalQuantity := ADOTable1.Sum('Quantity');
  
  // 如果Sum函数没法用（比如特殊数据源），再用循环兜底：
  {
  ADOTable1.DisableControls;
  try
    ADOTable1.First;
    TotalQuantity := 0;
    while not ADOTable1.Eof do
    begin
      TotalQuantity := TotalQuantity + ADOTable1.FieldByName('Quantity').AsFloat;
      ADOTable1.Next;
    end;
    ADOTable1.First;
  finally
    ADOTable1.EnableControls;
  end;
  }
end;

记得在这些时机调用这个方法：

• 窗体OnCreate事件
• ADOTable的AfterOpen事件
• ADOTable的AfterPost、AfterDelete事件（数据变化时更新总和）

步骤2：在DBGrid绘制事件中动态生成百分比 #

假设你已经给DBGrid加了标题为Percentage的空列，现在在绘制该列时计算并显示：

procedure TYourForm.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  Quantity: Double;
  Percent: Double;
  PercentText: string;
begin
  // 判断当前绘制的是百分比列
  if Column.Title.Caption = 'Percentage' then
  begin
    Quantity := ADOTable1.FieldByName('Quantity').AsFloat;
    
    // 避免除以0的异常情况
    if TotalQuantity <> 0 then
      Percent := (Quantity / TotalQuantity) * 100
    else
      Percent := 0;
      
    // 格式化显示（保留2位小数+百分号，可按需调整）
    PercentText := Format('%.2f%%', [Percent]);
    
    // 绘制单元格背景
    DBGrid1.Canvas.FillRect(Rect);
    // 居中绘制文本，和默认单元格对齐方式保持一致
    DBGrid1.Canvas.TextOut(
      Rect.Left + (Rect.Right - Rect.Left - DBGrid1.Canvas.TextWidth(PercentText)) div 2,
      Rect.Top + (Rect.Bottom - Rect.Top - DBGrid1.Canvas.TextHeight(PercentText)) div 2,
      PercentText
    );
  end
  else
    // 其他列按默认逻辑绘制
    DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

方案二：用TClientDataSet做中间层（更优雅的数据集方案） #

如果希望百分比能作为数据集的一部分（支持排序、导出等场景），可以用TClientDataSet封装原有ADOTable，添加计算字段，完全不影响原有ADOTable的使用。

步骤1：添加组件并配置关联 #

在窗体上添加三个组件：

• TClientDataSet（命名为cdsData）
• TDataSetProvider（命名为dspData）
• TDataSource（命名为dsCDS，指向cdsData）

做如下配置：

1. 设置dspData.DataSet := ADOTable1
2. 设置cdsData.ProviderName := dspData.Name
3. 把DBGrid的DataSource改成dsCDS

步骤2：添加计算字段 #

1. 右键cdsData，选择Fields Editor
2. 右键Fields Editor窗口，选Add Fields，把原有Quantity等字段加进来
3. 再次右键，选New Field，设置：
   • Name: Percent
   • Type: Float（或Currency）
   • Field Type: Calculated

步骤3：实现计算逻辑 #

在cdsData的OnCalcFields事件里写计算代码：

procedure TYourForm.cdsDataCalcFields(DataSet: TDataSet);
begin
  // 同样用TotalQuantity全局变量，计算方式和方案一一致
  if TotalQuantity <> 0 then
    DataSet.FieldByName('Percent').AsFloat := (DataSet.FieldByName('Quantity').AsFloat / TotalQuantity) * 100
  else
    DataSet.FieldByName('Percent').AsFloat := 0;
end;

步骤4：同步数据变化 #

当原有ADOTable的数据更新时，要刷新ClientDataSet并重新计算总和：

procedure TYourForm.ADOTable1AfterPost(DataSet: TDataSet);
begin
  CalculateTotalQuantity;
  cdsData.Refresh;
end;

procedure TYourForm.ADOTable1AfterDelete(DataSet: TDataSet);
begin
  CalculateTotalQuantity;
  cdsData.Refresh;
end;

注意事项 #

• 一定要处理除以0的情况：如果总数量为0，百分比设为0或显示N/A都可以
• 数据同步：无论哪种方案，原数据集数据变化时都要重新计算总数量，保证百分比准确
• 性能优化：数据集很大时，优先用ADOTable.Sum('Quantity')，它会利用数据库的聚合查询能力，比循环遍历高效得多

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