Создание ПО для поликлиники

Fields («id_p»)Call SetFieldProp (ERwinField, «Caption», DB_TEXT, «ИД_пациента:»)Set ERwinField = ERwinTableDef. Fields («fio»)Call SetFieldProp (ERwinField, «Caption», DB_TEXT, «ФИО:»)Set ERwinField = ERwinTableDef. Fields («adres»)Call SetFieldProp (ERwinField, «Caption», DB_TEXT, «адрес:»)Set ERwinField = ERwinTableDef. Fields («telefon»)Call SetFieldProp (ERwinField, «Caption», DB_TEXT, «телефон:»)Set ERwinField = ERwinTableDef. Fields («data_r»)Call SetFieldProp (ERwinField, «Caption», DB_TEXT, «датарождения:»)' CREATE INDEX XPKпациентыSet ERwinTableDef = ERwinDatabase. TableDefs («pacient»)Set ERwinIndex = ERwinTableDef. CreateIndex («XPKпациенты»)Set ERwinField = ERwinIndex. CreateField («id_p»)ERwinIndex.Fields.AppendERwinFieldERwinIndex.Primary = TrueERwinTableDef.Indexes.AppendERwinIndex' CREATE RELATIONSHIP R/1Set ERwinRelation = ERwinDatabase. CreateRelation (R/1, pacient, ist_diagn)Set ERwinField = ERwinRelation. CreateField («id_p»)ERwinField.ForeignName = id_pERwinRelation.Fields.AppendERwinFieldERwinDatabase.Relations.AppendERwinRelation' CREATE RELATIONSHIP R/2Set ERwinRelation = ERwinDatabase. CreateRelation (R/2, ist_diagn, ist_pos)Set ERwinField = ERwinRelation. CreateField («id_p»)ERwinField.ForeignName = id_pERwinRelation.Fields.AppendERwinFieldSet ERwinField = ERwinRelation. CreateField («id_d»)ERwinField.ForeignName = id_dERwinRelation.Fields.AppendERwinFieldERwinDatabase.Relations.AppendERwinRelationERwinDatabase.CloseERwinWorkspace.Close4. Проектирование функциональной структуры ПОНа рис. 4.1 приведена схема функциональной структуры.Рис. 4.1 — Схема функциональной структуры.

Функции системы:

Учет пациентов — учет пациентов поликлиники;

Ведение истории диагнозов — учет диагнозов каждого пациента;

Ведение истории посещений — учет посещений врача и всех назначений.

5. Программная реализация5.

1. Описание алгоритма работы ПОНа рис. 5.1−5.4 приведены схемы алгоритма работы программы.Рис. 5.1 — Алгоритм работы системы.

После входа в систему пользователь видит окно с набором вкладок, на каждой из которых представлены соответствующие формы для ввода информации и информация БД в табличном представлении.Рис. 5.2 — Ветвь № 1 алгоритма.

На первой вкладке «Пациенты» пользователь может заполнить форму ввода информации о пациенте, и запись попадет в БД.Рис. 5.3 — Ветвь № 2 алгоритма.

На второй вкладке «История диагнозов» пользователь может выбрать пациента и ввести запись в историю диагнозов.Рис. 5.4 — Ветвь № 2 алгоритма.

На третьей вкладке «История посещений» пользователь может выбрать пациента / диагноз и ввести запись о посещении врача.

5.2. Выбор языка программирования.

Для программной реализации информационной системы необходимо осуществить выбор языка программирования. Сравнение языков программирования приведено в таблице 5.

1. Таблица 5.1Сравнение языков программирования.

АспектC++CComponentPascalVBAСтруктурированный синтаксис+—-Простота и регулярность+—+Статические объекты++±Статические типы++±Динамические типы±++Эффективная трансляция++±Динамическое связывание++++Сокрытие информации—++Полиморфизм±++Наследование±++Динамическая загрузка—-+Разделельный интерфейс реализации——Отсутствие требования к доп. изучению+—-Отсутствие дублирования кода ++±Взаимодействие с традиционным оборудованием++++Поддерживают преди постусловия в интерфейсе++++Интегральная оценка125 109.

