Авто сортировка строк по нажатию

[Denis Black]

Добрый день гуру программисты помогите разобраться в одной проблеме . Я написал некую прогу БД с использованием Client Data Set в ней следующие компоненты:

1. TClientDataSet
2. TDataSource
3. TDBGrid
4. TDBNavigator

Так ыот все вроде ок оснавнвя функция работает НО вот есть одна проблема когда загружается база и отображается в BDGrid то она не по алфавиту а в разброс например: ljk;yj ,snm 1/2/3/4 а там 4/1/2/3 и такая жк ситуация с буквами . Так вот вопрос в том как сделать что бы происходила сортировка по убыванию или по возрастанию ?

Вот нашел статью http://www.sources.ru/delphi/db/sort...mn_click.shtml так все понятно кроме выделенной строки ниже :
Куда эту строку писать ?

На форме расположены TQuery, TDatasource и TDbGrid связанные вместе.

QuerySQL, это глобальная строка, которая содержит SQL-выражение.

begin
QuerySQL := 'SELECT * FROM Customer.DB';
Query1.SQL.Add(QuerySQL);
Query1.Open;
end;


В DBGrid в событии OnTitleClick, достаточно добавить ORDER-BY к sql-строке и обновить запрос.

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
with Query1 do
begin
DisableControls;
Close;
SQL.Clear;
SQL.Add(QuerySQL);
SQL.Add('ORDER BY ' + Column.FieldName);
Open;
// Восстанавливаем настройки заголовка, иначе всё станет синим
DBGrid1.Columns.RestoreDefaults;
Column.Title.Font.Color := clBlue;
EnableControls;
end;
end;

[mss]

если возвращаемый запросом НД сравнительно небольшой, я бы не стал заморачиваться с сортировкой на стороне сервера.

посуольку используется CDS, достаточно создать индексы (по возр. и по убыв.) по полям, требующим сортировки, и подключать нужные индексы к CDS в обработчике клика колонки

[Prince_Zmei]

Использую:
TClientDataset
DBGridEh
как можно о существовать связь сортировки в 2 колонках по выбору(без Sql)?

[_SERGEYX_]

Писали же выше

достаточно создать индексы (по возр. и по убыв.) по полям, требующим сортировки, и подключать нужные индексы к CDS в обработчике клика колонки

В DBGridEh установить свойство TitleButton:= True;
Для пущего эффекта установить в OptionEh свойство AutoSortMarking:= True;
И обрабатывать событие либо OnSortMarkingChanged, или OnTitleBtnClick
Что-то типа

procedure TForm1.DBGridEh1TitleBtnClick(Sender: TObject; ACol: Integer; Column: TColumnEh);
begin
ClientDataSet1.IndexName:= Column.FieldName;
end;