Разработка программного обеспечения для Отделения Реанимации и Интенсивной Терапии новорожденных МГБ N1 г. Сургута

Министерство общего и профессионального образования РФ Сургутский государственный университетФакультет информационных технологийКафедра информатики и вычислительной техники Дипломная работа На тему Разработка программного обеспечения для Отделения Реанимации и Интенсивной Терапии Новорожденных при Муниципальной Городской Больнице 1 города Сургута Выполнил Юрий В. Гудонис Руководитель Челноков С. Б. Рецензент Шепелев А.С. Сургут 1998г. Содержание Введение 4 Постановка задачи 5 Основы современных баз данных 1. Базы данных и файловые системы 1. Файловые системы 1. Структуры файлов 2. Именование файлов 3. Защита файлов 13 1.1.4. Режим многопользовательского доступа 2. Области применения файлов 3. Потребности информационных систем 2. Функции СУБД. Типовая организация СУБД. Примеры 1. Основные функции СУБД 1. Непосредственное управление данными во внешней памяти 2. Управление буферами оперативной памяти 3. Управление транзакциями 23 2.1.4. Журнализация 5. Поддержка языков БД 2. Типовая организация современной СУБД 3. Ранние подходы к организации БД. Системы, основанные на инвертированных списках, иерархические и сетевые СУБД. Примеры.

Сильные места и недостатки ранних систем 1. Основные особенности систем, основанных на инвертированных списках 33 3.1.1. Структуры данных 2. Манипулирование данными 3. Ограничения целостности 2. Иерархические системы 1. Иерархические структуры данных 2. Манипулирование данными 3. Ограничения целостности 3. Сетевые системы 1. Сетевые структуры данных 2. Манипулирование данными 40 3.3.3. Ограничения целостности 4. Достоинства и недостатки 41 Теоретические основы 4. Общие понятия реляционного подхода к организации БД. Основные концепции и термины 1. Базовые понятия реляционных баз данных 44 4.1.1. Тип данных 2. Домен 3. Схема отношения, схема базы данных 4. Кортеж, отношение 5. Методы использованные для решения задачи. 6. Открытая архитектура Delphi 7. Полученные результаты 8. Модуль Администратор программы ОРИТН в порядке 9. Заключение 10. Литература 12. Приложение 1 Задание на дипломное проектирование 13. Приложение 2 Исходные тексты программы Модуль Администратор программы ОРИТН в порядке 65 Введение Отделение Реанимации Новорожденных уже в течение семи лет занимается спасением жизней еще не познавших самой жизни младенцев.

Демографическая ситуация нашего региона достаточно благополучная.

Рождаемость год от года не только не падает но еще и растет, но тяжелые условия крайнего севера и постоянно ухудшающиеся условия окружающей среды вносят свои коррективы в полноценность подростающего поколения.

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

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

Сургутское отделение ОРИТН на сегодняшний день является лучшим по России, что позволило принять его столицей в данной области медицины.

По этому на отделение возложена обязанность по стандартизации исходных данных и отчетов. С 1996 года в Сургуте функционирует окружной учебно-консультативный центр на базе отделения ОРИТН МГБ 1. Основной задачей центра является повышение квалификации врачей и консультативно-методическая помощь. Создание на основе сети Интернет статистического сервера в городе Сургуте на который будет стекаться информация со всего региона, позволит центру практически молниеносно разрешить любую проблему, с которой к нему обращаются врачи всего региона. За основу данной системы будет взята модель АСУ построенная нами в ходе дипломного проектирования.

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

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

Разработка модели АСУ ОРИТН. Реализация модели АСУ ОРИТН на языке Delphi корпорации Inprise. Внедрение программного продукта. Основы современных баз данных

Базы данных и файловые системы

Базы данных и файловые системы. Рассмотрим общий смысл понятий БД и СУБД. Становление этого направления способствовало интенсификации методов чи... Такой режим работы не позволяет или очень затрудняет поддержание на од... Первая развитая файловая система была разработана фирмой IBM для ее се...

Структуры файлов

Заметим, что тем не менее скрытым от пользователя, но существующим во ... Каждый каталог содержит имена каталогов и или файлов, содержащихся в д... . Распространены два основных подхода. Таким образом, для произведения обмена с магнитным диском на уровне ап...

Защита файлов

Защита файлов. Поскольку файловые системы являются общим хранилищем файлов, принадлеж... В общем виде подход состоит в том, что по отношению к каждому зарегист... В этой системе каждому зарегистрированному пользователю соответствует ... 1.1.4.

Режим многопользовательского доступа

Последнее, на чем мы остановимся в связи с файлами это способы их испо... Для этого введен специальный механизм синхронизационных захватов диапа... . В операции открытия файла первой и обязательной операции, с которой до... Исторически в файловых системах применялся следующий подход.

Области применения файлов

После этого краткого экскурса в историю файловых систем рассмотрим воз... Структура текстовых файлов обычно очень проста это либо последовательн... Система программирования накладывает на эту структуру более сложную и ... В перечисленных выше случаях использования файлов это даже хорошо, пот... 1.3.

Потребности информационных систем

Но поскольку информационные системы требуют сложных структур данных, э... Очень скоро стало понятно, что невозможно обойтись общей библиотекой п... При этом существуют приложения, для которых вполне достаточно файлов п... Если опираться только на использование файлов, то для обеспечения корр... Фактически, если информационная система даже такая простая, как в наше...

