АРМ замдиректора по научной работе

Министерство образования и науки Республики Хакасия ГБОУ РХ СПО Хакасский Политехнический Колледж Специальность 230 103

«Автоматизированные системы обработки информации и управления»

Пояснительная записка к курсовому проекту По дисциплине: Разработка и эксплуатация АИС тема: «АРМ зам. директора по научной работе «

Выполнил:

Студентка группы: АИС-41

А.И. Семенов Руководитель: А. В. Сакерин Абакан 2012 год

1. Введение

2. Основная часть

2.1 Описание предметной области

2.2 Выбор средств разработки

2.3 Структура данных

2.4 Описание продукта

2.5 Экономические преимущества от внедрения

3. Заключение

4. Список использованных источников

5. Глоссарий

6. Список аббревиатур

7. Приложения

1. Введение

До внедрения программного продукта вся информация хранилась в бумажном варианте. Основными недостатками такого подхода являются:

— Долгий процесс составления плана мероприятий;

— Сложность поиска информации в бумажном архиве;

— При длительном хранении документов происходит износ бумаги;

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

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

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

Для этого поставлены следующие задачи:

— Исследование предметной области

— Проектирование структуры БД

— Разработка алгоритмов

— Проектирование интерфейса

— Создание и тестирование модулей ПП

— Внедрение ПП

2. Основная часть

2.1 Описание предметной области

Основная задача информационной системы — учет проведения мероприятий.

Для выполнения этой задачи необходимо владеть информацией:

— о студентах, участвующих в мероприятии

— о научных руководителях этих студентов

— о мероприятиях, запланированных и уже прошедших

— об организаторах (администраторах) этих мероприятий Результатами выполнения основной задачи являются:

— Прошедшие мероприятия;

— Отчеты (по студентам, по научным руководителям и т. д.);

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

— Сотрудники, ответственный за учет мероприятий Рис. 2.1 IDEF0

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

— Подобрать участников для проведения мероприятия;

— Назначить задание на проведение мероприятия;

— провести мероприятие.

Результатами выполнения основной задачи будут:

— Прошедшие мероприятия;

— Отчет;

— Статистика.

Рис. 2.2 IDEF0 — 1 уровень В системе взаимодействуют следующие сущности:

— Студент;

— Научный руководитель;

— Мероприятие;

— Задачи мероприятия;

— Администратор;

— Место проведения.

Рис. 2.3 ER — диаграмма В системе взаимодействуют следующие объекты:

— Научные руководители;

— Администратор по проведению мероприятий;

— Зам. Директора по научной работе;

— Набор записей и документов по мероприятию (бумажный носитель).

Они взаимодействуют следующим образом:

Научные руководители предоставляют информацию о студентах;

Администратор делает заявку о мероприятии зам. Директору по научной работе;

Зам. Директора по научной работе реализует мероприятие.

Рис. 2.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) и сочетающий простоту языка Паскаль и огромные возможности платформы .NET, бесплатная, простая и мощная среда разработки, ориентированная на обучение программированию, уникальная Web-среда, позволяющая разрабатывать и запускать программы на языке Паскаль из окна браузера, а также иметь личный каталог программ на сервере.

Delphi — это среда быстрой разработки, в которой в качестве языка программирования используется язык Delphi. Delphi обеспечивает визуальное проектирование пользовательского интерфейса и уникальные по своей простоте и мощи средства доступа к базам данных. Язык Delphi по возможностям значительно превзошел язык Basic и даже в чем-то язык C++, но при этом он оказался весьма надежным и легким в изучении (особенно в сравнении с языком C++). В результате, среда Delphi позволила программистам легко создавать собственные компоненты и строить из них профессиональные программы.

