Руководство VisiCAR™ Developer
<< 1.10 Описание встроенных процедур и функций, а также свойств и методов источников данных Оглавление Приложение A >>

1.11 Применение

Вот некоторые простые примеры использования интерпретатора:

1.Необходимо вывести сумму заказа: белым фоном, если сумма меньше 2000;

зеленым, если сумма от 2000 до 10000; красным, если сумма больше 10000.

Для этого в объекте с суммой необходимо набрать следующий скрипт:

if [Сумма] < 2000 then
FillColor := clTransparent
else if [Сумма] < 10000 then
FillColor := clGreen
else
FillColor := clRed

Цвет можно задать числом, например:

FillColor := 128 + 128*256 + 128*65536 //(серый цвет)

2.Необходимо вывести те записи, для которых сумма заказа больше 2000.

Для этого в бэнде необходимо набрать следующий скрипт (редактор можно

вызвать из инспектора объектов):

if [Сумма] > 2000 then
Visible := 1 else
Visible := 0

3. Пользуясь функцией FreeSpace, которая возвращает размер свободного места на листе, и процедурой NewPage, которая начинает печать с новой страницы (или NewColumn – с новой колонки), можно управлять процессом формирования отчета.

Например: если места осталось меньше 30мм, начать печать со следующего листа. Для этого в скрипте нужного бэнда необходимо набрать следующее:

if FreeSpace * 5/18 < 30 then NewPage

4. Для того, чтобы вывести бэнд Report summary внизу страницы, используйте следующий код в скрипте этого бэнда:

CurY := PageHeight - Height



<< 1.10 Описание встроенных процедур и функций, а также свойств и методов источников данных Оглавление Приложение A >>
© ООО "Кигли", 2002-2004