Функции СУБД. Типовая организация СУБД. Примеры

Типовая организация СУБД. Мы выявили несколько потребностей, которые не покрываются возможностям... . 2.1. Примеры.

Непосредственное управление данными во внешней памяти

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

Поддержка языков БД

Для работы с базами данных используются специальные языки, в целом наз... операторов, позволяющих заносить данные в БД, удалять, модифицировать ... Стандартным языком наиболее распространенных в настоящее время реляцио... функции, поддерживаемые при реализации интерфейса SQL . 2.2.

Типовая организация современной СУБД

b. Интерактивный доступ к БД поддерживался только путем создания соответс... 3.1. Сетевая БД состоит из набора записей и набора связей между этими запис... Основные концепции и термины На этой лекции мы введем на сравнительно ...

приложения. На оконечных точках ветвей иерархии VCL находятся как таковые компоненты - готовые к визуальному использованию классы, непосредственно регистрируемые в рабочей библиотеке компонент и доступные из Палитры Компонент Components Palette IDE Delphi.

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

С другой стороны, механизмы регистрации и дальнейшего наследования уже существующих стандартов динамического связывания Windows DLL и компонентной архитектуры VBX в Delphi 1.0 и OCX - в 32- разрядной версии Delphi позволяют использовать в Delphi доступные внешние инструменты например, компиляторы C и, созданные с их помощью, программные блоки.

Самодостаточность Delphi для расширения набора доступных компонент является первым признаком открытости архитектуры этого инструмента. Редакторы свойств и редакторы компонент - поведение IDE Логично, что при визуальном подходе к определению характеристик компонент работа в design- time, необходимы средства определения редакторов специфических свойств в Инспекторе Объектов Object Inspector. Рис. 1 Особенно остро встает для разработчиков компонент вопрос создания и использования редакторов свойств, когда свойства имеют сложный тип. Например, свойство может предоставлять ссылку на достаточно сложную структуру - запись или на строго определенных наследников одного из стандартных или пользовательских классов возможные ситуации 1 класс множество данных TDataSet - является предком и таблиц, и запросов, и хранимых процедур можно сформулировать такую задачу, когда в качестве значения свойства в design-time должны выступать только запросы и таблицы, но, ни в коем случае - хранимые процедуры 2 шрифт описывается рядом характеристик, представляемых вложенными записями. Delphi предоставляет разработчику ряд базовых классов, входящих в иерархию VCL, которые предназначены для создания редакторов свойств.

Рис. 2 Стандартные редакторы свойств более 20 являются наследниками базовых редакторов и, вместе с последними, доступны программисту для расширения изменения функциональности, опять-таки, с использованием механизмов наследования и полиморфизма.

Регистрация редакторов свойств и регистрации компонент аналогична регистрации самих компонент.

Так как редакторы свойств и редакторы компонент определяют design-time, существование таких редакторов и возможность расширения их функциональности являются вторым признаком открытости Delphi.

Рис. 3 Генерация кода - эксперты В процессе развития и, в том числе, визуализации средств разработки приложений, на фоне стандартизации пользовательского интерфейса в различных областях применения конечных систем, неотъемлемой частью таких инструментов стали генераторы кода и форм представления и ввода информации - эксперты. Кроме того, что Delphi включает ряд уже готовых к использованию экспертов например, DataBase Form Expert, генерирующий формы и соответствующий код для простых приложений обработки баз данных с использованием запросов, эта среда программирования предоставляет разработчикам интерфейс для создания собственных экспертов, встраиваемых в IDE. Необходимо отметить, что функциональность таких экспертов может не ограничиваться на генерации кода, в силу того, что интерфейс экспертов дает возможность получения информации о внутренних объектах IDE, таких как палитра компонент.

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

На приведенном выше рисунке вы можете увидеть эксперт, разработанный в Delphi и встроенный в IDE функциональность этого эксперта заключается в предоставлении разработчику информации об иерархии наследования зарегистрированных компонент без компиляции в данном случае доступ осуществляется через меню Help, хотя возможна регистрация и в галерее шаблонов Delphi. Рис. 4 Наличие средств построения программных модулей генерации кода и обработки внутренней IDE- информации, называемых экспертами, являются третьим признаком открытости архитектуры Delphi.

Интеграция с внешними приложениями - открытые интерфейсы Как следствие возможности обмена информацией с IDE, реальным кажется и интеграция среды разработки Delphi с внешними инструментальными средствами - системами контроля версий, мониторами транзакций, CASE-системами и т.п. Рис. 5 И действительно, ряд производителей программных продуктов, относящихся к перечисленным категориям, заявил о поддержке ими Delphi на достаточно высоком уровне интеграции подразумевая, например, для CASE-систем, не только генерацию кода в соответствии с синтаксисом Object Pascal, но и доступ к таким продуктам непосредственно из IDE . В качестве примера можно привести компанию Popkin Software производителя CASE-средства System Architect, объявившую о поддержки Delphi в своих продуктах еще в августе 1995 года. Известен ряд систем контроля версий - Intersolv PVCS и MKS Source Integrity, способных работать с Delphi 32-разрядная версия PVCS входит в поставку Delphi Client Server Suite 2.0, и, например, мониторов транзакций существует опыт взаимодействия с Novell Tuxedo и др Описанные возможности интеграции с внешними приложениями на базе совокупности открытых интерфейсов, определяют четвертый признак открытости архитектуры Delphi.

