Unigui 的TUniDBGrid排序功能V2

之前写了一个TUniDBGrid的排序，是拼接sql语句实现，缺点是排序一次要连接数据库一次，增加服务器负担，现发布第二版本，排序不再重新连接数据库。

代码比较简单，几行就可以实现。

http://ehr.kopsoft.cn?url=TUniFrame_hr_User

 

免费人力资源管理软件,免费Mes系统,免费仓库管理软件WMS

 

写个公用的，在TUniDBGrid的对应事件中直接调用即可

--单列排序，在TUniDBGridColumnSort中调用

procedure DbGridSortByCol(dbGrid: TUniDBGrid; Column: TUniDBGridColumn; Direction: Boolean);

var SortStr:string;
begin
if Direction then
SortStr := Column.FieldName
else
SortStr := Column.FieldName + ' DESC';

TCustomUniDataSet(dbGrid.DataSource.DataSet).IndexFieldNames := SortStr ;

end;