Розробка електронного медичного довідника дитячих захворювань

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

Вступ

Інформаційні системи здавна знаходять досить широке застосування в життєдіяльності людства. Це пов'язано з тим, що для існування цивілізації необхідний обмін інформацією -- передача знань та даних, як між окремими членами і колективами суспільства, так і між різними поколіннями.

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

Найстаріші інформаційні системи повністю базувалися на ручній праці. Пізніше їм на зміну прийшли різні механічні пристрої для обробки даних (наприклад, для сортування, копіювання, асоціативного пошуку, тощо). Наступним кроком стало впровадження автоматизованих інформаційних систем (АІС), тобто систем, де для забезпечення інформаційних потреб користувачів використовується ЕОМ зі своїми носіями інформації. В наш час -- епоху інформаційної революції -- розробляється і впроваджується велика кількість виключенням в цьому процесі.

Сучасна медицина також має великий прорив в науці та інформаційній системі. Медицина була започаткована нашими предками з давніх часів, та с кожним століттям вона вдосконалювалася і набувала великого оберту. На початок ХХІ століття вона досягла найвищої відмітки.

Інформаційна система та медицина дуже взаємопов'язані між собою. На даний час існує багато приладів для підтримки життєвого тонусу людини та велика кількість різних довідників з медицини.

Необхідність вивчення інформатики майбутнім медикам диктує саме життя. На сьогоднішній день практикуючий медик витрачає 50% свого часу на складання різних довідок, звітів, інформація яких не пов'язана з безпосереднім лікувально - профілактичним процесом. Введення автоматизованої обробки інформації передбачає застосування комп'ютерної технології, яка якісно і швидко виконує роботу і вільно організовує час для безпосередньої медичної діяльності самоосвіти.

Розробка електронного медичного довідника дитячих захворювань поряд із іншими системами є актуальною потребою суспільства в умовах тотальної інформатизації.

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

1 Загальна частина

1.1 Аналіз прикладної області

Медичний довідник містить великий об'єм інформації, в якому знаходяться основні теоретичні відомості про базові аспекти медицини. У медичному посібнику висвітлюються актуальні проблеми медицини, а також наводяться аспекти застосування інформаційних технологій у сучасній медицині та суспільному житті.

Медичний довідник містить інформацію про різні хвороби та способи їх лікування. Можна знайти також найбільш повну та актуальну інформацію про захворювання усіх систем організму людини, методи діагностики, лікування та профілактики. Медичний довідник захворювань в першу чергу стане у пригоді практикуючим лікарям різних напрямків, студентам хто цікавиться питаннями здоров'я та лікуванням хвороб. Знайти у медичному довіднику захворювань можна багато корисної інформації.

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

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

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

У нашому повсякденному житті тяжко прожити без доступу інформації, а без медицини і медичних препаратів, які кожного дня нам рятують життя взагалі існування не можливе. Медичні довідники є актуальними, вони використовуються як вдома, так і в лікарнях та аптеках.

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

1.2 Визначити функціональність вимог

Проаналізувавши предметну область, було виявлено, що майбутня програма повинна забезпечити надання оглядової та стислої інформації щодо дитячих хвороб. А саме: назва хвороби, категорія хвороби, симптоми, препарат для лікування, побічна дія, спосіб приймання ліків, а також пошук певних даних, що мобілізує та оптимізує процес обробки даних та прийняття відповідних рішень.

В довіднику повинен проводитися облік про категорії хвороб, а саме: назва категорії та детальна інформація про кожну категорію у стислому, але зрозумілому для користувача вигляді. Інформація повинна подаватися у вигляді короткого опису хвороби та способу її лікування. Також повинні вказуватися препарати: їх назва, спосіб приймання, побічна дія, термін придатності та склад лікарського препарату. Для зручного користування даними подана інформація буде зберігатися у вигляді таблиць.

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

Програма повинна мати дружній, інтуїтивно зрозумілий інтерфейс. Практична цінність даної програми полягає в тому, що вона може бути використана пересічними громадянинами у пізнавальних цілях для прискорення процесу обробки інформації (узагальнення, систематизації, пошуку, збереження) кожною людиною, а також викладачами на заняттях з медицини і у медичних закладах з метою забезпечення наочністю навчально-виховного процесу. Крім того, дана програма може бути використана для надання відповідної консультації про медичні препарати в аптеках.

Отже, дана програма забезпечить простоту у використанні, низький рівень вимог до системних ресурсів, безкоштовність, кросплатформеність, що уможливлює її використання майже на будь-якому комп'ютері. Завдяки цьому даний програмний продукт матиме своє місце на ринку програмних продуктів.

