Технология "Мельница данных" предлагает решения традиционных проблем разработки и сопровождения учетных систем за счет следующих инноваций:

1. Объектная модель хранится в системе по тем же принципам, что и модель бизнес-данных, т.е. объекты классов, описывающих метаданные системы (классы, поля, методы, свойства, пользовательские формы) хранятся в базе данных и отображаются при помощи стандартного пользовательского интерфейса. Моделирование системного слоя метаданных системы произведено разработчиками платформы. Модель системного слоя документирована и доступна для просмотра и использования разработчикам прикладных систем.
2. Разработка прикладных учетных систем ведется в той же среде, что и работа конечных пользователей. Текущая модель прикладной системы доступна для просмотра и использования всеми разработчиками.
3. На основе заложенной объектной модели прикладной системы автоматически генерируется SQL-код (как DML, так и DDL составляющие), что полностью освобождает разработчика прикладной системы от SQL-программирования.
4. Пользовательские интерфейсы (формы, представления) также описываются при помощи объектной модели и хранятся в базе данных. Это позволяет автоматически генерировать формы просмотра данных и формы задания параметров методов, что освобождает разработчика прикладной системы от написания кода клиентского приложения. Для тонкого управления поведением форм задания параметров может использоваться язык VB-script.
5. При внесении изменений в объектную модель:
   • новое состояние модели отображается в пользовательском интерфейсе в доступной для всех разработчиков форме;
   • текущая объектная модель в виде диаграммы классов может быть выгружена в HTML-отчет, что является базовой возможностью платформы;
   • внесение изменений в структуру базы данных и пользовательские интерфейсы производится автоматически средствами платформы.

Основными элементами стандартизованного пользовательского интерфейса являются развитые элементы управления, работающие с данными:

• Таблицы данных - отображают списки объектов в табличной форме, удобной для восприятия пользователя. Таблицы данных позволяют производить сортировку, группировку объектов, фильтрацию данных по ряду условий, подведение агрегатов (количества объектов, наибольшего, наименьшего значения, суммы, среднего и т.д.), отображение и скрытие групп, подведение итогов по группе. Таблицы данных имеют функционал, позволяющий отображать иерархические структуры, а также производить произвольный отбор отображаемых объектов пользователем. Используемые таблицы данных позволяют работать с большими объемами данных без потери производительности.
• Инспектор объектов - отображает все свойства выбранных (одного или нескольких) объектов в двух колонках: имя свойства - значение свойства. Инспектор объектов позволяет просматривать все свойства объектов, а также изменять значения свойств как одного объекта, так и для всех выделенных объектов одним действием.
• Форма задания параметров - отображается при вызове пользователем одного из методов. На форме расположены элементы управления Поле ввода, соответствующие описанным для метода параметрам. Внешний вид и поведение элементов управления зависят от типа описанных параметров. Поведением элементов управления на форме можно управлять при помощи скрипта формы, разрабатываемого на языке VB-script.
• Поле ввода - используется для задания значений свойств и параметров как в Таблице данных, так и в Инспекторе объектов и на формах задания параметров. Имеет функционал, позволяющий редактировать значения различных типов. Использование стандартизованного пользовательского интерфейса позволяет снизить издержки как на его сопровождение, так и на обучение пользователей работе на новых участках.

Реализованы развитые возможности интеграции с третьесторонними системами. Они обеспечиваются следующими механизмами:

1. Возможность переноса в Microsoft Excel любого видимого представления "as-is" с сохранением всех группировок, сортировок, агрегатов и т. п.
2. Возможность вывода отчетов в виде документов Microsoft Office с передачей в среду функционирования Office соединения с БД, что позволяет строить отчеты любой степени сложности.
3. Возможность использования в системе любого внешнего Ole-объекта как метода любого класса без ограничений.
4. Возможность использования скриптлетов (фрагментов кода на скриптовом языке VBScript и/или JScript) как методов системы, фактически - возможность реализации на этих языках сколь угодно сложного поведения.
5. Возможность формирования отчетов непосредственно в виде html-документов для последующей публикации их в сети Internet.

Технология разработки и сопровождения учетных систем "Мельница данных" требует для своего функционирования объектную модель бизнес-сущностей. Технология диктует ряд дополнительных требований к объектной модели.

1. Все классы наследуются от единого корня, класса TObject. Класс TObject вводит ряд элементов состояния, поведения и представления, которые наследуются всеми учитываемыми объектами в обязательном порядке.
2. Множественное наследование не поддерживается (т.е. у каждого класса может быть один и только один родитель).
3. Множественная инкапсуляция не поддерживается (т.е. у каждого объекта может быть один либо ни одного инкапсулирующего объекта).
4. Простые типы данных вводятся посредством доменов. Домены определяют обязательность своих значений, а также другие характеристики, зависящие от класса домена. Домены бывают:
   • строковые (определяют максимальную длину строки);
   • целочисленные (определяют максимальное и минимальное значение целого числа);
   • вещественные (определяют максимальное и минимальное значение числа, количество значащих цифр);
   • логические;
   • значения типа "дата";
   • значения типа "время";
   • значения типа "дата со временем";
   • перечисления (определяют список возможных значений);
   • ссылка (определяют класс-приемник ссылки);
   • большие двоичные объекты (текст, изображение, файл, и т.д.).

Все члены родительского класса наследуются дочерним классом следующим образом:

Все поля родительского класса доступны в дочернем классе. При создании в дочернем классе поля с тем же именем, что и в родительском классе, класс-наследник теряет возможность напрямую манипулировать полем родительского класса и получает поле с тем же именем. Можно сказать, что новое поле "закрывает" старое, но не "замещает" его.

Все методы родительского класса наследуются дочерним классом. При создании в дочернем классе метода с тем же именем, что и в родительском классе, метод переопределяется, т.е. вместо старого метода будет существовать новый. Единственный способом обратиться к старому (унаследованному) методу является использование в теле метода оператора унаследованного вызова inherited (см. раздел 5.3.14.). Переопределенный метод имеет все параметры родительского метода и может расширять список параметров, а также переопределять унаследованные параметры (создавая параметры с тем же именем и изменяя любой другой атрибут параметра по своему усмотрению). Скрипты форм задания параметров не наследуются и должны быть полностью заданы в переопределенном методе. Изображения-иконки методов наследуются и могут не переопределяться явно.

Все свойства родительского класса доступны в дочернем классе. При создании в дочернем классе свойства с тем же именем, что и в родительском классе, класс-наследник теряет возможность напрямую манипулировать свойством родительского класса и получает свойство с тем же именем. Можно сказать, что новое свойство "закрывает" старое, но не "замещает" его. На практике часто бывает необходимо в унаследованном методе (особенно в конструкторе) скрыть часть параметров от пользователя, либо сузить область выбора значений для каких либо параметров. В этом случае необходимо переопределить параметры в унаследованном методе с новыми значениями свойства Scope ("Область видимости") или Domain ("Домен"). Это нормальная рекомендуемая практика. Необходимо понимать, что скрыв с формы элемент управления, соответствующий параметру, значение которого обязательно, необходимо предусмотреть, чтобы этот параметр получил значение до вызова унаследованного метода, либо из скрипта формы задания параметров, либо в теле самого метода.

1begin
2  Name := UniqueValue;                    (1)
3  inherited;                         (2)
4  // инициализация собственных полей
5end;
  

Portable Document Format (PDF) — кроссплатформенный формат электронных документов, созданный фирмой Adobe Systems с использованием ряда возможностей языка PostScript. В первую очередь предназначен для представления в электронном виде полиграфической продукции, — значительное количество современного профессионального печатного оборудования может обрабатывать PDF непосредственно. Для просмотра можно использовать официальную бесплатную программу Adobe Reader, а также программы сторонних разработчиков. Традиционным способом создания PDF-документов является виртуальный принтер, то есть документ как таковой готовится в своей специализированной программе — графической программе или текстовом редакторе, САПР и т. д., а затем экспортируется в формат PDF для распространения в электронном виде, передачи в типографию и т. п. Формат PDF позволяет внедрять необходимые шрифты (построчный текст), векторные и растровые изображения, формы и мультимедиа-вставки. Поддерживает RGB, CMYK, Grayscale, Lab, Duotone, Bitmap, несколько типов сжатия растровой информации. Имеет собственные технические форматы для полиграфии: PDF/X-1, PDF/X-3. Включает механизм электронных подписей для защиты и проверки подлинности документов. В этом формате распространяется большое количество сопутствующей документации. Чаще всего PDF-файл является комбинацией текста с растровой и векторной графикой, реже — текста с формами, JavaScript'ом, 3D-графикой и другими типами элементов.

В приложениях Платформы "Мельница данных" для создания PDF-документов используется собственная библиотека PDFCreator.dll. С помощью библиотеки возможно прямое создание документов версии 1.3 . Создание PDF-документов осуществляется путем ввода предопределенных в библиотеке команд, которые в дальнейшем интерпретируются на основе языка описания страниц POSTSCRIPT.

Для создания и описания свойств PDF-документа в библиотеке PDFCreator.dll используется класс IPDFDocument, обладающий следующими свойствами:

• Title (WideString) - заголовок документа. По умолчанию - пустая строка.

  Пример

  Title = "DOC1"

• CanEmbedFonts (WordBool) - Признак возможности построения PDF- документа со встроенными шрифтами (Embedded Fonts). В случае включения признака, все объявленные в скрипте шрифты будут включены в сборку документа и будут передаваться целиком вместе с документом. По умолчанию - False.

  Пример

  1CanEmbedFonts = True 2CanEmbedFonts = False

• CanCompress (WordBool) - признак сжатия документа при создании по собственным алгоритмам. По умолчанию - True.

  Пример

  1CanCompress = False 2CanCompress = True

• Author (WideString) - автор документа. По умолчанию - текущий пользователь ОС.
• Subject (WideString) - описание документа. По умолчанию - пустая строка.
• Keywords (WideString) - ключевые слова для поиска по документу. По умолчанию - пустая строка.
• Creator (WideString) - приложение-родитель документа. Указывается в том случае, если документ был сконвертирован из другого формата.
• PageCount (Integer) - свойство, содержащее общее количество страниц в документе.
• Pages[Index: Integer]: IPDFPage - свойство документа, предназначенное для перебора страниц документа для совершения над ними однотипных действий.

  Пример

  Пример использования: 1for I = 0 to PageCount - 1 2 Pages(I).rectangle 10,10,10,10, false 3next 4Save "c:\pdf.pdf" Результат: На всех страницах документа будут нарисованы квадраты 10х10 мм.

• procedure Save(Target: OleVariant) - процедура для сохранения документа PDF на жесткий диск сразу после создания.

  Пример

  Save "c:\pdf.pdf" - сохранит документ в файл c:\pdf.pdf

Для создания страницы используется функция

function CreatePage(Parent: OleVariant): IPDFPage;

Параметр Parent указывает страницу-родителя для данной страницы. Если страницы- родителя быть не должно - формат вызова функции примет вид:

Параметры страницы:

• Title - заголовок страницы.

  Пример

  page.Title = "Page name"

• Width - ширина страницы, миллиметры

  Пример

  page.Width = 80

• Height - высота страницы, миллиметры

  Пример

  page.Height = 80

• DrawGrid - процедура, выводящая на страницу сетку с шагом 5 миллиметров для удобства отладки вида документа.
• Perform - процедура, позволяющая выполнить дополнительные команды PostScript на странице.

  Пример

  1page.perform "1 0.7 0 0 k" 2page.perform "0 0 m"

Для объявления цвета объектов на странице используется цветовая модель R:G:B (Red:Green:Blue). Объявление цвета для выполнения последующих операций (цвет шрифта, цвет линии/фигуры) осуществляется процедурой

procedure SetColor(R: Integer; G: Integer; B: Integer);

Для отрисовки линий используется процедура

procedure Line(X1: Double; Y1: Double; X2: Double; Y2: Double);

• X1 - координата начала линии по горизонтали в миллиметрах от верхнего левого угла листа.
• Y1 - координата начала линии по вертикали в миллиметрах от верхнего левого угла листа.
• X2 - координата конца линии по горизонтали в миллиметрах от верхнего левого угла листа.
• Y2 - координата Конца линии по вертикали в миллиметрах от верхнего левого угла листа.

Для задания толщины линии используется свойство

property LineWidth: Double

Для задания стиля отрисовки начала/окончания линии используется свойство property LineCap: TPDFLineCap
Возможные стили:

Значение свойства:	Отображение:	Описание:
0		Прямой срез точно по точкам начала и окончания линии (по умолчанию)
1		С закруглением
2		Прямой срез с продолжением линии на половину толщины линии

Объявление цвета линии.

Пример

Две линии разной толщины, с разными окончаниями и цветами: 01set page = CreatePage(Null) 02 03page.DrawGrid 04 05page.LineCap = 1 06 07page.LineWidth = 2 08 09page.Line 10, 10, 30, 30 10 11page.LineWidth = 4 12 13page.SetColor 255, 0, 0 14 15page.LineCap = 2 16 page.Line 10, 30, 30, 10."I Результат:

При необходимости соединения линий под углом в определенной точке можно задать тип соединения. Для объявления типа соединения используется свойство property LineJoin: TPDFLineJoin;
Типы соединения двух линий:

Значение свойства	Отображение	Описание
0		С острым углом
1		С закруглением
2		С обрезанным углом

Пунктир

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

Процедура procedure SetDash(DashArray: OleVariant; Phase: Integer); Здесь DashArray - массив значений в миллиметрах, указывающий последовательность чередования штрихов и пропусков на линии, Phase - смещение в миллиметрах по линии.

Пример

Пример 1. Штрих 10 мм, Промежуток 5 мм, Смещения нет Пример 2. Штрих 10 мм, Промежуток 5 мм, Смещение 5 мм Пример 3. Различные значения штрихов и промежутков, Смещения нет 01set page = CreatePage(Null) 02 03page.DrawGrid 04 05page.LineWidth = 3 06 07page.SetDash Array(10, 5), 0 08 09page.Line 10, 10, 100, 10 10 11page.SetDash Array(10, 5), 5 12 13page.Line 10, 20, 100, 20 14 15page.SetDash Array(10, 5, 3, 2, 12, 20), 0 16 page.Line 10, 30, 100, 30 Результат:

Ломанная линия - здесь непрерывная линия, состоящая из нескольких прямых. Для отображения ломанной используется процедура procedure Poly(Points: OleVariant; Fill: WordBool), где Points - массив координат точек соединяемых прямыми, а Fill - признак заливки полученной замкнутой фигуры (если замкнута).

Пример

Пример Звезда без заливки 1set page = CreatePage(Null) 2 3page.DrawGrid 4 5page.LineWidth = 3 6 page.Poly Array(10, 45, 100, 45, 27, 103, 55, 10, 82, 103, 10, 45), false Результат:

Пример

Пример Звезда с заливкой 1set page = CreatePage(Null) 2 3page.DrawGrid 4 5page.LineWidth = 3 6 page.Poly Array(10, 45, 100, 45, 27, 103, 55, 10, 82, 103, 10, 45), true Результат:

Rectangle (Прямоугольник) - для создания используется процедура:

procedure Rectangle(X1: Double; Y1: Double; Width: Double; Height: Double; Fill: WordBool);

• X1 - координата верхнего левого угла прямоугольника по горизонтали в миллиметрах от верхнего левого угла листа шаблона.
• Y1 - координата верхнего левого угла прямоугольника по вертикали в миллиметрах от верхнего левого угла листа шаблона.
• Width - ширина прямоугольника с миллиметрах.
• Height - высота прямоугольника с миллиметрах.
• Fill - признак заливки прямоугольника (True/False). Если значение True то заливка производится объявленным заранее цветом (см. Объявление цвета). Если False - заливка не производится. Прямоугольник отрисовывается линиями с предварительно заданной толщиной. См. Линии
  

Пример

Пример 1. Создание красного прямоугольника: 1set page = CreatePage(Null) 2 3page.SetColor 255, 0, 0 4 5page.Rectangle 10, 15, 40, 20, True 6 page.DrawGrid Результат: Пример 2. Пустой прямоугольник без задания цвета: 1set page = CreatePage(Null) 2 3page.DrawGrid 4 5page.Rectangle 12, 17, 42, 25, false 6 page.DrawGrid Результат:

Также существует возможность изменения стиля отображения углов прямоугольника. Для этого нужно использовать свойство property LineJoin: TPDFLineJoin;

Значение свойства	Отображение	Описание
0		С острым углом
1		С закруглением
2		С обрезанным углом

Пример построения прямоугольников с различными типами соединения сторон:

Пример

01set page = CreatePage(Null) 02 03page.DrawGrid 04 05page.LineWidth = 4 06 07page.LineJoin = 0 08 09page.Rectangle 10, 10, 20, 10, false 10 11page.LineJoin = 1 12 13page.Rectangle 40, 10, 20, 10, false 14 15page.LineJoin = 2 16 page.Rectangle 70, 10, 20, 10, false Результат:

Для вставки на создаваемую страницу готового изображения используется процедура procedure Image(const FileName: WideString; X: Double; Y: Double; Width: Double; Height: Double)

Параметры:

• const FileName - имя файла изображения и путь к нему на жестком диске. Задается в кавычках.
• X - координата левой верхней точки изображения по отношению к верхнему левому углу страницы по горизонтали в миллиметрах
• Y - координата левой верхней точки изображения по отношению к верхнему левому углу страницы по вертикали в миллиметрах
• Width - ширина изображения в миллиметрах
• Height - высота изображения в миллиметрах.

Пример

1set page = CreatePage(Null) 2page.drawgrid page.Image "c:\mill.bmp", 10,10, 30, 30 Результат:

Вне зависимости от размера исходного изображения, при вставке изображения на создаваемую страницу оно будет растянуто по размерам, прописанным в процедуре.

Язык PostScript, с помощью которого создаются векторные изображения для PDF-документа, поддерживает создание типичных примитивных объектов, таких как:

• Прямые и ломанные линии
• Многоугольники
• Окружности и эллипсы
• Кривые Безье
• Текст

При создании векторного изображения на странице PDF-документа в приложениях Платформы, команды построения примитивных объектов PostScript передаются на исполнение при помощи процедуры Perform. Подробнее об операторах и командах PostScript для создания PDF-документов можно узнать на сайте Adobe

Шрифты, которые должны использоваться в создаваемом документе, должны быть предварительно объявлены. Для объявления используемых шрифтов используется функция
function CreateFont(const FontName: WideString; Size: Double; Bold: WordBool; Italic: WordBool): IPDFFont; где:

• const FontName - имя шрифта, аналогичное имени объявляемого шрифта в операционной системе. В Функции объявляется в кавычках.
• Size - размер шрифта в пунктах
• Bold - признак начертания шрифта "жирный". Значения - True или False
• Italic - признак начертания шрифта "курсив". Значения - True или False

1set font = page.createFont("Arial", 20, False, False)
2set labelFont = page.createFont("Times New Roman", 16, False, True)
3set dataFont = page.createFont("Tahoma", 18, True, False)
  

Для вывода текстовой информации на страницу используются процедуры:

• procedure WriteLine(const LineText: WideString; X: Double; Y: Double);
  - используется для вывода текстовой строки
• function WriteText(const AText: WideString; X: Double; Y: Double; Width: Double; Alignment: TPDFTextAlignment): Double;
  - используется для вывода текстового блока.

Параметры для procedure WriteLine :

• const LineText - текстовая строка для вывода. Прописывается в кавычках. Будет выведена на страницу одной строкой.
• X - координата верхней левой точки текстовой строки по горизонтали в миллиметрах.
• Y - координата верхней левой точки текстовой строки по вертикали в миллиметрах.

Пример

Примеры вывода текстов на страницу: 01set page = CreatePage(Null) 02page.DrawGrid 03set font = page.createFont("Arial", 20, False, False) 04set labelFont = page.createFont("Times New Roman", 16, False, True) 05set dataFont = page.createFont("Tahoma", 18, True, False) 06Font.WriteLine "Фамилия", 5, 2 07Font.WriteLine "Имя", 5, 10 08Font.WriteLine "Отчество", 5, 18 09labelFont.WriteLine "Дата рождения", 5, 26 10dataFont.WriteLine "Национальность", 5, 34 Результат:

Параметры для function WriteText :

• const AText - текст для вывода на страницу. Прописывается в кавычках. Будет выведена на страницу в виде текстового блока.
• X - координата верхней левой точки текстового блока по горизонтали в миллиметрах.
• Y - координата верхней левой точки текстового блока по вертикали в миллиметрах.
• Width - ширина текстового блока в миллиметрах
• Alignment - тип выравнивания текста в текстовом блоке.
  

  Значение параметра	Тип выравнивания
  0	По левому краю
  1	По правому краю
  2	По центру
  3	Выравнивание по ширине

Пример

Примеры вывода текстовых блоков на страницу: 1set page = CreatePage(Null) 2page.DrawGrid 3set font = page.createFont("Arial", 14, False, False) 4set labelFont = page.createFont("Times New Roman", 12, False, True) 5set dataFont = page.createFont("Tahoma", 11, True, False) 6Q = font.WriteText ("Тест работы свойства для выравнивания текста в текстовом блоке для документа PDF, создаваемого на Платформе Мельница Данных", 5, 5, 100, 0) 7Q = labelFont.WriteText ("Тест работы свойства для выравнивания текста в текстовом блоке для документа PDF, создаваемого на Платформе Мельница Данных", 5, 35, 100, 1) 8Q = dataFont.WriteText ("Тест работы свойства для выравнивания текста в текстовом блоке для документа PDF, создаваемого на Платформе Мельница Данных", 5, 55, 100, 2) 9Q = dataFont.WriteText ("Тест работы свойства для выравнивания текста в текстовом блоке для документа PDF, создаваемого на Платформе Мельница Данных", 5, 80, 100, 3) Результат:

Свойства шрифтов:

property Spacing: Double; - свойство, отвечающее за величину промежутка между буквами в слове. Задается в виде отклонения от промежутка между буквами по умолчанию для выбранного шрифта по горизонтальной оси в миллиметрах. Значение свойства равное "0" соответствует значению по умолчанию.

Пример

Пример: 01set page = CreatePage(Null) 02page.DrawGrid 03set font = page.createFont("Arial", 14, False, False) 04set labelFont = page.createFont("Arial", 14, False, False) 05set dataFont = page.createFont("Arial", 14, False, False) 06font.Spacing = 0 07labelFont.Spacing = 1 08dataFont.Spacing = 2 09font.WriteLine "Промежуток по умолчанию (0)", 5, 5 10labelFont.WriteLine "Промежуток с отклонением (1 мм)", 5, 10 11dataFont.WriteLine "Промежуток с отклонением (2 мм)", 5, 15 Результат:

property WordSpacing: Double; - свойство, отвечающее за величину промежутка между соседними словами. Задается в виде отклонения от промежутка между словами по умолчанию для выбранного шрифта по горизонтальной оси в миллиметрах. Значение свойства равное "0" соответствует значению по умолчанию.

Пример

Пример: 01set page = CreatePage(Null) 02page.DrawGrid 03set font = page.createFont("Arial", 14, False, False) 04set labelFont = page.createFont("Arial", 14, False, False) 05set dataFont = page.createFont("Arial", 14, False, False) 06font.WordSpacing = 0 07labelFont.WordSpacing = 2 08dataFont.WordSpacing = 5 09font.WriteLine "Промежуток по умолчанию (0)", 5, 5 10labelFont.WriteLine "Промежуток с отклонением (2 мм)", 5, 10 11dataFont.WriteLine "Промежуток с отклонением (5 мм)", 5, 15 Результат:

property Scaling: Double; - свойство, отвечающее за горизонтальное масштабирование букв используемого шрифта. Устанавливается в процентах. Горизонтальный масштаб по умолчанию - 100%.

Пример

Пример: 01set page = CreatePage(Null) 02page.DrawGrid 03set font = page.createFont("Arial", 14, False, False) 04set labelFont = page.createFont("Arial", 14, False, False) 05set dataFont = page.createFont("Arial", 14, False, False) 06font.Scaling = 50 07labelFont.Scaling = 100 08dataFont.Scaling = 200 09font.WriteLine "Сжатие (50)", 5, 5 10labelFont.WriteLine "По умолчанию (100)", 5, 10 11dataFont.WriteLine "Растягивание (150)", 5, 15 Результат:

property RenderingMode: TPDFFontRenderingMode; - свойство, отвечающее за заливку букв используемого шрифта.
Типы заливки:

Значение параметра:	Отображение:	Описание:
0		Сплошная заливка (по умолчанию). Буква заливается сплошным цветом, объявленным на данный момент.
1		Только граница. Прорисовывается граница буквы. Тело остается незалитым.
2		Сначала заливка, потом граница. Граница прорисовывается всегда черным цветом. Заливка осуществляется сплошным цветом, объявленным на данный момент.
3		Невидимый шрифт.

Пример

Пример: 01set page = CreatePage(Null) 02set font = page.createFont("Arial", 20, False, False) 03set labelFont = page.createFont("Arial", 20, False, False) 04set dataFont = page.createFont("Arial", 20, False, False) 05font.RenderingMode = 0 06labelFont.RenderingMode = 1 07dataFont.RenderingMode = 2 08page.setColor 255, 0, 0 09Q = font.WriteText ("Олимпиада", 5, 5, 50, 0) 10Q = labelFont.WriteText ("Олимпиада", 5, 15, 50, 0) 11Q = dataFont.WriteText ("Олимпиада", 5, 25, 50, 0) Результат:

property Rise: Double; - свойство, отвечающее за перемещение текста по вертикали.

Пример

01set page = CreatePage(Null) 02page.DrawGrid 03set font = page.createFont("Arial", 20, False, False) 04set labelFont = page.createFont("Arial", 7, False, False) 05set dataFont = page.createFont("Arial", 7, False, False) 06labelFont.rise = -17 07dataFont.rise = -2 08Q = font.WriteText ("Олимпиада", 5, 5, 50, 0) 09Q = labelFont.WriteText ("Олимпиада", 44, 5, 50, 0) 10Q = dataFont.WriteText ("Олимпиада", 44, 5, 50, 0) Результат:

Для определения размеров текстовой строки используется процедура MeasureLine(const LineText: WideString; out Width: OleVariant; out Height: OleVariant);

Здесь:

• LineText - исходный текст для размещения на странице
• Width - возвращаемый параметр ширины текстового блока на странице
• Height - возвращаемый параметр высоты текстового блока на странице

1S = "шифр"
2font.MeasureLine S, W, H
3Q = font.WriteText(S, 139, 244 + ((23 - H) / 2), 40, 2)
  

Для определения высоты текстового блока используется функция MeasureText(const AText: WideString; Width: Double): Double; safecall;

Функция распределит текст по задаваемому значению ширины текстового блока и вернет значение высоты текстового блока в милиметрах.

Здесь:

• AText - исходный текст для размещения на странице. Прописывается в кавычках.
• Width - задаваемая ширина текстового блока на странице в милиметрах.

1S = "Текст для размещения на странице..."
2Q = font.MeasureText(S, 139)
  

Для создания шаблона PDF-документа необходимо в системной форме Платформы выбрать класс, к которому будет строиться документ. В подменю "Подпрограммы" вызвать контекстное меню и выбрать пункт "Создать шаблон отчета PDF". Заполнить необходимые поля и приступить к созданию скрипта в окне "Скрипт шаблона".

1. Объявляем все переменные.
2. Создаем страницы
3. Устанавливаем все свойства документа и страниц
4. Рисуем простые графические объекты
5. Объявляем все используемые шрифты
6. Расставляем постоянный текст на странице
7. Расставляем переменный текст на странице
8. Вставляем или создаем сложные графические объекты