Delphi - оптимальный инструмент разработчика БД. Наконец, мы можем концептуально представить архитектуру открытых интерфейсов Delphi.

Она приведена на следующей диаграмме Рис. 6 Вследствие такой открытости архитектуры Delphi, большое количество третьих компаний уже выбросило на рынок или объявило о соответствующих планах как различные расширения библиотеки компонент VCL более 200 только коммерческих наборов компонент на октябрь 1995г. так и средства интеграции своих продуктов external-site interface. Получение результатов.

Дипломный проект был условно разбит на четыре этапа. 1 Анализ существующей структуры отделения.

Анализ работы отделения. 2 Разработка модели АСУ ОРИТН. 3 Описание АРМа ОРИТН в порядке . 4 Внедрение программного продукта. На первом этапе был проведен детальный анализ существующей структуры отделения путем опроса и анкетирования специалистов отделения, ознакомлением с документацией и существующими отчетными формами.

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

Дежурный врач в случае необходимости составляет пакет экстренных мероприятий. Контролирование выполнения данного пакета выполняется аналогично предыдущему.

Прекращение работы данных пакетов происходить после заполнения врачом формы о смерти или выписке. Полная история архивируется и остается в базе данных ОРИТН в порядке. АРМ ОРИТН в порядке реализован на языке Delphi. В программе реализованы 8 уровней доступа характеризованные разделением функций персонала по штатному расписанию. 1. Заведующий отделением. 2. Врач ординатор реаниматолог-неонатолог. 3. Старшая медицинская сестра. 4. Процедурная медицинская сестра. 5. Палатная медицинская сестра. 6. Сестра-хозяйка. 7. Санитарка палатная. 8. Санитарка автоклава.

У каждого работника персонала есть собственный уникальный пароль на доступ к программе. В начале каждых суток ОРИТН в порядке закрывает существующие сессии и предлагает новой смене зарегистрироваться. Затем происходит закрепление больных за врачами-ординаторами и медицинскими сестрами. Активизируются пакеты плановых мероприятий на рабочих местах врачей-ординаторов с возможностью корректировки и медицинских сестер.

Врач-ординатор анализирует данные за прошедшие сутки и вносит необходимые изменения в один из пакетов. Модуль Администратор программы ОРИТН в порядке Поскольку разграничение доступа не позволяет корректировать записи в базе данных, появилась необходимость в разработке. Данный модуль позволяет вносить коррективы в любой раздел БД. При загрузке модуль проверяет наличие прав доступа и в случае наличия полномочий загружает основное окно рис. 1п. Рис. 1п В наглядном виде представляются все данные, режим редактирования общепринятый и интуитивно понятный.

В виде закладок отображены поля БД, для осуществления операций ввода и удаления предусмотрены кнопочки. Ввод новой записи контролируется на уникальность. Рис. 2п На рис. 2п представлена одна из закладок персонал. Рис. 3п Суть данного модуля заключается в оперативной корректировке данных по всей базе ОРИТН, поскольку основной модуль исключает возможность удаления данных. Заключение. Модель автоматизации деятельности отделения РИТН МГБ 1 соответствует требованиям разработанным в ходе построения модели. Стандартизированы нами формы отчетности приняты за основу при дальнейшей разработке региональной базы данных по учету больных в данной области медицины.

Результатом проектирования стало написание статистической базы данных ОРИТН в порядке версии 1.0 и модуля администратора ОРИТН в порядке на языке Delphi 3.0. Проделанная работа одобрена руководством отделения РИТН, в лице зав. Отделением Челнокова С.Б. Литература 1. С.Д. Кузнецов Основы современных баз данных, http www.citforum.ru database osbd contents.shtml 2. К. Дейта, Введение в системы баз данных , Наука, 1980. 3. Руководство по реляционной СУБД DB2 , Финансы и статистика, 1988. 4. Дж. Ульман Основы систем баз данных , Финансы и статистика, 1983. 5. Материалы 6-й Ежегодной Конференции Разработчиков Borland. 6. Периодические издания 1998 год Delphi Informant, Delphi Developer, Microsoft System Journal, Dr. Dobb Journal, Компьютерр-Пресс и др. 7. WWW-серверы Borland, Miller Friman, Turbo Power, ProtoView, Popkin Software, InterSolv, AOL и др. 8. Delphi Developers Guide , S.Tiexeira X. Pacheco, SAMS Publishing Borland PRESS. 9. Каталоги программных продуктов Delphi Only Tools ZAC Catalog, Delphi Power Tools Informant Communications Group. Приложение 1 Задание на дипломное проектирование Студента специальности 05.13.16 Гудониса Юрия Владимировича Тема Разработка программного обеспечения для автоматизации работы ОРИТН. Целевая установка Разработка базы данных и интерфейса программы для данных на поступающего в отделение больного.

Исходные данные Паспортные данные т.е. Ф.И.О дата рождения, дата поступления, рост, вес, диагноз при поступлении и т.д. Начало проектирования 01.01.98 Конец проектирования 04.06.98 Содержание работы. 1. Исследование объекта проектирования. 2. Приведение в систему всей вводимой информации. 3. Реализация проекта Разработка интерфейса.

Разработка модуля администратора баз данных ОРИТН в порядке 4. Предварительное тестирование программы на месте. 5. Устранение ошибок и дополнение. 6. Окончательная установка программы.

