Ознакомление с процессом создания таблиц с использованием триггеров и генераторов. Разработка приложения в 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. В таблицу Врач добавим название ФИО врача и специалдизацию, например Сидоров Иван Василеевич специализация Хирург.В ходе работы была создана информационная система "Клиника".
План
Содержание
Введение
1. Постановка задачи
2. Описание алгоритма
2.1 Создание 3НФ
2.2 Создание таблиц
3. Создания приложения
3.1 Модуль данных
3.2 Создания событий
3.3 Добавление компонентов на Form1
4. Руководство пользователя
Заключение
Список использованных источников
Вы можете ЗАГРУЗИТЬ и ПОВЫСИТЬ уникальность своей работы