Внешний вид среды программирования Delphi отличается от многих других из тех, что можно увидеть в Windows. К примеру, Borland Pascal for Windows 7.0, Borland C++ 4.0, Word for Windows, Program Manager — это все MDI приложения и выглядят по-другому, чем Delphi. MDI (Multiple Document Interface) — определяет особый способ управления нескольких дочерних окон внутри одного большого окна.

Выгоды от проектирования в среде Windows с помощью Delphi:

1) Устраняет ся необходимость в повторном вводе данных;

2) Обеспечивается согласованность проекта и его реализации;

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

Для разработки ПП использована среда Borland Delphi 7.0

Выбор СУБД

СУБД Paradox — одна из самых старых локальных баз данных. Изначально развивалась фирмой Борланд (до 7й версии включительно), последние 3 версии: 8я, 9я и 10я выпущены фирмой Corel. В настоящее время судьба проекта не известна, но есть основания предполагать, что ни Борланд, ни Corel не имеют далекоидущих планов в отношении этой базы данных, а объёмы её продаж в чистом виде незначительны, впрочем она входит в поставку некоторых версий Corel Office.

Количество баз данных на сервере — собственно база данных представляет собой каталог на диске который содержит файлы таблиц, индексов, view, форм и т. п. На одном компьютере может быть практически ничем не ограниченное количенство баз данных. Количество таблиц в базе — неограниченно, но одновременно на одном компьютере не может быть открыто более 127 таблиц и 512 физических файлов.

Oracle Database Standard Edition — СУБД, обладающая несколько ограниченными по сравнению с Oracle Database Enterprise Edition возможностями, что находит свое отражение в стоимости каждой из них. Может быть установлена на серверах поддерживающих не более четырех процессоров. Oracle Database Standard Edition является наилучшим решением для развертывания информационных систем в небольших организациях, рабочих группах или подразделениях больших предприятий.

СУБД Access имеет достаточно высокие скоростные характеристики и входит в состав чрезвычайно популярного в нашей стране и за рубежом пакета Microsoft Office. Набор команд и функций, предлагаемых разработчикам программных продуктов в среде Access, по мощи и гибкости отвечает большинству современных требований к представлению и обработке данных. В Access поддерживаются разнообразные всплывающие и многоуровневые меню, работа с окнами и мышью, реализованы функции низкоуровневого доступа к файлам, управления цветами, настройки принтера, представления данных в виде электронных таблиц и т. п. Система также обладает средствами быстрой генерации экранов, отчетов и меню, поддерживает язык управления запросами SQL, имеет встроенный язык Visual Basic for Applications (VBA), хорошо работает в сети. СУБД Access позволяет использовать другие компоненты пакета Microsoft Office, такие как текстовый процессор Word for Windows, электронные таблицы Excel и т. д.

Перечисленные факторы определили выбор СУБД Access.

2.3 Структура данных

программирование автоматизирующий интерфейс алгоритм

В программе используются следующие таблицы:

— Мероприятия;

— Студент;

— Задачи мероприятия;

— Администратор;

— Научный руководитель;

— Место проведения.

Наиболее важной является таблица «Мероприятия», которая хранит все необходимые данные о мероприятии, такие как название, дата проведения, студенты, научные руководители, администраторы, места проведения и отметку о выполнении мероприятия.

Не менее важной является таблица «Задачи мероприятия», которая хранит данные необходимые для проведения мероприятия.

Существует 5 справочников: «Студенты», «Научные руководители», «Администраторы», «Задачи мероприятия» и «Места проведения», которые хранят базовую информацию.

Рис. 2.5 Схема данных

2.4 Описание продукта

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

Рис 2.4.1 Форма аутентификации После ввода имени и пароля, пользователь переходит на главную кнопочную форму.

Рис 2.4.2 Главная кнопочная форма Меню главной кнопочной формы содержит следующие разделы «Мероприятия», «справочники», «о программе», «завершить сеанс» и «Завершение работы».

Вкладка «справочники» содержит:

· «Студенты» — содержит информацию о студентах.