Отчетный материал. 1. Пояснительная записка на листах. 2. Графики и схемы на листах.

Литература. 1. Delphi Developers Guide , S.Tiexeira X. Pacheco, SAMS Publishing Borland PRESS. 2. Дж. Ульмана Основы систем баз данных Финансы и статистика, 1983 . Подписи Задание получил студент Ю. В. Гудонис Руководитель проекта С. Б. Челноков Зав. Кафедрой В. А. Острейковский Приложение 2 Исходные тексты программы Модуль Администратор программы ОРИТН в порядке Main.pas unit Main interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, ComCtrls, StdCtrls, Buttons, ToolWin, Grids, DBGrids, DBCtrls type TFrmMain class TForm Panel1 TPanel ToolBar1 TToolBar BitBtn1 TBitBtn PageControl1 TPageControl TabSheet1 TTabSheet TabSheet2 TTabSheet TabSheet3 TTabSheet TabSheet4 TTabSheet TabSheet5 TTabSheet TabSheet6 TTabSheet TabSheet7 TTabSheet TabSheet8 TTabSheet TabSheet9 TTabSheet Panel2 TPanel DBGrid1 TDBGrid PageControl2 TPageControl TabSheet10 TTabSheet TabSheet11 TTabSheet TabSheet12 TTabSheet TabSheet13 TTabSheet DBMemo1 TDBMemo DBMemo2 TDBMemo DBMemo3 TDBMemo DBMemo4 TDBMemo DBGrid2 TDBGrid Panel3 TPanel DBNavigator1 TDBNavigator Panel4 TPanel DBNavigator2 TDBNavigator Panel5 TPanel Panel6 TPanel Panel7 TPanel Panel8 TPanel Panel9 TPanel Panel10 TPanel Panel11 TPanel Panel12 TPanel EditDS TEdit BitBtn2 TBitBtn BtnSAVE TBitBtn Panel13 TPanel DBNavigator3 TDBNavigator DBGrid3 TDBGrid BitBtn3 TBitBtn Panel14 TPanel Panel15 TPanel DBNavigator4 TDBNavigator DBGrid4 TDBGrid BitBtn4 TBitBtn BitBtn5 TBitBtn BtnSAVEENTER TBitBtn EditENTER TEdit Panel16 TPanel BitBtn6 TBitBtn BitBtn7 TBitBtn BtnSAVEENTER2 TBitBtn EditENTER2 TEdit Panel17 TPanel DBNavigator5 TDBNavigator DBGrid5 TDBGrid Panel18 TPanel BitBtn8 TBitBtn BitBtn9 TBitBtn BtnSAVEPERSONAL TBitBtn Panel19 TPanel DBNavigator6 TDBNavigator EditPERSONAL TEdit DBGrid6 TDBGrid Panel20 TPanel BitBtn10 TBitBtn BitBtn11 TBitBtn BtnSAVEPTYPE TBitBtn EditPTYPE TEdit Panel21 TPanel DBNavigator7 TDBNavigator DBGrid7 TDBGrid Panel22 TPanel BitBtn12 TBitBtn BitBtn13 TBitBtn BtnSAVESTREET TBitBtn EditSTREET TEdit Panel23 TPanel DBNavigator8 TDBNavigator DBGrid8 TDBGrid Panel24 TPanel BitBtn14 TBitBtn BitBtn15 TBitBtn BtnSAVEVILLAGE TBitBtn EditVILLAGE TEdit Panel25 TPanel DBNavigator9 TDBNavigator DBGrid9 TDBGrid procedure EditDSChange Sender TObject procedure BitBtn2Click Sender TObject procedure BtnSAVEClick Sender TObject procedure EditDSClick Sender TObject procedure BitBtn4Click Sender TObject procedure BitBtn3Click Sender TObject procedure BitBtn5Click Sender TObject procedure BtnSAVEENTERClick Sender TObject procedure EditENTERChange Sender TObject procedure EditENTERClick Sender TObject procedure BitBtn6Click Sender TObject procedure BitBtn7Click Sender TObject procedure BtnSAVEENTER2Click Sender TObject procedure EditENTER2Change Sender TObject procedure EditENTER2Click Sender TObject procedure BitBtn8Click Sender TObject procedure BitBtn9Click Sender TObject procedure BtnSAVEPERSONALClick Sender TObject procedure EditPERSONALChange Sender TObject procedure EditPERSONALKeyPress Sender TObject var Key Char procedure BitBtn10Click Sender TObject procedure BitBtn11Click Sender TObject procedure BtnSAVEPTYPEClick Sender TObject procedure EditPTYPEChange Sender TObject procedure EditPTYPEKeyPress Sender TObject var Key Char procedure BitBtn12Click Sender TObject procedure BitBtn13Click Sender TObject procedure BtnSAVESTREETClick Sender TObject procedure EditSTREETChange Sender TObject procedure EditSTREETKeyPress Sender TObject var Key Char procedure BitBtn14Click Sender TObject procedure BitBtn15Click Sender TObject procedure BtnSAVEVILLAGEClick Sender TObject procedure EditVILLAGEChange Sender TObject procedure EditVILLAGEKeyPress Sender TObject var Key Char private Private declarations public Public declarations end var FrmMain TFrmMain implementation uses AdminDM, DB R . DFM procedure TFrmMain. EditDSChange Sender TObject begin With DMAdmin do begin TblDS.Locate TITLE , EditDS.Text, loPartialKey if TblDSTITLE.Value EditDS.Text and EditDS.Text then BtnSAVE.Enabled True else BtnSAVE.Enabled False TblDS.Locate TITLE , EditDS.Text, loPartialKey end end procedure TFrmMain. BitBtn2Click Sender TObject begin EditDS.Enabled True EditDS.SetFocus end procedure TFrmMain. BtnSAVEClick Sender TObject begin DMAdmin. TblDS.Insert DMAdmin. TblDSCODE.Value DMAdmin. TblDS.RecordCount DMAdmin. TblDSTITLE.Value EditDS.Text DMAdmin. TblDS.Post DMAdmin. TblDS. Refresh EditDS.Text EditDS.Enabled False BtnSAVE.Enabled False end procedure TFrmMain. EditDSClick Sender TObject begin With DMAdmin do begin TblDS.Locate TITLE , EditDS.Text, loPartialKey if TblDSTITLE.Value EditDS.Text and EditDS.Text then BtnSAVE.Enabled True else BtnSAVE.Enabled False TblDS.Locate TITLE , EditDS.Text, loPartialKey end end procedure TFrmMain. BitBtn4Click Sender TObject begin EditENTER.Enabled True EditENTER.SetFocus end procedure TFrmMain. BitBtn3Click Sender TObject begin EditDS.Text EditDS.Enabled False BtnSAVE.Enabled False end procedure TFrmMain. BitBtn5Click Sender TObject begin EditENTER.Text EditENTER.Enabled False BtnSAVEENTER.Enabled False end procedure TFrmMain. BtnSAVEENTERClick Sender TObject begin DMAdmin. TblENTERA.Insert DMAdmin. TblENTERACODE.Value DMAdmin. TblENTERA.RecordCount DMAdmin. TblENTERATITLE.Value EditENTER.Text DMAdmin. TblENTERA.Post DMAdmin. TblENTERA.Refresh EditENTER.Text EditENTER.Enabled False BtnSAVEENTER.Enabled False end procedure TFrmMain. EditENTERChange Sender TObject begin With DMAdmin do begin TblENTERA.Locate TITLE , EditENTER.Text, loPartialKey if TblENTERATITLE. Value EditENTER.Text and EditENTER.Text then BtnSAVEENTER.Enabled True else BtnSAVEENTER.Enabled False TblENTERA.Locate TITLE , EditENTER.Text, loPartialKey end end procedure TFrmMain. EditENTERClick Sender TObject begin With DMAdmin do begin TblENTERA.Locate TITLE , EditENTER.Text, loPartialKey if TblENTERTITLE.Value EditENTER.Text and EditENTER.Text then BtnSAVEENTER.Enabled True else BtnSAVEENTER.Enabled False TblENTERA.Locate TITLE , EditENTER.Text, loPartialKey end end procedure TFrmMain. BitBtn6Click Sender TObject begin EditENTER2.Enabled True EditENTER2.SetFocus end procedure TFrmMain. BitBtn7Click Sender TObject begin EditENTER2.Text EditENTER2.Enabled False BtnSAVEENTER2.Enabled False end procedure TFrmMain. BtnSAVEENTER2Click Sender TObject begin DMAdmin. TblENTER2A.Insert DMAdmin. TblENTER2ACODE.Value DMAdmin. TblENTER2A.RecordCount DMAdmin. TblENTER2ATITLE.Value EditENTER2.Text DMAdmin. TblENTER2A.Post DMAdmin. TblENTER2A.Refresh EditENTER2.Text EditENTER2.Enabled False BtnSAVEENTER2.Enabled False end procedure TFrmMain. EditENTER2Change Sender TObject begin With DMAdmin do begin TblENTER2A.Locate TITLE , EditENTER2.Text, loPartialKey if TblENTER2ATITLE. Value EditENTER2.Text and EditENTER2.Text then BtnSAVEENTER2.Enabled True else BtnSAVEENTER2.Enabled False TblENTER2A.Locate TITLE , EditENTER2.Text, loPartialKey end end procedure TFrmMain. EditENTER2Click Sender TObject begin With DMAdmin do begin TblENTER2A.Locate TITLE , EditENTER2.Text, loPartialKey if TblENTER2TITLE.Value EditENTER2.Text and EditENTER2.Text then BtnSAVEENTER2.Enabled True else BtnSAVEENTER2.Enabled False TblENTER2A.Locate TITLE , EditENTER2.Text, loPartialKey end end procedure TFrmMain. BitBtn8Click Sender TObject begin EditPERSONAL.Enabled True EditPERSONAL.SetFocus end procedure TFrmMain. BitBtn9Click Sender TObject begin EditPERSONAL.Text EditPERSONAL.Enabled False BtnSAVEPERSONAL.Enabled False end procedure TFrmMain. BtnSAVEPERSONALClick Sender TObject begin DMAdmin. TblPERSONAL.Insert DMAdmin. TblPERSONALID.Value DMAdmin. TblPERSONAL.RecordCount 1 DMAdmin. TblPERSONALFIO. Value EditPERSONAL.Text DMAdmin. TblPERSONAL.Post DMAdmin. TblPERSONAL.Refresh EditPERSONAL.Text EditPERSONAL.Enabled False BtnSAVEPERSONAL.Enabled False end procedure TFrmMain. EditPERSONALChange Sender TObject begin With DMAdmin do begin TblPERSONAL.Locate FIO , EditPERSONAL. Text, loPartialKey if TblPERSONALFIO.Value EditPERSONAL.Text and EditPERSONAL.Text then BtnSAVEPERSONAL.Enabled True else BtnSAVEPERSONAL.Enabled False TblPERSONAL.Locate FIO , EditPERSONAL.Text, loPartialKey end end procedure TFrmMain. EditPERSONALKeyPress Sender TObject var Key Char begin With DMAdmin do begin TblPERSONAL.Locate FIO , EditPERSONAL.Text, loPartialKey if TblPERSONALFIO.Value EditPERSONAL.Text and EditPERSONAL.Text then BtnSAVEPERSONAL.Enabled True else BtnSAVEPERSONAL.Enabled False TblPERSONAL.Locate FIO , EditPERSONAL.Text, loPartialKey end end procedure TFrmMain. BitBtn10Click Sender TObject begin EditPTYPE.Enabled True EditPTYPE.SetFocus end procedure TFrmMain. BitBtn11Click Sender TObject begin EditPTYPE.Text EditPTYPE.Enabled False BtnSAVEPTYPE.Enabled False end procedure TFrmMain. BtnSAVEPTYPEClick Sender TObject begin DMAdmin. TblPTYPE.Insert DMAdmin. TblPTYPECODE.Value DMAdmin. TblPTYPE.RecordCount 1 DMAdmin. TblPTYPETITLE.Value EditPTYPE.Text DMAdmin. TblPTYPE.Post DMAdmin. TblPTYPE.Refresh EditPTYPE.Text EditPTYPE.Enabled False BtnSAVEPTYPE.Enabled False end procedure TFrmMain. EditPTYPEChange Sender TObject begin With DMAdmin do begin TblPTYPE.Locate TITLE , EditPTYPE.Text, loPartialKey if TblPTYPETITLE.Value EditPTYPE.Text and EditPTYPE.Text then BtnSAVEPTYPE.Enabled True else BtnSAVEPTYPE.Enabled False TblPTYPE.Locate TITLE , EditPTYPE.Text, loPartialKey end end procedure TFrmMain. EditPTYPEKeyPress Sender TObject var Key Char begin With DMAdmin do begin TblPTYPE.Locate TITLE , EditPTYPE.Text, loPartialKey if TblPTYPETITLE.Value EditPTYPE.Text and EditPTYPE.Text then BtnSAVEPTYPE.Enabled True else BtnSAVEPTYPE.Enabled False TblPTYPE.Locate TITLE , EditPTYPE.Text, loPartialKey end end procedure TFrmMain. BitBtn12Click Sender TObject begin EditSTREET.Enabled True EditSTREET.SetFocus end procedure TFrmMain. BitBtn13Click Sender TObject begin EditSTREET.Text EditSTREET.Enabled False BtnSAVESTREET.Enabled False end procedure TFrmMain. BtnSAVESTREETClick Sender TObject begin DMAdmin. TblSTREET.Insert DMAdmin. TblSTREETCODE.Value DMAdmin. TblSTREET.RecordCount 1 DMAdmin. TblSTREETTITLE.Value EditSTREET.Text DMAdmin. TblSTREET.Post DMAdmin. TblSTREET.Refresh EditSTREET.Text EditSTREET.Enabled False BtnSAVESTREET. Enabled False end procedure TFrmMain. EditSTREETChange Sender TObject begin With DMAdmin do begin TblSTREET.Locate TITLE , EditSTREET.Text, loPartialKey if TblSTREETTITLE.Value EditSTREET.Text and EditSTREET.Text then BtnSAVESTREET.Enabled True else BtnSAVESTREET.Enabled False TblSTREET. Locate TITLE , EditSTREET.Text, loPartialKey end end procedure TFrmMain. EditSTREETKeyPress Sender TObject var Key Char begin With DMAdmin do begin TblSTREET.Locate TITLE , EditSTREET.Text, loPartialKey if TblSTREETTITLE.Value EditSTREET.Text and EditSTREET.Text then BtnSAVESTREET. Enabled True else BtnSAVESTREET.Enabled False TblSTREET.Locate TITLE , EditSTREET.Text, loPartialKey end end procedure TFrmMain. BitBtn14Click Sender TObject begin EditVILLAGE.Enabled True EditVILLAGE.SetFocus end procedure TFrmMain. BitBtn15Click Sender TObject begin EditVILLAGE.Text EditVILLAGE.Enabled False BtnSAVEVILLAGE.Enabled False end procedure TFrmMain. BtnSAVEVILLAGEClick Sender TObject begin DMAdmin. TblVILLAGE.Insert DMAdmin. TblVILLAGECODE.Value DMAdmin. TblVILLAGE.RecordCount 1 DMAdmin. TblVILLAGETITLE.Value EditVILLAGE.Text DMAdmin. TblVILLAGE.Post DMAdmin. TblVILLAGE. Refresh EditVILLAGE.Text EditVILLAGE.Enabled False BtnSAVEVILLAGE.Enabled False end procedure TFrmMain. EditVILLAGEChange Sender TObject begin With DMAdmin do begin TblVILLAGE.Locate TITLE , EditVILLAGE.Text, loPartialKey if TblVILLAGETITLE.Value EditVILLAGE.Text and EditVILLAGE. Text then BtnSAVEVILLAGE.Enabled True else BtnSAVEVILLAGE.Enabled False TblVILLAGE.Locate TITLE , EditVILLAGE.Text, loPartialKey end end procedure TFrmMain. EditVILLAGEKeyPress Sender TObject var Key Char begin With DMAdmin do begin TblVILLAGE.Locate TITLE , EditVILLAGE.Text, loPartialKey if TblVILLAGETITLE.Value EditVILLAGE.Text and EditVILLAGE.Text then BtnSAVEVILLAGE.Enabled True else BtnSAVEVILLAGE.Enabled False TblVILLAGE.Locate TITLE , EditVILLAGE.Text, loPartialKey end end end. AdminDM.pas unit AdminDM interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Db, DBTables type TDMAdmin class TDataModule TblDATA TTable DatSrcDATA TDataSource TblYEARS TTable DatSrcYEARS TDataSource TblDATAYEARNUM TFloatField TblDATANN TFloatField TblDATAHISTORYNUM TFloatField TblDATAFIO TStringField TblDATABORNDATE TDateField TblDATABORNTIMEH TSmallintField TblDATABORNTIMEM TSmallintField TblDATAENTERDATE TDateField TblDATAENTERTIMEH TSmallintField TblDATAENTERTIMEM TSmallintField TblDATASEX TSmallintField TblDATABODYMASS TFloatField TblDATABODYLENGHT TFloatField TblDATAAPGAR TStringField TblDATADN TSmallintField TblDATAENTER TFloatField TblDATAENTER2 TSmallintField TblDATAENTERDS TMemoField TblDATADS TFloatField TblDATADSNOTE TMemoField TblDATASTATUS TFloatField TblDATASTATUSDATE TDateField TblDATASTATUSTIME TStringField TblDATASTATUSNOTE TMemoField TblDATAADDRESS TFloatField TblDATAVILLAGE TFloatField TblDATASTREET TFloatField TblDATAHOME TStringField TblDATAFLAT TStringField TblDATAPHONE TStringField TblDATANOTE TMemoField TblDATAOPERATION TFloatField TblDATAYEARs TIntegerField TblDATABORNTIMEs TStringField TblDATAENTERTIMEs TStringField TblDATASEXs TStringField TblDATADNs TStringField TblENTER TTable DatSrcENTER TDataSource TblENTER2 TTable DatSrcENTER2 TDataSource TblDATAENTERs TStringField TblDATAENTER2s TStringField TblDS TTable DatSrcDS TDataSource TblDATADSs TStringField TblDATASTATUSs TStringField TblDATAADDRESSs TStringField TblSTREET TTable DatSrcSTREET TDataSource TblVILLAGE TTable DatSrcVILLAGE TDataSource TblDATASTREETs TStringField TblDATAVILLAGEs TStringField TblDATA2 TTable DatSrcDATA2 TDataSource TblDATA2NN TFloatField TblDATA2NEUROL1 TSmallintField TblDATA2NEUROL2 TSmallintField TblDATA2NEUROL3 TSmallintField TblDATA2NEUROL4 TSmallintField TblDATA2NEUROL5 TSmallintField TblDATA2NEUROL6 TSmallintField TblDATA2NEUROL7 TSmallintField TblDATA2NEUROL8 TSmallintField TblDATA2NEUROL9 TSmallintField TblDATA2NEUROL10 TSmallintField TblDATA2EXT1 TSmallintField TblDATA2EXT2 TSmallintField TblDATA2EXT3 TSmallintField TblDATA2EXT4 TSmallintField TblDATA2EXT5 TSmallintField TblDATA2EXT6 TSmallintField TblDATA2EXT7 TSmallintField TblDATA2EXT8 TSmallintField TblDATA2EXT9 TSmallintField TblDATA2EXT10 TSmallintField TblDATA2EXT11 TSmallintField TblDATA2NAMEs TStringField TblENTERTITLE TStringField TblENTERCODE TSmallintField TblENTER2ENTERID TSmallintField TblENTER2TITLE TStringField TblENTER2CODE TSmallintField TblDSTITLE TStringField TblDSCODE TFloatField TblSTREETTITLE TStringField TblSTREETCODE TFloatField TblVILLAGETITLE TStringField TblVILLAGECODE TFloatField TblENTER2ENTERs TStringField TblENTERA TTable DatSrcENTERA TDataSource TblENTER2A TTable DatSrcENTER2A TDataSource TblENTER2AENTERID TSmallintField TblENTER2ATITLE TStringField TblENTER2ACODE TSmallintField TblENTERATITLE TStringField TblENTERACODE TSmallintField TblENTER2AENTERs TStringField TblPERSONAL TTable DatSrcPERSONAL TDataSource TblPTYPE TTable DatSrcPTYPE TDataSource TblPERSONALID TSmallintField TblPERSONALFIO TStringField TblPERSONALNAME1 TStringField TblPERSONALNAME2 TStringField TblPERSONALTYPE TSmallintField TblPERSONALISACTIVE TSmallintField TblPERSONALPSW TStringField TblPTYPECODE TSmallintField TblPTYPETITLE TStringField TblPERSONALPTYPEs TStringField procedure DMAdminCreate Sender TObject procedure TblDATACalcFields DataSet TDataSet private Private declarations public Public declarations end var DMAdmin TDMAdmin implementation R .DFM procedure TDMAdmin. DMAdminCreate Sender TObject begin TblDATA.Open TblDATA2.Open TblYEARS.Open TblENTER.Open TblENTER2.Open TblDS.Open TblSTREET.Open TblVILLAGE.Open TblENTERA.Open TblENTER2A.Open TblPERSONAL.Open TblPTYPE.Open end procedure TDMAdmin. TblDATACalcFields DataSet TDataSet begin TblDATABORNTIMEs. Value IntToStr TblDATABORNTIMEH.Value IntToStr TblDATABORNTIMEM.Value TblDATAENTERTIMEs. Value IntToStr TblDATAENTERTIMEH.Value IntToStr TblDATAENTERTIMEM.Value Case TblDATASEX.AsInteger of 0 TblDATASexs. Value МУЖ 1 TblDATASexs. Value ЖЕН else TblDATASexs. Value end Case Case TblDATADN. AsInteger of 0 TblDATADNs. Value ДОН 1 TblDATADNs. Value НЕД else TblDATADNs. Value end Case Case TblDATASTATUS.AsInteger of 0 TblDATASTATUSs. Value БЕЗ ИЗМЕНЕНИЙ 1 TblDATASTATUSs. Value ПЕРЕВЕДЕН 2 TblDATASTATUSs. Value УМЕР else TblDATASTATUSs. Value end Case Case TblDATAADDRESS. AsInteger of 0 TblDATAADDRESSs. Value СУРГУТ 1 TblDATAADDRESSs. Value РАЙОН else TblDATAADDRESSs. Value end Case end end. Доклад Поставленная задача заключалась в разраб отке автоматизированного комплекса учета статистических данных на базе отделения РИТН МГБ 1. Проведенное устное анкетирование позволило выявить важные моменты организации труда данного отделения, пожелания сотрудников реализовались в разработке статистической базы данных ОРИТН в порядке. База позволяет осуществить ввод оперативной информации для организации лечения.

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

