Воронеж

Россия

Написать программу в 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(диагноз) выводится – «ХРОНИЧЕСКИЙ ПЕРЕОДАНТИТ СТАДИИ ОБОСТРЕНИЯ»
В Edit5(Лечение) выводится – «Под (интфильтрационной, палатенальной, торусальной или мандибулярной) анастеией, салюция, раствор, удален зуб, гемостаз, совет»

3.	ЕСЛИ Combobox2 = «жалобы на разрушенный зуб«     И Combobox3= «дискомфорт» И Combobox4 = «-» И Combobox5 = «Зуб разрушен и изменен в цвете» И Combobox6= «Слизистая обычной окраски, безболезненна при пальпации, на ренгенограмме расширение переодантальной щели у верхушки корня» И Combobox7 = «Расширение парадонтальной щели у верхушки корня» 
ТО в Edit4(диагноз) выводится – «ХРОНИЧЕСКИЙ ФИБРОЗНЫЙ ПЕРЕОДАНТИТ»
В Edit5(Лечение) выводится – «Под (интфильтрационной, палатенальной, торусальной или мандибулярной) анастеией, салюция, раствор, удален зуб, гемостаз, совет»

4.	ЕСЛИ Combobox2 = «Свищевой ход в области проекции корня»    И 
Combobox3= «Боль» И
 Combobox4 = «припухлость десны» И 
Combobox5 = «Зуб разрушен и изменен в цвете» И
 Combobox6= «Слизистая гипперемирована, умеренно болезненна при пальпации, на слизистой в проекции верхнего корня имеется свищевой ход» И 
Combobox7 = «Гранулема на рентгенограмме имеет округлую форму с нечеткими краями»
ТО в Edit4(диагноз) выводится – «ХРОНИЧЕСКИЙ ГРАНУЛИРУЮЩИЙ ПЕРЕОДАНТИТ»
В Edit5(Лечение) выводится – «Под (интфильтрационной, палатенальной, торусальной или мандибулярной) анастеией, салюция, раствор, удален зуб, гемостаз, совет»

5.	ЕСЛИ Combobox2 = «-»    И 
Combobox3= «Боль» И
 Combobox4 = «припухлость десны» И 
Combobox5 = «Зуб разрушен и изменен в цвете, перкуссия резкоболезненна» И
 Combobox6= «Слизистая гипперемирована, отечна, резко-болезненна, при пальпации в проекции верхушки корня» И 
Combobox7 = «Гранулема на рентгенограмме имеет округлую форму с нечеткими краями»
ТО в Edit4(диагноз) выводится – «ХРОНИЧЕСКИЙ ГРАНУЛИМОТОЗНЫЙ ПЕРЕОДАНТИТ»
В Edit5(Лечение) выводится – «Под (интфильтрационной, палатенальной, торусальной или мандибулярной) анастеией, салюция, раствор, удален зуб, гемостаз, совет»

6.	ЕСЛИ Combobox2 = «Свищевой ход в области проекции корня»    И 
Combobox3= «Жалобы на припухлость лица» И
 Combobox4 = «слабость» И 
Combobox5 = «Имеется асиметрия лица за счет отека мягких тканей» И
 Combobox6= «Слизистая гипперемирована, умеренно болезненна при пальпации, на слизистой в проекции верхнего корня имеется свищевой ход» И 
Combobox7 = «Гранулема на рентгенограмме имеет округлую форму»
ТО в Edit4(диагноз) выводится – «ОСТРЫЙ ПЕРЕОСТИТ»
В Edit5(Лечение) выводится – «Под (интфильтрационной, палатенальной, торусальной или мандибулярной) анастеией, сделана переостомия по переходной складки в пределах 3-х зубов. Дренаж, раствор, удален зуб, гемостаз, совет. Назначено противоспалительное лечение по протоколу»

7.	ЕСЛИ Combobox2 = «Свищевой ход в области проекции корня»    И 
Combobox3= «Жалобы на разрушеный» И
 Combobox4 = «-» И 
Combobox5 = «Имеется асиметрия лица за счет отека мягких тканей» И
 Combobox6= «Слизистая гипперемирована, умеренно болезненна при пальпации, на слизистой в проекции верхнего корня имеется свищевой ход» И 
Combobox7 = «Гранулема на рентгенограмме имеет округлую форму с четкими краями»
ТО в Edit4(диагноз) выводится – «ГНОЙНЫЙ ПЕРЕОСТИТ»
В Edit5(Лечение) выводится – «Под (интфильтрационной, палатенальной, торусальной или мандибулярной) анастеией, салюция, раствор, удален зуб, переостамия по переходной складке в пределах 3-х зубов, гемостаз, совет.»

