База данных магазина "Автозапчасти"

Размещено на http://www.allbest.ru/

Содержание

Введение

1. Постановка задачи "Разработать постановку и осуществить программную реализацию одного из модулей задачи "Информационная система магазина АЗ-01" (Магазин "Автозапчасти")

1.1 Характеристика задачи АЗ-01

1.2 Выходная информация задачи АЗ-01

1.3 Входная информация задачи АЗ-01

1.4 Выбор и обоснование состава технических средств и средств программной реализации задачи АЗ-01

2. Разработка алгоритма и программы решения задачи

2.1 Разработка математического алгоритма решения задачи

2.2 Разработка схемы данных программы с описанием задачи

2.3 Разработка схемы программы решения задачи с описанием

3. Разработка руководства пользователя и контрольного примера, демонстрирующего корректность решения задачи "Разработать постановку и осуществить программную реализацию одного из модулей задачи: "Информационная система АЗ-01" (Магазин "Автозапчасти")

Заключение

Список используемых источников

Приложения

Введение

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

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

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

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

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

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

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

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

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



1. Разработка постановки задачи "Информационная система АЗ-01" (магазин "Автозапчасти")

1.1 Характеристика задачи АЗ-01

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

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

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

Периодичность решения задачи - задача решается каждый раз, как только начинается смена в магазине.

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

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

Связь задачи АЗ-01 с другими задачами заключается в использовании плановой информации связанной с магазином "Автозапчасти". Эта информация может передаваться для обработки в рассматриваемую задачу, в виде файлов базы данных.

1.2 Выходная информация задачи АЗ-01

Результатом решения задачи АЗ-01 являются следующие сообщения:

- информация о проданных автозапчастях;

- информация о поступивших автозапчастях;

- отчет о выработке сотрудников;

- информация о поставщиках.

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

Перечень и описание выходных сообщений задачи АЗ-01 представлены в виде таблицы 1, перечень и описание структурных единиц информации выходных сообщений задачи АЗ-01 - в таблице 2.

Таблица 1. Перечень и описание выходных сообщений задачи АЗ-01

Наименование сообщения	Иденти-фикатор	Форма представления	Периодичность выдачи	Срок выдачи	Получатель информации
Информация о проданных автозапчастях	Zapproinfo	Таблица базы данных	По требованию пользователя	Неопределён	Сотрудники магазина "Автозапчасти"
Информация о поступивших автозапчастях	zappostinfo	Таблица базы данных	По требованию пользователя	Неопределён	Сотрудники магазина "Автозапчасти"
Отчет о выработке сотрудников	virab	Таблица базы данных	По требованию пользователя	Неопределён	Сотрудники магазина "Автозапчасти"
Информация о поставщиках	post	Таблица базы данных	По требованию пользователя	Неопределён	Сотрудники магазина "Автозапчасти"

Таблица 2. Перечень и описание структурных единиц информации выходных сообщений задачи АЗ-01

Наименование структурной единицы информации	Идентификатор в программе	Идентификатор выходного сообщения	Требования к точности	Размерность
Фамилия имя отчество сотрудника	fiosot	fiosot	9(0)	А(100)
Должность	dol	dol	9(0)	А(20)
Фамилия имя отчество покупателя	fiopok	fiopok	9(0)	A(100)
№ заявки	idzayvki	idzayvki		9(10)
Количество	koli4	koli4	9(0)	9(10)
Стоимость	stoim	stoim	9(0)	9(10)
Дата заявки	datazayvki	datazayvki	9(0)	Д(10)
Название детали	nazdet	nazdet	9(0)	А(100)
Фирма	firma	firma	9(0)	А(100)
№ склада	idsklad	idsklad		9(10)
№ продажи	idprod	idprod		9(10)
Дата продажи	dataprod	dataprod		Д(10)

1.3 Входная информация задачи АЗ-01

Для решения задачи АЗ-01 с использованием средств вычислительной техники используются данные из следующих таблиц:

- "Накладная";

- "Детали";

- "Покупатели".

Перечень и описание входных сообщений задачи АЗ-01 приведены в таблице 3, перечень и описание структурных единиц информации входных сообщений - в таблице 4.