· «Научные руководители» — содержит информацию о научных руководителях.

· «Администраторы» — содержит информацию о администраторах.

· «Места проведения» — содержит информацию о местах, где проходили и будут проходить мероприятия.

· «Задачи мероприятия» — содержит информацию о задачах мероприятия.

Это базовые справочники, в которых предоставляется возможность добавления и сохранения данных Рис 2.4.3 Форма справочники Вкладка главного меню «о программе». Содержит краткое описание программного продукта.

Рис 2.4.4 Форма «О программе»

На форме «мероприятия» содержится информация о названии мероприятия, дате проведения, о задачах мероприятия, студентах, научных руководителях, администраторах и об отметке их выполнении. Также можно просмотреть участников конкретного мероприятия. Добавить/сохранить/удалить мероприятие, задачу мероприятия и участников конкретного мероприятия.

Рис. 2.4.3 Форма мероприятия

2.5 Экономические преимущества от внедрения

Временные затраты разработчика на программный продукт:

· Стоимость 1 часа = 200 руб.

· Время изготовления ПП = 90 дней*3часа * 200 = 54 000руб

1. Аренда помещения=2000руб/месяц*3месяца=6000руб

2. Аренда оборудования=2000руб руб/месяц*3месяца=6000руб

3. Консультация специалиста=5000 руб Итого: себестоимость ПП = 71 000 руб.

Эффект от внедрения — это в первую очередь сокращение затрат на:

· копирование и печать документов;

· ресурсы: люди и оборудование (например, расходные материалы, обновление копировально-множительного оборудования);

· хранение информации в бумажном виде;

· продолжительность (более быстрое выполнение работ за счет сокращения сроков согласования и поиска документов);

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

Результат — повышение продуктивности труда и количества работ.

3. Заключение

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

— Заказчик

— Проектировщик

— Мероприятия

Была поставлена следующая задача автоматизации: учет проведения мероприятий.

Были исследованы платформы, языки и среды разработки. В качестве базиса для создания программного продукта были выбраны:

— Платформа: Windows

— Язык программирования: Object Pascal

— Среда разработки: Borland Delphi 7

— СУБД: MS Access

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

Был разработан программный продукт, содержащий 16 экранных форм.

Был произведён анализ экономических преимуществ от внедрения.

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

— усовершенствованный интерфейс

— создание поисковой системы

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

— подготовка инсталляционного модуля

— обучение системного администратора

— обучение конечных пользователей

4. Список использованных источников

1.Самоучитель Delphi в примерах, играх и программах. От простых приложений, решения задач и до программирования интеллектуальных игр. Автор: В. Рубанцев. Год: 2011.

2.Delphi. Готовые алгоритмы. Автор: Род Стивенс. Год: 2004.

3.Delphi. Программирование на языке высокого уровня. Автор: В. В. Фаронов. Год: 2009.

4.Базы данных в Delphi 7. Самоучитель. Автор: Вячеслав Понамарев. Год: 2003.

5.Программирование баз данных в Delphi 7. Автор: В. Фаронов. Год: 2006.

6.Программирование баз данных в Delphi 7. Учебный курсАвтор: В. В. Фаронов. Год: 2006.

7.Microsoft Access 2007. Автор: А. Днепров. Год: 2008 г.

8.Microsoft Office Access 2007. Руcская версия. Автор: Стив Ламберт, М. Доу Ламберт III, Джоан Преппернау. Переводчик Владислав Карпюк.

9.Проектирование информационных систем. Автор: В. В. Коваленко. Год: 2011.

10.Методология проектирования автоматизированных информационных систем. Основы системного подхода. Автор: В. Г. Овчинников. Год: 2005.

11.Сайт Викепедия: http://ru.wikipedia.org

5. Глоссарий

СУБД — система управления базами данных — система, предназначенная для создания на ЭВМ общей базы данных, используемой для решения множества задач;

