//欲实现点击DBGrid的Title对查询结果排序,想作一个通用程序,不是一事一议,
//例如不能在SQL语句中增加Order by ...,因为SQL可能原来已经包含Order by ...,
//而且点击另一个Title时又要另外排序,目的是想作到象资源管理器那样随心所欲。
procedure TfrmChild.DBGrid1TitleClick(Column: TColumn);
var
SqlStr,myFieldName,TempStr: string;
OrderPos: integer;
SavedParams: TParams;
begin
if not (Column.Field.FieldKind in [fkData,fkLookup]) then exit;
if Column.Field.FieldKind =fkData then
myFieldName := UpperCase(Column.Field.FieldName)
else
...[ 查看全文 ]