001set LDataSet = createDataSet("TRoundAbiturSt")
002'Объявление переменных
003LDataSet.AddQueryItem 1, "ID", ID
004LDataSet.AddQueryItem 0, "RoundComp$N"
005LDataSet.AddQueryItem 0, "BachRound$N"
006LDataSet.AddQueryItem 0, "LastName"
007LDataSet.AddQueryItem 0, "FirstName"
008LDataSet.AddQueryItem 0, "MiddleName"
009LDataSet.AddQueryItem 0, "BirthDate"
010LDataSet.AddQueryItem 0, "RegNumber"
011LDataSet.AddQueryItem 0, "SecondStageCity$D"
012LDataSet.AddQueryItem 0, "PhoneList"
013
014'Присваивание переменным значений
015OlympName = LDataSet.Field("RoundComp$N")
016OlympClass = LDataSet.Field("BachRound$N")
017LastName = LDataSet.Field("LastName")
018FirstName = LDataSet.Field("FirstName")
019MiddleName = LDataSet.Field("MiddleName")
020if not IsNull(LDataSet.Field("BirthDate")) then
021  BirthDate = LDataSet.Field("BirthDate")
022else
023  BirthDate = "(не задана)"
024end if
025RegNo = LDataSet.Field("RegNumber")
026if not IsNull(LDataSet.Field("SecondStageCity$D")) then
027  OlympCity = LDataSet.Field("SecondStageCity$D")
028else
029  OlympCity = "(не выбран город участия)"
030end if
031if not IsNull(LDataSet.Field("PhoneList")) then
032  Phone = LDataSet.Field("PhoneList")
033else
034  Phone = ""
035end if
036
037'CanCompress = False - признак сжатия файла
038set page = CreatePage(Null) ' создаем страницу
039'Объявляем используемые шрифты
040set font = page.createFont("Arial", 20, False, False)
041set labelFont = page.createFont("Arial", 16, False, False)
042set dataFont = page.createFont("Arial", 18, True, False)
043set bigFont = page.createFont("Arial", 24, False, False)
044
045'page.DrawGrid  - рисуем сетку для удобства отладки
046
047page.LineWidth = 0.5 ' Установка толщины линии
048
049' Рисуем прямоугольники
050page.Rectangle 8, 12, 4, 4, True
051page.Rectangle 190, 12, 4, 4, True
052
053page.Rectangle 8, 273, 4, 4, True
054page.Rectangle 105, 273, 4, 4, True
055page.Rectangle 190, 273, 4, 4, True
056
057'Выводим постоянный и переменный текст
058Q = font.WriteText ("Межрегиональная олимпиада школьников", 12, 20, 178, 2)
059Q = bigFont.WriteText (OlympName, 12, 45, 178, 2)
060Q = bigFont.WriteText (OlympClass, 12, 56, 178, 2)
061
062Q = font.WriteText ("Титульный лист", 12, 72, 178, 2)
063
064labelFont.WriteLine "Фамилия", 25, 115 - 23
065labelFont.WriteLine "Имя", 25, 123 - 23
066labelFont.WriteLine "Отчество", 25, 131 - 23
067labelFont.WriteLine "Дата", 25, 139 - 23
068labelFont.WriteLine "рождения", 25, 145 - 23
069
070labelFont.WriteLine "Регистрационный номер", 25, 169 - 30
071labelFont.WriteLine "Город проведения", 25, 177 - 30
072labelFont.WriteLine "Аудитория", 25, 185 - 30
073
074
075labelFont.WriteLine "Дата", 25, 211
076labelFont.WriteLine "Подпись", 25, 219
077labelFont.WriteLine "Телефон", 25, 227
078
079
080dataFont.WriteLine LastName, 63, 114 - 23
081dataFont.WriteLine FirstName, 63, 122 - 23
082dataFont.WriteLine MiddleName, 63, 130 - 23
083dataFont.WriteLine BirthDate, 63, 141 - 23
084
085dataFont.WriteLine RegNo, 100, 168 - 30
086dataFont.WriteLine OlympCity, 100, 176 - 30
087
088' Рисуем линии
089page.line 100, 192 - 30, 150, 192 - 30
090page.line 58, 218, 108, 218
091page.line 58, 226, 108, 226
092Q = dataFont.WriteText(Phone, 58, 226, 65, 0)
093
094
095
096' Устанавливаем новый цвет
097page.setColor 192, 192, 192
098
099S = "шифр"
100font.MeasureLine S, W, H  ' измеряем текстовый блок
101Q = font.WriteText(S, 139, 244 + ((23 - H) / 2), 40, 2) ' располагаем текстовый
102блок на странице
103
104' Устанавливаем новый цвет
105page.setColor 255, 0, 0
106' Устанавливаем толщину линий в 1 пиксель
107page.LineWidth = 0
108' Рисуем линии по координатам
109X = 139
110Y = 267
111
112page.line X, Y - 3, X, Y + 3
113page.line X - 3, Y, X + 3, Y
114
115X = X + 40
116page.line X, Y - 3, X, Y + 3
117page.line X - 3, Y, X + 3, Y
118
119
120Y = Y - 23
121page.line X, Y - 3, X, Y + 3
122page.line X - 3, Y, X + 3, Y
123
124X = X - 40
125page.line X, Y - 3, X, Y + 3
page.line X - 3, Y, X + 3, Y

Результат:

1type
2  TPDFFontRenderingMode = (frmFillText, frmStrokeText, frmFillThenStrokeText, 
3    frmInvisible);

Или

1type
2  TPDFFontRenderingMode = TOleEnum;
3const
4  frmFillText = $00000000;
5  frmStrokeText = $00000001;
6  frmFillThenStrokeText = $00000002;
7  frmInvisible = $00000003;

Элементы перечисления:

Имя	Значение	Назначение
frmFillText	0
frmStrokeText	1
frmFillThenStrokeText	2
frmInvisible	3

1type
2  TPDFLineCap = (lcBuss, lcRound, lcProtecting);

Или

1type
2  TPDFLineCap = TOleEnum;
3const
4  lcBuss = $00000000;
5  lcRound = $00000001;
6  lcProtecting = $00000002;

Элементы перечисления:

Имя	Значение	Назначение
lcBuss	0
lcRound	1
lcProtecting	2

1type
2  TPDFLineJoin = (ljMiter, ljRound, ljBevel);

Или

1type
2  TPDFLineJoin = TOleEnum;
3const
4  ljMiter = $00000000;
5  ljRound = $00000001;
6  ljBevel = $00000002;

Элементы перечисления:

Имя	Значение	Назначение
ljMiter	0
ljRound	1
ljBevel	2

1type
2  TPDFTextAlignment = (ptaLeft, ptaRight, ptaCenter, ptaJustified);

Или

1type
2  TPDFTextAlignment = TOleEnum;
3const
4  ptaLeft = $00000000;
5  ptaRight = $00000001;
6  ptaCenter = $00000002;
7  ptaJustified = $00000003;

Элементы перечисления:

Имя	Значение	Назначение
ptaLeft	0
ptaRight	1
ptaCenter	2
ptaJustified	3

01type
02  IPDFDocument = interface(IDispatch)
03    ['{E57FFE9D-6B85-45E6-A5D0-9DD17950A666}']
04    procedure Save(Target: OleVariant); safecall;
05    function CreatePage(Parent: OleVariant): IPDFPage; safecall;
06    function Get_Title: WideString; safecall;
07    procedure Set_Title(Value: WideString); safecall;
08    function Get_CanEmbedFonts: WordBool; safecall;
09    procedure Set_CanEmbedFonts(Value: WordBool); safecall;
10    function Get_CanCompress: WordBool; safecall;
11    procedure Set_CanCompress(Value: WordBool); safecall;
12    function Get_Author: WideString; safecall;
13    procedure Set_Author(Value: WideString); safecall;
14    function Get_Subject: WideString; safecall;
15    procedure Set_Subject(Value: WideString); safecall;
16    function Get_Keywords: WideString; safecall;
17    procedure Set_Keywords(Value: WideString); safecall;
18    function Get_Creator: WideString; safecall;
19    procedure Set_Creator(Value: WideString); safecall;
20    function Get_Pages(Index: Integer): IPDFPage; safecall;
21    function Get_PageCount: Integer; safecall;
22    procedure Close; safecall;
23    procedure Serialize(const Stream: IUnknown); safecall;
24    function Get_MinCompressSize: Integer; safecall;
25    procedure Set_MinCompressSize(Value: Integer); safecall;
26    function Get_MaxCompressSize: Integer; safecall;
27    procedure Set_MaxCompressSize(Value: Integer); safecall;
28    function CreatePageFromImage(Image: OleVariant; PageWidth: Double; 
29      PageHeight: Double; Margin: Double): WordBool; safecall;
30    procedure SaveToXML(Target: OleVariant); safecall;
31    property Title: WideString read Get_Title write Set_Title;
32    property CanEmbedFonts: WordBool read Get_CanEmbedFonts write Set_CanEmbedFonts;
33    property CanCompress: WordBool read Get_CanCompress write Set_CanCompress;
34    property Author: WideString read Get_Author write Set_Author;
35    property Subject: WideString read Get_Subject write Set_Subject;
36    property Keywords: WideString read Get_Keywords write Set_Keywords;
37    property Creator: WideString read Get_Creator write Set_Creator;
38    property Pages[Index: Integer]: IPDFPage read Get_Pages;
39    property PageCount: Integer read Get_PageCount;
40    property MinCompressSize: Integer read Get_MinCompressSize 
41      write Set_MinCompressSize;
42    property MaxCompressSize: Integer read Get_MaxCompressSize 
43      write Set_MaxCompressSize;
44  end;

Свойства интерфейса IPDFDocument:

Имя	Тип	Доступ	Назначение
Author	WideString	Чтение/Запись
CanCompress	WordBool	Чтение/Запись
CanEmbedFonts	WordBool	Чтение/Запись
Creator	WideString	Чтение/Запись
Keywords	WideString	Чтение/Запись
MaxCompressSize	Integer	Чтение/Запись
MinCompressSize	Integer	Чтение/Запись
PageCount	Integer	Только для чтения
Pages[Index: Integer]	IPDFPage	Только для чтения
Subject	WideString	Чтение/Запись
Title	WideString	Чтение/Запись

Метод интерфейса IPDFDocument.

procedure IPDFDocument.Close;

Метод не имеет параметров.

Метод интерфейса IPDFDocument.

function IPDFDocument.CreatePage(Parent: OleVariant): IPDFPage;

Параметры:

Имя	Тип	Обязательно	Значение
Parent	OleVariant	Да

Замечания:

Возвращает значение типа IPDFPage.

Метод интерфейса IPDFDocument.

1function IPDFDocument.CreatePageFromImage(Image: OleVariant; PageWidth: Double; 
2  PageHeight: Double; Margin: Double): WordBool;

Параметры:

Имя	Тип	Обязательно	Значение
Image	OleVariant	Да
PageWidth	Double	Да
PageHeight	Double	Да
Margin	Double	Да

Замечания:

Возвращает значение типа WordBool.

Метод интерфейса IPDFDocument.

procedure IPDFDocument.Save(Target: OleVariant);

Параметры:

Имя	Тип	Обязательно	Значение
Target	OleVariant	Да

Метод интерфейса IPDFDocument.

procedure IPDFDocument.SaveToXML(Target: OleVariant);

Параметры:

Имя	Тип	Обязательно	Значение
Target	OleVariant	Да

Метод интерфейса IPDFDocument.

procedure IPDFDocument.Serialize(const Stream: IUnknown);

Параметры:

Имя	Тип	Обязательно	Значение
Stream	IUnknown	Да

01type
02  IPDFFont = interface(IDispatch)
03    ['{43FE399A-A724-4076-BAFA-098639628385}']
04    function Get_Spacing: Double; safecall;
05    procedure Set_Spacing(Value: Double); safecall;
06    function Get_WordSpacing: Double; safecall;
07    procedure Set_WordSpacing(Value: Double); safecall;
08    function Get_Scaling: Double; safecall;
09    procedure Set_Scaling(Value: Double); safecall;
10    function Get_RenderingMode: TPDFFontRenderingMode; safecall;
11    procedure Set_RenderingMode(Value: TPDFFontRenderingMode); safecall;
12    function Get_Rise: Double; safecall;
13    procedure Set_Rise(Value: Double); safecall;
14    procedure WriteLine(const LineText: WideString; X: Double; Y: Double); safecall;
15    procedure MeasureLine(const LineText: WideString; out Width: OleVariant; 
16      out Height: OleVariant); safecall;
17    function WriteText(const AText: WideString; X: Double; Y: Double; 
18      Width: Double; Alignment: TPDFTextAlignment): Double; safecall;
19    function MeasureText(const AText: WideString; Width: Double): Double; safecall;
20    function Get_Angle: Double; safecall;
21    procedure Set_Angle(Value: Double); safecall;
22    function Get_LineSpacing: Double; safecall;
23    procedure Set_LineSpacing(Value: Double); safecall;
24    property Spacing: Double read Get_Spacing write Set_Spacing;
25    property WordSpacing: Double read Get_WordSpacing write Set_WordSpacing;
26    property Scaling: Double read Get_Scaling write Set_Scaling;
27    property RenderingMode: TPDFFontRenderingMode read Get_RenderingMode 
28      write Set_RenderingMode;
29    property Rise: Double read Get_Rise write Set_Rise;
30    property Angle: Double read Get_Angle write Set_Angle;
31    property LineSpacing: Double read Get_LineSpacing write Set_LineSpacing;
32  end;

Свойства интерфейса IPDFFont:

Имя	Тип	Доступ	Назначение
Angle	Double	Чтение/Запись
LineSpacing	Double	Чтение/Запись
RenderingMode	TPDFFontRenderingMode	Чтение/Запись
Rise	Double	Чтение/Запись
Scaling	Double	Чтение/Запись
Spacing	Double	Чтение/Запись
WordSpacing	Double	Чтение/Запись

Метод интерфейса IPDFFont.

1procedure IPDFFont.MeasureLine(const LineText: WideString; 
2  out Width: OleVariant; out Height: OleVariant);

Параметры:

Имя	Тип	Обязательно	Значение
LineText	WideString	Да
Width	OleVariant	Да
Height	OleVariant	Да

Метод интерфейса IPDFFont.

function IPDFFont.MeasureText(const AText: WideString; Width: Double): Double;

Параметры:

Имя	Тип	Обязательно	Значение
AText	WideString	Да
Width	Double	Да

Замечания:

Возвращает значение типа Double.

Метод интерфейса IPDFFont.

procedure IPDFFont.WriteLine(const LineText: WideString; X: Double; Y: Double);

Параметры:

Имя	Тип	Обязательно	Значение
LineText	WideString	Да
X	Double	Да
Y	Double	Да

Метод интерфейса IPDFFont.

1function IPDFFont.WriteText(const AText: WideString; X: Double; Y: Double; 
2  Width: Double; Alignment: TPDFTextAlignment): Double;

Параметры:

Имя	Тип	Обязательно	Значение
AText	WideString	Да
X	Double	Да
Y	Double	Да
Width	Double	Да
Alignment	TPDFTextAlignment	Да

Замечания:

Возвращает значение типа Double.

01type
02  IPDFPage = interface(IDispatch)
03    ['{749FB131-80FE-46E9-8330-22C1DC346FE7}']
04    function Get_Parent: IPDFPage; safecall;
05    function Get_Title: WideString; safecall;
06    procedure Set_Title(Value: WideString); safecall;
07    function Get_Width: Double; safecall;
08    procedure Set_Width(Value: Double); safecall;
09    function Get_Height: Double; safecall;
10    procedure Set_Height(Value: Double); safecall;
11    function CreateFont(const FontName: WideString; Size: Double; Bold: WordBool; 
12      Italic: WordBool): IPDFFont; safecall;
13    procedure Perform(const Command: WideString); safecall;
14    function Get_LineWidth: Double; safecall;
15    procedure Set_LineWidth(Value: Double); safecall;
16    procedure Line(X1: Double; Y1: Double; X2: Double; Y2: Double); safecall;
17    procedure Rectangle(X1: Double; Y1: Double; Width: Double; Height: Double; 
18      Fill: WordBool); safecall;
19    function Get_LineCap: TPDFLineCap; safecall;
20    procedure Set_LineCap(Value: TPDFLineCap); safecall;
21    function Get_LineJoin: TPDFLineJoin; safecall;
22    procedure Set_LineJoin(Value: TPDFLineJoin); safecall;
23    procedure SetDash(DashArray: OleVariant; Phase: Integer); safecall;
24    procedure SetColor(R: Integer; G: Integer; B: Integer); safecall;
25    procedure PerformColor(const Command: WideString); safecall;
26    procedure Poly(Points: OleVariant; Fill: WordBool); safecall;
27    procedure Image(Image: OleVariant; X: Double; Y: Double; Width: Double; 
28      Height: Double; Transparent: WordBool); safecall;
29    procedure DrawGrid; safecall;
30    procedure Arc(X: Double; Y: Double; Radius: Double; StartAngle: Double; 
31      EndAngle: Double; FillSegment: WordBool; FillSector: WordBool); safecall;
32    procedure Curve(Points: OleVariant; Fill: WordBool); safecall;
33    procedure HyperLink(const URI: WideString; X: Double; Y: Double; Width: Double; 
34      Height: Double); safecall;
35    procedure Pattern(X1: Double; Y1: Double; Width: Double; Height: Double; 
36      PatternPointSize: Double; Percentage: Integer); safecall;
37    procedure Bezier(Points: OleVariant; Fill: WordBool); safecall;
38    procedure XObject(Data: OleVariant); safecall;
39    procedure SetColorCMYK(C: Double; M: Double; Y: Double; K: Double); safecall;
40    procedure LocalLink(const Page: IDispatch; DestinationX: Double; 
41      DestinationY: Double; DestinationWidth: Double; DestinationHeight: Double; 
42      X: Double; Y: Double; Width: Double; Height: Double); safecall;
43    property Parent: IPDFPage read Get_Parent;
44    property Title: WideString read Get_Title write Set_Title;
45    property Width: Double read Get_Width write Set_Width;
46    property Height: Double read Get_Height write Set_Height;
47    property LineWidth: Double read Get_LineWidth write Set_LineWidth;
48    property LineCap: TPDFLineCap read Get_LineCap write Set_LineCap;
49    property LineJoin: TPDFLineJoin read Get_LineJoin write Set_LineJoin;
50  end;

