Создание информационной системы "Клиника"

Ознакомление с процессом создания таблиц с использованием триггеров и генераторов. Разработка приложения в Lazarus. Характеристика особенностей заполнения таблиц "врачи" и "пациенты". Определение методов создания модуля данных системы "Клиника".

Рубрика Программирование, компьютеры и кибернетика
Вид контрольная работа
Язык русский
Дата добавления 19.12.2014
Размер файла 877,2 K

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

Размещено на http://www.allbest.ru/

Контрольная работа

Создание информационной системы "Клиника"

Содержание

  • Введение
  • 1. Постановка задачи
  • 2. Описание алгоритма
    • 2.1 Создание 3НФ
    • 2.2 Создание таблиц
  • 3. Создания приложения
    • 3.1 Модуль данных
    • 3.2 Создания событий
    • 3.3 Добавление компонентов на Form1
  • 4. Руководство пользователя
  • Заключение
  • Список использованных источников

Введение

Система управления базами данных (СУБД) - это программное обеспечение, с помощью которого пользователи могут определять, создавать и поддерживать базу данных, а также осуществлять к ней контролируемый доступ.

База данных (БД) - совокупность сведений, хранимых в запоминающих устройствах ЭВМ, выступающая в качестве исходных данных при решении различных задач.

Главная цель создания баз данных состоит в объединении функций обновления, ведения и пополнения хранимой информации, а также справочной функции. Основное характерное свойство базы данных - ее независимость от рабочих программ, с которыми она взаимодействует. Эта независимость проявляется в возможности изменения содержания, объема и организации хранимой информации без изменения рабочих программ, пользующихся данной информацией. Для обеспечения независимости базы данных необходимо хранить описание накопленной информации вместе с самой информацией и обеспечить возможность коллективного доступа к любой части хранимых сведений.

Цель проекта: создать информационную систему "Клиника".

Задачи:

1. Создать 3НФ;

2. Создать БД "статистика матчей" в программе IBExpert;

3. Создать приложение в Lazarus.

1. Постановка задачи

Необходимо создать СУБД "Клиника" и приложение в Lazarus. Необходимо привести к третьей нормальной форме: Ф.И.О врача, Специализация, Ф.И.О пациента, День Регистрационный номер, Адрес, Дата рождения, Номер полиса, Диагноз, Дата приема, Страховая карта, Дата начало больничного Дата выписки.

2. Описание алгоритма

2.1 Создание 3НФ

Созданная 3НФ показана на рисунке 1.

Рисунок 1 - 3НФ

2.2 Создание таблиц

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

Таблица №1

create table vrah

(IDvrah numeric not null primary key,

FIOvrah varchar (200),

spec varchar (50));

Внешний ключ IDvrah связывает текущую таблицу с таблицей vrah по ее первичному ключу IDvrah.

Таблица №2

create table pacient

(IDpacient numeric not null primary key,

FIOpacient varchar (200),

pegnom varchar (30),

adres varchar (50),

dt varchar (50),

nompol varchar (20));

Для автоматического заполнения значениями ключевых полей используются триггеры и генераторы. Запрос на их создание выглядит следующим образом:

Триггер к таблице №1

create generator vrah_id_gen;

commit;

set term ^;

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);

end; ^

set term; ^

commit;

Триггер к таблице №2

create generator pacient_id_gen;

commit;

set term ^;

create trigger set_pacient_id for pacient

active before insert position 0 as

begin

if(new.IDpacient is null) then

new.IDpacient = gen_id(pacient_id_gen,1);

end; ^

set term; ^

commit;

Оставшиеся таблицы и триггеры делаются аналогичным образом, как на примере 1 и 2.

3. Создания приложения

Для того чтобы создать приложение необходимо, создать новый проект (Файл > Создать...> из группы «Проект» выбираем «Приложение»). Добавим модуль данных (Файл > Создать...> из группы «Модуль» выбираем «Модуль данных»).

3.1 Модуль данных

Добавляем в DataModule1 TIBConnection, TSQLTransaction и четыре компонента TSQLQuery со вкладки SQLdb. Добавим четыре компонента TDataSource со вкладки Data Access. (как показано на рисунке 2)

Рисунок 2 - добавление компонентов