БД — база данных — это совокупность сведений о конкретных объектах реального мира в какой-либо предметной области;

Тип данных — множество операций. Характеризующих определенное множество значений.

Тестирование — процесс многократного выполнения программы с целью обнаружения ошибок.

Связь — ассоциация между экземплярами примитивных или агрегированных объектов (записей) данных.

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

Атрибут — информация, описывающая объект и служащая его идентификатором (поименованная характеристика сущности). В записи данных атрибут представлен типом элемента данных.

6. Список аббревиатур

ПП — программный продукт;

SQL — Structured Query Language — Структурированный язык запросов

DFD — Data Flow Diagrams

СУБД — система управления базами;

БД — база данных;

7. Приложения

Приложение 1

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

1. Введение

1.1. Наименование программы

1.2. Назначение и область применения

2. Требования к программе

2.1. Требования к функциональным характеристикам

2.2. Требования к надежности

2.2.1. Требования к обеспечению надежного функционирования программы

2.2.2. Время восстановления после отказа

2.2.3. Отказы из-за некорректных действий пользователей системы

3. Условия эксплуатации

3.1. Климатические условия эксплуатации

3.2. Требования к квалификации и численности персонала

3.3. Требования к составу и параметрам технических средств

3.4. Требования к информационной и программной совместимости

3.4.1. Требования к информационным структурам и методам решения

3.4.2. Требования к исходным кодам и языкам программирования

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

3.4.4. Требования к защите информации и программ

3.5. Специальные требования

4. Требования к программной документации

4.1. Предварительный состав программной документации

5. Технико-экономические показатели

5.1. Экономические преимущества разработки

6. Стадии и этапы разработки

6.1. Стадии разработки

6.2. Этапы разработки

6.3. Содержание работ по этапам

7. Порядок контроля и приемки

7.1. Виды испытаний

7.2. Общие требования к приемке работы

1. Введение

1.1. Наименование программы

Наименование программы: «АРМ зам. Директора по научной работе»

1.2. Назначение и область применения

Программа предназначена для автоматизации учета научно-практических мероприятий в учебном заведении:

1.2.1. Информация о студентах

1.2.2. Информация о научных руководителях

1.2.3. Информация о администраторах

1.2.4. Информация о мероприятиях

2. Требования к программе

2.1. Требования к функциональным характеристикам

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

— Возможность просмотра зарегистрированных мероприятий и добавления/удаления новых

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

— Возможность просмотра исполнителей мероприятия добавление/удаление новых

— Возможность просмотра и добавление/удаление данных в справочники.

2.2. Требования к надежности

2.2.1 Требования к обеспечению надежного функционирования программы

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

— Организацией бесперебойного питания технических средств;

— Использованием лицензионного программного обеспечения;

— Регулярным выполнением рекомендаций Министерства труда и социального развития РФ, изложенных в Постановлении от 23 июля 1998 г. Об утверждении межотраслевых типовых норм времени на работы по сервисному обслуживанию ПЭВМ и оргтехники и сопровождению программных средств";

— Регулярным выполнением требований ГОСТ 51 188–98. Защита информации. Испытания программных средств на наличие компьютерных вирусов.

Со стороны разработчика:

— Обеспечение целостности данных;

— Обеспечение защиты от несанкционированного доступа на основе пароля;

— Тестирование совместимости программного продукта с ОС и офисным ПО;

— Обработка системных сообщений об ошибке и вывод осмысленных сообщений

2.2.2. Время восстановления после отказа

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

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

2.2.3. Отказы из-за некорректных действий пользователей системы

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

3. Условия эксплуатации

3.1. Климатические условия эксплуатации

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

3.2. Требования к квалификации и численности персонала

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

Системный администратор должен иметь высшее профильное образование и сертификаты компании-производителя операционной системы. В перечень задач, выполняемых системным администратором, должны входить:

— задача поддержания работоспособности технических средств;

