Автоматизированное рабочее место медицинского работника дошкольного учреждения



Аннотация

Тема данной дипломной работы — «Автоматизированное рабочее место медицинского работника дошкольного учреждения».

Целью данного дипломного проекта является разработка автоматизированного рабочего места.

Во введении обосновывается актуальность выбранной темы.

Темой анализа предметной области и проектирования АРМ является разработка автоматизированного рабочего места для медицинского работника. Было произведено обследование трудовой деятельности медицинского работника, выявлены концептуальные требования. Был произведен анализ структуры дошкольного учреждения. Разработаны функциональная и структурная схемы автоматизированного рабочего места медицинского работника и спроектирована БД, которая является основным компонентом АРМ.

В разделе «Расчет затрат на разработку и эксплуатацию» проводится обоснование экономической целесообразности разрабатываемого автоматизированного рабочего места.

«Экология и охрана труда» дипломного проекта рассматривает требования к рабочему месту пользователя.

Разработанный программный продукт полностью удовлетворяет требованиям заказчика.

ANNOTATION

The theme of this thesis - "The automated workplace health worker preschool.

The aim of this diploma project is the development workstation.In the introduction the relevance of the chosen topic.

The theme of the domain analysis and design of ARM is to develop a workstation for medical workers. Were investigated employment medical officer, revealed the conceptual requirements. There were analyzed the structure of preschool. Develop functional and structural schemes workstation health worker and designed the database, which is the main component ARM.

In the section "Calculation of the cost of development and operation", we justify the economic feasibility of the developed computer workstation.

"Ecology and Protection of Labour" diploma project examines the requirements for the workplace user.

The software product fully meets customer requirements.

Наименование темыАВТОМАТИЗИРОВАННОЕ РАБОЧЕЕ МЕСТО МЕДИЦИНСКОГО РАБОТНИКА ДОШКОЛЬНОГО УЧРЕЖДЕНИЯ

Техническое задание

а) содержание специальной части

1)аналитический обзор автоматизированных рабочих мест

2)проектирование структуры АРМ и базы данных

3)анализ средств реализации автоматизированного рабочего места

4)описание режимов работы созданного АРМ и методов реализации

б) содержание экономической части

1)планирование затрат на создание и эксплуатацию автоматизированной системы

2)экономическое обоснование окупаемости разработки

в) содержание экологической части

1)Эргономика рабочего места и организация рабочего пространства.

Основная литература и пособия:

1)Агальцов В.П. Базы данных. Учеб. пособие.: – М.: Мир, 2002. – 376 с.

Руководитель дипломного проекта ________________________/Агальцов  В.П./

Консультант по специальной части ______________________/ Агальцов  В.П./

Консультант по экономической части _____________________/ Агальцов  В.П./

Консультант по экологической части ______________________/ Агальцов  В.П./

Задание получил _______________________________________/ Горянская Д.В./

Содержание

Список сокращений……………………………………………………………..6

Введение…………………………………………………………………………7

I  Анализ предметной области и проектирование АРМ

1.1  Задачи…………………………………………………………………9

1.2  Постановка задачи……………………………………………………9

1.3  Анализ предметной области………………………………………...11

1.4  Проектирование структуры базы данных……………………….…18

1.5  Выбор среды программирования…………………………………...22

1.6  Входные данные……………………………………………………...29

1.7  Выходные данные……………………………………………………33

1.8  Методы………………………………………………………………..33

1.9  Инструкция пользователя……………………………………………41

II  Расчет затрат на создание и эксплуатацию

2.1  Расчет затрат на разработку автоматизированного рабочего места медицинского работника дошкольного учреждения…………………..44

2.2  Расчет затрат на эксплуатацию автоматизированного рабочего места медицинского работника дошкольного учреждения……………46

2.3  Расчет экономической эффективности……………………………..51

III  Экология и Охрана труда

3.1 Эргономика рабочего места и организация рабочего пространства………………………………………………………………52

Заключение………………………………………………………………………64

Литература……………………………………………………………………….65

Приложения

Приложение 1……………………………………………………………..66

Приложение 2……………………………………………………………..69

Список сокращений

ЭВМ - электронная вычислительная машина

АРМ – автоматизированное рабочее место

ООП - объектно-ориентированное программирование

ОС - операционная система

СУБД - система управления базами данных

БД - база данных

ПО - программное обеспечение

ИЛМ - инфологическая модель

USB (UniversalSerialBus) - универсальная последовательная шина, предназначенная для периферийных устройств.

МБ – мегабайт

Мгц- мегагерц

ГОСТ - государственный стандарт качества

 СНиП -строительные нормы и правила

СанПин - санитарные правила и нормативы

Лм (Люмен) - единица измерения светового потока

КПД - коэффициент полезного действия

Введение

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

Основная задача системы состоит в унификации внутреннего представления информации и устранения дублирования информации, требуемой для формирования различных отчетов. Подобные системы позволяют систематически накапливать и хранить практически неограниченные объемы данных и проводить регулярные и оперативные вычисления.

Можно назвать несколько очень серьезных преимуществ ведения данных в электронном виде перед хранением данных вручную:

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

Целью внедрения автоматизированного рабочего места в дошкольное учреждение является:

Применение автоматизированного рабочего места в дошкольном учреждении повысит эффективность планирования деятельности учреждения на основе  оперативного получения достоверной информации о состоянии учреждения и учебно-воспитательного процесса. Существенно сократится рутинный труд медицинского работника по сбору и обработке информации о состоянии детского сада.

I Анализ предметной области и проектирование АРМ

1.1  Задача

Разработать автоматизированное рабочее место медицинского работника дошкольного учреждения.

1.2  Постановка задачи

Информация о функционировании дошкольного учреждения часто хранится в различных базах данных, зачастую банально адаптированных под требуемые нужды, на различных носителях информации или даже на бумаге. Это не совсем удобно, так как базы данных имеют различные программные реализации, среды функционирования и не унифицированный интерфейс пользователя, а основной объем работы с данными до сих пор ведется вручную на бумажных носителях. Хранение информации в разнородных информационных системах делает неудобным объединение данных, получение сводной статистики, оперативный доступ к информации. Различные интерфейсные реализации требуют значительного времени на обучение.

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

Медицинский работник дошкольного учреждения должен иметь доступ к следующей информации:

Автоматизированное рабочее место должно обеспечивать создание выходных отчетных форм по вышеперечисленным данным. Интерфейс должен быть интуитивно понятным и обеспечить максимально комфортную работу пользователям с разным уровнем подготовки.

Назначением автоматизированного рабочего места медицинского работника дошкольного учреждения:

1.3  Анализ предметной области

Автоматизированное рабочее место (АРМ) —программно-технический комплекс, предназначенный дляавтоматизациидеятельности определенного вида.

Виды  АРМ  по  назначению:

(коллективного  использования,   индивидуального   использования);

системы

АРМы делятся на две основные категории:

АРМ обслуживающего персонала позволяет просматривать и печатать протоколы.

АРМ любого типа предоставляет пользователю требуемую нормативно-справочную информацию и реализует функции электронного документооборота.

Теме данного дипломного проекта удовлетворяет АРМ обслуживающего персонала

На российском рынке программного обеспечения существует не так много продуктов, более или менее подходящих к теме дипломного проекта. Самый подходящих из них – «1С: ХроноГраф Школа ПРОФ».

Конфигурация «1С: ХроноГраф Школа ПРОФ» (ред.2.5) - это многофункциональная система, являющаяся основой для формирования единого информационного пространства учреждения образования, которая предоставляет возможности для:

Функции пользователей в системе

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

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

Пользователю «Администратор» доступен весь функционал программы. Именно он организует работу других пользователей. При необходимости администратор системы может воспользоваться предоставляемыми ему возможностями создания других типов пользователей.

Пользователю «Администратор-просмотр» доступен весь функционал программы только в режиме просмотра.

Пользователю «Финансовый администратор» доступны следующие функции:

1. Ввод данных об учреждении образования.

2. Формирование списка помещений. Формирование общего списка материальных средств и описание материального оснащения помещений. Работа со всеми печатными формами этих разделов.

3. Формирование списка подразделений.

4. Формирование списка должностей.

5. Формирование списка сотрудников и заполнение личных карточек сотрудников. Работа со всеми печатными формами этого раздела.

6. Формирование периодизированного списка классов.

7. Работа с Книгой приказов.

8. Формирование списка предметов Учебного плана.

9. Формирование Учебного плана

10. Распределение нагрузки классов.

Пользователю «Секретарь-делопроизводитель» доступны следующие функции:

1. Ввод данных об учреждении образования.

2. Формирование постоянного, непериодизированного списка классов. Просмотр списка ступеней обучения.

3. Формирование списка помещений, но без возможности удаления данных. Работа с печатными формами «Список помещений» и «Паспорт кабинета» (если данная форма была создана).

4. Формирование списка подразделений.

5. Формирование списка должностей, но без возможности удаления данных. Работа с печатной формой «Список должностей учреждения».

6. Создание списка сотрудников, их увольнение/восстановление, но без возможности удаления данных. Формирование личных дел сотрудников. Работа с печатной формой «Список сотрудников» и отчетной формой «Т2».

7. Просмотр конкретизированных на рабочий учебный период списков классов и групп второй половины дня. Работа с печатными формами «Список классов» и «Список групп второй половины дня».

8. Формирование и ведение общего списка учащихся, но без возможности удаления данных. Формирование личных дел учащихся. Ведение Алфавитной книги. Работа с печатной формой «Общие сведения об учащихся» и с отчетом «Алфавитная книга».

9. Просмотр расписания классов. Работа с печатными формами общешкольного расписания и расписания конкретных классов.

10. Ведение Книги приказов.

11. Ввод информации об общешкольных мероприятиях, но без возможности удаления данных. Просмотр плановых мероприятий конкретных классов. Работа с печатными формами «Список плановых мероприятий» и «Объявление-анонс конкретных мероприятий».

Пользователю «Классный руководитель» доступны следующие функции:

1. Редактирование данных, описание материального оснащения и формирование паспорта кабинета, назначенного под ответственность или на заведование.

2. Формирование списка учащихся руководимого класса, но без возможности удаления данных. Перевод учащихся. Рассылка сведений об успеваемости. Работа со всеми печатными формами этого раздела.

3. Просмотр общешкольных плановых мероприятий. Формирование плановых мероприятий руководимого класса. Работа со всеми печатными формами этого раздела.

4. Просмотр расписания своего класса. Работа со всеми печатными формами этого раздела.

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

6. Обращение к нормативно-правовому обеспечению.

7. Работа с отчетами по классному журналу в рамках руководимого класса.

Пользователю «Преподаватель-предметник» доступны следующие функции:

1. Редактирование данных, описание материального оснащения и формирование паспорта кабинета, назначенного под персональную ответственность или на заведование.

2. Формирование типового тематического и поурочного планирования по преподаваемому предмету. Работа с печатной формой типового планирования.

3. Рассылка сведений об успеваемости учащихся классов, в которых сотрудник ведет занятия. Просмотр работ учащихся в рамках своей специализации.

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

5. Работа с цифровыми образовательными ресурсами (ЦОР).

