|
Использование описаний индексов
Описания индексов наряду с описаниями
полей (см. г/г. 13) также используются при создании
новых таблиц БД. Для каждого планируемого индекса перед
вызовом метода CreateTable необходимо
создать или скопировать из существующего набора данных
соответствующее описание. Тогда при создании таблицы
индексы будут добавлены автоматически:
with Tablel do
begin
DatabaseName := 'DBDEMOS';
TableType := ttParadox;
TableName := 'DemoTable';
...
{Создание описаний
полей}
...
with IndexDefs do
begin Clear;
AddlndexDef; with
Items[0] do
begin
Name := ' ' ; Fields
:= 'Fieldl'; Options := [ixPrimary, ixUnique];
end;
AddlndexDef; with
Items[1] do
begin
Name := 'Secondlndex';
Fields := 'Fieldl;Field2';
Options := [ixCaselnsensitive];
end;
end;
CreateTable;
end;
При создании описаний индексов использован
метод AddlndexDef, который при
каждом вызове добавляет к списку Items
объекта TIndexDefs новый
объект TindexDef.
Таким образом сначала создается первичный индекс (в
таблицах Paradox он не имеет имени),
затем вторичный индекс SecondIndex.
Для каждого описания обязательно определяются составляющие
индекс поля и параметры индекса (свойства Fields и options).
|
