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

Введение

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

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

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

В рамках курсового проекта была выбрана тема: «„Учет продукции“ для мебельного производства». Поскольку технологическая практика проходит на мебельном производстве, учет и систематизация ведутся на бумажных носителях, было решено создать программный продукт по учету готовой продукции для данного предприятия.

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

При разработке базы данных используется программа «Microsoft ACCESS» для создания базы — это функционально полная реляционная СУБД. Система управления базами данных Microsoft ACCESS является одним из самых популярных приложений в семействе настольных СУБД. Все версии ACCESS имеют в своем арсенале средства, значительно упрощающие ввод и обработку данных, поиск данных и предоставление информации в виде таблиц, графиков и отчетов. Встроенная функция SQL позволяет легко и быстро создавать запросы. Именно благодаря этим преимуществам мой выбор остановился на данной базе данных.

Для создания самого ПО в котором будет реализован данный курсовой проект, выбрана программа Borland Delphi — мощная среда быстрой разработки приложений, основанная на Object Pascal, в которой интегрированы средства моделирования разработки и развертывания приложений электронной коммерции и Web-сервисов. Borland Delphi позволяет создавать самые различные программы: от простейших однооконных приложений до программ управления распределенными базами. В состав пакета включены разнообразные утилиты, обеспечивающие работу с базами данных, XML-документами, создание справочной системы, решение других задач. Отличительной особенностью седьмой версии является поддержка технологии .NET

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

Предметом курсового проекта является разработка и отладка БД и СУБД северного типа с веб-интерфейсом «Учет продукции» для мебельного производства.

Целью курсового проекта является разработка и отладка приложения «Учет готовой продукции». Для достижения цели необходимо выполнить некоторые задачи:

Составить сопроводительную документацию Выбрать средства и методы программирования Проанализировать проектные данные

Создать базу и СУБД Протестировать созданный программный продукт Разрабатываемая программа должна выполнять следующие функции:

Добавление, редактирование и удаление записей Осуществление поиска данных из БД

Фильтрация и сортировка набора данных

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

1.1Техническое задание Курсовой проект «Разработка и отладка СУБД серверного типа с веб-интерфейсом для БД „Учет продукции“ для мебельного производства» для мебельного производства" проектируется для закрепления навыков приобретённых в ходе изучения дисциплины «Базы данных». Готовый проект может применяться на складах, магазинах или частных фирмах.

Задачи:

Разработать физическую и логическую модель БД и СУБД «Учет продукции».

Создать рабочую БД и СУБД «Учет продукции».

Отладить и протестировать БД и СУБД «Учет продукции».

1.1.1 Назначение разработки Результатом работы над курсовым проектом является СУБД, которая позволит систематизировать сведения о готовой продукции мебельного предприятия.

Требования к функциональным характеристикам БД «Учет продукции» для мебельного предприятия, будет обладать такими характеристиками как:

Добавление и удаление записей;

Сохранение всех изменений;

Обновление данных при внесении изменений;

Возможность построения разных видов запросов, отчётов и диаграмм.

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

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

Температура окружающего воздуха от +10°C до +35°C;

Атмосферное давление от 630 до 800 мм ртутного столба;

Относительная влажность воздуха не более 80%;

Запыленность воздуха не более 0,75 мг/мі;

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

Обслуживание ПК должен производит оператор с квалификацией не ниже первого разряда.

Требования к составу и параметрам технических средств Минимальная конфигурация:

Тип процессора Pentium и выше;

Объем оперативного запоминающего устройства 32 Мб и более;

Объем свободного места на жестком диске 40 Мб.

Рекомендуемая конфигурация:

Тип процессора Pentium II 400;

Объем оперативного запоминающего устройства128 Мб;

Объем свободного места на жестком диске60 Мб.

1.2 Анализ предметной области Курсовой проект БД «Учет продукции» предусмотрена для использования на мебельном предприятии, которая будет содержать информацию готовой продукции данного предприятия.

Предметной областью является деятельность предприятия.

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

Основными функциями программы являются:

Добавление новых данных в таблицы;

