Сортировка данных, используя TDbGrid, TTable и TDataSource

@ROS88 · Регистрация: 10.03.2015

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

Используя программный код, содержащийся ниже реализую сортировку поля tovar по возрастанию / убыванию, в зависимости от того, какое значение принимает переменная-счетчик k. Проблема возникла в том, что сортировка происходит только по возрастанию. Хотя индекс в базе данных создается, как для первого, так и для второго случая. Может кто-то уже встречался с такой проблемой, прошу помочь. Я понимаю, что для данной проблемы целесообразно было бы в качестве набора данных использовать компоненте TQuery, но в задании содержится именно компонент TTable.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
var
   k: integer = 1;
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var
   i: integer;
begin
     Table1.Close;
     Table1.Exclusive := True;
     Table1.Open;
     Table1.IndexDefs.Update;
     for i := 0 to Table1.IndexDefs.Count - 1 do
       if (Table1.IndexDefs.Items[i].Name = 'tovar_index') then
         begin
           Table1.IndexName := '';
           Table1.DeleteIndex(Table1.IndexDefs.Items[i].Name);
           break;
         end;
     if (Column.FieldName = 'tovar') then
       begin
         if (k mod 2 = 0) then
           Table1.AddIndex('tovar_index', 'tovar', [ixDescending])
         else
           Table1.AddIndex('tovar_index', 'tovar', []);
         Table1.IndexName := 'tovar_index';
         k := k + 1;
       end;
     Table1.Close;
     Table1.Exclusive := False;
     Table1.Open;
end;

@Massaraksh7 · 06.01.2018, 21:45

Для какой БД?

@krapotkin · 07.01.2018, 11:23

Massaraksh7,
в заголовке по-прежнему Interbase

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

А. Хоменко, В. Гофман Delphi

Автор: Владимир Гофман-Анатолий Хомоненко
Год выпуска: 2003
Формат/Качество: pdf
Язык: Русский

О Книге:
В книге описываются интерфейс системы визуального программирования Delphi на основе 6-й версии, состав и характеристика элементов проекта дополнения, приемы программирования на бейсике Object Pascal. Рассматриваются визуальные компоненты, используемые для произведения интерфейса добавлений. Техника страды с текстовой сведений, кнопками и переключателями, а тоже формами, являющиmися центральной частью любимого дополнения. Творение меню. Даются понятия. Испщльзнамыа в теории баз данных; обсуждаются элементы реляционных баз данных и особенности их применения; описываются творение таблиц и дополнения баз данных, приемы работы с данными, накачка отчетов

Добавлено через 23 секунды
описание отдельно прекрасно в каждой строке )))

@ROS88 · 07.01.2018, 11:29 **[ТС]**

Самоучитель Delphi. — 2-е изд., перераб. и доп. / А. Д. Хомоненко, В. Э. Гофман. — СПб.: БХВ-Петербург, 2008. — 576 с.
Описываются интерфейс системы Delphi на примере версии 7.0, состав и характеристика элементов проекта приложения, приемы программирования на языке Delphi. Рассматриваются визуальные компоненты, используемые для создания интерфейса приложений; компоненты и техника работы с текстовой информацией, кнопками и переключателями, а также формами.
Описываются развитые элементы интерфейса, использование графики и мультимедиа, работа с файлами и каталогами. Даются понятия, связанные с реляционными базами данных. Описывается создание приложений баз данных, подготовка отчетов с помощью генератора Rave Reports. Даются основы разработки приложений для работы в Интернете, работа с электронной
почтой и Web-документами. На компакт-диске содержатся многочисленные листинги программ, приведенных в книге.

@krapotkin · 07.01.2018, 11:42

все что вам написали про "индексные файлы" относится к BDE и Paradox, хотя в явном виде тут это не написано...

Добавлено через 1 минуту
в любом случае, нет смысла далее обсуждать это. либо вы начинаете пользоваться SQL запросами, либо ваши раскопки проходят по категории археология и никакого практического смысла не имеют...

@ROS88 · 07.01.2018, 11:59 **[ТС]**

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

либо ваши раскопки проходят по категории археология и никакого практического смысла не имеют...

Друг, я в #1 подробно написал, что есть задача, которую нужно реализовать. Если бы можно было использовать SQL-запросы, я бы даже не создавал эту тему. С помощью SQL это достаточно просто решается.

Добавлено через 10 минут
В любом случае, спасибо за диалог.

@Massaraksh7 · 07.01.2018, 15:17

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

Massaraksh7,
в заголовке по-прежнему Interbase

Вопрос был риторический, нельзя говорить, рабочий код или нет, не упоминая, о работе с какой БД идёт речь.

Добавлено через 2 минуты

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

есть задача, которую нужно реализовать.

В #9 я написал, как это реализовать.

@ROS88 · 07.01.2018, 15:30 **[ТС]**

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

Создать индекс по убыванию и работать с ним.

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

@Massaraksh7 · 07.01.2018, 15:44

То есть делали так:

