Сортировка данных, используя 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

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

Новые блоги и статьи Все статьи Все блоги /
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .

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

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

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

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

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