Требованиям проектирования в большей степени удовлетворяет язык программирования С++. Данный язык программирования будет использован при разработке АРМ врача.

5.3. Описание интерфейса ПОДля разработки интерфейса использовались следующие компоненты: TSuiForm -это контейнер в котором размещаются другие визуальные и не визуальные компоненты. Окно в оконном приложении. Оно может быть минимум одно, максимальное ограничение на количество не накладывается. Первое созданное окно в приложении автоматически становится главным;SuiPageControl — многостраничное окно, позволяет создавать страницы в стиле Windows, управляемые закладками или иными органами управления, для экономии места на рабочем столе. Каждая создаваемая страница является объектом типа TTabSheet;SuiPanel — контейнер для группирования органов управления и меньших контейнеров. Основное свойство — Caption;Label — надпись или метка на форме. Компонент служит для отображения текста, который не изменяется пользователем. Основное свойство — Caption;SuiEdit — отображение, ввод и редактирование однострочных текстов.

Основное свойство -Text;SuiButton — командная кнопка, используется для создания кнопок, которыми пользователь выполняет команды в приложении;SuiDBGrid — визуальный компонент, отображающий набор данных в таблицы;SuiMemo — многострочное окно редактирования. Отображение, ввод и редактирование многострочных текстов. Основное свойство — Lines. Для связи с базой данных и использовались компоненты: AdoTable — компонент, используется в качестве набора данных, служит контейнером для элементов, определяющих содержимое таблицы;DataSource — является источником данных, который обеспечивает связь между набором данных и компонентами отображения и редактирования данных. При разработке программного обеспечения для большего удобства пользователя в работе с конкретными данными, решено использовать компонент SuiPageControl. Данный компонент позволил создать страницы управляемые закладками, дляосуществления быстрогои последовательного доступа к данным и осуществить компоновку нужных функций в выделенной вкладке, что дало возможность значительно сократить место на рабочем столе. Разработанное программное обеспечение размещено на трех вкладках. На рис. 5.5−5.7 приведены макеты страниц АРМ врача.Рис. 5.5 — Макет страницы «Пациенты"На странице «Пациенты» представлен список пациентов и форма для ввода информации о новых пациентах. Для корректного ввода даты и телефона пациента в системы использованы компоненты поддерживающие маску ввода. Для кнопки.

Добавить разработан обработчик события OnClick://—————————————————————————————————————-void __fastcall TForm1: suiButton1Click (TObject *Sender){try {tpacient -> Append ();tpacient -> FieldByName («fio») -> AsString = suiEdit1 -> Text;tpacient -> FieldByName («data_r») -> AsString = suiMaskEdit1 -> Text;tpacient -> FieldByName («telefon») -> AsString = suiMaskEdit2 -> Text;tpacient -> FieldByName («adres») -> AsString = suiEdit2 -> Text;tpacient -> Post (); }catch (int a) {MessageBox (Application->Handle,"Ошибкавводаинформации","Ошибка", mbOK); }}Для кнопки.

Удалить разработан обработчик события OnClick://—————————————————————————————————————-void __fastcall TForm1: suiButton2Click (TObject *Sender){tpacient -> Delete ();}На рис. 5.6 приведен макет страницы «История диагнозов"Рис. 5.6 — Макет страницы «История диагнозов"На странице «История диагнозов» представлен список пациентов и диагнозов, а также форма для ввода информации о новых диагнозах пациента. Для корректного ввода даты диагноза пациента в системы использован компонент поддерживающие маску ввода. Для кнопки.

Добавить разработан обработчик события OnClick://—————————————————————————————————————-void __fastcall TForm1: suiButton3Click (TObject *Sender){try {tdiag -> Append ();tdiag -> FieldByName («diagn») -> AsString = suiEdit3 -> Text;tdiag -> FieldByName («data_d») -> AsString = suiMaskEdit3 -> Text;tdiag -> FieldByName («id_p») -> AsInteger = tpacient -> FieldValues["id_p"]; tdiag -> Post (); }catch (int a) {MessageBox (Application->Handle,"Ошибкавводаинформации","Ошибка", mbOK); }}Для кнопки.