— задачи установки (инсталляции) и поддержания работоспособности системных программных средств — операционной системы;

— задача установки (инсталляции) программы;

— задача создания резервных копий базы данных.

В задачи оператора входят:

— Ввод данных о мероприятии;

— Ввод данных о студентах, их научных руководителях;

— Формирование нового мероприятия и его задач;

— Формирование списка администраторов и назначение задач.

3.3. Требования к составу и параметрам технических средств

3.3.1. В состав технических средств должен входить IВМ-совместимый персональный компьютер (ПЭВМ), выполняющий роль сервера, включающий в себя:

— процессор с тактовой частотой 2GHz и выше;

- оперативную память объемом, 1Гигабайт, не менее;

- свободного места на диске HDD, 1 Гигабайт, не менее;

3.4. Требования к информационной и программной совместимости

3.4.1. Требования к информационным структурам и методам решения

База данных работает под управлением Microsoft Access.

3.4.1.2. Требования к запросам пользователей данных из базы

Пользователи и администраторы работают с базой данных через оконное приложение Windows.

3.4.2. Требования к исходным кодам и языкам программирования

Дополнительные требования не предъявляются.

3.4.1. Требования к информационным структурам и методам решения

3.4.1.1. Структура баз данных

Таблица 1. Студенты

Таблица 2. Научные руководители

Таблица 3. Задачи мероприятия

Таблица 4. Администратор

Таблица 5. Мероприятия

Таблица 6. Место проведения

Таблица 7. Решение

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

Системные программные средства, используемые программой, должны быть представлены лицензионной локализованной версией операционной системы Windows XP/7.

3.4.4. Требования к защите информации и программ

Требования к защите информации и программ не предъявляются.

3.5. Специальные требования

Специальные требования не предъявляются

4. Требования к программной документации

4.1. Предварительный состав программной документации

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

— техническое задание;

— программу и методики испытаний;

— руководство оператора;

5. Технико-экономические показатели

5.1. Экономические преимущества разработки

Стоимость программного продукта:

· Временные затраты разработчика на программный продукт:

· Стоимость 1 часа = 200 руб.

· Затраченное время на изготовление программного продукта = 90 дней*3часа * 200 = 54 000руб

· Аренда помещения=2000руб/месяц*3месяца=6000руб

· Аренда оборудования=2000руб руб/месяц*3месяца=6000руб

· Консультация специалиста=5000 руб

· Итого: себестоимость программного продукта=71 000 руб.

6% - поиск и ожидание поступления документов, согласование и утверждение документов, передача документов между сотрудниками и другое.

При штате в 10 сотрудников, 6 % времени, средняя заработная плата 15 000 руб.

Потери=10*0,06*15 000 = 9 тыс. руб. в месяц

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

6. Стадии и этапы разработки

6.1. Стадии разработки

Разработка должна быть проведена в три стадии:

1. разработка технического задания;

2. рабочее проектирование;

3. внедрение.

6.2. Этапы разработки

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

На стадии рабочего проектирования должны быть выполнены перечисленные ниже этапы работ:

1. разработка программы;

2. разработка программной документации;

3. испытания программы.

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

6.3. Содержание работ по этапам

На этапе разработки технического задания должны быть выполнены перечисленные ниже работы:

1. постановка задачи;

2. определение и уточнение требований к техническим средствам;

3. определение требований к программе;

4. определение стадий, этапов и сроков разработки программы и документации на неё;

5. согласование и утверждение технического задания.

На этапе разработки программы должна быть выполнена работа по программированию (кодированию) и отладке программы.

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

На этапе испытаний программы должны быть выполнены перечисленные ниже виды работ:

1. разработка, согласование и утверждение и методики испытаний;

2. проведение приемо-сдаточных испытаний;

3. корректировка программы и программной документации по результатам испытаний.

