怎樣實現單擊Dbgrid中的某列來進行排序?
解决方案 »
- Delphi & C++Builder一调试就死机,Visual Studio不会!!!
- 在打印时,如何检测打印机是否插好??请指教
- 如何安装控件包?
- ADO连接SQL SERVER,我想显示所有局域网内的SQL服务器,请大家帮忙。
- 用什么函数使程序最小化在系统托盘
- 哪位好心人帮我补全这个SQL语句啊,拜托各位大虾了(绝对领分的题)!
- netuseradd()在哪个单元?
- 怎样在DELPHI编写的EXE文件中加入声音,就是将声音写进EXE中?
- DevExpress VCL v39
- 请问如何使程序打开时便进入上一次关闭时的状态(上一次关闭时dbgrid中有数据)?
- 请教高人,用DELPHI连MS SQL时出现Login fail……,高分相送,急……
- 请问Delphi7中的diagram是作什么的,是做详细设计的吗?
onTitleClick事件
TADOQuery(DBGrid.DataSource.DataSet).sort := column.FieldName+' ASC'
可以再加判断,单一下正序,再单一下倒序
例如不能在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;
procedure TCK_MaterialInFrm.dbgDetailTitleClick(Column: TColumn);
var
i:integer;
begin
if QryDetail.FieldByName(Column.FieldName).FieldKind =fkData then
begin
for i:=0 to dbgDetail.Columns.Count-1 do
begin
if dbgDetail.Columns[i]<>Column then
begin
if (copy(dbgDetail.Columns[i].Title.Caption,1,2)='▲') or (copy(dbgDetail.Columns[i].Title.Caption,1,2)='▼') then
dbgDetail.Columns[i].Title.Caption:=copy(dbgDetail.Columns[i].Title.Caption,3,length(dbgDetail.Columns[i].Title.Caption));
end else
begin
if copy(Column.Title.Caption,1,2)='▲' then
begin
QryDetail.Sort:=Column.FieldName+' DESC';
Column.Title.Caption:='▼'+copy(Column.Title.Caption,3,length(dbgDetail.Columns[i].Title.Caption));
end else
begin
QryDetail.Sort:=Column.FieldName+' ASC';
if copy(Column.Title.Caption,1,2)='▼' then
Column.Title.Caption:='▲'+copy(Column.Title.Caption,3,length(dbgDetail.Columns[i].Title.Caption))
else Column.Title.Caption:='▲'+Column.Title.Caption;
end;
end;
end;
end;
end;