Ознакомление с процессом создания таблиц с использованием триггеров и генераторов. Разработка приложения в Lazarus. Характеристика особенностей заполнения таблиц "врачи" и "пациенты". Определение методов создания модуля данных системы "Клиника".
Аннотация к работе
Контрольная работаСистема управления базами данных (СУБД) - это программное обеспечение, с помощью которого пользователи могут определять, создавать и поддерживать базу данных, а также осуществлять к ней контролируемый доступ. База данных (БД) - совокупность сведений, хранимых в запоминающих устройствах ЭВМ, выступающая в качестве исходных данных при решении различных задач. Главная цель создания баз данных состоит в объединении функций обновления, ведения и пополнения хранимой информации, а также справочной функции.Необходимо привести к третьей нормальной форме: Ф.И.О врача, Специализация, Ф.И.О пациента, День Регистрационный номер, Адрес, Дата рождения, Номер полиса, Диагноз, Дата приема, Страховая карта, Дата начало больничного Дата выписки.Созданная 3НФ показана на рисунке 1.Создание таблиц начинается с таблицы, не имеющей внешних ключей. Запросы на создание таблиц выглядеть следующим образом: Таблица №1 create table vrah Таблица №2 create table pacient Запрос на их создание выглядит следующим образом: Триггер к таблице №1 create generator vrah_id_gen; create trigger set_vrah_id for vrah active before insert position 0 as begin if(new.IDVRAH is null) then new.IDVRAH = gen_id(vrah_id_gen,1);Для того чтобы создать приложение необходимо, создать новый проект (Файл > Создать...> из группы «Проект» выбираем «Приложение»).Добавим четыре компонента TDATASOURCE со вкладки Data Access. Задаем в свойстве IBCONNECTION1 Задаем в свойстве SQLTRANSACTION1 Установим свойство Connected в компоненте IBCONNECTION1в True (как показана на рисунке 3). Рисунок 3 - В свойстве Connected меняем вместо True на FalseЗадаем событие ONCREATE в модуле данных DATAMODULE1 procedure TDATAMODULE1.DATAMODULECREATE(Sender: TOBJECT); Задаем событие AFTERCONNECT в компоненте IBCONNECTION1 procedure TDATAMODULE1.IBCONNECTION1AFTERCONNECT(Sender: TOBJECT); Задаем событие AFTEROPEN в компоненте SQLQUERY1 Задаем событие BEFOREDISCONNECT в компоненте IBCONNECTION1 procedure TDATAMODULE1.IBCONNECTION1BEFOREDISCONNECT(Sender: TOBJECT); Задаем событие BEFORECLOSE, общее для компонентов SQLQUERY1и SQLQUERY2 procedure TDATAMODULE1.SQLQUERY1BEFORECLOSE(DATASET: TDATASET);На рисунке 5 представлено приложение созданное в Lazarus. В таблицу Врач добавим название ФИО врача и специалдизацию, например Сидоров Иван Василеевич специализация Хирург.В ходе работы была создана информационная система "Клиника".