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

@Dam · Регистрация: 25.01.2008

Студворк — интернет-сервис помощи студентам

Здравствуйте. Возникла проблема: ОЧЕНЬ нужно чтобы при нажатии на кнопку,
в компоненте DBGrid происходила сортировка содержимого по алфавиту.
Пожалуйста напишите как (если можно с примером кода).:huh:

@MegaPiha · 16.06.2008, 21:20

Если DBGrid к Query присоединен то так:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.FormCreate(Sender: TObject);
Var path:string;
begin
  GetDir(0,path);
  ADOConnection1.Close;
  ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+path+'\DB.mdb;Persist Security Info=False';
  ADOConnection1.Connected:=true;
  QSQL:='SELECT * from main ';
  With ADOQuery2 do begin
    Close;
    SQL.Clear;
    SQL.Add(QSQL);
    Open;
  end;
  ADOTable1.Open;
end;

В событии DBGrid OnTitleClick прописываем.

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
Var f:string;
begin
  f:= Column.FieldName;//без этой переменной у меня работать не хочет
  with ADOQuery2 do
  begin
     Close;
     SQL.Clear;
     SQL.Add(QSQL);
     SQL.Add('ORDER BY '+f);
     Open;
  end;
end;

Если Table к DBGrid подключен то в OnTitleClick пишем.

Code
1
2
3
4
5
6
procedure TForm1.DBGrid2TitleClick(Column: TColumn);
Var f:string;
begin
    f:= Column.FieldName;
    ADOTable1.Sort:=f;
end;

Исходник прилагаю.

@Dam · 16.06.2008, 21:47 **[ТС]**

Благодарю

@Dam · 05.08.2008, 21:15 **[ТС]**

а если используется не ADOTable а TTable

@martanton · 14.03.2009, 09:51

Добавлено через 1 минуту 35 секунд

Сообщение от MegaPiha

Если Table к DBGrid подключен то в OnTitleClick пишем.

Code
1
2
3
4
5
6
procedure TForm1.DBGrid2TitleClick(Column: TColumn);
Var f:string;
begin
    f:= Column.FieldName;
    ADOTable1.Sort:=f;
end;

а как поменять направление сортировки?
то есть что б первым кликом по возрастанию, а вторым по убыванию?

@Screamo · 27.05.2009, 16:50

Сообщение от Dam

а если используется не ADOTable а TTable

у меня ТТабле прикреплен к ДБГрид и этот код не работает, подскажите как сделать плиз

@Lord_Voodoo · 27.05.2009, 17:11

martanton, надо указывать так:
ADOTable1.Sort:=f + ' ASC'; (или DESC)
ну а как уже их менять - дело за вами...

Screamo, для TTable сортировка организуется с помощью индексов

@Screamo · 27.05.2009, 17:18

Delphi
1
2
3
4
procedure TForm1.Button9Click(Sender: TObject);
begin
Table1.IndexFieldNames:='FIO_st';
end;

так? выдает ошибку - No Index for fields 'FIO_st'

@Lord_Voodoo · 27.05.2009, 17:21

Screamo, а вы его сначала добавьте, чтобы потом использовать

@Screamo · 28.05.2009, 21:23

есть вторичный индекс у этой таблицы

Добавлено через 4 минуты 29 секунд
щас попытался новый вторичный индекс создать у этой таблицы, пишет An index of this type already exisist

Добавлено через 5 часов 29 минут 32 секунды
все - разобрался)

Добавлено через 22 часа 13 минут 32 секунды
как сортировать не в алфавитном порядке а наоборот или же не с меньшего числа а с большего?

Delphi
1
Table2.IndexFieldNames:='Summa';

в столце сумма числа сортируются от меньшего к большему а как сделать наоборот?)

@ascarik90 · 16.06.2009, 11:56

table.sort

@Agentum · 07.12.2009, 15:01

вот создал я вторичный индекс для поля таблицы ttable.он при нажатии на кнопку отсортировал...затем я хочу изменить таблицу,но он мне выдает 'index is read only'.как сделать так чтобы он сортировал после каждого изменения таблицы?

@Lord_Voodoo · 08.12.2009, 12:27

Agentum, просто выводи в дбгрид результат запроса с нужной сортировкой, после обновления отображения будешь получать снова отсортированную таблицу

