//欲实现点击DBGrid的Title对查询结果排序,想作一个通用程序,不是一事一议,
//而且点击另一个Title时又要另外排序,目的是想作到象资源管理器那样随心所欲。
procedure TForm5.dbgrd1TitleClick(Column: TColumn);
var
myFieldName: string;
begin
if not (Column.Field.FieldKind in [fkData,fkLookup]) then exit;
if Column.Field.FieldKind =fkData then
myFieldName := UpperCase(Column.Field.FieldName)
else
myFieldName := UpperCase(Column.Field.KeyFields);
while Pos(myFieldName,';')<>0 do
myFieldName := copy(myFieldName,1,Pos(myFieldName,';')-1)
+ ',' + copy(myFieldName,Pos(myFieldName,';')+1,100); //把";"改为","
with TADOQuery(TDBGrid(Column.Grid).DataSource.DataSet) do
begin
if Column.Field.Tag=0 then
begin
sort:=myFieldName + ' ASC';
Column.Field.Tag:=1;
end
else
begin
sort:=myFieldName + ' Desc';
Column.Field.Tag:=0;
end;
end;
end;
//而且点击另一个Title时又要另外排序,目的是想作到象资源管理器那样随心所欲。
procedure TForm5.dbgrd1TitleClick(Column: TColumn);
var
myFieldName: string;
begin
if not (Column.Field.FieldKind in [fkData,fkLookup]) then exit;
if Column.Field.FieldKind =fkData then
myFieldName := UpperCase(Column.Field.FieldName)
else
myFieldName := UpperCase(Column.Field.KeyFields);
while Pos(myFieldName,';')<>0 do
myFieldName := copy(myFieldName,1,Pos(myFieldName,';')-1)
+ ',' + copy(myFieldName,Pos(myFieldName,';')+1,100); //把";"改为","
with TADOQuery(TDBGrid(Column.Grid).DataSource.DataSet) do
begin
if Column.Field.Tag=0 then
begin
sort:=myFieldName + ' ASC';
Column.Field.Tag:=1;
end
else
begin
sort:=myFieldName + ' Desc';
Column.Field.Tag:=0;
end;
end;
end;