1.3 Аналіз можливостей обраного середовища програмування для реалізації завдання

Для реалізації поставленого перед нами завдання можливо використовувати різні середовища програмування. З огляду на це виникає проблема вибору середовища програмування для створення електронно-медичного довідника. Середовище програмування як система програмних засобів, використовувана програмістами для розробки програмного забезпечення, як правило включає в себе: текстовий редактор, компілятор або інтерпретатор.

Найбільш розповсюдженими на сьогоднішній день інтегровані середовища програмування є Borland Delphi 7.0, та Borland C++ Builder.

Для вирішення даної програми порівняємо декілька розповсюджених середовищ програмування за такими критеріями як: функціональні можливості для реалізації даного завдання, рівень володіння даним середовищем, кросплатформеність, тип ліцензії.

Отже, проаналізуємо кожне середовище окремо за виділеними критеріями.

Функціональні можливості Borland Delphi 7.0 та Borland C++ Builder для середовища програмування в даний момент є моноплатформеними. Рівень володіння даними середовищами знаходиться на низькому рівні.

Відкритість, безкоштовність середовищ програмування Borland Delphi 7.0 та Borland C++ Builder не має відкритого коду і не є безкоштовним, ціна на продукт варіює залежно від версії та випуску продукту. З погляду на функціональності, всі середовища мають можливість забезпечити розробку електронно-довідкової системи, але власний рівень володіння інструментами середовища є ефективним для роботи з базою даних, можливості забезпечити кросплатформенності, відкритості створюваного програмного продукту для створення електронно-довідкової системи доцільно.

Borland Delphi 7.0 -- це інтегроване середовище швидкої розробки програмного забезпечення для роботи під Microsoft Windows. Середовище програмування Borland Delphi 7.0 підтримує: BDE Administrator, Database Desktop, Data Control, Table, що є важливим для реалізації нашого завдання.

Отже, для реалізації даного проекту нами було обрано середу програмування Borland Delphi 7.0 тому, як вона є інтегрованим середовищем швидкої розробки.

Розглянемо принципи побудови додатків для обробки БД середі програмування Delphi.

Першим кроком є створення псевдоніму в програмі, який повинен вказувати на місце положення файлів БД і являти собою спеціальне ім'я для позначення каталогу. Використовуючи псевдоніми це значно полегшує переніс файлів БД в інші каталоги та на інші комп'ютери . При цьому не потрібно редагувати програму, яка виконує доступ до таблиць БД. Якщо в програмі місце положення таблиць вказано за допомогою псевдоніма, то після переміщення БД для забезпечення працездатності програми достатньо редагувати адрес, на який вказує псевдонім.

Програма BDE Administrator являє собою адміністратор процесора баз даних BDE. Для виклику Адміністратора BDE запускається файл bdeadmin.exe, який знаходиться в однім каталозі з процесором баз даних. Внесені зміни зберігаються по закінченню зміни роботи з Адміністратором в файлі конфігурації. Програму BDE Administrator можна визвати через головне меню Windows.

Наступним кроком, є створення таблиць БД в програмі Database Desktop, яка повинна призначатися для здійснювання та редагування таблиць. Візуальні запити та SQL-запити, а також використання дій з псевдонімами БД.

Відкриті таблиці для Database Desktop повинні починаються з виклику команди меню або з натиском на панелі інструментів кнопки з відображенням таблиці. Потім у відкритому вікні Open Table потрібно вибрати ім'я головного файлу таблиці. Після натиску кнопки Open в полі програми Database Desktop відкриється вікно з записами таблиць. По замовченню для таблиці включено режим перегляду даних View Data, і його записи доступні тільки для читання. Переключення в режимі редагування Edit Data виконуючого одно іменною командою меню Table. Після цього в таблиці можна додавати і видаляти записи, а також змінювати значення поля.

Доповнюючим компонентом є Data Control - це мова баз даних для здійснення адміністративних функцій, які присвоюють або скасовують право використовувати базу даних, таблиці в базі даних, а також виконувати ті чи інші оператори SQL.

Завершуючи кроком набору даних є програма BDE Administrator, яка взаємопов'язаною з компонентом Table при виконані локальний БД. Table являє собою набір даних, котрий в даний момент часу може бути зв'язаний тільки з однією таблицею БД. Цей набір даних формується на базі навігаційного способу доступу до даних, тому компонент Table рекомендується виконувати для локальних БД . Цю програму можна визвати з середи Delphi.

