Автоматизированное рабочее место сотрудника пожарного контроля
Министерство образования и науки
Республики Хакасия
ГБОУ РХ СПО Хакасский Политехнический
Колледж
Специальность 230103
"Автоматизированные системы
обработки информации и управления"
Пояснительная записка
к курсовому проекту
По дисциплине: Разработка и
эксплуатация АИС
тема: "Автоматизированное
рабочее место сотрудника пожарного контроля"
Руководитель: А.В. Сакерин
Выполнил: Студент группы: АИС-41
Абакан 2012 год
Оглавление
1. Введение
2. Основная часть
2.1 Описание предметной области
2.2 Выбор средств разработки
2.3 Структура данных
2.4 Описание продукта
1.5 Экономические преимущества от внедрения
3. Заключение
4. Список использованных источников
5. Глоссарий
6. Список аббревиатур
7. Приложения
1. Введение
До внедрения программного продукта вся информация хранилась в
бумажном варианте. Основными недостатками такого подхода являются:
Долгий процесс составления;
Сложность поиска информации в бумажном архиве;
При длительном хранении документов происходит износ бумаги;
Внесение поправок является долгим и требует дополнительных
процедур согласования.
Все эти недостатки указывают на необходимость автоматизации
(создания программного продукта с удобным интерфейсом и проработанной
структурой данных).
Целью данного курсового проекта является создание
программного продукта, автоматизирующего деятельность сотрудника пожарного
контроля.
Для этого поставлены следующие задачи:
Исследование предметной области
Проектирование структуры БД
Разработка алгоритмов
Проектирование интерфейса
Создание и тестирование модулей ПП
Внедрение ПП
программный продукт пожарный контроль
2.
Основная часть
2.1 Описание
предметной области
Основная задача информационной системы - учет информации о
пожарах.
Для выполнения этой задачи необходимо владеть информацией:
о пострадавших от каких-либо последствий
о диспетчере
о машинах, которые были использованы
о водителях
о крименалистах
о командире
о пожарнике
Результатами выполнения основной задачи являются:
Прошедшие мероприятия;
Отчеты (по студентам, по научным руководителям и т.д.);
Поставленную задачу выполняют:
Сотрудники, ответственный за учет мероприятий
Рис. 2.1 IDEF0
Задачу можно условно разделить на следующие этапы:
Подобрать участников для проведения мероприятия;
Назначить задание на проведение мероприятия;
провести мероприятие.
Результатами выполнения основной задачи будут:
Прошедшие мероприятия;
Отчет;
Статистика.
Рис. 2.2 IDEF0 - 1 уровень
В системе взаимодействуют следующие сущности:
Студент;
Научный руководитель;
Мероприятие;
Задачи мероприятия;
Место проведения.
Рис. 2.3 ER-диаграмма
В системе взаимодействуют следующие объекты:
Научные руководители;
Администратор по проведению мероприятий;
Зам. Директора по научной работе;
Набор записей и документов по мероприятию (бумажный
носитель).
Они взаимодействуют следующим образом:
Научные руководители предоставляют информацию о студентах;
Администратор делает заявку о мероприятии зам. Директору по
научной работе;
Зам. Директора по научной работе реализует мероприятие.
Рис. 4 DFD до внедрения продукта
2.2 Выбор
средств разработки
Выбор
платформы
В настоящий момент широко распространены 4 программные
платформы:
ОС Windows
ОС Linux
ОС MacOS + мобильные версии
ОС Android
Первые две платформы являются достаточно универсальными и
работают на множестве аппаратных платформ, тогда как последние две имеют
ограниченный набор аппаратных платформ.
В поставленной задаче речь идёт о реализации ПП для ПК, а не
мобильных устройств, поэтому платформу Android и мобильную версию платформы
MacOS можно не рассматривать.
Поставленная задача ориентируется на типичное предприятие
республики Хакасия, и, значит, вероятность того, что используется компьютер от
компании Apple достаточно мала. Следовательно, платформу MacOS также можно не
рассматривать.
По данным статистики, ОС Windows распространена гораздо
больше, чем ОС Linux. Поэтому ориентироваться следует на то, что на предприятии
установлена именно Windows.
Выбор
языка программирования
Си - это язык программирования общего назначения, хорошо
известный своей эффективностью, экономичностью, и переносимостью. Указанные
преимущества Си обеспечивают хорошее качество разработки почти любого вида
программного продукта. Использование Си в качестве инструментального языка позволяет
получать быстрые и компактные программы. Во многих случаях программы,
написанные на Си, сравнимы по скорости с программами, написанными на языке
ассемблера. При этом они имеют лучшую наглядность и их более просто
сопровождать. Си сочетает эффективность и мощность в относительно малом по
размеру языке.
Пролог - это язык, предназначенный для поиска решений. Это
декларативный язык, то есть формальная постановка задачи может быть
использована для ее решения. Пролог определяет логические отношения в задаче,
как отличные от пошагового решения этой задачи.
Язык Object Pascal - строго типизированный
объектно-ориентированный язык.
Преимущества языка программирования Паскаль:
краткость языка (некоторые называют его
"спартанским" языком программирования);
легкость программирования на нем;
мобильность написанных программ;
возможность эффективной реализации и пригодность с точки
зрения формальных методов отладки программ;
Для разработки программного продукта был выбран язык Object
Pascal.
Выбор
среды разработки
Lazarus - кросс-платформенная среда разработки графических и
консольных приложений (IDE) на языке Object Pascal, свободный аналог Borland
Delphi. Интерфейс аналогичен Borland Delphi, есть аналогичные наборы
компонентов. Использует свой формат проектов, но имеется возможность импорта
проектов Delphi.
PascalABC.net - это современный язык программирования, основанный
на Delphi (Object Pascal) и сочетающий простоту языка Паскаль
<#"587252.files/image005.gif">
Рис.2.5 Схема данных
2.4 Описание
продукта
При запуске программы открывается форма аутентификации
пользователя, которая предоставляет вписать сотруднику его имя и пароль для
дальнейшего входа в программное средство.
Рис 2.4.1 Форма аутентификации
После ввода имени и пароля, пользователь переходит на главную
кнопочную форму.
Рис 2.4.2 Главная кнопочная форма
Меню главной кнопочной формы содержит следующие кнопки
"Сотрудники", "Бригады", "Информация о вызовах",
"Машины", "Пострадавшие" и "Выход".
Кнопка "Сотрудники" содержит:
· "Диспетчеры" - ФИО диспетчеров
· "Командиры" - ФИО командиров.
· "Криминалисты" - ФИО
криминалистов.
· "Водители" - ФИО водителей.
· "Пожарные" - ФИО пожарников.
Это базовые справочники, в которых предоставляется
возможность добавления и сохранения данных
Рис 2.4.3 Форма сотрудники
Кнопка "Бригады" содержит:
· Форму бригады, на которой можно изменять
данные.
Рис 2.4.4 Форма Бригады
Кнопка "Пострадавшие" содержит данные о
пострадавших.
Рис 2.4.5 Форма Пострадавшие
Кнопка "Информация о вызовах" содержит информацию о
диспетчере, пострадавшем, дате и последствии.
Рис 2.4.6 Форма Информация о вызовах
На форме "Машины" содержится информация типе машины
и номере. Также можно добавить/сохранить типы машин.
Рис.2.4.7 Форма Машины
1.5
Экономические преимущества от внедрения
Временные затраты разработчика на программный продукт:
· Стоимость 1 часа = 200руб.
· Время изготовления ПП = 90 дней*3часа *
200 = 54000руб
1. Аренда помещения=2000руб/месяц*3месяца=6000руб
2. Аренда оборудования=2000руб
руб/месяц*3месяца=6000руб
. Консультация специалиста=5000 руб
Эффект от внедрения - это в первую очередь сокращение затрат
на:
· копирование и печать документов;
· ресурсы: люди и оборудование (например,
расходные материалы, обновление копировально-множительного оборудования);
· хранение информации в бумажном виде;
· продолжительность (более быстрое
выполнение работ за счет сокращения сроков согласования и поиска документов);
· уменьшается объем рутинной, неинтересной
составляющей работы и открываются возможности творческого подхода и проявления
инициативы;
Результат - повышение продуктивности труда и количества
работ.
3. Заключение
В ходе разработки курсового проекта было выполнено
исследование предметной области. При этом были выделены взаимодействующие
объекты информационной системы:
Заказчик
Проектировщик
Мероприятия
Была поставлена следующая задача автоматизации: учет
формирования выездов пожарных.
Были исследованы платформы, языки и среды разработки. В
качестве базиса для создания программного продукта были выбраны:
Платформа: Windows
Язык программирования: Object Pascal
Среда разработки: Borland Delphi 7
СУБД: MS Access
На основании исследования предметной области была разработана
структура данных.
Был разработан программный продукт, содержащий 16 экранных
форм.
Был произведён анализ экономических преимуществ от внедрения.
Разработанный программный продукт является первой версией
системы и содержит только основные необходимые функции. В дальнейшем возможны
следующие усовершенствования продукта:
усовершенствованный интерфейс
создание поисковой системы
Для внедрения программного продукта необходимо принять
следующие меры:
подготовка инсталляционного модуля
обучение системного администратора
обучение конечных пользователей
4. Список
использованных источников
1.
Самоучитель Delphi в примерах, играх и программах. От простых приложений,
решения задач и до программирования интеллектуальных игр. Автор: В. Рубанцев.
Год: 2011.
.
Delphi. Готовые алгоритмы. Автор: Род Стивенс. Год: 2004.
.
Delphi. Программирование на языке высокого уровня. Автор: В.В. Фаронов. Год:
2009.
.
Базы данных в Delphi 7. Самоучитель. Автор: Вячеслав Понамарев. Год: 2003.
.
Программирование баз данных в Delphi 7. Автор: В. Фаронов. Год: 2006.
.
Программирование баз данных в Delphi 7. Учебный курсАвтор: В.В. Фаронов. Год:
2006.
.
Microsoft Access 2007. Автор: А. Днепров. Год: 2008 г.
.
Microsoft Office Access 2007. Руcская версия. Автор: Стив Ламберт, М. Доу
Ламберт III, Джоан Преппернау. Переводчик Владислав Карпюк.
.
Проектирование информационных систем. Автор: В.В. Коваленко. Год: 2011.
.
Методология проектирования автоматизированных информационных систем. Основы
системного подхода. Автор: В.Г. Овчинников. Год: 2005.
5. Глоссарий
СУБД - система управления базами данных - система,
предназначенная для создания на ЭВМ общей базы данных, используемой для решения
множества задач;
БД - база данных - это совокупность сведений о конкретных
объектах реального мира в какой-либо предметной области;
Тип данных - множество операций. Характеризующих определенное
множество значений.
Тестирование - процесс многократного выполнения программы с
целью обнаружения ошибок.
Связь - ассоциация между экземплярами примитивных или
агрегированных объектов (записей) данных.
Данные - это описание любого явления (или идеи), которое
представляется достаточно ценным, чтобы его сформулировать и точно
зафиксировать.
Атрибут - информация, описывающая объект и служащая его
идентификатором (поименованная характеристика сущности). В записи данных
атрибут представлен типом элемента данных.
6. Список
аббревиатур
ПП - программный продукт;- Structured Query Language -
Структурированный язык запросов- Data Flow Diagrams
СУБД - система управления базами;
БД - база данных;
7. Приложения
Приложение №1
- Техническое задание
Содержание
1. Введение
.1 Наименование программы
.2 Назначение и область применения
. Требования к программе
.1 Требования к функциональным характеристикам
.2 Требования к надежности
.2.1 Требования к обеспечению надежного функционирования
программы
.2.2 Время восстановления после отказа
.2.3 Отказы из-за некорректных действий пользователей системы
. Условия эксплуатации
.1 Климатические условия эксплуатации
.2 Требования к квалификации и численности персонала
.3 Требования к составу и параметрам технических средств
.4 Требования к информационной и программной совместимости
.4.1 Требования к информационным структурам и методам решения
.4.2 Требования к исходным кодам и языкам программирования
.4.3 Требования к программным средствам, используемым
программой
.4.4 Требования к защите информации и программ
.5 Специальные требования
. Требования к программной документации
.1 Предварительный состав программной документации
. Технико-экономические показатели
. Стадии и этапы разработки
.1 Стадии разработки
.2 Этапы разработки
.3 Содержание работ по этапам
. Порядок контроля и приемки
.1 Виды испытаний
.2 Общие требования к приемке работы
1. Введение
1.1
Наименование программы
Наименование программы: " АРМ сотрудника пожарного
контроля "
1.2
Назначение и область применения
Программа предназначена для автоматизации учета формирования
выездов пожарных машин:
.2.1 Информация о пожарных 1.2.2 Информация о командирах
1.2.3 Информация о криминалистах
.2.4 Информация о диспетчерах
.2.5 Информация о водителях
.2.6 Информация о пострадавших
2. Требования к программе
2.1
Требования к функциональным характеристикам
Программа должна обеспечивать возможность выполнения
перечисленных ниже функций:
Возможность просмотра выездов и добавления/удаления новых
Возможность просмотра информации о выездах и
добавление/удаление новых
Возможность просмотра и добавление/удаление данных в
справочники.
2.2
Требования к надежности
.2.1
Требования к обеспечению надежного функционирования программы
Надежное (устойчивое) функционирование программы должно быть
обеспечено выполнением Заказчиком совокупности организационно-технических
мероприятий, перечень которых приведен ниже:
Организацией бесперебойного питания технических средств;
Использованием лицензионного программного обеспечения;
Регулярным выполнением рекомендаций Министерства труда и
социального развития РФ, изложенных в Постановлении от 23 июля 1998 г. Об
утверждении межотраслевых типовых норм времени на работы по сервисному
обслуживанию ПЭВМ и оргтехники и сопровождению программных средств";
Регулярным выполнением требований ГОСТ 51188-98. Защита
информации. Испытания программных средств на наличие компьютерных вирусов.
Со стороны разработчика:
Обеспечение целостности данных;
Обеспечение защиты от несанкционированного доступа на основе
пароля;
Тестирование совместимости программного продукта с ОС и
офисным ПО;
Обработка системных сообщений об ошибке и вывод осмысленных
сообщений
2.2.2
Время восстановления после отказа
Время восстановления после отказа, вызванного сбоем
электропитания технических средств (иными внешними факторами), не фатальным
сбоем (не крахом) операционной системы, не должно превышать 30-ти минут при
условии соблюдения условий эксплуатации технических и программных средств.
Время восстановления после отказа, вызванного неисправностью
технических средств, фатальным сбоем (крахом) операционной системы, не должно
превышать времени, требуемого на устранение неисправностей технических средств
и переустановки программных средств.
2.2.3
Отказы из-за некорректных действий пользователей системы
Отказы программы вследствие некорректных действий
пользователя при взаимодействии с программой недопустимы.
3. Условия эксплуатации
3.1
Климатические условия эксплуатации
Климатические условия эксплуатации, при которых должны
обеспечиваться заданные характеристики, должны удовлетворять требованиям,
предъявляемым к техническим средствам в части условий их эксплуатации
3.2
Требования к квалификации и численности персонала
Минимальное количество персонала, требуемого для работы
программы, должно составлять не менее 2 штатных единиц - системный
администратор и конечный пользователь программы - оператор (Администратор с
точки зрения системы).
Системный администратор должен иметь высшее профильное
образование и сертификаты компании-производителя операционной системы. В
перечень задач, выполняемых системным администратором, должны входить:
задача поддержания работоспособности технических средств;
задачи установки (инсталляции) и поддержания
работоспособности системных программных средств - операционной системы;
задача установки (инсталляции) программы;
задача создания резервных копий базы данных.
В задачи оператора входят:
Ввод данных о мероприятии;
Ввод данных о студентах, их научных руководителях;
Формирование нового мероприятия и его задач;
Формирование списка администраторов и назначение задач.
3.3
Требования к составу и параметрам технических средств
.3.1
В состав технических средств должен входить IВМ-совместимый персональный
компьютер (ПЭВМ), выполняющий роль сервера, включающий в себя:
процессор
с тактовой частотой 2GHz и выше;
оперативную
память объемом, 1Гигабайт, не менее;
свободного
места на жестком диске, 1 Гигабайт, не менее;
.4
Требования к информационной и программной совместимости
3.4.1
Требования к информационным структурам и методам решения
База данных работает под управлением Microsoft Access.
3.4.1.2
Требования к запросам пользователей данных из базы
Пользователи и администраторы работают с базой данных через
оконное приложение Windows.
3.4.2
Требования к исходным кодам и языкам программирования
Дополнительные требования не предъявляются.
3.4.1
Требования к информационным структурам и методам решения
.4.1.1
Структура баз данных
Таблица 1. Бригада
|
Имя поля
|
Тип данных
|
Описание
|
|
Id
|
Счетчик
|
|
|
Vodditel
|
Текстовый
|
|
|
Kriminalist
|
Текстовый
|
|
|
Komandir
|
Текстовый
|
|
|
Pozarniy
|
Текстовый
|
|
|
Id_car
|
Текстовый
|
|
|
Date_viezda
|
Текстовый
|
|
Таблица 2. Диспетчер
|
Имя поля
|
Тип данных
|
Описание
|
Счетчик
|
|
|
FIO_dispetcher
|
Текстовый
|
|
Таблица 3. Информация о выездах
|
Имя поля
|
Тип данных
|
Описание
|
|
Id
|
Счетчик
|
|
|
Dispetcher
|
Текстовый
|
|
|
Postradavshiy
|
Текстовый
|
|
|
Data
|
Текстовый
|
|
|
Posledstvie
|
Текстовый
|
|
Таблица 4. Командир
|
Имя поля
|
Тип данных
|
Описание
|
|
Id
|
Счетчик
|
|
|
FIO
|
Текстовый
|
|
Таблица 5. Крименалист
|
Имя поляТип
данныхОписание
|
|
|
|
Id
|
Счетчик
|
|
|
FIO
|
Текстовый
|
|
Таблица 6. Машины
|
Имя поля
|
Тип данных
|
Описание
|
|
Id
|
Счетчик
|
|
|
Tip_mashini
|
Текстовый
|
|
|
Nom_mashini
|
Текстовый
|
|
Таблица 7. Пострадавшие
|
Имя поля
|
Тип данных
|
Описание
|
|
Id_postradavshego
|
Счетчик
|
|
|
FIO_postradavshego
|
Текстовый
|
|
|
Phone
|
Текстовый
|
|
|
Adres
|
Текстовый
|
|
Таблица 8. Пожарные
|
Имя поля
|
Тип данных
|
Описание
|
|
Id
|
Счетчик
|
|
|
FIO
|
Текстовый
|
|
Таблица 9. Тип машины
|
Имя поля
|
Тип данных
|
Описание
|
|
Id
|
Счетчик
|
|
|
Tip_Mashini
|
Текстовый
|
|
Таблица 10. Водители
Тип данных
|
Описание
|
|
Id
|
Счетчик
|
|
|
FIO
|
Текстовый
|
|
Таблица 11. Формирование выездов
|
Имя поля
|
Тип данных
|
Описание
|
|
Id
|
Счетчик
|
|
|
Id_Informaciy_o_vizovax
|
Текстовый
|
|
|
Id_brigadi
|
Текстовый
|
|
.4.3 Требования к программным средствам, используемым
программой
Системные программные средства, используемые программой, должны
быть представлены лицензионной локализованной версией операционной системы
Windows XP/7.
3.4.4
Требования к защите информации и программ
Требования к защите информации и программ не предъявляются.
3.5
Специальные требования
Специальные требования не предъявляются
4. Требования к программной документации
4.1
Предварительный состав программной документации
Состав программной документации должен включать в себя:
техническое задание;
программу и методики испытаний;
руководство оператора;
5. Технико-экономические показатели
5.1
Экономические преимущества разработки
Стоимость
программного продукта:
· Временные затраты разработчика на
программный продукт:
· Стоимость 1 часа = 200руб.
· Затраченное время на изготовление
программного продукта = 90 дней*3часа * 200 = 54000руб
· Аренда
помещения=2000руб/месяц*3месяца=6000руб
· Аренда оборудования=2000руб
руб/месяц*3месяца=6000руб
· Консультация специалиста=5000 руб
· Итого: себестоимость программного
продукта=71000руб.
6% - поиск и ожидание поступления документов,
согласование и утверждение документов, передача документов между сотрудниками и
другое.
При штате в 10 сотрудников, 6 % времени,
средняя заработная плата 15 000 руб.
Потери=10*0,06*15000 = 9 тыс. руб. в месяц
В течение 7 месяцев программный продукт окупает свою
стоимость.
6. Стадии и этапы разработки
6.1
Стадии разработки
Разработка должна быть проведена в три стадии:
. разработка технического задания;
. рабочее проектирование;
. внедрение.
6.2
Этапы разработки
На стадии разработки технического задания должен быть
выполнен этап разработки, согласования и утверждения настоящего технического
задания.
На стадии рабочего проектирования должны быть выполнены
перечисленные ниже этапы работ:
. разработка программы;
. разработка программной документации;
. испытания программы.
На стадии внедрения должен быть выполнен этап разработки
подготовка и передача программы.
6.3
Содержание работ по этапам
На этапе разработки технического задания должны быть
выполнены перечисленные ниже работы:
. постановка задачи;
. определение и уточнение требований к техническим средствам;
. определение требований к программе;
. определение стадий, этапов и сроков разработки программы и
документации на неё;
. согласование и утверждение технического задания.
На этапе разработки программы должна быть выполнена работа по
программированию (кодированию) и отладке программы.
На этапе разработки программной документации должна быть
выполнена разработка программных документов в соответствии с требованиями к
составу документации.
На этапе испытаний программы должны быть выполнены
перечисленные ниже виды работ:
. разработка, согласование и утверждение и методики
испытаний;
. проведение приемо-сдаточных испытаний;
. корректировка программы и программной документации по
результатам испытаний.
На этапе подготовки и передачи программы должна быть
выполнена работа по подготовке и передаче программы и программной документации
в эксплуатацию на объектах Заказчика.
7. Порядок контроля и приемки
7.1
Виды испытаний
· Функциональное тестирование <#"587252.files/image006.gif">
Главная кнопочная форма
Форма "Сотрудники"
Добавление информации в справочник на примере формы
"Информация о вызовах"
После нажатия на кнопку "добавить", появляется
форма добавления
unit Unit1;
interface, Messages, SysUtils, Variants, Classes,
Graphics, Controls, Forms,, StdCtrls, ActnList;= class (TForm): TButton;:
TButton;: TButton;: TButton;: TButton;: TButton;Button1Click (Sender:
TObject);Button2Click (Sender: TObject);Button3Click (Sender:
TObject);Button6Click (Sender: TObject);Button4Click (Sender:
TObject);Button5Click (Sender: TObject);FormShow (Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm1;Unit2, Unit3,
Unit4, Unit5, Unit6, Unit8, Unit9;
{$R *. dfm}TForm1. Button1Click (Sender:
TObject);. ADOQuery1. SQL. Clear;. ADOQuery1. SQL. Text: = ('select Id,
FIO_dispetcher from Dispetcher');. DataSource1. DataSet: =form2. ADOQuery1;.
ADOQuery1. Active: =true;. DBGrid1. DataSource: =form2. DataSource1;. show;.
Hide;;TForm1. Button2Click (Sender: TObject);. ADOQuery1. SQL. Clear;.
ADOQuery1. SQL. Text: = ('select Id, FIO from Komandiri');. DataSource1.
DataSet: =form3. ADOQuery1;. ADOQuery1. Active: =true;. DBGrid1. DataSource:
=form3. DataSource1;. show;. Hide;;TForm1. Button3Click (Sender: TObject);.
ADOQuery1. SQL. Clear;. ADOQuery1. SQL. Text: = ('select Id, FIO from
Kriminalisti');. DataSource1. DataSet: =form4. ADOQuery1;. ADOQuery1. Active:
=true;. DBGrid1. DataSource: =form4. DataSource1;. show;. Hide;;TForm1.
Button6Click (Sender: TObject);. Hide;. show;;TForm1. Button4Click (Sender:
TObject);. ADOQuery1. SQL. Clear;. ADOQuery1. SQL. Text: = ('select Id, FIO
from Voditeli');. DataSource1. DataSet: =form5. ADOQuery1;. ADOQuery1. Active:
=true;. DBGrid1. DataSource: =form5. DataSource1;. show;. Hide;;TForm1.
Button5Click (Sender: TObject);. ADOQuery1. SQL. Clear;. ADOQuery1. SQL. Text:
= ('select Id, FIO from Pozarnie');. DataSource1. DataSet: =form6. ADOQuery1;.
ADOQuery1. Active: =true;. DBGrid1. DataSource: =form6. DataSource1;. show;.
Hide;;TForm1. FormShow (Sender: TObject);: = (screen. Width-Width) div 2;: =
(Screen. Height-Height) div 2;;.Unit2;, Messages, SysUtils, Variants, Classes,
Graphics, Controls, Forms,, DB, ADODB, StdCtrls, ExtCtrls, DBCtrls, Grids,
DBGrids;= class (TForm): TDBGrid;: TDBNavigator;: TButton;: TADOConnection;:
TADOQuery;: TDataSource;Button2Click (Sender: TObject);FormShow (Sender:
TObject);
{ Private declarations }
{ Public declarations };: TForm2;Unit1;
{$R *. dfm}TForm2. Button2Click (Sender:
TObject);. Hide;. show;. ADOQuery1. Active: =false;;TForm2. FormShow (Sender:
TObject);: = (screen. Width-Width) div 2;: = (Screen. Height-Height) div
2;;.Unit3;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,,
DB, ADODB, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids;= class (TForm):
TDBGrid;: TDBNavigator;: TButton;: TADOConnection;: TADOQuery;:
TDataSource;Button2Click (Sender: TObject);FormShow (Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm3;Unit1;
{$R *. dfm}TForm3. Button2Click (Sender:
TObject);. Hide;. show;. ADOQuery1. Active: =false;;TForm3. FormShow (Sender:
TObject);: = (screen. Width-Width) div 2;: = (Screen. Height-Height) div
2;;.Unit4;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,,
DB, ADODB, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids;= class (TForm):
TDBGrid;: TDBNavigator;: TButton;: TADOConnection;: TADOQuery;:
TDataSource;Button2Click (Sender: TObject);FormShow (Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm4;Unit1;
{$R *. dfm}TForm4. Button2Click (Sender:
TObject);. Hide;. show;. ADOQuery1. Active: =false;;TForm4. FormShow (Sender:
TObject);: = (screen. Width-Width) div 2;: = (Screen. Height-Height) div
2;;.Unit5;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,,
DB, ADODB, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids;= class (TForm):
TDBGrid;: TDBNavigator;: TButton;: TADOConnection;: TADOQuery;:
TDataSource;Button2Click (Sender: TObject);FormShow (Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm5;Unit1;
{$R *. dfm}TForm5. Button2Click (Sender:
TObject);. Hide;. show;. ADOQuery1. Active: =false;;TForm5. FormShow (Sender:
TObject);: = (screen. Width-Width) div 2;: = (Screen. Height-Height) div
2;;.Unit6;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,,
DB, ADODB, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids;= class (TForm):
TDBGrid;: TDBNavigator;: TButton;: TADOConnection;: TADOQuery;:
TDataSource;Button2Click (Sender: TObject);FormShow (Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm6;Unit1;
{$R *. dfm}TForm6. Button2Click (Sender:
TObject);. Hide;. show;. ADOQuery1. Active: =false;;TForm6. FormShow (Sender:
TObject);: = (screen. Width-Width) div 2;: = (Screen. Height-Height) div
2;;.Unit7;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,,
ExtCtrls, DBCtrls, DB, ADODB, StdCtrls, Grids, DBGrids;= class (TForm):
TDBGrid;: TButton;: TADOConnection;: TDataSource;: TButton;: TButton;:
TButton;: TADOTable;: TADOTable;Id: TAutoIncField;Tip_mashini:
TWideStringField;Nom_mashini: TWideStringField;Id: TAutoIncField;Tip_Mashini:
TWideStringField;Field: TStringField;Button2Click (Sender: TObject);FormShow
(Sender: TObject);Button1Click (Sender: TObject);Button3Click (Sender:
TObject);Button4Click (Sender: TObject);
{ Private declarations }
{
Public declarations };: integer;: TForm7;Unit1, Unit9, Unit10, Unit14, ComObj,
Unit18;
{$R *.
dfm}TForm7. Button2Click (Sender: TObject);. Hide;. show;;TForm7. FormShow
(Sender: TObject);: = (screen. Width-Width) div 2;: = (Screen. Height-Height)
div 2;;TForm7. Button1Click (Sender: TObject);. show;. Hide;;TForm7.
Button3Click (Sender: TObject);id: string;. show;. Hide;;TForm7. Button4Click
(Sender: TObject);,Sheet,Colum: Variant;,a,j,ex: Integer;: = CreateOleObject
('Excel. Application');. Visible: =true;. Workbooks. Add (-4167);. Workbooks
[1]. WorkSheets [1]. Name: ='Отчёт по машинам';: =XLApp. Workbooks [1]. WorkSheets ['Отчёт по машинам'].
Columns;. Columns [1]. ColumnWidth: =35;. Columns [2]. ColumnWidth: =35;:
=XLApp. Workbooks [1]. WorkSheets ['Отчёт по машинам']. Rows;. Rows [2]. Font.
Bold: =true;. Rows [1]. Font. Bold: =true;. Rows [1]. Font. Color: =clBlue;.
Rows [1]. Font. Size: =14;: =XLApp. Workbooks [1]. WorkSheets ['Отчёт по машинам'];
Sheet. Cells
[1,1]: ='Отчет по машинам';
Sheet.
Cells [2,1]: ='Тип машины';.
Cells [2,2]: ='Номер машины';.
Active: =true;: =3;. First;a: =0 to ADOTable1. RecordCount-1 do. Cells
[index,1]: =ADOTable1. Fields. Fields [1]. AsString;. Cells [index,2]:
=ADOTable1. Fields. Fields [2]. AsString;(index);. Next;. Open;;;.Unit8;,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, ADODB,
StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids;= class (TForm): TDBGrid;:
TDBNavigator;: TButton;: TADOConnection;: TDataSource;: TADOTable;Button2Click
(Sender: TObject);FormShow (Sender: TObject);
{
Private declarations }
{
Public declarations };: TForm8;Unit1, Unit9;
{$R *.
dfm}TForm8. Button2Click (Sender: TObject);. Hide;. show;;TForm8. FormShow
(Sender: TObject);: = (screen. Width-Width) div 2;: = (Screen. Height-Height)
div 2;;.Unit9;, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,, StdCtrls;= class (TForm): TButton;: TButton;: TButton;: TButton;:
TButton;: TButton;: TButton;Button5Click (Sender: TObject);Button3Click
(Sender: TObject);Button1Click (Sender: TObject);FormShow (Sender:
TObject);Button2Click (Sender: TObject);Button4Click (Sender:
TObject);Button6Click (Sender: TObject);Button7Click (Sender: TObject);
{
Private declarations }
{
Public declarations };: TForm9;Unit8, Unit1, Unit7, Unit11, Unit12, Unit15;
{$R *.
dfm}TForm9. Button5Click (Sender: TObject);. show;. Hide;;TForm9. Button3Click
(Sender: TObject);. Terminate;;TForm9. Button1Click (Sender: TObject);. Hide;.
show;;TForm9. FormShow (Sender: TObject);: = (screen. Width-Width) div 2;: =
(Screen. Height-Height) div 2;;TForm9. Button2Click (Sender: TObject);. show;.
Hide;;TForm9. Button4Click (Sender: TObject);. hide;. show;;TForm9.
Button6Click (Sender: TObject);. Hide;. show;;TForm9. Button7Click (Sender:
TObject);. show;. Hide;;.Unit10;, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,, StdCtrls, DB, ADODB, Grids, DBGrids, Mask, DBCtrls,
ExtCtrls;= class (TForm): TDBGrid;: TDBNavigator;: TADOTable;: TADOConnection;:
TDataSource;: TButton;Id: TAutoIncField;Tip_Mashini:
TWideStringField;Button2Click (Sender: TObject);Button1Click (Sender:
TObject);FormShow (Sender: TObject);
{
Private declarations }
{
Public declarations };
// id:
string;: TForm10;Unit7;
{$R *.
dfm}TForm10. Button2Click (Sender: TObject);. Hide;. show;;TForm10.
Button1Click (Sender: TObject);: string;;TForm10. FormShow (Sender: TObject);:
= (screen. Width-Width) div 2;: = (Screen. Height-Height) div 2;;.Unit11;,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, ADODB,
StdCtrls, Grids, DBGrids, ExtCtrls;= class (TForm): TDBGrid;: TButton;:
TButton;: TADOConnection;: TDataSource;: TButton;
ADOTable1:
TADOTable;: TADOTable;: TADOTable;
ADOTable4:
TADOTable;Id: TAutoIncField;FIO_dispetcher: TWideStringField;Id_postradavshego:
TAutoIncField;FIO_postradavshego: TWideStringField;Phone: TWideStringField;Adres:
TWideStringField;Id: TAutoIncField;Id_Informaciy_o_vizovax:
TWideStringField;Id_brigadi: TWideStringField;: TADOTable;: TADOTable;Id:
TAutoIncField;Dispetcher: TWideStringField;Postradavshiy:
TWideStringField;Data: TWideStringField;Posledstvie: TWideStringField;Field:
TStringField;Field2: TStringField;StringField1: TStringField;Field3:
TStringField;Button2Click (Sender: TObject);Button1Click (Sender:
TObject);FormShow (Sender: TObject);Button4Click (Sender: TObject);Button3Click
(Sender: TObject);Button5Click (Sender: TObject);
{
Private declarations }
{
Public declarations };: integer;: TForm11;Unit9, Unit12, Unit13, Unit2, Unit14,
Unit7, Unit10, ComObj, Unit15;
{$R *.
dfm}TForm11. Button2Click (Sender: TObject);. Hide;. show;;TForm11. Button1Click
(Sender: TObject);. Hide;. show;;TForm11. FormShow (Sender: TObject);: =
(screen. Width-Width) div 2;: = (Screen. Height-Height) div 2;;TForm11.
Button4Click (Sender: TObject);id: string;;TForm11. Button3Click (Sender:
TObject);OptSet: TLocateOptions;. DataSource: =DataSource1;;TForm11.
Button5Click (Sender: TObject);,Sheet,Colum: Variant;,a,j,ex: Integer;: =
CreateOleObject ('Excel. Application');. Visible: =true;. Workbooks. Add
(-4167);. Workbooks [1]. WorkSheets [1]. Name: ='Отчёт по вызовам';: =XLApp. Workbooks [1].
WorkSheets ['Отчёт по вызовам']. Columns;. Columns [1]. ColumnWidth:
=35;. Columns [2]. ColumnWidth: =35;. Columns [3]. ColumnWidth: =10;. Columns
[4]. ColumnWidth: =20;. Columns [5]. ColumnWidth: =10;. Columns [6].
ColumnWidth: =40;: =XLApp. Workbooks [1]. WorkSheets ['Отчёт по вызовам'].
Rows;. Rows [2]. Font. Bold: =true;. Rows [1]. Font. Bold: =true;. Rows [1].
Font. Color: =clBlue;. Rows [1]. Font. Size: =14;: =XLApp. Workbooks [1].
WorkSheets ['Отчёт по вызовам'];
Sheet. Cells
[1,3]: ='Отчет по вызовам';. Cells [2,1]: ='ФИО диспетчера';. Cells [2,2]:
='ФИО пострадавшего';. Cells [2,3]: ='Телефон';
Sheet.
Cells [2,4]: ='Адрес';. Cells [2,5]: ='Дата';. Cells [2,6]: ='Последствие';. Active: =true;: =3;. First;a: =0 to
ADOTable1. RecordCount-1 do. Cells [index,1]: =ADOTable1. Fields. Fields [1].
AsString;. Cells [index,2]: =ADOTable1. Fields. Fields [2]. AsString;. Cells
[index,3]: =ADOTable1. Fields. Fields [3]. AsString;. Cells [index,4]:
=ADOTable1. Fields. Fields [4]. AsString;. Cells [index,5]: =ADOTable1. Fields.
Fields [5]. AsString;. Cells [index,6]: =ADOTable1. Fields. Fields [6].
AsString;(index);. Next;. Open;;;.Unit12;, Messages, SysUtils, Variants,
Classes, Graphics, Controls, Forms,, StdCtrls, ExtCtrls, DB, ADODB, Grids,
DBGrids, DBCtrls;= class (TForm): TDBGrid;: TButton;: TADOConnection;:
TDataSource;: TButton;: TADOTable;Id: TAutoIncField;Kriminalist:
TWideStringField;Komandir: TWideStringField;Pozarniy: TWideStringField;Id_car:
TWideStringField;Date_viezda: TWideStringField;: TADOTable;Id:
TAutoIncField;FIO: TWideStringField;Vodditel: TWideStringField;Field:
TStringField;: TADOTable;
ADOTable4:
TADOTable;: TADOTable;: TADOTable;
ADOTable3Id:
TAutoIncField;FIO: TWideStringField;Field2: TStringField;Id: TAutoIncField;FIO:
TWideStringField;Field3: TStringField;Id: TAutoIncField;FIO:
TWideStringField;Field4: TStringField;Id: TAutoIncField;Tip_mashini:
TWideStringField;Nom_mashini: TWideStringField;Field5: TStringField;:
TDBNavigator;: TADOTable;Id: TAutoIncField;Vodditel:
TWideStringField;Kriminalist: TWideStringField;Komandir:
TWideStringField;Pozarniy: TWideStringField;Id_car:
TWideStringField;Date_viezda: TWideStringField;Button2Click (Sender:
TObject);FormShow (Sender: TObject);Button4Click (Sender: TObject);
{
Private declarations }
{
Public declarations };: integer;: TForm12;Unit11, Unit9, Unit14, Unit7, Unit13,
ComObj;
{$R *.
dfm}
//
******************************************TForm12. Button2Click (Sender:
TObject);. Hide;. Show;;TForm12. FormShow (Sender: TObject);: = (screen.
Width-Width) div 2;: = (Screen. Height-Height) div 2;;TForm12. Button4Click
(Sender: TObject);,Sheet,Colum: Variant;,a,j,ex: Integer;: = CreateOleObject
('Excel. Application');. Visible: =true;. Workbooks. Add (-4167);. Workbooks
[1]. WorkSheets [1]. Name: ='Отчёт по бригадам';: =XLApp. Workbooks [1]. WorkSheets ['Отчёт по бригадам']. Columns;. Columns [1]. ColumnWidth: =20;. Columns [2].
ColumnWidth: =20;. Columns [3]. ColumnWidth: =20;. Columns [4]. ColumnWidth:
=20;. Columns [5]. ColumnWidth: =20;. Columns [6]. ColumnWidth: =20;: =XLApp.
Workbooks [1]. WorkSheets ['Отчёт по бригадам']. Rows;. Rows [2]. Font. Bold: =true;.
Rows [1]. Font. Bold: =true;. Rows [1]. Font. Color: =clBlue;. Rows [1]. Font.
Size: =14;: =XLApp. Workbooks [1]. WorkSheets ['Отчёт по бригадам'];. Cells [1,1]: ='Отчет';. Cells [2,1]: ='Водитель';. Cells [2,2]: ='Командир';. Cells [2,3]: ='Крименалист';. Cells [2,4]: ='Номер машины';. Cells [2,5]: ='Дата выезда';. Cells [2,6]: ='Пожарные';. Active: =true;: =3;. First;a: =0 to
ADOTable1. RecordCount-1 do. Cells [index,1]: =ADOTable1. Fields. Fields [1].
AsString;. Cells [index,2]: =ADOTable1. Fields. Fields [2]. AsString;. Cells
[index,3]: =ADOTable1. Fields. Fields [3]. AsString;. Cells [index,4]: =ADOTable1.
Fields. Fields [4]. AsString;. Cells [index,5]: =ADOTable1. Fields. Fields [5].
AsString;. Cells [index,6]: =ADOTable1. Fields. Fields [6]. AsString;(index);.
Next;. Open;;;.Unit13;, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,, DB, ADODB, StdCtrls, ExtCtrls, ComCtrls, Mask, DBCtrls;=
class (TForm): TADOConnection;: TButton;: TLabel;: TLabel;: TLabel;:
TGroupBox;: TADOTable;: TDataSource;: TDBComboBox;: TDBEdit;: TDBEdit;:
TDBEdit;: TLabel;: TLabel;: TLabel;: TDataSource;: TADOTable;: TDBEdit;:
TDataSource;: TADOTable;: TDBMemo;: TButton;: TButton;Button1Click (Sender:
TObject);FormShow (Sender: TObject);Button2Click (Sender: TObject);Button3Click
(Sender: TObject);
{
Private declarations }
{
Public declarations };: TForm13;Unit11;
{$R *.
dfm}TForm13. Button1Click (Sender: TObject);. Hide;. show;;TForm13. FormShow
(Sender: TObject);: = (screen. Width-Width) div 2;: = (Screen. Height-Height)
div 2;;TForm13. Button2Click (Sender: TObject);, id2: string;. Edit;. Post;.
Edit;. Post;. Edit;. Post;. show;. Hide;. ADOTable1. Active: =false;.
ADOTable1. Active: =true;;TForm13. Button3Click (Sender: TObject);ADOTable2. State = dsBrowse then // если табличка не
в состоянии редактирования. Append; // добавляем новую пустую запись
ADOTable2.
FieldByName ('Phone'). AsString: = Trim (DBEdit4. Text);. FieldByName
('FIO_postradavshego'). AsString: = Trim (DBEdit2. Text);. FieldByName
('Adres'). AsString: = Trim (DBEdit3. Text); // вносим значение в поле MyField (или как там у тебя). Post;
// сохраняем изменения таблички;ADOTable3. State = dsBrowse then // если
табличка не в состоянии редактирования. Append; // добавляем новую пустую
запись
ADOTable3.
FieldByName ('Data'). AsString: = Trim (DBEdit1. Text);. FieldByName
('Posledstvie'). AsString: = Trim (DBMemo1. Text);. Post; // сохраняем изменения таблички;ADOTable1. State = dsBrowse then // если табличка не в состоянии редактирования. FieldByName ('FIO_dispetcher'). AsString: = Trim (DBComboBox1.
Text);. Post; // сохраняем
изменения таблички;
end;.Unit14;,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls;=
class (TForm): TEdit;: TEdit;: TLabel;: TLabel;: TButton;: TButton;Button1Click
(Sender: TObject);Button2Click (Sender: TObject);
{
Private declarations }
{ Public
declarations };: TForm14;Unit9;
{$R *.
dfm}TForm14. Button1Click (Sender: TObject);(edit1. text='admin') AND (edit2.
Text='123') then begin. Show;. Hide;;;TForm14. Button2Click (Sender: TObject);.
Terminate;;.Unit15;, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,, DB, ADODB, Grids, DBGrids, StdCtrls;= class (TForm): TDataSource;:
TADOConnection;: TADOTable;Id: TAutoIncField;Id_Informaciy_o_vizovax:
TWideStringField;Id_brigadi: TWideStringField;: TADOTable;: TADOTable;Field:
TStringField;Field2: TStringField;: TDBGrid;: TButton;Button1Click (Sender:
TObject);
{
Private declarations }
{
Public declarations };: TForm15;Unit9;
{$R *.
dfm}TForm15. Button1Click (Sender: TObject);. Hide;. Show;;.Unit18;, Messages,
SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, ExtCtrls, DBCtrls,
Grids, DBGrids, ADODB, StdCtrls;= class (TForm): TButton;:
TADOTable;Tip_mashini: TWideStringField;Id: TAutoIncField;Nom_mashini2:
TWideStringField;Field: TStringField;: TADOConnection;: TDBGrid;: TDBNavigator;:
TDataSource;: TADOTable;Button2Click (Sender: TObject);
{
Private declarations }
{
Public declarations };: TForm18;Unit7;
{$R *.
dfm}TForm18. Button2Click (Sender: TObject);. Hide;. show;
end;.