Создание таблиц, расширенных и перечислимых типов данных

Для реализации проекта нужно создать четыре таблицы: «RentCarParameters», «RentCarBrandTable», «RentCarTable», «RentCarServices» (см. рис. 7.14). Перед созданием таблиц определите расширенные и перечислимые типы данных.

Для расширенных типов данных откройте репозитарий прикладных объектов (см. рис. 7.12). Для этого выберите меню Файл / Открыть / Репозитарий прикладных объектов (ЛОТ), или нажмите кнопку на панели инструментов (кнопка третья справа), или используйте комбинацию клавиш Ctrl + D. В дереве репозитария откройте узел расширенных типов данных (Extended Data Types).

Создайте расширенный тип данных. Для этого выделите узел Extended Data Types, кликните правой кнопкой мыши и в открывшемся контекстном меню выберите Создать. Система предложит список типов данных — выберите String. Выделите созданный тип, кликните правой кнопкой мыши и выберите Свойства. Откроется окно свойств типа данных. Необходимо задать имя типа данных «RentBrandld» и его свойства так, как показано на рис. 7.19.

Рис. 7.19. Окно свойств.

Сначала задайте свойство Help Text. Для этого кликните по кнопке справа от поля. Появится окно редактора меток (рис. 7.20). На вкладке Настройка выберите из списка код меточного файла «RNT» и второй язык «Английский (США)». (Эта операция выполняется однократно перед созданием первой метки.) Перейдите на вкладку Метка. В поле Найти введите русское значение метки «Номер автомобиля» и нажмите кнопку Найти на панели инструментов. Если ничего не найдено, то нажмите Создать на панели инструментов (или Ctrl + N). Будет создана новая метка. В нижней таблице введите английское значение метки «Саг Number». Нажмите кнопку Сохранить на панели инструментов (или Ctrl + S).

В первом столбце верхней таблицы появится метка @RNT1 (рис. 7.20). Нажмите кнопку Вставить метку. Окно закроется и в поле свойства Help Text появится код метки @RNT1. Если уйти с этого ноля на другое, то код метки изменится на значение метки «Номер автомобиля».

Рис. 7.20. Редактор меток:

а — настройка; 6 — создание метки По такой же схеме задайте свойство Label. Для этого в ноле Найти редактора меток введите русское значение метки «Номер» и нажмите кнопку Найти. В верхней таблице система выведет все метки, в которых есть слово «номер», выберите метку с кодом @SYS13864 и нажмите кнопку Вставить метку. Оставшиеся свойства оставьте без изменений. (Все метки @SYS уже существуют в системе и поэтому их надо искать.).

Аналогично создайте следующие расширенные типы данных.

Для расширенного типа данных «RentProblemSrt» установите свойству StringSize значение Memo. Для расширенного типа данных «RentCost» установите свойству Extends значение Amount. Остальные свойства оставьте без изменений.

Сохраните изменения. Для этого нажмите на кнопку Сохранить все на панели инструментов в окне АОТ. Обратите внимание: если объект не сохранен, то слева от его имени появляется красная полоса.

Перенесите созданные объекты расширенного типа данных в соответствующий узел проекта «RentCar». Сохраните проект — для этого нажмите на кнопку Сохранить все на панели инструментов в окне проекта.

После повторного открытия АОТ все созданные объекты будут отсортированы в алфавитном порядке. Объекты, созданные пользователем, выделены жирным шрифтом. С пользовательскими объектами в дальнейшем удобнее работать в окне проекта.

На следующем шаге создадим перечислимые типы данных.

Для перечислимых типов данных в репозитарии прикладных объектов откройте узел перечислимых типов данных Base Enums. Создайте перечислимый тип данных, для этого выделите узел Base Enums, кликните правой кнопкой мыши и в открывшемся контекстном меню выберите Создать Base Епит.

Заполните свойства перечислимого типа данных «RentCarType» гак, как показано на рис. 7.21.

Рис. 7.21. Свойства RentCarType.

Метка «Марка автомобиля» (англ. «Brand саг») имеет код @RNT10. Метка «Марка арендуемого автомобиля» (англ. «Brand rental саг») имеет код @RNT11. Когда элементы перечислимого типа будут созданы, установите свойство UseEnum Value в значение Yes. Остальные свойства оставьте без изменений.

Теперь нужно определить перечень принимаемых значений. Для этого выделите только что созданный перечислимый тип данных «RentCarType», кликните правой кнопкой мыши и в контекстном меню выберите Создать Element. Определите свойства элементов в соответствии с таблицей ниже.