На этапе подготовки и передачи программы должна быть выполнена работа по подготовке и передаче программы и программной документации в эксплуатацию на объектах Заказчика.

7. Порядок контроля и приемки

7.1. Виды испытаний

· Функциональное тестирование (functional testing)

· Тестирование производительности (performance testing)

o Нагрузочное тестирование (load testing)

o Стресс-тестирование (stress testing)

o Тестирование стабильности (stability / endurance / soak testing)

· Юзабилити-тестирование (usability testing)

· Тестирование интерфейса пользователя (UI testing)

· Тестирование безопасности (security testing)

· Тестирование локализации (localization testing)

· Тестирование совместимости (compatibility testing)

7.2. Требования к приемке работы

Приемка допускается при соблюдении следующих условий:

1. полноты и качества реализации функций при штатных, предельных, критических значениях параметров объекта автоматизации и в других условиях функционирования АС, указанных в ТЗ;

2. выполнения каждого требования, относящегося к интерфейсу системы;

3. работы персонала в диалоговом режиме;

4. наличия средств и методов восстановления работоспособности АС после сбоя системы;

5. комплектности и качества эксплуатационной документации.

Приложение 2

Экранные копии

Форма для входа в систему, требующая ввода имени и пароля пользователя

Главная кнопочная форма

Форма «Справочники»

Добавление информации в справочник на примере формы «студенты»

После нажатия на кнопку «добавить», появляется форма добавления

Форма «Мероприятия», для учета всей известной информации о мероприятиях

Кнопка на главной кнопочной форме «Завершить сеанс», переводит пользователя на форму «Вход в систему»

Кнопка на главной кнопочной форме «Завершение работы», прекращает работу программного средства

Приложение 3

Исходный код

unit Unit1;

var

Form1: TForm1;

implementation

uses unit2, Unit10, Unit11, Unit12, Unit3, Unit4, Unit5, Unit6, Unit7,

Unit8, Unit9;

{$R *.dfm}

procedure TForm1. btn1Click (Sender: TObject);

begin

if (edt1.text='semenov') AND (edt2.Text='123') then begin

Form2.Show;

form1.Hide;

end;

end;

procedure TForm1. btn2Click (Sender: TObject);

begin

Application.Terminate;

end;

end.

unit Unit2;

var

Form2: TForm2;

implementation

uses Unit1, Unit3, Unit5, Unit9, Unit10, Unit11, Unit12, Unit4, Unit6,

Unit7, Unit8;

{$R *.dfm}

procedure TForm2. btn1Click (Sender: TObject);

begin

Form3.show;

Form2.hide;

end;

procedure TForm2. Button1Click (Sender: TObject);

begin

Form5.Show;

Form2.Hide;

end;

procedure TForm2. btn3Click (Sender: TObject);

begin

form2.Hide;

form1.Show;

end;

procedure TForm2. btn2Click (Sender: TObject);

begin

form9.show;

end;

procedure TForm2. Button2Click (Sender: TObject);

begin

Application.Terminate;

end;

end.

unit Unit3;

var

Form3: TForm3;

implementation

uses unit4, Unit2, Unit1, Unit10, Unit11, Unit12, Unit5, Unit6,

Unit7, Unit8, Unit9;

{$R *.dfm}

procedure TForm3. dbgrd1CellClick (Column: TColumn);

begin

Memo1.Text:=dbgrd1.Columns[10]. Field. AsString;

end;

procedure TForm3. btn1Click (Sender: TObject);

begin

dbgrd1.DataSource.DataSet.Last;

dbgrd1.DataSource.DataSet.Insert;

end;

procedure TForm3. btn2Click (Sender: TObject);

begin

dbgrd1.DataSource.DataSet.Post;

end;

procedure TForm3. btn3Click (Sender: TObject);

begin

dbgrd1.DataSource.DataSet.Delete;

end;

procedure TForm3. btn4Click (Sender: TObject);

begin

Form3.Hide;