SQL
1
CREATE INDEX tovar_index_desc ON tovar(....) DESC;

Затем так:

Delphi
1
Table1.AddIndex('tovar_index_desc', 'tovar', []);

И не работало?

@ROS88 · 07.01.2018, 16:01 **[ТС]**

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

И не работало?

Так точно не пробовал. Пробовал так как показано в #1.

@Massaraksh7 · 07.01.2018, 16:12

А, ну то есть собственно индекса и не создавал...

@ROS88 · 07.01.2018, 16:19 **[ТС]**

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

А, ну то есть собственно индекса и не создавал...

Метод AddIndex класса TTable, позволяе создавать индексы для уже существующей таблицы.

@krapotkin · 07.01.2018, 16:21

)))))

@Massaraksh7 · 07.01.2018, 16:44

...

TTable.AddIndex Method
.........................
dBASE tables...
Paradox tables support...
......................
For other table types, see the vendor-supplied documentation for the particular database system for details on what index options are applicable.

@ROS88 · 07.01.2018, 16:45 **[ТС]**

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

TTable.AddIndex Method
.........................
dBASE tables...
Paradox tables support...
......................
For other table types, see the vendor-supplied documentation for the particular database system for details on what index options are applicable.

Это что такое?

@krapotkin · 07.01.2018, 18:22

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

Новые блоги и статьи Все статьи Все блоги /
сукцессия 29. Переход от одних деревьев на другие делать более или менее вероятностным? anaschu 12.07.2026 Насколько смена типов микоризы — исключительное событие в двухвековой сукцессии? Оценка вероятности в пространстве параметров В текущей версии модели успешно реализован ключевой механизм. . .	сукцессия 27. Думаю, как переделывать уже написанную статью с планами на сукцессию. anaschu 12.07.2026 Анализ соответствия модели требованиям Реализованные компоненты: Механизм закисления почвы через протонную помпу Конкуренция между типами микориз pH как триггер сукцессии C/ P соотношение. . .	Сукцессия 26. Мат модель создана. anaschu 12.07.2026 Модель смены растительных сукцессий посредством управления грибами работает внутри небольшой ячейки почвы, восстанавливающейся после пожара, где ненадолго бывшее царство хвойных снова захватили. . .	Решил проблему с ошибкой пагинации сообщений с сервера на алгоритме обхода дерева "Эстафета хвоста". Hrethgir 12.07.2026 Проблема была в том, что удалялась именно новая кнопка, а не старая. Ни один ИИ не обнаружил это, а сам я смог только когда с работой стало попроще и когда заставил работать будущее автономное. . .
сукцессия 25. Хронология ошибок anaschu 12.07.2026 # От 50-тонного гриба до устойчивого леса: хроника ошибок при построении модели вековой сукцессии микоризы ## О чём эта статья В процессе построения ОДУ-модели (система дифференциальных. . .	сукцессия 24. Промежуточное общее описание модели anaschu 12.07.2026 Хендофф: модель АМ→ЭКМ сукцессии микоризы (ризосфера, 50 лет) Содержание проекта Симуляция вековой (50 лет) экологической сукцессии в почве леса Основные участники: АМ-гриб, ЭКМ-гриб,. . .	сукцессия 23. Более физиологичная физиология, более экологичная экология, более диффурные диффуры. anaschu 12.07.2026 Что реально нашли и починили за эти 5 часов Правило Линдемана (КПД конверсии сахара в тело, kEff) — раньше 100% полученного углерода шло прямо в биомассу гриба; теперь только kEff=0. 5 (после. . .	сукцессия 22. От артефактов к физиологии: калибровка агентной модели грибной сукцессии для воспроизведения сезонной динамики и pH-плато anaschu 11.07.2026 Аннотация В данной работе представлена калибровка агентной модели динамики грибных сообществ (fungal-succession), направленная на устранение нефизичных артефактов (коллапс биомассы, мгновенное. . .

@Massaraksh7 Айлурофил 518 / 451 / 112 Регистрация: 27.05.2017 Сообщений: 2,748 Записей в блоге: 7
	06.01.2018, 21:45
	Для какой БД? 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,681 Записей в блоге: 21
	07.01.2018, 11:42
	все что вам написали про "индексные файлы" относится к BDE и Paradox, хотя в явном виде тут это не написано... Добавлено через 1 минуту в любом случае, нет смысла далее обсуждать это. либо вы начинаете пользоваться SQL запросами, либо ваши раскопки проходят по категории археология и никакого практического смысла не имеют... 1

@Massaraksh7 Айлурофил 518 / 451 / 112 Регистрация: 27.05.2017 Сообщений: 2,748 Записей в блоге: 7
	07.01.2018, 16:12
	А, ну то есть собственно индекса и не создавал... 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,681 Записей в блоге: 21
	07.01.2018, 16:21
	))))) 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,681 Записей в блоге: 21
	07.01.2018, 18:22
	это достаточно перевести с нерусского, чтобы начать заново читать то, что вам пишут уже третью страницу 0