Упражнение 4.1: Изменение набора данных на клиенте
На этом практическом занятии мы напишем клиентский и серверный код для реализации обновлений в наборе данных. Сначала мы подготовим код клиента: изменим данные в наборе данных, отправим изменения на сервер и выполним слияние изменений, полученных от сервера, в рабочий набор данных клиента. Затем подготовим серверный код: напишем процедуру обновления, которая применит изменения из полученного набора к базе данных и вернёт набор изменений клиенту. В завершение протестируем работу нашего клиентского и серверного кода.
Занятие состоит из трёх заданий на выполнение которых отводится примерно 60 минут.
Задание 1 – Код для изменения набора данных на клиенте
На предыдущем практическом занятии мы создали клиентскую процедуру access_dsPO_procs.p, в которой написали код для извлечения набора данных. В этом задании мы добавим в эту процедуру код для изменения данных в полученном наборе данных, создадим набор изменений, вызовем серверную процедуру для обновления и выполним слияние возвращённых с сервера изменений с рабочим набором данных.
|
Шаг |
Действие |
| 1 | В OpenEdge Editor откройте процедуру access_dsPO_procs.p, которая была создана на предыдущем практическом занятии. |
| 2 | Перейдите в конец процедуры и перед секцией отключения от сервера приложений и очистки добавьте следующий комментарий, чтобы обозначить начала кода, в котором мы будем вносить изменения во временные таблицы ttPurchaseOrder и ttPOLine.
/***************************************** Практическое занятие 4.1. Задание 1. Изменение набора данных на стороне клиента ******************************************/
|
| 3 | После комментария выполните очистку набора данных dsPO и запросите все данных с сервера.
DATASET dsPO:EMPTY-DATASET ().
/* Запросить все данные с сервера */
RUN get_dsPO IN hProc ("", "",OUTPUT DATASET dsPO).
|
| 4 | Откройте вывод в файл update_dsPO.txt, который будет использоваться для записи данных.
OUTPUT TO "C:\OpenEdge\WRK\ProDataSets\log\update_dsPO.txt". |
| 5 | Добавим следующий код для сохранения текущих значений записи таблицы PurchaseOrder у которой поле PONum равно 8001, и связанных с ней записей из таблицы ttPOLine.
MESSAGE "***********Перед обновлением: ". FOR FIRST ttPurchaseOrder WHERE ttPurchaseOrder.PONum = 8001 NO-LOCK: MESSAGE "Purchase Order: " ttPurchaseOrder.PONum. FOR EACH ttPOLine WHERE ttPOLine.PONum = ttPurchaseOrder.PONum NO-LOCK: MESSAGE "PurchaseOrderLine Qty: " ttPOLine.Qty " Price: " ttPOLine.Price " Discount: " ttPOLine.Discount " Extended price: " ttPOLine.ExtendedPrice. END. END. |
| 6 | Поскольку мы собираемся вносить изменения во временные таблицы ttPurchaseOrder и ttPOLine, то активируем отслеживание изменений для этих таблиц.
/* Активируем отслеживание изменений */ TEMP-TABLE ttPOLine:TRACKING-CHANGES = TRUE. TEMP-TABLE ttPurchaseOrder:TRACKING-CHANGES = TRUE.
|
| 7 | Установим для текущей записи ttPurchaseOrder для поля ReceiveDate тоже значение, что имеется сейчас. Это сделает запись ttPurchaseOrder частью набора изменений. Когда эта запись будет находиться в наборе изменений, она автоматически получит изменения из базы данных.
ttPurchaseOrder.ReceiveDate = ttPurchaseOrder.ReceiveDate. |
| 8 | Пройдём по всем записям ttPOLine со значением 8001 в поле PONum и увеличьте значение поля Qty на 10, а значение поля Discount на 5.
FOR EACH ttPOLine WHERE ttPOLine.PONum = 8001: ASSIGN ttPOLine.Qty = ttPOLine.Qty + 10 ttPOLine.Discount = ttPOLine.Discount + 5. END.
|
| 9 | Деактивируем отслеживание изменений во временных таблицах.
/* Деактивируем отслеживание изменений */ TEMP-TABLE ttPOLine:TRACKING-CHANGES = FALSE. TEMP-TABLE ttPurchaseOrder:TRACKING-CHANGES = FALSE. |
| 10 | Сохраним изменения в файл, чтобы иметь возможность сравнить эти значения с тем, что будет возвращено позже с сервера после слияния изменений.
MESSAGE "***********После обновления в рабочем наборе: ". FOR FIRST ttPurchaseOrder WHERE ttPurchaseOrder.PONum = 8001 NO-LOCK: MESSAGE "Purchase Order: " ttPurchaseOrder.PONum. FOR EACH ttPOLine WHERE ttPOLine.PONum = ttPurchaseOrder.PONum NO-LOCK: MESSAGE "PurchaseOrderLine Qty: " ttPOLine.Qty " Price: " ttPOLine.Price " Discount: " ttPOLine.Discount " Extended price: " ttPOLine.ExtendedPrice. END. END. |
| 11 | Добавим описание переменой hChangeDataset с типом данных HANDLE.
DEFINE VARIABLE hChangeDataSet AS HANDLE NO-UNDO. Создадим набор изменений из рабочего набора данных. CREATE DATASET hChangeDataSet. hChangeDataSet:CREATE-LIKE( DATASET dsPO:HANDLE). hChangeDataSet:GET-CHANGES(DATASET dsPO:HANDLE).
|
| 12 | Процедура обновления update_dsPO, которая будет написана на стороне сервера, будет принимать в качестве параметра набор изменений. Добавим следующий код вызова этой процедуры с передачей набора изменений.
/* Обновим данные на сервере */ RUN update_dsPO IN hProc (INPUT-OUTPUT DATASET-HANDLE hChangeDataSet). |
| 13 | Теперь добавим код для слияния изменений из полученного сервера набора изменений в рабочий клиентский набор данных.
hChangeDataSet:MERGE-CHANGES (DATASET dsPO:HANDLE). |
| 14 | Вновь сохраним содержимое таблиц обновлённых таблиц ttPurchaseOrder и ttPOLine в файл и сравним результат с данными, которые мы сохранили перед вызовом процедуры обновления на сервере.
MESSAGE "***********После обновления на серере: ". FOR FIRST ttPurchaseOrder WHERE ttPurchaseOrder.PONum = 8001 NO-LOCK: MESSAGE "Purchase Order: " ttPurchaseOrder.PONum. FOR EACH ttPOLine WHERE ttPOLine.PONum = ttPurchaseOrder.PONum NO-LOCK: MESSAGE "PurchaseOrderLine Qty: " ttPOLine.Qty " Price: " ttPOLine.Price " Discount: " ttPOLine.Discount " Extended price: " ttPOLine.ExtendedPrice. END. END. |
| 15 | Закроем вывод файл.
OUTPUT CLOSE. |
| 16 | Поскольку мы закончили работать с набора изменений, мы должны удалить этот динамический набор.
DELETE OBJECT hChangeDataset.
|
| 17 | Сохраните изменения в файле процедуры и убедитесь в отсутствии ошибок компиляции. |