form2.show;

end;

end.

unit Unit4;

var

DataModule4: TDataModule4;

implementation

uses Unit1, Unit10, Unit11, Unit12, Unit2, Unit3, Unit5, Unit6, Unit7,

Unit8, Unit9;

{$R *.dfm}

end.

unit Unit5;

var

Form5: TForm5;

implementation

uses Unit6, Unit2, Unit10, Unit11, Unit12, Unit1, Unit3, Unit4, Unit7,

Unit8, Unit9;

{$R *.dfm}

procedure TForm5. btn5Click (Sender: TObject);

begin

Form6.showmodal;

end;

procedure TForm5. btn6Click (Sender: TObject);

begin

form5.Hide;

form2.show;

end;

procedure TForm5. btn3Click (Sender: TObject);

begin

form10.showmodal;

end;

procedure TForm5. btn4Click (Sender: TObject);

begin

form11.showmodal;

end;

procedure TForm5. btn2Click (Sender: TObject);

begin

form12.showmodal;

end;

procedure TForm5. Button1Click (Sender: TObject);

begin

form7.Showmodal;

end;

end.

unit Unit6;

var

Form6: TForm6;

implementation

uses Unit4, Unit7, Unit8, Unit5, Unit1, Unit10, Unit11, Unit12,

Unit2, Unit3, Unit9;

{$R *.dfm}

procedure TForm6. btn1Click (Sender: TObject);

begin

Form8.showmodal;

end;

procedure TForm6. btn4Click (Sender: TObject);

begin

Form6.close;

end;

end.

unit Unit7;

var

Form7: TForm7;

implementation

uses unit4, Unit5, Unit1, Unit10, Unit11, Unit12, Unit2, Unit3,

Unit6, Unit8, Unit9, Unit13;

{$R *.dfm}

procedure TForm7. Button1Click (Sender: TObject);

begin

form7.close;

end;

procedure TForm7. Button2Click (Sender: TObject);

begin

form13.showmodal;

end;

end.

unit Unit8;

var

Form8: TForm8;

implementation

uses Unit6;

{$R *.dfm}

procedure TForm8. btn1Click (Sender: TObject);

begin

Form6.DBGrid1.DataSource.DataSet.Insert;

Form6.DBGrid1.DataSource.DataSet.FieldByName ('Фамилия').AsString := Edit1. Text;

Form6.DBGrid1.DataSource.DataSet.FieldByName ('Имя').AsString := Edt1. Text;

Form6.DBGrid1.DataSource.DataSet.FieldByName ('Отчество').AsString := Edt2. Text;

Form6.DBGrid1.DataSource.DataSet.FieldByName ('Должность').AsString := Edt3. Text;

Form6.DBGrid1.DataSource.DataSet.FieldByName ('Телефон').AsString := Edt4. Text;

Form6.DBGrid1.DataSource.DataSet.Post;

end;

procedure TForm8. btn2Click (Sender: TObject);

begin

form8.close;

end;

end.

unit Unit9;

var

Form9: TForm9;

implementation

uses Unit2, Unit1, Unit10, Unit11, Unit12, Unit3, Unit4, Unit5, Unit6,

Unit7, Unit8;

{$R *.dfm}

procedure TForm9. Button1Click (Sender: TObject);

begin

form9.hide;

form2.show;

end;

end.

unit Unit10;

var

Form10: TForm10;

implementation

uses Unit5, Unit1, Unit11, Unit12, Unit2, Unit3, Unit4, Unit6, Unit7,

Unit8, Unit9, Unit14;

{$R *.dfm}

procedure TForm10. Button1Click (Sender: TObject);

begin

form10.close;

end;

procedure TForm10. Button2Click (Sender: TObject);

begin

form14.showmodal;

end;

end.

unit Unit11;

var

Form11: TForm11;

implementation

uses Unit5, Unit1, Unit10, Unit12, Unit2, Unit3, Unit4, Unit6, Unit7,