Изменение существующих данных;

Удаление существующих данных;

Осуществление различных манипуляций над данными, такие как сортировка, поиск;

1.3 Функциональная модель приложения Функциональная модель — это модель инфологического уровня представления, в которой акцентируется функциональный аспект моделирования предметной области.

Функциональная модель в виде иерархии функций способствует пониманию поведения субъекта моделирования.

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

Рисунок 1.3.1 — Контекстная модель

1.4 Логическая модель данных Логическая модель — это абстрактный взгляд на данные, на нем данные представляются так, как выглядят в реальном мире и могут называться так, как они называются в реальном мире. Объекты модели, представляемые на логическом уровне, называются сущностями и атрибутами (на физическом — таблицы и колонки). Логическая модель данных является универсальной и никак не зависит от реализации СУБД. Для создания логической модели ERwin имеет ряд инструментов, позволяющих при помощи простых манипуляций мышью быстро создавать довольно сложные модели. Удобная палитра инструментов дает возможность легко добавлять в модель сущности и атрибуты, определять различные типы связей между ними.

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

На уровне больших иконок На уровне сущностей На уровне описаний сущностей На уровне первичных ключей На уровне всех атрибутов Удобный интерфейс позволил в короткие сроки составить логическую модель на базе уже имеющейся базы данных. Это было возможным, так как ERwin имеет средства взаимодействия с наиболее распространёнными СУБД, среди которых и MS Access.

Рисунок 1.4.1 — Логическая модель данных

1.5 Физическая модель данных В физической модели важно описать всю информацию о конкретных физических объектах — таблицах, колонках, индексах, процедурах и т. д. Для этого ERwin имеет целый набор соответствующих редакторов. На основе ключей, описанных на уровне логической модели (поддерживаются первичные, внешние, альтернативные ключи и инверсионные входы) ERwin генерирует индексы.

Связи «один ко многим»

Связь «один ко многим» — наиболее распространенный вид связи. При такой связи каждой строке таблицы, А может соответствовать множество строк таблицы Б, однако каждой строке таблицы Б может соответствовать только одна строка таблицы А.

В Microsoft Access сторона связи «один ко многим», которой соответствует первичный ключ, обозначается символом ключа. Сторона связи, которой соответствует внешний ключ, обозначается символом бесконечности.

Связи «многие ко многим»

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

Связи «один к одному»

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

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

Чтобы разделить таблицу, содержащую слишком много столбцов.

Чтобы изолировать часть таблицы по соображениям безопасности.

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

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

В Microsoft Access сторона связи «один к одному», которой соответствует первичный ключ, обозначается символом ключа. Сторона связи, которой соответствует внешний ключ, также обозначается символом ключа.

Рисунок 1.5.1 — Схема связей между таблицами

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

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

В качестве ограничений были изменены первоначальные размеры полей в таблицах. Строковые переменные были уменьшены в размерах с 255 символов до 30−40. Для числовых полей был установлен формат «Длинное целое».

2. Описание программы

2.1Выбор и обоснование средств программирования Наиболее удобной системой управления базами данных является реляционная СУБД MS Access. Так же в рамках дисциплины проходили Borland Delphi 7. И с помощью данного программного обеспечения можно быстро создавать программные средства. Основными преимуществами данной СУБД являются:

Встроенные средства взаимодействия с внешними СУБД

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

Средства Delphi, предназначенные для работы с БД, можно разделить на 2 категории: инструментарий и компоненты. Инструментарий включает в себя рад дополнительных программ, входящих в поставку Delphi и предназначенных для работы с БД. Что касается компонентов, то в VCL имеется множество специализированных компонент, предназначенных для работы с БД.

Хотя Delphi и не является СУБД в классическом понимании этого термина, в частности, у нее нет собственного формата баз данных, она поддерживает как собственные сразу несколько форматов, в частности, dBase и Paradox.

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

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

Возможность использования практически любых символов для названий полей, а так же лимит в 25 символов, а не в 10;

Большее количество поддерживаемых типов данных, включая автоинкрементный тип;

