Рис. 23. Форма «Справочник сотрудников»

Аналогичным способом проектируются и создаются остальные формы системы «Спортивные мероприятия». Последовательность создания следующая:

- Создание формы;

- Подключение ее к главной форме;

- Подключение к ней источника данных;

- Наполнение нужными компонентами;

- Реализация их взаимодействия;

- Проверка работы.

На рис. 24 изображена работающая система с открытой формой «Справочник сотрудников».

Рис. 24. Справочник сотрудников

Формирование и отображение отчетов. Для формирования и отображение необходимых пользователю отчетов воспользуемся генератором отчетов Fast Report сторонней фирмы «Fast Reports». Наш выбор основан на удобстве и простоте работы с данным генератором. Опишем процесс создания отчета на примере отчета «Преподаватели». В данном отчете отображается список преподавателей (ФИО, должность, год рождения, номер удостоверения). Для создания поместим на главную форму компоненты TfrReport, TfrDBDataSet. TfrReport представляет собой ядро генератора отчетов для фомирования и вывода на печать созданной формы отчета. Сама форма отчета хранится на диске в виде файла с расширением .frf. TfrDBDataSet своеобразный шлюз данных между источником данных и генератором отчетов. Подключаем TfrDBDataSet к источнику данных через свойства компонента. Далее два раза щелкаем на генераторе отчетов для открытия дизайнера отчетов (рис. 25).

Рис. 25. Дизайнер отчетов

Сформированный отчет можно сохранить, экспортировать в формат txt, rtf, xls или отправить на печать.

2.5 Выводы

В данном разделе мы создали базу данных на MS Access при помощи макроса VBA, разработали графический интерфейс системы в среде разработки Delphi 7, а также рассмотрели вопрос генерации отчетов в Fast Report и проверили реакцию системы на запросы естественным языком. В следующем разделе мы дадим технико-экономическое обоснование разработки данной системы.



3. Разработка программного обеспечения АСПУ СИЗМ

3.1 Обоснование выбора средств разработки

На сегодняшний день на рынке существует великое множество продуктов, в той или иной степени облегчающих жизнь современному разработчику информационных систем. Всевозможные языки программирования, среды создания приложений, системы управления базами данных, анализаторы, компиляторы, дэбагеры и много всего другого. Очень сложно, особенно начинающему разработчику, разобраться во сем этом разнообразии. Каждый продукт по своему уникален и полезен. При выборе средств для той или иной разработки, нужно исходить из поставленного технического задания. Например, количество пользователей, клиент-серверной приложение или нет, коммерческое или бюджетное, красота или функциональность. Исходя из этого, для решения нашей задачи, нам нужно рассмотреть разные варианты и сделать выбор в соответствии с поставленными задачами Цикритзис Д., Лоховски Ф. Модели данных. - М.: Финансы и статистика, 1985. - 214 с..

Visual C++. Создан на основе одного из самых первых языков программирования С++. Основным его плюсом является полная универсальность - на нем можно писать все. Это язык профессионалов, и поэтому несколько сложен в освоении. К основным недостаткам можно отнести неудобный синтаксис, слишком длинный программный код, порой влекущий за собой неудобство в разработке.

Visual Basic. Этот язык программирования известен всем программистам. Он основан на Бейсике, с которого почти все начинали познавать азы программирования. Широкие возможности по созданию интерфейса и простота использования, позволили ему завоевать широкую популярность среди начинающих разработчиков. Однако для профессиональной разработки он не сильно подходит из за отсутствия указателей, низкоуровневого доступа к памяти, невысокой скорости работы программы.

Delphi. Это многофункциональный язык программирования, основанный на Object Pascal. Популярен из за наличия большого количества компиляторов и диалектов. Каждый разработчик может выбрать именно тот диалект, который ему больше всего подходит. В целом, это императивный, объектно-ориентированный язык, на котором можно писать все. Особенно удобен при разработке информационных систем, из за наличия в нем как родных, так и сторонних средств доступа к любым базам данных. Очень популярен среди базовиков Фаронов В.В. Программирование баз данных в Delphi 7: Учебный курс - СПб.: Питер, 2004 - 464 с..

InterBase. Это СУБД в основном использовалась в системах военного и специального назначения. Лишь недавно она стала доступна широкому кругу пользователей. Из за своей нетребовательности к ресурсам и переносимости быстро завоевала популярность среди разработчиков информационных систем. Однако в настоящее время мало используется из за повышенных требований к безопасности, а так же из за достаточно неудобного инструмента администрирования IBConsole. Кроме того, смущают несколько завышенные цены на приобретение лицензий.