Удалить разработан обработчик события OnClick://—————————————————————————————————————-void __fastcall TForm1: suiButton4Click (TObject *Sender){tdiag -> Delete ();}На рис. 5.7 приведен макет страницы «История посещений».Рис. 5.7 — Макет страницы «История посещений"На странице «История посещений» представлен список посещений и диагнозов, а также форма для ввода информации о новых посещениях врача. Для корректного ввода даты посещения врача в системы использован компонент поддерживающие маску ввода. Для кнопки.

Добавить разработан обработчик события OnClick://—————————————————————————————————————-void __fastcall TForm1: suiButton5Click (TObject *Sender){try {tist_pos -> Append ();tist_pos -> FieldByName («jalob») -> AsString = suiEdit4 -> Text;tist_pos -> FieldByName («predpis») -> AsString = suiEdit5 -> Text;tist_pos -> FieldByName («data_obr») -> AsString = suiMaskEdit4 -> Text;tist_pos -> FieldByName («id_p») -> AsInteger = tdiag -> FieldValues["id_p"]; tist_pos -> FieldByName («id_d») -> AsInteger = tdiag -> FieldValues["id_d"]; tist_pos -> Post (); }catch (int a) {MessageBox (Application->Handle,"Ошибкавводаинформации","Ошибка", mbOK); }}Для кнопки.

Удалить разработан обработчик события OnClick://—————————————————————————————————————-void __fastcall TForm1: suiButton6Click (TObject *Sender){tist_pos -> Delete (); }Для кнопки Фильтр разработан обработчик события OnClick://—————————————————————————————————————-void __fastcall TForm1: suiButton7Click (TObject *Sender){tdiag -> Filtered = false;tdiag -> Filter = «id_p=» + suiEdit6 -> Text;tdiag -> Filtered = true;}Для кнопки.

Снятьфильтр разработан обработчик события OnClick://—————————————————————————————————————-void __fastcall TForm1: suiButton8Click (TObject *Sender){tdiag -> Filtered = false;tist_pos -> Filtered = false;}Для нажатия на ячейки таблицы «Диагнозы» (вкладка «История посещений») разработан обработчик события OnCellClick://—————————————————————————————————————-void __fastcall TForm1: suiDBGrid5CellClick (TColumn *Column){tist_pos -> Filtered = false;tist_pos -> Filter = «id_p=» + tdiag -> FieldValues["id_p"]; tist_pos -> Filtered = true;}5.

3. Описание установки и работы ПОДля проверки работоспособности программы было проведено контрольное тестирование. Для начала необходимо установить программу. Для этого:

Копируем файл vrach. accdb и vrach. exe в корень диска C: (или в любое другое место, если доступ к файлу с диска С:/ не возможен);Устанавливаем MSAccess 2007 и выше;

Создаем источник данных. Для создания источника данных запускаем администратор источников ODBC. (В windows 7 путькфайлу: C: Windows. oldWindowsSysWOW64odbcad32. exe)/Рис. 5.8 — Запуск администратора источников ODBCНажимаем кнопку «Добавить…"Рис. 5.9 — Выбор драйвера БДВыбираем драйвер MicrosoftAccess (*.mdb, *.accdb)Рис. 5.10 — Указание имени источника.

Выбираем файл БД нажатием кнопки Выбрать… Рис. 5.11 — Выбор файла БДВыбираем файл БД — vrach.accdbРис. 5.12 — Источник создан — можно работать! Далее можно запускать приложение vrach.exe.Рис. 5.13 — Вкладка «Пациенты"На вкладке «Пациенты» представлен список пациентов, а также форма ввода нового пациента.Рис. 5.14 — Заполнение формы «Пациенты"Для добавления нового пациента заполним форму ввода и нажмем кнопку.

Добавить.Для удаления пациента из списка необходимо выбрать запись и нажать кнопку.

Удалить.Рис. 5.15 — Пациент добавлен.