Поддержка контроля целостности данных и возможность организации проверки вводимых данных;

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

Именно использование данных форматов позволяет управлять подключаемой базой данных и корректно отображать информацию. Помимо поддержки БД в самой среде Delphi, в состав поставки Delphi входит ряд дополнительных инструментов, служащих для обеспечения работы с БД. Прежде всего, это BDE — Borland Database Engine, представляющий собой набор системных библиотек и драйверов, предназначенных для взаимодействия БД и приложений, разрабатываемых в Delphi.

Кроме того, среда Delphi позволяет формировать удобный интерфейс, что однозначно определяет выбор.

2.2 Описание интерфейса При открытии приложения, создаваемого в ходе выполнения курсового проекта, пользователь будет попадать на главную форму (см. рис.2.2.1)

Рисунок 2.2.1 — Главная форма В программе «Учет продукции» были применены следующие компоненты:

Button — кнопка, для нажатия на нее. Caption — текст на кнопке.

Main Menu — компонент располагается на вкладке Standart. С помощью этого компонента мы может создать меню на главной форме следующего типа:

Рис. 2.2.2. — Демонстрация компонента MainMenu

Label — текстовая метка (надпись) на форме. Используется для отображения любого текста в окне. Текст задаётся в свойстве Caption. Свойство Font позволяет настроить шрифт текста.

ComboBox — представляет собой комбинацию списка строк ListBox со строкой ввода Edit. При этом «список строк» компонента ComboBox вначале скрыт, и раскрывается при щелчке мышкой по треугольничку раскрытия, который находится справа в строке ввода. Таким образом, с помощью ComboBox место на Форме экономится для расмещения других элементов интерфейса программы. А при необходимости раскрытие списка строк можно вообще запретить.

DelphiMemo — это простой текстовый редактор. Memo позволяет вводить многострочный текст с клавиатуры, загружать его из файла, редактировать и сохранять в файл текстового формата Для подключения базы данных нужны следующие компоненты: ADO Connection, ADO Table, DB GRID.

DBGRID — компонент располагается на вкладке Data Controls. Основное назначение данного компонента — отображение уже подключенной базы access.

ADO Connection — можно указывать местоположение базы данных и работать с транзакциями.

ADO Table — является аналогом компонента Table, расположенного на закладке BDE, и предназначен для доступа к таблице с помощью механизма ADO.

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

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

Запрос на «Код продукта» в обратном порядке — запрос, который сортирует данные в обратном порядке и отображает их.

Запрос на удаление данных — запрос, который будет удалять записи из таблиц.

Для вызова запроса нужно нажать на кнопку SQL, потом откроется окно для работы с запросами (см. рис.2.3.1)

Рисунок 2.3.1. — Окно работы с запросами.

2.4 Описание отчетов и диаграмм Отчеты предназначены для публикации данных и создаются они при помощи технологии Rave Reports. Проект отчета создается при помощи среды Rave. Генераторы ReportSmith и Rave Reports представляют собой отдельные приложения, при помощи которых можно создавать отчеты, в то время, как QuickReports — это набор VCL-компонентов, которые помещают непосредственно на стандартную форму Delphi. Отчёт построен при помощи средства Rave Designer, которое входит в пакет средства Borland Delphi. Функции данного средства позволяют вывести отчёт на печать, просмотреть его или сохранить в одном из предлагаемых форматов. С помощью компонента DBChart создаются визуальные диаграммы. Диаграммы двух видов «Круговая» и «Линейная».

В данном курсовом проекте использовалась круговая диаграмма (см. рис.2.4.1)

Рисунок 2.4.1. — Круговая диаграмма.

Рисунок 2.4.2 — Пример отчета

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

3. Руководство пользователя

Для разработки приложения был использован язык программирования Object Pascal. Среда разработки — Borland Delphi v 7.3.4.3.

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

В результате файл приложения будет размещён либо на рабочем столе, либо в директории, указанной пользователем.

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

3.3 Процедуры и функции В создаваемой СУБД, кроме событий объектов, размещённых на формах, используется лишь одна процедура «OnCreate».

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

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