Аналогично создайте еще один перечислимый тип данных «RentNameService». Код метки Label для этого типа @SYS25500, имя метки «Услуга» (англ. «Service»). Код метки Help для этого типа @RNT16, имя метки «Дополнительные услуги» (англ. «Back-up service»). Создайте элементы «RentNameService» со свойствами, приведенными в таблице ниже.

Для удобства пользователей в разрабатываемом модуле мы будем использовать номерные серии. Чтобы инициализировать номерные серии в нашем модуле, нужно в перечислимый тип «NumberSeqModule» добавить новый элемент. В узле Base Enums репозитария прикладных объектов найдите перечислимый тип «NumberSeqModule» и добавьте в него новый элемент «RentCar» со свойствами: Label — @RNT19 («Аренда автомобиля», англ. «Rent саг»), EnumValue — 200.

Сохраните изменения — для этого нажмите на кнопку Сохранить все на панели инструментов в окне АОТ. Перенесите созданные объекты перечислимого типа данных и измененный объект «NumberSeqModule» в соответствующий узел проекта «RentCar». Сохраните проект: нажмите на кнопку Сохранить все на панели инструментов в окне проекта.

Далее перейдем к созданию таблиц.

В репозитарии прикладных объектов откройте узел таблиц Tables. Создайте таблицу: выделите узел Tables, кликните правой кнопкой мыши и в открывшемся контекстном меню выберите Создать Tables. Откройте свойства. Установите свойства в соответствии с таблицей ниже.

Остальные свойства оставьте без изменений.

В узле таблицы Fields создайте 2 поля. Первое поле со свойствами: тип string, Name — LedgerAccount, ExtendedDataType — LedgerAccount. Второе поле со свойствами: тип — integer, Name — Key, AllowEditOnCreate — No, AllowEdit — No, Visible — No, ExtendedDataType — Parameters Key.

В узле таблицы Field Groups создайте группу полей со свойствами: Name — LedgerAccount, Label — @SYS8343 (Счет ГК). В созданную группу перенесите поле LedgerAccount.

В узле таблицы Indexes создайте уникальный индекс со свойствами: Name — Key, AllowDuplicates — No. В созданный индекс перенесите поле Key.

После создания индекса необходимо доопределить свойства таблицы: Pnmarylndex — Key, Clasterlndex — Key.

Таблица «RentCarParameters» создана. По аналогии создайте еще 3 таблицы: «RentCarBrandTable» (табл. 7.4), «RentCarTable» (табл. 7.5), «RentCarServices» (табл. 7.6). Обратите внимание: свойства таблиц TitleField 1, TitleField2, Primary Index, Clasterlndex заполняют после создания полей и индексов.

Сохраните изменения: нажмите на кнопку Сохранить все на панели инструментов в окне АОТ. Перенесите созданные таблицы в соответствующий узел проекта «RentCar». Сохраните проект: нажмите на кнопку Сохранить все на панели инструментов в окне проекта.

Создадим отношения на расширенных типах данных.

Отношения на расширенных типах данных. Откройте узел ExtendedDataTypes проекта. Выберите «RentBrandld», в узле Relation создайте новое отношение. Для этого кликните правой кнопкой мыши, в появившемся контекстном меню выберите Создать / Обычный и заполните свойства: Table — RentCarBrandTable, RelatedField — RentBrandld (рис. 7.22).

Аналогично создайте отношение для «RentCarld» со свойствами: Table — RentCarTable, RelatedField — RentCarld (рис. 7.23).

Связи с таблицами. Для взаимосвязанных таблиц необходимо определить поведение данных при удалении записей. При удалении записи в таблице «RentCarTable» все связанные с ней записи в таблице «RentCarServices» должны быть удалены, так как для них будет невозможно получить доступ и отдельной ценности он не представляют. Создайте действия при удалении строки из таблицы. Для этого в узле DeleteActions таблицы «RentCarTable» кликните правой кнопкой мыши, в появившемся контекстном меню выберите Создать DeleteActions. Заполните свойства Table — RentCarServices, DeleteActions — Cascade (рис. 7.24).

Таблица 7.4

Таблица 7.5

Таблица 7.6

Свойства таблицы «RentCarServices».

Рис. 7.22. Создание отношения.

Рис. 7.23. Отношения на расширенных типах данных.

Рис. 7.24. Действия при удалении При удалении записи в таблице «RentCarBrandTable» сценарий поведения системы отличается. В «Главной книге» учитываются оплаты за аренду автомобиля и полученные дополнительные услуги, поэтому записи таблицы «RentCarTable» представляют ценность для учета, удаление автомобиля может нарушить целостность данных. Следовательно, если автомобиль когда-либо арендовался, удалять его из списка нельзя — нужно сначала удалить всю информацию о его аренде.

