Автоматизированная информационная система учета пациентов отделений в психо-неврологическом диспансере

Автор работы: Пользователь скрыл имя, 01 Декабря 2011 в 01:50, дипломная работа

Описание

В данной работе делается попытка спроектировать автоматизированную информационную систему учета пациентов отделений в ПНД. Разработанная система повысит оперативность получения информации о пациентах, результатах его лечения. Хранение этой информации в памяти ЭВМ придаст ей принципиально новое качество динамичности. Система должна находится в состоянии непрерывного обновления, отражая все изменения результатов лечения пациентов. Устройства автоматической печати должны позволить в случае необходимости быстро представить любую выборку из этой информации в форме представления на бумаге.

Содержание

Введение………………………………………………………………………….... 5
1 Системный анализ предметной области…………………………………….….7
2 Проектирование БД……………………………………………………………...12
2.1 Проектирование с использованием ER - метода……………………….…14
2.1.1 Определение сущностей и связей между ними………………….….14
2.1.2 Определение исходных и ролевых сущностей……………………...15
2.1.3 Построение ER - диаграмм…………………………………………...15
2.1.4 Построение набора предварительных отношений……………….…30
2.1.5 Распределение оставшихся атрибутов по полученным
отношениям………………………………………………………………………...32
2.1.6 Проверка нахождения полученных отношений в НФБК…………..35
2.2 Проверка отношений на завершающей фазе проектирования…………...37
3 Выбор СУБД……………………………………………………………………..38
4 Разработка алгоритмического и программного обеспечения АИС…………..40
4.1 Алгоритм функционирования информационной системы……………….40
4.2 Инструкция пользователя…………………………………………………..46
4.2.1 Запуск программы…………………………………………………….46
4.2.2 Работа со справочниками……………………………………………46
4.2.3 Работа с пациентами…………………………………………………48
4.2.4 Создание и редактирование медицинской карты…………………..51
4.2.5 Создание остальной документации………………………………….54
4.2.6 Работа с документацией……………………………………………..58
4.2.7 Вывод отчетов………………………………………………………..64
4.2.8 О справке……………………………………………………………...70
4.2.9 Завершение работы……………………………………………………71
5 Безопасность жизнедеятельности………………………………………………72
5.1 Анализ условий труда………………………………………………………72
5.2 Требования безопасности, эргономики и технической
эстетики к рабочему месту программиста……………………………………….74
5.3 Разработка защитных мероприятий на рабочем
месте программиста…………………………………………………………….83
5.4. Расчет естественного освещения………………………………………….88
5.5 Расчет искусственного освещения…………………………………………89
5.6 Безопасность жизнедеятельности в чрезвычайных ситуациях…………..91
5.6.1 Рекомендуемые нормы пожарной безопасности……………………92
5.6.2 Меры по индивидуальной защите оператора……………………….92
5.7 Вывод………………………………………………………………………...93
6 Экономический раздел…………………………………………………………..94
6.1 Расчет необходимых капитальных вложений……………………94
6.1.1 Расчет затрат на разработку АИС…………………………..94
6.1.2 Капитальные вложения по базовому варианту …………..95
6.2 Расчет текущих эксплуатационных затрат………………………95
6.2.1 Расчет затрат по базовому варианту………………………...96
6.2.2 Расчет затрат по проектному варианту……………………..96
6.3 Расчет показателей экономической эффективности……………………..97
6.4 Вывод……………………………………………………………………….100
Заключение………………………………………………………………………..101
Список использованных источников……

Скачать (506.46 Кб) Сколько стоит заказать работу?

Работа состоит из 1 файл

диплом-Альбина.doc

— 930.50 Кб (Скачать документ)

y"> Set db = CurrentDb

Set rsMK = db.OpenRecordset("Отчет_Шифр")

Set rsDia = db.OpenRecordset("ДляДиаграммы")

Set rsBuf = db.OpenRecordset("Буфер")

DoCmd.OpenQuery ("ДляДиаграммы_Уд")

For i = 0 To 9

rsMK.MoveFirst

rsDia.AddNew

rsDia!Шифр = i

rsDia!Январь = 0

rsDia!Февраль = 0

rsDia!Март = 0

rsDia.Update

rsDia.MoveLast

rsDia.Edit

Do Until rsMK.EOF = True

If Mid(rsMK!Шифр2, 2, 1) = CStr(i) Then

If Month(rsMK!Дата) = 1 And CStr(Year(rsMK!Дата)) = "20" & rsBuf!Год Then rsDia!Январь = rsDia!Январь + 1

If Month(rsMK!Дата) = 2 And CStr(Year(rsMK!Дата)) = "20" & rsBuf!Год Then rsDia!Февраль = rsDia!Февраль + 1

