grid排序.txt

来自「dbgrid显示数据库记录时,可以建立ontitle事件使鼠标控制grid滚动」· 文本 代码 · 共 21 行

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
  var   i   :   integer;
  begin
      for   i:=   1   to   DBGrid1.Columns.Count   do
      begin
  //恢复所有标题字体为默认
          DBGrid1.Columns[i-1].Title.Font.Color   :=   clWindowText;
          DBGrid1.Columns[i-1].Title.Font.Style   :=   [];
      end;
      if   ADOQuery1.Sort<>(Column.FieldName+'   ASC')   then             //判断原排序方式
      begin
          ADOQuery1.Sort   :=   Column.FieldName+'   ASC';
          Column.Title.Font.Color   :=   clRed;                     //改变标题行字体为红色，表示当前的排序方式为升序
          Column.Title.Font.Style   :=   [fsBold];
      end
      else   begin
          ADOQuery1.Sort   :=   Column.FieldName+'   DESC';
          Column.Title.Font.Color   :=   clBlue;                   //改变标题行字体为红色，表示当前的排序方式为降序
          Column.Title.Font.Style   :=   [fsBold];
      end;
  end;