Click the title of DBGrid to sort the query results.

// Click the title of DBGrid to sort the query results. If you want to use a common program, it is not a matter of discussion,
// When you click another title, you need to sort it in another order to do whatever you like the resource manager.
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); // change ";" ","
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;