Delphi中DBgrid控件数据库点击某列按序排列

Delphi中DBgrid控件数据库点击某列按序排列

procedure Tmainform.DBGrid2TitleClick(Column: TColumn);

var i : integer;

begin

for i:= 1 to DBGrid2.Columns.Count do

begin

//恢复所有标题字体为默认

DBGrid2.Columns[i-1].Title.Font.Color := clWindowText;

DBGrid2.Columns[i-1].Title.Font.Style := [];

end;

if DataModule1.recevierADOQuery.Sort<>(Column.FieldName+' ASC') then //判断原排序方式

begin

DataModule1.recevierADOQuery.Sort := Column.FieldName+' ASC';

Column.Title.Font.Color := clRed; //改变标题行字体为红色，表示当前的排序方式为升序

Column.Title.Font.Style := [fsBold];

end

else

begin

DataModule1.recevierADOQuery.Sort := Column.FieldName+' DESC';

Column.Title.Font.Color := clBlue; //改变标题行字体为红色，表示当前的排序方式为降序

Column.Title.Font.Style := [fsBold];

end;

end;