Oracle Database. Лидер среди построения промышленных баз данных. Поставляется в нескольких вариантах. Кросплатформенный, причем для разных платформ используется одно и то же ядро. К недостаткам относится большая требовательность к ресурсам, и, конечно, огромная цена. Лицензия на 100 пользователей стоит примерно 120000$.

Microsoft Access. Поставляется в комплекте с пакетом программ MS Office. Несколько неповоротлив в работе, из за сохранения данных после любого действия, но это имеет и свои плюсы в плане сохранения информации в случае сбоев или зависания системы в целом. Не требователен к ресурсам, не требователен к платформе. Одинаково хорошо работает как на серверной, так и на пользовательской машине. Переносимость. Не требует дополнительных средств для подключения и разработки. В общем - все в одном. Идеально подходит для небольших информационных систем Четвериков В.Н. и др. Базы и банки данных. - М.: Высш. шк., 1987..

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

3.2 Разработка плана внедрения

Согласно ГОСТ 34.601-90 «Автоматизированные системы. Стадии создания» выделяют следующие основные стадии создания и этапы разработки автоматизированной системы (АС):

1. Формирование требований к АС.

2. Разработка концепции АС.

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

4. Эскизный проект.

5. Технический проект.

6. Рабочая документация.

7. Ввод в действие.

8. Сопровождение АС.

Как правило, этапы стадий формирования требований к автоматизированной системе объединяют с этапами разработки технического задания, а этапы разработки концепции - с этапами эскизного проектирования. Также к приведенным стадиям создания АС добавляют стадию подготовки к началу проекта.

Таблица 2

Стадия I. Организация проекта

Этапы работ	Результат	Дней
Заключение контракта	Контракт на разработку системы заключен	10
Согласование процедур управления	Процедуры управления проектом и устав проекта согласованы	5
Сбор команды проекта	Команда проекта сформирована	5
Обучение членов проектной команды	Компетенция участников проекта соответствует требованиям. Этап реализуется по необходимости	10

Таблица 3

Стадия II. Формирование требований и разработка технического задания

Этапы работ	Результат	Дней
Системно-аналитическое обследование объекта автоматизации	Проведены интервью с функциональными и IT-специалистами Заказчика.  Собрана информация о: · требуемых отчетах, показателя, измерениях · возможных системах-источниках данных · системном ландшафте · сетевом окружении	20
Анализ и обработка полученной информации	Сформированы: · альбом показателей · альбом измерений и иерархий · альбом отчетности · определены источники данных для каждого показателя	20
Разработка концептуальной модели данных	Концептуальная модель данных	15
Разработка технического задания	Техническое задание и приложения к нему	20
Согласование и утверждение	Согласованное и утвержденное техническое задание	10



Таблица 4

Стадия III. Эскизный проект

Этапы работ	Результат	Дней
Определение общей функциональной и технической архитектур	Общее описание функциональной и технической архитектур	10
Разработка логической модели данных	· Логическая модель данных. · Определен состав сущностей области постоянного хранения (System of Record, Summary Area, Data Marts). · Окончательно сформирован состав реализуемых показателей, измерений и отчетов.	30
Обоснование выбора программного обеспечения и технической инфраструктуры	ПО выбрано. Утвержден план формирования необходимой технической инфраструктуры	10
Разработка предварительного регламента взаимодействия информационных систем	· Предварительные регламенты взаимодействия согласованы с разработчиками и администраторами систем-источников данных. · Определен состав сущностей области временного хранения (Staging Area) и области обмена данными (Data Exchange Interface).	20
Эскизное проектирование процессов ETL	Общее описание процессов извлечения данных, алгоритмов трансформации, загрузки и агрегации данных	10
Эскизное проектирование интерфейсов пользователя	Общее описание интерфейсов ввода и предоставления данных	5
Оформление эскизного проекта	Пояснительная записка к эскизному проекту	15
Согласование и утверждение	Согласованная и утвержденная пояснительная записка к эскизному проекту	5

Таблица 5

Стадия IV. Технический проект

