-- Включаем поддержку внешних ключей

PRAGMA foreign_keys = 1;

-- Удаляем таблицу, если она существует

Drop Table If Exists `tbListVars`;

-- Создаем таблицу

Create Table If Not Exists `tbListVars`
-- Уникальный идентификатор
(`iID` Integer Unsigned Default 0 Not Null Constraint `pkListVars_ID` Primary Key,
-- Идентификатор родителя в дереве
 `iParentID` Integer Unsigned Default 0 Not Null Constraint `fkListVars_ParentID` References `tbListVars`(`iID`) On Delete Cascade,
-- Идентификаторы всех родителей
 `vcParentString` VarChar(1000) Default '…' Not Null,
-- Тип переменной
 `tiType` TinyInt Unsigned Default 0 Not Null,
-- Фиксированный признак переменной
 `tiTag` TinyInt Unsigned Default 0 Not Null Constraint `ckListVars_Tag` Check (`tiTag` < 5),
-- Значение переменной
 `vcValue` VarChar(200) Default '…' Not Null,
-- Комментарий
 `txRemark` Text Default '…' Not Null,
-- Признак разрешения удаления записи
 `bIsDeletable` Boolean Default False Not Null);

-- Создаем индексы

-- Индексация типа переменной

Create Index If Not Exists 
  `kListVars_Type`
On
  `tbListVars`(`tiType`);

-- Обеспечение уникальности значения переменной в пределах типа

Create Unique Index If Not Exists 
  `ukListVars_Type_Value`
On
  `tbListVars`(`tiType`, `vcValue`);

-- Ссылка на родительскую запись в деревянной структуре

Create Index If Not Exists 
  `kListVars_ParentID_Auto`
On
  `tbListVars`(`iParentID`);

-- Создаем «нулевую» запись

Insert Into `tbListVars`
(`iID`,
 `iParentID`,
 `vcParentString`,
 `tiType`,
 `tiTag`,
 `vcValue`,
 `txRemark`,
 `bIsDeletable`)
Values
(0,
 0,
 '…',
 0,
 0,
 '…',
 '…',
 False);

-- Удаляем таблицу-лог, если она существует

Drop Table If Exists `tbListVars_Log`;

-- Создаем таблицу-лог

Create Table If Not Exists `tbListVars_Log`
-- Первичный ключ по умолчанию
(`iID` Integer Unsigned Default 0 Not Null Constraint `pkListVars_Log_ID` Primary Key,
-- Идентификатор записи в основной таблице
 `iIDMain` Integer Unsigned Default 0 Not Null,
-- Идентификатор родителя в дереве
 `iParentID` Integer Unsigned Default 0 Not Null,
-- Идентификаторы всех родителей
 `vcParentString` VarChar(1000) Default '…' Not Null,
-- Тип переменной
 `tiType` TinyInt Unsigned Default 0 Not Null,
-- Фиксированный признак переменной
 `tiTag` TinyInt Unsigned Default 0 Not Null,
-- Значение переменной
 `vcValue` VarChar(200) Default '…' Not Null,
-- Комментарий
 `txRemark` Text Default '…' Not Null,
-- Признак разрешения удаления записи
 `bIsDeletable` Boolean Default False Not Null,
-- Источник изменения записи (откуда было выполнено изменение)
 `vcNetName` VarChar(1000) Default '…' Not Null,
-- Дата и время выполнения изменения
 `dtDateBegin` DateTime Default (DateTime('now', 'localtime')) Not Null,
-- Дата и время окончания действия изменения (выполнения следующего изменения)
 `dtDateEnd` DateTime Default '2500-00-00 00:00:00' Not Null,
-- Вид изменения: 0 - создание; 1 - изменение; 2 - удаление; 3 - восстановление
 `tiEditMode` TinyInt Unsigned Default 0 Not Null);

-- Создаем «нулевую» запись

Insert Into `tbListVars_Log`
(`iID`,
 `iIDMain`,
 `iParentID`,
 `vcParentString`,
 `tiType`,
 `tiTag`,
 `vcValue`,
 `txRemark`,
 `bIsDeletable`,
 `vcNetName`,
 `dtDateBegin`,
 `dtDateEnd`,
 `tiEditMode`)
Values
(0,
 0,
 0,
 '…',
 0,
 0,
 '…',
 '…',
 False,
 '…',
 (DateTime('now', 'localtime')),
 '2500-00-00 00:00:00',
 0);