If Month(rsMK!Дата) = 3 And CStr(Year(rsMK!Дата)) = "20" & rsBuf!Год Then rsDia!Март = rsDia!Март + 1

End If

rsMK.MoveNext

Loop

rsDia.Update

Next i

DoCmd.OpenReport "Диаграмма12", acViewPreview

End Sub

_______________________________________________________________________

Public Sub Диагр3()

Set db = CurrentDb

Set rsMK = db.OpenRecordset("Отчет_Шифр")

Set rsDia = db.OpenRecordset("ДляДиаграммы")

Set rsBuf = db.OpenRecordset("Буфер")

DoCmd.OpenQuery ("ДляДиаграммы_Уд")

For i = 0 To 9

rsMK.MoveFirst

rsDia.AddNew

rsDia!Шифр = i

rsDia!Апрель = 0

rsDia!Май = 0

rsDia!Июнь = 0

rsDia.Update

rsDia.MoveLast

rsDia.Edit

Do Until rsMK.EOF = True

If Mid(rsMK!Шифр2, 2, 1) = CStr(i) Then

If Month(rsMK!Дата) = 4 And CStr(Year(rsMK!Дата)) = "20" & rsBuf!Год Then rsDia!Апрель = rsDia!Апрель + 1

If Month(rsMK!Дата) = 5 And CStr(Year(rsMK!Дата)) = "20" & rsBuf!Год Then rsDia!Май = rsDia!Май + 1

If Month(rsMK!Дата) = 6 And CStr(Year(rsMK!Дата)) = "20" & rsBuf!Год Then rsDia!Июнь = rsDia!Июнь + 1

End If

rsMK.MoveNext

Loop

rsDia.Update

Next i

DoCmd.OpenReport "Диаграмма12А", acViewPreview

End Sub

_______________________________________________________________________

Public Sub Диагр4()

Set db = CurrentDb

Set rsMK = db.OpenRecordset("Отчет_Шифр")

Set rsDia = db.OpenRecordset("ДляДиаграммы")

Set rsBuf = db.OpenRecordset("Буфер")

DoCmd.OpenQuery ("ДляДиаграммы_Уд")

For i = 0 To 9

rsMK.MoveFirst

rsDia.AddNew

rsDia!Шифр = i

rsDia!Июль = 0

rsDia!Август = 0

rsDia!Сентябрь = 0

rsDia.Update

rsDia.MoveLast

rsDia.Edit

Do Until rsMK.EOF = True

If Mid(rsMK!Шифр2, 2, 1) = CStr(i) Then

If Month(rsMK!Дата) = 7 And CStr(Year(rsMK!Дата)) = "20" & rsBuf!Год Then rsDia!Июль = rsDia!Июль + 1

If Month(rsMK!Дата) = 8 And CStr(Year(rsMK!Дата)) = "20" & rsBuf!Год Then rsDia!Август = rsDia!Август + 1

If Month(rsMK!Дата) = 9 And CStr(Year(rsMK!Дата)) = "20" & rsBuf!Год Then rsDia!Сентябрь = rsDia!Сентябрь + 1

End If

rsMK.MoveNext

Loop

rsDia.Update

Next i

DoCmd.OpenReport "Диаграмма12Б", acViewPreview

End Sub

_______________________________________________________________________

Public Sub Диагр5()

Set db = CurrentDb

Set rsMK = db.OpenRecordset("Отчет_Шифр")

Set rsDia = db.OpenRecordset("ДляДиаграммы")

Set rsBuf = db.OpenRecordset("Буфер")

DoCmd.OpenQuery ("ДляДиаграммы_Уд")

For i = 0 To 9

rsMK.MoveFirst

rsDia.AddNew

rsDia!Шифр = i

rsDia!Октябрь = 0

rsDia!Ноябрь = 0

rsDia!Декабрь = 0

rsDia.Update

rsDia.MoveLast

rsDia.Edit

Do Until rsMK.EOF = True

If Mid(rsMK!Шифр2, 2, 1) = CStr(i) Then

If Month(rsMK!Дата) = 10 And CStr(Year(rsMK!Дата)) = "20" & rsBuf!Год Then rsDia!Апрель = rsDia!Апрель + 1

If Month(rsMK!Дата) = 11 And CStr(Year(rsMK!Дата)) = "20" & rsBuf!Год Then rsDia!Май = rsDia!Май + 1

If Month(rsMK!Дата) = 12 And CStr(Year(rsMK!Дата)) = "20" & rsBuf!Год Then rsDia!Июнь = rsDia!Июнь + 1

End If

rsMK.MoveNext

Loop

rsDia.Update

Next i

DoCmd.OpenReport "Диаграмма12В", acViewPreview

End Sub

Информация о работе Автоматизированная информационная система учета пациентов отделений в психо-неврологическом диспансере