Этапы работ	Результат	Дней
Определение функциональной и технической архитектур	Описание функциональной архитектуры (включая описание каждой функции, задачи, методов реализации).  Описание технической архитектуры (включая описание размещения технических средств, условий эксплуатации, режима функционирования, организации резервного копирования и т.д.)	15
Формирование плана развертывание системного ландшафта	План развертывания системного ландшафта	10
Разработка физической модели данных	Физическая модель данных - описание таблиц БД, индексов, секций и других объектов БД	10
Разработка и согласование регламентов взаимодействия информационных систем	Согласованный и утвержденный набор регламентов взаимодействия, включающих описание интерфейсов, периодичности и т.п.	10
Проектирование процессов ETL	Описание процессов извлечения данных, алгоритмов трансформации и обеспечения качества данных, процессов загрузки и агрегации данных	20
Проектирование интерфейсов пользователя	Описание бизнес-слоя данных, интерфейсов ввода и предоставления данных, разграничения прав доступа	15
Оформление технического проекта	Пояснительная записка к техническому проекту	20
Согласование и утверждение	Согласованная и утвержденная пояснительная записка к техническому проекту	5

Таблица 6

Стадия V. Рабочая документация

Этапы работ	Результат	Дней
Разработка рабочей документации на систему и на её части	Разработаны следующие документы: · Ведомость эксплуатационных документов · Ведомость машинных носителей информации · Паспорт · Общее описание системы · Технологическая инструкция · Руководство пользователя · Описание технологического процесса обработки данных (включая телеобработку) · Инструкция по формированию и ведению базы данных (набора данных) · Состав выходных данных (сообщений) · Каталог базы данных · Программа и методика испытаний (ПИМ) · Спецификация · Описание программ · Текст программ	40
Разработка или адаптация программ	· Развернуты экземпляры БД. Созданы необходимые объекты БД · Разработаны процессы ETL и процессы обеспечения качества данных. Выставлено расписание запуска процессов · Реализованы дополнительные приложения · Реализованы витрины данных и отчетность · Настроены профили пользователей и прав доступа	60
Согласование и утверждение	Согласованная и утвержденная рабочая документация	15

Таблица 7

Стадия VI. Ввод в действие

Этапы работ	Результат	Дней
Подготовка объекта автоматизации к вводу системы в действие	Создание у Заказчика службы сопровождения системы (при необходимости)	10
Подготовка персонала	Обучение пользователей и администраторов системы	10
Комплектация системы поставляемыми изделиями	Закупка и завоз необходимого оборудования и программного обеспечения. Для снятия рисков поставки данный этап обычно выполняется на предыдущей стадии	20 - 100
Строительно-монтажные работы	Оборудование смонтировано в выделенном для этого помещении и подключено к каналам передачи данных	20
Пусконаладочные работы	Прошла наладка технических и программных средств. ПО системы перенесено в зону тестирования/промышленной эксплуатации. Настроена система резервного копирования.  Проведена загрузка исторических данных в систему. Запущены процессы извлечения данных из систем-источников	20
Проведение предварительных испытаний	Испытания системы на работоспособность и соответствие техническому заданию в соответствии с ПИМ проведены.  Устранение неисправностей и внесение изменений в документацию в соответствии с протоколом испытаний проведено.  Акт приёмки системы в опытную эксплуатацию оформлен и подписан	10
Проведение опытной эксплуатации	Опытная эксплуатация проведена. Устранение неисправностей, доработка ПО и дополнительная наладка технических средств проведены	30 - 60
Проведение приёмочных испытаний	Испытания системы в соответствии с ПИМ проведены.  Устранение неисправностей и внесение изменений в документацию проведено.  Акт передачи системы в промышленную эксплуатацию оформлен и подписан	5
Завершение работ	Акт завершения работ подписан	5

Таблица 8

Стадия VII. Сопровождение

Этапы работ	Результат	Дней
Выполнение работ в соответствии с гарантийными обязательствами	Выявленные недостатки системы устранены	365
Послегарантийное обслуживание	Система работает стабильно, без сбоев. Выявленные недостатки устранены	-

Степень ответственности каждого члена проектной команды за выполнение той или иной задачи на каждом из этапов проекта определяется матрицей ответственности Ахтырченко К.В., Леонтьев В.В. Распределенные объектные технологии в информационных системах// СУБД № 5-6 - М.: 1997 - 250 с..

3.3 Тестирование АСПУ

Тестирование АСУ «Спортивные мероприятия» проведем на примере реальной работы с приложением.

1. Запуск программы.

