Programming: Delphi

Описания индексов наряду с описаниями полей (см. гл. 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).

Назад | Оглавление | Вперёд