LINTER от 04.02.15

Практическое занятие 11. Основные приемы использования LinAPI 81

processing_error(lRet, 0, nCurs, 0,"Error ExecuteDirect");

}else

printf("Table PRAC12_STAT deleted\n");

if (lRet = LINTER_ExecuteDirect(nCurs, "create table PRAC12_STAT (skurs int not null, scount int);", 0, NULL,NULL))

processing_error(lRet, 0, nCurs, 0,"Error ExecuteDirect");

else printf("Table PRAC12_STAT created\n");

for (i = 0; i < MAXKURSNUM; i++)

{

sprintf(szSQL, "insert into PRAC12_STAT values (%d, %d);\n", i + 1, statistic[i]);

printf(szSQL);

if (lRet = LINTER_ExecuteDirect(nCurs, szSQL, 0, NULL,NULL))

processing_error(lRet, 0, nCurs, 0,"Error ExecuteDirect");

}

printf("Cursor closing\n");

if (lRet = LINTER_CloseCursor(nCurs))

processing_error(lRet, 0, nCurs, 0,"Error CloseCursor");

printf("Connection closing\n");

if (lRet = LINTER_CloseConnect(nConn))

processing_error(lRet, nConn, 0, 0, "ERROR CloseConnect");

82 Практическое занятие 11. Основные приемы использования LinAPI

printf("LINTER_CloseAPI\n");

LINTER_CloseAPI(); /* Free library resource */

printf("Done.\n"); return 0;

/* End */

}

Скомпилируем этот файл:

gcc prac12_e3.c -I /export/home/lindesk/linter5923/linter/intlib/ -llinapi - lsocket -lm -L /export/home/lindesk/linter5923/linter/intlib/ -o prac12_e3

Задача 5. (Студенты выполняют самостоятельно) Модифицировать данный пример: в таблицу статистики добавляется столбец SGROUPS (количество групп на курсе) и формируется, как наибольшие номер группы у встретившихся студентов данного курса.

11.5. Фиксация и откат изменений

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

Тогда, алгоритм работы приложения будет таким:

Ниже представлен листинг программы из файла prac12_e4.c.

#include <stdio.h> #include <stdlib.h>

E-mail: market@relex.ru ЗАО НПП «РЕЛЭКС» http://www.relex.ru

Практическое занятие 11. Основные приемы использования LinAPI 83

/* function for error processing for LinAPI */ void processing_error(LONG ret_cod,

WORD con_id, WORD cur_id, WORD stmt_id, char * message)

{

LONG lRet;

LONG apierr = 0, error = 0, syserr = 0;

if ( ret_cod == LINAPI_ERROR )

{

/* getting error codes for required object */ if (lRet = LINTER_Error(con_id, cur_id, stmt_id,

&apierr, &error, &syserr, NULL, NULL)) printf("diagnostic error %ld\n",lRet);

else

84 Практическое занятие 11. Основные приемы использования LinAPI

{

printf("ApiErr = %ld, LinErr = %ld, SysErr = %ld\n%s\n",

apierr, error, syserr, message);

if ( (apierr == eLinterError) && error > 2000 && error < 3000)

{

/* getting string and position if syntax error is */ printf("Syntax error : line %d, position %d\n",

(short)syserr, *(short*)((char*)&syserr +2));

}

}

LINTER_CloseAPI(); /* Free library resource */ exit(1);

}

else

printf("Return code = %ld\n",ret_cod);

}

#define MAXSTRLEN 100 #define MAXKURSNUM 6

Практическое занятие 11. Основные приемы использования LinAPI 85

int main(void)

#endif

{

LONG realLen = 0;

LONG recCount = 0;

char szMask[MAXSTRLEN] = {0};

printf("\nConnect\n");

if (lRet = LINTER_Connect("SYSTEM", 0, "MANAGER", 0, NULL, mExclusive, &nConn))

processing_error(lRet, nConn, 0, 0, "ERROR Linter_Connect");

printf("Open cursor\n");

if (lRet = LINTER_OpenCursor(nConn, &nCurs, NULL, 0, mExclusive))

processing_error(lRet, nConn, 0, 0, "Error open cursor");

printf("Students updating...");

if (lRet = LINTER_ExecuteDirect(nCurs, "update PRAC12_STUDENT set SKURS = SKURS + 1;", 0, NULL,NULL))

processing_error(lRet, 0, nCurs, 0,"Error ExecuteDirect");

realLen = sizeof(recCount);

86 Практическое занятие 11. Основные приемы использования LinAPI

if (lRet = LINTER_GetCursorOption(nCurs, cRowCount, 0, &recCount, &realLen))

processing_error(lRet, 0, nCurs, 0,"Error GetCursorOption");

printf(" Done. %d records updated.\n", recCount);

printf("Students deleting...");

if (lRet = LINTER_ExecuteDirect(nCurs, "delete from PRAC12_STUDENT where SKURS > 6;", 0, NULL,NULL))

processing_error(lRet, 0, nCurs, 0,"Error ExecuteDirect");

realLen = sizeof(recCount);

if (lRet = LINTER_GetCursorOption(nCurs, cRowCount, 0, &recCount, &realLen))

processing_error(lRet, 0, nCurs, 0,"Error GetCursorOption");

printf(" Done. %d records deleted.\n", recCount);

printf("Do you want to commit changes? (Y/N)\n");

gets(szMask);

if (!strcmp(szMask, "Y") || !strcmp(szMask, "y"))

{

printf("Commit...");

if (lRet = LINTER_ExecuteDirect(nCurs, "commit;", 0, NULL,NULL))

processing_error(lRet, 0, nCurs, 0,"Error ExecuteDirect");

Практическое занятие 11. Основные приемы использования LinAPI 87

printf("Done\n"); } else

{

printf("Rollback...");

if (lRet = LINTER_ExecuteDirect(nCurs, "rollback;", 0, NULL,NULL))

processing_error(lRet, 0, nCurs, 0,"Error ExecuteDirect");

printf("Done\n");

}

printf("Cursor closing\n");

if (lRet = LINTER_CloseCursor(nCurs)) processing_error(lRet, 0, nCurs, 0,"Error CloseCursor"); printf("Connection closing\n");

if (lRet = LINTER_CloseConnect(nConn))

processing_error(lRet, nConn, 0, 0, "ERROR CloseConnect");

printf("LINTER_CloseAPI\n");

LINTER_CloseAPI(); /* Free library resource */

printf("Done.\n"); return 0;

/* End */

}