Отже, аналізуючи Borland Delphi 7.0 та Borland C++ Builder бачимо, що з погляду функціональності, всі середовища мають можливість забезпечити розробку електронно-довідкової системи. З огляду на власний рівень володіння інструментами середовища, ефективність роботи з базою даних, можливості забезпечення кросплатформенності, відкритості створюваного програмного продукту для створення електронно-довідкової системи доцільно обрати Borland Delphi 7.0

2. Спеціальна частина

2.1 Проектування бази даних

Аналіз прикладної області показав, що для розробки програми електронно-медичного довідника “Дитячих хвороб” необхідно спроектувати та створити базу даних для перегляду та пошуку медичних препаратів для лікування.

База даних буде складатися з 3 таблиць: Xvorobu, Preparat, Kategoria.

В таблиці Xvorobu містяться інформація що до хвороб. Зміст таблиці наведений в таблиці 1.

Таблиця 1 - Структура таблиці про хвороби

Ім'я поля	Тип поля	Опис поля
Nazva_ xvorobu	Alpha [50]	Назва хвороби. Ключове поле. Текстовий тип даних
Kategoria_xvorobu	Alpha [50]	Категорія хвороби. Зовнішній ключ до таблиці препарати Текстовий тип даних
Cumptomu	Alpha [50]	Симптом. Текстовий тип даних
Inkyb_period	Alpha [50]	Інкубаційний період. Текстовий тип даних
Pro_xvoroby	Alpha [250]	Про хворобу. Текстовий тип даних

Для сортування даних треба про індексувати такі поля, як Kategoria_xvorobu і Nazva_xvorobu.

Дана таблиця зв'язана з таблицею Preparat.db в які міститься перелік всіх препаратів. Її зміст зображений в таблиці 2.

Таблиця 2 - Таблиця з препаратами

Ім'я поля	Тип поля	Опис поля
Nazva_xvorobu	Alpha [50]	Назва хвороби. Текстовий тип даних
Nazva_preparaty	Alpha [50]	Назва препарату. Текстовий тип даних.
Cposib_prum	Alpha [50]	Спосіб приймання. Текстовий тип даних
Ім'я поля	Тип поля	Опис поля
Pobichna_dia	Alpha [50]	Побічна дія. Текстовий тип даних
Termin_prud	Alpha [50]	Термін придатності. Текстовий тип дан

Про індексованим полем в таблиці є поле Kategoria_xvorobu.

Допоміжною таблицею є Kategoria.db в які міститься перелік всіх категорій. Її зміст зображений в таблиці 3.

Таблиця 3 - Таблиця з категоріями

Ім'я поля	Тип поля	Опис поля
Nazva_kategori	Alpha [50]	Назва категорії. Текстовий тип даних
Pro_kategori	Alpha [255]	Додаткові дані про категорію. Текстовий тип даних

Отже, нами була створена база даних для пошуку та перегляду записів медичних препаратів для лікування.

2.2 Програмування інтерфейсу програмного додатку

Інтерфейс-- це сукупність засобів і методів взаємодії між елементами системи. Залежно від контексту, поняття застосовне як до окремого елементу (інтерфейс елементу), так і до зв'язок елементів (інтерфейс сполучення елементів, зв'язуюча ланка). Наприклад, клавіатура і миша є інтерфейсом комп'ютера в контексті «користувач -- ЕОМ», а адреса електронної пошти -- комунікаційним інтерфейсом користувача Інтернету. Інтерфейс користувача -- це елементи і компоненти програми, які здатні впливати на взаємодію користувача з програмним забезпеченням. У широкому сенсі слова -- інтерфейс -- це визначена стандартами межа між взаємодіючими незалежними об'єктами. Інтерфейс задає параметри, процедури і характеристики взаємодії об'єктів.

Програма електронний медичний довідник “Дитячих хвороб” повиннен мати простий, зрозумілий, функціональний й привабливий інтерфейс.

Дана програма складається з шести вікон. Головна форма програми призначена для електронно-медичного довідника. Її зовнішній вигляд зображений на рисунку 1

електронний довідник інтерфейс програма

Малюнок 1 - Головна форма програми

Головна форма майбутньої програми містить наступні компоненти:

TButton - кнопки для виконання операцій обліку.

DBGrid - компонент візуалізації, виводить інформацію, яка міститься в БД у вигляді таблиці.

TEdit - текстове поле для вводу даних.

ТComboBox - випадающій список для вибору категорій.

ТRadioGroup - панелі групи радіокнопок .

ТDBNavigator - компонент управління, дозволяє переміщуватися по полях БД, а також додавати та знищувати поля.

ТQuery - компонент формування запитів на мові SQL.