Пациент добавлен в БД, теперь возможна фиксация диагнозов и посещений для данного пациента. Далее перейдем на вкладку «История диагнозов».Рис. 5.16 — Вкладка «История диагнозов"На вкладке «История диагнозов» представлен список пациентов и список диагнозов пациентов, а также форма ввода нового диагноза.Рис. 5.17 — Заполнение формы диагноза.

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

Добавить.Для удаления диагноза из списка необходимо выбрать запись и нажать кнопку.

Удалить.Рис. 5.18 — Диагноз добавлен.

Диагноз пациента добавлен в БД, теперь возможна фиксация посещений для данного диагноза пациента. Далее перейдем на вкладку «История посещений».Рис. 5.19 — Вкладка «История посещений"На вкладке «История посещений» представлен список пациентов/диагнозов и список посещений пациентов, а также форма ввода нового посещения.Рис. 5.20 — Заполнение формы посещения врача.

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

Добавить.Для удаления посещения из списка необходимо выбрать запись и нажать кнопку.

Удалить.Рис. 5.21 — Запись о посещении добавлена.

Теперь запись о посещении добавлена в БД.Рис. 5.22 — Заполнение формы фильтрации диагнозов пациента по номеру карты.

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

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

Снять фильтр.Рис. 5.24 — Результат фильтрации посещений по выбранному диагнозу.

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

Заключение

.

Целью дипломного проекта является разработка и внедрение АРМ врача в работу Поликлиники № 1.В первой главе дипломного проекта была рассмотрена деятельность Поликлиники № 1.Консультативно-диагностическая поликлиника № 1 Санкт-Петербурга обслуживает жителей Приморского района и предоставляет бесплатную медицинскую помощь (в рамках ОМС) по направлениям поликлиник, а также платные медицинские услуги. Описание процесса работы с пациентами. Выявлены недостатки существующего процесса:

Хранение амбулаторных карт осуществляется на бумажных носителях;

Поиск документов осуществляется вручную в картотеке;

Заполнение истории болезни осуществляется вручную на бумажных носителях. Дано обоснование необходимости автоматизации процесса работы с пациентами. Рассмотрены коммерческие аналоги программных средств автоматизации медицинских учреждений. Во второй главе пояснительной записке разработано техническое задание на разработку автоматизированного рабочего места врача поликлиники. В третьей главе осуществлен выбор СУБД, для реализации БД использован СУБД MSAccess, так как данная СУБД входит в поставку MSOffice. Осуществлено проектирование структуры информационного фонда с использованием case средства ERWinDataModeler 7.

3.В четвертой главе осуществлено функциональное проектирование системы. Разработана диаграмма вариантов использования с использованием RationalRose. В пятой главе описана программная реализация системы, а именно описан алгоритм работы программы, а также описан контрольный пример. В шестой главе разработан перечень рекомендаций по охране труда пользователей АРМ врача. В седьмой главе осуществлено финансово-экономическое обоснование разработки и внедрения АРМ врача в Поликлинике № 1.

Список литературы

Автоматизированные информационные технологии в экономике: Учебник/Под ред. проф. Г. А. Титоренко. — М.: Компьютер, ЮИНИТИ, 2011.

Вендров А. М. Проектирование программного обеспечения экономических информационных систем: Учебник. — 2-е изд., перераб.

и доп. Издательство: Москва, Финансы и статистика, 2011. — 544 с. Гергенов А. С. Информационные технологии в управлении: учебное пособие. Издательство: Улан Удэ: ВСГТУ, 2012. — 72 с. Гвоздева Т. В., Баллод Б. А. Проектирование информационных систем: учеб.

пособие. Издательство: Феникс, 2011. — 512 с. Грекул В. И., Денищенко Г. Н., Коровкина Н. Л. Проектирование информационных систем: Курс лекций: учебное пособие для студентов вузов, обучающихся по специальностям в области информационных технологий. Издательство: М.: Интернет-Ун-т Информ. технологий,.

2013. — 304 с. Гринберг А. С., Горбачев Н. Н., Бондаренко А. С. Информационные технологии управления. Издательство: Москва, ЮНИТИ-ДАНА, 2011. — 250 с.