Аналогично для таблицы «RentCarBrandTable» создайте следующие действия при удалении: Table — RentCarTable, DeleteActions — Restricted.

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

Для таблиц с уникальным ключом необходимо определение методов find (отвечает за поиск записи в таблице по ключу — если записи нет, создает ее) и exist (отвечает за проверку наличия записи с заданным ключом).

Создайте для таблицы «Rent Car Parameters» следующие пользовательские методы: find, exist, numberSeqModule, numberSeqReference, numRentCarld. Для этого выделите узел Methods в таблице, кликните правой кнопкой мыши, в появившемся контекстном меню выберите пункт Создать Method. В появившемся окне введите следующий код (рис. 7.25) (обратите внимание: название метода в левой части окна заполняется автоматически): find ().

server static RentCarParameters find (boolean _forupdate = false).

{.

RentCarParameters parameter;

parameter.selectForUpdate (_forupdate); select firstonly parameter index key.

where parameter. key ==0;

if (! parameter).

{.

Company:createParameter (parameter); NumberSeqReference: construct (RentCarParameter s: numberSeqModule ()).load ();

}.

return parameter;

}.

Сохраните введенный текст. В результате компиляции в некоторых методах могут возникать ошибки. После создания классов и методов в формах перекомпилируйте методы с ошибками — компиляция должна завершаться без ошибок.

Рис. 7.25. Создание метода find.

Аналогично создайте остальные методы, exist ().

static boolean exist ().

{.

return (select firstonly recld.

from RentCarParameters).recID≠ 0;

}.

Следующие методы возвращают объект класса для генерации значения поля «RentCarld». numberSeqModule ().

static client server NumberSeqModule numberSeqModule ().

{.

return NumberSeqReference_RentCar:numberSeqModule () ;

}.

numberSeqReference ().

static client server NumberSeqReference numberSeqReference ().

{.

return NumberSeqReference:

construct (RentCarParameters:numberSeqModule ());

}.

numRentCarld ().

static client server NumberSequenceReference numRentCarld ().

{.

return NumberSeqReference:

findRef erence (TypeId2ExtendedTypeId (typeld (RentCarld)));

}.

Display-методы предназначены для получения представления содержимого таблиц на формах и в отчетах — они никогда не изменяют данные. Они создаются аналогично пользовательским методам.

Создайте display-метод container2Text для таблицы «RentCarBrandТаЫе». Он служит для преобразования информации о дефектах автомобиля, хранящихся в поле контейнера, в текстовое поле и последующего отображения в форме и в отчете.

display RentProblemSrt container2Text ().

{.

List list = new List (TYPES:String); container c = (select RentCarBrandTable.

where RentCarBrandTable. RentBrandld == this. RentBrandld).Problem;

f

if (con2str©≠ ««).

{.

list = list: create (c);

list.getEnumerator () .reset (); return list. toString () ;

}.

else.

{.

return" «;

}.

}.

Для того чтобы привязать данный метод к таблице, создайте в таблице «RentCarBrandTable» группу полей «Problem» (label: @RNT7 «Недостатки в автомобиле», англ. «Defect of the саг») и перетащите мышкой созданный метод в нее.

Аналогично в таблице «RentCarTable» в группу полей «Customer» внесите display-метод totalExpense, определяющий сумму оплаты клиента за все дни аренды автомобиля и купленные им дополнительные услуги: display Amount totalExpense ().

{.

RentCarBrandTable car;

RentCarServices services;

r

select firstonly RentCost from car.

where car. RentBrandld == this. RentBrandld;

select sum (Amount)from services.

where services. RentCarId == this. RentCarld; return (this.ToDate — this. FromDate +1) * car. RentCost + services. Amount;

Помимо пользовательских методов, у таблицы существуют системные методы. Однако их поведение можно изменить. Перекройте методы delete и validateDelete для таблицы «RentCarParameters». Для этого в контекстном меню узла Methods выберите пункт Перекрыть метод / delete. Замените код в методе delete на приведенный ниже: void delete ().

{.

throw error («0SYS23721») ;

}.

Метка @SYS23721 имеет значение «Нельзя удалить проводку». Метод delete запрещает удалять строки из таблицы «RentCarParameters» и выводит соответствующее сообщение. Сохраните изменения.

Аналогично в контекстном меню узла Methods выберите пункт Перекрыть метод / validateDelete и замените код на приведенный ниже: boolean validateDelete ().

{.

return false;

}.