Главная База знаний "Allbest" Программирование, компьютеры и кибернетика Разработка информационной системы "Клиника"

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

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

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

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

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

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

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

Введение

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

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

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

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

Задачи:

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

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

Задаем свойство для 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.

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


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

  • Базы данных и системы управления базами данных

    Понятие, состав информационной системы. Управление целостностью БД. Обеспечение системы безопасности. Блокировка неверных действий приложений-клиентов. Тенденции в мире систем управления базами данных. Основные функции, классификация и механизмы доступа.

    курсовая работа [205,0 K], добавлен 11.12.2014

  • Система управления базами данных MS Access

    Хранение и обработка данных. Компоненты системы баз данных. Физическая структура данных. Создание таблиц в MS Access. Загрузка данных, запросы к базе данных. Разработка информационной системы с применением системы управления базами данных MS Access.

    курсовая работа [694,0 K], добавлен 17.12.2016

  • Разработка приложения для работы с базой данных

    Классификация баз данных. Выбор системы управления базами данных для создания базы данных в сети. Быстрый доступ и получение конкретной информации по функциям. Распределение функций при работе с базой данных. Основные особенности иерархической модели.

    отчет по практике [1,2 M], добавлен 08.10.2014

  • Компьютерные данные: типы данных, обработка и управление

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

    реферат [122,5 K], добавлен 11.01.2010

  • Базы данных и СУБД

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

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

  • Системы управления базами данных

    Система управления базами данных как составная часть автоматизированного банка данных. Структура и функции системы управления базами данных. Классификация СУБД по способу доступа к базе данных. Язык SQL в системах управления базами данных, СУБД Microsoft.

    реферат [46,4 K], добавлен 01.11.2009

  • Система управления базами данных

    Базы данных как составная часть информационных систем. Изучение взаимосвязи понятий информация и данные. Система управления базами данных. Пример структурированных данных. Обеспечение логической независимости. Безопасность операционной системы.

    контрольная работа [44,6 K], добавлен 15.06.2009

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

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

    курсовая работа [727,5 K], добавлен 02.02.2014

  • Базы и банки данных

    Понятие базы данных, их цели и задачи, требования к БД; система управления базами данных. Файловые системы: именование и структуры файлов, программное обеспечение. Уровни абстракции в СУБД, функции абстрактных данных. Экспертные системы и базы знаний.

    презентация [301,6 K], добавлен 17.04.2013

  • Система управления базами данных Access

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

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

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

© 2000 — 2023, ООО «Олбест» Все права защищены