Для начала работы с программой необходимо проверить подключение к базе данных. Для этого запускаем файл connect.udl, расположеный в папке c:\Sports\Connect.

Рис. 26. Файл connect.udl

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

Рис. 27. Проверка соединения

Запуск приложения.

Для запуска приложения «Спортивные соревнования» нужно запустить файл SportAction.exe, расположенный в папке c:\Sports\Bin\.

При успешном выполнении подсветится главная форма программы.

Рис. 28. Главная форма

2. Тестирование приложения.

Исходные данные:

Спортивное мероприятие: «Чемпионат по мини-футболу».

Дата проведения: 12.04.2015 г.

Организатор: Спортивный клуб «Динамо».

Генеральный спонсор: ООО «Спорт-Лайф».

Ответственный за проведение: Менеджер Белов Александр Васильевич.

Место проведения: Нижний Новгород.

Заполнение справочников.

Для ввода даты проведения мероприятия нужно кликнуть на вкладку Календарь в меню программы.

Рис. 29. Календарь мероприятий

Далее вносим дату 12.04.2015 г.

Рис. 30. Результат выполнения

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

Рис. 31. Справочник сотрудников

Вносим нужные данные: менеджер Белов Александр Васильевич.

Рис. 32. Результат выполнения

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



Рис. 33. Справочник организаций

Вносим нужные данные: Спортивный клуб «Динамо».

Рис. 34. Результат выполнения

Для ввода генерального спонсора мероприятия нужно кликнуть на вкладку Справочник спонсоров в меню программы.

Рис. 35. Справочник спонсоров

Вносим нужные данные: ООО «Спорт-Лайф».

Рис. 36. Результат выполнения

Для ввода города проведения мероприятия нужно кликнуть на вкладку Справочник городов в меню программы.

Рис. 37. Справочник городов

Вносим нужные данные: Нижний Новгород.

Рис. 38. Результат выполнения

Регистрация мероприятия.

Для ввода мероприятия нужно кликнуть на вкладку Добавить мероприятие в меню программы.

Рис. 39. Форма регистрации мероприятия

Для регистрации мероприятия вводим все нужные данные, согласно задания.

Рис. 40. Введенные данные

Для регистрации мероприятия нужно кликнуть на кнопку «Применить». Для отмены введенных данных нужно кликнуть на кнопку «Отменить».

Рис. 41. Результат выполнения

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

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

Рис. 42. Результат выполнения

3.4 Выводы

В данной главе нами было дано обоснование выбора средств разработки АИС «Спортивные мероприятия». После анализа доступных продуктов разработки были выбраны в качестве СУБД - MS Access, в качестве среды разработки - Borland Delphi 7. Также был разработан план внедрения системы автоматизации и произведено тестирование программного продукта. Результаты тестирования показали отсутствие ошибок в разработке и эксплуатации.



Заключение

Целью дипломной работы была разработка конкурентоспособной АИС «Спортивные мероприятия». В ходе работы, был проведен анализ существующих на рынке коммерческих продуктов схожей направленности, был дан их анализ, а также выявлены основные недостатки, которые подтвердили актуальность разработки данного продукта. При разработке АИС «Спортивные мероприятия» были определены основные задачи, которые необходимо было решить в ходе разработки, а также учтены все недостатки рассмотренных программ. Проведя детальный анализ средств разработки, мы остановились на следующих продуктах MS Access - в качестве системы управления базами данных, Delphi 7 - в качестве среды программирования. Выбор был обоснован детальным анализом продуктов, а так же теми, требованиями, которые выдвигались для разработки данной системы.

В ходе работы была создана логическая модель АИС «Спортивные мероприятия», которая помогла более глубоко понять взаимодействие между собой участников системы и использовать это при проектировании и реализации БД «Спортивные мероприятия». При разработке базы данных мы использовали программный продукт ER Studio, позволяющий на основании ER-диаграммы, автоматизировать создание реальной базы данных в MS Access с помощью VBA-макроса. Разработанное программное средство детально описано и задокументированно, а также позволяет легко дорабатываться и обновляться без особых усилий со стороны пользователя. БД «Спортивные мероприятия» разработана с учетом всех требований и задач, которые стояли перед нами, а также является простым в эксплуатации и использовании программным средством. Для ее установки и использования не нужны специальные навыки, с этим может справиться даже неподготовленный пользователь. Результаты тестирования показали целесообразность и эффективность данной разработки, а также выявили, что она является безопасной и выгодной для вложения инвестиций.



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

