Очень доброжелательный и компетентный автор. Всегда был на связи, все разъяснил, предоставил несколько вариантов программы. Рекомендую.
Информация о работе
Подробнее о работе
КУРСОВАЯ РАБОТА На тему: «Отдел маркетинга»
- 20 страниц
- 2015 год
- 149 просмотров
- 0 покупок
Гарантия сервиса Автор24
Уникальность не ниже 50%
Фрагменты работ
Заключение
На базе таблиц Microsoft Office Access и языка программирования Delphi было разработано приложение, которое позволяет работать с документами отдела маркетинга. Данный проект содержит базы данных заказчиков, товаров. Редактирование данных в этих таблицах осуществляется с помощью создания пользовательских форм.
Интерфейс и работа программы реализованы наиболее удобным для пользователя способом.
Для удобства пользователя реализованы поисковая система, сортировка, фильтрация. Также включена справочная система и имеется главное меню.
Таким образом, данный проект, можно сказать в состоянии удовлетворить запросы отдела маркетинга, обладающей достаточно большой базой заказчиков и товаров.
1. Анализ и краткое описание предметной области 3
1.1. Задание на курсовую работу 3
1.2. Анализ описание предметной области 3
2. Проектирование данных 5
2.1. Характеристика входной и выходной информации 5
2.2. Создание и структура таблиц базы данных 6
2.3. Организация доступа к таблицам базы данных 7
3. Проектирование алгоритмов обработки информации 8
3.1. Добавление записи 8
3.2. Изменение полей выбранной записи 10
3.3. Удаление записей 10
3.4. Поиск данных 11
3.5. Сортировка данных 12
3.6. Фильтрация данных 13
3.7. Создание ведомостей 14
3.8. Расчет данных 14
4. Проектирование интерфейса 16
Заключение 19
Список литературы 20
2.2. Создание и структура таблиц базы данных
Одним из главных моментом при создании базы данных является распределение информации между полями записи. После того, как определена структура записей базы данных, можно приступить непосредственно к созданию таблицы. Для каждого поля записи необходимо задать имя, тип и, если нужно, размер поля, что представлено в Таблице 2.1 и в Таблице 2.2.
Таблица 2.1
Заказы
Имя поля
Ключевое поле
Обязатель-ное поле
Тип данных
Размер
Подпись поля
Фамилия
-
+
Текстовый
25
Фамилия заказчика
Номер_заказа
+
+
Числовой
10
Номер заказа
КодИзделия
-
-
Числовой
10
Код изделия
Количество
-
-
Числовой
10
Количество
Дата_заказа
-
-
Дата/время
10
Дата заказа
Исполнение
-
-
Текстовый
12
Исполнение
Таблица 2.2
Каталог изделий
Имя поля
Ключевое поле
Обязательное поле
Тип данных
Размер
Подпись поля
Код
+
+
Счетчик
3
Код изделия
Наименование
-
-
Текстовой
255
Наименование изделия
Цена_изделия
-
-
Числовой
10
Цена изделия(в руб.
...
3.1. Добавление записи
Для таблицы заказы для добавления, изменения данных создана специальная форма – «Редактирование». При нажатии на кнопку «Добавить» - выходит данная форма, которое обеспечивает метод Append. В поля вводятся необходимые данные. Данные в поле Исполнение выбираются из элемента Combobox. Для ввода наименования изделия используется DBLookupCombobox, что позволяет выбирать данные из таблицы «Каталог изделий». При выборе наименования изделия в таблицу «Заказы» заносится тот код изделия, который соответствует наименованию.
Считывание информации и ввод этой информации в таблицу Заказы обеспечивает кнопка «Сохранить», код которой следующий:
procedure TfEdit.Button1Click(Sender: TObject);
var
y: integer;
begin
if (dbedit1.Text<>'') and (dbedit2.Text<>'') and (dbedit3.Text<>'') and (dbedit4.Text<>'') and (dblookupcombobox1.Text<>'') and (dbcombobox1.Text<>'') then
begin
y:=strtoint(dbedit2.Text);
if y=fDM.ADOTable1.FieldByName('Номер_заказа').
...
3.4. Поиск данных
Поиск производится по полю «Фамилия» в ведомости выполненных заказов. Для этого необходимо ввести фамилию заказчика. Программа поиска устанавливает указатель таблицы на запись, соответствующую значению.
Также при нажатии кнопки «Поиск» осуществляется вывод на экран информационного сообщения, содержащее фамилию заказчика и наименование его заказа. Информационное окно поиска отображено на рисунке 3.3.
Код кнопки «Поиск» следующий:
procedure TfVed1.Button3Click(Sender: TObject);
Var
X: Variant;
S : String;
begin
X:=fDM.ADOQuery1.Lookup('Фамилия',Edit2.Text,'Фамилия;Наименование');
if VarType(X) = varNull then
ShowMessage('Заказчик с такой фамилией не найден!')
else if VarType(X) = varEmpty then ShowMessage('Запись не найдена!')
else if VarIsArray(X) then
begin
S:= 'Заказчик ' + X[0] + #13 +'Наименование изделия:' + #13+ X[1];
ShowMessage(s);
end;
Edit2.Clear;
end;
Рисунок 3.3 – Информационное окно Поиска данных
3.5.
...
3.7. Создание ведомостей
В соответствии с индивидуальным заданием были вычислены результирующие показатели работы ИАС. Для выборки из базы данных записей, удовлетворяющих некоторому запросу, был использован компонент Query, значок которого находится на вкладке Data Access. Для того, чтобы во время разработки програмы задать какая информация будет выделена из базы данных в результате выполнения запроса, в свойство SQL записывается текст запроса и присвоением значения True свойству Active активизировается выполнение запроса. Для создания ведомостей использовался фильтр по столбцу «Исполнение». При вывода ведомости невыполненных заказов фильтру присваивалось значение «не исполнено».
procedure TfMain.N6Click(Sender: TObject);
begin
fVed2.Show;
fDM.ADOTable1.Filter:='Исполнение = '+'''не исполнено''';
fDM.ADOTable1.Filtered:=True;
fMain.Visible:=false;
end;
Аналогично выводились данные ведомости выполненных заказов.
...
4. Проектирование интерфейса
При запуске программы открывается главная форма, которая отображена на рисунке 4.1, на ней расположена таблица «Заказы», а также различные компоненты, осуществляющие работу с таблицей. При невозможности выполнения каких – либо действий на определенном этапе работы программы, соответствующие компоненты находятся в недоступном состоянии. Переход к другим формам осуществляется через компонент MainMenu, вкладки Standart палитры компонентов. Также на MainMenu расположена сортировка данных в таблице.
Рисунок 4.1 – Главная форма
Форма «Ведомость невыполненных заказов», которая показана на рисунке 4.2 включает в себя кнопку «Заказ исполнен», которая позволяет автоматически изменять значение поля «не исполнено» на значение «исполнено» в поле «Исполнение».
Рисунок 4.2 – Ведомость невыполненных заказов
Код кнопки:
procedure TfVed2.Button2Click(Sender: TObject);
begin
fDM.ADOTable1.Edit;
fDM.ADOTable1.FieldByName('Исполнение').AsString:='исполнено';
fDM.ADOTable1.
...
1. Макаров Н.В., Матвеев Л.А. «Информатика» – СПб.: Диалектика 1999. 904 стр.
2. Архангельский А. Я., Delphi 2007,-М.:Бином 2006. 100 стр.
3. Баженова И. Ю. Delphi 6, - М.: Кудиц – образ, 2002. 524 стр.
4. Климова Л.М., Delphi 7,-М.:Кудиц-образ,2005. 378 стр.
5. Культин Н. С. Delphi 7. Программирование на Object Pascal – СПб.: БХВ - Петербург , 2001. 904 стр.
6. Марко Кэнту, Delphi 7 для профессионалов,-СПб.-Питер, 2005. 129 стр.
7. Попов В.А., Самоучитель Delphi,-СПб.-Питер, 2002. 476 стр.
8. Сухарев М.В., Основы Delphi. Профессиональный подход,-М.-Бином, 2003. 843 стр.
9. Клуб программистов – URL:
http://www.programmersforum.ru/. Дата обращения 22.05.13.
10. Хомоненко А. Д. и др. Delphi 7 / Под общ. ред. А. Д. Хомоненко. – СПб.: БХВ – Петербург, 2003. 583 стр.
Форма заказа новой работы
Не подошла эта работа?
Закажи новую работу, сделанную по твоим требованиям
