Написать программу в Delphi Электронная мед. карта

Ирина12 лет в сервисе

Данные заказчика будут вам доступны после подачи заявки

06.03.2013

Написать программу в Delphi «Электронная медицинская карта», которая имеет следующие компоненты:

Edit1,2,3 – ФИО, Возраст, Профессия (вводятся вручную с клавиатуры);

Edit 4- диагноз(выводится автоматически в зависимости от выбранных значений combobox2,3,4,5,6, 7)

Edit 5 – Лечение(выводится автоматически в зависимости от Edit 4(диагноза))

combobox:

combobox 1 : Пол

• Мужской

• женский

В combobox2, combobox3, combobox4 одни и те же параметры выбора: Жалобы

• Жалобы на подвижность зуба

• Жалобы на разрушеный зуб

• Боль

• Припухлость десны

• Дискомфорт

• Свищевой ход в области проекции корня

• Жалобы на припухлость лица

• Слабость

• Повышенная температура тела

• -

Combobox5: Данные объективного исследования, внешний осмотр

• Зуб разрушен, изменен в цвете, перкуссия резкоболезненная

• Зуб разрушен, изменен в цвете

• Имеется асиметрия лица за счет отека мягких тканей

Combobox6: Состояние слизистой оболочки полости рта, десен, альвеолярных отростков и неба

• Слизистая гипперемирована, отечна, резко-болезненна, при пальпации в проекции верхушки корня

• Слизистая гипперемирована, умеренно болезненна при пальпации, на слизистой в проекции верхнего корня имеется свищевой ход

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

Combobox7: Данные рентгеновских лабораторных исследований

• Гранулема на рентгенограмме имеет округлую форму с четкими краями

• Гранулема на рентгенограмме имеет округлую форму с нечеткими краями

• Расширение парадонтальной щели у верхушки корня

• -

• Деструкция костной ткани

• Гранулема на рентгенограмме имеет округлую форму

Combobox8: Прикус

• Ортогнатический

• Прямой

• Прогнатия

• Прогиния

• Перекрестный

Combobox9: ОНКО

• Отрицательно

• Положительно

Combobox10: число

• 1

• 2

• 3

• 4

• 5

• 6

• 7

• 8

• 9

• 10

• 11

• 12

• 13

• 14

• 15

• 16

• 17

• 18

• 19

• 20

• 21

• 22

• 23

• 24

• 25

• 26

• 27

• 28

• 29

• 30

• 31

Combobox11: месяц

• Январь

• Февраль

• Март

• Апрель

• Май

• Июнь

• Июль

• Август

• Сентябрь

• Октябрь

• Ноябрь

• Декабрь

Combobox12: год

• 2013

• 2014

• 2015

• 2016

• 2017

Кнопка – Распознать диагноз

1. ЕСЛИ Combobox2 = «Жалобы на подвижность зуба» И Combobox3= «Боль» И Combobox4 = «припухлость десны» И Combobox5 = «Имеется асимметрия лица за счет отека мягких тканей» И Combobox6= «Слизистая гипперемирована, отечна, резко-болезненна, при пальпации в проекции верхушки корня» И Combobox7= «Деструкция костной ткани»

ТО в Edit4(диагноз) выводится – «ПАРАДАНТИТ»

В Edit5(Лечение) выводится – «Под (интфильтрационной, палатенальной, торусальной или мандибулярной) анастеией, салюция, раствор, удален зуб, гемостаз, совет»

2. ЕСЛИ Combobox2 = «-« И

Combobox3= «Боль» И

Combobox4 = «припухлость десны» И

Combobox5 = «Зуб разрушен и изменен в цвете» И

Combobox6= «Слизистая гипперемирована, отечна, резко-болезненна, при пальпации в проекции верхушки корня» И

Combobox7 = «-«

ТО в Edit4(диагноз) выводится – «ХРОНИЧЕСКИЙ ПЕРЕОДАНТИТ СТАДИИ ОБОСТРЕНИЯ»

3. ЕСЛИ Combobox2 = «жалобы на разрушенный зуб« И Combobox3= «дискомфорт» И Combobox4 = «-» И Combobox5 = «Зуб разрушен и изменен в цвете» И Combobox6= «Слизистая обычной окраски, безболезненна при пальпации, на ренгенограмме расширение переодантальной щели у верхушки корня» И Combobox7 = «Расширение парадонтальной щели у верхушки корня»

ТО в Edit4(диагноз) выводится – «ХРОНИЧЕСКИЙ ФИБРОЗНЫЙ ПЕРЕОДАНТИТ»

4. ЕСЛИ Combobox2 = «Свищевой ход в области проекции корня» И

Combobox3= «Боль» И

Combobox4 = «припухлость десны» И

Combobox5 = «Зуб разрушен и изменен в цвете» И

Combobox6= «Слизистая гипперемирована, умеренно болезненна при пальпации, на слизистой в проекции верхнего корня имеется свищевой ход» И

Combobox7 = «Гранулема на рентгенограмме имеет округлую форму с нечеткими краями»

ТО в Edit4(диагноз) выводится – «ХРОНИЧЕСКИЙ ГРАНУЛИРУЮЩИЙ ПЕРЕОДАНТИТ»

5. ЕСЛИ Combobox2 = «-» И

Combobox3= «Боль» И

Combobox4 = «припухлость десны» И

Combobox5 = «Зуб разрушен и изменен в цвете, перкуссия резкоболезненна» И

Combobox6= «Слизистая гипперемирована, отечна, резко-болезненна, при пальпации в проекции верхушки корня» И

Combobox7 = «Гранулема на рентгенограмме имеет округлую форму с нечеткими краями»

ТО в Edit4(диагноз) выводится – «ХРОНИЧЕСКИЙ ГРАНУЛИМОТОЗНЫЙ ПЕРЕОДАНТИТ»

6. ЕСЛИ Combobox2 = «Свищевой ход в области проекции корня» И

Combobox3= «Жалобы на припухлость лица» И

Combobox4 = «слабость» И

Combobox5 = «Имеется асиметрия лица за счет отека мягких тканей» И

Combobox7 = «Гранулема на рентгенограмме имеет округлую форму»

ТО в Edit4(диагноз) выводится – «ОСТРЫЙ ПЕРЕОСТИТ»

В Edit5(Лечение) выводится – «Под (интфильтрационной, палатенальной, торусальной или мандибулярной) анастеией, сделана переостомия по переходной складки в пределах 3-х зубов. Дренаж, раствор, удален зуб, гемостаз, совет. Назначено противоспалительное лечение по протоколу»

7. ЕСЛИ Combobox2 = «Свищевой ход в области проекции корня» И

Combobox3= «Жалобы на разрушеный» И

Combobox4 = «-» И

Combobox5 = «Имеется асиметрия лица за счет отека мягких тканей» И

Combobox7 = «Гранулема на рентгенограмме имеет округлую форму с четкими краями»

ТО в Edit4(диагноз) выводится – «ГНОЙНЫЙ ПЕРЕОСТИТ»

В Edit5(Лечение) выводится – «Под (интфильтрационной, палатенальной, торусальной или мандибулярной) анастеией, салюция, раствор, удален зуб, переостамия по переходной складке в пределах 3-х зубов, гемостаз, совет.»

При нажатии кнопки печать отчета выводится отчет

Delphi