Меню справки показана в соответствии с рисунком 4.1

Рисунок 4.1- Справка.

В справке имеются следующие разделы:

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

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

К проекту данный файл подключался при помощи API — функции ShellExecute.

Система помощи была разработана при помощи приложения Help & Manual версии 5.2.0 902. Выбор данного инструмента определили количество форматов, для сохранения файла справки, и маленький объём занимаемой памяти для его работы.

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

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

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

Методом «Белого ящика» в ходе проектирования СУБД Методом «Чёрного ящика»

Таблица 1. Результаты по методу «Белого ящика»

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

Отдельно проводилось тестирование механизма взаимодействия с БД по средствам запросов.

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

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

Важным этапом тестирования является проверка быстродействия системы.

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

Необходимо отметить, что был проведён анализ алгоритмов работы программы наиболее подходящий для взаимодействия с базой данных на основе механизма Jet 4.0 Ole DB.

Как отмечалось выше, было проведено тестирование методом «Чёрного ящика».

Результаты тестирования приведены в Таблице 2.

Таблица 2. Результаты тестирования методом «Чёрного ящика»

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

Заключение

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

Успешно завершена разработка СУБД для базы данных «Учет продукции» для мебельного предприятия

Завершена отладка и тестирование программы, исправлены выявленные ошибки и неисправности Завершено написание сопровождающей документации Успешно систематизирована информация о большинстве видов продукции Работа над курсовым проектом основывалась на информации, внесённой в базу данных при помощи реляционной БД MS Access. Данная БД проявила себя как надёжная и функциональная, так как проблем с подключением созданных с её помощью таблиц не возникло. Её механизм сохранения данных позволил обеспечить целостность данных и поддерживать её на высоком уровне.

В ходе работы над проектом было установлено, что механизм Jet 4.0 OLE DB, интегрированный в среду разработки Delphi работает исправно и стабильно. Данная технология позволило успешно наладить взаимообмен информацией между СУБД и базой данных.

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

Построение отчётов велось на основе технологии Rave Reports. Использование этой технологии позволило спроектировать отчёт типа «Отчет по продукции». Большое количество отлично продуманных и спроектированных инструментов данной среды формирования отчётов сделало процесс конструирования отчёта максимально удобным.

Таким образом, все поставленные перед курсовым задачи выполнены, а использование тех или иных средств разработки полностью оправдано.

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

Нормативная документация Дейтел. X. М. Как программировать на Delphi 7 / X. М. Дейтел, П. Дж. Дейтел. — М.: Бином. 2003. — 1151 с.

Демидович, Е. М. Основы алгоритмизации и программиро-вания. / Е. М. Демидович. — Мн.: Бестпринт, 2004. — 3S0 с.

Основная литература Оформление курсовых и дипломных проектов: метод, ука-зания /сост. И. М. Снежкова. — Мн.: МГВРК, 2003. — 32 с.

Страуструп, Б. Язык программирования Delphi 7/ Б. Страуструп. — М.: Бином, 2002. — 1098 с.

Дополнительная литература Архангельский. А. Я. Программирование в С++ Builder 7 / Л. Я. Архангельский. — М.: Бином, 2002.

Леоненков. Л. В. Самоучитель по Delphi/ Л. В. Леоненков. СПб.: БХВ-Петербург, 2002. — 304 с.

Тимофеев. В. В. Программирование в С++ Builder 5 / В. В. Тимофеев. — М.: Бином. 2000. — 360 с.

Дейтел. X. М. Как программировать на Delphi 7 / X. М. Дейтел, П. Дж. Дейтел. — М.: Бином. 2003. — 1151 с.

Демидович, Е. М. Основы алгоритмизации и программиро-вания. / Е. М. Демидович. — Мн.: Бестпринт, 2004. — 3S0 с.

Приложение А. Листинг программы Листинг 1 — Модуль Main. pas

unit main;

interface

uses

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

Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Menus, ShellAPI;

type

TForm1 = class (TForm)

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

Label1: TLabel;

Edit1: TEdit;

