网站做专题页面,深圳企业做网站公司哪家好,做防护用品的网站,做电影网站的程序DBGridEh 可以点列抬头使得记录按该列排序
不需要写代码#xff0c;只需要设置好#xff0c;它就能排序。
网上的文章一般写了如何设置。但一般都少说了一条。
先说如何设置#xff1a;
1. OptionsEh.AutoSortMarking 设置为 True#xff0c;如果是设计期属性面板…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);
beginShowMessage(ClientDataSet1.IndexFieldNames);ShowMessage(ClientDataSet1.IndexName);
end;
程序运行后用户点击 DBGridEh 的字段抬头排序之前点击 Button3 执行上述代码弹出来的对话框是空的。
用户点击 DBGridEh1 的字段抬头排序之后运行上述代码可以看到
1. ClientDataSet1.IndexFieldNames 仍然是空的
2. ClientDataSet1.IndexName 为SortIndexEh
说明当用户点击 DBGridEh 的字段抬头DBGridEh 自动为记录排序时实际上它是为它对应的 ClientDataSet1 增加了一个索引
因此取消排序就简单了
procedure TForm1.Button4Click(Sender: TObject);
beginClientDataSet1.IndexName : ;
end;
执行完上述代码可以看到DBGridEh1 里面的记录顺序确实恢复到了排序之前的顺序。
进一步讨论
其实有必要取消排序恢复到原始混乱的排序吗
对用户来说其实他需要的是各种排序。比如先按照名字排序看完了可能想按照性别排序来看。看完了可能想按照年龄排序来看。因此只需要对各个字段设置为可以点抬头排序就好了。实在想不出来有什么需求是要看原始混乱排序的顺序的。