6. Обращение к нормативно-правовому обеспечению.

7. Работа с отчетами по журналу «Общие данные об обучающихся», «Сводная ведомость о количестве пропущенных уроков» и «Листок здоровья» в рамках своей специализации и нагрузки.

В принципе компанией 1С разработаны программы, которые можно было бы (с учетом модернизации и доработки) использовать в случае дошкольного учреждения. Но, тогда, пришлось бы использовать язык программирования 1С для написания всех остальных недостающих блоков. Язык программирования 1С - это разработка одноименной компании. Несмотря на массированную рекламную компанию программных продуктов от 1С, информация по этому языку является труднодоступной. Практически все программы от 1С требуют установки базовых конфигураций от той же фирмы.

Учитывая эти факты, становится ясно, что обоснованнее, проще и экономически выгоднее (в условиях государственного дошкольного учреждения) создать новый программный продукт, который с одной стороны будет сочетать преимущества вышеперечисленной программы, с другой стороны будет свободен от ее недостатков.

Проанализировав структуру дошкольного учреждения, было принято решение придерживаться автоматизированной системы обработки данных (АСОД).

Сформулируем структурную схему АРМ для дошкольного учреждения:

               Рис.1.3.1 Структурная схема АРМ

Для функционирования деятельности медработника разработана функциональная схема АРМ:

Рис.1.3.2 Функциональная схема АРМ

Разработанная функциональная схема АРМ имеет подсистемы:

Обеспечивает возможность манипуляций над данными (поиск, сортировка, фильтрация)

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

Формирования отчетов:

формирование карточки ребенка (содержит полную информацию о выбранном из списка ребенке);

сводные данные (получение информации обо всех воспитанниках дошкольного учреждения).

1.4  Проектирование структуры базы данных.

Основным компонентом АРМ является база данных (БД).Использование БД является эффективным средством разработки и поддержки информационного обеспечения АРМ.

База Данных (БД) – это совокупность взаимосвязанных данных при такой минимальной избыточности, которая допускает их использование оптимальным образом для одного или нескольких приложений в определенной предметной области.

Основными целями проектирования базы данных являются:

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

В теории реляционных БД обычно выделяется следующая последовательность нормальных форм:

Наиболее распространенной процедурой является приведение базы данных к третьей нормальной форме (3NF) поскольку в большинстве случаев этот уровень нормализации является компромиссом между полной нормализацией и простотой реализации.

Условия первой нормальной формы:

Условия второй нормальной формы:

Условия третьей нормальной формы:

Для создания данного автоматизированного рабочего места было разработано 13 сущностей:

Рис. 1.4Схема данных в ERwin

1.5  Выбор среды программирования

Операционная система

На сегодняшний момент операционная система Windows фирмыMicrosoft во всех ее проявлениях, бесспорно, считается самой распространенной операционной системой на ПК: в мире более 150 млн.IBMPC-совместимых компьютеров, и система Windows установлена на 100 млн. из них. В связи с наибольшей распространенностью  этих операционных систем, для реализации темы дипломного проекта были выбраны ОСWindowsXP,Windows 2000,Windows 2003.

Среда программирования

Когда возникает необходимость создания программной системы или составления программы для решения какой-либо задачи, встает вопрос о выборе для этой цели наиболее подходящего языка программирования.

На сегодняшний день существует большое количество языков программирования. Наиболее известные представители языков «высокого уровня» - С, С++,VisualBasic,ObjectPascal. Разнообразие языков программирования    обусловлено    их    специфическими    особенностями    ипредназначением.Basic разработан в 60е годы как язык программирования для начинающих.Pascal был создан в конце 70х для обучения программированию как систематической дисциплине. С - для разработки программ системного назначения.

В данной работе проанализированы 3 среды программирования:

-Borland Delphi

-С++ BUILDER

-Visual Basic

Эти среды программирования имеют общие черты:

Для создания автоматизированного рабочего места медицинского работника был выбран инструмент разработки -Delphi с языком программированияObjectPascal. Попробуем сравнитьDelphi с другими средствами. ЯзыкObjectPascal инструментаDelphi имеет богатый синтаксис и может конкурировать с C/C++ и другими языками программирования. Можно даже поспорить о том, что компактный синтаксисObjectPascal и строгость описания типов данных делают его более подходящим языком для программирования приложений подWindows, чемBasic или С++.

Приложения, построенные в С++BUILDER, страдают и из-за прожорливости по отношению к памяти динамических библиотек интерпретатора. В отличие отDelphi, С++BUILDER имеет весьма слабые возможности обработки исключительных ситуаций. Одним из самых существенных различийVisualBasic иDelphi состоит в том, чтоDelphi генерирует исполняемые модули истинного машинного кода, аVisualBasic - блоки псевдокода (p-code), обрабатываемые интерпретатором во время исполнения программы.

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

язык

   описание

  преимущества

недостатки

С++

Небольшой, прекрасный компилятор в машинные коды +ООП

Более медлителен, чем С.

Классы и объекты делают программы более

масштабируемым Строгая

типизированность защищает от ошибок.

Полная объектная инкапсуляция делает программы более надежными, исключая проблемы с указателями и переполнением буфера.

Небольшое количество конструкций высокого уровня делают разработку менее эффективной. Частое использование указателей памяти и необходимость управления распределением памяти для программиста часто приводит к ошибкам. Строгая типизированность тормозит разработку

VisualBasic

Содержит элементы объектно-ориентированных компонентно-ориентированных  языков программирования

Включает инструменты для визуального конструирования пользовательского интерфейса.

Позволяет использовать библиотеки динамической компоновки

Строгая типизированность тормозит разработку.

Программа строится на основе классов, которые облегчают труд программиста, но при этом переносят нагрузку на ЭВМ.

Object Pascal

Объектно-ориентированный язык программирования

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

Программа строится на основе классов, которые облегчают труд программиста, но при этом переносят нагрузку на ЭВМ.

Таблица 1.5. Сравнительная характеристика языков программирования

Вышеприведенный анализ языков программирования позволяет убедиться в том, что более других для написания АРМа подходит язык программированияObjectPascal и среда программированияDelphi. Именно они позволят создать надежное, быстрое, свободное от необходимости распределения памяти автоматизированное рабочее место.

СУБД

Система управления базами данных (СУБД) — совокупность программных и лингвистических средств общего или специального назначения, обеспечивающих управление созданием и использованиембаз данных

Проектировщику в настоящее время предоставляется достаточно большой выбор СУБД, разработанных для разных конфигураций и типов ЭВМ. Анализ основных параметров этих систем позволяет сразу же отвергнуть ряд СУБД, заведомо непригодных к использованию в разрабатываемом дипломном проекте, оставив для последующего рассмотрения не более 2-х - 3-х систем - претендентов.

На выбор СУБД - претендентов наибольшее влияние оказывает согласование ряда параметров среды реализации и СУБД. Наиболее значимые параметры перечислены ниже:

Среди всего многообразия серверных СУБД наиболее распространенными можно считатьInformixDynamicServer,MicrosoftSQLServer,Oracle 9i,Sybase,InterBase.

Одними из самых критических требований можно считать:

Так же большие требования предъявляются не только к СУБД, но и к языку программирования, на котором будут создаваться программы-приложения. Реализация программных средств окружения СУБД и приложений достаточно трудоемкий процесс.При выборе СУБД необходимо учесть и такой фактор, как наличие опыта у разработчиков в создании прикладных программ для данной СУБД, часто он является определяющим.

Указанным критериям наиболее удовлетворяет СУБД «InterBase».

Borland InterBase - высокопроизводительный, экономичный, многоплатформенный сервер баз данных. InterBase представляет собой экономичную, высокопроизводительную СУБД с обработкой транзакций, которую используют миллионы пользователей во всем мире.

Сочетая легкость установки, автоматическое восстановление после аварийных отказов и минимальные требования к администрированию, InterBase является наиболее подходящим решением для встраивания в тиражируемые приложения. Графический пользовательский интерфейс IBConsole  включает монитор производительности, одновременно отслеживающий состояние нескольких серверов и баз данных InterBase.

Производительность, удобство использования, поддержка Windows, Linux и Solaris, а также таких сред разработки, как Borland Delphi, C++Builder, C#Builder позволяют InterBase занять ведущее место среди разработчиков и стать недорогим вариантом  ПО для предприятий.

Так какInterBase полностью интегрируется сDelphi,  его использование с визуальной, высокоинтуитивной средой разработки позволяет разработчикам ускорить процесс разработки и развертывания приложений. Поддержка ODBC и JDBC API позволяет использовать в InterBase приложения, созданные с помощью большинства популярных средств разработки. Производительность разработчиков увеличивается благодаря использованию знакомых средств разработки.

Отличительными качествамиInterBase являются:

Требования к аппаратному обеспечению

Для полноценной работы есть несколько требований, которым должно отвечать рабочее место разработчика и пользователя, такие как:

Требования к пользователям

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

1.6  Входные данные

Просмотр входных данных выполняется во входной форме.

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

Таблица «Дети»

Таблица «Прививки»

В поле Название прививки можно ввести заглавные, строчные буквы русского и латинского алфавита, знаки «, », №,  (, ). По умолчанию активна только кнопка Добавить. Кнопки Редактировать и Удалить становятся активными при выделении прививки в списке;

Таблица «Кружки»

В поле Название кружка можно ввести заглавные, строчные буквы русского и латинского алфавита, знаки «, », №,  (, ). По умолчанию активна только кнопка Добавить. Кнопки Редактировать и Удалить становятся активными при выделении кружка в списке;

Таблица «Группа»

Таблица «Лист здоровья»

Таблица «Родители»

, «, », ., ,' , ;,\,/;

Таблица «Сотрудники»

1.7 Выходные данные

Выходные данные просматриваются во входной форме. Выходится отчет  «Карточка ребенка» или общая статистика дошкольного учреждения.

1.8 Методы

В разработанном дипломе осуществляются следующие функции:

Рассмотрим в данном разделе такие основные функции, как поиск, сортировка, фильтрация.

Функция сортировки реализована с помощью оператораcase и запросовSQL.

1.Сортировка

procedure TForm4.BitBtn2Click(Sender: TObject);

 var

     Poryadok:string;

begin

if (Form4.CheckBox1.Checked) then

   Poryadok:='DESC' //обратный порядок сортировки

else

Poryadok:='ASC'; //прямой порядок сортировки

SortSQL:='';

Case ComboBox1.ItemIndex of

   0:begin

     SortSQL:='ORDER BY DANNIE_O_REBENKE.FAMILIYA'+Poryadok+';';

     end;

. . .

 7:begin

     SortSQL:='ORDER BY DANNIE_O_REBENKE.DATA_ROGDENIYA'+Poryadok+';';

     end;

 end;      //case

DataModule2.IBUser.SQL.Strings[10]:=FilterSQL+' '+SortSQL; //записьв 10строку

DataModule2.IBUser.Active:=true;

DataModule2.IBUser.Close; //обновлениеБД

DataModule2.IBUser.Open; //обновлениеБД

DBGrid1.DataSource:=DataModule2.DSUser;

Form4.TableRefresh1();  //обновлениетаблиц

end;

procedure TForm4.ComboBox2Change(Sender: TObject);