Скомпилируем этот файл:

gcc prac12_e4.c -I /export/home/lindesk/linter5923/linter/intlib/ -llinapi -

88 Практическое занятие 11. Основные приемы использования LinAPI

lsocket -lm -L /export/home/lindesk/linter5923/linter/intlib/ -o prac12_e4

Задача 6. (Студенты выполняют самостоятельно) Модифицировать данный пример: в таблицу студентов добавляется столбец SFORM (форма обучения – бакалавр, специалист или магистр). Модифицировать процесс удаления студентов из таблицы по окончанию вуза, учитывая, что время обучения бакалавра – 4 года, специалиста – 5 лет и магистра – 6.

Выпускников заносить в таблицу PRAC12_VYPUSK (ФИО, номер группы, год выпуска, квалификация).

89

Практическое занятие 12

Пример разработки приложения для ЛИНТЕР с использованием Qt

Практика 8 часов

Целью данной практики является освоение техники построения графического приложения, работающего с базой данных ЛИНТЕР в среде Unix, при использовании графической библиотеки Qt версии 1.4.x или выше (необходимы общие знания по Qt).

Вданном практике рассматривается синхронная и асинхронная работа с ЛИНТЕР и прием сообщений от ЛИНТЕР через асинхронный запрос. Работа с ЛИНТЕР осуществляется через Call-интерфейс (необходимы знания из предыдущих занятий по Callинтерфейсу). Используются вызовы Call-интерфейса, уже изученные нами, и никакой особой специфики здесь нет. Аналогичным образом можно было бы использовать и LinAPI. Специфичность нашей практики заключается в использовании классов C++, обеспечивающих работу с ЛИНТЕР, в частности, при построении приложений с графическим интерфейсом пользователя на основе библиотеки Qt.

Впримере используется таблица AUTO со следующей структурой:

Эта таблица входит в демонстрационную БД СУБД ЛИНТЕР и ее всегда можно создать и загрузить из файлов, входящих в дистрибутив ЛИНТЕР. Для работы примеров в базе данных, после ее старта, должно быть создано событие AUTO_CHANGE:

create event auto_change as delete, update, insert on auto;

Приложение визуально построено так, что данные из запроса отображаются в многострочном элементе (это либо список, либо таблица) и для текущей строки в 4

Практическое занятие 12

90 Пример разработки приложения для ЛИНТЕР с использованием Qt

Практическая работа разделена на три этапа, на каждом из которых создается готовое графическое приложение.

Сборка приложения осуществляется с помощью команды 'make' в результате выполнения которой создается исполняемый файл 'main'. Перед сборкой должны быть изменены значения переменных LINTER и QTDIR на те, которые соответствуют реальности. Исходные файлы и сценарии сборки для каждого из примеров находятся в подкаталогах step1, step2, step3.

На первом этапе - демонстрируется синхронная работа с ЛИНТЕР. В приложении используется многострочный элемент - список для вывода результата выборки и 4 однострочных редактора, для вывода значений полей каждой записи

После запуска программы список будет заполнен значениями поля AUTO.SERIALNO, а в однострочных редакторах значениями полей MAKE, MODEL,YEAR, SERIALNO текущей записи выборки.

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

На третьем этапе к функциональности реализованной на первых этапах добавляется возможность асинхронного выполнения select-запроса. Программа не ожидает ответа на запрос, а продолжает работать, и только после наступления события о готовности источника данных элементы управления заполняются данными. Внешне программа не отличается от предыдущих, только вместо списка используется таблица для отображения результатов выборки. Для того чтобы была видна работа программы, при изменении состояния источника данных выводятся информационные окна. SQL-запрос к Линтеру написан специально с перемножением таблиц, чтобы была видна пауза между началом выполнения запроса и его концом.

Далее опишем более подробно устройство классов и принципы по которым были написаны приложения на каждом из этапов.

12.1. Первый этап

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

CDataSource - интерфейсный класс источник данных реляционного типа. Его