Для этого используется тип VIRTUAL
Для этого используется тип VIRTUAL с обязательным указанием источника данного элемента данных.
RECORD Цены
02 Цена TYPE REAL
02 Товар VIRTUAL
SOURCE IS Товары.Наименование Товара
OF OWNER OF Товар - Цены SET
Наиболее интересна операция поиска (FIND), так как именно она отражает суть навигационных методов, применяемых в сетевой модели. Всего существует семь типов операций поиска:
1. По ключу (запись должна быть описана через CALC USING ...):
FIND RECORD BY CALC KEY
2. Последовательный просмотр записей данного типа:
FIND DUPLICATE RECORD BY CALC KEY
3. Найти владельца текущего экземпляра набора:
FIND OWNER OF CURRENT SET
4. Последовательный просмотр записей-членов текущего экземпляра набора:
FIND (FIRST | NEXT) RECORD IN CURRENT SET
45
5. Просмотр записей - членов экземпляра набора, специфицированных рядом полей:
FIND [DUPLICATE] RECORD IN CURRENT SET USING
6. Сделать текущей записью процесса текущий экземпляр набора:
FIND CURRENT OF SET
7. Установить текущую запись процесса:
FIND CURRENT OF RECORD
Например, алгоритм и программа печати заказов, сделанных Петровым, будут выглядеть так:
|
ФИО = "Петров" FIND Люди RECORD BY CALC KEY FIND FIRST Заказы RECORD IN CURRENT Люди-Заказы SET WHILE NOT FAIL DO FIND OWNER OF CURRENT Товары-Заказы SET GET Товары PRINT Найм Товара FIND NEXT Заказы RECORD IN CURRENT Люди-Заказы SET END |
46
44 :: 45 :: 46 :: Содержание
Содержание Назад Вперед