Задаем в свойстве IBConnection1

DatabaseName

C:\\BD\BD.GDB

Transaction

SQLTransaction1

LoginPrompt

False

Dialect

3

CharSet

UTF-8

UserName

SYSDBA

Password

masterkey

Задаем в свойстве SQLTransaction1

Database

IBConnection1

DefaultAction

caCommit

Params

write

read_committed

rec_version

nowait

Установим свойство Connected в компоненте IBConnection1в True (как показана на рисунке 3).

Рисунок 3 - В свойстве Connected меняем вместо True на False

В случае успеха свойство беспрепятственно установится в True. В Случае ошибки необходимо проверить имя пользователя, пароль, путь к базе.

Задаем в свойстве SQLQuery1

Database

IBConnection1

Transaction

SQLTransaction1

SQL

select * from vrah

InsertSQL

insert into vrah

(FIOvrah, spec)

values

(:FIOvrah, :spec)

DeleteSQL

delete from vrah

where IDvrah=:IDvrah

UpdateSQL

update vrah set

IDvrah=:IDvrah,

FIOvrah=:FIOvrah,

spec=:spec

where IDvrah=:OLD_IDvrah

Задаем в свойстве DataSource1

DataSet

SQLQuery1

Задаем в свойстве SQLQuery2

Database

IBConnection1

Transaction

SQLTransaction1

DataSource

DataSource1

SQL

select * from pacient

InsertSQL

insert into pacient

(FIOpacient, pegnom, adres, dt, nompol)

values

(:FIOpacient, :pegnom, :adres, :dt, :nompol)

DeleteSQL

delete from pacient

where IDpacient=:IDpacient

UpdateSQL

update pacient set

IDpacient=:IDpacient,

FIOpacient=:FIOpacient,

pegnom=:pegnom,

adres=:adres,

dt=:dt,

nompol=:nompol

where IDpacient=:OLD_IDpacient

Задаем в свойстве DataSource1

DataSet

SQLQuery2

Оставшиеся SQLQuery и DataSource делаются аналогичным образом.

3.2 Создания событий

Задаем событие OnCreate в модуле данных DataModule1

procedure TDataModule1.DataModuleCreate(Sender: TObject);

begin

IBConnection1.Open;

end;

Задаем событие AfterConnect в компоненте IBConnection1

procedure TDataModule1.IBConnection1AfterConnect(Sender: TObject);

begin

SQLQuery1.Open;

SQLQuery2.Open;

SQLQuery3.Open;

SQLQuery4.Open;

SQLQuery5.Open;

SQLQuery6.Open;

end;

Задаем событие AfterOpen в компоненте SQLQuery1

Procedure TDataModule1.SQLQuery1AfterOpen (Sender:TDataSet);

Begin

SQLQuery2.Open;

End;

Задаем событие BeforeDisconnect в компоненте IBConnection1

procedure TDataModule1.IBConnection1BeforeDisconnect(Sender: TObject);

begin

SQLQuery1.Close;

SQLQuery2.Close;

SQLQuery3.Close;

SQLQuery4.Close;

SQLQuery5.Close;

SQLQuery6.Close;

end;

Задаем событие BeforeClose, общее для компонентов SQLQuery1и SQLQuery2

procedure TDataModule1.SQLQuery1BeforeClose(DataSet: TDataSet);

begin

if TSQLQuery(Dataset).State in [dsInsert,dsEdit]

then TSQLQuery(Dataset).Post;

end;

Задаем событие OnClose формы в Form1

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);

begin

DataModule1.SQLTransaction1.Commit;

DataModule1.IBConnection1.Close;

end;

Задаем событие OnNewRecord в компонента SQLQuery1

procedure TDataModule1.SQLQuery1NewRecord(DataSet: TDataSet);

begin

SQLQuery1.FieldByName('IDvrah').AsInteger:=0;

end;

Задаем событие OnNewRecord в компонента SQLQuery2

procedure TDataModule1.SQLQuery2NewRecord(DataSet: TDataSet);

begin

SQLQuery2.FieldByName('IDpacient').AsInteger:=0;

end;

Задаем событие After Post в компоненте SQLQuery1

procedure TDataModule1.SQLQuery1AfterPost(DataSet: TDataSet);

begin

