大家好,请问怎样在DBGrid的一列的标题上单击进得排序!
还有一个问题:怎样把DBGrid的里值按照字段进行排序啊!请大家帮帮忙,在线等候!
还有一个问题:怎样把DBGrid的里值按照字段进行排序啊!请大家帮帮忙,在线等候!
解决方案 »
- delphi query与sql主键约束的问题
- delphi中如何去掉dxdbgrid中得下拉框
- 很简单的一段程序代码,我是初学者,大家帮我找找错误的地方
- 快来看看!很有价值的一个问题:如何实现在程序运行在等待某一事件(处于循环状态)时仍然可以响应特定的事件?
- 50分求局域网通信软件原码
- 谁能帮小弟,解释ShellExecute参数的意思??
- 按钮拖动问题及部分属性
- 高分相求:如何使EDIT只能输入数字?
- SOS!!SOS:what is the TurboPower AsyncProfessinal ?
- run的时候,出现这样的错误[Fatal Error] CX_Form.pas(9): File not found: 'TDataTimePicer.dcu',什么意思啊?请高手帮忙啊!
- 有关转换的问题?
- 大虾帮忙,急...
通用的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
if not (Column.Field is TBlobField) then
DBGrid.DataSource.DataSet.Sort := Column.Field.FieldName + ' ASC'; //升序
// DBGrid.DataSource.DataSet.Sort := Column.Field.FieldName + ' DESC'; //降序
end;
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;
这个很好