Таблица 3. Перечень и описание входных сообщений задачи АЗ-01

Наименование сообщения	Идентификатор	Форма представления	Частота поступления	Источник информации
"Накладная"	Naklad	Таблица базы данных	По мере поступления информации	Сотрудники магазина "Автозапчасти"
"Детали"	Detali	Таблица базы данных	По мере поступления информации	Сотрудники магазина "Автозапчасти"
"Покупатели"	Pokupat	Таблица базы данных	По мере поступления информации	Сотрудники магазина "Автозапчасти"

Таблица 4. Перечень и описание структурных единиц информации входных сообщений задачи АЗ-01

Наименование структурной единицы информации	Идентифика-тор в программе	Идентификатор входного сообщения (источник информации)	Требования к точности	Размер-ность
№ заказа	Idzakaza	Sotrudmag		9(10)
№ детали	Iddetali	Sotrudmag		9(10)
Количество	Koli4	Sotrudmag		9(20)
Стоимость	Stoimost'	Sotrudmag		9(100)
Фамилия покупателя	FamPokup	Sotrudmag		A(100)
Имя покупателя	ImyaPokup	Sotrudmag		A(100)
Название детали	NazDet	Sotrudmag		А(100)
Количество деталей	Koli4Det	Sotrudmag		9(20)
Фирма	Firma	Sotrudmag		А(100)

1.4 Выбор и обоснование состава технических средств и средств программной реализации задачи АЗ-01

Для решения задачи АЗ-01 использован IBM-совместимый ПК.

Решение задачи АЗ-01 с использованием средств вычислительной техники предоставляет следующие преимущества:

- уменьшение времени на сбор исходной информации и подведения итогов;

- сокращение бумажного документооборота;

- повышение надежности хранения информации;

- увеличение достоверности результатов решения задачи.

Задача АЗ-01 может быть реализована на IBM-совместимом ПК, имеющем следующие минимальные характеристики:

- процессор тактовая частота, МГц 800;

- оперативная память, Мб 128;

- свободного места на НЖМД, Мб 100;

- монитор, Дюйм 15;

- операционная система Windows XP.

В состав так же входят следующие технические средства:

- CDROM;

- манипулятор типа мышь;

- клавиатура.

В качестве формы хранения данных при решении задачи АЗ-01 выбрана технология баз данных по следующим причинам:

- необходимость концентрации всех подлежащих обработке данных;

- значительный объем корректировок.

Программная реализации задачи АЗ-01 основана на реляционной модели данных.

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

Для разработки программного обеспечения задачи АЗ-01 выбрана среда разработки Delphi 7 по следующим причинам (достоинствам):

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

- высокая скорость работы, большое количество библиотек компонентов;

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

У данной среды программирования не только одни достоинства имеются, так же и недостатки и главным является, низкая эффективность системы доступа к данным по технологии ADO (не обходимо наличие установленных драйверов BDE на машине пользователя для обеспечения работоспособности приложения использующих данную технологию доступа). В качестве метода организации внутримашинной технологии обработки данных для решения задачи АЗ-01 выбран диалоговый режим, который предусматривает возможность многократного поступления информации и запросов пользователя. В процессе решения задачи рациональность диалогового режима в полной мере проявляется в процессе общения пользователя с БД.

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



2. Разработка алгоритма и программы решения задачи "Информационная система АЗ-01"

2.1 Разработка формализованного описания алгоритма решения задачи АЗ-01

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

SELECT Поставщики.Поставщик, Поставщики.[№ поставщика], Накладная.Количество, Накладная.Стоимость, Детали.Название

FROM Детали RIGHT JOIN (Поставщики LEFT JOIN Накладная ON Поставщики.[№ поставщика] = Накладная.[№ поставщика]) ON Детали.[№ детали] = Накладная.[№ детали]

WHERE (((Детали.Название)=[Название детали]));

2) Вторая процедура предназначена для вывода на экран инвентаризационной ведомости:

SELECT Детали.[№ детали], Детали.Название, Детали.Количество, Детали.Фирма, Детали.[№ склада], Детали.[№ ячейки]

FROM Детали;

3) Третья процедура предназначена для получения информации о бракованных деталях:

SELECT Брак.[№ брака], Детали.[№ детали], Детали.Название

FROM Брак LEFT JOIN Детали ON Брак.[№ детали]=Детали.[№ детали];



4) Четвёртая процедура предназначена для вывода перечни проданных деталей за определенный день :

SELECT Детали.Название, Заявки.Количество, Заявки.Стоимость, Продажи.[Дата продажи]

FROM (Детали LEFT JOIN Заявки ON Детали.[№ детали]=Заявки.[№ детали]) LEFT JOIN Продажи ON Заявки.[№ заявки]=Продажи.[№ заявки]

WHERE (((Продажи.[Дата продажи])=[Дата]));

2.2 Разработка схемы данных задачи АЗ-01 с описанием

Схема данных отображает потоки данных при решении задачи, определяет этапы их обработки, а также применяемые носители данных. Схема данных программы АЗ-01 приведена на рисунке 1, а её описание приведено в таблице 5.



Рисунок 1 - Схема данных задачи АЗ-01

Таблица 5. Описание схемы данных задачи АЗ-01

Номер блока	Назначение блока
1	Блок "Ввод и накопление" предназначен для сохранения введённых данных в соответствующих таблицах базы данных.
2	Блок "Формирование данных" предназначен для формирования таблиц на основе ранее накопленных данных о складах, деталях, бракованных деталях, поставщиках и покупателях.
3	Блок "Формирование отчетов" предназначен для вывода отчета на экран монитора или сохранения в файл базы данных.



2.3 Разработка схемы программы решения задачи АЗ-01 с описанием

Схема программы отображает последовательность операций выполняемых в программе. Схема программы АЗ-01 приведена на рисунке 2, а её описание приведено в таблице 6.



Рисунок 2 - Схема программы

Таблица 6. Описание схемы программы АЗ-01

Номер блока	Назначение блока
1	Начало работы программы АЗ-01
2	Запуск заставки программы АЗ-01
3	Загрузка главного окна программы АЗ-01
4	Выбор меню программы АЗ-01
5	Выход из программы АЗ-01
6	Выбор пункта "Таблицы" программы АЗ-01
7	Выбор таблицы "Склад"
8	Процесс создания таблицы
9	Выбор таблицы "Детали"
10	Процесс создания таблицы
11	Выбор таблицы "Брак"
12	Процесс создания таблицы
13	Выбор таблицы "Покупатели"
14	Процесс создания таблицы
15	Выбор таблицы "Поставщики"
16	Процесс создания таблицы
17	Выбор таблицы "Накладная"
18	Процесс создания таблицы
19	Выбор таблицы "Заявки"
20	Процесс создания таблицы
21	Выбор таблицы "Продажи"
22	Процесс создания таблицы
23	Выбор пункта "Запросы"
24	Процесс открытия меню " Запросы"
25	Выбор пункта меню "Запросы"
26	Выбор пункта меню "Информация о деталях"
27	Процесс построения
28	Выбор пункта меню "Инвентаризационная ведомость"
29	Процесс построения
30	Выбор пункта меню "Бракованные детали"
31	Процесс построения
32	Выбор пункта меню "Перечень проданных деталей в определенный день"
33	Процесс построения
34	Конец работы программы

Исходный код программы представлен в приложении Е.



3. Разработка руководства пользователя и контрольного примера, демонстрирующего корректность решения задачи "Разработать постановку и осуществить программную реализацию одного из модулей задачи: "Информационная система магазина автозапчастей (АЗ-01)"

В начале работы с приложением необходимо чтобы приложение было установлено на компьютере пользователя, для этого нужно скопировать каталог "Курсовая ТРПП Ефремов ПО-31" с CDROM диска в любой каталог указанный пользователем, например "С:\ Курсовая ТРПП Ефремов ПО-31".

До начала работы с программой АЗ-01 необходимо учитывать тот факт, что таблицы "Склад", "Детали", "Брак", "Поставщики", "Покупатели", "Накладная", "Продажи", "Заявки" базы данных должны быть заполнены соответствующими данными. Заполнение всех таблиц происходит аналогично и по следующему алгоритму.