Unit8, Unit9, Unit16;

{$R *.dfm}

procedure TForm11. Button1Click (Sender: TObject);

begin

form11.close;

end;

procedure TForm11. Button2Click (Sender: TObject);

begin

form16.showmodal;

end;

end.

unit Unit12;

var

Form12: TForm12;

implementation

uses Unit5, Unit1, Unit10, Unit11, Unit2, Unit3, Unit4, Unit6, Unit7,

Unit8, Unit9, Unit15;

{$R *.dfm}

procedure TForm12. Button1Click (Sender: TObject);

begin

form12.close;

end;

procedure TForm12. Button2Click (Sender: TObject);

begin

form15.showmodal;

end;

end.

unit Unit13;

var

Form13: TForm13;

implementation

uses Unit7;

{$R *.dfm}

procedure TForm13. Button1Click (Sender: TObject);

begin

Form7.DBGrid1.DataSource.DataSet.Insert;

Form7.DBGrid1.DataSource.DataSet.FieldByName ('Фамилия').AsString := Edit1. Text;

Form7.DBGrid1.DataSource.DataSet.FieldByName ('имя').AsString := Edit2. Text;

Form7.DBGrid1.DataSource.DataSet.FieldByName ('отчество').AsString := Edit3. Text;

Form7.DBGrid1.DataSource.DataSet.FieldByName ('телефон').AsString := Edit4. Text;

Form7.DBGrid1.DataSource.DataSet.FieldByName ('должность').AsString := Edit5. Text;

Form7.DBGrid1.DataSource.DataSet.Post;

end;

procedure TForm13. Button2Click (Sender: TObject);

begin

form13.close;

end;

end.

unit Unit14;

var

Form14: TForm14;

implementation

uses Unit10;

{$R *.dfm}

procedure TForm14. Button1Click (Sender: TObject);

begin

form14.close;

end;

procedure TForm14. Button2Click (Sender: TObject);

begin

Form10.DBGrid1.DataSource.DataSet.Insert;

Form10.DBGrid1.DataSource.DataSet.FieldByName ('Фамилия').AsString := Edit1. Text;

Form10.DBGrid1.DataSource.DataSet.FieldByName ('имя').AsString := Edit2. Text;

Form10.DBGrid1.DataSource.DataSet.FieldByName ('отчество').AsString := Edit3. Text;

Form10.DBGrid1.DataSource.DataSet.FieldByName ('телефон').AsString := Edit4. Text;

Form10.DBGrid1.DataSource.DataSet.FieldByName ('должность').AsString := Edit5. Text;

Form10.DBGrid1.DataSource.DataSet.Post;

end;

end.

unit Unit15;

var

Form15: TForm15;

implementation

uses Unit6, Unit12;

{$R *.dfm}

procedure TForm15. Button1Click (Sender: TObject);

begin

Form12.DBGrid1.DataSource.DataSet.Insert;

Form12.DBGrid1.DataSource.DataSet.FieldByName ('текст задачи').AsString := Edit1. Text;

Form12.DBGrid1.DataSource.DataSet.Post;

end;

procedure TForm15. Button2Click (Sender: TObject);

begin

FORM15.close;

end;

end.

unit Unit16;

var

Form16: TForm16;

implementation

uses Unit11;

{$R *.dfm}

procedure TForm16. Button2Click (Sender: TObject);

begin

form16.close;

end;

procedure TForm16. Button1Click (Sender: TObject);

begin

Form11.DBGrid1.DataSource.DataSet.Insert;

Form11.DBGrid1.DataSource.DataSet.FieldByName ('Организация').AsString := Edit1. Text;

Form11.DBGrid1.DataSource.DataSet.FieldByName ('Телефон').AsString := Edit2. Text;

Form11.DBGrid1.DataSource.DataSet.Post;

end;

end.

end.