TSQLQuery(Dataset).ApplyUpdates;

end;

Оставшиеся SQLQuery делаются аналогичным образом.

3.3 Добавление компонентов на Form1

Добавим со вкладки Standard на форму два компонента TPanel. Добавим со вкладки Data Controls на TPanel четыре TDBGrid. Добавим со вкладке Data Controls четыре компонента TDBNavigator (как показана на рисунке 4). триггер генератор клиника lazarus

Задаем свойство для Panel1 и Panel2

Align

alTop

Height

224

Задаем свойство для DBNavigator1 и DBNavigator2

DataSource

DataModule1.DataSource1 (DataModule1.DataSource2)

Задаем свойство для DBGrid1 и DBGrid2

DataSource

DataModule1.DataSource1 (DataModule1.DataSource2)

Оставшиеся DBNavigator и DBGrid задаются аналогичный образом.

Рисунок 4 - Размещение компонентов на Form1

4. Руководство пользователя

Рисунок 5 - приложение в Lazarus

На рисунке 5 представлено приложение созданное в Lazarus.

В таблицу Врач добавим название ФИО врача и специалдизацию, например Сидоров Иван Василеевич специализация Хирург.

Рисунок 6 - Таблица Врачи

В таблицу Пациент добавим Ф.И.О пациента, рег. номер, Адрес дату рождения и Номер полиса, например:

Иваннов Иван Иванович, 1, Кирова 10, 01.01.12, 2;

Петрова Светлана Ировна, 2, Дружбы 1, 15.11.99, 54;

Рисунок 7 - Таблица Пациенты

Заключение

В ходе работы была создана информационная система "Клиника". Выполнены задачи: создано 3НФ, создано БД "статистика матчей" в программе IBExpert, создано приложение в Lazarus.

Список использованных источников

1. Агальцов, П.В Базы данных: [Текст] учебное пособие / П.В Агальцов - М.: Мир 2002. - 376 с.

2. Дейт, К. Введение в системы баз данных [Текст]: учебное пособие / К. Дейт. - 8-е издание - «Вильямс», 2006.

3. Диго, С. М. Базы данных. Проектирование и создание: [Текст] учебно-методический комплекс / С. М. Диго - М.: Изд. Центр ЕАОИ. 2008. - 171 с.

4. Кaрповa, Т. С. Базы данных. Модели, рaзрaботкa, реaлизaция: [Текст] учебное пособие / Т. С. Кaрповa - СПб.: Питер,2002. - 304 с.

Дополнительные ссылки:

1.http://ed.tusur.ru/data/umpo/011.pdf

Размещено на Allbest.ru

...