Button1: TButton;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DSVP: TDataSource;

DSKli: TDataSource;

DSZac: TDataSource;

ADOConnection1: TADOConnection;

VP: TADOTable;

Kli: TADOTable;

Zac: TADOTable;

VPDSDesigner: TIntegerField;

VPDSDesigner2: TWideStringField;

VPDSDesigner3: TWideStringField;

VPDSDesigner4: TWideStringField;

VPDSDesigner5: TIntegerField;

KliDSDesigner: TIntegerField;

KliDSDesigner2: TWideStringField;

KliDSDesigner3: TWideStringField;

KliDSDesigner4: TWideStringField;

KliDSDesigner5: TIntegerField;

ZacDSDesigner: TIntegerField;

ZacDSDesigner2: TIntegerField;

ZacDSDesigner3: TIntegerField;

ZacDSDesigner4: TWideStringField;

MainMenu1: TMainMenu;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N1: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

SQL1: TMenuItem;

procedure RadioButton1Click (Sender: TObject);

procedure RadioButton2Click (Sender: TObject);

procedure RadioButton3Click (Sender: TObject);

procedure N1Click (Sender: TObject);

procedure N7Click (Sender: TObject);

procedure N8Click (Sender: TObject);

procedure SQL1Click (Sender: TObject);

procedure N3Click (Sender: TObject);

procedure N5Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses cat, ot4, Diag, SQL;

{$R *.dfm}

procedure TForm1. RadioButton1Click (Sender: TObject);

begin

if RadioButton1. Checked then

DBGrid1.DataSource :=DSVP;

if RadioButton1. Checked then

DBNavigator1.DataSource :=DSVP;

end;

procedure TForm1. RadioButton2Click (Sender: TObject);

begin

if RadioButton2. Checked then

DBGrid1.DataSource :=DSKli;

if RadioButton2. Checked then

DBNavigator1.DataSource :=DSKli;

end;

procedure TForm1. RadioButton3Click (Sender: TObject);

begin

if RadioButton3. Checked then

DBGrid1.DataSource :=DSZac;

if RadioButton3. Checked then

DBNavigator1.DataSource :=DSZac;

end;

procedure TForm1. N1Click (Sender: TObject);

begin

Form2.show;

end;

procedure TForm1. N7Click (Sender: TObject);

begin

Form3.QuickRep1.Preview;

end;

procedure TForm1. N8Click (Sender: TObject);

begin

Form4.show;

end;

procedure TForm1. SQL1Click (Sender: TObject);

begin

Form5.show;

end;

procedure TForm1. N3Click (Sender: TObject);

begin

Close;

end;

procedure TForm1. N5Click (Sender: TObject);

begin

ShellExecute (Handle,'open','Help.chm', nil, nil, SW_SHOW)

end;

end.

Листинг 2 — Модуль SQL. pas

unit SQL;

interface

uses

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

Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids;

type

TForm5 = class (TForm)

DBGrid1: TDBGrid;

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

Label1: TLabel;

Memo1: TMemo;

Button1: TButton;

Button2: TButton;

GroupBox1: TGroupBox;

procedure FormCreate (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5. FormCreate (Sender: TObject);

begin

memo1.Clear;

end;

procedure TForm5. Button1Click (Sender: TObject);

begin

ADOQuery1.close;

ADOQuery1.SQL.Clear;

If Memo1. Lines[0] <> '' then

ADOQuery1.SQL.Add (Memo1.Text)

else

begin

messageDlg ('Не был введен SQL-запрос', mtError, [mbOK], 0);

exit;

end;

try

ADOQuery1.Open;

except

On e: EDatabaseError do

messageDlg (e.message, mtError,[mbOK], 0);

end;

end;

procedure TForm5. Button2Click (Sender: TObject);

begin

Close;

end;

end.

Листинг 3 — Модуль ot4. pas

unit ot4;

interface

uses

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

Dialogs, QRCtrls, QuickRpt, ExtCtrls, Grids, DBGrids, DB, ADODB;

type

TForm3 = class (TForm)

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DBGrid1: TDBGrid;

QuickRep1: TQuickRep;

QRBand1: TQRBand;

QRSubDetail1: TQRSubDetail;

QRLabel2: TQRLabel;

QRDBText1: TQRDBText;

QRLabel1: TQRLabel;

QRLabel3: TQRLabel;

QRLabel4: TQRLabel;

QRDBText2: TQRDBText;

QRDBText3: TQRDBText;

QRLabel5: TQRLabel;

QRLabel6: TQRLabel;

QRDBText4: TQRDBText;

QRDBText5: TQRDBText;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *.dfm}

