Создание диалогового окна в системе GELICON PRO

Ядром системы адаптации является объектно-ориентированный язык GOAL (Gelicon Open Architecture Language). Язык GOAL прост в освоении, так как является подмножеством языка Pascal - одного из самых легко осваиваемых языков программирования. Хотя с помощью GOAL нельзя создавать такие сложные типы как структуры и классы, он ориентирован на управление объектами различной природы. Наиболее часто используемыми в GOAL объектами являются компоненты Delphi и COM-объекты. GOAL сглаживает различия между объектами различной природы таким образом, что управления COM-объектом практически не отличается от управления компонентом Delphi.

В последних версиях системы Капитал CSE язык оснащен высокопроизводительным однопроходным компилятором и виртуальной машиной GOAL, что повышает надежность и производительность прикладных решений, реализованных на этом языке.

Язык GOAL совмещает в себе мощность и гибкость универсальных алгоритмических языков и специализацию проблемно-ориентированных языков. Именно поэтому в GOAL легко и просто можно вызвать хранимую процедуру или написать SQL-запрос. Для поддержки проблемной ориентированности языка были созданы объекты GBO (Gelicon Business Object), которые представляют собой прикладной слой системы Капитал CSE. В них реализованы основные бизнес-правила, что существенно упрощает программирование прикладных решений в системе Капитал CSE.

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

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

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

Аналитические отчеты. Этот тип ресурса предназначен для создания многомерных аналитических отчетов в технологии OLAP (On-Line Analitical Processing). Программирование OLAP-отчетов упрощается за счет специализированного объекта GBO.

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

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

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

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

Кроме вышеперечисленных основных типов ресурсов, существует ряд вспомогательных типов, таких как: библиотеки функций, константы, атрибуты, нумераторы, таблицы пользователя и т.д. Все ресурсы хранятся в едином репозитарии системы Капитал CSE. Для создания и администрирования ресурсов всех типов используется единая инструментальная среда, которая называется Реестр ресурсов.

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

3. Разработка нового диалогового окна «Добавление новой страны в справочник стран».

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

Для этого заходим в Реестр ресурсов системы в списке приложений необходимо создать новое приложение (рис. 1).

 

Рис. 1 – Добавление нового приложения в реестре ресурсов системы.

 

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

Создается компонент класса TStoredProc — хранимая процедура добавления страны в справочник стран с именем "COUNTRYINS" (рис. 2).

 

Рис. 2 – Добавление компонента класса TStoredProc.

 

При создании данного компонента вызывается метод, который запрашивает список параметров хранимой процедуры с сервера базы данных (.Prepare). Далее создается компонент класса TDataSource — источник данных, который связывается с созданной ранее хранимой процедурой (рис. 3).

 

Рис. 3 – Добавление компонента класса TDataSource.

 

Далее создается компонент класс Tg_ParamEdit — поле ввода, которое связывается с хранимой процедурой через компонент "источник данных" (DataSource), который в свою очередь связан с данной хранимой процедурой (свойство DataSet) (рис. 4).

 

Рис. 4 – Добавление компонента класса Tg_ParamEdit.

У поля ввода указано также свойство ParamName — название параметра хранимой процедуры, именно того параметра, который будет отображаться в поле. И последнее, что указано при создании поля ввода — это начальное пустое значение (.TextValue := ""). Также были описаны обработчики событий OnActivate формы (в нем поле ввода получает фокус) и OnClick кнопки (выполнение хранимой процедуры добавления новой страны, название которой берется из поля ввода(aProc.ExecProc)) и вывод сообщения об идентификаторе только что добавленной записи) (рис. 5).

 

Рис. 4 – Вывод сообщения об идентификаторе только что добавленной записи.

 

ЗАКЛЮЧЕНИЕ

С момента появления первых образцов персональных компьютеров прошло не так уж и много времени, но сейчас без них уже немыслимо огромное количество областей человеческой деятельности - экономика, управление, наука, инженерное дело, издательское дело, образование, культура и т.д. Интерес к персональным компьютерам постоянно растет, а круг их пользователей непрерывно расширяется.

Одновременно развиваются языки программирования. С 1985 года языки программирования были дополнены возможностями объектно-ориентированного программирования (ООП). 

Программный комплекс GELICON ERP также основан на объектно-ориентированном программировании (на объектно-ориентированном языке GOAL).

Система GELICON ERP – это эффективная российская ERP-система для крупного и среднего бизнеса, которая адаптируется под реальные бизнес-процессы предприятия.

Целью курсовой работы являлась разработка нового диалогового окна пользователя – добавление новой страны в справочник стран, название которой берется из поля ввода. В данной курсовой работе было проведено ознакомление с корпоративной информационной системой управления предприятием Капитал CSE и рассмотрены особенности объектно-ориентированного программирования, используемого в данном программном комплексе.

 

 

 

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

1. Котляров О.А. Автоматизированное проектирование информационных систем управления предприятием на основе CASE-технологий /Автореферат на соискание ученой степени канд. техн. наук. – Воронеж, 2003. – С.3
2. Могилев А.В. и др. Информатика: учеб. пос. для вузов. – 7-е изд., стер. – М.: Академия, 2009.
3. Немнюгин С.А. Turbo Pascal. Программирование на языке высокого уровня: учебник для вузов. – 2-е изд. – СПб.: Питер, 2008.
4. Проектирование информационных ИС: курс лекций. – С.43
5. Трофимов, В.В. Информационные системы и технологии в экономике и управлении: учебник / В.В. Трофимов. – М.: Высшее образование, 2007.

• Электронные ресурсы

1. Введение в проектирование информационных систем. – URL: http://citforum.ru/database/oraclepr/oraclepr_02.shtml
2. Официальный сайт компании Gelicon Pro. – URL: http://www.gelicon.biz/site
3. Концепция объектно-ориентированного программирования. – URL: http://physics.herzen.spb.ru/library/03/01/delphi/LR_2/L_01.htm

 

 

 

ПРИЛОЖЕНИЕ 1

 

ПРОГРАММНЫЙ КОД МОДУЛЯ РАЗРАБОТАННОЙ ФУНКЦИИ ПОЛЬЗОВАТЕЛЯ

aForm :class;

aParamEdit :class;

aButton1 :class;

aDataSourceProc :class;

aProc :class;

{

aForm := Create("TForm",

{

.Caption := "Добавление страны";

.Top := 300;

.Left := 100;

.OnActivate := "Form1OnActivate";

});

aButton1 := Create("TGButton",

{

.Parent := aForm;

.Caption := "Добавить";

.Top := 180;

.Left := 50;

.Width := 210;

.OnClick := "Button1OnClick";

});

{* хранимая процедура добавления страны в справочник населенных пунктов *}

aProc:=Create("TStoredProc",

{

.DataBaseName:="WorkDataBase";

.StoredProcName:="COUNTRYINS";

.Prepare();

});

aDataSourceProc:=Create( "TDataSource",

{

.DataSet:=aProc;

});

aParamEdit := Create("Tg_ParamEdit",

{

.Parent := aForm;

.maxLength :=10;

.Top := 40;

.Left := 100;

.ShowHint := "True";

.Hint := "Наименование";

.ParamsSource := aDataSourceProc;

.ParamName := "COUNTRY_NAME";

.TextValue := "";

});

aForm.ShowModal();

};function Button1OnClick(Sender: Class)

{{

aProc.ExecProc();

MessageOk ("Добавилась запись с идентификатором " + AProc.Params["COUNTRY_ID"].AsInteger);

};};

function Form1OnActivate (aSender :Class)

{{

aParamEdit.Focused := 1;

};};