大家好,请问怎样在DBGrid的一列的标题上单击进得排序!
还有一个问题:怎样把DBGrid的里值按照字段进行排序啊!请大家帮帮忙,在线等候!
还有一个问题:怎样把DBGrid的里值按照字段进行排序啊!请大家帮帮忙,在线等候!
解决方案 »
- delphi查询数据库内容是空的
- delphi 报表制作
- rzgroupbar的问题
- 我想用开发一个手机短信群发小系统,但是没有思路,高手帮我啊!
- (入门者)我总是找不到Opendialog这个组件在哪里?
- help~~!
- 問:VB中的LostFecus事件在Delphi中變成了甚麼事件名?
- 怎么把自己的程序设为默认得浏览器!
- 请问哪位高手编过数据导入导出的程序!求源代码(尽可能给分)
- DBGRID为什么不能显示0:00-1:00的时间??只显示日期,没有日期?
- 大家请进,请问一个简单的问题?
- 如何编写支持cgi和isapi的http服务器。如果简单的http服务器已经调试成功,现在想支持更多的功能
通用的DbGrid单击标题排序的过程
*************************************************************
方法一:
利用Tclientdataset可以满足这种要求。procedure TMainForm.DBGridTitleClick(Column: TColumn);
begin
if not (Column.Field is TBlobField) then
TClientDataset(Column.Field.DataSet).IndexFieldNames:=Column.Field.FieldName;
end;
方法二:
欲实现点击DBGrid的Title对查询结果排序,想作一个通用程序,不是一事一议,例如不能在SQL语句中增加Order by ...,因为SQL可能原来已经包含Order by ...,而且点击另一个Title时又要另外排序,目的是想作到象资源管理器那样随心所欲。procedure TFHkdata.SortQuery(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
myFieldName := UpperCase(Column.Field.KeyFields);
while Pos(myFieldName,';')<>0 do
myFieldName := copy(myFieldName,1,Pos(myFieldName,';')-1)
+ ',' + copy(myFieldName,Pos(myFieldName,';')+1,100); with TQuery(TDBGrid(Column.Grid).DataSource.DataSet) do
begin
SqlStr := UpperCase(Sql.Text);
// if pos(myFieldName,SqlStr)=0 then exit;
if ParamCount>0 then
begin
SavedParams := TParams.Create;
SavedParams.Assign(Params);
end;
OrderPos := pos('ORDER',SqlStr);
if (OrderPos=0) or
(pos(myFieldName,copy(SqlStr,OrderPos,100))=0) then
TempStr := ' Order By ' + myFieldName + ' Asc'
else if pos('ASC',SqlStr)=0 then
TempStr := ' Order By ' + myFieldName + ' Asc'
else
TempStr := ' 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 then
begin
Params.AssignValues(SavedParams);
SavedParams.Free;
end;
Prepare;
Open;
end;
end;上面的是对query进行排序的过程}
begin
frmData.tabBuilder.sort:=column.FieldName;end;
对table控件没问题,query控件好像不通
begin
if not (Column.Field is TBlobField) then
DBGrid.DataSource.DataSet.Sort := Column.Field.FieldName + ' ASC'; //升序
//DBGrid.DataSource.DataSet.Sort := Column.Field.FieldName + ' DESC'; //降序
end;
首先要用变量要记录是升还是降.
再利用ADO 中的SORT 就行了.