Понятия пакет плановых мероприятий и пакет экстренных мероприятий переняты из сложившейся терминологии врачей.

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

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

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

Накопленные данные, в настоящий момент, оказывают неоспоримую поддержку при оказании консультативных услуг в окружном медико-консультативном центре.

РЕФЕРАТ Гудонис Юрий Владимирович.

Разработка программного обеспечения для Отделения Реанимации и Интенсивной Терапии Новорожденных при Муниципальной Городской Больнице 1 города Сургута.

Место дипломирования - Муниципальная Городская Больница 1, руководитель - Челноков С.Б 1998г 78 стр 2 плаката, 2 приложения.

СУБД, базы данных, модель АСУ, одно-ранговые сети, сетевые системы, интернет технологии.

Систематизирована существующая информация отделения РИТН МГБ 1, разработаны формы отчетов, написан, отлажен и внедрен программный модуль администратор ОРИТН в порядке для комплекса ОРИТН в порядке. РЕФЕРАТ Челноков Александр Сергеевич.

Разработка программного обеспечения статистических данных для Отделения Реанимации и Интенсивной Терапии Новорожденных при Муниципальной Городской Больнице 1 города Сургута.

Место дипломирования - Муниципальная Городская Больница 1, руководитель - Челноков С.Б 1998г 115 стр 2 плаката, 2 приложения. Открытая архитектура Delphi, системы управления базами данных, экспертные системы, базы данных, модель АСУ, сети на базе Novell NetWare, глобальные сети. Проведена работа по систематизации и анализу существующей информации отделения РИТН МГБ 1. Разработаны формы отчетов.