Запускаем программу "Project1.exe" из каталога ""С:\ Курсовая ТРПП Ефремов ПО-31". Запуск осуществляется аналогично запуску любой программы в операционной системе Windows, а именно двойным нажатием левой кнопки мыши на указанно выше файле, или одинарным нажатием, на том же файле, кнопки Enter. У Вас запустится программа как показано на рисунке 3.



Рисунок 3 - Главное окно программы

После запуска программы Project1.exe выбираем пункт меню "Таблицы" главного меню, в этом списке выбираем первый пункт подменю "Склад". Запускается дополнительное приложение, как показано на рисунке 4, позволяющее вносить данные в таблицу, редактировать их и удалять. Чтобы добавить следующий склад необходимо нажать на кнопку 5, как показано на рисунке 4.

Рисунок 4 - Склад



После нажатия на кнопке 5, все записи таблицы спустятся на одну ниже от положения курсора, а курсор останется на новой пустой строке. В этой пустой строке поочередно вводим новые данные. В результате проделанных действий в таблице появится строка, как показано на рисунке 5 - это новая запись и её необходимо сохранить. Сохранить вновь введённые данные можно просто, переведя курсор на уже имеющиеся записи в таблице или нажав кнопку 8, как показано на рисунке 4, к этому моменту она уже будет активна. Данные сохранены.

Внесенные ранее данные можно редактировать и удалять, используя для этого следующие кнопки навигации:

1) Кнопки 1-4 предназначены для навигации (движения) по таблице.

2) Кнопка 6 предназначена для удаления текущей записи (записи, на которой расположен курсор).

3) Кнопка 7 предназначена для редактирования текущей записи.

Рисунок 5 - Форма таблицы после добавления записи

После того, как таблица "Склад" заполнена необходимыми данными, нужно закрыть это приложение. И в главном окне формы выбрать пункт меню "Таблицы"\"Покупатели", запустится приложение, изображенное на рисунке 6.



Рисунок 6 - Таблица Покупатели

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

После того, как таблица "Покупатели" заполнена необходимыми данными, нужно закрыть это приложение. И в главном окне формы выбрать пункт меню "Таблицы"\"Поставщики", запустится приложение, изображенное на рисунке 7.

Рисунок 7 - Таблица Поставщики

Заполнение таблицы этого приложения происходит по алгоритму заполнения таблицы "Склад".

После того, как таблица "Поставщики" заполнена необходимыми данными, нужно закрыть это приложение. И в главном окне формы выбрать пункт меню "Таблицы"\"Брак", запустится приложение, изображенное на рисунке 8.

Рисунок 8 - Таблица Брак

Заполнение таблицы этого приложения происходит по алгоритму заполнения таблицы "Склад".

После того, как таблица "Брак" заполнена необходимыми данными, нужно закрыть это приложение. И в главном окне формы выбрать пункт меню "Таблицы"\"Накладная", запустится приложение, изображенное на рисунке 9.



Рисунок 9 - Таблица Накладная

Заполнение таблицы этого приложения происходит по алгоритму заполнения таблицы "Склад".

После того, как таблица "Накладная" заполнена необходимыми данными, нужно закрыть это приложение. И в главном окне формы выбрать пункт меню "Таблицы"\"Заявки", запустится приложение, изображенное на рисунке 10.

Рисунок 10 - Таблица Заявки



Заполнение таблицы этого приложения происходит по алгоритму заполнения таблицы "Склад". После того, как заполнены таблицы, можно приступать к выполнению запросов. Перейдем на главное окно формы для выбора пункта меню "Запросы"\"Информация о деталях", запустится окно ввода параметра изображенное на рисунке 11. Далее вводим название детали, например "Двигатель", и жмем ОК, появляется результат, изображенный на рисунке 12. Дальше можно вернуться на главное окно, нажав кнопку "Назад", или сделать отчет, используя MS Excel, нажав кнопку "Отчет".

Рисунок 11 - Окно ввода параметра

Рисунок 12 - Запрос Информация о деталях

Данный запрос отображает информацию о детали, название которой вы ввели. После того, как мы узнали информацию о двигателях, перейдем на главное окне формы для выбора пункта меню "Запросы"\"Инвентаризационная ведомость", запустится приложение изображенное на рисунке 13. Дальше можно вернуться на главное окно, нажав кнопку "Назад", или сделать отчет, используя MS Excel, нажав кнопку "Отчет".

