点击Ehlib列标题的快速排序方法---最新(转帖)

最新推荐文章于 2018-05-23 11:05:26 发布

转载最新推荐文章于 2018-05-23 11:05:26 发布 · 1.1k 阅读

文章标签：

#integer #string #sql

Delphi学习专栏收录该内容

31 篇文章

订阅专栏

本文介绍了一种针对DBGridEh组件的快速排序方法，通过使用ADO的sort方法实现了高效的数据排序功能，支持升序、降序及默认排序，并且支持排序图标显示。此方法不适用于带有OrderBy的SQL语句或计算字段。

Ehlib3.0以后的版本虽然支持排序功能，但不支持带有Order By的SQL语句，而且排序很慢；我写的这个排序函数，利用ADO的sort方法，排序很快，几万条数据也是很快。该函数支持Lookup字段排序，不支持计算字段排序，因为计算字段值在内存里高速运算。排序分为：升序、降序和默认三种，支持排序图标。

procedure SortDBGridEh(Sender: TObject; ACol: Integer; Column: TColumnEh); var FieldName, SortStr: string; begin Screen.Cursor := crSQLWait; try if (Sender is TDBGridEh) and ((Sender as TDBGridEh).DataSource.DataSet <> nil) then begin if not ((Sender as TDBGridEh).DataSource.DataSet is TCustomADODataSet) then Exit; if not (Sender as TDBGridEh).DataSource.DataSet.Active then Exit; FieldName := Column.FieldName; if (Sender as TDBGridEh).DataSource.DataSet.FindField(FieldName).IsBlob then Exit; if (Sender as TDBGridEh).DataSource.DataSet.FieldByName(FieldName).FieldKind = fkData then SortStr := FieldName else if (Sender as TDBGridEh).DataSource.DataSet.FieldByName(FieldName).FieldKind = fkLookup then FieldName := (Sender as TDBGridEh).DataSource.DataSet.FieldByName(FieldName).KeyFields else FieldName := ''; if (FieldName = '') or (Pos(';', FieldName) > 0) then Exit; case Column.Title.SortMarker of smNoneEh: begin Column.Title.SortMarker := smUpEh; TCustomADODataSet((Sender as TDBGridEh).DataSource.DataSet).Sort := FieldName; end; smUpEh: begin Column.Title.SortMarker := smDownEh; TCustomADODataSet((Sender as TDBGridEh).DataSource.DataSet).Sort := FieldName + ' DESC'; end; smDownEh: begin Column.Title.SortMarker := smNoneEh; TCustomADODataSet((Sender as TDBGridEh).DataSource.DataSet).Sort := ''; end; end; end; finally Screen.Cursor := crDefault; end; end;

--程序实现如下：
--在DBGridEh的事件OnTitleBtnClick引用该函数即可：

procedure TFrmU_BasicSetup.dbgAddrCodeTitleBtnClick(Sender: TObject; ACol: Integer; Column: TColumnEh); begin SortDBGridEh(Sender, ACol, Column); end;

--为了保证表格的每一列都能点击触发排序，你需要将你需要排序的列属性
-- Title->TitleButton设置为True。

注意：只需选中DBGridEH的列--->Title->TitleButton设置为True即可，其他不用设置。无需设置DBGridEH--->OptionsEh--->ghAutoSortMarking为True,否则在遇到带有Order by语句时会报错。

原帖转自：http://blog.youkuaiyun.com/xieyunc/archive/2009/05/02/4142891.aspx