单击dbgrid列标题排序 升降序

procedure TForm3.DBGrid1TitleClick(Column: TColumn);
begin
if frmDataPool.qry需要做的事.SQL.Text.Contains('DESC') then
begin
with frmDataPool.qry需要做的事 do
begin
Close;
SQL.Text := 'SELECT * FROM 需要做的事 ORDER BY '+Column.FieldName+' ASC';
Open;
end;
end else begin
with frmDataPool.qry需要做的事 do
begin
Close;
SQL.Text := 'SELECT * FROM 需要做的事 ORDER BY '+Column.FieldName+' DESC';
Open;
end;
end;
end;