当单击DBGrid中的标题栏时,进行排序

方法:
关键是用DBGrid的事件 OnTitleClick
首先判断单击是哪一列,
     i:=Column.Index;
然后要确定是哪个字段
    Field:=DBGrid1.Columns[i].FieldName+ ASC;
最后进行排序:
    qryWork.Sort:=Field;
 
上面仅仅是进行升序排列,若要添加降序排列,则要用 DESC
若要单击后,升序,再单击,降序.....
则要用到一个奇偶判断
我的一个例子
(其中的bSort:Boolean,在FormShow的时候初始化)
procedure TfmPlayVideo.DBGrid1TitleClick(Column: TColumn);
var
    i:integer;
    fieldname:string;
begin//排序
    i:=Column.Index;
    if bSort then
    begin
        fieldname:=DBGrid1.Columns[i].FieldName+ ASC;
        bSort:=False;
    end
    else
    begin
        fieldname:=DBGrid1.Columns[i].FieldName+ DESC;
        bSort:=True;
    end;
    qryShow.Sort:=fieldname;
end;
 

补充：软件开发 , Delphi ,

上一个：使用ADO，多线程访问ACCESS数据库的开发。
下一个：Delphi数据库编程教程（九）