ТDataSource - виконує зв'язок між DataSet і компонентами візуалізації та управління .

ТTable - виконує доступ до таблиць БД.

ТMainMenu - дозволяє конструювати та створювати смугу головного меню форми та випадаючі меню.

Для налаштування інтерфейсу при запуску програми для компонентів були налаштовані наступні властивості: параметри шрифтів - Font, колір фону - Сolor, заголовок і текст результату який відображається в компоненті- Caption, список RadioButton в контейнері - Items, вирівнювання компонентів на формі - Aling а також відображення компонента на екрані - Visible. Таблиця зв'язується за допомогою DataSource та Table. В компоненті DBGrid вибираємо DataSource і робимо вікно активним. На екрані відображалася таблиця з полями для запису. Для заповнення RadioGroup вибираємо компонент Items.

Форма для про довідку зображена на рисунку 2.

Малюнок 2 - Форма про довідку

На формі міститься інформація про програму і компоненти такі як:

ТImage - вставка зображення.

ТMemo - компонент редагування багаторядкового тексту.

Для налаштування інтерфейсу інформація при запуску програми для компонентів були налаштовані наступні властивості: параметри шрифтів - Font, колір фону - Сolor, вирівнювання компонентів на формі - Aling, ім'я індикатора об'єкта - Name і вставка зображення - Image, щоб зображення відображувалося задамо в Picture обраний Малюнок. За допомогою Lines заповнемо довідку.

Форма для додавання, редагування та перегляду інформації про хвороби зображена на рисунку 3.

Малюнок 3 - Форма редагування та перегляд хвороб

Інформацію про програму містить наступні компоненти:

ТLabel - напис для елемента вікна або виведення текстового повідомлення.

Також на формі містяться ТMemo, TButton, TEdit та ТComboBox.

Налаштування інтерфейсу при запуску програми для компонентів були використані такі властивості як: параметри шрифтів - Font, колір фону - Сolor, ім'я індикатора об'єкта - Name та список названий RadioButton в контейнері - Items. Заповнення DBMemo відбувалося через DataField та DataSource, випадаючий список заповнюється за допомогою Items.

Для таблиці препарати переглянемо її зображена на рисунку 4.

Малюнок 4 - Форма таблиця препаратів

Інформацію про програму містить компоненти які вже використовувалися у даній програмі а саме: TButton, DBGrid, TEdit, ТDBNavigator, ТQuer, ТDataSource, ТTable, ТMainMenu.

Налаштування інтерфейсу при запуску програми для компонентів були налаштовані такими властивостями: параметри шрифтів - Font, колір фону - Сolor, заголовок і текст результату який відображається в компоненті- Caption, вирівнювання компонентів на формі - Aling а також відображення компонента на екрані - Visible. Таблиця зв'язується за допомогою DataSource та Table. В компоненті DBGrid вибираємо DataSource і робимо вікно активним. На екрані відображалася таблиця з полями для запису.

Для додавання нової категорії була розроблена допоміжна форма в таблиці категорії хвороб. Форма зображена на рисунку 5.

На формі містя такі компоненти для налаштування: DBGrid, ТDBNavigator, ТDataSource, ТTable, ТMainMenu, ТLabel, DBMemo.

Для заповнення таблиці зв'язуємо DataSource та Table. В компоненті DBGrid вибираємо DataSource і робимо вікно активним. На екрані відображалася таблиця з полями для запису. DBMemo заповнемо через DataField та DataSource.

Малюнок 5 - Форма таблиця категорій

Отже, нами були створена та розроблена форма для виконання майбутньої програми.

2.3 Програмна реалізація задачі

На даному етапі розглянемо особливості програмування інтерфейсу електронного медичного довідника “Дитячі хвороби”.

За допомоги процедури onClick виконується перехід зі стартового вікна уголовне у головне вікно програми:

// процедура яка переходу зі стартового вікна у головне вікно програми для подальшого користування.

Form3.Show;

Form1.Visible:=False;

У головному вікні програми відкривається таблиця з базою даних, в якій містять записи про хвороби. Записи в таблиці можна переглядати за допомогою процедури, яка здійснює перехід з головної форми програми на форму редагування та перегляду:

// Insert відкриває форму для додавання нового запису та зберіга при закриті

procedure TForm3.N10Click(Sender: TObject);

begin

Table1.Insert;

// за допомогою ShowModal повернемося на головну форму

Form5.ShowModal;

end;

За допомогою кнопки “Пошук по назві хвороби” ми здійснюємо блок команд :

// за допомогою Filter ми оберемо потрібну хворобу для пошуку