Грекул В. И. Жизненный цикл программного обеспечения ИС // Проектирование информационных систем [Электронный ресурс]. URL:

http://www.intuit.ru/department/se/devis/2/2.html (дата обращения 18.

03.2012) Губина О. В., Губин В. Е. Анализ финансово-хозяйственной деятельности предприятия. Издательство: испр. и доп. М.: Форум: ИНФРА, 2012. — 192 с.

Информационные системы и технологии в экономике и управлении: Учебник / Под ред. проф. В. В. Трофимова. Издательство: Москва, Высшее образование, 2012. — 480 с. Косарев В. П. Экономическая информатика: Учебник / Под ред.

— 4-е изд., перераб. и доп. 2011. — 656 с.

Кудрявцев К. Я. Создание баз данных.

учебное пособие. Издательство: Москва, НИЯУ МИФИ, 2010. — 155 с. Калянов Г. Н. Консалтинг при автоматизации предприятий (подходы, методы, средства) // М.: СИНТЕГ, 2013.

Маклаков С. В. Создание информационных систем с AIIFusionModelingSuite. М. Издательство: ДИАЛОГ-МИФИ, 2011. — 432 с. Приложение — Программный код системы//—————————————————————————————————————-#ifndefmainH#definemainH//—————————————————————————————————————-#include <Classes.hpp>#include <Controls.hpp>#include <StdCtrls.hpp>#include <Forms.hpp>#include «SUIForm.hpp"#include «SUIPageControl.hpp"#include «SUITabControl.hpp"#include <ExtCtrls.hpp>#include «SUIDBCtrls.hpp"#include «SUIImagePanel.hpp"#include <DBGrids.hpp>#include <Grids.hpp>#include «SUIButton.hpp"#include «SUIEdit.hpp"#include <Mask.hpp>#include <ADODB.hpp>#include <DB.hpp>//—————————————————————————————————————-class TForm1: public TForm{__published:// IDE-managed ComponentsTsuiForm *suiForm1;TsuiPageControl *suiPageControl1;TsuiTabSheet *suiTabSheet1;TsuiTabSheet *suiTabSheet2;TsuiTabSheet *suiTabSheet3;TsuiDBGrid *suiDBGrid1;TsuiPanel *suiPanel1;TLabel *Label1;TPanel *Panel1;TsuiPanel *suiPanel2;TsuiDBGrid *suiDBGrid3;TsuiPanel *suiPanel3;TsuiDBGrid *suiDBGrid4;TsuiEdit *suiEdit1;TLabel *Label4;TsuiMaskEdit *suiMaskEdit1;TLabel *Label5;TsuiEdit *suiEdit2;TLabel *Label6;TsuiMaskEdit *suiMaskEdit2;TsuiButton *suiButton1;TsuiButton *suiButton2;TLabel *Label2;TsuiEdit *suiEdit3;TLabel *Label7;TsuiMaskEdit *suiMaskEdit3;TsuiButton *suiButton3;TsuiButton *suiButton4;TLabel *Label3;TsuiEdit *suiEdit4;TLabel *Label8;TsuiMaskEdit *suiMaskEdit4;TsuiButton *suiButton5;TsuiButton *suiButton6;TLabel *Label9;TsuiEdit *suiEdit5;TDataSource *pacient;TDataSource *diag;TDataSource *ist_pos;TADOConnection *ADOConnection1;TADOTable *tpacient;TADOTable *tdiag;TADOTable *tist_pos;TsuiDBGrid *suiDBGrid2;TsuiDBGrid *suiDBGrid5;TsuiButton *suiButton7;TsuiButton *suiButton8;TLabel *Label10;TsuiEdit *suiEdit6;void __fastcall suiButton1Click (TObject *Sender);void __fastcall suiButton2Click (TObject *Sender);void __fastcall suiButton4Click (TObject *Sender);void __fastcall suiButton3Click (TObject *Sender);void __fastcall suiButton6Click (TObject *Sender);void __fastcall suiButton5Click (TObject *Sender);void __fastcall suiButton8Click (TObject *Sender);void __fastcall suiButton7Click (TObject *Sender);void __fastcall suiDBGrid5CellClick (TColumn *Column);private:// User declarationspublic:// User declarations __fastcallTForm1(TComponent* Owner);};//—————————————————————————————————————-extern PACKAGE TForm1 *Form1;//—————————————————————————————————————-#endif//—————————————————————————————————————-#include <vcl.h>#pragmahdrstop#include «main.h"//—————————————————————————————————————-#pragmapackage (smart_init)#pragma link «SUIForm"#pragma link «SUIPageControl"#pragma link «SUITabControl"#pragma link «SUIDBCtrls"#pragma link «SUIImagePanel"#pragma link «SUIButton"#pragma link «SUIEdit"#pragma resource «*.dfm"TForm1 *Form1;//—————————————————————————————————————-__fastcall TForm1: TForm1(TComponent* Owner): TForm (Owner){}//—————————————————————————————————————-void __fastcall TForm1: suiButton1Click (TObject *Sender){try {tpacient -> Append ();tpacient -> FieldByName («fio») -> AsString = suiEdit1 -> Text;tpacient -> FieldByName («data_r») -> AsString = suiMaskEdit1 -> Text;tpacient -> FieldByName («telefon») -> AsString = suiMaskEdit2 -> Text;tpacient -> FieldByName («adres») -> AsString = suiEdit2 -> Text;tpacient -> Post (); }catch (int a) {MessageBox (Application->Handle,"Ошибкавводаинформации»,"Ошибка», mbOK); }}//—————————————————————————————————————-void __fastcall TForm1: suiButton2Click (TObject *Sender){tpacient -> Delete ();}//—————————————————————————————————————-void __fastcall TForm1: suiButton4Click (TObject *Sender){tdiag -> Delete ();}//—————————————————————————————————————-void __fastcall TForm1: suiButton3Click (TObject *Sender){try {tdiag -> Append ();tdiag -> FieldByName («diagn») -> AsString = suiEdit3 -> Text;tdiag -> FieldByName («data_d») -> AsString = suiMaskEdit3 -> Text;tdiag -> FieldByName («id_p») -> AsInteger = tpacient -> FieldValues["id_p"]; tdiag -> Post (); }catch (int a) {MessageBox (Application->Handle,"Ошибкавводаинформации»,"Ошибка», mbOK); }}//—————————————————————————————————————-void __fastcall TForm1: suiButton6Click (TObject *Sender){tist_pos -> Delete (); }//—————————————————————————————————————-void __fastcall TForm1: suiButton5Click (TObject *Sender){try {tist_pos -> Append ();tist_pos -> FieldByName («jalob») -> AsString = suiEdit4 -> Text;tist_pos -> FieldByName («predpis») -> AsString = suiEdit5 -> Text;tist_pos -> FieldByName («data_obr») -> AsString = suiMaskEdit4 -> Text;tist_pos -> FieldByName («id_p») -> AsInteger = tdiag -> FieldValues["id_p"]; tist_pos -> FieldByName («id_d») -> AsInteger = tdiag -> FieldValues["id_d"]; tist_pos -> Post (); }catch (int a) {MessageBox (Application->Handle,"Ошибкавводаинформации»,"Ошибка», mbOK); }}//—————————————————————————————————————-void __fastcall TForm1: suiButton8Click (TObject *Sender){tdiag -> Filtered = false;tist_pos -> Filtered = false;}//—————————————————————————————————————-void __fastcall TForm1: suiButton7Click (TObject *Sender){tdiag -> Filtered = false;tdiag -> Filter = «id_p=» + suiEdit6 -> Text;tdiag -> Filtered = true;}//—————————————————————————————————————-void __fastcall TForm1: suiDBGrid5CellClick (TColumn *Column){tist_pos -> Filtered = false;tist_pos -> Filter = «id_p=» + tdiag -> FieldValues["id_p"]; tist_pos -> Filtered = true;}//—————————————————————————————————————;