Подобные документы

  • Характеристика версионной архитектуры, требований к аппаратному обеспечению, версий, лицензирования кроссплатформенной системы управления базами данных Firebird. Рассмотрение особенностей создания таблиц, триггеров, генераторов, хранимых процедур.

    курсовая работа [1,4 M], добавлен 14.03.2010

  • Исследование особенностей иерархической, сетевой и реляционной баз данных. Изучение заполнения таблиц текстовой информацией, разработка меню приложения. Характеристика создания справки, отчётов, запросов и форм. Определение связей и целостности данных.

    курсовая работа [2,8 M], добавлен 11.06.2012

  • Проектирование системы управления базой данных "Почтовые отделения" для создания единой информационной системы: создание таблиц для хранения данных, ввод данных, разработка элементов базы, предназначенных для просмотра, редактирования и вывода информации.

    курсовая работа [1,4 M], добавлен 31.03.2010

  • Разработка базы данных "Доставка товара" в среде MS Access, ее структуры, объектов (таблиц, запросов, форм, отчетов, макросов). Анализ предметной области базы данных, описание ее схемы, полей таблиц, разработанных объектов. Требования к работе приложения.

    контрольная работа [2,6 M], добавлен 07.08.2013

  • Анализ предметной области. Средства и технологии разработки программного обеспечения. Требования к аппаратным и операционным ресурсам. Создание навигационного меню. Структура данных таблиц. Разработка интерфейса модуля. Сортировка и фильтрация данных.

    дипломная работа [3,7 M], добавлен 12.05.2018

  • Технологии создания web-страниц. Появление Active Server Pages. Разработка динамического web-сайта на asp.net. Создание дизайна и каркаса сайта с использованием стандартных HTML таблиц. Проектирование базы данных на основе ado.net и подключение к ней.

    контрольная работа [2,4 M], добавлен 24.05.2019

  • Создание моделей данных, основных таблиц с помощью конструктора таблиц, связей между таблицами, форм для заполнения таблиц, запросов на выборку данных, отчетов для вывода на печать и начальной кнопочной формы. Основные объекты Microsoft Access.

    контрольная работа [4,5 M], добавлен 18.03.2012

  • Описание технологии создания таблиц в режиме "Конструктор" в программной среде Microsoft Access. Сортировка и фильтрация данных в таблицах, создание полей с подстановкой. Пример структуры многотабличного запроса и пример создания итогового запроса.

    лабораторная работа [1,6 M], добавлен 17.02.2013

  • Рассмотрение теоретических основ проектирования. Анализ предметной области и разработка таблиц базы данных. Заполнение таблиц, поиск данных с помощью фильтра. Создание форм, разработка запросов. Создание и настройка отчетов, составление приложения.

    курсовая работа [2,8 M], добавлен 01.06.2014

  • Создание таблиц базы данных с помощью MS Access "Страны Азии". Форма базы данных и запросы к выборкам данных. Модификация структуры таблиц, создания связей между главными таблицами, редактирование данных и проектирование форм для реальной базы данных.

    контрольная работа [723,9 K], добавлен 25.11.2012

  • Анализ информационных потоков. Разработка структуры таблиц базы данных. Выбор CASE-средства для проектирования информационной системы и среды программирования. Разработка программных модулей (программного обеспечения). Подготовка справочных баз данных.

    дипломная работа [6,8 M], добавлен 19.11.2013

  • Понятие экономической информационной системы. Функциональные особенности и классификационные признаки. Электронный архив как ядро информационной системы и централизованное хранилище документов. Способы создания таблиц, форм и диаграмм базы данных.

    контрольная работа [2,4 M], добавлен 14.07.2009

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

    курсовая работа [1,1 M], добавлен 11.09.2010

  • Проектирование баз данных, реализация ее серверной части, методика создания таблиц, различных триггеров, хранимых процедур, клиентского приложения. Процедура поиска данных, фильтрации данных, вывода отчета, ввода SQL запросов и вывода хранимых процедур.

    контрольная работа [50,1 K], добавлен 30.10.2009

  • Разработка базы данных для информационной системы "Библиотека". Системный анализ, инфологическое, даталогическое и физическое проектирование. Программирование бизнес-логики, разработка клиентского приложения. Создание web-приложения, web-доступ.

    курсовая работа [3,3 M], добавлен 15.09.2014

  • Этапы создания программы для учета рождаемости детей. Разработка базы из основной таблицы с оперативными данными и четырех таблиц-справочников с наименованиями кодов. Создание форм для заполнения таблиц и просмотра запросов с русифицированными кнопками.

    практическая работа [1,6 M], добавлен 13.07.2010

  • Система управления базами данных как программное обеспечение, с помощью которого пользователи могут определять, создавать и поддерживать базу данных, осуществлять к ней контролируемый доступ. Методика ее создания в программе IBExpert, функциональность.

    курсовая работа [1004,6 K], добавлен 11.11.2014

  • Средства создания и форматирования электронных таблиц MS Excel. Условное форматирование с использованием инструмента. Анализ функции Excel следующих категорий: математические, статистические, условные, ссылки и массивы. Механизм создания сводных таблиц.

    контрольная работа [480,4 K], добавлен 02.02.2015

  • Разработка логической и физической моделей базы данных предприятия и описание атрибутов. Порядок создания справочников и реквизитов базы данных на основе программы "1С:Предприятие 8.2", назначение связей таблиц. Пример сгенерированных SQL-кодов.

    курсовая работа [2,7 M], добавлен 02.12.2015

  • Исследование процесса создания и заполнения вспомогательных и основных таблиц в Microsoft Office Access. Характеристика построения схемы данных, создания формы и отчета. Описания изменения ширины граф, сортировки записей, работы в режиме конструктора.

    контрольная работа [1,0 M], добавлен 19.12.2011

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.