Рисунок 13 - Запрос Инвентаризационная ведомость

Данный запрос отображает информацию о деталях и где они хранятся.

Далее перейдем на главное окне формы для выбора пункта меню "Запросы"\"Бракованные детали", запустится приложение, изображенное на рисунке 14. Дальше можно вернуться на главное окно, нажав кнопку "Назад", или сделать отчет, используя MS Excel, нажав кнопку "Отчет".

Рисунок 14 - Запрос Бракованные детали

информационный программный база данные

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

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



Заключение

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

В соответствии с требованием заказчика была разработана база данных с использованием средств вычислительной техники. В ходе выполнения работы была использована реляционная СУБД Microsoft Access 2000.

В созданной базе данных переход по формам осуществляется с помощью обработчика событий - нажатие на кнопку, так как главная форма "АЗ-01" запускается автоматически и оснащена меню и кнопками.

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



Список используемых источников

1 Н. И. Полтавцева Правила оформления текста курсовой и дипломной работы, 2008

2 И.И. Мирошниченко Методические рекомендации по выполнению и защите курсовой работы для студентов специальности 230105. - Ростов-на-Дону: РГКРИПТ, 2009

3 Т. А. Гайворонская Базы данных. Методические рекомендации по выполнению практических заданий для студентов 3 курса. - г. Ростов-на-Дону: РГКРИПТ, 2009

4 Освой самостоятельно SQL. 10 минут на урок, 3-е издание.: Пер. с англ. - М.: Издательский дом "Вильямс", 2009

5 Microsoft Access 2003. Эффективный самоучитель/ Пер. с чеш. Серия "Просто о сложном". - СПб.: Наука и Техника, 2010

6 Разработка приложений в Ms Access. Краткое руководство. - М.: Издательский дом "Вильямс", 2009

7 Access: учебно - практ. пособие. - М.: ТК Велби, Изд-во Проспект, 2010

8 Практикум по Access. - М.: Финансы и статистика, 2009

9 http://www.opennet.ru/docs/RUS/rusql/ch3.html

10 http://www.lessons-tva.info/edu/e-inf2/m2t4_4.html



Приложение А

Рисунок А1 - Диаграмма вариантов использования



Приложение Б

Рисунок Б1 - Диаграмма сотрудничества

Таблица Б1. Описание действий

№ действия	Описание действия
1	Разработчик создает АЗ-01
2	Продавец вносит данные в АЗ-01
3	Продавец формирует запросы
4	Продавец получает отчеты
5	Продавец обращается к разработчику на доработку приложения
6	Разработчик дорабатывает приложение



Приложение В

Рисунок В1 - Диаграмма последовательности

Таблица В1. Описание действий

№ действия	Описание действия
1	Разработчик создает АЗ-01
2	Продавец вносит данные в АЗ-01
3	Продавец формирует запросы
4	Продавец получает отчеты
5	Продавец обращается к разработчику на доработку приложения
6	Разработчик дорабатывает приложение



Приложение Г

Рисунок Г- ER-диаграмма



Приложение Д

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

1 Введение

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

2 Основание для разработки

Задание на курсовую работу по дисциплине "Технология разработки программного продукта" от 23.03.2012 г.

3 Назначение

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

4. Требования к программе или программному изделию

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

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

- Ввод и изменение данных;

- Автоматическое обновление данных на основании накладной;

- Удаление данных на основании проданного товара.

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

- накладные;

- квитанции;

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

4.2.1 Предусмотреть контроль вводимой информации.

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

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

4.3.1 Система должна работать на IВМ совместимых ПК

4.3.2 Минимальная конфигурация:

- тип процессора - Pentium 2 и выше;

- объем ОЗУ - 128 и выше

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

Система должна работать под управлением семейства операционных систем Win 32.

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

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

5.2В состав сопровождающей документации должны входить:

- Пояснительная записка, содержащая описание разработки.

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

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