… Table1.Filter:='Nazva_xvorobu = '+''''+Edit1.Text+'''';

Table1.Filtered:=true; …

Для пошуку по категоріям ми використовуємо SQL запит на вибір категорії. Переглянемо це наступним записом команд:

// SQL запит, який відкриває таблицю

… Query2.SQL.Clear;

DBGrid1.DataSource:=Datasource2;

// SQL запит на пошук по Kategoria_xvorobu

Query2.SQL.Add('Select * from Xvorobu.DB where Kategoria_xvorobu ='+''''+Combobox1.Text+'''');

// в головному вікні програми з'являється пошук результату

Query2.Active:=true;

// Columns відповідає за виведення на екран таблиці з перейменованими заголовками

DBgrid1.Columns[0].Title.caption:='Назва хвороби';

DBgrid1.Columns[1].Title.caption:='Категорія хвороби';

DBgrid1.Columns[2].Title.caption:='Симптоми';

DBgrid1.Columns[3].Title.caption:='Інкубаційний період';

DBgrid1.Columns[4].Title.caption:='Про препарат'; …

Сортування даних відбувається в обробці подій onClick для RadioGroup. Це досягається наступним блоком команд:

… case RadioGroup1.ItemIndex

0:Table1.IndexName:='index1'; // сортування по назві хвороби

1:Table1.IndexName:='index2'; … // сортування по категоріям хвороби

При клацанні на кнопку “Зняття фільтрації” відбувається зняття фільтрації, яке використовується при пошуці яке обумовлене таким блоком команд:

… DBGrid1.DataSource:=Datasource1; // закриває таблицю при пошуці назви та категорій хвороб

Combobox1.Text:=''; // очищує випадаючий список від запису

Edit1.Clear; // очищює поле від запису

table1.Filtered:=false; …

На допоміжних формах при конструювані та створювані головного меню форми ми використовували наступні команди: для добавляння запису Insert, для видалення непотрібного запису Delete та Post для збереження даних.

Отже, нами були розглянуті найважливіші процедури обробки подій, що були запрограмовані для автоматизації створення програми електронного-медичного довідника “Дитячих хвороб”.

2.4 Інструкція користувача

Дана програма електронний медичний довідник дитячих хвороб призначена для перегляду, додавання, редагування, видалення та пошуку хвороб у даній таблиці.

Запуск програми здійснюється подвійним натисканням на файл Медичний_посібник.exe. Після запуску програми з'явиться головне вікно, яка буде мати вигляд зображений на рисунку 6.

Малюнок 6 - Головне вікно програми

Зміст даного вікна займає таблиця з інформацією про дитячі хвороби. В таблиці відображені такі дані, як назва хвороби, категорія хвороби, симптоми та інкубаційний період. В нижній частині вікна знаходяться кнопки для пошуку по назві та категорії хвороб, а також група перемикачів для сортування. При сортуванні в таблиці усіх записів про хвороби та категорії сортування відбувається в алфавітному порядку А у верхній частині вікна міститься навігатор для перегляду даних в таблиці. Отримати більш детальну інформацію про будь-яку хворобу з таблиці можна клацнувши на відповідний запис двома кліками після чого з'явиться вікно редагування та перегляду даних про хвороби, що зображене на рисунку 7.

Крім цього в головному вікні програми існує можливість пошуку необхідної хвороби за та категорією в базі даних. Щоб приступити до пошуку, треба натиснути кнопку “ Пошук по назві хвороби” або “ Пошук по категоріям”. Для вибору категорій з'явиться випадаючий список, з якого можна вибрати категорію. Вікно з результатом пошуку зображене на Малюнок 8.

Малюнок 7 - Вікно редагування та перегляду хвороб

Малюнок 8 - Вікно результату пошуку

Щоб вернути всі вікна до таблиці потрібно натиснути на кнопку “Зняти фільтрацію”.

При виборі в меню Препарати з'явиться допоміжне вікно, що зображено на Рисунку 9.

Малюнок 9 - Допоміжне вікно про препарати

В даному вікні можна переглядати та додавати нові записи, які заходяться в таблиці, а також здійснювати пошук за допомогою кнопки “ Пошук по назві препарату”. Результат буде виводитися в таблицю з якої легко продивлятися записи про препарати. За допомогою кнопки “Зняти фільтрацію” ви зможете повернутися до таблиці з препаратами, при винекнині ускладнень можна звернутися до довідки про програму яка заходиться в меню. За допомогою довідки ви отримаєте стислий опис, як користуватися програмою. Зображення заходиться на рисунку 10.

Ще одним допоміжним вікном в програмі є форма про таблиці категорій, зображена на рисунку 11.

При перегляді даного вікна воно відображає інформацію про кожну категорію в більш детальному та обширному обсязі. Користувач в панелі меню при натиску на категорії добавлятиме нову категорію та зберігатиме запис. Переглядаючи список категорій користувач з легкістю зможе видалити непотрібний запис за допомогою команди Delete.

При завершені програми клацнувши на хрестик вона закриється за допомогою процедури ShowModal.

Рисунку 10 - Вікно з довідкою

Рисунку 11 - Вікно таблиці з категоріями

Програма електронний медичний довідник “Дитячих хвороб” повинен бути зручним у користуванні, як для кваліфікованої так мало обізнаної людини.

Загальні висновки

Аналіз даної предметної області показав необхідність і доцільність розробки нового програмного забезпечення, щоб дати змогу автоматизувати процес обміну даних для подальшого використання даної програми.

Медичний довідник повинен містить інформацію про різні хвороби та способи їх лікування. Також можна знайти найбільш повну та актуальну інформацію про захворювання усіх систем організму людини, методи діагностики, лікування та профілактики. Медичний довідник захворювань в першу чергу стане у пригоді практикуючим лікарям різних напрямків, студентам хто цікавиться питаннями здоров'я та лікуванням хвороб. Знайти у медичному довіднику захворювань можна багато корисної інформації.

Для реалізації поставленого перед нами завдання можливо використовувати різні середовища програмування. З огляду на це виникає проблема вибору середовища програмування для створення електронно-медичного довідника. Тому для даного проекту нами було обрано середу програмування Borland Delphi 7.0 тому, як вона є інтегрованим середовищем швидкої розробки, яке має : BDE Administrator, Database Desktop, Data Control, Table, що є важливим для реалізації нашого завдання.

Для розробки програми було спроектована та створина база даних для перегляду та пошуку медичних препаратів для лікування. База даних буде складатиметься з 3 таблиць: Xvorobu, Preparat, Kategoria.

Сукупність засобів і методів взаємодії між елементами системи у широкому сенсі слова є інтерфейсом. Це визначена стандартами межа між взаємодіючими незалежними об'єктами. Інтерфейс задає параметри, процедури і характеристики взаємодії об'єктів. Дана програма складається з шести вікон. При розробці програми ми дотримувалися усіх аспектів по розробці і реалізації даної середи програмування.

Для зручного користування була розроблена інструкція користувача. В інструкції містить повна інформація про дану програму, як скористуватися та установити, а також запуск exe файлу. Після запуску програми з'явиться стартове вікно програми після чого розпочнеться робота. Після тестування та аналізу розробленої програми, були виявлені такі функції можливостей програми: додавання нових даних про хворобу, категорії, симптоми, інкубаційний період та спосіб приймання препаратів. Також видалення непотрібних записів з таблиці їх редагування та зберігання нового запису. Дотримуючись певних критерій дана програма здійснює пошук та сортування.

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

Список використаної літератури

1. Введення в Делфі 6. Электронний варіант.

2. Сухарев М.В. Основи Делфі. изд-во "Наука і техніка", С-П, 2004

3. Хомоненко А. та інші. Делфі 7, С-П. "БХВ-Петербург", 2006

4. Галисеев Г.В. Компоненти в Делфі 7. вадат-во "Діалектика", С-П, 2004

5. Силка http://www.programmersclub.ru/ahillesbd1/

6. Силка http://hvoroby.ru/

7. Силка http://tutmedic.com/ua/

8. Силка http://hvoroba.info/

9. Силка http://preparat/org/ua/

10. Андрій Сокорік Розробка Delphi Баз Даних

Додаток Б

Код програми

// модуль стартового вікна

unit Unit1;

interface

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, jpeg, ExtCtrls, StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Button1: TButton;

Image1: TImage;

Image2: TImage;

Image3: TImage;

Image4: TImage;

Image5: TImage;

Image6: TImage;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit3, Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject); // процедура для переходу зі стартового вікна уголовне