1. Архангельский А.Я. Программирование в Delphi 7 + дискета - М.: Бином, 2005. - 987 с.

2. Атре Ш. Структурный подход к организации базы данных - М.: Финансы и статистика, 1983. - 312 с.

3. Ахтырченко К.В., Леонтьев В.В. Распределенные объектные технологии в информационных системах// СУБД № 5-6 - М.: 1997 - 250 с.

4. Бабич А.В. UML. Первое знакомство. Пособие для подготовки к сдаче теста UMO-100 (OMG Certified UML Professional Fundamental) (+ CD-ROM) - СПб.: Бином. Лаборатория знаний, 2008 г.- 176 с.

5. Бекаревич Ю.Б., Пушкина Н.В. Microsoft Access 2000 - СПб.: БХВ, 1999.

6. Беляков Р.И. Безопасность жизнедеятельности на производстве. Охрана труда / Р.И. Беляков. - СПб.: Лань, 2006. - 512 с.

7. Боггс У., Боггс М. UML и Rational Rose: - М.: Лори, 2008 г.- 600 с.

8. Бойко В.В., Савинов В.М. Проектирование баз данных информационных систем. - М.: Финансы и статистика, 1989.

9. Воройский Ф.С. Информатика. Новый систематизированный толковый словарь - СПб.: ФИЗМАТЛИТ, 2003 г.- 760 с.

10. Воройский Ф.С. Основы проектирования автоматизированных библиотечно-информационных систем - М.: ФИЗМАТЛИТ, 2002 г.- 384 с.

11. Глушаков С.В., Клевцов А.Л., Программирование в среде Delphi 7.0, Фолио 2003 - 415 с.

12. Горев А., Макащарипов С., Владимиров Ю. Microsoft SQL. Server 6.5 для профессионалов - СПб.: Питер, 1998.

13. ГОСТ 7.05-2008. Библиографическая ссылка. Общие требования и правила составления [Текст]. - введ. 2009-01-01. - 22с.

14. Гусева Т.И., Башин Ю.Б. Проектирование баз данных в примерах и задачах. - М.: Радио и связь, 1992. - 160 с., ил.

15. Данчул А.Н. Информатика. Учебник, Изд-во РАГС, 2004. - 280 с.

16. Двуреченский С.В. Концептуальное проектирование баз данных к АСУ. - М.: ЦНИИатоминформ, 1986. - 121 с.

17. Дейт К. Введение в системы баз данных: Пер. с англ. - М.: Наука, 1980. - 464 с.

18. Дейт К. Введение в системы баз данных. - К.: Диалектика, 1998.

19. Дейт Дж. Кристофер Введение в системы баз данных - М.: дом "Вильяме", 2005. - 1328 с.

20. Джексон Г. Проектирование реляционных баз данных для использования с микро - ЭВМ. - М.: Мир, 1991.

21. Зиндер Е.З. Проектирование баз данных: новые требования, новые подходы - М.: Финансы и статистика, 1996. - 182 с.

22. Каратыгин С., Тихонов А., Тихонова Л. Visual Fox Pro 5. К вершинам мастерства. - М.: Восточная книжная компания, 1997.

23. Карпова Т.С. Базы данных: модели, разработка - СПб.: Питер, 2001 - 304 с.

24. Карпова Т.С. Базы данных: модели, разработка, реализация - СПб.: Питер, 2001. - 304с.

25. Киммел П. UML. Универсальный язык программирования - М.: НТ Пресс, 2008 г.- 272 с.

26. Кириллов В.В. Основы проектирования баз данных - М.: Финансы и статистика, 1997. - 204 с.

27. Кнорринг Г.М. Справочная книга для проектирования электрического освещения / Г. М. Кнорринг, И. М. Фадин, В. Н. Сидоров. - 2?е изд., перераб. и доп. - СПб.: Энергоатомиздат - 1992. - 448 с.

28. Колесов Ю.Б. Моделирование систем. Объектно-ориентированный подход - М.: БХВ-Петербург, 2006 г.- 192 с.

29. Котеров Д. Денвер - возможности проекта [Электронный ресурс]// denwer.ru: Denwer: сайт. URL: http//www.denwer.ru/about.html/(дата обращения: 20.05.2011).