При нажатии кнопки печать отчета выводится отчет

Написать программу в 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(диагноз) выводится – «ХРОНИЧЕСКИЙ ПЕРЕОДАНТИТ СТАДИИ ОБОСТРЕНИЯ»
В Edit5(Лечение) выводится – «Под (интфильтрационной, палатенальной, торусальной или мандибулярной) анастеией, салюция, раствор, удален зуб, гемостаз, совет»

3.	ЕСЛИ Combobox2 = «жалобы на разрушенный зуб« И Combobox3= «дискомфорт» И Combobox4 = «-» И Combobox5 = «Зуб разрушен и изменен в цвете» И Combobox6= «Слизистая обычной окраски, безболезненна при пальпации, на ренгенограмме расширение переодантальной щели у верхушки корня» И Combobox7 = «Расширение парадонтальной щели у верхушки корня» 
ТО в Edit4(диагноз) выводится – «ХРОНИЧЕСКИЙ ФИБРОЗНЫЙ ПЕРЕОДАНТИТ»
В Edit5(Лечение) выводится – «Под (интфильтрационной, палатенальной, торусальной или мандибулярной) анастеией, салюция, раствор, удален зуб, гемостаз, совет»

4.	ЕСЛИ Combobox2 = «Свищевой ход в области проекции корня» И 
Combobox3= «Боль» И
 Combobox4 = «припухлость десны» И 
Combobox5 = «Зуб разрушен и изменен в цвете» И
 Combobox6= «Слизистая гипперемирована, умеренно болезненна при пальпации, на слизистой в проекции верхнего корня имеется свищевой ход» И 
Combobox7 = «Гранулема на рентгенограмме имеет округлую форму с нечеткими краями»
ТО в Edit4(диагноз) выводится – «ХРОНИЧЕСКИЙ ГРАНУЛИРУЮЩИЙ ПЕРЕОДАНТИТ»
В Edit5(Лечение) выводится – «Под (интфильтрационной, палатенальной, торусальной или мандибулярной) анастеией, салюция, раствор, удален зуб, гемостаз, совет»

5.	ЕСЛИ Combobox2 = «-» И 
Combobox3= «Боль» И
 Combobox4 = «припухлость десны» И 
Combobox5 = «Зуб разрушен и изменен в цвете, перкуссия резкоболезненна» И
 Combobox6= «Слизистая гипперемирована, отечна, резко-болезненна, при пальпации в проекции верхушки корня» И 
Combobox7 = «Гранулема на рентгенограмме имеет округлую форму с нечеткими краями»
ТО в Edit4(диагноз) выводится – «ХРОНИЧЕСКИЙ ГРАНУЛИМОТОЗНЫЙ ПЕРЕОДАНТИТ»
В Edit5(Лечение) выводится – «Под (интфильтрационной, палатенальной, торусальной или мандибулярной) анастеией, салюция, раствор, удален зуб, гемостаз, совет»

6.	ЕСЛИ Combobox2 = «Свищевой ход в области проекции корня» И 
Combobox3= «Жалобы на припухлость лица» И
 Combobox4 = «слабость» И 
Combobox5 = «Имеется асиметрия лица за счет отека мягких тканей» И
 Combobox6= «Слизистая гипперемирована, умеренно болезненна при пальпации, на слизистой в проекции верхнего корня имеется свищевой ход» И 
Combobox7 = «Гранулема на рентгенограмме имеет округлую форму»
ТО в Edit4(диагноз) выводится – «ОСТРЫЙ ПЕРЕОСТИТ»
В Edit5(Лечение) выводится – «Под (интфильтрационной, палатенальной, торусальной или мандибулярной) анастеией, сделана переостомия по переходной складки в пределах 3-х зубов. Дренаж, раствор, удален зуб, гемостаз, совет. Назначено противоспалительное лечение по протоколу»

7.	ЕСЛИ Combobox2 = «Свищевой ход в области проекции корня» И 
Combobox3= «Жалобы на разрушеный» И
 Combobox4 = «-» И 
Combobox5 = «Имеется асиметрия лица за счет отека мягких тканей» И
 Combobox6= «Слизистая гипперемирована, умеренно болезненна при пальпации, на слизистой в проекции верхнего корня имеется свищевой ход» И 
Combobox7 = «Гранулема на рентгенограмме имеет округлую форму с четкими краями»
ТО в Edit4(диагноз) выводится – «ГНОЙНЫЙ ПЕРЕОСТИТ»
В Edit5(Лечение) выводится – «Под (интфильтрационной, палатенальной, торусальной или мандибулярной) анастеией, салюция, раствор, удален зуб, переостамия по переходной складке в пределах 3-х зубов, гемостаз, совет.»

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

Ирина rinkaim11

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