begin

LabeledEdit4.SetFocus;

end;

2. Фильтрация

Функция фильтрации так же реализована с помощью оператораcase и запросовSQL.

procedure TForm4.BitBtn3Click(Sender: TObject);

begin

if LabeledEdit4.Text='' then

  begin

ShowMessage(' Введите значение !');

     LabeledEdit4.SetFocus;

     exit;

 end;

Case ComboBox2.ItemIndex of

   0:begin

     FilterSQL:='WHERE   DANNIE_O_REBENKE.FAMILIYA='''+LabeledEdit4.Text+'''';

     end;

. . .

 7:begin

     FilterSQL:='WHERE DANNIE_O_REBENKE.DATA_ROGDENIYA='''+LabeledEdit4.Text+'''';

   end;

 end;//case

DataModule2.IBUser.SQL.Strings[10]:=FilterSQL+' '+SortSQL;

DataModule2.IBUser.Active:=true;

DataModule2.IBUser.Close;

DataModule2.IBUser.Open;

DBGrid1.DataSource:=DataModule2.DSUser;

Form4.TableRefresh1();

end;

procedure TForm4.BitBtn7Click(Sender: TObject);

begin

FilterSQL:='';

DataModule2.IBUser.SQL.Strings[10]:=FilterSQL+' '+SortSQL;

DataModule2.IBUser.Active:=true;

DataModule2.IBUser.Close;

DataModule2.IBUser.Open;

DBGrid1.DataSource:=DataModule2.DSUser;

Form4.TableRefresh1();

end;

3.Удаление

procedure TForm7.BitBtn3Click(Sender: TObject);

begin

 With SQLbox.Items do begin

   Clear;

   add('delete from SOTRUDNIKI');

   add('WHERE KOD_SOTRUDNIKA = '+DBgrid1.Fields[0].AsString+';');

 end;

 DataModule2.IBSQL1.SQL.Clear;

 DataModule2.IBSQL1.SQL:=SQLBox.Items;

 DataModule2.IBSQL1.ExecQuery;

 Form1.RefreshDBQuary();

 BitBtn2.Enabled:=false;

 BitBtn3.Enabled:=false;

 Form7.TableRefresh();

Form7.ClearEdit();

end;

4. Проверка на заполненность

Form1.CheckValueOnNull(p1,'Фамилия');

Form1.CheckValueOnNull(p2,'Имя');

 Form1.CheckValueOnNull(p3,'Отчество');

 Form1.CheckValueOnNull(p4,'Группа',1);

 Form1.CheckValueOnNull(p5,'Датапоступления');

 Form1.CheckValueOnNull(p8,'Типсемьи',1);

 Form1.CheckValueOnNull(p9,'Датарождения');

 //конецпроверкиназаполненность

5.Поиск

procedure TForm4.BitBtn8Click(Sender: TObject);

var

 FindKeyFild:string;

 FindValue:variant;

 d:TDateTime;

begin

if LabeledEdit5.Text='' then

 begin

ShowMessage(' Введите значение !');

   exit;

 end;

Case ComboBox3.ItemIndex of

 0:begin

   FindKeyFild:='FAMILIYA';

   FindValue:=LabeledEdit5.Text;

   end;

 1:begin

   FindKeyFild:='IMYA';

   FindValue:=LabeledEdit5.Text;

   end;

 2:begin

   FindKeyFild:='OTCHESTVO';

   FindValue:=LabeledEdit5.Text;

   end;

 3:begin

   try

     d:=StrToDate(LabeledEdit5.Text);

   except

     LabeledEdit5.Text:=DateToStr(date());

     ShowMessage('То, что Вы ввели,  не является датой. По умолчанию вставлена сегодняшняя дата!');

     LabeledEdit5.SetFocus;

     exit;

   end;

   FindKeyFild:='DATA_POSTUPLENIYA';

   FindValue:=d;

   end;

 4:begin

   try

     d:=StrToDate(LabeledEdit5.Text);

   except

     LabeledEdit5.Text:=DateToStr(date());

     ShowMessage(' 'То, что Вы ввели,  не является датой. По умолчанию вставлена сегодняшняя дата!');

     LabeledEdit5.SetFocus;

     exit;

   end;

   FindKeyFild:='DATA_ROGDENIYA';

   FindValue:=d;

   end;

end; //case

if (BoolVal) then

 begin

   if (DataModule2.IBUser.Locate(FindKeyFild,FindValue,[])) then

     begin

       DBGrid1.SetFocus;

       BoolVal:=false;

       exit;

     end;

     BoolVal:=false;

 end;

 if (DataModule2.IBUser.LocateNext(FindKeyFild,FindValue,[])) then

     begin

       DBGrid1.SetFocus;

     end

   else

     begin

       ShowMessage('  Поиск завершен! ');

6.Обеспечения достоверности вводимой информации

//Телефон домашний (мама)

procedure TForm5.LabeledEdit6KeyPress(Sender: TObject; var Key: Char);

type

  massiv = array[1..13] of char;

const

 n=13;

 mass : massiv = ('0','1','2','3','4','5','6','7','8','9','-','(',')');

begin

Form1.CheckKey(key,mass,n);

end;

7.выходизприложения

procedure TForm7.BitBtn7Click(Sender: TObject);

begin

if MessageDlg(‘Хотитевыйтивменю?', mtInformation, [mbYes, mbNo], 0)=mrYes

THEN

 begin

   Form7.Hide;

   Form3.Show;

 end

8.Формированияотчетов

procedure TForm4.BitBtn9Click(Sender: TObject);

begin

Form13.QuickRep1.Preview;

end;

1.9 Инструкция пользователя

Разработанное автоматизированное рабочее место  выводит на экран 8 основных форм: «Меню», «Дети», «Прививки», «Кружки», «Группы», «Лист Здоровья», «Родители», «Сотрудники», «Администратор».

Данный программный продукт имеет 3 уровня доступак данным:

-    пользователь (reader) - доступна только функция просмотра данных;

-     редактор (editor)– доступна все функции, кроме работы с формой «Администратор»;

-   администратор (masterkey)– доступны все функции работы с АРМом, включая работу с формой «Администратор».

1. Главная форма «Меню»(См. приложение рис.1) выводится при запуске программы. С ее помощью можно вызвать любую другую основную форму. Кроме того, она имеет закладку «Помощь», которая позволяет получить информацию «Опрограмме» и «Руководство пользователя».

2. Экранная форма «Дети» (См. приложение рис.2) предназначена для отображения информации о детях дошкольного учреждения. В данной форме возможно формирование индивидуальной карточки ребенка и получения сводной статистики детского сада. Интерфейс данной формы облегчает выбор  нужных данных, используя такие функции, как поиск, сортировка и фильтрация.

Имеется вкладка «Редактирование», которая позволяет редактировать, удалять, добавлять данные.

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

3. Экранная форма«Прививки» содержит информацию о прививках, сделанных детям детского сада. Здесь так же указана группа и воспитатель.

На форме предусмотрены кнопки, которые осуществляют функции поиска и сортировки.

Для удобства работы с данными предусмотрена вкладка«Ред. Прививки»

В этой форме предусмотрены функции редактирования, удаления, добавления данных.

4. Экранная группа«Кружки» содержит информацию о кружках в данном учреждении, а так же информацию о детях, посещающих эти кружки. Так же на форме предусмотрены кнопки, которые осуществляют функции поиска и сортировки.

Для удобства работы с данными предусмотрена вкладка«Ред. Кружки»(см. приложение рис.3)

В этой форме предусмотрены функции редактирования, удаления, добавления данных.

5. Экранная форма«Группа» содержит такую информацию, как номер группы и ФИО воспитателя. Все данные в этой форме могут быть редактированы. Для более простого доступа к нужной информации предусмотрены функции поиска и сортировки.

6.Экранная форма «Лист здоровья» (См. приложение рис.4) содержит информацию о перенесенных заболеваниях ребенком, дату последнего медицинского осмотра и биометрические данные. Предусмотрены функции редактирования, удаления, добавления,  поиска и сортировки.

7. Экранная форма«Родители» (См. приложение рис.5) содержит информацию о родителях ученика: ФИО, дата рождения, адрес, телефоны домашний и мобильный. Место работы. Предусмотрены функции редактирования, удаления и добавления данных, а так же поиска и сортировки.

8. Для удобства ведения личных дел сотрудников детского сада предусмотрена форма«Сотрудники»(См. приложение рис.6). Она содержит данные обо всех сотрудниках, такие как ФИО, дата рождения, адрес, телефоны домашний и мобильный, дата приема на работу, комната, которую занимает сотрудник и его должность.

9. Экранная форма «Администратор»доступна только администратору сети. Это функциональная форма, которая позволяет добавлять, удалять или редактировать все данные системы. Для удобства пользования форма имеет отличный от других форм цвет для удобства пользования.

II Расчет затрат на создание и эксплуатацию АРМ

2.1 Расчет затрат на разработку автоматизированного рабочего места медицинского работника дошкольного учреждения.

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

Основными задачами планирования являются:

Выполнение этих работ ведется с целью составления календарных графиков подготовки производства.

Для разработки и реализации проекта необходимо привлечь 3 человека рабочего персонала.

Срок разработки составляет 3 месяца. Создание программного продукта выполняется по следующим этапам:

  1. Согласование и утверждение ТЗ на систему, анализ ТЗ;
  2. Изучение нормативных документов;
  3. Эскизно-технический проект;
    1. Разработка базы данных;
    2. Тестирование базы данных в соответствии с ТЗ;
    3. Отладка программы;

4.Оформление документации.

Наименование

Срок выполнения, дней

1

Согласование и утверждение ТЗ на систему, анализ ТЗ

5

2

Изучение нормативных документов

3

3

Эскизно-технический проект

5

3.1

Разработка базы данных

40

3.2

Тестирование базы данных в соответствии с ТЗ

5

3.3

Отладка программы

5

4.

Оформление документации

27

Таблица. 2.1. Сроки выполнения этапов разработки.

Тема данной разработки требует проведения сравнительного небольшого количества работ с малой параллельностью и небольшим кругом исполнителей, содержит простые взаимосвязи между отдельными работами, поэтому наиболее оптимально представить порядок проведения разработки при помощи ленточного графика.

Рис.2.2.Ленточный график порядка проведения работ.

2.2 Расчет затрат на эксплуатацию автоматизированного рабочего места медицинского работника дошкольного учреждения.

Для расчета сметной стоимости и цены проекта надо рассчитать след статьи расходов:

Расчёт статьи «Материалы и покупные изделия».

Эта статья включает стоимость материалов, покупных изделий, полуфабрикатов и других материальных ценностей, расходуемых непосредственно в процессе выполнения НИР по теме. Стоимость материальных ресурсов определяется по соответствующим ценникам, также сюда включаются транспортные расходы.

Наименование

Единицы измерения

Кол - во

Цена, руб.

Сумма,

руб.

1.

Turbo Delphi Professional

шт.

    1

10 976,68

10 976

2.

Литература

шт.

    2

230 340

570

3.

Канцтовары

шт.

    1

   180

180

4.

Транспортные расходы

-

-

-

500

5.

InterBase

шт.

1

4 748

4 700

Итого:

16 926

Таблица 2.2.1. Материалы, покупные изделия.

Общая стоимость материальных затрат определяется как сумма стоимостей материальных ценностей и транспортных расходов и составляет 16 926руб.

Расчёт статьи «Основная заработная плата».

В данной статье рассчитывается заработная плата непосредственных участников проекта в период его выполнения.

Расчет основной заработной платы выполняется на основе трудоемкости выполнения каждого этапа в человеко-днях (см. таблица 4) и величины месячного должностного оклада исполнителя.

Должность

Месячный должностной оклад, руб.

1.

Заведующая дошкольным учреждением

15 000

2.

Медицинский работник

12 000

3.

ИнженерI категории

7 000

Таблица 2.2.2. Величина месячного должностного оклада исполнителей.

При этом сумма оплаты за каждый этап вычисляется путём деления величины оклада каждого исполнителя на число рабочих дней (считается, что в месяце 22 рабочих дня) и умножается на трудоёмкость. Результаты расчёта основной заработной платы представлены в таблице 2.4.

3№

Наименование

Исполнитель

Трудоемкость, чел. - дн.

Оклад, руб.

Сумма   за

один день, руб.

Сумма за

Этап, руб.

11.

Техническое задание

ИнженерIкатегории

4

7000

318

1270

22.

Технические предложения

Заведующая

5

15000

681

3400

Медработник

5

12000

273

2730

33.

Разработка программы

ИнженерIкатегории

40

7000

318

12730

3.1

Тестирование

Заведующая

55

15000

681

3405

Инженер I категории

55

7000

318

1590

33.2

Отладка

Инженер I категории

55

7000

318

1590

44.

Создание

руководства

пользователя,

технический

отчет

ИнженерIкатегории

27

7000

318

8586

Итого:

35271

Таблица 2.2.3. Основная заработная плата разработчиков ПЛ.

Таким образом, основная заработная плата персонала составляет 35271 рублей.

Расчёт статьи «Дополнительная заработная плата».

На эту статью относятся выплаты, предусмотренные законодательством о труде за неотработанное по уважительным причинам время: оплата очередных и дополнительных отпусков и т.п. (принимается в размере 25% от суммы основной заработной платы):

35271* 0,25 = 8817 рубля.

Расчет статьи «Единый социальный налог».

Затраты по этой статье определяются в процентном отношении от суммы основной и дополнительной заработной платы.

Сумма основной и дополнительной заработной платы составляет 44088 рублей.

Единый социальный налог составляет 26%:

44088*0,26=11462 рубля.

Расчёт статьи «Накладные расходы».

К этой статье относят расходы по управлению научно-исследовательской организацией, выполняющей данную разработку, а также расходы по содержанию и ремонту зданий, сооружений, оборудования, коммунальные услуги и т. п. Накладные расходы принимаются в размере 15% от суммы основной заработной платы:

35271* 0,15 =5290 рублей.

  Расчет статьи «Фонд оплаты труда»

Фонд оплаты труда складывается из затрат на основную и дополнительную заработные платы:

ФОТ = 35271 + 8817 = 44088 рублей.

Расчет себестоимости разработки.

Себестоимость разработки складывается из фонда оплаты труда, ЕСН, накладных расходов и общей стоимости материальных затрат.

Наименование статей расходов

Затраты, руб.

1

1.

Материалы и покупные изделия

16926

2

2.

Основная заработная плата разработчиков

35271

3

3.

Дополнительная заработная плата разработчиков

8817

4

4.

Единый социальный налог

11462

55.

Накладные расходы

5290

6

6.

Полная себестоимость

77766

Таблица2.2.4. Итоговая смета затрат.

Таким образом, себестоимость разработки составляет 77766 руб.

2.3 Расчет экономической эффективности

В первую очередь, экономическая целесообразность разработанного изделия заключается в экономии рабочего времени, так как производит замену «ручной» обработки информации на автоматизированную. Кроме того, разработанные средства автоматизации сводят вероятность потери или искажения информации к минимуму.

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

III Экология и Охрана труда

3.1 Эргономика рабочего места и организация рабочего пространства

С развитием научно-технического прогресса немаловажную роль играет возможность безопасного исполнения людьми своих трудовых обязанностей. В связи с этим была создана и развивается наука о безопасности труда и жизнедеятельности человека.

Безопасность жизнедеятельности - это комплекс мероприятий, направленных на обеспечение безопасности человека в среде обитания, сохранение его здоровья, разработку методов и средств защиты путем снижения влияния вредных и опасных факторов до допустимых значений, выработку мер по ограничению ущерба в ликвидации последствий чрезвычайных ситуации.

Рабочее место - это место в системе «человек - машина», оснащенное средствами отображения информации, органами управления и вспомогательным оборудованием, где осуществляется трудовая деятельность человека.

При работе с компьютером человек подвергается воздействию ряда опасных и вредных производственных факторов: электромагнитных полей инфракрасного и ионизирующего излучений, шума и вибрации, статического электричества и др.

Работа с компьютером характеризуется значительным умственным напряжением и нервно-эмоциональной нагрузкой операторов, высокой напряженностью зрительной работы и достаточно большой нагрузкой на мышцы рук при работе с клавиатурой ЭВМ. Большое значение имеет рациональная конструкция и расположение элементов рабочего места, что важно для поддержания оптимальной рабочей позы человека-оператора.

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

На рабочем месте должны быть предусмотрены меры защиты от возможного воздействия опасных и вредных факторов производства. Уровни этих факторов не должны превышать предельных значений, оговоренных правовыми, техническими и санитарно-техническими нормами. Эти нормативные документы обязывают к созданию на рабочем месте условий труда, при которых влияние опасных и вредных факторов на работающих либо устранено совсем, либо находится в допустимых пределах.

Необходимые микроклиматические условия для работы оператора.

Согласно ГОСТу Р50923 - 96 и СанПин 2.2.2.542 - 96:

                                                                  - экрана 100-200Ж

                                                                  - стола 300 - 500Ж

-при работе без печатного устройства 50дб

-при включённом печатным устройстве 75дб.

Расчет освещения на рабочем месте оператора информационной системы.

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

Недостаточность освещения приводит к напряжению зрения, ослабляет внимание, приводит к наступлению преждевременной утомленности. Чрезмерно яркое освещение вызывает ослепление, раздражение и резь в глазах. Неправильное направление света на рабочем месте может создавать резкие тени, блики, дезориентировать работающего. Все эти причины могут привести к несчастному случаю или профзаболеваниям, поэтому столь важен правильный расчет освещенности.

Согласно СНиП 26-05-95 в помещениях, оборудованных компьютерами, необходимо применять систему комбинированного освещения.

При выполнении работ категории высокой зрительной точности (наименьший размер объекта различения 0,3...0,5мм) величина коэффициента естественного освещения (КЕО) должна быть не ниже 1,5%, а при зрительной работе средней точности (наименьший размер объекта различения 0,5... 1,0 мм) КЕО должен быть не ниже 1,0%. В качестве источников искусственного освещения обычно используются люминесцентные лампы типа ЛБ или ДРЛ, которые попарно объединяются в светильники, которые должны располагаться над рабочими поверхностями равномерно.

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

Кроме того, все поле зрения должно быть освещено достаточно равномерно

-это основное гигиеническое требование.

Расчет освещенности рабочего места сводится к выбору системы освещения, определению необходимого числа светильников, их типа и размещения. Исходя из этого, рассчитаем параметры искусственного освещения.

Обычно искусственное освещение выполняется посредством электрических источников света двух видов: ламп накаливания и люминесцентных ламп. Будем использовать люминесцентные лампы, которые по сравнению с лампами накаливания имеют ряд существенных преимуществ:

Расчет освещения производится для комнаты площадью 15м, ширина которой З м, длина 5м. Воспользуемся методом светового потока.

Для определения количества светильников определим световой поток, падающий на поверхность по формуле:

F=E*K*S*Z

п

гдеF- рассчитываемый световой поток, Лм;

Е- нормированная минимальная освещенность, Лк (определяется по таблице). Работу оператора, в соответствии с этой таблицей, можно отнести к разряду точных работ, следовательно, минимальная освещенность будет Е = 300 Лк (норма освещенности общественных помещений в соответствии си СНиП 23-05-95 [3] приведена в таблице 3.2., [2] норма освещенности для мониторов персональных компьютеров);

S- площадь освещаемого помещения (в нашем случаеS = 15м );

Z - отношение средней освещенности к минимальной (обычно принимается равным 1, 1... 1, 2 , пустьZ = 1,1);

К -коэффициент запаса, учитывающий уменьшение светового потока лампы в результате загрязнения светильников в процессе эксплуатации (его значение зависит от типа помещения и характера проводимых в нем работ и в нашем случае К = 1,5);

п. -коэффициент использования, (выражается отношением светового потока, падающего на расчетную поверхность, к суммарному потоку всех ламп и исчисляется в долях единицы; зависит от характеристик светильника, размеров помещения, окраски стен и потолка, характеризуемых коэффициентами отражения от стен (Рс) и потолка (Рпзначение коэффициентов Рс и Рп были указаны выше: Рс = 40%, Рп = 60%. Значениепопределим по таблице коэффициентов использования различных светильников. Для этого вычислим индекс помещения по формуле (СНиП 23-5-95):

I =S/ (h-(A+B))

гдеS -площадь помещения,S = 15 м ;

h- расчетная высота подвеса, учитывая подвесной потолокh = 3 м;А -ширина помещения, А = 3,23 м;В- длина помещения, В = 4,2 м.

Подставив значения получим:

I=15/(3*(3.23+4.2))=0.67

Зная индекс помещенияI, по таблице 6.4 [2] находимп= 0,25 Подставим все значения в формулу для определения светового потокаF:

F= (300*1.5*15*1.1)/0.25=29700 Лм.

Для освещения выбираем люминесцентные лампы типа ЛБ40-1, световой поток которыхF = 4320 Лм.

Рассчитаем необходимое количество ламп по формуле:

N=F/Fл,

гдеN -определяемое число ламп;

F- световой поток,F = 29700 Лм;

Fл-световой поток лампы,Fл = 4320 Лм.

N = 29700/4320=6 шт.

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

Шум и вибрация.

Шум ухудшает условия труда, оказывая вредное действие на организм человека. Работающие в условиях длительного шумового воздействия испытывают раздражительность, головные боли, головокружение, снижение памяти, повышенную утомляемость, понижение аппетита, боли в ушах и т. д. Такие нарушения в работе ряда органов и систем организма человека могут вызвать негативные изменения в эмоциональном состоянии человека, вплоть до стрессовых. Под воздействием шума снижается концентрация внимания, нарушаются физиологические функции, появляется усталость в связи с повышенными энергетическими затратами и нервно-психическим напряжением, ухудшается речевая коммутация. Все это снижает работоспособность человека и его производительность, качество и безопасность труда. Длительное воздействие интенсивного шума [выше 80 дБ(А)] на слух человека приводит к его частичной или полной потере.

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

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

Lz=101g100,1Li

гдеLi-уровень звукового давления 1-го источника шума;

n-количество источников шума.

Полученные результаты расчета сравнивается с допустимым значением уровня шума для данного рабочего места. Если результаты расчета выше допустимого значения уровня шума, то необходимы специальные меры по снижению шума. К ним относятся: облицовка стен и потолка зала звукопоглощающими материалами, снижение шума в источнике, правильная планировка оборудования и рациональная организация рабочего места оператора.

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

Источник шума

Уровень шума, дБ

Жесткий диск

25

Кулер

29

Монитор

7

Клавиатура

10

Принтер

63

Сканер

38

Кондиционер

36

Таблица 3.1.Уровни звукового давления различных источников.

Обычно рабочее место оператора оснащено следующим оборудованием: винчестер в системном блоке, вентилятор(ы) систем охлаждения ПК, монитор, клавиатура, принтер и сканер.

Подставив значения уровня звукового давления для каждого вида оборудования в формулу, получим:

L=10-lg(102'5+102'9+100,7+10,+ 106'3+103'8+ Ю3'6) = 63,03 дБ

Полученное значение не превышает допустимый уровень шума для рабочего места оператора, равный 65 дБ (ГОСТ 12.1.030). И если учесть, что врядли такие периферийные устройства как сканер и принтер будут использоваться одновременно, то эта цифра будет еще ниже. Кроме того, при работе принтера непосредственное присутствие оператора необязательно, т.к. принтер снабжен механизмом автоподачи листов.

Эргономические требования к рабочему месту оператора.

При организации рабочего места оператора соблюдаются следующие основные условия: оптимальное размещение оборудования, входящего в состав рабочего места и достаточное рабочее пространство, позволяющее осуществлять все необходимые движения и перемещения.

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

Главными элементами рабочего места оператора являются стол и кресло. Основным рабочим положением является положение сидя.

Рабочая поза сидя вызывает минимальное утомление оператора. Рациональная планировка рабочего места предусматривает четкий порядок и постоянство размещения предметов, средств труда и документации. То, что требуется для выполнения работ чаще, расположено в зоне легкой досягаемости рабочего пространства.

Моторное поле - пространство рабочего места, в котором осуществляются двигательные действия человека.

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

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

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

Для комфортной работы стол должен удовлетворять следующим условиям:

Большое значение придается характеристикам рабочего кресла. Так, рекомендуемая высота сиденья над уровнем пола находится в пределах 420-550 мм. Поверхность сиденья мягкая, передний край закругленный, а угол наклона спинки - регулируемый.

Необходимо предусматривать при проектировании возможность различного размещения документов: сбоку от видеотерминала, между монитором и клавиатурой и т.п. Кроме того, в случаях, когда видеотерминал имеет низкое качество изображения, например заметны мелькания, расстояние от глаз до экрана делают больше (около 700 мм), чем расстояние от глаза до документа (300-450 мм). Вообще при высоком качестве изображения на видеотерминале расстояние от глаз пользователя до экрана, документа и клавиатуры может быть равным.

Положение экрана определяется:

-расстоянием считывания (0,6... 0,7 м);

углом считывания, направлением взгляда на 20° ниже горизонтали к центру экрана, причем экран перпендикулярен этому направлению. Должна также предусматриваться возможность регулирования экрана:

Большое значение также придается правильной рабочей позе пользователя. При неудобной рабочей позе могут появиться боли в мышцах, суставах и сухожилиях.

Требования к рабочей позе пользователя видеотерминала следующие:

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

В целях преодоления указанных недостатков даются общие рекомендации: лучше передвижная клавиатура; должны быть предусмотрены специальные приспособления для регулирования высоты стола, клавиатуры и экрана, а также подставка для рук. Существенное значение для производительной и качественной работы на компьютере имеют размеры знаков, плотность их размещения, контраст и соотношение яркостей символов и фона экрана. Если расстояние от глаз оператора до экрана дисплея составляет 60...80 см, то высота знака должна быть не менее Змм, оптимальное соотношение ширины и высоты знака составляет 3:4, а расстояние между знаками - 15...20% их высоты. Соотношение яркости фона экрана и символов - от 1:2 до 1:15 [4].

Во время пользования компьютером медики советуют устанавливать монитор на расстоянии 50-60 см от глаз. Специалисты также считают, что верхняя часть видеодисплея должна быть на уровне глаз или чуть ниже. Когда человек смотрит прямо перед собой, его глаза открываются шире, чем когда он смотрит вниз. За счет этого площадь обзора значительно увеличивается, вызывая обезвоживание глаз. К тому же если экран установлен высоко, а глаза широко открыты, нарушается функция моргания. Создание благоприятных условий труда и правильное эстетическое оформление рабочих мест на производстве имеет большое значение как для облегчения труда, так и для повышения его привлекательности, положительно влияющей на производительность труда.

Пожаробезопасность.

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

Аппараты пожаротушения подразделяют на стационарные установки и огнетушители (ручные до 10 л. и передвижные или стационарные объемом свыше 25 л.).

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

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

В качестве такого средства пожаротушения можно выбрать  углекислотные ОУ-2, ОУ-3 ОУ-5, ОУ-8 огнетушители, которые применяются для тушения пожаров электроустановок, находящихся под напряжением

В данном разделе были изложены требования к рабочему месту оператора АРМа. Созданные условия должны обеспечивать комфортную работу. Соблюдения приведенных условий позволит сохранить хорошую работоспособность в течение всего рабочего дня.

Заключение

В результате выполнения работы была разработано автоматизированное рабочее место медицинского работника дошкольного учреждения.

По результатам анализа литературы было принято решение использовать среду разработкиDelphi, язык программированияObjectPascal.

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

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

Автоматизированное рабочее место обладает удобным графическим интерфейсом.

В экономической части произведена оценка технико-экономической эффективности разработанного дипломного проекта.Рассчитана себестоимость, которая составила 77788 рублей.

В экологической части проанализированы потенциально опасные факторы, воздействующие на пользователя. Также рассмотрены вопросы безопасности работы на компьютере и эргономические требования к рабочему месту.

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

При проверке программного проекта замечаний со стороны заказника нет.

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

Литература

  1. Агальцов В.П.,Локальные базы данных. - М.:Изд-во ООО НВП "ИНЭК", 2009. - 52с.;
  2. Агальцов В.П.,Распределенные и удаленные базы данных. - М.:Изд-во ООО НВП "ИНЭК", 2008. - 83с.;
  3. Агальцов В.П., Базы данных. Локальные базы данных. Книга 1 - М.:Форум, 2009. - 352с..Шпак Ю.А., Проектирование баз данных. Просто как дважды два - М.: Эксмо, 2007. -304с.;
  4. Временные санитарные нормы и правила для работников вычислительных центров, 1992г.
  5. Ю.КлимоваЛ.М. Delphi 7.Основы программирования. Решение типовых задач. КУДИЦ-Образ, 2005. - 480 с.
  6. П.Культин Н. Б.Delphi в задачах и примерах. БХВ-Петербург, 2005. -288 с.
  7. Парижский С. М.Delphi. Только практика. МК-пресс, 2005. - 208 с. 14.Поган
  8. Поган А. М.Delphi. Руководство программиста. Эксмо, 2006. - 480 с.

Приложения

Приложение 1

1. Экранная форма «Меню»

Рис. 1 «Меню»

2. Экранная форма «Дети»

Рис. 2 «Дети»

3. Экранная форма «Ред. Кружки»

Рис. 3 «Ред. Кружки»

  1. Экранная форма «Лист здоровья»

Рис. 4 «Лист здоровья»

  1. Экранная форма «Родители»

Рис. 5 «Родители»

  1. Экранная форма «Сотрудники»

Рис. 6 «Сотрудники»

  1. Отчет «Карточка ребенка»

Приложение 2

Листинг программы

programProject1;

uses

 Forms,

 Unit1 in 'Unit1.pas' {Form1},

 Unit2 in 'Unit2.pas' {DataModule2: TDataModule},

 Unit3 in 'Unit3.pas' {Form3},

 Unit4 in 'Unit4.pas' {Form4},

 Unit5 in 'Unit5.pas' {Form5},

 Unit6 in 'Unit6.pas' {Form6},

 Unit7 in 'Unit7.pas' {Form7},

 Unit8 in 'Unit8.pas' {Form8},

 Unit9 in 'Unit9.pas' {Form9},

 Unit10 in 'Unit10.pas' {Form10},

 Unit11 in 'Unit11.pas' {Form11},

 Unit12 in 'Unit12.pas' {Form12},

 Unit13 in 'Unit13.pas' {Form13};

{$R *.res}

begin

 Application.Initialize;

 Application.CreateForm(TForm3, Form3);

 Application.CreateForm(TForm1, Form1);

 Application.CreateForm(TDataModule2, DataModule2);

 Application.CreateForm(TForm4, Form4);

 Application.CreateForm(TForm5, Form5);

 Application.CreateForm(TForm6, Form6);

 Application.CreateForm(TForm7, Form7);

 Application.CreateForm(TForm8, Form8);

 Application.CreateForm(TForm9, Form9);

 Application.CreateForm(TForm10, Form10);

 Application.CreateForm(TForm11, Form11);

 Application.CreateForm(TForm12, Form12);

 Application.CreateForm(TForm13, Form13);

 Application.Run;

end.

unit Unit3;

interface

uses

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

 Dialogs, StdCtrls, Grids, DBGrids, DBCtrls, ExtCtrls, jpeg, Buttons,

 Menus, WordXP, OleServer;

type

 TForm3 = class(TForm)

   Image1: TImage;

   GroupBox1: TGroupBox;

   BitBtn1: TBitBtn;

   BitBtn2: TBitBtn;

   BitBtn3: TBitBtn;

   BitBtn4: TBitBtn;

   BitBtn5: TBitBtn;

   BitBtn6: TBitBtn;

   BitBtn7: TBitBtn;

   BitBtn8: TBitBtn;

   BitBtn9: TBitBtn;

   MainMenu1: TMainMenu;

   N1: TMenuItem;

   N2: TMenuItem;

   N3: TMenuItem;

   N4: TMenuItem;

   N5: TMenuItem;

   N6: TMenuItem;

   N7: TMenuItem;

   N8: TMenuItem;

   N9: TMenuItem;

   N10: TMenuItem;

   N11: TMenuItem;

   procedure Button1Click(Sender: TObject);

   procedure BitBtn1Click(Sender: TObject);

   procedure BitBtn2Click(Sender: TObject);

   procedure BitBtn3Click(Sender: TObject);

   procedure BitBtn8Click(Sender: TObject);

   procedure FormShow(Sender: TObject);

   procedure BitBtn4Click(Sender: TObject);

   procedure BitBtn5Click(Sender: TObject);

   procedure BitBtn9Click(Sender: TObject);

   procedure BitBtn7Click(Sender: TObject);

   procedure BitBtn6Click(Sender: TObject);

   procedure N5Click(Sender: TObject);

   procedure N6Click(Sender: TObject);

   procedure N7Click(Sender: TObject);

   procedure N8Click(Sender: TObject);

   procedure N9Click(Sender: TObject);

   procedure N2Click(Sender: TObject);

   procedure N3Click(Sender: TObject);

   procedure N4Click(Sender: TObject);

   procedure N10Click(Sender: TObject);

   procedure N11Click(Sender: TObject);

   procedure N12Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form3: TForm3;

implementation

uses Unit1, Unit2, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10, Unit11, Unit12, Unit13;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

begin

Form1.Show;

Form3.Hide;

end;

procedure TForm3.BitBtn1Click(Sender: TObject);

begin

if MessageDlg('Хотитевыйти?', mtInformation, [mbYes, mbNo], 0)=mrYes

THEN

 begin

   Form3.Close;

 end;

end;

procedure TForm3.BitBtn2Click(Sender: TObject);

begin

Form1.Show;

Form3.Hide;

end;

procedure TForm3.BitBtn3Click(Sender: TObject);

begin

Form4.Show;

Form3.Hide;

end;

procedure TForm3.BitBtn8Click(Sender: TObject);

begin

Form5.Show;

Form3.Hide;

end;

procedure TForm3.FormShow(Sender: TObject);

var

  UserIndex:integer;

  user:string;

begin

user:=AnsiLowerCase(DataModule2.IBDatabase1.Params.ValueFromIndex[0]);

userindex:=-1;

if (user='sysdba')

then userindex:=0;

if (user='editor')

then userindex:=1;

if (user='reader')

then userindex:=2;

CASE userindex OF

 -1:begin//DARK ZONE

     ShowMessage('Невозможно зайти в программу: неверны логин или пароль. Программабудетзакрыта.');

     Form3.Close;

    end;

 1:begin//EDITOR

   Form3.BitBtn2.Hide;

   end;

 2:begin//READER

   Form3.BitBtn2.Hide;

   Form4.BitBtn4.Hide;

   Form4.BitBtn5.Hide;

   Form4.BitBtn6.Hide;

   Form5.BitBtn1.Hide;

   Form5.BitBtn2.Hide;

   Form5.BitBtn3.Hide;

   Form5.BitBtn4.Hide;

   Form5.BitBtn5.Hide;

   Form5.BitBtn6.Hide;

   Form6.BitBtn1.Hide;

   Form6.BitBtn2.Hide;

   Form6.BitBtn3.Hide;

   Form7.BitBtn1.Hide;

   Form7.BitBtn2.Hide;

   Form7.BitBtn3.Hide;

   Form8.BitBtn1.Hide;

   Form8.BitBtn2.Hide;

   Form8.BitBtn3.Hide;

   Form9.BitBtn1.Hide;

   Form9.BitBtn2.Hide;

   Form9.BitBtn3.Hide;

   Form10.BitBtn1.Hide;

   Form10.BitBtn2.Hide;

   Form10.BitBtn3.Hide;

   Form11.BitBtn1.Hide;

   Form11.BitBtn2.Hide;

   Form11.BitBtn3.Hide;

   end;

END;//CASE userindex OF

DataModule2.IBDatabase1.Connected:=true;

DataModule2.IBQuery1.Open;

DataModule2.IBQuery2.Open;

DataModule2.IBQuery3.Open;

DataModule2.IBQuery4.Open;

DataModule2.IBQuery5.Open;

DataModule2.IBQuery6.Open;

DataModule2.IBQuery7.Open;

DataModule2.IBQuery8.Open;

DataModule2.IBQuery9.Open;

DataModule2.IBQuery10.Open;

DataModule2.IBQuery11.Open;

DataModule2.IBQuery12.Open;

DataModule2.IBQuery13.Open;

DataModule2.IBUser.Open;

//DataModule2.IBmama.Open;

//DataModule2.IBpapa.Open;

//DataModule2.IBkrugki.Open;

//DataModule2.IBprivivki.Open;

//DataModule2.IBuspev.Open;

end;

procedure TForm3.BitBtn4Click(Sender: TObject);

begin

Form9.Show;

Form3.Hide;

end;

procedure TForm3.BitBtn5Click(Sender: TObject);

begin

Form10.Show;

Form3.Hide;

end;

procedure TForm3.BitBtn9Click(Sender: TObject);

begin

Form7.Show;

Form3.Hide;

end;

procedure TForm3.BitBtn7Click(Sender: TObject);

begin

Form8.Show;

Form3.Hide;

end;

procedure TForm3.BitBtn6Click(Sender: TObject);

begin

Form11.Show;

Form3.Hide;

end;

procedure TForm3.N5Click(Sender: TObject);

begin

Form4.Show;

Form3.Hide;

end;

procedure TForm3.N6Click(Sender: TObject);

begin

Form9.Show;

Form3.Hide;

end;

procedure TForm3.N7Click(Sender: TObject);

begin

Form10.Show;

Form3.Hide;

end;

procedure TForm3.N8Click(Sender: TObject);

begin

Form11.Show;

Form3.Hide;

end;

procedure TForm3.N9Click(Sender: TObject);

begin

Form8.Show;

Form3.Hide;

end;

procedure TForm3.N2Click(Sender: TObject);

begin

Form5.Show;

Form3.Hide;

end;

procedure TForm3.N3Click(Sender: TObject);

begin

Form7.Show;

Form3.Hide;

end;

procedure TForm3.N4Click(Sender: TObject);

begin

end;

procedure TForm3.N10Click(Sender: TObject);

begin

if MessageDlg('Хотитевыйти?', mtInformation, [mbYes, mbNo], 0)=mrYes

THEN

 begin

   Form3.Close;

 end;

end;

procedure TForm3.N11Click(Sender: TObject);

begin

Form12.Show;

end;

end;

unit Unit5;

//Родители

interface

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

 Dialogs, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids, ComCtrls;

type

 TForm5 = class(TForm)

   GroupBox1: TGroupBox;

   GroupBox2: TGroupBox;

   DBGrid1: TDBGrid;

   DBGrid2: TDBGrid;

   LabeledEdit1: TLabeledEdit;

   LabeledEdit2: TLabeledEdit;

   LabeledEdit3: TLabeledEdit;

   LabeledEdit5: TLabeledEdit;

   LabeledEdit6: TLabeledEdit;

   LabeledEdit7: TLabeledEdit;

   LabeledEdit8: TLabeledEdit;

   LabeledEdit9: TLabeledEdit;

   LabeledEdit10: TLabeledEdit;

   LabeledEdit11: TLabeledEdit;

   LabeledEdit13: TLabeledEdit;

   LabeledEdit14: TLabeledEdit;

   LabeledEdit15: TLabeledEdit;

   LabeledEdit16: TLabeledEdit;

   BitBtn1: TBitBtn;

   BitBtn2: TBitBtn;

   BitBtn3: TBitBtn;

   BitBtn4: TBitBtn;

   BitBtn5: TBitBtn;

   BitBtn6: TBitBtn;

   BitBtn7: TBitBtn;

   SQLBox: TListBox;

   Image1: TImage;

   Image2: TImage;

   BitBtn8: TBitBtn;

   DateTimePicker1: TDateTimePicker;

   DateTimePicker2: TDateTimePicker;

   Label1: TLabel;

   Label2: TLabel;

   procedure BitBtn7Click(Sender: TObject);

   procedure DBGrid1CellClick(Column: TColumn);

   procedure DBGrid2CellClick(Column: TColumn);

   procedure BitBtn1Click(Sender: TObject);

   procedure FormShow(Sender: TObject);

   procedure BitBtn2Click(Sender: TObject);

   procedure BitBtn3Click(Sender: TObject);

   procedure BitBtn4Click(Sender: TObject);

   procedure BitBtn5Click(Sender: TObject);

   procedure BitBtn6Click(Sender: TObject);

   procedure BitBtn8Click(Sender: TObject);

   procedureTableRefresh();//Устанавливает границы и размеры вDbGrid

procedureClearEdit(key:byte);//key: 0 –очистить поле «Мама»,любоедругое число-очистить поле «Папа»

procedureCheckIdenticalRecord(key :byte);//Проверка на совпадение записей (key: 0 - таблица "Мама", 1 - "Папа")

procedure LabeledEdit1KeyPress(Sender: TObject; var Key: Char);

   procedure LabeledEdit3KeyPress(Sender: TObject; var Key: Char);

   procedure LabeledEdit5KeyPress(Sender: TObject; var Key: Char);

   procedure LabeledEdit6KeyPress(Sender: TObject; var Key: Char);

   procedure LabeledEdit7KeyPress(Sender: TObject; var Key: Char);

   procedure LabeledEdit8KeyPress(Sender: TObject; var Key: Char);

   procedure LabeledEdit2KeyPress(Sender: TObject; var Key: Char);

   procedure LabeledEdit9KeyPress(Sender: TObject; var Key: Char);

   procedure LabeledEdit10KeyPress(Sender: TObject; var Key: Char);

   procedure LabeledEdit11KeyPress(Sender: TObject; var Key: Char);

   procedure LabeledEdit13KeyPress(Sender: TObject; var Key: Char);

   procedure LabeledEdit14KeyPress(Sender: TObject; var Key: Char);

   procedure LabeledEdit15KeyPress(Sender: TObject; var Key: Char);

   procedure LabeledEdit16KeyPress(Sender: TObject; var Key: Char);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form5: TForm5;

implementation

uses Unit1, Unit2, Unit3, Unit4, Unit6, Unit7, Unit8, Unit9, Unit10, Unit11, Unit12, Unit13;

{$R *.dfm}

procedure TForm5.CheckIdenticalRecord(key : byte);

begin

if (key=0) then

 begin

 //Длятаблицы MAMA

 DataModule2.IBQuery12.First;

 repeat

   if  (

       (AnsiLowerCase(DataModule2.IBQuery12.Fields[1].AsString)=AnsiLowerCase(LabeledEdit1.Text)) and

(AnsiLowerCase(DataModule2.IBQuery12.Fields[2].AsString)=AnsiLowerCase(LabeledEdit2.Text)) and

(AnsiLowerCase(DataModule2.IBQuery12.Fields[3].AsString)=AnsiLowerCase(LabeledEdit3.Text)) and

       (DataModule2.IBQuery12.Fields[4].AsString=DateToStr(DateTimePicker1.DateTime)) and

(AnsiLowerCase(DataModule2.IBQuery12.Fields[5].AsString)=AnsiLowerCase(LabeledEdit5.Text)) and

(AnsiLowerCase(DataModule2.IBQuery12.Fields[6].AsString)=AnsiLowerCase(LabeledEdit6.Text)) and

(AnsiLowerCase(DataModule2.IBQuery12.Fields[7].AsString)=AnsiLowerCase(LabeledEdit7.Text)) and

(AnsiLowerCase(DataModule2.IBQuery12.Fields[8].AsString)=AnsiLowerCase(LabeledEdit8.Text))

)

then

begin

ShowMessage('Такая запись уже существует!');

abort;

       end;

    DataModule2.IBQuery12.Next;

    DbGrid1.SetFocus;

 until DataModule2.IBQuery12.Eof;

 end

   else

 begin

 //Длятаблицы PAPA

 DataModule2.IBQuery13.First;

 repeat

   if  (

(AnsiLowerCase(DataModule2.IBQuery13.Fields[1].AsString)=AnsiLowerCase(LabeledEdit9.Text)) and

(AnsiLowerCase(DataModule2.IBQuery13.Fields[2].AsString)=AnsiLowerCase(LabeledEdit10.Text)) and

(AnsiLowerCase(DataModule2.IBQuery13.Fields[3].AsString)=AnsiLowerCase(LabeledEdit11.Text)) and

       (DataModule2.IBQuery13.Fields[4].AsString=DateToStr(DateTimePicker2.DateTime)) and

       (AnsiLowerCase(DataModule2.IBQuery13.Fields[5].AsString)=AnsiLowerCase(LabeledEdit13.Text)) and

(AnsiLowerCase(DataModule2.IBQuery13.Fields[6].AsString)=AnsiLowerCase(LabeledEdit14.Text)) and

(AnsiLowerCase(DataModule2.IBQuery13.Fields[7].AsString)=AnsiLowerCase(LabeledEdit15.Text)) and

(AnsiLowerCase(DataModule2.IBQuery13.Fields[8].AsString)=AnsiLowerCase(LabeledEdit16.Text))

)

then

begin

ShowMessage('Такая запись уже существует!');

abort;

       end;

    DataModule2.IBQuery13.Next;

    DbGrid2.SetFocus;

 until DataModule2.IBQuery13.Eof;

 end;

end;

procedure TForm5.ClearEdit(key: byte);// key: 0 –очиститьполе «Мама»,любоедругоечисло-очиститьполе «Папа»

begin

if (key=0) then

 begin

   LabeledEdit1.Text:='';

   LabeledEdit2.Text:='';

   LabeledEdit3.Text:='';

   DateTimePicker1.DateTime:=StrToDate('01.01.2008');

   LabeledEdit5.Text:='';

   LabeledEdit6.Text:='';

   LabeledEdit7.Text:='';

   LabeledEdit8.Text:='';

 end

   else

 begin

   LabeledEdit9.Text:='';

   LabeledEdit10.Text:='';

   LabeledEdit11.Text:='';

   DateTimePicker2.DateTime:=StrToDate('01.01.2008');

   LabeledEdit13.Text:='';

   LabeledEdit14.Text:='';

   LabeledEdit15.Text:='';

   LabeledEdit16.Text:='';

 end;

end;

procedure TForm5.TableRefresh();

begin

Form5.DBGrid1.DataSource:=Datamodule2.DataSource12;

Form5.DBGrid2.DataSource:=Datamodule2.DataSource13;

Form5.DBGrid1.Columns[0].Title.Caption:='№';

Form5.DBGrid1.Columns[1].Title.Caption:='Фамилия';

Form5.DBGrid1.Columns[2].Title.Caption:='Имя';

Form5.DBGrid1.Columns[3].Title.Caption:='Отчество';

Form5.DBGrid1.Columns[4].Title.Caption:='Датарождения';

Form5.DBGrid1.Columns[5].Title.Caption:='Адрес';

Form5.DBGrid1.Columns[6].Title.Caption:='тел.Дом';

Form5.DBGrid1.Columns[7].Title.Caption:='тел.Мобилый';

Form5.DBGrid1.Columns[8].Title.Caption:='Местоработы';

Form5.DBGrid1.Columns.Items[0].Width:=0;

Form5.DBGrid1.Columns.Items[1].Width:=100;

Form5.DBGrid1.Columns.Items[2].Width:=70;

Form5.DBGrid1.Columns.Items[3].Width:=70;

Form5.DBGrid1.Columns.Items[4].Width:=70;

Form5.DBGrid1.Columns.Items[5].Width:=160;

Form5.DBGrid1.Columns.Items[6].Width:=100;

Form5.DBGrid1.Columns.Items[7].Width:=100;

Form5.DBGrid1.Columns.Items[8].Width:=100;

Form5.DBGrid2.Columns[0].Title.Caption:='№';

Form5.DBGrid2.Columns[1].Title.Caption:='Фамилия ';

Form5.DBGrid2.Columns[2].Title.Caption:='Имя ';

Form5.DBGrid2.Columns[3].Title.Caption:='Отчество ';

Form5.DBGrid2.Columns[4].Title.Caption:='Датарождения';

Form5.DBGrid2.Columns[5].Title.Caption:= 'Адрес';

Form5.DBGrid2.Columns[6].Title.Caption:= 'тел.Дом';

Form5.DBGrid2.Columns[7].Title.Caption:= 'тел.Мобилый';

Form5.DBGrid2.Columns[8].Title.Caption:= 'Местоработы';

Form5.DBGrid2.Columns.Items[0].Width:=0;

Form5.DBGrid2.Columns.Items[1].Width:=70;

Form5.DBGrid2.Columns.Items[2].Width:=70;

Form5.DBGrid2.Columns.Items[3].Width:=70;

Form5.DBGrid2.Columns.Items[4].Width:=70;

Form5.DBGrid2.Columns.Items[5].Width:=160;

Form5.DBGrid2.Columns.Items[6].Width:=100;

Form5.DBGrid2.Columns.Items[7].Width:=100;

Form5.DBGrid2.Columns.Items[8].Width:=100;

end;

procedure TForm5.BitBtn7Click(Sender: TObject);

begin

if MessageDlg('Хотитевыйтивменю?', mtInformation, [mbYes, mbNo], 0)=mrYes

THEN

 begin

   Form5.Hide;

   Form3.Show;

 end;

end;

procedure TForm5.FormShow(Sender: TObject);

begin

Form5.TableRefresh();

BitBtn2.Enabled:=false;

BitBtn3.Enabled:=false;

BitBtn5.Enabled:=false;

BitBtn6.Enabled:=false;

end;

procedure TForm5.DBGrid1CellClick(Column: TColumn);

begin

 LabeledEdit1.Text:=DbGrid1.Fields[1].AsString;

 LabeledEdit2.Text:=DbGrid1.Fields[2].AsString;

 LabeledEdit3.Text:=DbGrid1.Fields[3].AsString;

 DateTimePicker1.DateTime:=StrToDate(DbGrid1.Fields[4].AsString);

 LabeledEdit5.Text:=DbGrid1.Fields[5].AsString;

 LabeledEdit6.Text:=DbGrid1.Fields[6].AsString;

 LabeledEdit7.Text:=DbGrid1.Fields[7].AsString;

 LabeledEdit8.Text:=DbGrid1.Fields[8].AsString;

 BitBtn2.Enabled:=true;

 BitBtn3.Enabled:=true;

end;

procedure TForm5.DBGrid2CellClick(Column: TColumn);

begin

 LabeledEdit9.Text:=DbGrid2.Fields[1].AsString;

 LabeledEdit10.Text:=DbGrid2.Fields[2].AsString;

 LabeledEdit11.Text:=DbGrid2.Fields[3].AsString;

 DateTimePicker2.DateTime:=StrToDate(DbGrid2.Fields[4].AsString);

 LabeledEdit13.Text:=DbGrid2.Fields[5].AsString;

 LabeledEdit14.Text:=DbGrid2.Fields[6].AsString;

 LabeledEdit15.Text:=DbGrid2.Fields[7].AsString;

 LabeledEdit16.Text:=DbGrid2.Fields[8].AsString;

 BitBtn5.Enabled:=true;

 BitBtn6.Enabled:=true;

end;

//ДобавитьМАМУ

procedure TForm5.BitBtn1Click(Sender: TObject);

var

 p1,p2,p3,p4,p5,p6,p7,p8:string;

 GSQLText:string;

begin

 p1:=LabeledEdit1.Text;

 p2:=LabeledEdit2.Text;

 p3:=LabeledEdit3.Text;

 p4:=DateToStr(DateTimePicker1.DateTime);

 p5:=LabeledEdit5.Text;

 p6:=LabeledEdit6.Text;

 p7:=LabeledEdit7.Text;

 p8:=LabeledEdit8.Text;

 //проверка на заполненность

Form1.CheckValueOnNull(p1,'фамилия');

 Form1.CheckValueOnNull(p2,'Имя');

 Form1.CheckValueOnNull(p3,'Отчество');

 Form1.CheckValueOnNull(p4,'Датарождения');

 Form1.CheckValueOnNull(p5,'Адрес');

 Form1.CheckValueOnNull(p6,'Домашнийтелефон');

 Form1.CheckValueOnNull(p7,'Мобильныйтелефон);

 Form1.CheckValueOnNull(p8,'Местоработы');

//конец проверки на заполненность

Form5.CheckIdenticalRecord(0);

GSQLText:='GEN_ID(G_MAMA, 1)';

 With SQLbox.Items do begin

   Clear;

   add('INSERT INTO MAMA');

   add('VALUES ('+GSQLText+', '''+p1+''', '''+p2+''', '''+p3+''', '''+p4+''', '''+p5+''', '''+p6+''', '''+p7+''', '''+p8+''');');

 end;

 DataModule2.IBSQL1.SQL.Clear;

 DataModule2.IBSQL1.SQL:=SQLBox.Items;

 DataModule2.IBSQL1.ExecQuery;

 Form1.RefreshDBQuary();

 BitBtn2.Enabled:=false;

 BitBtn3.Enabled:=false;

 Form5.TableRefresh();

 Form5.ClearEdit(0);

end;

//Редактироватьмаму

procedure TForm5.BitBtn2Click(Sender: TObject);

var

 p0,p1,p2,p3,p4,p5,p6,p7,p8:string;

begin

 p0:=DBGrid1.Fields[0].AsString;

 p1:=LabeledEdit1.Text;

 p2:=LabeledEdit2.Text;

 p3:=LabeledEdit3.Text;

 p4:=DateToStr(DateTimePicker1.DateTime);

 p5:=LabeledEdit5.Text;

 p6:=LabeledEdit6.Text;

 p7:=LabeledEdit7.Text;

 p8:=LabeledEdit8.Text;

 Pole0:='KOD_RODITELYA_MAMA';

 Pole1:='FAMILIYA';

 Pole2:='IMYA';

 Pole3:='OTCHESTVO';

 Pole4:='DATA_ROGDENIYA';

 Pole5:='ADRESS';

 Pole6:='TEL_DOM';

 Pole7:='TEL_MOB';

 Pole8:='MESTO_RABOTI';

//проверка на заполненность

Form1.CheckValueOnNull(p1,'фамилия');

Form1.CheckValueOnNull(p2,'Имя');

 Form1.CheckValueOnNull(p3,'Отчество');

 Form1.CheckValueOnNull(p4,'Датарождения');

 Form1.CheckValueOnNull(p5,'Адрес');

 Form1.CheckValueOnNull(p6,'Домашнийтелефон');

 Form1.CheckValueOnNull(p7,'Мобильныйтелефон);

 Form1.CheckValueOnNull(p8,'Местоработы');

//конец проверки на заполненность

Form5.CheckIdenticalRecord(0);

With SQLbox.Items do begin

   Clear;

   add('UPDATE MAMA');

   add('SET '+pole1+' = '''+p1+''', '+pole2+' = '''+p2+''', '+pole3+' = '''+p3+''', '+pole4+' = '''+p4+''', '+pole5+' = '''+p5+''', '+pole6+' = '''+p6+''', '+pole7+' = '''+p7+''', '+pole8+' = '''+p8+'''');

   add('WHERE '+pole0+' = '+p0+';');

 end;

 DataModule2.IBSQL1.SQL.Clear;

 DataModule2.IBSQL1.SQL:=SQLBox.Items;

 DataModule2.IBSQL1.ExecQuery;

 Form1.RefreshDBQuary();

 BitBtn2.Enabled:=false;

 BitBtn3.Enabled:=false;

 Form5.TableRefresh();

 Form5.ClearEdit(0);

end;

//Удалитьмаму

procedure TForm5.BitBtn3Click(Sender: TObject);

begin

 With SQLbox.Items do begin

   Clear;

   add('delete from MAMA');

   add('WHERE KOD_RODITELYA_MAMA = '+DBgrid1.Fields[0].AsString+';');

 end;

 DataModule2.IBSQL1.SQL.Clear;

 DataModule2.IBSQL1.SQL:=SQLBox.Items;

 DataModule2.IBSQL1.ExecQuery;

 Form1.RefreshDBQuary();

 BitBtn2.Enabled:=false;

 BitBtn3.Enabled:=false;

 Form5.TableRefresh();

 Form5.ClearEdit(0);

end;

//Добавитьпапу

procedure TForm5.BitBtn4Click(Sender: TObject);

var

 p1,p2,p3,p4,p5,p6,p7,p8:string;

 GSQLText:string;

begin

 p1:=LabeledEdit9.Text;

 p2:=LabeledEdit10.Text;

 p3:=LabeledEdit11.Text;

 p4:=DateToStr(DateTimePicker2.DateTime);

 p5:=LabeledEdit13.Text;

 p6:=LabeledEdit14.Text;

 p7:=LabeledEdit15.Text;

 p8:=LabeledEdit16.Text;

 //ïðîâåðêà íà çàïîëíåííîñòü

//проверка на заполненность

Form1.CheckValueOnNull(p1,'фамилия');

Form1.CheckValueOnNull(p2,'Имя');

 Form1.CheckValueOnNull(p3,'Отчество');

 Form1.CheckValueOnNull(p4,'Датарождения');

 Form1.CheckValueOnNull(p5,'Адрес');

 Form1.CheckValueOnNull(p6,'Домашнийтелефон');

 Form1.CheckValueOnNull(p7,'Мобильныйтелефон);

 Form1.CheckValueOnNull(p8,'Местоработы');

//конец проверки на заполненность

Form5.CheckIdenticalRecord(1);

GSQLText:='GEN_ID(G_PAPA, 1)';

 With SQLbox.Items do begin

   Clear;

   add('INSERT INTO PAPA');

   add('VALUES ('+GSQLText+', '''+p1+''', '''+p2+''', '''+p3+''', '''+p4+''', '''+p5+''', '''+p6+''', '''+p7+''', '''+p8+''');');

 end;

 DataModule2.IBSQL1.SQL.Clear;

 DataModule2.IBSQL1.SQL:=SQLBox.Items;

 DataModule2.IBSQL1.ExecQuery;

 Form1.RefreshDBQuary();

 SQLbox.Items.Clear;

 BitBtn5.Enabled:=false;

 BitBtn6.Enabled:=false;

 Form5.TableRefresh();

 Form5.ClearEdit(1);

end;

//Редактироватьпапу

procedure TForm5.BitBtn5Click(Sender: TObject);

var

 p0,p1,p2,p3,p4,p5,p6,p7,p8:string;

begin

 p0:=DBGrid2.Fields[0].AsString;

 p1:=LabeledEdit9.Text;

 p2:=LabeledEdit10.Text;

 p3:=LabeledEdit11.Text;

 p4:=DateToStr(DateTimePicker2.DateTime);

 p5:=LabeledEdit13.Text;

 p6:=LabeledEdit14.Text;

 p7:=LabeledEdit15.Text;

 p8:=LabeledEdit16.Text;

 Pole0:='KOD_RODITELYA_PAPA';

 Pole1:='FAMILIYA';

 Pole2:='IMYA';

 Pole3:='OTCHESTVO';

 Pole4:='DATA_ROGDENIYA';

 Pole5:='ADRESS';

 Pole6:='TEL_DOM';

 Pole7:='TEL_MOB';

 Pole8:='MESTO_RABOTI';

//проверка на заполненность

Form1.CheckValueOnNull(p1,'фамилия');

Form1.CheckValueOnNull(p2,'Имя');

 Form1.CheckValueOnNull(p3,'Отчество');

 Form1.CheckValueOnNull(p4,'Датарождения');

 Form1.CheckValueOnNull(p5,'Адрес');

 Form1.CheckValueOnNull(p6,'Домашнийтелефон');

 Form1.CheckValueOnNull(p7,'Мобильныйтелефон);

 Form1.CheckValueOnNull(p8,'Местоработы');

//конец проверки на заполненность

Form5.CheckIdenticalRecord(1);

With SQLbox.Items do begin

   Clear;

   add('UPDATE PAPA');

   add('SET '+pole1+' = '''+p1+''', '+pole2+' = '''+p2+''', '+pole3+' = '''+p3+''', '+pole4+' = '''+p4+''', '+pole5+' = '''+p5+''', '+pole6+' = '''+p6+''', '+pole7+' = '''+p7+''', '+pole8+' = '''+p8+'''');

   add('WHERE '+pole0+' = '+p0+';');

 end;

 DataModule2.IBSQL1.SQL.Clear;

 DataModule2.IBSQL1.SQL:=SQLBox.Items;

 DataModule2.IBSQL1.ExecQuery;

 Form1.RefreshDBQuary();

 BitBtn5.Enabled:=false;

 BitBtn6.Enabled:=false;

 Form5.TableRefresh();

 Form5.ClearEdit(1);

end;

//Удалитьпапу

procedure TForm5.BitBtn6Click(Sender: TObject);

begin

 With SQLbox.Items do begin

   Clear;

   add('delete from PAPA');

   add('WHERE KOD_RODITELYA_PAPA = '+DBgrid2.Fields[0].AsString+';');

 end;

 DataModule2.IBSQL1.SQL.Clear;

 DataModule2.IBSQL1.SQL:=SQLBox.Items;

 DataModule2.IBSQL1.ExecQuery;

 Form1.RefreshDBQuary();

 BitBtn5.Enabled:=false;

 BitBtn6.Enabled:=false;

 Form5.TableRefresh();

 Form5.ClearEdit(1);

end;

//Типсемьи

procedure TForm5.BitBtn8Click(Sender: TObject);

begin

Form6.Caption:='Òèï Ñåìüè';

double_TBL:='TIP_SEMI';

double_p0:='KOD_TIPA_SEMI';

double_p1:='TIP_SEMI';

Form6.DBGrid1.DataSource:=Datamodule2.DataSource5;

Form6.LabeledEdit1.Text:='';

Form6.LabeledEdit1.EditLabel.Caption:='Типсемьи ';

double_field1:='Типсемьи ';

Form6.Show;

end;

//Фамилия (мама)

procedure TForm5.LabeledEdit1KeyPress(Sender: TObject; var Key: Char);

type

  massiv = array[1..33] of char;

const

 n=33;

begin

Form1.CheckKey(key,mass,n);

end;

//Имя (мама)

procedure TForm5.LabeledEdit2KeyPress(Sender: TObject; var Key: Char);

type

  massiv = array[1..33] of char;

const

 n=33;

begin

Form1.CheckKey(key,mass,n);

end;

//Отчество (мама)

procedure TForm5.LabeledEdit3KeyPress(Sender: TObject; var Key: Char);

type

  massiv = array[1..33] of char;

const

 n=33;

begin

Form1.CheckKey(key,mass,n);

end;

//Адрес (мама)

procedure TForm5.LabeledEdit5KeyPress(Sender: TObject; var Key: Char);

type

  massiv = array[1..54] of char;

const

 n=54;

begin

Form1.CheckKey(key,mass,n);

end;

//Телефондомашний (мама)

procedure TForm5.LabeledEdit6KeyPress(Sender: TObject; var Key: Char);

type

  massiv = array[1..13] of char;

const

 n=13;

 mass : massiv = ('0','1','2','3','4','5','6','7','8','9','-','(',')');

begin

Form1.CheckKey(key,mass,n);

end;

//Фамилия (папа)

procedure TForm5.LabeledEdit1KeyPress(Sender: TObject; var Key: Char);

type

  massiv = array[1..33] of char;

const

 n=33;

 mass : massiv = ('à','á','â','ã','ä','å','¸','æ','ç','è','é','ê','ë','ì','í','î','ï','ð','ñ','ò','ó','ô','õ','ö','÷','ø','ù','ú','û','ü','ý','þ','ÿ');

begin

Form1.CheckKey(key,mass,n);

end;

//Имя (папа)

procedure TForm5.LabeledEdit2KeyPress(Sender: TObject; var Key: Char);

type

  massiv = array[1..33] of char;

const

 n=33;

 mass : massiv = ('à','á','â','ã','ä','å','¸','æ','ç','è','é','ê','ë','ì','í','î','ï','ð','ñ','ò','ó','ô','õ','ö','÷','ø','ù','ú','û','ü','ý','þ','ÿ');

begin

Form1.CheckKey(key,mass,n);

end;

//Отчество (папа)

procedure TForm5.LabeledEdit3KeyPress(Sender: TObject; var Key: Char);

type

  massiv = array[1..33] of char;

const

 n=33;

 mass : massiv = ('à','á','â','ã','ä','å','¸','æ','ç','è','é','ê','ë','ì','í','î','ï','ð','ñ','ò','ó','ô','õ','ö','÷','ø','ù','ú','û','ü','ý','þ','ÿ');

begin

Form1.CheckKey(key,mass,n);

end;

begin

Form1.CheckKey(key,mass,n);

end;

//Местоработы (папа)

procedure TForm5.LabeledEdit8KeyPress(Sender: TObject; var Key: Char);

type

  massiv = array[1..80] of char;

const

 n=80;

 mass : massiv = ('à','á','â','ã','ä','å','¸','æ','ç','è','é','ê','ë','ì','í','î','ï','ð','ñ','ò','ó','ô','õ','ö','÷','ø','ù','ú','û','ü','ý','þ','ÿ','0','1','2','3','4','5','6','7','8','9','-','(',')','¹','"','.',',',';','\','/',' ','q','w','e','r','t','y','u','i','o','p','a','s','d','f','g','h','j','k','l','z','x','c','v','b','n','m');

begin

Form1.CheckKey(key,mass,n);

end;

end:




Похожие работы, которые могут быть Вам интерестны.

1. Автоматизированное рабочее место менеджера-администратора автошколы

2. Автоматизированное рабочее место (АРМ) мастера заготовительного участка

3. Автоматизированное рабочее место специалиста по работе с клиентами санатория

4. Основные модели взаимоотношений медицинского работника и пациента и их значение в фармацевтической деятельности

5. Предупреждение синдрома эмоционального выгорания у педагогов дошкольного учреждения

6. Разработка мероприятия для формирования инвестиционной привлекательности реконструкции детского дошкольного учреждения

7. Автоматизированное проектирование сетей внутреннего водоотведенияc применением системы AutoCAD

8. Особенности организации медицинского страхования в РФ

9. Рабочее время. Правовое регулирование сверхурочной работы

10. Трудовая мобильность работника