Рабочие
места
|
Уровни
звукового давления со среднегеометрическими частотами, Гц
|
Уровни
звука и эквивалентные уровни Дба
|
Помещение
программистов вычислительных машин
|
40
|
45
|
Защита от шума: звукопоглощающие материалы,
наушники.
Пожарная безопасность
. В помещении около 100 м должен находиться
огнетушитель (углекислотный) переносной ТУ У 13 485 476.003 96 ОУ-2.
. Должна быть установлена противопожарная
сигнализация.
. Подписывается документ работниками предприятия
о том, что они ознакомлены с правилами пожарной безопасности.
В ГОСТ 12.1.005-88 указано, что при легкой (1а)
категории выполняемых работ, должны обеспечиваться:
температура воздуха в помещениях машинного зала
для холодного периода 22-24°С, для теплого периода 23-25°С;
относительная влажность воздуха 40-60%;
скорость движения воздуха не более 0,1 м/с.
Для обеспечения этих характеристик помещение
вычислительного центра оборудуется приборами центрального отопления,
кондиционерами, фильтрующими установками.
Для предотвращения поражения человека
электрическим током принимают следующие меры:
каждый пользователь ПЭВМ, впервые приступающий к
работе в данном ВЦ, должен изучить инструкции по технике безопасности при
работе на данном оборудовании и пройти инструктаж по месту работы с
обязательной пометкой в журнале регистрации;
ремонтные и профилактические работы на ЭВМ может
производить специалист, имеющий квалификационную группу по технике безопасности
не ниже третьей по работе с электрооборудованием до 1000 В;
запрещается эксплуатация ЭВМ в помещениях с
химически агрессивной средой, а также при снятых деталях корпуса;
ремонтные и профилактические работы на
электроустановках, установка и снятие корпусов ЭВМ допускается только при
отключенном электропитании;
корпуса электроустройств должны быть надежно
заземлены, сопротивление заземляющего устройства должно быть не более 4 Ом, при
напряжении свыше 1000 В - не более 10 Ом;
поверхности рабочих столов не должны быть
токопроводящими;
в электрических установках ВЦ для защиты
сотрудников от поражения электрическим током необходимо предусмотреть защитное
заземление. В помещениях ВЦ с электрооборудованием должна быть расположена шина
защитного заземления (заземляющий проводник, сечением не менее 120 кв. мм.),
соединенная с заземленной нейтралью электроустановки, от которой осуществляется
питание оборудования ВЦ. Корпуса всех технических средств ЭВМ должны быть
соединены с шиной защитного заземления. В ВЦ также должна быть проложена шина
схемного заземления, изолированная от корпусов и от шины защитного заземления;
необходимо регулярно следить за состоянием
изоляции электроарматуры и за другими электроприборами.
Для защиты персонала ВЦ от статического
электричества необходимо использовать нейтрализаторы, полы иметь
антистатическое покрытие. Допустимый уровень напряженности электростатического
поля составляет 20 кВ/м за 1 час (ГОСТ 12.1045-84).
Одним из источников электромагнитного излучения
является монитор компьютера. Так как программист/пользователь проводит основную
часть рабочего времени за компьютером, то следует снизить действие
электромагнитного излучения. Хотя результаты исследований влияния
электромагнитного излучения на организм человека противоречивы, все же следует
принять необходимые меры. Обычно применяют следующие меры:
располагают монитор на расстоянии более 30 см от
глаз;
устанавливают защитные экраны на монитор;
применение мониторов с пониженными показателями
ионизирующего излучения.
Следует также делать частые перерывы (в 1 час
работы - 10-15 минут отдыха). Людям особо чувствительным следует сократить
время работы с компьютером до минимума.
Уровень шумов не должен превышать 75 дБ. Уровень
шума IBM-совместимого компьютера составляет 25 дБ. При использовании такого
рода техники мероприятия по снижению шума не проводят.
Расчет вентиляции ВЦ
Расчет типа вентиляции
Произведем расчет количества воздуха для борьбы
с избыточным теплом по формуле:
, (3.18)
где Q - избыточное количество тепла в единицу
времени, которое определяется суммой тепловыделений в помещении за вычетом
теплопотерь;
С = 1000 Дж/(кг·К) - средняя удельная
теплоемкость воздуха;
γ = 1.215 кг/
- удельная масса воздуха, поступающего в помещение при температуре Т = 290 К;
ТП = 295 К - температура удаляемого из помещения
воздуха;
ТН = 290 К - температура при которой воздух
поступает в помещение.
Определяем избыточное количество тепла, которое
складывается из тепла, выделяемого одновременно всеми источниками в
производственном помещении, минус потери тепла через внешние ограждения и
оконные проемы:
, (3.19)
где -
количество тепла, выделяемого одновременно всеми источниками в производственном
помещении;
- потери тепла
через внешние ограждения и оконные проемы.
Расчитаем количество тепла, выделяемого
одновременно всеми источниками в производственном помещении:
, (3.20)
где -тепловыделения
от оборудования;
-тепловыделения от
людей;
-тепловыделения от
искусственного освещения;
-тепловыделения от
солнечной радиации.
Определим тепловыделения от оборудования по
формуле:
= (3.21)
Вт ,
где =
100 Вт - номинальная мощность единицы оборудования;
= 6 шт. -
количество единиц оборудования.
Определим тепловыделения тепловыделения от людей
по формуле:
Вт , (3.22)
где =
5 человек - количество людей, работающих в ВЦ.
Определим тепловыделения от искусственного
освещения по формуле:
Вт , (3.23)
где =
250 Вт - мощность одной лампы накаливания;= 15 шт. - количество ламп
накаливания.
Определим тепловыделения от солнечной радиации
по формуле:
Вт , (3.24)
где F = 15 -
площадь световых проемов;= 144 ккал/(ч·)
- количество теплоты, вносимой радиацией через световые проемы, так как фонарей
нет, то тепловыделения через фонари не учитывается.
Найденные данные подставляем и получаем
результат:
Вт
Рассчитаем потери тепла через внешние ограждения
и оконные проемы:
, (3.25)
где -
потери тепла через внешние ограждения;
- потери тепла
через оконные проемы.
Теплопотери через внешние ограждения будут равны
нулю, так как внешних ограждений нет, т. е. =
0 Вт.
Определим теплопотери через оконные проемы по
формуле:
(3.26)
Вт ,
где F = 15 -
площадь световых проемов;
к = 2.6 ккал/(ч·)
- коэффициент теплопередачи оконных проемов;
ТП = 295 К - температура удаляемого из помещения
воздуха;
ТН = 290 К - температура при которой воздух
поступает в помещение.
Найденные данные подставляем и получаем
результат:
Вт .
Найденные данные подставляем и получаем
результат:
Вт
Найденные данные подставляем и получаем, что
количество воздуха для борьбы с избыточным теплом равно:
.
Произведем расчет кратности воздухообмена, по
формуле:
, (3.27)
где L = 4006 -
количество воздуха для борьбы с избыточным теплом;
= 60 -
объем помещения.
Так как кратность воздухообмена больше 30, то
необходимо рассчитать механическую вентиляцию.
Выбор вентилятора
Вентилятор центробежный типа Ц4-70 №10.
Производительность вентилятора: L = 5000
Полное давление: P = 200 Па.
Окружная скорость колеса: 20 м/с.
Количество оборотов в минуту: 300 об/мин.
Определим потребную мощность на валу
электродвигателя N в кВт при перемещении чистого воздуха для стандартных
условий:
(3.28)
кВт ,
где L = 5000 -
производительность вентилятора;=200 Па - полное давление;
=0.6 - КПД
вентилятора;
= 1.0 - КПД
передачи, вентилятор насажен на вал электродвигателя.
Определим установленную мощность
электродвигателя Nу с учетом запаса в кВт:
кВт . (3.29)
где Кз = 1.15 - коэффициент запаса мощности;=
4.5 кВт - потребная мощность на валу электродвигателя.
.3.9 Гражданская оборона
Анализ чрезвычайной ситуации
Чрезвычайная ситуация (ЧС) - нарушение
нормальных условий жизни и деятельности людей на объекте или территории,
пораженных аварией, катастрофой, стихийным бедствием или другими небезопасными
факторами, которые привели (могут привести) к гибели людей и (или) значительным
материальным затратам.
Общими признаками ЧС являются:
гибель или угроза гибели людей либо серьезное
нарушение условий их жизнедеятельности;
наличие экономических убытков;
существенное ухудшение условий окружающей среды.
Классификацию ЧС, которые могут произойти с
гражданами и имуществом Украины на территории других государств, проводят
согласно с законодательством соответствующего государства или нормами
межгосударственного права. Целью классификации ЧС является образование
эффективного механизма оценки событий, которые произошли или могут произойти в
прогнозируемый срок и определить степень реагирования на соответствующем уровне
управления.
Согласно причинам возникновения ЧС, которые
могут возникнуть на территории Украины, они делятся:
ЧС природного характера;
ЧС социально-политического характера;
ЧС военного характера;
ЧС техногенного характера.
ЧС военного характера - это ситуация,
возникающая в результате применения оружия массового поражения (ядерного,
химического, биологического) и других видов оружия, а также применения обычного
способа поражения, в результате чего разрушаются АС, склады радиоактивных
веществ, создающие вокруг себя зоны радиоактивного и химического заражения.
Причинами возникновения ЧС техногенного
характера могут служить следующие:
значительное количество технически отсталых
производств;
использование в производстве потенциально
опасных веществ;
неотлаженная должным образом контрольная
деятельность на производстве вследствие появления большого количества малых
производств;
возрастание количества случаев нарушения техники
безопасности;
неудовлетворительное положение дел с утилизацией
и захоронением высокотоксичных отходов.
ЧС также классифицируются по следующим уровням:
общегосударственный. Такая ЧС происходит на
территории двух и более областей, или угрожает перенесением в другие области, а
также если для ликвидации ЧС требуются материальные и технические ресурсы в
объемах, превышающих собственные возможности отдельной области;
региональный;
местный;
объектный.
Определим чрезвычайные ситуации техногенного
характера наиболее вероятные в вычислительном центре:
Пожар (взрыв) в сооружениях, коммуникациях и
технологическом оборудовании на промышленных объектах.
Аварии на тепловых сетях (система подачи горячей
воды) в холодное время года.
Разрушение зданий и сооружений.
Оценка ожидаемой пожарной обстановки
Пожарная обстановка на объекте - это обстановка
которая может возникнуть в результате чрезвычайных ситуаций военного и мирного
времени, связанных с действием световых импульсов от ядерных (и других)
взрывов. С действием инфракрасного излучения открытого огня (например, при
пожаре на каком - либо объекте), с действием вторичных факторов (например, при
возникновении пожаров от разрушенных элементах объекта вследствие короткого
замыкания повреждённой энергосети), а также с действием стихийных бедствий
(например, возникновение пожаров от удара молнии).
Выделяют три зоны пожара на объекте:
зона отдельных пожаров;
зона сплошных пожаров;
зона горения и тления в завалах.
Исходные данные для проведения анализа и оценки
пожарной обстановки приведены в таблице 3.8.
Таблица 3.8
Данные для проведения анализа и оценки пожарной
обстановки
Тип
здания.
|
Здание
построено с несущими и ограждающими конструкциями из кирпича с деревянной
кровлей, покрытой шифером.
|
Шторы,
находящиеся в здании.
|
Хлопчатобумажные.
|
Дверные
и оконные проёмы.
|
Деревянные,
окрашенные в темный цвет.
|
Расстояние
от автостанции до объекта , м.
|
300
|
Количество
горючего вещества, т
|
150
|
|
|
|
Определить устойчивость объекта (ВЦ) к
воздействию инфракрасного излучения в результате пожара на автомобиле
заправщике, находящегося на автостанции на расстояние 300 м от ВЦ.
Исходя из типа здания определяем, что оно
относится к третьей степени огнеустойчивости. Категория взрывопожарной
обстановки - Д.
Вероятность возникновения отдельных пожаров
зависит от степени огнеустойчивости зданий и сооружений, а возникновение сплошных
пожаров - от плотности застройки данного участка объекта.
Величина радиусов внешних границ зон отдельных
пожаров и зон сплошных пожаров определяется последующим формулам:
(3.30)
(3.31)
где -
удельная теплоемкость горючего вещества;- масса горючего вещества.
Удельная теплоемкость бензина [Дж/кг].
Учитывая расположение элементов объекта
относительно внешних границ пожаров, определим плотность энергии инфракрасного
излучения пожара на стоянке, которое действует на объект.
(3.32)
где -
величина плотности энергии инфракрасного излучения от пожара,[Дж/м];
- удельная
теплоемкость горючего вещества, [Дж/кг].- масса горючего вещества, [кг].-
расстояние от центра пожара к конкретному объекту.
.
Величина радиуса огня пожара при разливе и
возгорании бензина определяют по следующей формуле:
, (3.33)
где -
удельный вес бензина, [т/м], .
.
Схема расположения ВЦ относительно источника
пожара приведена на рис. 3.18.
Рис. 3.18. Схема расположения ВЦ относительно
источника пожара:
- зона горения ;
- зона сплошных пожаров;
- зона отдельных пожаров.
По таблице определим устойчивость объекта к
инфракрасного импульса.
Таблица 3.9
Данные для определения устойчивости объекта к
инфракрасного импульса
Материалы
|
Возгорание
|
Горение
|
Ткань
шерстяная
|
1250
- 1450
|
2100
- 3000
|
Доски
деревянные, окрашенные в черный цвет
|
250
- 420
|
840
- 1250
|
Ткань
хлопчатобумажная
|
500
- 750
|
840
- 1500
|
Выводы по разделу
В результате разработки элементов бизнес-плана
были получены следующие результаты:
затраты на разработку - 9484,08 грн.;
затраты на тиражирование и адаптацию -341,98
грн.;
цена одной копии программного продукта - 599
грн.
При реализации 24 копии программного продукта
доходы от реализации превысят совокупные расходы, что сделает проект
рентабельным.
По оценке ожидаемой пожарной обстановке, которая
может возникнуть на территории вычислительного центра:
Исследуемый объект находится вне зоны сплошных
пожаров и зоны отдельных пожаров.
Потерь производственных фондов нет, так - как
инфракрасный импульс, возникший вследствие пожара не вызовет пожара в
помещении.
Мероприятия, которые можно провести по повышению
огнеустойчивости:
регулярное очищение зоны от временных завалов;
повышение огнеустойчивости кровли (замена толи
рубероидом);
предотвращение проникновению световых импульсов
и инфракрасного излучения в ВЦ путем покраски в белый цвет оконных рам и
дверей, использование жалюзи.
ЗАКЛЮЧЕНИЕ
В рамках данной выпускной работы было
разработано программное обеспечение для ведения учета пациентов в регистратуре
поликлиники. Внедрение такого программного продукта в поликлинику позволило бы
перевести ее на безбумажное ведение амбулаторных карточек пациента, и
автоматизировать большинство операций непосредственно не относящихся к
врачебной деятельности и тем самым уменьшить трудоемкость медицинских служб.
Разработанный программный продукт позволит
повысить эффективность работы медицинского персонала и качество оказания
медицинской помощи, и сократить затраты на создание и заполнение амбулаторной
карточки пациента.
Разработка и внедрение систем ведения
электронной истории болезни по-прежнему остаются уделом крупных университетских
медицинских центров, а массовому распространению таких систем препятствуют отсутствие
необходимых средств для создания корпоративных сетей медицинских учреждений
общественного здравоохранения, соответствующего регулирования в действующем
законодательстве, сила традиций во врачебной практике, недостаточно развитая
стандартизация медицинской терминологии и процедур обмена медицинскими данными.
Основной итог международных конгрессов по медицинской информатике - без
электронной истории болезни нельзя создать ни достаточно эффективных систем
обеспечения принятия медицинских решений, ни экономически оправданных
телемедицинских технологий.
В выпускной работе были разработаны основные
элементы бизнес-плана. Исследован предполагаемый рынок сбыта. Предполагаемый
объем реализации составляет 54 копии программы. Предполагаемая цена одной копии
599 грн. Указанная цена является вполне приемлемой для потенциальных клиентов и
конкурентоспособной. В разделе по БЖД была рассмотрено выявление и анализ
вредных и опасных факторов действующих в условиях ВЦ, и разработаны мероприятия
по снижению или исключению опасных факторов.
На основании анализа актуальности разработки,
возможностей, предоставляемых программным продуктом, и результатов бизнес-плана
можно сказать, что рассматриваемая система будет использоваться на территории
Украины.
АННОТАЦИЯ
Повышение эффективности работы поликлиники за
счет внедрения автоматизированной системы учета пациентов, дипломная работа.
Ключевые слова: медицинские автоматизированные
информационные системы, реляционная модель данных, структура базы данных,
программные средства, маркетинговые исследования, оценка рынка сбыта,
сегментирование, трудоемкость работ, смета затрат, уровень качества.
Объект исследования: В качестве объекта
автоматизации в данной работе выбрано медицинское учреждение, регистратура
поликлиники.
Методы исследования: Для написания программного
обеспечения использовалась реляционная модель данных, среда программирования
Delphi, СУБД Oracle.
Проведен обзор медицинских автоматизированных
информационных систем, на основе анализа проведено моделирование автоматизированной
системы «Регистратура»; проведены испытания и экономическое обоснование АС
«Регистратура»
Полученные результаты: В рамках данной дипломной
работы было разработано программное обеспечение для ведения учета пациентов в
регистратуре поликлиники. Был разработан бизнес-план разработки и реализации
данной системы. Разработанный программный продукт позволит повысить
эффективность работы медицинского персонала и качество оказания медицинской
помощи, и сократить затраты на создание и заполнение амбулаторной карточки
пациента.
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ
автоматизированная система учет
Закон
Украины №2801-XII от 19.09.1992 г. «Основы законодательства Украины про охрану
здоровья»
Медична
облікова документація, що використовується в поліклініках (амбулаторіях) МОЗ
України, Київ, 1999 р.
Медична
облікова документація, що використовується в сиационарах МОЗ України, Київ,
1999 р.
Методические
указания по дипломному проектированию для студентов дневной формы обучения по
специальности 7.080401 "Информационные управляющие системы и
технологии"
Единая
система программной документации. -М: Издательство стандартов, 1988.
Гради
Буч. Объектно-ориентированный анализ и проектирование. -М.: Издательство Бином
Бойко
В.В., Савинков В.М. Проектирование информационной базы автоматизированной
системы на основе СУБД. - М.: Финансы и статистика, 1982.
Джексон
Г. Проектирование реляционных баз данных для использования с микро-ЭВМ. - М.:
Финансы и статистика, 1991.
Маклаков
С.В. BPWin и ERWin CASE-средства разработки информационных систем. - М.: ДИАЛОГ
МИФИ, 2000.
Грин
Д., Кнут Д. Математические методы анализа алгоритмов. - М. Мир, Овсяникова
М.В., Федин В.А. Функциональные зависимости и нормализация реляционных БД.
Методическое пособие. -М: Моск. Энерг. Инст., 1987.
Гудман
С. Введение в разработку и анализ алгоритмов. - М.: Мир, 1981.
Ульман
Дж. Основы систем баз данных. - М.: Финансы и статистика, 1983.
Система
управления госпиталем «MedTrak». Адрес в Интернете www.sparm.com/medtrak
Госпитальная
информационная система «Авиценна». Адрес в Интернете www.medmail.ru/medstat
Программный
комплекс «Управление поликлиникой». Адрес в Интернете www.medik.ru/polik
Медицинская
информационная система «Амулет-клиника». Адрес в Интернете
www.klinika.com/amylet
Система
«MedWork» компании Master Labs. Адрес в Интернете www.medwork
<http://www.medwork>.ru
Фаронов
В.В. Delphi3 Учебный курс- М: Издательство "Нолидж",1998.
Баас.Р.,Фервай
М., Гюнтер Х. Delphi 4 Для пользователя, BHV Киев, 1999.
Урман
С. Oracle 8. Программирование на языке PL/SQL. - М.: Лори, 1999.
Дейт
К. Дж. Введение в системы баз данных. - М: Вильямс, 1999.
Борзов
Ю.В. Методы тестирования и отладки программ ЭВМ. - Рига, ЛГУ им. П. Стучки,
1980.
Майерс
Г.Д. Надёжность программного обеспечения. - М.: Мир, 1980.
Майерс
Г.Д. Искусство тестирования программ. - М.: Финансы и статистика, 1982.
Г.Майерс
“Надежность программного обеспечения”./пер. с англ. под ред. Б.А.Позина -
М.:Финансы и статистика 1982 - 176 стр.
Липаев
В.В. “Качество программного обеспечения”.М.:Мир, 1983.
Боэм
Б. и др. “Характеристики качества программного обеспечения”. М.:Мир, 1981.
К.Г.Гусев
“Основы теории надежности”.Харьков ХАИ 1975.
С.
Канер, Д.Фолк, Е.К.Нгуен “Тестирование программного обеспечения ” /Пер. на
русский язык. Издательство “ДиаСофт”, 2000г.
Пелих
А.С. Бизнес план или как организовать собственный бизнес.-М.: Ось-89, 1997.
Тони
Скоун . Управленческий учёт .-М.: Аудит,Юнити,1997.
Закон
Украины об охране окружающей природной среды от 25.06.91г.
Закон
Украины об охране труда от 25.11.92г.
Долин
П.А. Справочник по технике безопасности.-М.:Энергоатомиздат, 1984.
ОНТП
10-90. Общесоюзные нормы технологического проектирования. Определение категорий
зданий и сооружений по взрывопожарной и пожарной опасности.-М.: Стройиздат,
1991.
СНиП
2.01.02-85. Строительные нормы и правила. Противопожарные нормы проектирования
зданий и сооружений.-М.:Стройиздат, 1986.
ГОСТ
12.0.003-74. 1ССБТ. Опасные и вредные производственные факторы. Классификация.
- Введ. 01.01.76.
ГОСТ
12.1.004-91 СББТ. Пожарная безопасность. Общие требования.-Введ.01.01.87.
ПРИЛОЖЕНИЕ
Листинг программного обеспечения
unit Main;, Messages, SysUtils,
Classes, Graphics, Controls, Forms, Dialogs,Constants,, ComCtrls;=
class(TForm): TStatusBar;FormActivate(Sender: TObject);
{ Private declarations }
{ Public declarations };:
TMainForm;Module;
{$R
*.DFM}TMainForm.FormActivate(Sender: TObject);S:String;
//if Date
>StrToDateTime('12.06.2002') then Close;People_DTYPE of
:S:
:S:=
:S:=' врач ';
:S:=';.Panels[0].Text:='
'+S+People_F+' '+People_I+' '+People_O;.QRengen.DataBaseName:=g_NSILocation;.QRengen1.DataBaseName:=g_NSILocation;.QFlurka.DataBaseName:=g_NSILocation;.QFlurka1.DataBaseName:=g_NSILocation;.QLifeFun.DataBaseName:=g_NSILocation;.QLifeFun1.DataBaseName:=g_NSILocation;.QKartaUpdate.DataBaseName:=g_NSILocation;.QKarta.DataBaseName:=g_NSILocation;.QKartaSt.DataBaseName:=g_NSILocation;.QVesRost.DataBaseName:=g_NSILocation;.QHistory.DataBaseName:=g_NSILocation;.QZabolevan.DataBaseName:=g_NSILocation;.QTravmi.DataBaseName:=g_NSILocation;.QOperat.DataBaseName:=g_NSILocation;.QSanator.DataBaseName:=g_NSILocation;.QNasledst.DataBaseName:=g_NSILocation;.QPrivivka.DataBaseName:=g_NSILocation;.QPrivichka.DataBaseName:=g_NSILocation;.QOsob_notes.DataBaseName:=g_NSILocation;.QPeriodOsm.DataBaseName:=g_NSILocation;.QZaklDiag.DataBaseName:=g_NSILocation;.QNaprAnaliz.DataBaseName:=g_NSILocation;.QRecept.DataBaseName:=g_NSILocation;.QOsvobWork.DataBaseName:=g_NSILocation;.QHistoryDate.DataBaseName:=g_NSILocation;.QKarta.Open;;.PeopleList;,
Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, Wwdbigrd,
Wwdbgrid, ExtCtrls, ComCtrls,NsiTypes;= class(TForm): TTreeView;: TSplitter;:
TwwDBGrid;FormActivate(Sender: TObject);TVExpanding(Sender: TObject; Node:
TTreeNode;AllowExpansion: Boolean);TVChange(Sender: TObject; Node:
TTreeNode);TVDblClick(Sender: TObject);wwDBGrid1DblClick(Sender:
TObject);AddKarta(Sender: TObject);RebuildTree;ExpandLevel( Node : TTreeNode);
{ Private declarations }
{ Public declarations };:
TPeopleListForm;Module, People;
{$R *.DFM}
{ TPeopleListForm
}TPeopleListForm.RebuildTree;
//LastNode:=nil;.Tag:=1;.Items.BeginUpdate;.Items.Clear;.Items.EndUpdate;.Tag:=0;(nil);TV.Items.Count>0
then.Selected:=TV.Items[0];
//
LastNode:=TV.Items[0];;;TPeopleListForm.ExpandLevel(Node: TTreeNode);ID , i :
Integer;: TTreeNode;:String;:TNSI;_ID:Word;Node = nil Then ID:=0 Else
ID:=Integer(Node.Data);.Items.BeginUpdate;ID = 0
then:=TLineNSI.Create(nil,nil,nil,'NsiStreet','');.RefreshHead;i:=1 To
N1.HeadData.RecordCount Do
{ fio:=DM.QKarta.FieldByName('NUMKART').AsString+'
'+.QKarta.FieldByName('F').AsString+'
'+(DM.QKarta.FieldByName('I').AsString,1,1)+'.'+(DM.QKarta.FieldByName('O').AsString,1,1)+'.';}:=TV.Items.AddChildObject(Node
,N1.HeadData.FieldByName('NAME').AsString,(N1.HeadData.FieldByName('KOD').AsInteger));.Items.AddChildObject(TreeNode,'',
nil);.HeadData.Next;;elseNode.Level = 0
then_ID:=DM.QKartaSt.ParamByName('ID_ST').asInteger;.QKartaSt.Close;.QKartaSt.ParamByName('ID_ST').asInteger:=Integer(Node.Data);.QKartaSt.Open;not
DM.QKartaSt.Eof do:=DM.QKartaSt.FieldByName('NUMKART').AsString+'
'+.QKartaSt.FieldByName('F').AsString+'
'+(DM.QKartaSt.FieldByName('I').AsString,1,1)+'.'+(DM.QKartaSt.FieldByName('O').AsString,1,1)+'.';:=TV.Items.AddChildObject(Node
,fio,(DM.QKartaSt.FieldByName('ID').AsInteger));.ImageIndex:=1;.SelectedIndex:=2;.QKartaSt.Next;;.QKartaSt.Close;.QKartaSt.ParamByName('ID_ST').asInteger:=Old_ID;.QKartaSt.Open;TV.Selected<>nilDM.QKartaSt.Locate('ID',Integer(TV.Selected.Data),[]);;;.Free;.Items.EndUpdate;;;TPeopleListForm.FormActivate(Sender:
TObject);;;TPeopleListForm.TVExpanding(Sender: TObject; Node:
TTreeNode;AllowExpansion: Boolean);Node = nil Then Exit;Node.getFirstChild.Data
=
nilBegin.DeleteChildren;(Node);;;TPeopleForm.ShowFlurkaTable(ID:Word);Col:TColumn;(Panel6);DM.QFlurka
donot Active
then;('ID_KARTA').asInteger:=DM.QKarta.FieldByName('ID').asInteger;;;.Columns.Clear;:=DBGrid1.Columns.Add;.FieldName:='PDATE';.Width:=64;.Title.Caption:.Alignment:=taLeftJustify;:=DBGrid1.Columns.Add;.FieldName:='RES';.Width:=522;.Title.Caption:.Alignment:=taLeftJustify;ID<>0
then Locate('ID',ID,[]) else
First;.DataSource2.DataSet:=DM.QFlurka;;;TPeopleForm.TVDblClick(Sender:
TObject);TV.Selected<>nil thenTV.Selected.Level of
:begin end;
:beginTV.Selected.Parent.Index of
:try:=TEditHistoryForm.Create(Self);(EditHistoryForm,DM.QHistory,ShowHistoryTable);.Free;;
:try:=TEditLifeFunForm.Create(Self);(EditLifeFunForm,DM.QLifeFun,ShowLifeFunTable);.Free;;
:try:=TEditVesRostForm.Create(Self);(EditVesRostForm,DM.QVesRost,ShowVesRostTable);.Free;;
:try:=TEditPeriodOsmForm.Create(Self);(EditPeriodOsmForm,DM.QPeriodOsm,ShowPeriodOsmTable);.Free;;
:try:=TEditZaklDiagForm.Create(Self);(EditZaklDiagForm,DM.QZaklDiag,ShowZaklDiagTable);.Free;;
:try:=TEditNaprAnalizForm.Create(Self);(EditNaprAnalizForm,DM.QNaprAnaliz,ShowNaprAnalizTable);.Free;;
:try:=TEditReceptForm.Create(Self);(EditReceptForm,DM.QRecept,ShowReceptTable);.Free;;
:try:=TEditRengenForm.Create(Self);(EditRengenForm,DM.QRengen,ShowRengenTable);.Free;;
:try:=TEditFlurkaForm.Create(Self);(EditFlurkaForm,DM.QFlurka,ShowFlurkaTable);.Free;;
:try:=TEditOsvobWorkForm.Create(Self);(EditOsvobWorkForm,DM.QOsvobWork,ShowOsvobWorkTable);.Free;;;{case};
:if
TV.Selected.Parent.Parent.Index=2 then//АнамнезTV.Selected.Parent.Index of
:try:=TEditZabolevanForm.Create(Self);(EditZabolevanForm,DM.QZabolevan,ShowZabolevanTable);.Free;;
:try:=TEditTravmiForm.Create(Self);(EditTravmiForm,DM.QTravmi,ShowTravmiTable);.Free;;
:try:=TEditOperatForm.Create(Self);(EditOperatForm,DM.QOperat,ShowOperatTable);.Free;;
:try:=TEditSanatorForm.Create(Self);(EditSanatorForm,DM.QSanator,ShowSanatorTable);.Free;;
:try:=TEditNasledstForm.Create(Self);(EditNasledstForm,DM.QNasledst,ShowNasledstTable);.Free;;
:try:=TEditPrivivkaForm.Create(Self);(EditPrivivkaForm,DM.QPrivivka,ShowPrivivkaTable);.Free;;
:try:=TEditPrivichkaForm.Create(Self);(EditPrivichkaForm,DM.QPrivichka,ShowPrivichkaTable);.Free;;
:try_notesForm:=TEditOsob_notesForm.Create(Self);(EditOsob_notesForm,DM.QOsob_notes,ShowOsob_notesTable);_notesForm.Free;;;{case};;{case};;TPeopleForm.DBGrid1DblClick(Sender:
TObject);LastNode<>nil thenLastNode.Level of
:beginLastNode.Index of
:try:=TEditHistoryForm.Create(Self);(EditHistoryForm,DM.QHistory,ShowHistoryTable);.Free;;
:try:=TEditLifeFunForm.Create(Self);(EditLifeFunForm,DM.QLifeFun,ShowLifeFunTable);.Free;;
:try:=TEditVesRostForm.Create(Self);(EditVesRostForm,DM.QVesRost,ShowVesRostTable);.Free;;
:try:=TEditPeriodOsmForm.Create(Self);(EditPeriodOsmForm,DM.QPeriodOsm,ShowPeriodOsmTable);.Free;;
:try:=TEditZaklDiagForm.Create(Self);(EditZaklDiagForm,DM.QZaklDiag,ShowZaklDiagTable);.Free;;
:try:=TEditNaprAnalizForm.Create(Self);(EditNaprAnalizForm,DM.QNaprAnaliz,ShowNaprAnalizTable);.Free;;
:try:=TEditReceptForm.Create(Self);(EditReceptForm,DM.QRecept,ShowReceptTable);.Free;;
:try:=TEditRengenForm.Create(Self);(EditRengenForm,DM.QRengen,ShowRengenTable);.Free;;
:try:=TEditFlurkaForm.Create(Self);(EditFlurkaForm,DM.QFlurka,ShowFlurkaTable);.Free;;
:try:=TEditOsvobWorkForm.Create(Self);(EditOsvobWorkForm,DM.QOsvobWork,ShowOsvobWorkTable);.Free;;;{case
};
:beginTV.Selected.Parent.Index of
:try:=TEditHistoryForm.Create(Self);(EditHistoryForm,DM.QHistory,ShowHistoryTable);.Free;;TV.Selected.Index
of
:try:=TEditZabolevanForm.Create(Self);(EditZabolevanForm,DM.QZabolevan,ShowZabolevanTable);.Free;;
:try:=TEditTravmiForm.Create(Self);(EditTravmiForm,DM.QTravmi,ShowTravmiTable);.Free;;
:try:=TEditOperatForm.Create(Self);(EditOperatForm,DM.QOperat,ShowOperatTable);.Free;;
:try:=TEditSanatorForm.Create(Self);(EditSanatorForm,DM.QSanator,ShowSanatorTable);.Free;;
:try:=TEditNasledstForm.Create(Self);(EditNasledstForm,DM.QNasledst,ShowNasledstTable);.Free;;
:try:=TEditPrivivkaForm.Create(Self);(EditPrivivkaForm,DM.QPrivivka,ShowPrivivkaTable);.Free;;
:try:=TEditPrivichkaForm.Create(Self);(EditPrivichkaForm,DM.QPrivichka,ShowPrivichkaTable);.Free;;
:try_notesForm:=TEditOsob_notesForm.Create(Self);(EditOsob_notesForm,DM.QOsob_notes,ShowOsob_notesTable);_notesForm.Free;;;{case};
:try:=TEditLifeFunForm.Create(Self);(EditLifeFunForm,DM.QLifeFun,ShowLifeFunTable);.Free;;
:try:=TEditVesRostForm.Create(Self);(EditVesRostForm,DM.QVesRost,ShowVesRostTable);.Free;;
:try:=TEditPeriodOsmForm.Create(Self);(EditPeriodOsmForm,DM.QPeriodOsm,ShowPeriodOsmTable);.Free;;
:try:=TEditZaklDiagForm.Create(Self);(EditZaklDiagForm,DM.QZaklDiag,ShowZaklDiagTable);.Free;;
:try:=TEditNaprAnalizForm.Create(Self);(EditNaprAnalizForm,DM.QNaprAnaliz,ShowNaprAnalizTable);.Free;;
:try:=TEditReceptForm.Create(Self);(EditReceptForm,DM.QRecept,ShowReceptTable);.Free;;
:try:=TEditRengenForm.Create(Self);(EditRengenForm,DM.QRengen,ShowRengenTable);.Free;;
:try:=TEditFlurkaForm.Create(Self);(EditFlurkaForm,DM.QFlurka,ShowFlurkaTable);.Free;;
:try:=TEditOsvobWorkForm.Create(Self);(EditOsvobWorkForm,DM.QOsvobWork,ShowOsvobWorkTable);.Free;;;{case};
:if
TV.Selected.Parent.Parent.Index=2 thenTV.Selected.Parent.Index of
:try:=TEditZabolevanForm.Create(Self);(EditZabolevanForm,DM.QZabolevan,ShowZabolevanTable);.Free;;
:try:=TEditTravmiForm.Create(Self);(EditTravmiForm,DM.QTravmi,ShowTravmiTable);.Free;;
:try:=TEditOperatForm.Create(Self);(EditOperatForm,DM.QOperat,ShowOperatTable);.Free;;
:try:=TEditSanatorForm.Create(Self);(EditSanatorForm,DM.QSanator,ShowSanatorTable);.Free;;
:try:=TEditNasledstForm.Create(Self);(EditNasledstForm,DM.QNasledst,ShowNasledstTable);.Free;;
:try:=TEditPrivivkaForm.Create(Self);(EditPrivivkaForm,DM.QPrivivka,ShowPrivivkaTable);.Free;;
:try:=TEditPrivichkaForm.Create(Self);(EditPrivichkaForm,DM.QPrivichka,ShowPrivichkaTable);.Free;;
:try_notesForm:=TEditOsob_notesForm.Create(Self);(EditOsob_notesForm,DM.QOsob_notes,ShowOsob_notesTable);_notesForm.Free;;;{case};;{case};;TPeopleForm.ShowLifeFunTable(ID:
Word);Col:TColumn;(Panel6);DM.QLifeFun donot Active
then;('ID_KARTA').asInteger:=DM.QKarta.FieldByName('ID').asInteger;;;.Columns.Clear;:=DBGrid1.Columns.Add;.FieldName:='PDATE';.Width:=64;.Title.Caption:.Alignment:=taLeftJustify;:=DBGrid1.Columns.Add;.FieldName:='TEMPER';.Width:=76;.Title.Caption:.Alignment:=taLeftJustify;:=DBGrid1.Columns.Add;.FieldName:='AD_S';.Width:=140;.Title.Caption:.Alignment:=taLeftJustify;:=DBGrid1.Columns.Add;.FieldName:='AD_D';.Width:=148;.Title.Caption:=.Alignment:=taLeftJustify;ID<>0
then Locate('ID',ID,[]) else
First;.DataSource2.DataSet:=DM.QLifeFun;;;TPeopleForm.ShowVesRostTable(ID:
Word);Col:TColumn;(Panel6);DM.QVesRost donot Active
then;('ID_KARTA').asInteger:=DM.QKarta.FieldByName('ID').asInteger;;;.Columns.Clear;:=DBGrid1.Columns.Add;.FieldName:='PDATE';.Width:=64;.Title.Caption:.Alignment:=taLeftJustify;:=DBGrid1.Columns.Add;.FieldName:='VES';.Width:=87;.Title.Caption.Alignment:=taLeftJustify;:=DBGrid1.Columns.Add;.FieldName:='ROST';.Width:=97;.Title.Caption:=.Alignment:=taLeftJustify;ID<>0
then Locate('ID',ID,[]) else First;.DataSource2.DataSet:=DM.QVesRost;;;TPeopleForm.ShowHistoryTable(ID:
Word);Col:TColumn;(Panel6);DM.QHistory donot Active
then;('ID_KARTA').asInteger:=DM.QKarta.FieldByName('ID').asInteger;;;.Columns.Clear;:=DBGrid1.Columns.Add;.FieldName:='PDATE';.Width:=64;.Title.Caption:.Alignment:=taLeftJustify;:=DBGrid1.Columns.Add;.FieldName:='DNAME';.Width:=241;.Title.Caption:.Alignment:=taLeftJustify;:=DBGrid1.Columns.Add;.FieldName:='FIO';.Width:=200;.Title.Caption:.Alignment:=taLeftJustify;:=DBGrid1.Columns.Add;.FieldName:='NOTE';.Width:=100;.Title.Caption:.Alignment:=taLeftJustify;ID<>0
then Locate('ID',ID,[]) else
First;.DataSource2.DataSet:=DM.QHistory;;;TPeopleForm.ShowNasledstTable(ID:
Word);Col:TColumn;(Panel6);DM.QNasledst donot Active
then;('ID_KARTA').asInteger:=DM.QKarta.FieldByName('ID').asInteger;;;.Columns.Clear;:=DBGrid1.Columns.Add;.FieldName:='PDATE';.Width:=64;.Title.Caption:.Alignment:=taLeftJustify;:=DBGrid1.Columns.Add;.FieldName:='RODST';.Width:=200;.Title.Caption.Alignment:=taLeftJustify;:=DBGrid1.Columns.Add;.FieldName:='DNAME';.Width:=334;.Title.Caption:.Alignment:=taLeftJustify;ID<>0
then Locate('ID',ID,[]) else First;.DataSource2.DataSet:=DM.QNasledst;;;
TPeopleForm.ShowOperatTable(ID:
Word);Col:TColumn;(Panel6);DM.QOperat donot Active
then;('ID_KARTA').asInteger:=DM.QKarta.FieldByName('ID').asInteger;;;.Columns.Clear;:=DBGrid1.Columns.Add;.FieldName:='PDATE';.Width:=64;.Title.Caption:=.Alignment:=taLeftJustify;:=DBGrid1.Columns.Add;.FieldName:='EDATE';.Width:=64;.Title.Caption:='Конец';.Alignment:=taLeftJustify;:=DBGrid1.Columns.Add;.FieldName:='NAME';.Width:=276;.Title.Caption.Alignment:=taLeftJustify;:=DBGrid1.Columns.Add;.FieldName:='FIO';.Width:=200;.Title.Caption.Alignment:=taLeftJustify;ID<>0
then Locate('ID',ID,[]) else
First;.DataSource2.DataSet:=DM.QOperat;;;TPeopleForm.ShowOsob_NotesTable(ID:
Word);Col:TColumn;(Panel6);DM.QOsob_Notes donot Active
then;('ID_KARTA').asInteger:=DM.QKarta.FieldByName('ID').asInteger;;;.Columns.Clear;:=DBGrid1.Columns.Add;.FieldName:='PDATE';.Width:=64;.Title.Caption:.Alignment:=taLeftJustify;:=DBGrid1.Columns.Add;.FieldName:='NOTE';.Width:=340;.Title.Caption:.Alignment:=taLeftJustify;:=DBGrid1.Columns.Add;.FieldName:='FIO';.Width:=200;.Title.Caption:.Alignment:=taLeftJustify;ID<>0
then Locate('ID',ID,[]) else First;.DataSource2.DataSet:=DM.QOsob_Notes;
end;;
1.
Похожие работы на - Повышение эффективности работы поликлиники за счет внедрения автоматизированной системы учета пациентов