30. Кренке Д. Теория и практика построения баз данных: [пер.с англ] / Д. Кренке. - 9 - е изд. - СПб.: Питер, 2005. - 858 с.

31. Ладыженский Г. Системы управления базами данных - коротко о главном.// СУБД № 2. - М.: 1995, С.34-39.

32. Леоненков А.В. Объектно-ориентированный анализ и проектирование с использованием UML и IBM Rational Rose - СПб.: Интернет-университет информационных технологий, Бином. Лаборатор, 2006 г.- 320 с.

33. Леоненков А.В. Самоучитель UML 2 - М.: БХВ-Петербург, 2007 г.- 576 с.

34. Литвиненко М.В. Создание базы данных для ведения «Ведомственного реестра» Минобразования России / Моск. гос. унив. геод. и картогр. - М.: 2000. - 9 с. - Библиогр. 5 назв. - Рус. - Деп. в ОНИПР ЦНИИГАиК 10.10.2000 г. № 729-гд 2000 Деп.

35. Литвиненко М.В. Конспект лекций по курсу «Базы данных» обучающей системы ДО.

36. Мейер Д. Теория реляционных баз данных. - М.: Мир, 1987. - 608с.

37. Новиков Ф.А. Моделирование на UML. Теория, практика, видеокурс (+ 2 DVD-ROM) - М.: Профессиональная литература, Наука и техника, 2010 г.- 640 с.

38. Петров В.Н. Информационные системы - СПб.: Питер, 2002.

39. Попов В.В. Программирование в Delphi. Оптимальный подход, Век, 2005.-150 с.

40. Путилин А.Б. Компонентное моделирование и программирование на языке UML. Практическое руководство по проектированию информационно-измерительных систем - М.: НТ Пресс, 2005 г.- 664 с.

41. Роберт А. Максимчук, Эрик Дж. Нейбург UML для простых смертных - М.: Лори, 2008 г.- 304 с.

42. Справочная книга по светотехнике / Под ред. Ю. Б. Айзенберга. С 74 3?е изд. перераб. и доп. - М.: Знак, 2006. - 972 с.

43. Сухарев М.В. Основы Delphi. Профессиональный подход, Наука и техника, 2004.-420 с.

44. Тиори Т., Фрай Дж. Проектирование структур баз данных: В 2-х кн. Пер. с англ. - М.: Мир, 1985. - 287 с., ил.

45. Трофимов С.А. CASE-технологии: практическая работа в Rational Rose/ С.А. Трофимов. - М.: Бином-Пресс, 2002. - 288 с.

46. Тюрин Ю.Н. Макаров А.А. Анализ данных на компьютере./ Под.ред. В.Э.Фигурнова. - М.: ИНФРА-М, Финансы и статистика, 1995. - 384 с.

47. Ульман Дж., Уидом Дж. Введение в системы баз данных. - М.: Лори, 2000. - 374с.

48. Фаронов В.В. Программирование баз данных в Delphi 7: Учебный курс - СПб.: Питер, 2004 - 464 с.

49. Фленов М.В. Программирование в Delphi глазами хакера + CD - СПб.: BHV - 2004.-330 с.

50. Хансен Г., Хансен Д. Базы данных: разработка и уравление. - М.: БИНОМ, 1999.

51. Харитонова И.А. Михеева В.Д. Microsoft Access 2000 - СПб.: БХВ - Санкт-Петербург, 1999. - 1088 с., ил.

52. Хомоненко А.Д., Цыганков В.М., Мальцев М.Г. Базы данных: Учебник для высших учебных заведений/Под ред. проф. А.Д. Хомоненко. - СПб.: КОРОНА принт, 2000. - 416с.

53. Цикритзис Д., Лоховски Ф. Модели данных. - М.: Финансы и статистика, 1985. - 214 с.

54. Четвериков В.Н. и др. Базы и банки данных. - М.: Высш. шк., 1987.

55. Фаулер М. UML. Основы. Краткое руководство по стандартному языку объектного моделирования - М.: Символ-Плюс, 2011 г.- 192 с.



Приложение А.

Исходный код главной формы

unit Main;

interface

uses

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

Dialogs, ActnList, Menus, XPMan, ImgList, ComCtrls, Grids, DBGrids,

StdCtrls, Buttons, DM, DB, TMDataSource, ADODB, FR_DSet, FR_DBSet,

FR_Class;

type

TfrmMain = class(TForm)

stat1: TStatusBar;

