Delphi表格控件DBGridEh应用实例4-

1、4.统计功能1)页脚合计1、设置 DBGRIDEH属性的 FooterRowCount 值为 1;2、设置 DBGRIDEH属性的 SumList的 Active 值为 true;3、设置你要求和的该列的Footer 的 ValueType类型为 fvtSum;4、运行 OK！在 DataSet 打开时写 : DBGridEh1.Columns0.Footer.Value :=IntToStr DBGridEh1.DataSource.DataSet.RecordCount);使用 TDBSumList组件2)定制表格底部（ footer ）区域的汇总统计行DBGridEh组件可以在表格底部显

2、示汇总行，如记录数合计、列字段累加和等信息。在 FooterRowCount 中设置底部显示的行数；然后在 Footers 编辑器中添加一个或多个显示列，显示列可以是字段值累加和、记录数合计、字段值或静态文件等集合类型，可以在设计时在 ValueType属性中设置，也可在运行时通过设置 Footersi.ValueType 指定其类型。其含义见下表：切记设置 DBGridEh.SumList.Active为 True，才会进行汇总统计运算。需注意的是，如显示类型为不是当前列的累加和，则需在 fieldname 属性中指定汇总列，其它类型则无此要求。3)TDBSumList说明你可以使用 TDB

3、SumList在可视动态变化数据集中进行记录统计。在你想查看的数据集中设置相关的数据字段，然后写 SumListChanged事件来指定在TDBSumList发生改变后所要做的操作。TDBSumList的 SumCollection属性上一个1 / 4TDBSum对象容器。每个 TDBSum对象是一个可以指定集合值的元件。 FieldName 和 GroupOperation 决定了集合值的类型，SumValue控制当前的集合值。TDBSumList被埋藏于 DBGridEh组件中，因此所的下面有关TDBGridEh.SumList的说明与 TDBGirdEh的 TDBGridEh.SumLi

4、st属性的说明是一样的。如何工作以及为什么有时SumList的集合值计算不正确？你知道 data-aware 控件与数据集是通过 TDataLink对象相连接的。 TDataLink 不允许快速重新计算集合值。例如，当从数据集中删除记录时，数据集发送deDatASEtChange事件给所有的 TDataLink对象，在当前局部过滤发生改变时，同样的事件也被发送了。因此当 TDataLink接收到该事件时，它不得不在所有的数据集中重新计算集合值，甚至于仅从数据集中删除一条记录。在激活后， TDBSumList重载了数据集的下列事件： OnAfterEdIT,OnAfterInsert, OnAf

5、terOpen, OnAftERPost, OnAfterScroll,OnBeforeDelete,OnAfterClose。这种方法避免了在所有的数据集中它。在不需要它时，又会出现其它的问题，比如： T 运行时指定这些事件。在指定上述事件之一以前，关闭 SumList。在下面的情形下， SumList发出存取错误信息。SumList试着向数据集返回事件，但数据集数据并未被删除。在SumList(或网格 )以及数据集放置在不同的窗体（数据模块）这种情况下，可以显示数据。在这种情况下，试着在从数据集或数据模块中数据集数据被删除时关闭SumList。如果你使用 SetRange或 ApplyRa

6、nge事件， SumList将不能跟踪数据集中发生的变化。但可以调用 SumList.RecalAll方法。在非 BDE数据集的主 / 明细表中， SumList不能跟踪数据变化。在主数据集激活状态数据集发生变化后，调用 SumList.RecalAll方法。在任何其它情况下，如果你发现了其它 SumList的计算值不正确，你都可以调用 RecalAll方法。2 / 44)如何工作以及为什么有时SumList的集合值计算不正确？你知道 data-aware 控件与数据集是通过 TDataLink对象相连接的。 TDataLink 不允许快速重新计算集合值。例如，当从数据集中删除记录时，数据集发

7、送deDatASEtChange事件给所有的 TDataLink对象，在当前局部过滤发生改变时，同样的事件也被发送了。因此当 TDataLink接收到该事件时，它不得不在所有的数据集中重新计算集合值，甚至于仅从数据集中删除一条记录。在激活后，TDBSumList重载了数据集的下列事件： OnAfterEdIT,OnAfterInsert, OnAfterOpen, OnAftERPost, OnAfterScroll, OnBeforeDelete,OnAfterClose。这种方法避免了在所有的数据集中它。在不需要它时，又会出现其它的问题，比如： T 运行时指定这些事件。在指定上述事件之一以

8、前，关闭 SumList。在下面的情形下， SumList发出存取错误信息。 SumList试着向数据集返回事件，但数据集数据并未被删除。在 SumList(或网格 )以及数据集放置在不同的窗体（数据模块）这种情况下，可以显示数据。在这种情况下，试着在从数据集或数据模块中数据集数据被删除时关闭 SumList。如果你使用 SetRange或ApplyRange事件， SumList将不能跟踪数据集中发生的变化。但可以调用SumList.RecalAll方法。在非 BDE数据集的主 / 明细表中， SumList不能跟踪数据变化。在主数据集激活状态数据集发生变化后，调用 SumList.Reca

9、lAll方法。在任何其它情况下，如果你发现了其它 SumList的计算值不正确，你都可以调用 RecalAll方法。5)dbgridehxx 求和vartmpCol: TColumnEh;beginfor I := 0 to DBGridEh2.Columns.Count - 1 do / Iteratebegin3 / 4tmpCol := DBGridEh2.Columnsi;if tmpCol.Field.DataType in ftSmallint, ftInteger, ftWord, ftFloat, ftCurrency thentmpCol.Footer.ValueType := fvtSum;end; / forend改一下 .vartmpCol: TColumnEh;beginfor I := 0 to DBGridEh2.Columns