Свойства интерфейса IPDFPage:

Имя	Тип	Доступ	Назначение
Height	Double	Чтение/Запись
LineCap	TPDFLineCap	Чтение/Запись
LineJoin	TPDFLineJoin	Чтение/Запись
LineWidth	Double	Чтение/Запись
Parent	IPDFPage	Только для чтения
Title	WideString	Чтение/Запись
Width	Double	Чтение/Запись

Метод интерфейса IPDFPage.

1procedure IPDFPage.Arc(X: Double; Y: Double; Radius: Double; 
2  StartAngle: Double; EndAngle: Double; FillSegment: WordBool; 
3  FillSector: WordBool);

Параметры:

Имя	Тип	Обязательно	Значение
X	Double	Да
Y	Double	Да
Radius	Double	Да
StartAngle	Double	Да
EndAngle	Double	Да
FillSegment	WordBool	Да
FillSector	WordBool	Да

Метод интерфейса IPDFPage.

procedure IPDFPage.Bezier(Points: OleVariant; Fill: WordBool);

Параметры:

Имя	Тип	Обязательно	Значение
Points	OleVariant	Да
Fill	WordBool	Да

Метод интерфейса IPDFPage.

1function IPDFPage.CreateFont(const FontName: WideString; Size: Double; 
2  Bold: WordBool; Italic: WordBool): IPDFFont;

Параметры:

Имя	Тип	Обязательно	Значение
FontName	WideString	Да
Size	Double	Да
Bold	WordBool	Да
Italic	WordBool	Да

Замечания:

Возвращает значение типа IPDFFont.

Метод интерфейса IPDFPage.

procedure IPDFPage.Curve(Points: OleVariant; Fill: WordBool);

Параметры:

Имя	Тип	Обязательно	Значение
Points	OleVariant	Да
Fill	WordBool	Да

Метод интерфейса IPDFPage.

procedure IPDFPage.DrawGrid;

Метод не имеет параметров.

Метод интерфейса IPDFPage.

1procedure IPDFPage.HyperLink(const URI: WideString; X: Double; Y: Double; 
2  Width: Double; Height: Double);

Параметры:

Имя	Тип	Обязательно	Значение
URI	WideString	Да
X	Double	Да
Y	Double	Да
Width	Double	Да
Height	Double	Да

Метод интерфейса IPDFPage.

1procedure IPDFPage.Image(Image: OleVariant; X: Double; Y: Double; 
2  Width: Double; Height: Double; Transparent: WordBool);

Параметры:

Имя	Тип	Обязательно	Значение
Image	OleVariant	Да
X	Double	Да
Y	Double	Да
Width	Double	Да
Height	Double	Да
Transparent	WordBool	Нет

Метод интерфейса IPDFPage.

procedure IPDFPage.Line(X1: Double; Y1: Double; X2: Double; Y2: Double);

Параметры:

Имя	Тип	Обязательно	Значение
X1	Double	Да
Y1	Double	Да
X2	Double	Да
Y2	Double	Да

Метод интерфейса IPDFPage.

1procedure IPDFPage.LocalLink(const Page: IDispatch; DestinationX: Double; 
2  DestinationY: Double; DestinationWidth: Double; DestinationHeight: Double; 
3  X: Double; Y: Double; Width: Double; Height: Double);

Параметры:

Имя	Тип	Обязательно	Значение
Page	IDispatch	Да
DestinationX	Double	Да
DestinationY	Double	Да
DestinationWidth	Double	Да
DestinationHeight	Double	Да
X	Double	Да
Y	Double	Да
Width	Double	Да
Height	Double	Да

Метод интерфейса IPDFPage.

1procedure IPDFPage.Pattern(X1: Double; Y1: Double; Width: Double; 
2  Height: Double; PatternPointSize: Double; Percentage: Integer);

Параметры:

Имя	Тип	Обязательно	Значение
X1	Double	Да
Y1	Double	Да
Width	Double	Да
Height	Double	Да
PatternPointSize	Double	Да
Percentage	Integer	Да

Метод интерфейса IPDFPage.

procedure IPDFPage.Perform(const Command: WideString);

Параметры:

Имя	Тип	Обязательно	Значение
Command	WideString	Да

Метод интерфейса IPDFPage.

procedure IPDFPage.PerformColor(const Command: WideString);

Параметры:

Имя	Тип	Обязательно	Значение
Command	WideString	Да

Метод интерфейса IPDFPage.

procedure IPDFPage.Poly(Points: OleVariant; Fill: WordBool);

Параметры:

Имя	Тип	Обязательно	Значение
Points	OleVariant	Да
Fill	WordBool	Да

Метод интерфейса IPDFPage.

1procedure IPDFPage.Rectangle(X1: Double; Y1: Double; Width: Double; 
2  Height: Double; Fill: WordBool);

Параметры:

Имя	Тип	Обязательно	Значение
X1	Double	Да
Y1	Double	Да
Width	Double	Да
Height	Double	Да
Fill	WordBool	Да

Метод интерфейса IPDFPage.

procedure IPDFPage.SetColor(R: Integer; G: Integer; B: Integer);

Параметры:

Имя	Тип	Обязательно	Значение
R	Integer	Да
G	Integer	Да
B	Integer	Да

Метод интерфейса IPDFPage.

procedure IPDFPage.SetColorCMYK(C: Double; M: Double; Y: Double; K: Double);

Параметры:

Имя	Тип	Обязательно	Значение
C	Double	Да
M	Double	Да
Y	Double	Да
K	Double	Да

Метод интерфейса IPDFPage.

procedure IPDFPage.SetDash(DashArray: OleVariant; Phase: Integer);

Параметры:

Имя	Тип	Обязательно	Значение
DashArray	OleVariant	Да
Phase	Integer	Да

Метод интерфейса IPDFPage.

procedure IPDFPage.XObject(Data: OleVariant);

Параметры:

Имя	Тип	Обязательно	Значение
Data	OleVariant	Да

На языке PascalScript на платформе "Мельница данных" описываются тела методов и выражения. Выражения используются в условиях отбора объектов определенного класса при их отображении в представлениях, а также как встраиваемые выражения, которые могут служить членами класса для чтения свойств.

Здесь и далее зарезервированные слова выделены жирным шрифтом.

1  [Описание переменных]
2  begin
3    //Операторы
  end;

Комментарии расположены между символами { и } либо от символов // до конца строки.

1var
2    Имя переменной[, Имя переменной…]: Тип;
3    Имя переменной[, Имя переменной…]: Тип;
4    ...

• integer - определяет переменные целочисленного типа;
• string[целое_число] - определяет переменные строкового типа с заданной максимальной длиной; максимальная длина задается в квадратных скобках и обязательна для задания;
• float - определяет переменные вещественного типа;
• date - определяет переменные типа "дата";
• time - определяет переменные типа "время";
• datetime - определяет переменные типа "дата со временем";
• boolean - определяет переменные логического типа;
• blob - определяет переменные типа больших двоичных объектов;
• Имя класса - определяет переменные-ссылки на экземпляры соответствующих классов;

1  var
2   I: integer;
3   LSomeObject: TObject;
4   LStart, LStop: datetime;
   LNewName: string[64];

Операторы разделяются точкой с запятой (;). Операторы могут быть одним из следующих:

1begin
2  //Другие операторы
end

1begin
2  Result := LCurrentValue;
3  Exit;
4end;

Выражение1 := Выражение2

Присваивает значение выражения Выражение2 выражению Выражение1. Типы Выражения1 и Выражения2 должны быть совместимы (совпадать по классу домена либо оба быть числовыми). Для этого на Выражение1 (стоящее слева от знака равенства, lvalue) накладывается ряд ограничений. Это выражение должно быть:

• Полем или свойством экземпляра класса
• Локальной переменной
• Параметром
• Зарезервированной переменной Result

LObject.Name := 'Новое имя';

Result := 25;

LStartTime := StrToDateTime('01.01.2006 00:00:30'); 

01var
02  LObject: TObject;
03  LClass: TClass;
04  I: Integer; 
05  F: Float;
06begin
07  I := F;  //неверно
08  F := I;  //верно
09  LObject := LClass; //верно
10  LClass := LObject; //неверно. Должно быть LClass := (LObject as TClass);
11end;  

ИмяПроцедуры [(Параметр1, Параметр2 ...)]

"ИмяПроцедуры" должно быть:

• Именем метода класса и вызываться с указанием класса либо экземпляра;
• Именем метода экземпляра и вызываться с указанием экземпляра;
• Именем метода своего класса либо предка и вызываться без указания спецификаторов.

1  //метод класса, указан класс
2  LList := TObjectList.Create(Name, Description, TObjectList, nil, nil, Folder);    
3
4  //метод экземпляра, указан экземпляр. Метод не имеет параметров.
5  LList.Destroy;
6
7  //свой либо унаследованный метод
8  BuildDefaultActions(Name, True); 