actlstMain: TActionList;

ilMain: TImageList;

xpmnfst1: TXPManifest;

mmMain: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

actEnterprise: TAction;

actSponsors: TAction;

actEmployer: TAction;

actActions: TAction;

actReport: TAction;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

actCalendar: TAction;

N9: TMenuItem;

N10: TMenuItem;

lbl1: TLabel;

dbgrd1: TDBGrid;

lbl2: TLabel;

lbl3: TLabel;

dbgrd2: TDBGrid;

actCity: TAction;

actRefresh: TAction;

actExit: TAction;

btnRefresh: TSpeedButton;

btnExit: TSpeedButton;

N11: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

qryDate: TADOQuery;

dsDate: TTMDataSource;

qryDatec_id: TAutoIncField;

qryDatec_date: TWideStringField;

qrySelAct: TADOQuery;

qrySelActe_name: TWideStringField;

qrySelActs_name: TWideStringField;

qrySelActct_name: TWideStringField;

qrySelActem_fio: TWideStringField;

qrySelActa_name: TWideStringField;

qrySelActa_status: TSmallintField;

dsSelAct: TTMDataSource;

qrySelRep: TADOQuery;

qrySelRepe_name: TWideStringField;

qrySelReps_name: TWideStringField;

qrySelRepct_name: TWideStringField;

qrySelRepem_fio: TWideStringField;

qrySelRepa_name: TWideStringField;

qrySelRepa_status: TSmallintField;

qrySelRepc_date: TWideStringField;

qrySelRepa_id: TAutoIncField;

frReport: TfrReport;

frDBDataSet: TfrDBDataSet;

procedure actExitExecute(Sender: TObject);

