UniDBGrid 列排序

UniDBGrid 列排序

1. 把需要排序的列的属性Sortable设置为True （需要把几个列排序，就设置几个）
   
2. 编写 UniDBGrid 的 onColumnSort 事件
   
3. 事件代码参考如下：
   用不同的数据库查询控件写法有所区别，主要是不同控件的属性名称不太一样，下面是 ADOQuery 控件的写法：

procedure TMainForm.UniDBGrid1ColumnSort(Column: TUniDBGridColumn;
  Direction: Boolean);
begin
  if Direction then   ADOQuery1.Sort := Column.FieldName + ' ASC'
     else  ADOQuery1.Sort := Column.FieldName + ' DESC' ;
end;

下面是 UniQuery 控件的写法：

procedure TMainForm.UniDBGrid1ColumnSort(Column: TUniDBGridColumn;
  Direction: Boolean);
begin
  if Direction then   UniQuery1.IndexFieldNames := Column.FieldName + ' ASC'
     else  UniQuery1.IndexFieldNames := Column.FieldName + ' DESC' ;
end;

注意： ' ASC'中的ASC前面要有空格
如果使用 ADO 组件（例如：数据库连接控件 TADOConnection），则需要将 TUniServerModule 的自动初始化属性 AutoColnitialize 设置为 True。（其他的不知道^_）

UniGUI自带范例参考： ..\Framework\uniGUI\Demos\Desktop\GridColumnSort