begin

Form3.Show;

Form1.Visible:=False;

end;

end.

// модуль вікна з довідкою

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, jpeg, ExtCtrls;

type

TForm2 = class(TForm)

Image1: TImage;

Memo1: TMemo;

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit1, Unit3;

{$R *.dfm}

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Form3.Visible:=true; // процедура слугує відкриття вікна з довідкою та при закриті вертає у головне вікно

Close;

end;

end.

// модуль головного вікна

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, DB, DBCtrls, Grids, DBGrids, DBTables, Mask,

Menus, OleServer, WordXP, Buttons;

type

TForm3 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

RadioGroup1: TRadioGroup;

Button8: TButton;

Edit1: TEdit;

MainMenu1: TMainMenu;

N1: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

ComboBox1: TComboBox;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

Button1: TButton;

DataSource1: TDataSource;

Table1: TTable;

Table1Nazva_xvorobu: TStringField;

Table1Kategoria_xvorobu: TStringField;

Table1Cumptomu: TStringField;

Table1Inkyb_period: TStringField;

Table1Pro_xvoroby: TStringField;

Query1: TQuery;

Query1Nazva_xvorobu: TStringField;

Query1Kategoria_xvorobu: TStringField;

Query1Cumptomu: TStringField;

Query1Inkyb_period: TStringField;