end.

Листинг 4 — Модуль Diag. pas

unit Diag;

interface

uses

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

Dialogs, TeEngine, Series, TeeProcs, Chart, StdCtrls, ExtCtrls;

type

TForm4 = class (TForm)

Panel1: TPanel;

Button1: TButton;

Chart1: TChart;

Series1: TPieSeries;

procedure Button1Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4. Button1Click (Sender: TObject);

begin

Close;

end;

procedure TForm4. FormCreate (Sender: TObject);

const

A1 = 5;

A2 = 5;

A3 = 5;

A4 = 5;

A5 = 5;

A6 = 5 ;

A7 = 5 ;

A8 = 5 ;

var

i: word;

begin

with Series1 do

begin

Clear;

Add (A1, 'Смирнов В.Н.', clYellow);

Add (A2, 'Гвязда Н.С.', clBlue);

Add (A3, 'Степук Е.И.', clRed);

Add (A4, 'Лаврухин С.А.', clPurple);

Add (A5, 'Никифоров В.В.', clGreen);

Add (A6, 'Андреев А.А.', clPurple);

Add (A7, 'Асташкевич А.А.', clBlack);

Add (A8, 'Шевченок О.В.', clGray);

end;

for i := 0 to 100 do

begin

end;

end;

end.

Листинг 5 — Модуль cat. pas

unit cat;

interface

uses

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

Dialogs, ScktComp, StdCtrls;

type

TForm2 = class (TForm)

Label1: TLabel;

Label3: TLabel;

Memo1: TMemo;

Edit1: TEdit;

Edit2: TEdit;

Button1: TButton;

Button2: TButton;

ClientSocket1: TClientSocket;

GroupBox1: TGroupBox;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure ClientSocket1Connecting (Sender: TObject;

Socket: TCustomWinSocket);

procedure ClientSocket1Read (Sender: TObject; Socket: TCustomWinSocket);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2. Button1Click (Sender: TObject);

begin

ClientSocket1.Socket.SendText (Edit2.Text+': '+Edit1.Text);

Edit1.Clear;

end;

procedure TForm2. Button2Click (Sender: TObject);

begin

Close;

end;

procedure TForm2. FormCreate (Sender: TObject);

begin

ClientSocket1.Port:=4321;

ClientSocket1.Address:='127.0.0.1';

ClientSocket1.Active:=true;

Memo1.clear;

Edit1.Clear;

Edit2.Clear;

end;

procedure TForm2. ClientSocket1Connecting (Sender: TObject;

Socket: TCustomWinSocket);

begin

Memo1.Lines.Add ('Подключено!');

end;

procedure TForm2. ClientSocket1Read (Sender: TObject;

Socket: TCustomWinSocket);

begin

Memo1.Lines.Add (Socket.ReceiveText);

end;

end.

Листинг 6 — Модуль avtor. pas

unit avtor;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls;

type

TForm6 = class (TForm)

Panel1: TPanel;

Label1: TLabel;

Label2: TLabel;

Button1: TButton;

procedure Button1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

{$R *.dfm}

procedure TForm6. Button1Click (Sender: TObject);

begin

Close;

end;

end.

Приложение Б. Структурная схема

Рисунок Б — Структурная схема Приложение В. Функциональная схема Рисунок В — Функциональная схема Приложение Г. Диаграмма компонентов Рисунок Г — Диаграмма компонентов Приложение Д. Диаграмма вариантов использования Рисунок Д — Диаграмма вариантов использования