Создание информационной системы "Клиника"
Ознакомление с процессом создания таблиц с использованием триггеров и генераторов. Разработка приложения в 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 |
writeread_committedrec_versionnowait |
Установим свойство 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 vrahwhere IDvrah=:IDvrah |
|
UpdateSQL |
update vrah setIDvrah=:IDvrah,FIOvrah=:FIOvrah,spec=:specwhere 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 pacientwhere IDpacient=:IDpacient |
|
UpdateSQL |
update pacient setIDpacient=:IDpacient,FIOpacient=:FIOpacient,pegnom=:pegnom,adres=:adres,dt=:dt,nompol=:nompolwhere 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