| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Сортировка в TADOQuery

Делфиец ©   (2010-02-11 21:27:00) 

ADOQuery.sorted:='Name' // -Имя поля fieldName колонки
Сортирует с верху в низ и всего скорей по алфавиту.
Но, не понятно, а как можно задать параметры сортировки так, что бы сортировка выполнялась с низу вверх или еще как нибудь?

---

Делфиец   (2010-02-12 05:54:00) [1]

Предлагаю здесь уже более подробные описание сортировки колонок таблицы компонента TJvDBGride из библиотеки JEDI JVCL

JvDBGride
Выставить свойства:

AutoSort := True;- это включает авто сортировку типа должно само сортироваться, но само без дополнительной обработки, что то не сортирует, так что свой код придется вставлять.
TitleButtons := True;- заголовки колонок начинают работать как кнопки(нажимаются). При включении этого свойства, колонки можно перетаскивать правой кнопкой мышки(а обычно - левой).

Так же можно выставить и дополнительные свойства (не помешают):

TitleArrow := True;- показывает стрелочку в верхнем левом углу, вызывающую диалог, позволяющий скрывать/показывать колонки
T itleButtonAllowMove := True;- - разрешает перетаскивать колонки при включенном режиме TitleButton левой кнопкой мышки

Затем создать обработчик щелчка на заголовки колонок

procedure TFrmMainTable.JvDBGTitleBtnClick(Sender: TObject; ACol: Integer;
 Field: TField);
begin
 Case TSortMarker(JvDBG.SortMarker) of
   // Здесь у кого что будет у меня TADOQuery его то и сортирую
   smUp:   Query.Sort:=Field.FieldName+' ASC';
   smDown: Query.Sort:=Field.FieldName+' DESC';
 End;
end;

---

Делфиец   (2010-02-11 21:43:00) [2]

> sniknik ©   (11.02.10 21:32) [1]
> DESC


Точно,

 JvDBG.SortMarker := smUp;
 JvDBG.SortedField := 'Name';
 Query.Sort:= JvDBG.SortedField+' ASC';

или так

 JvDBG.SortMarker := smUp;
 JvDBG.SortedField := 'Name';
 Query.Sort:= JvDBG.SortedField+' DESC';

---

sniknik   (2010-02-11 21:32:00) [3]

DESC

---

Наверх