@Agentum · 08.12.2009, 17:15

Сообщение от Lord_Voodoo

Agentum, просто выводи в дбгрид результат запроса с нужной сортировкой, после обновления отображения будешь получать снова отсортированную таблицу

не сочти меня за тупого,но ничего не понял((((поясни на коде если можешь...

@Agentum · 09.12.2009, 15:45

Lord_Voodoo, поясни пжл

@Lord_Voodoo · 09.12.2009, 15:49

Agentum, да что тут сложного в DataSet - нужного DataSource, который связан с дбгридом, записываешь имя запроса, а в самом запросе пишешь что-то вроде такого:

SQL
1
SELECT * FROM TABLE ... ORDER BY KEY

и у тебя всегда будет сортировка по полю key, asc или desc определяют направление сортировки

@Agentum · 09.12.2009, 16:00

Lord_Voodoo, то есть мне бросать на форму компонент query?

@Lord_Voodoo · 09.12.2009, 16:14

Agentum, это уже на ваше усмотрение, можно кидать. можно руками создать

@Agentum · 09.12.2009, 16:21

Lord_Voodoo, я просто первый раз работаю.Вот такое должно быть?

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm2.Button4Click(Sender: TObject);
begin
with form2.Query1 do begin
Close; 
SQL.Clear; 
SQL.Add('SELECT Themes');
SQL.Add('FROM "tab.db"');
SQL.Add('ORDER BY Themes');
Open; 
end;
DataSource1.DataSet:=query1;
end;

@Lord_Voodoo · 09.12.2009, 16:23

Agentum, ну что-то типа того

Новые блоги и статьи Все статьи Все блоги /
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: показать затраченные материалы за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В качестве. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.

@Dam 6 / 6 / 1 Регистрация: 25.01.2008 Сообщений: 13

	Сортировка в DBGrid 16.06.2008, 19:15. Показов 94058. Ответов 47 Метки нет (Все метки) Здравствуйте. Возникла проблема: ОЧЕНЬ нужно чтобы при нажатии на кнопку, в компоненте DBGrid происходила сортировка содержимого по алфавиту. Пожалуйста напишите как (если можно с примером кода).:huh: 0

@Dam 6 / 6 / 1 Регистрация: 25.01.2008 Сообщений: 13
	16.06.2008, 21:47 [ТС]
	Благодарю 0

@Dam 6 / 6 / 1 Регистрация: 25.01.2008 Сообщений: 13
	05.08.2008, 21:15 [ТС]
	а если используется не ADOTable а TTable 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	27.05.2009, 17:11
	martanton, надо указывать так: ADOTable1.Sort:=f + ' ASC'; (или DESC) ну а как уже их менять - дело за вами... Screamo, для TTable сортировка организуется с помощью индексов 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	27.05.2009, 17:21
	Screamo, а вы его сначала добавьте, чтобы потом использовать 0

@ascarik90 0 / 0 / 0 Регистрация: 15.06.2009 Сообщений: 25
	16.06.2009, 11:56
	table.sort 0

@Agentum 1 / 1 / 0 Регистрация: 21.10.2009 Сообщений: 40
	07.12.2009, 15:01
	вот создал я вторичный индекс для поля таблицы ttable.он при нажатии на кнопку отсортировал...затем я хочу изменить таблицу,но он мне выдает 'index is read only'.как сделать так чтобы он сортировал после каждого изменения таблицы? 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	08.12.2009, 12:27
	Agentum, просто выводи в дбгрид результат запроса с нужной сортировкой, после обновления отображения будешь получать снова отсортированную таблицу 1

@Agentum 1 / 1 / 0 Регистрация: 21.10.2009 Сообщений: 40
	09.12.2009, 15:45
	Lord_Voodoo, поясни пжл 0

@Agentum 1 / 1 / 0 Регистрация: 21.10.2009 Сообщений: 40
	09.12.2009, 16:00
	Lord_Voodoo, то есть мне бросать на форму компонент query? 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	09.12.2009, 16:14
	Agentum, это уже на ваше усмотрение, можно кидать. можно руками создать 1

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	09.12.2009, 16:23
	Agentum, ну что-то типа того 0

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

Решение