How-to: Ввод данных
Пример 1
Условие
Есть форма которая отображает список книг. Необходимо реализовать ввод имени, но только большими буквами. Также должны поддерживаться групповая корректировка, PASTE и т.п.
CLASS Book 'Книга';
name 'Наименование' = DATA ISTRING[100] (Book);
FORM books
OBJECTS b = Book
;
NAVIGATOR {
NEW books;
}
Решение
changeName(Book b) {
// вводим ISTRING[100] "в параметр" s
// (автоматически оборачивается в REQUEST, то есть доступны групповая корректировки, PASTE и т.п.)
INPUT s = ISTRING[100]
DO // проверка на requestCanceled
name(b) <- s;
}
EXTEND FORM books
PROPERTIES (b) name ON CHANGE changeName(b)
;
Пример 2
Условие
Есть форма которая отображает список книг. В этой форме, при необходимости, можно задать жанр, и, соответственно, книги только этого жанра будут отображаться. Также есть форма списка заказов, в которой также можно фильтровать по жанрам. Для книги существует признак запрета, соответственно в заказе могут быть только не запрещенные книги.
CLASS Genre 'Жанр';
name 'Наименование' = DATA ISTRING[100] (Genre);
genre 'Жанр' = DATA Genre (Book);
isForbidden 'Запрет' = DATA BOOLEAN (Book);
CLASS Order 'Заказ';
book 'Книга' = DATA Book (Order);
nameBook 'Наименование книги' (Order o) = name(book(o));
date 'Дата' = DATA DATE (Order);
number 'Номер' = DATA STRING[100] (Order);
CONSTRAINT isForbidden(book(Order o))
CHECKED BY book MESSAGE 'Запрещено выбирать эту книгу';
FORM booksByGenre
OBJECTS g = Genre PANEL
PROPERTIES (g) name
OBJECTS b = Book
PROPERTIES (b) name
;
FORM orders 'Заказы'
OBJECTS g = Genre PANEL
PROPERTIES (g) name
OBJECTS o = Order
PROPERTIES(o) READONLY date, number
FILTERS g == genre(book(o))
;
NAVIGATOR {
NEW orders;
}