Query1Pro_xvoroby: TStringField;

Query2: TQuery;

DataSource2: TDataSource;

Button2: TButton;

BitBtn1: TBitBtn;

WordApplication1: TWordApplication;

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure DBGrid1DblClick(Sender: TObject);

procedure RadioGroup1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit1, Unit5, Unit6, Unit7, Unit2;

var MSWord: TWordApplication; MSWor: OleVariant;

{$R *.dfm}

procedure TForm3.DBGrid1DblClick(Sender: TObject);

begin

Table1.Edit;

Form6.Table1.Edit;

Form5.Caption:='Редагування та перегляд хвороб';

Form5.ShowModal;

end;

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Application.Terminate;

end;

procedure TForm3.N5Click(Sender: TObject);

begin

Form2.ShowModal; // відкриває вікно з довідкою

end;

procedure TForm3.N6Click(Sender: TObject);

begin

Form6.ShowModal; // відкриває вікно з препаратами

end;

procedure TForm3.N7Click(Sender: TObject);

begin

Form7.ShowModal; // відкриває форму з категоріями

end;

procedure TForm3.N9Click(Sender: TObject);

begin

Form5.Caption:='Редагування та перегляд хвороб';

Form5.ShowModal; // відкриває іншу форму для редагування запису

end;

procedure TForm3.N10Click(Sender: TObject);

begin

Table1.Insert; // відкриває форму для додаваня нового запису

Form6.Table1.Insert; // додає новий запис а також його зберігає

Form6.Table1.Insert;

Form5.Caption:='Додати хворобу';

Form5.ShowModal; // при закриті вертає на головну форму

end;

procedure TForm3.N11Click(Sender: TObject);

begin

Table1.Delete; // видаляє непотрібний запис з таблиці

end;

procedure TForm3.N12Click(Sender: TObject);

begin

Table1.Post; // зберігає дані в таблиці

end;

procedure TForm3.RadioGroup1Click(Sender: TObject);

begin

case RadioGroup1.ItemIndex of // сортує дані в таблиці

0:Table1.IndexName:='index1'; // сортування по назві

1:Table1.IndexName:='index2'; // сортування по категоріям

end;

end;

procedure TForm3.Button1Click(Sender: TObject);

begin

Table1.Filter:='Nazva_xvorobu = '+''''+Edit1.Text+'''';

Table1.Filtered:=true;

end;

procedure TForm3.Button8Click(Sender: TObject);

begin

Query2.SQL.Clear;

DBGrid1.DataSource:=Datasource2; // пошук категорії через SQL запрос, відкриває таблицю при пошуці з даною назвою категорії

