学习unigui【18】unidbgrid的GridsGroupingSorting

合集 - unigui(25)

1.unidbgrid的rowedit=true2022-09-062.unigui的demo-\Demos\Desktop\DBAppDemo\SimpleDemo.dproj【11】2021-05-313.unigui的session【1】2018-05-024.unigui菜单【3】2018-08-035.unigui的ini文件读写【6】2018-09-206.unigui导出TMS.Flexcel【5】2018-08-137.unigui+fastreport 打印【4】2018-08-118.unigui显示uniTreeVview使用TUniTreeNode内存泄漏的问题【14】2023-12-169.unigui显示websocket服务端向客户端发送信息【15】2023-12-2510.学习unigui【17】-数据集和JSON互相转换-DataSetConverter4D 开源项目2024-02-01

11.学习unigui【18】unidbgrid的GridsGroupingSorting2024-02-02

12.学习unigui【19】unidbgrid的Group By This Field汉化2024-02-0213.学习unigui【20】unistringGrid2024-02-2714.学习unigui【21】unistringGrid的标题栏动态增加2024-02-2915.学习unigui【22】unistringGrid的标题栏双击事件2024-03-0116.学习unigui【23】uniDBGrid的使用摘要2024-03-0917.学习unigui【25】关于图标2024-05-3018.学习unigui【24】Echart的使用：多个坐标系2024-04-2019.学习unigui【26】关于Unigui控件的个性化CSS框架2024-05-3120.学习unigui【27】像pg的jsonb一样编辑json。2024-06-0321.unigui的菜单树补习【2】treeview2018-08-0122.unigui的程序编译后自动运行傻傻的手动【7】2021-04-2823.unigui的ServerModule的重要属性【8】2021-04-2924.unigui的错误delphi clientHeight:property clientheight does not exist【10】2021-05-0325.学习unigui【28】UniGUI接收POST/GET2024-10-16

收起

折腾二天，你不按照demo里的代码来，就是没有效果。功力不够导致的。学习学习再学习！努力努力再努力！

procedure TUniGridsGroupingSorting.UniDBGrid1MultiColumnSort(
  Columns: TUniDBGridColumnArr; Directions: TUniSortDirections);
var
  OrderStr : string;
  I : Integer;
begin
  UniMainModule.ADOQuery5.Close;//必须在UniMainModule
  OrderStr := 'select * from [Customers]' + ' order by ';

  for I := Low(Columns) to High(Columns) do
  begin
    OrderStr := OrderStr + '['+Columns[I].FieldName+ '] '+IfThen(Directions[I], 'ASC', 'DESC')+',';

  end;

  OrderStr := RemoveTrailingChar(OrderStr, ',');

  UniMainModule.ADOQuery5.SQL.Text := OrderStr;
  UniMainModule.ADOQuery5.Open;
end;

其二、点击列排序：

 procedure TUniGridsColumnSort.SortColumn(const FieldName: string; Dir: Boolean);
begin
  if Dir then
    ClientDataSet1.IndexName := FieldName+'_index_asc'
  else
    ClientDataSet1.IndexName := FieldName+'_index_des';
end;

procedure TUniGridsColumnSort.UniDBGrid1ColumnSort(Column: TUniDBGridColumn;
  Direction: Boolean);
begin
  SortColumn(Column.FieldName, Direction);//必须分开写调用
end;

看明白没，必须按这种格式，分开写。否则就是不行。作者没有说明why？再WEB中这处理的理由，你知道WHY？

实际上非常简单：

1、创建内存表TFDMemTable

procedure TUniForm_SelectAPanient.UniFormCreate(Sender: TObject);
var i : Integer;
begin
  UniMainModule.fdqry_QueryPatient.Open('select * from patient_info');   //符合条件的患者资料
  fdmtbl_QueryPatient.CopyDataSet(UniMainModule.fdqry_QueryPatient, [coStructure, coRestart, coAppend]);
  fdmtbl_QueryPatient.Filter := '';
  fdmtbl_QueryPatient.IndexesActive := True;
  UniMainModule.fdqry_QueryPatient.Close;
end;

2、改变index

procedure TUniForm_SelectAPanient.undbgrd1MultiColumnSort(
  Columns: TUniDBGridColumnArr; Directions: TUniSortDirections);
var
  i : integer;
  OrderStr : string;
begin
  OrderStr := '';
  for I := Low(Columns) to High(Columns) do
  begin
    OrderStr := OrderStr + Columns[I].FieldName+ IfThen(Directions[I], ':A', ':D')+';';
  end;
  Delete(OrderStr, Length(OrderStr), 1);
  fdmtbl_QueryPatient.IndexFieldNames := OrderStr;
end;

 good luck！