1if Выражение then
2  //Оператор1
3[else
4  //Оператор2]

Выражение должно быть логического типа. В случае если значение Выражения истинно, выполняется Оператор1. Часть else является необязательной и относится к последнему оператору if, не имеющему таковой. В случае ее наличия Оператор2 выполняется, если значение Выражения ложно.

1if LIndex > 25 then
2  raise 'Индекс слишком большой.';

1if LMonth = 'январь' then
2  January
3else if LMonth = 'февраль' then
4  February
5else   
6  OtherMonth;  //обратите внимание на точки с запятой.

1case Выражение of
2  Значение1: //Оператор1
3  Значение2: //Оператор2
4  ...
5[else
6  //Оператор ]
end

Заменяет каскад операторов if. Значение Выражения должно быть числового типа. Часть else выполняется в случае, если Выражение не равно ни одному из перечисленных вариантов. Эта часть не является обязательной.

1сase LIndex of
2  0: ZeroIndex;
3  1,2,3: SmallIndex;
4  4,5,6,7,8,9,10: BigIndex;
5else
6  raise 'Слишком большой или отрицательный индекс.';
7end;

1while Выражение do
2  //Оператор

Оператор выполняется до тех пор, пока значение Выражения истинно. Выражение должно быть логического типа. Если при входе в цикл Выражение не истинно, то тело цикла не будет выполнено ни одного раза.

01while LList.Count > 0 do
02  LList.GetItem(0).Destroy;
03
04while True do
05begin
06  LValue := LValue.NextValue;
07  if LValue.Value > 10 then
08  begin
09    Result := LValue.Value;
10    exit;
11  end;
12end;

1repeat
2  //Операторы
3until Выражение

Операторы выполняются до тех пор, пока значение Выражения ложно. Выражение должно быть логического типа. Обратите внимание, что внутри себя оператор может содержать несколько операторов, разделенных точкой с запятой. Тело цикла обязательно будет выполнено хотя бы один раз.

1repeat
2  Result := Result + 1;
3  LObject := LObject.Parent;
4until LObject = nil;

1for Параметр:= Выражение1 (to|downto) Выражение2 do
2  //Оператор

Параметр цикла обязан быть простой локальной переменной. Функционально цикл с параметром эквивалентен циклам:

• Для формы to

  1Параметр := Выражение1;
  2while Параметр<= Выражение2 dobegin
  3  Оператор;
  4  Параметр:=  Параметр + 1;
  end;

• Для формы downto

  1Параметр := Выражение1;
  2while Параметр>= Выражение2 dobegin
  3  Оператор;
  4  Параметр:=  Параметр - 1;
  end;

Пример

1for I := LList.Length - 1 downto 0 do 2// если LList.Length = 0, тело цикла ни разу не будет выполнено. 3begin 4 LClass := LList.GetItem(I); 5 LMethod := any(TMethod with (Name = LName) and (Master = LClass)); 6 LParamList.Add(any(TMethod with (Name = LName) and (Master = LClass))); 7end;

1for each Параметр of ИмяКласса [with Выражение]
2  [by [-] Выражение [, [-] Выражение]] do
3    //Оператор

Цикл осуществляется по выборке среди экземпляров класса ИмяКласса, для которых истинно Выражение. Если Выражение не задано, то по всем экземплярам. Ссылка на текущий в рамках цикла экземпляр присваивается в локальную переменную Параметр. Выражение должно определяться относительно переменной Параметр. Выраженния, следующие за ключевым словом by, определяют порядок обхода экземпляров. Знак "-" перед выражением (любого типа) определяет обратный порядок обхода.

1for each LOption of TOption with LOption.Domain.Required do
2    // для каждой настройки, домен которой обязателен
3  LOption.SetDefaultValue;

break

Происходит немедленный выход из цикла. Выполняется финализация операторов защиты завершения, которыми защищено тело цикла. Допустим только в теле цикла с предусловием, цикла с постусловием, цикла с параметром или цикла по экземплярам.

exit

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

1try
2  //Операторы1
3finally
4  //Операторы2
end

Выполняются операторы Операторы1, разделенные точкой с запятой. В случае возникновения исключительной ситуации управление сразу передается на Операторы2, и после их выполнения исключение остается активным. Если исключения не произошло, выполняются Операторы2. Если среди Операторов1 встречается оператор exit, то Операторы2 все равно выполняются.

1//создание временного объекта-списка
2LList := TObjectList.Create(Name, Description, TObjectList, nil, nil, Folder);
3try
4  LList.Add(LValue);
5  Exit;
6finally
7  //гарантированное уничтожение созданного объекта независимо от исключений.
8  LList.Destroy;
9end;

1try
2  //Операторы1
3except
4  //Операторы2
end

Выполняются операторы Операторы1. В случае возникновения исключительной ситуации управление передается на Операторы2. Если исключительных ситуаций не возникло, Операторы2 не выполняются никогда. При передаче управления на Операторы2 исключительная ситуация деактивирована. Для ее повторного возбуждения можно воспользоваться оператором возбуждения исключения без указания текстовой строки сообщения.

1try
2  LObject.NeverTouch := True;
3  LObject.ExecuteCoolMethod; //если метод выполнен неудачно
4except
5  LObject.NeverTouch := True;  //установить флаг и ничего не сообщать пользователю.
6end;

1try
2   LObject.ExecuteCoolMethod; //если метод выполнен неудачно
3except
4   LObject.Destroy; //удалить неудачный объект
5   raise;           // продолжить обработку исключения.
6end;

raise [Выражение]

inherited

Работает только в унаследованном переопределенном методе. Вызывается метод предка с параметрами, заданными в параметрах к моменту вызова. Если программный блок представляет собой тело функции, то в псевдопеременной Result будет результат выполнения метода предка.

1// в теле конструктора
2Name := 'Object name';
3Description := 'Object description';
4inherited; //вызов предка с параметрами Name и Description,
5           //заданными двумя предыдущими операторами. Ссылка на
6           //созданный объект лежит в
7           //псевдопеременной Result
8Result.Name := 'New name';

• Целая числовая константа (0 3 234);
• Вещественная числовая константа. Дробная часть отделяется от целой точкой (".") (3.14 2.71);
• Строковая константа. Заключается в апострофы. ('Some string' '10', '01.01.2006' 'now');
• Логическая константа (True False);
• Безтиповая (любого типа) константа nil;
• Зарезервированное слово Self. Обозначает разный объект в зависимости от контекста:
  • В методах класса кроме конструктора - использование запрещено.
  • В методах экземпляра - всегда экземпляр, для которого вызван метод.
  • В конструкторе - до вызова унаследованного метода значение не определено. После вызова - ссылка на сконструированный объект.
  • В выражениях условий отбора - объект, для которого принимается решение о его вхождении в отбор.
• Квалификатор.
• Агрегат.

Квалификатор обозначает объект, переменную, параметр, свойство, поле, вызов функции. Квалификатор состоит из идентификаторов, разделенных точкой.

При интерпретации квалификатора используется следующий порядок разбора идентификатора:

1. Контекстная переменная (для выражений условий отбора доменов)
2. Локальная переменная
3. Параметр
4. Имя элемента перечисления
5. Имя класса. Вне контекста означает ссылку на соответствующий объект класса TClass
6. Имя поля
7. Имя метода
8. Имя свойства

При интерпретации квалификатора внутри выражения агрегата правила разбора идентификатора изменяются:

1. Контекстная переменная (для выражений условий отбора доменов)
2. Имя элемента перечисления
3. Имя класса. Если это имя агрегируемого класса, то дальнейшие разыменования относятся к агрегируемому объекту
4. Имя поля
5. Имя метода
6. Имя свойства
7. Локальная переменная
8. Параметр

Агрегат определяет агрегированное значение над экземплярами определенного класса, удовлетворяющими условиям агрегации. Агрегаты бывают следующих типов:

• any - первый попавшийся объект. Результат имеет тип ссылки на объект агрегируемого класса.

  Пример

  1any(TObject with Master = Self.Parent) 2//первый попавшийся объект, имеющий значение 3//свойства Master равным значению свойства 4//Parent текущего (контекстного) объекта.

• count - количество объектов. Результат имеет целочисленный тип.

  Пример

  1count(TObject with Master = Self.Parent) 2//количество объектов, имеющих значение свойства 3//Master равным значению свойства Parent 4//текущего объекта.

• sum - сумма значений свойства, поля или функции объектов. Результат имеет тип суммируемого поля, свойства или функции

  Пример

  1sum(TExam.Mark with Master = LStudent) //сумма 2//баллов студента по его испытаниям

• max, min - соответственно максимальное и минимальное значений свойства, поля или функции объектов. Результат имеет тип агрегируемого поля, свойства или функции

  Пример

  1min(TObject.Created) // момент создания первого 2//объекта Системы.

Внутри выражения агрегата правила разбора идентификатора изменяются на следующие:

1. Контекстная переменная (для выражений условий отбора доменов)
2. Имя элемента перечисления
3. Имя класса. Если это имя агрегируемого класса, то дальнейшие разыменования относятся к агрегируемому объекту
4. Имя поля
5. Имя метода
6. Имя свойства
7. Локальная переменная
8. Параметр

Операции связывают элементы выражений.

Таблица операций в порядке приоритета:

Левый операнд	Правый операнд
	Целый	Вещест- венный	Дата	Время	Дата со временем	Логи- ческий	Строковый	Объект	nil
not
Нет						Логи- ческий
* (звездочка)
Целый	Целый	Вещест- венный
Вещест- венный	Вещест- венный	Вещест- венный
Дата
Время
Дата со временем
Логи- ческий
Строковый
Объект
nil
/ (слэш, дробь)
Целый	Вещест- венный	Вещест- венный
Вещест- венный	Вещест- венный	Вещест- венный
Дата
Время
Дата со временем
Логи- ческий
Строковый
Объект
nil
div
Целый	Целый
Вещест- венный
Дата
Время
Дата со временем
Логи- ческий
Строковый
Объект
nil
and
Целый
Вещест- венный
Дата
Время
Дата со временем
Логи- ческий						Логи- ческий
Строковый
Объект
nil
or
Целый
Вещест- венный
Дата
Время
Дата со временем
Логи- ческий						Логи- ческий
Строковый
Объект
nil
+ (плюс)
Целый	Целый	Вещест- венный
Вещест- венный	Вещест- венный	Вещест- венный
Дата	Дата	Дата со временем		Дата со временем
Время	Время	Время	Дата со временем	Время	Дата со временем
Дата со временем	Дата со временем	Дата со временем		Дата со временем
Логи- ческий
Строковый							Строковый
Объект
nil
- (минус)
Целый	Целый	Вещест- венный
Вещест- венный	Вещест- венный	Вещест- венный
Дата	Дата	Дата со временем	Целый	Дата со временем	Вещест- венный
Время	Время	Время	Дата со временем	Время	Дата со временем
Дата со временем	Дата со временем	Дата со временем	Вещест- венный	Дата со временем	Вещест- венный
Логи- ческий
Строковый
Объект
nil
=, <> (равно, не равно)
Целый	Логи- ческий	Логи- ческий							Логи- ческий
Вещест- венный	Логи- ческий	Логи- ческий							Логи- ческий
Дата			Логи- ческий		Логи- ческий				Логи- ческий
Время				Логи- ческий					Логи- ческий
Дата со временем			Логи- ческий		Логи- ческий				Логи- ческий
Логи- ческий						Логи- ческий			Логи- ческий
Строковый							Логи- ческий		Логи- ческий
Объект								Логи- ческий	Логи- ческий
nil									Логи- ческий
<, >, <=, >= (меньше, больше, меньше либо равно, больше либо равно)
Целый	Логи- ческий	Логи- ческий
Вещест- венный	Логи- ческий	Логи- ческий
Дата			Логи- ческий		Логи- ческий
Время				Логи- ческий
Дата со временем			Логи- ческий		Логи- ческий
Логи- ческий						Логи- ческий
Строковый							Логи- ческий
Объект
nil
is
Целый
Вещест- венный
Дата
Время
Дата со временем
Логи- ческий
Строковый
Объект								Логи- ческий
nil
as
Целый
Вещест- венный
Дата
Время
Дата со временем
Логи- ческий
Строковый
Объект								Объект
nil

1. Приоритет сравнений ниже приоритета операций булевой логики. Поэтому выражение

   LObject.Master = LMaster and LObject.Parent = LParent

   будет интерпретироваться следующим образом:

   LObject.Master = (LMaster  and LObject.Parent) = LParent

   и вызовет ошибку компиляции из-за применения операции and к объектам. Необходимо писать:

   (LObject.Master = LMaster) and (LObject.Parent = LParent)

2. Любое значение (выражение любого типа) сравнивается с безтиповой константой nil:

   1      LObject := any(TObject with Name = 'Some name');
   2      if LObject = nil then
   3         .....
         

3. Операции "Унарный минус" не существует. Для задания отрицательных констант пользуйтесь конструкцией 0-Значение:

   Result := 0-1;

001Goal: MethodBody | Expression;
002
003MethodBody: [ConstantDeclaration] [VariableDeclaration] CompoundStatement ";";
004
005ConstantDeclaration: "const" Ident ":" DomainSpecification ";" 
006  [{Ident ":" DomainSpecification ";"}];
007
008VariableDeclaration: "var" DomainDefinition [{DomainDefinition}];
009
010DomainDefinition: Ident ":" DomainSpecification ";";
011
012DomainSpecification: IntegerDomainDefinition
013  | StringDomainDefinition
014  | FloatDomainDefinition
015  | DateDomainDefinition
016  | TimeDomainDefinition
017  | DateTimeDomainDefinition
018  | BooleanDomainDefinition
019  | BlobDomainDefinition
020  | EnumerationDomainDefinition
021  | Ident;
022
023IntegerDomainDefinition: "integer";
024StringDomainDefinition: "string" "[" Number "]";
025FloatDomainDefinition: "float" ["(" Number ["." Number] ")"];
026DateDomainDefinition: "date";
027TimeDomainDefinition: "time";
028DateTimeDomainDefinition: "datetime";
029BooleanDomainDefinition: "boolean";
030BlobDomainDefinition: "blob" | "clob";
031EnumerationDomainDefinition: "(" Ident {"," Ident} ")";
032
033CompoundStatement: "begin" Statement [{";" Statement}] "end";
034
035Statement:
036  | CompoundStatement
037  | AssignmentStatement
038  | InheritedStatement
039  | CallStatement
040  | IfStatement
041  | CaseStatement
042  | ForStatement
043  | WhileStatement
044  | RepeatStatement
045  | TryFinallyStatement
046  | TryExceptStatement
047  | RaiseStatement
048  | ForEachStatement
049  | ExitStatement;
050
051AssignmentStatement:  Qualifier ":=" Expression;
052
053CallStatement: Qualifier;
054
055InheritedStatement: "inherited";
056
057IfStatement: "if" Expression "then" Statement ["else" Statement];
058
059CaseStatement: "case" Expression "of" {CaseBranch} ["else" Statement ";"] "end";
060
061CaseBranch: CaseLabel [{',' CaseLabel}] ":" Statement ";";
062
063CaseLabel: Number | Ident;
064
065ForStatement: "for" Ident ":=" Expression ("to"|"downto") 
066  Expression "do" Statement;
067
068WhileStatement: "while" Expression "do" Statement;
069
070RepeatStatement: "repeat" Statement [{";" Statement}] "until" Expression;
071
072TryFinallyStatement: "try" Statement [{";" Statement}] "finally" 
073  Statement [{";" Statement}] "end";
074
075TryExceptStatement: "try" Statement [{";" Statement}] "except" 
076  Statement [{";" Statement}] "end";
077
078RaiseStatement: "raise" [Expression];
079
080ForEachStatement: "for" "each" Ident "of" Ident ["with" Expression] 
081  ["by" Expression] "do" Statement;
082
083ExitStatement: "exit";
084
085Expression: ComparedExpression [{RelationOperation Expression}];
086
087ComparedExpression: Addon [{AdditionOperaton ComparedExpression}];
088
089Addon: Factor [{MultiplicativeOperation Addon}];
090
091Factor: "(" Expression ")"
092  | "not" Expression
093  | Number ["." Number]
094  | StringConstant
095  | Qualifier
096  | "nil"
097  | "True"
098  | "False"
099  | "(" Expression "is" Ident ")"
100  | "any" Aggregate
101  | "count" Aggregate
102  | "sum" Aggregate
103  | "max" Aggregate
104  | "min" Aggregate;
105
106Aggregate: "(" Ident ["." Ident] ["with" Expression] ")";
107
108Qualifier: QualifierPart [{"." QualifierPart}];
109
110QualifierPart: Ident ["(" Expression [{", " Expression}] ")"]
111  | "self"
112  | "(" Qualifier "as" Ident ")";
113
114RelationOperation: "<"
115  | ">"
116  | "<="
117  | ">="
118  | "="
119  | "<>";
120
121AdditionOperaton: "+"
122  | "-"
123  | "or";
124
125MultiplicativeOperation: "*"
126  | "/"
127  | "div"
128  | "and";

В качестве вводимых (объявляемых) идентификаторов необходимо использовать так называемую нотацию InfixCaps. Если при создании имени используется несколько слов, то необходимо использовать заглавную букву для каждого слова в имени. Для разделения слов нельзя использовать символ подчеркивания. Все сущности именуются на английском языке, при этом использование сокращений является оправданным только в случае, если длина образуемого имени не согласуется с внешними по отношению к соображениям бизнес-логики ограничениям.

• Имя класса должно начинаться с латинской буквы 'T'.

  Пример

  Имя Наименование TObjectList Список объектов TLearnPlan Учебный план

• Имя поля должно начинаться с латинской буквы 'F'.

  Пример

  Имя Наименование FLearnPeriod Период обучения FExamMark Оценка за экзамен

• Имя свойства не имеет префикса.

  Пример

  Имя Наименование ExamKind Вид рубежного испытания ContactPhone Контактный телефон

  Если членом класса для чтения свойства является поля, то имя свойства должно повторять имя поля без префикса 'F'. Если членом класса для чтения свойства является метод, то имя поля должно повторять имя метода без слова 'Get'.
• Имя параметра не имеет префикса.

  Пример

  Имя Наименование OrderNumber Номер приказа ExamDate Дата проведения экзамена

  Параметры, используемые для инициализации значений полей, должны иметь имя, повторяющее имя поля без префикса 'F'. При компиляции тела метода, написанного на языке PascalScript имена параметров и имена свойств будут распознаваться в соответствии с порядком разбора идентификаторов, как это описано здесь и здесь.
• Имена методов должны представлять собой императивный глагол на английском языке, выражающий смысл того, что метод делает. Имена методов не имеют префикса. Имена методов, используемых для получения значений свойств должны (как члены класса для чтения), должны начинаться со слова Get. Имена методов, используемых для установки значений свойств должны (как члены класса для записи), должны начинаться со слова Set.

  Пример

  Имя Наименование CountMarkSumm Вычислить сумму баллов GetAge Получить значение возраста SetMark Установить значение оценки

• Имена локальных переменных должны начинаться с латинской буквы 'L'.

  Пример

  LMarkSumm (сумма баллов), LObjectCount (количество объектов).

• Имена доменов должны начинаться с латинской буквы 'T'. В именах доменов допустимы пробелы. Рекомендуется к имени домена добавлять слово 'domain' (через пробел), а для обязательных доменов 'required domain' (через пробел) тогда, когда необходимо исключить возможность использования этих доменов в текстах на PascalScript. Первым словом в имени домена-ссылки должно быть имя класса домена. Исключением являются имена доменов, соответствующих простым типам данных без дополнительных ограничений. Имена таких доменов могут повторять имена типов языка PascalScript (Integer, Boolean, Float).

  Пример

  Имя Класс домена Наименование TPrice domain Вещественный домен Цена TWeight required domain Целочисленный домен Вес (обязательный) Boolean Логический Логический TClassMember required domain Ссылка домен Член класса

• Имена элементов перечислений должны иметь префикс из двух или трех символов, идентифицирующий соответствующий домен-перечисление. Префикс записывается строчными буквами. Например,

  Пример

  Имя Наименование для домена TExamKind (вид испытания) ekTest зачет ekExam экзамен ekDifTest дифференцированный зачет для домена TAggregateKind (вид агрегата) agCount количество agSumm сумма agAverage среднее значение

  Настоятельно рекомендуется давать уникальные имена элементов перечислений в пределах всей системы.

Код на языке PascalScript, являющийся частью поставляемого решения, должен быть оформлен в соответствии с изложенными правилами.

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

Пробелы, запрещенные к использованию:

• До или после точки "."
• Между именем вызываемого метода и открывающей скобкой "("
• После открывающей скобки "(" или перед закрывающей ")"
• Перед точкой с запятой ";"
• Перед двоеточием ":"
• Перед запятой ","

Двоеточие для всех объявлений переменных не должно содержать перед собой пробелов и иметь один пробел после перед именем типа.

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

Существует несколько исключений из этого правила. Зарезервированные слова var, begin и end, относящиеся к программному блоку вцелом, всегда должны примыкать к левой границе. Код внутри блока begin..end должен иметь отступ два символа.

Все строки должны быть ограничены 80 столбцами. Строки, длиннее чем 80 столбцов должны быть разделены и перенесены. Все перенесенные строки должны быть выровнены по первой строке и иметь отступ в два символа. Зарезервированное слово begin всегда должно находиться на своей отдельной строке.

Нельзя переносить строки в тех местах, где не допускаются пробелы, например между именем метода и открывающей скобкой. Никогда нельзя помещать зарезервированное слово begin на строку, содержащую другой код.

Все переменные с их типами должны быть объявлены на различных строках.

Простые операторы содержат одну точку с запятой. Если Вам необходимо разделить оператор, то перенесите продолжение оператора на следующую строку с отступом в два пробела.

Пример

MyValue := MyValue + (SomeVeryLongStatement / OtherLongStatement);

Составные операторы всегда заканчиваются точкой с запятой.

Пример

1begin 2 MyStatement; 3 MyNext Statement; 4 MyLastStatement; end;

Каждое присвоение и каждое выражение должно располагаться на разных строках.

Оператор "if"

if A < B then DoSomething; 

if A < B then
  DoSomething;

1  if A < B then begin
2    DoSomething;
3    DoSomethingElse;
4  end else begin
5    DoThis;
6    DoThat;
7  end;

1  if A < B then
2  begin
3    DoSomething;
4    DoSomethingElse;
5  end
6  else
7  begin
8    DoThis;
9    DoThat;
  end;

Оператор "for"

1  for i := 0 to 10 do begin
2    DoSomething;
3    DoSomethingElse;
4  end;

1  for i := 0 to 10 do
2  begin
3    DoSomething;
4    DoSomethingElse;
5  end;
6
7  for I := 0 to 10 do
8    DoSomething;

Оператор "while"

1  while x < j  do begin
2    DoSomething;
3    DoSomethingElse;
  end;

1  while x < j do
2  begin
3    DoSomething;
4    DoSomethingElse;
5  end;
6
7  while x < j do
8    Something;

Оператор "repeat..until"

1  repeat
2    x := j;
3    j := UpdateValue;
4  until j > 25;

Оператор "case"

01  case LCode of
02    1, 3:
03      begin
04        Incr := FIncrement + 1;
05        FinalIncr := FIncrement div FLineDiv;
06        Count := FLineDiv;
07      end;
08    2, 4:
09      begin
10        Incr := FPageIncrement;
11        FinalIncr := Incr + 1;
12        Incr := Incr div FPageDiv;
13        Count := FPageDiv;
14      end;
15  else
16    begin
17      Count := 0;
18      Incr := 0;
19      FinalIncr := 0;
20    end;
  end;

Оператор "try"

01try
02  try
03    EnumItems(CurrentThreadID, LDisable, 0);
04    Result := TaskList;
05  except
06    EnableItems(TaskList);
07    raise;
08  end;
09finally
10  TaskList := SaveList;
11  TaskActive := SaveActive;
end; 

Системный слой платформы "Мельница данных" предоставляет сторонним системам ряд интерфейсов, дающих возможность обращаться к объектам базы данных и их свойствам, вызывать методы классов и объектов, осуществлять запросы к базе данных, управлять поведением элементов управления и проч.

01  IContext = interface(IDispatch)
02    ['{79847D79-A3BE-408F-B59F-662B91BC6350}']
03    function Handle: Integer;
04    function getName(ID: OleVariant): WideString;
05    function getDescription(ID: OleVariant): WideString;
06    function createDataSet(const TargetClassName: WideString):
07      IContextDataSet;
08    function executeMethod(const ClassName: WideString;
09      const MethodName: WideString;
10      Params: OleVariant): OleVariant;
11    function executeReport(const ClassName: WideString;
12      const TemplateName: WideString;
13      Params: OleVariant): IDispatch;
14    function getPropValue(const ClassName: WideString;
15      const PropName: WideString;
16      const ID: OleVariant): OleVariant;
17    procedure setPropValue(const ClassName: WideString;
18      const PropName: WideString;
19      const ID: OleVariant; Value: OleVariant);
20    function select(const ClassName: WideString;
21      QueryItems: OleVariant): IDispatch;
22    function enumerationItem(ItemIdentifier: OleVariant): WideString;
23    function getClass(const ClassName: WideString): WideString;
24    function createGUID: WideString;
25    procedure processStart(const Description: WideString;
26      ItemCount: Integer);
27    procedure processStep;
28    procedure processStop;
29    function PlaceDataSet(const Range: IDispatch;
30      const DataSet: IContextDataSet;
31      ShiftRows: WordBool; ShiftColumns: WordBool): Integer;
32    procedure DebugString(const Message: WideString);
33    procedure ExportObject(var Document: OleVariant; const ID: WideString;
34      const ClassID: WideString);
35    function callRoutine(const ClassName, RoutineName: WideString;
36      var RetValue: OleVariant; const ScriptPart: OleVariant): WordBool;
37    function getOleObject(const ClassID, AccessibleFileName: WideString): IDispatch;
38    function getResource(const Name: WideString): WideString;
39    function getTempFileName(const Extension: WideString): WideString;
40    function selectVaue(const ClassDomain: WideString;
41      const ExpressionContext: IContextExpressionInfo;
42      var Value: OleVariant): WordBool;
43    procedure raiseManagedException(const ExceptionMessage: WideString);
44    function getCRC(Data: OleVariant): WideString;
45    function downloadData(const Host: WideString; const Url: WideString;
46      const UserName: WideString; const Password: WideString;
47      NegotiateAuth: WordBool; PostData: OleVariant;
48      const PostContentType: WideString; PostDataIsBinary: WordBool;
49      CanCache: WordBool; NewSession: WordBool; TimeOut: Integer): OleVariant;
50    function createBinaryData: IDispatch;
51    function BinaryToBitmap(const Data: IDispatch): IDispatch; safecall;
52    function editValues(const ValuesList: WideString; const Title: WideString;
53      UseTabs: WordBool; HideOKButton: WordBool;
54      const ScriptPart: OleVariant): WordBool;
55    function MsgBox(const Prompt: WideString; Buttons: LongWord;
56      const Title: WideString;
57      const HelpFile: WideString; Context: LongWord): Integer;
58    function ShowMsgBox(const Prompt: WideString; Buttons: LongWord;
59      const Title: WideString;
60      const HelpFile: WideString; Context: LongWord): Integer;
61    function buildNamedFile(const Data: IDispatch; const StoredFileName: WideString;
62                            Propmpt: WordBool; Compress: WordBool): IDispatch;
63    procedure parseNamedFile(const NamedFile: IDispatch; out FileName: OleVariant;
64                             out Data: OleVariant);
65    procedure showView(const ViewName: WideString; Key: OleVariant;
66                       const DetailPropertyName: WideString);
67    procedure showDataSet(const DataSet: ContextDataSet; const Caption: WideString;
68                          ColumnCaptions: OleVariant; ColumnOnChangeHandlers: OleVariant;
69                          TakeActionsFromView: OleVariant);
70    function executeConsoleProcess(const CommandLine: WideString; MaxDuration: Integer;
71                                   const OutputData: OleVariant): Integer;
72    function createRaster: IDispatch;
73    function createZIPArchive: IDispatch;
74    function ConvertExcel(Source: OleVariant; const Format: WideString): IDispatch;
75    property ContextObject: IDispatch;
76    property Language: WideString;
77    property UserName: WideString;
78    property NegotiateAuth: WordBool;
79    property Variable[const Name: WideString; Persistent: WordBool]: OleVariant;
80  end;

Члены интерфейса доступны для использования в скриптах форм задания параметров, а также в отчетах как члены класса передаваемого контекстного объекта.

• Функция Handle возвращает дескриптор главного окна приложения.
• Функция getName возвращает имя объекта по его идентификатору.
• Функция getDescription возвращает наименование объекта по его идентификатору.
• Функция createDataSet создает набор данных, основанный на экземплярах класса, имя которого передано как параметр. Возвращаемый объект реализует интерфейс IContextDataSet.
• Функция executeMethod осуществляет вызов метода с параметрами. Имя класса передается в параметре ClassName, имя вызываемого метода - в параметре MethodName. Если вызываемый метод явяется функцией, то результат ее выполнения возвращается как результат вызова executeMethod. Параметры вызова метода передаются через параметр Params следующим образом:
  • Для методов класса без параметров можно передавать любое значение, например, Null.
  • Для методов класса, имеющих один параметр, значение Params есть значение этого единственного параметра.
  • Для методов класса, имеющих более одного параметра, значение Params есть массив значений параметров.

    Пример

    VBScript, VBA LValue = executeMethod("TObject", "Round", Array(10.24, 1)) JScript LValue = executeMethod("TObject", "Round", new Array(10.24, 1)); Object Pascal LValue := executeMethod('TObject', 'Round', VarArrayOf([10.24, 1]));

  • Для методов экземпляра без параметров значение Params есть идентификатор объекта, для которого вызывается метод.
  • Для методов экземпляра, имеющих параметры, значение Params есть массив значений параметров. При этом первым элементом массива является идентификатор объекта, для которого вызывается метод.

    Пример

    VBScript, VBA executeMethod "TObject", "MergeTo", Array(LOldObject, LNewObject) JScript executeMethod("TObject", "MergeTo", new Array(LOldObject, LNewObject)); Object Pascal executeMethod('TObject', 'MergeTo', VarArrayOf([LOldObject, LNewObject]));

• Функция executeReport осуществляет вызов отчета с параметрами. Имя класса передается в параметре ClassName, имя вызываемого метода - в параметре TemplateName. Параметры вызова передаются в параметре Params аналогично вызову executeMethod. В результате вызова функции возвращается ссылка на рабочую книгу Microsoft Excel, документ Microsoft Word и так далее. Судьба приложения, в рамках которого создан возвращенный объект, остается на усмотрение вызывающей стороны. Если вызывающая сторона предполагает взаимодействие объекта с пользователем, то необходимо обеспечить видимость объекта-приложения (Application.Visible := True;). В противном случае необходимо закрыть приложение после освобождения объекта документа (Application.Quit).
• Функция getPropValue возвращает значение свойства объекта. Имя класса, имя свойства и идентификатор объекта задаются в параметрах.
• Процедура setPropValue устанавливает значение свойства объекта в значение, заданное параметром Value. Для очистки значения можно использовать пустую строку или значение Null. Имя класса, имя свойства и идентификатор объекта задаются в параметрах.
• Функция select возвращает ссылку на XML-документ, содержащий в корневом элементе элементы, представляющие собой записи набора данных на основе класса ClassName (с полями, разнесенными по элементам), определяемого структурой параметра QueryItems.
• Функция enumerationItem возвращает идентификатор элемента перечисления по имени.

  Пример

  VBScript, VBA LItemID = enumerationItem("rsReplicatableMetadata") JScript LItemID = enumerationItem("rsReplicatableMetadata"); Object Pascal LItemID := enumerationItem('rsReplicatableMetadata');

• Функция getClass возвращает идентификатор объекта типа Класс TClass (Классы) по имени.

  Пример

  VBScript, VBA LClassID = getClass("TDocumentType") JScript LClassID = getClass("TDocumentType"); Object Pascal LClassID := getClass('TDocumentType');

• функция createGUID является оберткой над функцией Windows API CoCreateGuid. Возвращает сгенерированный глобально-уникальный идентификатор, преобразованный в строку.
• процедура processStart информирует систему о необходимости показать окно выполнения длительного процесса. Текст, описывающий процесс (он появляется в показываемом окне) задается параметром Description. В случае, если есть возможность определить количество "шагов" процесса, то это количество необходимо передать в параметре ItemCount. В случае, если параметр ItemCount больше нуля, окно выполнения будет снабжено индикатором прогресса. Если значение ItemCount равно нулю, то окно появится без индикатора прогресса. Если значение ItemCount меньше нуля, то решение о появлении окна будет принято системой самостоятельно на основании загрузки процессора и окно процесса не появится, если процесс завершится достаточно быстро.
• процедура processStep информирует систему о завершении очередного "шага" процесса, что найдет отражение в индикаторе прогресса окна выполнения длительного процесса, если таковые случатся.
• процедура processStop информирует систему о завершении длительного процесса, что приведет к закрытию окна выполнения длительного процесса, если таковое случится.
• функция PlaceDataSet осуществляет перенос данных из набора, задаваемого параметром DataSet в некоторое место документа Microsoft Office. Место назначения определяется параметром Range следующим образом:

  Microsoft Word

  Объект Range. По месту расположения этого объекта будет создана таблица (Table), в которой будут размещены данные из набора. Пример PlaceDataSet ThisDocument.Bookmarks("BookMarkName").Range, LDataSet Пример PlaceDataSet Selection.Range, LDataSet Объект Document. В самом начале переданного документа будет создана таблица (Table), в которой будут размещены данные из набора. Пример PlaceDataSet ThisDocument, LDataSet

  Microsoft Excel

  Объект Range. По месту расположения этого объекта (диапазона) будут размещены данные из набора. Если параметр ShiftRows задан и равен True, то заданный диапазон будет расширен вниз на необходимое количество строк, и информация, лежащая ниже переданного диапазона, будет по-прежнему лежать ниже. Если нет, то она (скорее всего) будет затёрта данными набора. Если параметр ShiftColumns задан и равен True, то этот диапазон будет расширен вправо на необходимое количество столбцов, и информация, лежащая правее переданного диапазона, будет по-прежнему лежать правее. Если нет, то она (скорее всего) будет затёрта данными набора. Пример PlaceDataSet Range("C4"), LDataSet Объект WorkSheet. На переданном листе будут размещены данные из набора. Пример PlaceDataSet WorkSheets("HiddenSheet"), LDataSet

  Функция возвращает количество размещенных записей.
• процедура DebugString выводит переданную в качестве аргумента строку в отладочный монитор.
• процедура ExportObject осуществляет экспорт информации об объекте, задаваемом параметром ID в XML-документ, передаваемый в параметре Document. Если объект документа не был создан, то он создается автоматически. Если документ не имеет корневого узла, он будет создан автоматически.

  Пример

  01set LDataSet = CreateDataSet("TSecurityAccount") 02 03LDataSet.AddQueryItem qpWhat, "ID" 04 05set LDocument = CreateObject("Msxml2.DOMDocument.4.0") 'Не обязательно. 06 07while not LDataSet.Eof 08 ExportObject LDocument, LDataSet.Field("ID") 09 LDataSet.Next 10wend 11 12LDocument.save "c:\RolesAndUsers.xml"

• Функция callRoutine осуществляет вызов подпрограммы. Параметры будут запрошены у пользователя обычным порядком (с показом формы задания параметров, отработки ее скрипта и т. д.). Имя класса передается в параметре ClassName, имя вызываемой подпрограммы - в параметре RoutineName. Если пользователь разрешил выполнение подпрограммы (либо для выполнения не требовалось разрешения пользователя), функция вернет True, иначе False. Значение, возвращаемое подпрограммой, может быть возвращено через необязательный параметр RetValue. Через значение необязательного параметра ScriptPart можно передать скрипт на языке VBScript, который будет "приклеен" сверху к скрипту формы параметров вызываемой подпрограммы.
• Функция getOleObject возвращает ссылку на Ole-объект с идентификатором класса, переданном в параметре ClassID. Объект создается на основе библиотеки кода, сохраненной в доступном файле с именем, заданным параметром AccessibleFileName. Регистр символов имени доступного файла важен.
• Функция getResource возвращает значение ресурсной строки по имени ресурса (элемента перечислимого домена Resource strings или перевода (объекта класса TLanguageTranslation).

  Пример

  MsgBox getResource("rssMyErrorMessage")

• Функция getTempFileName возвращает сгенерированное системой имя временного файла с расширением, переданным в параметре Extension.
• Функция selectVaue позволяет пользователю выбрать значение на основе ссылочного домена, имя которого передается в параметре ClassDomain. Вызывающая сторона может реализовать интерфейс IContextExpressionInfo, через который передается информация о контексте вызова для интерпретации выражений условий отбора, и передать ссылку на него через параметр ExpressionContext. Выбранное значение передается в обе стороны через параметр Value. Если пользователь подтвердил выбор значения, функция возвращает значение True, и устанавливает значение параметра Value, равное идентификатору выбранного пользователем объекта. Если пользователь отказался от выбора, функция возвращает значение False.
• Процедура raiseManagedException возбуждает управляемую исключительную ситуацию с сообщением для пользователя, заданным параметром ExceptionMessage.
• Функция getCRC возвращает шестнадцатиричное представление контрольной суммы переданных в параметре Data данных. Параметр может быть
  • Объектом, реализующим интерфейс IBinaryData
  • Объектом, реализующим интерфейс IStream
  • Объектом, реализующим интерфейс ISequentialStream
  • Объектом, реализующим интерфейс IFile объектной модели FileSystemObject
  • Строкой данных. Строка будет преобразована в байты в соответствии с кодировкой UTF-8.
• Функция downloadData осуществляет обращение к указанному ресурсу по протоколу http (https), и возвращает ответ сервера в виде объекта, реализующего интерфейс IBinaryData. Параметр Host определяет http-сервер, параметр Url - Url, к которому будет происходить обращение. Параметры UserName и Password определяют имя пользователя и пароль, если http-сервер требует авторизовать пользователя. Параметр NegotiateAuth устанавливает режим аутентификации. (Basic или Negotiate). Параметры PostData, PostContentType и PostDataIsBinary определяют содержимое тела POST-запроса (если не определено, функция отправит GET-запрос). Параметр CanCache позволяет использовать локальный кеш http-ответов. Параметр NewSession требует принудительного создания новой сессии при вызове функции. Параметр TimeOut определяет максимальное время ожидания ответа в секундах.
• Функция createBinaryData создает пустой объект, реализующий интерфейс IBinaryData.
• Функция BinaryToBitmap  конвертирует переданный графический файл в формат BMP. Объекты во входном и выходном параметрах должны реализовывать интерфейс IBinaryData.
• Функция editValues создает и показывает форму редактирования группы значений. Параметр ValuesList содержит идентификатор объекта класса TObjectList. Этот список содержит ссылки на редактируемые значения (объекты класса TTypedValue), и командные кнопки формы (объекты класса TTypedValueButton). Параметр Title определяет заголовок формы, параметр UseTabs определяет, будут ли показаны закладки на форме редактирования. Параметр HideOKButton позволяет скрыть кнопку "OK" на показываемой форме. Параметр ScriptPart определяет скрипт показываемой формы.

  Пример

  01 LValue1 = executeMethod ("TTypedValue", "CreateStrValue", _ 02 Array("Value1", "Первый параметр", Null, Null, _ 03 "TLongString", Null, Null, Null, Null, Null, "Значение по умолчанию первого параметра")) 04 LValue2 = executeMethod ("TTypedValue", "CreateStrValue", _ 05 Array("Value2", "Второй параметр", Null, Null, _ 06 "TLongString", Null, Null, Null, Null, Null, "Значение по умолчанию второго параметра")) 07 08 LValues = executeMethod("TObjectList", "CreateFromString", _ 09 LValue1 & ";" & LValue2) 10 11 if editValues(LValues, "Введите два строковых значения, друзья", True, False, "") then 12 MsgBox getPropValue("TTypedValue", "StrValue", LValue1) & _ 13 " " & _ 14 getPropValue("TTypedValue", "StrValue", LValue2) 15 end if 16 17 executeMethod "TObject", "Destroy", LValues 18 executeMethod "TObject", "Destroy", LValue1 19 executeMethod "TObject", "Destroy", LValue2

  Пример

  01 LScriptPart = "Buttons(""NextButton"").Enabled = ParentForm.NavigatorCanNext" & Chr(10) & _ 02 "Buttons(""PrevButton"").Enabled = ParentForm.NavigatorCanPrevious" 03 04 LValue1 = executeMethod ("TTypedValue", "CreateStrValue", _ 05 Array("Value1", "Первый параметр", Null, Null, "TLongString", Null, Null, Null, Null, Null, _ 06 "Значение по умолчанию первого параметра")) 07 LValue2 = executeMethod ("TTypedValue", "CreateStrValue", _ 08 Array("Value2", "Второй параметр", Null, Null, "TLongString", Null, Null, Null, Null, Null, _ 09 "Значение по умолчанию второго параметра")) 10 11 LNextButton = executeMethod ("TTypedValueButton", "Create", Array("NextButton", "Вперед!", _ 12 Null, Null, Null, Null, 0, Null, Null, _ 13 "ParentForm.NavigatorNext" & Chr(10) & LScriptPart, enumerationItem("scPublic"), 1, Null)) 14 15 LPrevButton = executeMethod ("TTypedValueButton", "Create", Array("PrevButton", "Назад!", _ 16 Null, Null, Null, Null, 1, Null, Null, _ 17 "ParentForm.NavigatorPrevious" & Chr(10) & LScriptPart, enumerationItem("scPublic"), 1, Null)) 18 19 LValues = executeMethod("TObjectList", "CreateFromString", _ 20 LValue1 & ";" & LValue2 & ";" & LNextButton & ";" & LPrevButton) 21 22 if editValues(LValues, "Введите два строковых значения, друзья", True, True, LScriptPart) then 23 MsgBox getPropValue("TTypedValue", "StrValue", LValue1) & _ 24 " " & _ 25 getPropValue("TTypedValue", "StrValue", LValue2) 26 end if 27 28 executeMethod "TObject", "Destroy", LValues 29 executeMethod "TObject", "Destroy", LValue1 30 executeMethod "TObject", "Destroy", LValue2 31 executeMethod "TObject", "Destroy", LNextButton 32 executeMethod "TObject", "Destroy", LPrevButton

• Функции MsgBox и ShowMsgBox (это синонимы одной точки входа) полностью аналогичны функции Basic MsgBox по поведению и набору параметров.
• Функция buildNamedFile формирует значение типа "Именованный файл" на основе объекта, реализующего интерфейс IBinaryData (параметр Data) и информации об имени и параметрах именованного файла.
• Процедура parseNamedFile разбирает значение типа "Именованный файл". Выходной параметр FileName будет содержать сохраненное имя файла, выходной параметр Data - объект, реализующего интерфейс IBinaryData и содержащий данные именованного файла.
• Свойство ContextObject позволяет получить ссылку на этот же самый контекстный объект.
• Свойство UserName позволяет получить логин текущего пользователя.
• Свойство NegotiateAuth позволяет получить признак доменной аутентификации пользователя.
• Свойство Language позволяет получать и устанавливать текущий языковой контекст, в котором будут выполняться обращения к БД. Значение свойства либо пустая строка (используется язык БД по умолчанию), либо имя объекта класса TLanguage
• Свойство Variable позволяет сохранять и получать произвольные значения, которые могут хранится постоянно (в реестре) или только в текущем сеансе, в зависимости от параметра Persistent.

  Пример

  1'сохранить на время текущего сеанса значение в переменную с именем SameVariableName 2Variable("SameVariableName", False) = "Value" 3 4'получить значение переменной с именем SameVariableName хранимой в текущем сеансе 5LValue = Variable("SameVariableName", False)

• Процедура showView осуществляет показ в модальном окне представления с именем ViewName. С помощью параметров DetailPropertyName и Key можно наложить на представление дополнительное условие отбора.

01  IContextDataSet = interface(IDispatch)
02    ['{466F3AF7-F899-4BC1-869D-1B17DCB86159}']
03    procedure AddQueryItem(Part: TQueryPart; const Name: WideString;
04      Value: OleVariant; Special: TQuerySpecial; Context: OleVariant);
05    function Eof: WordBool;
06    function Field(const Name: WideString): OleVariant;
07    function FieldCount: Integer;
08    function FieldName(Index: Integer): WideString;
09    procedure Next;
10  end;

Интерфейс предоставляет возможности формирования и выполнения запросов к базе данных с целью получения свойств объектов определенного класса, предоставляет доступ к объекту набора данных. Работа с объектом, реализующим интерфейс IContextDataSet заключается в формировании структуры набора данных и последующих обращениях к ним.

• Процедура AddQueryItem добавляет элемент набора данных. Элементы могут добавляться в любом порядке до первого обращения к данным набора. Символические имена всех предопределенных для параметров этого метода констант являются членами интерфейса IConstants.
  • часть запроса определяется параметром Part, который может принимать одно из следующих предопределенных значений:

    Символическое имя	Числовое значение	Описание
    qpWhat	0	Добавляет поле (столбец), определяемое параметром Name, к результирующему набору данных. Параметр Value игнорируется.
    qpWhere	1	Определяет условие, налагаемое на свойства объектов класса, передаваемое остальными параметрами.
    qpOrder	2	Определяет порядок сортировки записей результирующего набора данных. Параметр Value игнорируется.
    qpGroup	3	Определяет, что записи результирующего набора данных будут сгруппированы по столбцу, переданному в параметре Name. Параметры Value и Special игнорируются.

  • параметр Name должен быть именем свойства класса, на котором основан набор данных, либо зарезервированным словом "ID" (без кавычек).
  • параметр Value (необязательный) определяет условия отбора, накладываемые на свойство, заданное параметром Name. Имеет смысл только если значение параметра Part равно qpWhere. Условие задается посредством строки, интерпретируемой следующим образом:
    • строка разделяется на части посредством системного разделителя
    • каждая часть интерпретируется самостоятельно, и эти части объединяются логическим "ИЛИ"
    • при интерпретации каждой части проверяются следующие условия:

      *	проверка значения на непустоту (IS NOT NULL)
      !*	проверка значения на пустоту (IS NULL)
      начинается с символов '<=', '<', '>=', '>'	проверка соответствующего отношения между значением свойства, переданного параметром Name и оставшейся частью строки
      включает в себя символы '*' и/или '?'	проверка соответствия значения шаблону, в котором знак '?' соответствует одному любому символу, а знак '*' - любому количеству любых символов
      начинается с символа '!'	символ '!' означает отрицание условия, переданного оставшейся частью строки
      представляет собой строку в апострофах (одиночных кавычках)	содержание строки не анализируется по приведенным выше условиям
      любая другая строка	проверка равенства значения свойства, переданного параметром Name значению, переданному строкой

  • параметр Special (необязательный) обеспечивает дополнительное поведение набора данных (если параметр Special используется, необходимо использовать и параметр Value, можно передавать пустую строку):

    Символическое имя	Числовое значение	Описание
    qsNone	0	Параметр не используется. Значение по умолчанию.
    qsDescending	7	Используется при значении qpOrder параметра Part. В этом случае производится сортировка по убыванию.
    qsCount	8	Используется при значении qpWhat параметра Part. Определяют тип агрегации по свойству, заданному параметром Name.
    qsSum	9
    qsMin	10
    qsMax	11
    qsAverage	12
    qsFunction	22	Используется для включения в запрос вызова функции. Используется при значении qpWhat параметра Part.

  • параметр Context (необязательный) определяет дополнительные параметры элемента запроса.

  Пример

  01'включить в набор данных свойство Name 02LDataSet.AddQueryItem 0, "Name" 03'включить в набор данных среднее значение цены 04LDataSet.AddQueryItem 0, "Price", "", 12 05'включить в набор данных идентификатор объекта 06LDataSet.AddQueryItem 0, "ID" 07'включить в набор данных вызов функции. В поле IsCompany будет значение True, если объект является организацией 08LDataSet.AddQueryItem 0, "IsCompany", "TObject.IsInstanceOf", 22, Array(getClass("TCompany")) 09'наложить на набор данных условие 10LDataSet.AddQueryItem 1, "Organization", "фирма Елочка"

  Пример

  1LDataSet.AddQueryItem 0, "Organization" '(1) 2LDataSet.AddQueryItem 0, "SalesCount", "", "9" '(2) 3LDataSet.AddQueryItem 1, "SaleDate", ">10.09.2005" '(3) 4LDataSet.AddQueryItem 2, "Organization" '(4) 5LDataSet.AddQueryItem 3, "Organization" '(5) Производится отбор из класса, описывающего число продаж некоего продукта различными организациями. При этом в набор данных включаются колонки "Organization" (строка 1) и "SalesCount" (строка 2). При этом будет произведена группировка по свойству "Organization" (строка 5) (что гарантирует вхождение каждой организации в результирующий набор данных не более одного раза). Набор данных будет отсортирован по организации (строка 4). При этом в колонке "SalesCount" будет сумма (строка 2) всех продаж, осуществленных каждой организацией после 10.09.2005 (строка 3).

• Функция FieldCount возвращает количество полей (столбцов) набора данных.
• Функция FieldName возвращает имя поля (столбца) с номером, переданным в параметре Index.
• Функция Field возвращает значение, содержащееся в поле с именем или индексом, заданным параметром Name (строкового типа) текущей записи набора данных. При первом обращении к набору данных текущей является первая запись. Если параметр определяет номер, то поиск поля производится по номеру. Если имя, то по имени.
• Процедура Next осуществляет переход к следующей записи набора данных.
• Функция Eof возвращает False, если текущая запись набора данных существует; в случаях, если набор данных пустой, или при помощи метода Next достигнут конец набора данных, возвращает True.

  Пример

  01If LDataSet.Eof then 02 'набор данных пуст. Ничего не отобрано. 03Else 04 While Not LDataSet.Eof 05 'работа с очередной отобранной записью 06 Cells(LRow, 1).Value = LDataSet.Field("Name") 07 Cells(LRow, 2).Value = LDataSet.Field("Description") 08 Cells(LRow, 2).Value = LDataSet.Field("Count") 09 'переход к следующей записи 10 LDataSet.Next 11 LRow = LRow + 1 12 Wend 13End If

01  IConstants = interface(IDispatch)
02    ['{7E7B2D66-5E7C-496A-AE06-EFC485007500}']
03    property qpWhat: Integer;
04    property qpWhere: Integer;
05    property qpOrder: Integer;
06    property qpGroup: Integer;
07    property qpHaving: Integer;
08    property qsNone: Integer;
09    property qsObjectID: Integer;
10    property qsParentID: Integer;
11    property qsHasChildren: Integer;
12    property qsFilterCondition: Integer;
13    property qsUplink: Integer;
14    property qsRootOnly: Integer;
15    property qsDescending: Integer;
16    property qsCount: Integer;
17    property qsSum: Integer;
18    property qsMin: Integer;
19    property qsMax: Integer;
20    property qsAverage: Integer;
21    property qsMasterLink: Integer;
22    property qsSelectedOnly: Integer;
23  end;

Интерфейс предоставляет символические имена констант, необходимых для работы с объектом, реализующим интерфейс IContextDataSet.

01  IFormContext = interface(IDispatch)
02    ['{1944F1C8-CAEA-4CF9-9A4D-CE3423508FF7}']
03    function ChangedControl: OleVariant;
04    function ControlCount: Integer;
05    function ButtonCount: Integer;
06    function ID: WideString;
07    procedure Cancel;
08    function ControlExists(const Name: WideString): WordBool;
09    function ChangedControlName: WideString;
10    function ParentForm: OleVariant;
11    function RoutineID: WideString;
12    procedure PreInitControl(const Name: WideString; Value: OleVariant);
13    procedure NavigatorNext;
14    procedure NavigatorPrevious;
15    function NavigatorCanNext: WordBool;
16    function NavigatorCanPrevious: WordBool;
17    procedure RefreshView(RefreshAll: WordBool);
18    function ExpressionContextValue(const Name: WideString): OleVariant; safecall;
19    property Controls[Name: OleVariant]: IControl;
20    property Buttons[Name: OleVariant]: IButton;
21    property Enabled: WordBool;
22  end;

Представляет собой модель формы задания параметров. Члены интерфейса доступны для использования в скриптах форм задания параметров.

• Функция ChangedControl возвращает объект, реализующий интерфейс IControl, соответствующий элементу управления, изменение которого вызвало исполнение скрипта формы параметров. Если выполнение скрипта вызвано инициализацией формы задания параметров, то значение функции - Empty. Пустоту значения можно проверить с помощью функции VBScript IsEmpty.
• Функция ControlCount возвращает число элементов управления на форме параметров, как видимых так и невидимых.
• Функция ButtonCount возвращает число командных кнопок на форме параметров, как видимых так и невидимых.
• Функция ID возвращает значение идентификатора объекта, для которого вызван метод. Для методов класса возвращает пустое значение.
• Функция ControlExists возвращает True, если элемент управления с именем Name существует на форме, и, соответственно, существует соответствующий параметр.
• Функция ChangedControlName возвращает имя элемента управления, изменение которого вызвало исполнение скрипта формы параметров. Если выполнение скрипта вызвано инициализацией формы задания параметров, то значение функции - пустая строка.
• Процедура Cancel прекращет работу формы задания параметров. Форма закрывается, выполнение действия блокируется.
• Функция ParentForm возвращает ссылку на контекст родительской формы в цепочке вызовов. В контексте первой формы (вызванной с грида немодальной формы) возвращает пустое значение (Empty). Пустоту значения можно проверить с помощью функции VBScript IsEmpty.
• Функция RoutineID возвращает идентификатор подпрограммы, для которой вызвана форма.
• Процедура PreInitControl имитирует предварительную инициализацию элемента управления с именем Name значением, переданным в параметре Value. Сам элемент управления при этом будет скрыт, и не будет показан вплоть до следующего вызова формы пользователем.
• Процедура NavigatorNext выполняет переход к следующему объекту набора данных, для которого показывается форма параметров.
• Процедура NavigatorPrevious выполняет переход к предыдущему объекту набора данных, для которого показывается форма параметров.
• Функция NavigatorCanNext возвращает True, если возможен переход к следующему объекту набора данных, для которого показывается форма параметров.
• Функция NavigatorCanPrevious возвращает True, если возможен переход к предыдущему объекту набора данных, для которого показывается форма параметров.
• Процедура RefreshView обновляет набор данных, для которого показывается форма параметров. Если значение параметра RefreshAll равно True, то будет обновлен весь набор, если False, то только выделенные записи.
• Свойство Controls позволяет обращаться к элементам управления на форме задания параметров, их свойствам и методам. Каждый элемент управления реализует интерфейс IControl. В параметре Name (строкового типа)может быть передано как имя элемента управления, так и его индекс (в этом случае индекс должен быть передан как строка). Имена элементов управления на форме параметров соответствуют именам параметров подпрограммы (метода, отчета, etc).
• Свойство Buttons позволяет обращаться к командным кнопкам на форме задания параметров, их свойствам и методам. Каждая командная кнопка реализует интерфейс IButton. В параметре Name (строкового типа)может быть передано как имя командной кнопки, так и ее индекс (в этом случае индекс должен быть передан как строка).
• Свойство Enabled позволяет получать и устанавливать доступность кнопки OK на форме задания параметров. Если на форме есть невалидные (имеющие недопустимые значения) элементы управления, значение свойства всегда равно False и устанавливать его в явном виде в True не рекомендуется. Для учета дополнительного условия рекомендуется использовать следующую конструкцию: Enabled = Enabled and (Controls("SalesCount").Value > 10)
• Функция ExpressionContextValue возвращает значение переменной контекста с именем Name, которая используется для интeрпретации выражений условий отбора на форме.

01  IControl = interface(IDispatch)
02    ['{0662001F-D3D5-4F28-98AC-9B499F70E856}']
03    function Name: WideString;
04    procedure SetHint(const Value: WideString);
05    procedure RefreshLinkedView;
06    property Value: OleVariant;
07    property ReadOnly: WordBool;
08    property IsValid: WordBool;
09    property IsEmpty: WordBool;
10  end;

Моделирует элемент управления на форме задания параметров. Позволяет управлять поведением элементов управления на форме.

• Функция Name возвращает имя элемента управления; имена элементов управления всегда совпадают с именамим соответствующих параметров подпрограммы.
• Процедура SetHint устанавливает текст всплывающей подсказки элемента управления. Всплывыющая подсказка показывается только если значение элемента управления недопустимо (свойство IsValid равно False).
• Процедура RefreshLinkedView обновит связанное с элементом управления представление.
• Свойство Value позволяет получать и устанавливать значение, введенное в элемент управления.
• Свойство ReadOnly позволяет получать и устанавливать доступность элемента управления для записи; при значении True элемент управления не доступен для записи и отображается неактивным.
• Свойство IsValid позволяет получать и устанавливать "валидность" элемента управления; по умолчанию валидным элемент управления является в том случае, если введенное в него значение соответствует домену соответствующего параметра подпрограммы с учетом наложенного на него условия отбора.
• Свойство IsEmpty имеет значение True в случае, если в элемент управления не введено никакого значения (элемент управления пустой), в противном случае имеет значение False.

1  IButton = interface(IDispatch)
2    ['{1618406F-B9F1-4C5F-BC35-C2A154837CA9}']
3    function Name: WideString; safecall;
4    procedure Click; safecall;
5    property Enabled: WordBool;
6  end;

Моделирует командную кнопку на форме задания параметров. Позволяет управлять поведением кнопки на форме.

• Функция Name возвращает имя кнопки.
• Процедура Click эмулирует нажатие на кнопку.
• Свойство Enabled позволяет получать и устанавливать доступность кнопки.

01  IBinaryData = interface(IDispatch)
02    ['{8A9F7CB3-230A-4048-B938-852CBF6ADB2D}']
03    procedure Load(const Src: OleVariant);
04    procedure Append(const Src: OleVariant);
05    procedure Save(const Dst: OleVariant);
06    function Size: Cardinal;
07    function ToString(Encoding: WideString): WideString;
08    procedure FromString(Data: OleVariant);
09    procedure AppendString(Data: OleVariant);
10    function ToBase64: WideString;
11    procedure FromBase64(Data: OleVariant);

Представляет набор двоичных данных.

• Процедура Load загружает двоичные данные из переданного источника. Источник может быть
  • Объектом, реализующим интерфейс IStream
  • Объектом, реализующим интерфейс ISequentialStream
  • Строкой, содержащей имя файла
• Процедура Append добавляет двоичные данные из переданного источника. Источник может быть
  • Объектом, реализующим интерфейс IStream
  • Объектом, реализующим интерфейс ISequentialStream
  • Строкой, содержащей имя файла
• Процедура Save сохраняет двоичные данные в переданный приемник. Приемник может быть
  • Объектом, реализующим интерфейс IStream
  • Объектом, реализующим интерфейс ISequentialStream
  • Строкой, содержащей имя файла
• Функция ToString переводит данные в строку. Байты, содержашиеся в объекте, будут рассматриваться как содержащие строку в кодировке, заданной параметром Encoding. По умолчанию используется кодировка UTF-8
• Процедура FromString загружает данные из строки, переданной в параметре Data, перекодировав ее в кодировку UTF-8
• Процедура AppendString  добавляет данные из строки, переданной в параметре Data, перекодировав ее в кодировку UTF-8
• Функция ToBase64 возвращает строку, полученную путем кодирования в формат Base64, данных содержащихся в объекте
• Процедура FromBase64 загружает данные из строки, переданной в параметре Data, раскодировав ее из формата Base64

1  IContextExpressionInfo = interface(IUnknown)
2    ['{C7518427-B515-4EB4-B698-88656E6CBF7C}']
3    function Count: Integer;
4    function ItemName(Index: Integer): WideString;
5    function ItemValue(Index: Integer): OleVariant;
6    function ItemDomain(Index: Integer): OleVariant;
7  end;

Через реализацию этого интерфейса передаются значения контекстных переменных при обращении к функции selectValueинтерфейса IContext.

• Функция Count возвращает количество используемых контекстных переменных. Нумерация контекстных переменных начинается с нуля.
• Функция ItemName возвращает имя контекстной переменной c номером, переданным в параметре Index.
• Функция ItemValue возвращает значение контекстной переменной c номером, переданным в параметре Index.
• Функция ItemDomain возвращает имя домена контекстной переменной c номером, переданным в параметре Index.

1  IExceptionHandler = interface(IDispatch)
2    ['{3C3C7202-5ED5-4EB4-9CDD-A929C18CA8BD}']
3    procedure HandleException(ContextObject: OleVariant;
4      const Message: WideString;
5      const ExtentedInfo: WideString);
6  end;

Реализовав интерфейс IExceptionHandler разработчик решений может получать уведомления о возникающих при работе исключительных ситуациях. При возникновении исключения объект, реализующий интерфейс, получит текст сообщения об ошибке и расширенную информацию.

Для реализации интерфеса используется библиотека hse.tlb, входящая в состав поставки решения. Перед началом работы с ней, необходимо зарегистрировать ее в операционной системе.

Для установки настроек интерфейса необходимо открыть Системную форму раздела АДМИНИСТРАТОРУ, перейти на вкладку  Настройки и в столбце "Заголовок закладки" установить фильтр "Обработка ошибок".

После этого в качестве значения Идентификатора класса установить "IExceptionHandler" без кавычек.

Для Библиотеки кода указать значение HSE.tlb

1type
2  TQueryPart = (qpWhat, qpWhere, qpOrder, qpGroup, qpHaving, qpInnerJoin, 
3    qpOuterJoin);

Или

01type
02  TQueryPart = TOleEnum;
03const
04  qpWhat = $00000000;
05  qpWhere = $00000001;
06  qpOrder = $00000002;
07  qpGroup = $00000003;
08  qpHaving = $00000004;
09  qpInnerJoin = $00000005;
10  qpOuterJoin = $00000006;

Элементы перечисления:

Имя	Значение	Назначение
qpWhat	0
qpWhere	1
qpOrder	2
qpGroup	3
qpHaving	4
qpInnerJoin	5
qpOuterJoin	6

1type
2  TQuerySpecial = (qsNone, qsObjectID, qsParentID, qsHasChildren, 
3    qsFilterCondition, qsUplink, qsRootOnly, qsDescending, qsCount, qsSum, qsMin, 
4    qsMax, qsAverage, qsMasterLink, qsSelectedOnly, qsDistinct, qsViewCondition, 
5    qsCaseInsensitive, qsAsString, qsListed, qsName, qsDescription, qsFunction, 
6    qsCountDistinct, qsBoolean, qsExact, qsSearchIndex, qsOptimizationParameters);

Или

01type
02  TQuerySpecial = TOleEnum;
03const
04  qsNone = $00000000;
05  qsObjectID = $00000001;
06  qsParentID = $00000002;
07  qsHasChildren = $00000003;
08  qsFilterCondition = $00000004;
09  qsUplink = $00000005;
10  qsRootOnly = $00000006;
11  qsDescending = $00000007;
12  qsCount = $00000008;
13  qsSum = $00000009;
14  qsMin = $0000000A;
15  qsMax = $0000000B;
16  qsAverage = $0000000C;
17  qsMasterLink = $0000000D;
18  qsSelectedOnly = $0000000E;
19  qsDistinct = $0000000F;
20  qsViewCondition = $00000010;
21  qsCaseInsensitive = $00000011;
22  qsAsString = $00000012;
23  qsListed = $00000013;
24  qsName = $00000014;
25  qsDescription = $00000015;
26  qsFunction = $00000016;
27  qsCountDistinct = $00000017;
28  qsBoolean = $00000018;
29  qsExact = $00000019;
30  qsSearchIndex = $0000001A;
31  qsOptimizationParameters = $0000001B;