Работа с файловыми базами данных в Delphi. Часть 4

Всем привет дорогие друзья! Сегодня наша статья будет посвящена обратно работе с файловой базой данных в Delphi. Нам осталось рассмотреть совсем немного тем, и мы закончим с данной серией. В прошлой статье по работе с файловой БД, мы рассмотрели основные методы по работе с набором данных.

Сейчас мы рассмотрим, как можно работать с индексами в файловой БД. Индекса являются неотъемлемой частью любой базы данных. С помощью индексов можно упорядочивать данные, что облегчает поиск, это самое простое назначение индексов.

В TClientDataSet индекса можно создать несколькими способами. Первый способ – это способ, при помощи свойства IndexDef. Вам необходимо открыть редактор данного свойства и добавить в него новый индекс (как-нибудь его обозвать). Я назвал его iName.

Идем дальше. Мы выделяем данный индекс и начинаем настраивать его. После того, как Вы его выделили, переходим к свойству Fields, в котором необходимо указать поле нашей таблицы, выступающее в роли нашего индекса. Если в Вашей таблице несколько индексов, то в поле Fields Вы можете перечислять несколько полей таблицы, через точку с запятой. После этого необходимо перейти в свойстве Options нам необходимо задать тип индекса, они могут быть следующими:

ixPrimary	Первичный ключ таблицы
ixUnique	Уникальный индекс, который не допускает повторений в таблице, в поле, к которому он подключен. Если у Вас есть уже ни уникальные записи, то при задании данного типа индекса, у Вас будет ошибка в приложении
ixDescending	Индекс, который применяется для обратной сортировки, то есть для убывания значений
ixExpression	Индекс, который основан на ключевом выражении и применяется только лишь для таблиц dBase
ixCaseInsensitive	Индекс, который не чувствительный к регистру символов
ixNonMaintained	Индекс, который не будет обновляться после редактирования нашей таблицы

Вы выбираете тип индекса, который Вам необходим и больше всего подходит к Вашей таблице. Почти что мы закончили с этим. Нам осталось лишь подключить индекс к нашему проекту. Это сделать мы можем двумя способами. Для этого мы выделяем компонент TClientDataSet и находим там свойство IndexName. В данном свойстве, из выпадающего списка, необходимо выбрать имя индекса, который мы создавали, способом выше.

Второй способ – выделяем также компонент TClientDataSet и находим там свойство IndexFieldsName, которое имеет тип WideString. В нем Вы можете напрямую указать поля, которые будут индексами, также можете указывать их через точку с запятую.

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

Вы можете создать и индекса программно: например, при открытии нашей таблицы, задать им тип индекса, а также поля, которые будут выступать в роли индексов.

Попробуйте создать, данным образом индекс и добавить в свой проект какие-нибудь значения. У меня автоматически, при добавлении данных, таблица сортируется в алфавитном порядке. У Вас должна создаться похожая ситуация.

Индекс также можно создать и при помощи процедуры:

procedure AddIndex(const Name: string; const Fields: string; Options: TIndexOptions; const DescFields: string = »; const CaseInsFields: string = »; const GroupingLevel: Integer = 0);

В данной процедуре Вы уже знакомы с частью параметров, например:

• Name – имя индекса
• Fields – список полей, которые относятся к индексу
• Options – настройки индекса, тип индекса
• DescFields – список полей индекса, которые будут учитываться при сортировке в обратном направлении
• CaseInsFields – список полей индекса, которые не будут учитывать регистр символов
• GroupingLevel – это уровень группировки, который может группировать данные, наподобие SQL-запроса с директивой GROUP BY. Если данный параметр равен 0, то группировка отключена, если равен 1, то это означает, что в процессе группировки будет использоваться только первое поле в индексе, если равен 2, то первое и второе поле, ну и так далее

Хочется сказать, что метод AddIndex будет использоваться только для активного набора данных, то есть, который открыт в данный момент времени. И индекс, который создан данным методом будет существовать только во время работы программы, по ее завершению он исчезнет.

Вы также можете удалить индекс с помощью процедуры:

procedure DeleteIndex(const Name: string);

Вам, чтобы удалить индекс, достаточно знать только лишь его имя.

Вот и все с данной темой. Как видите, ничего сложного в этом нет, проект я приложу, Вы можете скачать его по данной ссылке, и не забудьте прочитать предыдущие статьи по работе с файловыми базами данных в Delphi:

• Работа с файловыми базами данных в Delphi. Часть 1 (общие сведения)
• Работа с файловыми базами данных в Delphi. Часть 2 (сохранение и настройка файлового набора данных)
• Работа с файловыми базами данных в Delphi. Часть 3 (основные методы для работы с данными набора данных)

Метки: TClientDataSet, база данных, БД, файлова БД