Query2.SQL.Add('Select * from Xvorobu.DB where Kategoria_xvorobu ='+''''+Combobox1.Text+'''');

Query2.Active:=true;

DBgrid1.Columns[0].Title.caption:='Назва хвороби'; // виводить за допомогою пошуку таблицю з прейменованими заголовками

DBgrid1.Columns[1].Title.caption:='Категорія хвороби';

DBgrid1.Columns[2].Title.caption:='Симптоми';

DBgrid1.Columns[3].Title.caption:='Інкубаційний період';

DBgrid1.Columns[4].Title.caption:='Про препарат';

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

DBGrid1.DataSource:=Datasource1; // закриває таблиці при пошуці назви та категорій хвороб

Combobox1.Text:='';

Edit1.Clear;

table1.Filtered:=false;

end;

end.

// модуль вікна редагування та перегляду

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Mask, DBCtrls;

type

TForm5 = class(TForm)

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

DBEdit1: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

Label1: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

DBEdit6: TDBEdit;

DBEdit7: TDBEdit;

DBComboBox1: TDBComboBox;

DBMemo1: TDBMemo;

Button1: TButton;

Label9: TLabel;

DBEdit2: TDBEdit;

DBEdit8: TDBEdit;

Button2: TButton;

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure Button1Click(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

uses Unit3, Unit6;

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);

begin

DBedit8.Text:=DBedit1.Text; // закриває форму зберігає дані про хворобу та повертає на головну форму

Form3.Table1.Post;

Form6.Table1.Post;

Close;

end;

procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Form6.DBGrid1.DataSource:=Form6.Datasource1;

Close;

Form3.Visible:=true; // при закриті форми вертає на головну

end;

procedure TForm5.FormShow(Sender: TObject);

begin

Form6.DBGrid1.DataSource:=Form6.Datasource3;

end;

procedure TForm5.Button2Click(Sender: TObject);

begin

if (Form5.Caption='Додати хворобу') then begin

Form3.Table1.Post;

Form6.Table1.Post;

Form3.Table1.Delete;

Form6.Table1.Delete;

end;

close;

end;

end.

// модуль перегляду таблиці з препаратами

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, DB, Grids, DBGrids, DBTables, Mask, DBCtrls, ExtCtrls,

Menus;

type

TForm6 = class(TForm)

Button7: TButton;

DBNavigator1: TDBNavigator;

DBGrid1: TDBGrid;

Edit1: TEdit;

MainMenu1: TMainMenu;

N5: TMenuItem;

Table1: TTable;

DataSource1: TDataSource;

Table1Nazva_xvorobu: TStringField;

Table1Nazva_preparaty: TStringField;

Table1Cposib_prum: TStringField;

Table1Pobichna_dia: TStringField;

Table1Termin_prud: TStringField;

Button1: TButton;

Table2: TTable;

Table2Nazva_xvorobu: TStringField;

Table2Nazva_preparaty: TStringField;

Table2Cposib_prum: TStringField;

Table2Pobichna_dia: TStringField;

Table2Termin_prud: TStringField;

DataSource3: TDataSource;

Query1: TQuery;

DataSource2: TDataSource;

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure N5Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit3, Unit2;

{$R *.dfm}

procedure TForm6.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Form3.Visible:=true; // при закриті форми повертає у до головної форми

Form6.Close;

end;

procedure TForm6.N5Click(Sender: TObject);

begin

Form2.ShowModal; // відкрива вікно з довідкою

end;

procedure TForm6.Button7Click(Sender: TObject);

begin

Query1.SQL.Clear;

DBGrid1.DataSource:=Datasource2; // пошук назви препарату через SQL запрос, відкриває таблицю при пошуці з даною назвою препарату

Query1.SQL.Add('Select * from Preparat.db where Nazva_preparaty ='+''''+Edit1.Text+'''');

Query1.Active:=true;

DBgrid1.Columns[0].Title.caption:='Назва хвороби'; // виводить за допомогою пошуку таблицю з прейменованими заголовками

DBgrid1.Columns[1].Title.caption:='Назва препарату';

DBgrid1.Columns[2].Title.caption:='Спосіб приймання';

DBgrid1.Columns[3].Title.caption:='Побічна дія';

DBgrid1.Columns[4].Title.caption:='Термін придатності';

end;

procedure TForm6.Button1Click(Sender: TObject);

begin

DBGrid1.DataSource:=Datasource1;

Query1.Active:=false;

edit1.Clear; // повертає до вікна з препаратами

end;

end.

// модуль вікна для перегляду таблиці про категорії

unit Unit6;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, DB, Grids, DBGrids, DBTables, Mask, DBCtrls, ExtCtrls,

Menus;

type

TForm7 = class(TForm)

DBNavigator1: TDBNavigator;

DBGrid1: TDBGrid;

MainMenu1: TMainMenu;

N5: TMenuItem;

Label1: TLabel;

DBMemo1: TDBMemo;

DataSource1: TDataSource;

Table1: TTable;

Table1Nazva_kategori: TStringField;

Table1Pro_kategoriy: TStringField;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure N5Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

uses Unit3, Unit2;

{$R *.dfm}

procedure TForm7.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Form3.Visible:=true; // при закриті ввертає на головну форму

Close;

end;

procedure TForm7.N5Click(Sender: TObject);

begin

Form2.ShowModal; // відкриває довідку

end;

procedure TForm7.N2Click(Sender: TObject);

begin

Table1.Insert; // добавити запис у таблицю

end;

procedure TForm7.N3Click(Sender: TObject);

begin

Table1.Delete; // видаляє непотрібний запис з таблиці

end;

procedure TForm7.N4Click(Sender: TObject);

begin

Table1.Post; // зберігає дані в таблиці

end;

end.Размещено на www.allbest.ru