procedure actRefreshExecute(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure FormShow(Sender: TObject);

procedure actCalendarExecute(Sender: TObject);

procedure actEnterpriseExecute(Sender: TObject);

procedure actSponsorsExecute(Sender: TObject);

procedure actEmployerExecute(Sender: TObject);

procedure actCityExecute(Sender: TObject);

procedure actActionsExecute(Sender: TObject);

procedure dsDateTMDataChange(Sender: TObject; Field: TField);

procedure actReportExecute(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

frmMain: TfrmMain;

implementation

uses Calendar, Enterprise, Sponsors, Employes, City, AddAction;

{$R *.dfm}

procedure TfrmMain.actExitExecute(Sender: TObject);

begin

Close;

end;

procedure TfrmMain.actRefreshExecute(Sender: TObject);

begin

with qryDate do begin

Close;

Open;

end;

end;

procedure TfrmMain.FormCreate(Sender: TObject);

begin

try

with frmDM do begin

conMain.Connected := True;

end;

except

ShowMessage('Ошибка соединения с базой данных');

end;

end;

procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);

begin

with frmDM do begin

conMain.Connected := False;

end;

end;

procedure TfrmMain.FormShow(Sender: TObject);

begin

with qryDate do begin

Close;

Open;

end;

end;

procedure TfrmMain.actCalendarExecute(Sender: TObject);

begin

with TfrmCalendar.Create(Application) do begin

try

ShowModal;

finally

Free;

end;

end;

end;

procedure TfrmMain.actEnterpriseExecute(Sender: TObject);

begin

with TfrmEnterprise.Create(Application) do begin

try

ShowModal;

finally

Free;

end;

end;

end;

procedure TfrmMain.actSponsorsExecute(Sender: TObject);

begin

with TfrmSponsors.Create(Application) do begin

try

ShowModal;

finally

Free;

end;

end;

end;

procedure TfrmMain.actEmployerExecute(Sender: TObject);

begin

with TfrmEmployes.Create(Application) do begin

try

ShowModal;

finally

Free;

end;

end;

end;

procedure TfrmMain.actCityExecute(Sender: TObject);

begin

with TfrmCity.Create(Application) do begin

try

ShowModal;

finally

Free;

end;

end;

end;

procedure TfrmMain.actActionsExecute(Sender: TObject);

begin

with TfrmAddAction.Create(Application) do begin

try

ShowModal;

finally

Free;

end;

end;

end;

procedure TfrmMain.dsDateTMDataChange(Sender: TObject; Field: TField);

begin

with qrySelAct do begin

Close;

with Parameters do begin

ParamByName('cid').Value := qryDatec_id.AsInteger;

end;

Open;

end;

end;

procedure TfrmMain.actReportExecute(Sender: TObject);

begin

with qrySelRep do begin

Close;

Open;

end;

frReport.LoadFromFile('c:\Sports\Units\rep.frf');

frReport.ShowReport;

end;

end.



Приложение Б.

Исходный код формы регистрации мероприятий

unit AddAction;

interface

uses

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

Dialogs, DM, StdCtrls, RxLookup, DB, TMDataSource, ADODB, Buttons;

type

TfrmAddAction = class(TForm)

grp1: TGroupBox;

lbl1: TLabel;

lcbcDate: TRxDBLookupCombo;

lbl2: TLabel;

lcbcCity: TRxDBLookupCombo;

lbl3: TLabel;

lcbcEnterrprise: TRxDBLookupCombo;

lbl4: TLabel;

lcbcSponsors: TRxDBLookupCombo;

lbl5: TLabel;

edtName: TEdit;

lbl6: TLabel;

chkOn: TCheckBox;

btnOk: TSpeedButton;

btnCancel: TSpeedButton;

qryDate: TADOQuery;

qryDatec_id: TAutoIncField;

qryDatec_date: TWideStringField;

dsDate: TTMDataSource;

qryCity: TADOQuery;

dsCity: TTMDataSource;

qryCityct_id: TAutoIncField;

qryCityct_name: TWideStringField;

qryEnterprise: TADOQuery;

qryEnterprisee_id: TAutoIncField;

qryEnterprisee_name: TWideStringField;

qryEnterprisee_address: TWideStringField;

qryEnterprisee_phone: TWideStringField;

dsEnterprise: TTMDataSource;

qrySponsor: TADOQuery;

qrySponsors_id: TAutoIncField;

qrySponsors_name: TWideStringField;

qrySponsors_address: TWideStringField;

qrySponsors_phone: TWideStringField;

dsSponsor: TTMDataSource;

qryInsert: TADOQuery;

lbl7: TLabel;

lcbcEmployer: TRxDBLookupCombo;

qryEmployer: TADOQuery;

qryEmployerem_id: TAutoIncField;

qryEmployerem_fio: TWideStringField;

qryEmployerem_post: TWideStringField;

dsEmployer: TTMDataSource;

procedure btnCancelClick(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure btnOkClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

frmAddAction: TfrmAddAction;

implementation

{$R *.dfm}

procedure TfrmAddAction.btnCancelClick(Sender: TObject);

begin

Close;

end;

procedure TfrmAddAction.FormShow(Sender: TObject);

begin

with qryDate do begin

Close;

Open;

end;

with qryCity do begin

Close;

Open;

end;

with qryEnterprise do begin

Close;

Open;

end;

with qrySponsor do begin

Close;

Open;

end;

with qryEmployer do begin

Close;

Open;

end;

end;

procedure TfrmAddAction.btnOkClick(Sender: TObject);

begin

with qryInsert do begin

Close;

with Parameters do begin

ParamByName('an').Value := edtName.Text;

if chkOn.Checked then ParamByName('ast').Value := 1 else ParamByName('ast').Value := 0;

ParamByName('eid').Value := qryEnterprisee_id.AsInteger;

ParamByName('sid').Value := qrySponsors_id.AsInteger;

ParamByName('cid').Value := qryDatec_id.AsInteger;

ParamByName('emid').Value := qryEmployerem_id.AsInteger;

ParamByName('ctid').Value := qryCityct_id.AsInteger;

end;

Prepared; ExecSQL;

end;

Self.Close;

end;

end.



Приложение В

Исходный код формы Справочник городов

unit City;

interface

uses

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

Dialogs, DM, Grids, DBGrids, ExtCtrls, DBCtrls, DB, TMDataSource, ADODB;

type

TfrmCity = class(TForm)

dbnvgr1: TDBNavigator;

dbgrd1: TDBGrid;

tblCity: TADOTable;

tblCityct_id: TAutoIncField;

tblCityct_name: TWideStringField;

dsCity: TTMDataSource;

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure FormShow(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

frmCity: TfrmCity;

implementation

{$R *.dfm}

procedure TfrmCity.FormClose(Sender: TObject; var Action: TCloseAction);

begin

with tblCity do begin

Close;

end;

Action := caFree;

end;

procedure TfrmCity.FormShow(Sender: TObject);

begin

with tblCity do begin

Close;

Open;

end;

end;

end.

Размещено на Allbest.ru

...