Введение в OpenEdge Mobile: Создаём простейшее мобильное приложение

Создаем Include-файл

Перед тем как приступить к созданию бизнес-сущности для нашего мобильного сервиса, мы должны создать include-файл, который будет содержать описание временной таблицы, соответствующей схеме таблицы Customer базы данных Sports2000. Для этого:

1. Разместим include-файл в каталоге AppServer нашего проекта. Для этого выберите каталог AppServer в Project Explorer, щелкните по нему правой кнопкой мыши и выберите пункт меню New -> ABL Include.

2. В открывшемся окне в поле контейнер должен быть указан путь к каталогу AppServer. В поле File name введите имя нашего файла – dsCustomer.i:

Остальные поля можете заполнить на свое усмотрение или оставить пустыми.

3. Щелкните по кнопке Finish.

4. В открывшемся файле, в секции Definitions скопируйте и поместите следующий код:

DEFINE TEMP-TABLE eCustomer NO-UNDO BEFORE-TABLE beCustomer
    FIELD CustNum   AS INTEGER
    FIELD Name      AS CHARACTER FORMAT "X(20)"
    FIELD Address   AS CHARACTER
    FIELD Phone     AS CHARACTER
    FIELD SalesRep  AS CHARACTER
    FIELD Balance   AS DECIMAL 
    FIELD State     AS CHARACTER
    FIELD numOrders AS INTEGER
    INDEX CustNum IS UNIQUE PRIMARY CustNum
    INDEX Name NAME.

DEFINE DATASET dsCustomer
    FOR eCustomer.

5. Сохраните изменения, нажав комбинацию клавиш Ctrl+S.

Убедитесь в том, что файл dsCustomer.i появился в каталоге AppServer.

Создаем бизнес-сущность

Бизнес-сущность, это файл ABL-класса (CLS), который содержит предопределенные аннотации мобильного сервиса. Для создания бизнес-сущности выполните следующие шаги:

1. В Project Explorer выберите каталог AppServer (здесь мы разместим .cls-файл), щелкните на нём правой кнопкой мыши и выберите пункт меню New -> Business Entity:

 

2. Убедитесь в том, что поле Package root содержит \MyMobile\AppServer, и введите название бизнес-сущности dsCustomer в поле Business Entity name. Щелкните на кнопке Next.

3. В поле Schema file щелкните на кнопке Browse и выберите файл dsCustomer.i, ранее сохраненный нами в каталоге C:\workspace\MyMobile\AppServer.

4. В поле Schema появятся описание схемы временной таблицы eCustomer и DATASET dsCustomer. Выберите dsCustomer и щелкните по кнопке Finish.

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

DEFINE DATA-SOURCE srcCustomer FOR Customer.
    EMPTY TEMP-TABLE eCustomer.

BUFFER eCustomer:ATTACH-DATA-SOURCE(DATA-SOURCE srcCustomer:HANDLE).

filter = "where custnum < 100".
IF filter NE "" AND filter NE ? THEN
    DATA-SOURCE srcCustomer:FILL-WHERE-STRING = filter.

DATASET dsCustomer:FILL().

BUFFER eCustomer:DETACH-DATA-SOURCE().

RETURN.

6. Выполните проверку синтаксиса, нажав комбинацию клавиш Ctrl+Shift+C. Если синтаксис правильный, сохраните внесенные изменения.

Теперь мы должны добавить бизнес-сущность в мобильный сервис, для этого:

1. В панели Project Explorer разверните пункт Defined Services и щелкните правой кнопкой на сервисе MyMobileService, в открывшемся меню выберите пункт Edit.

2. Щелкните на кнопке Next на странице Edit a Mobile Service.

3. На следующей странице выберите файл бизнес-сущности dsCustomer.cls и щелкните по кнопке Finish.

Теперь мы можем приступить к созданию интерфейса мобильного приложения в Mobile App Builder.

---