Название этапа	Срок	Отчетность
Разработка ядра системы	23.03.2012-30.04.2012	Описание внутренних форматов, интерфейса и форматов данных базы. Реализация системы на уровне интерфейса
Разработка методов и алгоритмов и их реализация для абитуриентов	1.04.2012- 30.05.2012	Описание методов и алгоритмов. Программные модули, реализующие методы
Тестирование программного продукта и составлением программной документации	1.05.2012- 1.06.2012	Тесты. Документация. Программный продукт



Приложение Е

Исходный текст задачи АЗ-01

Программный код для Главной формы

unit Unit1;

interface

uses

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

Dialogs,Menus, unit3,unit4, unit5, unit6, unit7, unit8, unit9, unit10,

ExtCtrls, jpeg, unit11, unit12, unit13, unit14 ;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N11: TMenuItem;

N15: TMenuItem;

N16: TMenuItem;

N17: TMenuItem;

N18: TMenuItem;

N19: TMenuItem;

N20: TMenuItem;

N21: TMenuItem;

N22: TMenuItem;

N23: TMenuItem;

N24: TMenuItem;

N25: TMenuItem;

N26: TMenuItem;

N27: TMenuItem;

N28: TMenuItem;

N29: TMenuItem;

image1: TImage;

procedure N19Click(Sender: TObject);

procedure N20Click(Sender: TObject);

procedure N21Click(Sender: TObject);

procedure N22Click(Sender: TObject);

procedure N23Click(Sender: TObject);

procedure N24Click(Sender: TObject);

procedure N25Click(Sender: TObject);

procedure N26Click(Sender: TObject);

procedure N27Click(Sender: TObject);

procedure N28Click(Sender: TObject);

procedure N29Click(Sender: TObject);

procedure N15Click(Sender: TObject);

procedure N18Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.N25Click(Sender: TObject);

begin

FormProd.Show; //Показать форму "Продажи"

Form1.Visible:=false; //Скрыть Главную форму

end;

procedure TForm1.N27Click(Sender: TObject);

begin

Form12.Show;

Form1.Visible:=false;

end;

procedure TForm1.N28Click(Sender: TObject);

begin

Form13.Show;

Form1.Visible:=false;

end;

procedure TForm1.N29Click(Sender: TObject);

begin

DataModule2.ADOQuery4.Parameters[0].Value:=InputBox('Ввод параметра','Введите дату',''); // Окно ввода параметра для запроса

DataModule2.ADOQuery4.Active:=true;

Form14.Show; // Показать запрос "Перечень проданных деталей в определенный день"

Form1.Visible:=false; // Скрыть Главную форму

end;

procedure TForm1.N15Click(Sender: TObject);

begin

Close; // Закрытие Главной формы

end;

procedure TForm1.N18Click(Sender: TObject);

begin

FormSklad.Show;

Form1.Visible:=false;

end;

procedure TForm1.N19Click(Sender: TObject);

begin

FormPokup.Show;

Form1.Visible:=false;

end;

procedure TForm1.N20Click(Sender: TObject);

begin

FormPostav.Show;

Form1.Visible:=false;

end;

procedure TForm1.N21Click(Sender: TObject);

begin

FormBrak.Show;

Form1.Visible:=false;

end;

procedure TForm1.N22Click(Sender: TObject);

begin

FormZacazi.Show;

Form1.Visible:=false;

end;

procedure TForm1.N23Click(Sender: TObject);

begin

FormZayavki.Show;

Form1.Visible:=false;

end;

procedure TForm1.N24Click(Sender: TObject);

begin

FormDetali.Show;

Form1.Visible:=false;

end;

procedure TForm1.N26Click(Sender: TObject);

begin

DataModule2.ADOQuery1.Parameters[0].Value:=InputBox('Ввод параметра','Введите название детали','');

DataModule2.ADOQuery1.Active:=true;

Form11.Show;

Form1.Visible:=false;

end;

end.

Программный код для Формы № 2

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

unit Unit2;

interface

uses

SysUtils, Classes, DB, ADODB;

type

TDataModule2 = class(TDataModule)

TBrak: TADOTable;

Brak: TDataSource;

TDetali: TADOTable;

Detali: TDataSource;

TZayavki: TADOTable;

Zayavki: TDataSource;

TPostav: TADOTable;