На языке Delphi реализована статистическая база данных ОРИТН в порядке. Основная структура базы данных.

Схема пребывания больного в ОРИТН. Поступившие из ЦРР ОПН ДХО ДР.ОТД МГБ ДР.ЛПУ Сур. ДР.ЛПУ Рай. Отзыв о дипломной работе.

В ходе дипломного проектирования Гудонис Юрий Владимирович проявил себя, как зрелый специалист в области информационных технологий.

Выявились глубокие знания своего профиля неподдельный интерес к поставленной задаче.

Разработанное программное обеспечение в настоящий момент безотказно работает в тестовом режиме и уже сейчас можно с уверенностью сказать, что данный программный продукт ОРИТН в порядке существенно облегчил работу с основными статистическими данными.

Отделение ОРИТН МГБ 1 в лице его главного врача С.Б.Челнокова, выражает благодарность Сургутскому Государственному Университету за воспитание высокопрофессиональных, честных и трудолюбивых кадров. В дальнейшем отделение ОРИТН заинтересованно в продолжении сотрудничества с авторами данного дипломного проекта.

Гудонис Ю.В. удостоен оценки отлично и рекомендовано присвоение ему квалификации инженер автоматизированных систем обработки и управления.

Главный врач ОРИТН МГБ 1 г. Сургута, ведущий специалист ОТМУ ХМАО по реанимации и интенсивной терапии новорожденных С.Б.Челноков.

Рецензия на дипломную работе Разработка программного обеспечения для Отделения Реанимации и Интенсивной Терапии Новорожденных при Муниципальной Городской Больнице 1 города Сургута. На рецензирование был предоставлен программный продукт ОРИТН в порядке с модулем Администратор программы ОРИТН в порядке реализованный на платформе Delphi, разработанный Челноковым А.С. и Гудонисом Ю. В Продукт работоспособен, отвечает поставленным требованиям.

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

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

Директор АОЗТ Окружной медицинский Информационно-технический центр Шепелев А.С.