DBGridEh 的排序

pcplayer

于 2024-03-01 21:43:27 发布

阅读量1k

点赞数 14

文章标签： Delphi 数据库

本文链接：https://blog.csdn.net/pcplayer/article/details/136406154

版权

本文介绍了如何在Delphi中使用DBGridEh进行排序，特别是与TClientDataSet和EhlibCDS的关系。重点在于设置排序选项、ClientDataSet的自动排序以及如何通过取消索引来恢复原始顺序。

摘要由CSDN通过智能技术生成

DBGridEh 可以点列抬头使得记录按该列排序

不需要写代码，只需要设置好，它就能排序。

网上的文章一般写了如何设置。但一般都少说了一条。

先说如何设置：

1. OptionsEh.AutoSortMarking 设置为 True，如果是设计期属性面板，就是打勾；

2. 如果要按多个字段排序，则：OptionsEh.dghMultiSortMarking 打勾；

3. SortLocal 打勾；

4. 如果是设计期，为 DBGridEh 创建固定字段（Columns），选中要排序的字段，在其属性面板找到：

4.1. Title.TitelButton 打勾；

4.2. Title.SortMarker 可以选择默认值，也就是没排序箭头。但当执行完排序，这个箭头会显示出来。

5. 重点来了：如果这个 DBGridEh 对应的 DataSet 是 ClientDataSet，就需要在它所在的单元 uses EhlibCDS

为啥要 uses EhlibCDS

请参考以下这段话：

EhLib已经实现了能在TQuery, TADOQuery 和TClientDataSet对象中排序数据的类。简单地通过 uses 子句添加 Ehlib...（EhlibBDE,EhlibADO,EhlibCDS）的单元之一到你的工程的任意单元中，与它们相连的数据网格将自动对该数据集进行排序。 EhLibBDE, EhLibADO, EhLibCDS 通过在单元数据集中调用 RegisterDatasetFeaturesEh 过程来实现初始化。
对于其它数据集类型，你必须编写、并注册可以实现该数据集排序的新对象。书写过程 T[你的数据集]DatasetFeaturesEh.ApplySorting ，你可以存取那些使用了 SortMarkedColumns 属性的列以实现直接排序。你可以查看 DbUtilsEh 单元中的示例以明白如何编写T[你的数据集]DatasetFeaturesEh 类及查看 EhLibBDE 单元以明白如何注册 T[你的数据集]DatasetFeaturesEh 类。

大概意思：DBGridEh 实际上是依靠它对应的 DataSet 去排序的。TDataSet 本身没有实现排序功能，但它的子类，比如 TClientDataSet 实现了排序功能。因此，如果要它自动排序，需要引用它提供的对应该 DataSet 的排序单元。如果你使用的 DataSet 不是它支持的，就要自己去实现，并注册。

概念

Delphi 的数据敏感控件，比如 DBGrid 或者 DBGridEh，通过 DataSource 指向一个 DataSet；数据敏感控件本身仅仅是用于数据的显示，它并不拥有数据，也不管理数据。所有对数据的操作，都是在操作 DataSet。

因此，表面上看，点击的 DBGridEh 的字段抬头后，里面的数据排序了。但实际上，是它背后的 DataSet 里面的数据排序了。

进一步的测试

有人想要点击 DBGridEh 的字段抬头排序以后，还想要在排序后可以取消排序，恢复 DBGridEh 里面的记录的原来的排列顺序。

基于以上排序的原理，可以知道，排序实际上是对 DataSet 而言的。因此，使用以下代码测试：

procedure TForm1.Button3Click(Sender: TObject);
begin
  ShowMessage(ClientDataSet1.IndexFieldNames);

  ShowMessage(ClientDataSet1.IndexName);
end;

程序运行后，用户点击 DBGridEh 的字段抬头排序之前，点击 Button3 执行上述代码，弹出来的对话框是空的。

用户点击 DBGridEh1 的字段抬头排序之后，运行上述代码，可以看到：

1. ClientDataSet1.IndexFieldNames 仍然是空的；

2. ClientDataSet1.IndexName 为：SortIndexEh

说明当用户点击 DBGridEh 的字段抬头，DBGridEh 自动为记录排序时，实际上它是为它对应的 ClientDataSet1 增加了一个索引！

因此，取消排序就简单了：

procedure TForm1.Button4Click(Sender: TObject);
begin
  ClientDataSet1.IndexName := '';
end;

执行完上述代码，可以看到，DBGridEh1 里面的记录顺序确实恢复到了排序之前的顺序。

进一步讨论

其实，有必要取消排序，恢复到原始混乱的排序吗？

对用户来说，其实他需要的是各种排序。比如先按照名字排序，看完了，可能想按照性别排序来看。看完了，可能想按照年龄排序来看。因此，只需要对各个字段设置为可以点抬头排序就好了。实在想不出来有什么需求，是要看原始混乱排序的顺序的。