两个简单的老问题,可是一直没弄出正确答案,希望大家给个详细点的结果,谢谢,dbgrid点击标题栏自动排序,还有字段中是'0''1'这种数据的读取

Question

点击标题栏自动排序,是用query获取的数据,读入dbgrid,
字段中是'0''1'这种数据的读取入dbgrid中时分别赋值为'无''有'
希望能详细点，本人实在是有点菜,琢磨了好久,终于不想再在这两个问题上费劲了，80分相赠,快来帮忙呀，

Answer 1

欲实现点击DBGrid的Title对查询结果排序，想作一个通用程序，不是一事一议， 
例如不能在SQL语句中增加Order by ...，因为SQL可能原来已经包含Order by ...，而且点击另一个Title时又要另外排序，目的是想作到象资源管理器那样随心所欲。procedure TFHkdata.SortQuery(Column:TColumn);varSqlStr,myFieldName,TempStr: string;OrderPos: integer;SavedParams: TParams;beginif not (Column.Field.FieldKind in [fkData,fkLookup]) then exit;if Column.Field.FieldKind =fkData thenmyFieldName := UpperCase(Column.Field.FieldName)elsemyFieldName := UpperCase(Column.Field.KeyFields);while Pos(myFieldName,';')<>0 domyFieldName := copy(myFieldName,1,Pos(myFieldName,';')-1)+ ',' + copy(myFieldName,Pos(myFieldName,';')+1,100);with TQuery(TDBGrid(Column.Grid).DataSource.DataSet) dobeginSqlStr := UpperCase(Sql.Text);// if pos(myFieldName,SqlStr)=0 then exit;if ParamCount>0 thenbeginSavedParams := TParams.Create;SavedParams.Assign(Params);end;OrderPos := pos('ORDER',SqlStr);if (OrderPos=0) or(pos(myFieldName,copy(SqlStr,OrderPos,100))=0) thenTempStr := ' Order By ' + myFieldName + ' Asc'else if pos('ASC',SqlStr)=0 thenTempStr := ' Order By ' + myFieldName + ' Asc'elseTempStr := ' Order By ' + myFieldName + ' Desc';if OrderPos<>0 then SqlStr := Copy(SqlStr,1,OrderPos-1);SqlStr := SqlStr + TempStr;Active := False;Sql.Clear;Sql.Text := SqlStr;if ParamCount>0 thenbeginParams.AssignValues(SavedParams);SavedParams.Free;end;Prepare;Open;end;end;怎么不行，上面的是对query进行排序的过程 

Answer 2

select case field when 1 then '男' end when 0 then '女' end
(代理服务器有问题,不能发长的留言,请原谅) 
--------------------------------------
看！
那支正飞向太阳的蛾子.....
就是我！
--------------------------------------

Answer 3

你可以下載一個ehlib的﹐其中的dbgrideh很好用的。(可自動排序)
ftp://202.117.210.28/file/ehlib3.rar

Answer 4

delphi的超级猛料中有 自己下载一个看看 
非常不错的

Answer 5

老大啊，我下了一个ehlib3啊，结果按readme里，安装啊，open ,--install，
结果总是报错啊，说某个文件没有啊，怎么都装不上，急死俺啦，怎么办啊，

Answer 6

ADOQuery排序：
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var fieldname:string;
begin
  with adoquery1 do
  begin
    FieldName:=column.FieldName;
    if Sort=FieldName+' ASC' then
       Sort:=FieldName+' DESC'
    else
       Sort:=AFieldName+' ASC';
  end;
end;

Answer 7

To gf109:
  　肯定是提示找不到*.dcu文件是不是。将你安装的路径中的Common和DataService两个目录加进搜索路径就可以啦。

Answer 8

终于装上 ehlib3了， dbgrideh也弄好了，可是改怎么用才能实现自动俺竖列进行排序啊，看了半天说明，好象还是不能自动实现啊，迷惑，继续请教，不行的话再开帖，愤怒+郁闷。。

Answer 9

俺另开贴请教 Ehlib 系列控件使用方法去了，希望大伙继续顶顶俺,