Postav: TDataSource;

TZacazi: TADOTable;

Zacazi: TDataSource;

TPokup: TADOTable;

Pokup: TDataSource;

TProd: TADOTable;

Prod: TDataSource;

TSklad: TADOTable;

Sklad: TDataSource;

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

Zapros1: TDataSource;

ADOQuery2: TADOQuery;

Zapros2: TDataSource;

ADOQuery3: TADOQuery;

Zapros3: TDataSource;

ADOQuery4: TADOQuery;

Zapros4: TDataSource;

private

{ Private declarations }

public

{ Public declarations }

end;

var

DataModule2: TDataModule2;

implementation

{$R *.dfm}

end.

Программный код для Формы № 3

Форма таблицы "Склад".

unit Unit3;

interface

uses

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

Dialogs, unit2, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, ComObj;

type

TFormSklad = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Button1: TButton;

procedure Button1Click(Sender: TObject);

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

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormSklad: TFormSklad;

implementation

uses Unit1;

{$R *.dfm}

procedure TFormSklad.Button1Click(Sender: TObject);

begin

FormSklad.Close; // Закрыть форму "Склад"

Form1.Visible:=true; // Показать Главную форму

end;

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

begin

Form1.Visible:=true;

end; end.



Программный код для формы № 11

Форма для запроса "Информация о деталях".

unit Unit11;

interface

uses

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

Dialogs, unit2, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, ComObj;

type

TForm11 = class(TForm)

DBGrid1: TDBGrid;

Button1: TButton;

Button2: TButton;

procedure Button1Click(Sender: TObject);

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

procedure FormActivate(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form11: TForm11;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm11.Button1Click(Sender: TObject);

begin

Form11.Close; // Закрыть запрос "Информация о деталях"

Form1.Visible:=true;

end;

procedure TForm11.Button2Click(Sender: TObject); // Процедура выполнения отчета

var

XLApp,Sheet,Column:Variant;

index,i:integer;

begin

XLApp:=CreateOleObject('Excel.Application');

XLApp.Visible:=true;

XLApp.Workbooks.Add(-4167);

XLApp.Workbooks[1].WorkSheets[1].Name:='Отчет';

Column:=XLApp.Workbooks[1].WorkSheets['Отчет'].Columns;

Column.Columns[1].ColumnWidth:=20;

Column.Columns[2].ColumnWidth:=20;

Column.Columns[3].ColumnWidth:=20;

Column.Columns[4].ColumnWidth:=20;

Column:=XLApp.Workbooks[1].WorkSheets['Отчет'].Rows;

Column.Rows[1].Font.Bold:=true;

Column.Rows[1].Font.Color:=clBlue;

Column.Rows[1].Font.Size:=14;

Sheet:=XLApp.Workbooks[1].Worksheets['Отчет'];

Sheet.Cells[1,2]:='Информация о деталях';

Sheet.Cells[2,1]:='Поставщик';

Sheet.Cells[2,2]:='№ поставщика';

Sheet.Cells[2,3]:='Количество';

Sheet.Cells[2,4]:='Стоимость';

Sheet.Cells[2,5]:='Название';

index:=3;

DataModule2.ADOQuery1.First;

for i := 0 to DataModule2.ADOQuery1.RecordCount-1 do

begin

Sheet.Cells[index,1]:=DataModule2.ADOQuery1.Fields.Fields[0].AsString;

Sheet.Cells[index,2]:=DataModule2.ADOQuery1.Fields.Fields[1].AsString;

Sheet.Cells[index,3]:=DataModule2.ADOQuery1.Fields.Fields[2].AsString;

Sheet.Cells[index,4]:=DataModule2.ADOQuery1.Fields.Fields[3].AsString;

Sheet.Cells[index,5]:=DataModule2.ADOQuery1.Fields.Fields[4].AsString;

Inc(index);

DataModule2.ADOQuery1.Next;

end;

end;

procedure TForm11.FormActivate(Sender: TObject);

begin

DataModule2.ADOQuery1.Active:=true;

DBGrid1.Columns[0].Width:=100;

DBGrid1.Columns[4].Width:=100;

end;

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

begin

Form1.Visible:=true;

end;

end.

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