При выборе кнопки «Выставки в Москве» из вкладки «Выставки», откроется форма «Участие в выставках» (рис.3.5.4) с краткой информацией о выставках. В форме предусмотрена возможность поиска нужной записи по названию выставки и сортировки списка по типу участия. Для сортировки необходимо указать тип участия: очное, заочное, посещение, не участвуем.
При нажатии кнопки «Годовой отчет» появится запрос с просьбой ввести год для формирования отчета «Выставки» (рис.3.6.2). Для редактирования, удаления или добавления записи, нужно щелкнуть левой кнопкой мыши по номеру записи. После чего откроется форма «Выставки» (рис.3.5.5) с подробной информацией о выставке. Чтобы просмотреть контактную информацию об организаторе выставки или о месте ее проведения, нужно нажать кнопку со стрелкой, при этом откроется одна из выбранных форм: «Место» (рис.3.5.6) или «Организатор» (рис.3.5.7.). В формах предусмотрена возможность редактирования, добавления и удаления записей (кнопка удаления). Для сохранения записи в форме «Выставки» и закрытия формы, необходимо нажать кнопку «Сохранить». Для добавления новой записи необходимо нажать кнопку «Добавить запись», а для удаления – кнопку «Удалить запись». Закрыть форму «Участие в выставках» и вернуться к главной форме можно, нажав кнопку выхода.
При выборе кнопки «Показать все записи» из вкладки «Сувениры/полиграфия», откроется форма «Заказ сувенир/полиграфия» (рис.3.5.8) с информацией о всех сделанных заказах. Форма позволяет просматривать весь список, редактировать, удалять и добавлять записи. Для поиска нужной записи можно воспользоваться строкой поиска, а для сортировки списка по типу продукции необходимо указать тип: сувенир или полиграфия. При нажатии кнопки «Годовой отчет» появится запрос с просьбой ввести год для формирования отчета «Сувенир/полиграфия» (рис.3.6.3). Закрыть форму «Заказ сувенир/полиграфия» и вернуться к главной форме можно, нажав кнопку выхода.
При выборе кнопки «Данные о сотрудниках» из вкладки «Сотрудник», откроется форма «Сотрудник» (рис.3.5.9) с информацией о сотруднике компании, о заказанных для него визитках и о клиентах, за которыми он закреплен. Чтобы получить эту информацию, необходимо указать фамилию сотрудника. Эта форма позволяет редактировать, удалять и добавлять записи. Чтобы получить полную информацию о потенциальном клиенте, необходимо дважды щелкнуть левой кнопкой мыши по названию организации. При этом откроется форма «Клиенты» (рис.3.5.10), позволяющая изменять, удалять и добавлять записи. Нажатие кнопки «Отправить Инф. письмо» позволяет открыть отчет «Информационное письмо» (рис.3.6.6), а нажатие кнопки «Приглашение» открывает отчет «Приглашение на выставку» (рис.3.6.5), но лишь в том случае, если в поле «пригласить на выставку» указано название выставки. Перед открытием выбранного отчета появляется запрос с предложением экспортировать письмо в MicrosoftWord. Для этого в появившемся окне необходимо указать имя файла и нажать кнопку «Ok», в противном случае - кнопку «Cancel». Закрытие формы «Клиенты» осуществляется нажатием кнопки оконного меню «х».
Для составления, просмотра и печати макета визитных карточек, необходимо нажать кнопку «МАКЕТ(RUS)» или «МАКЕТ(ENG)». При нажатии кнопки «МАКЕТ(RUS)» открывается отчет «RUSВизитка» (рис.3.6.4 (а)) с данными на русском языке, а при нажатии кнопки «МАКЕТ(ENG)» открывается отчет «ENGВизитка» (рис.3.6.4 (б)) на английском языке. Для просмотра, изменения, удаления или добавления контактной информации изготовителя визиток, необходимо дважды щелкнуть левой кнопкой мыши по названию компании. После чего откроется форма «Изготовитель» (рис.3.5.11), выйти из которой можно нажатием кнопки оконного меню «х». Для завершения работы с формой «Сотрудник» и возвращения к главной форме, необходимо нажать кнопку выхода.
При нажатии кнопки «Годовой отчет» на одной из вкладок главной формы, появится запрос с просьбой ввести год для формирования нужного отчета.
Для завершения работы с информационной системой, необходимо нажать кнопку «Выйти из программы», которая расположена в нижнем правом углу формы «Обложка», после чего произойдет закрытие окна этой формы и выход из системы.
ЗАКЛЮЧЕНИЕ
В процессе работы над дипломным проектом была разработана информационная система отдела маркетинга. Она расположена на файл-сервере и предназначена для автоматизации процесса обработки данных в отделе маркетинга, а именно: снижения времени, затрачиваемого на обработку маркетинговой информации, снижения трудоемкости, повышения достоверности данных.
Информационная система разработана с помощью СУБД MicrosoftAccess 2000 в среде MicrosoftWindowsXP. В процессе проектирования системы была построена диаграмма бизнес-процессов, разработана структура базы данных (созданы ER-диаграмма и модель базы данных), разработан пользовательский интерфейс, написано руководство пользователя. Вся система, включая таблицы данных, экранные формы, запросы и отчеты, представлена в файле Market.mdb.
Диаграмма бизнес-процессов представляет собой описание предметной области. Для ее построения использовался метод построения моделей бизнес-процессов в форме диаграмм потоков данных (BMP – BusinessProcessModeler), позволяющий моделировать функционирование отдела маркетинга.
Для моделирования данных использовался метод «сущность-связь», основой которого является ER-модель (Entity–Relationship, ER).
В процессе отладки, система наполнялась тестовыми данными, отвечающими реальным характеристикам маркетинговой информации. Итоговое испытание системы показало, что она отвечает поставленным требованиям и готова к практическому применению.
ПРИЛОЖЕНИЕ
КОД ОБРАБОТЧИКА СОБЫТИЙ ЭЛЕМЕНТОВ УПРАВЛЕНИЯ
1. Код обработчика событий элементов управления формы «Обложка»
Код кнопки «Показать все записи» для вкладки «Реклама»:
Private Sub Кнопка5_Click()
On Error GoTo Err_ Кнопка5_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Реклама"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_ Кнопка5_Click:
Exit Sub
Err_ Кнопка5_Click:
MsgBox Err.Description
Resume Exit_ Кнопка5_Click
End Sub
Код кнопки «Годовой отчет» для вкладки «Реклама»:
Private Sub Кнопка3_Click()
On Error GoTo Err_ Кнопка3_Click
Dim stDocName As String
stDocName = "Рекл"
DoCmd.OpenReport stDocName, acPreview
Exit_ Кнопка3 _Click:
Exit Sub
Err_ Кнопка3 _Click:
MsgBox Err.Description
Resume Exit_ Кнопка3 _Click
EndSub
Код кнопки «Выставки в Москве» для вкладки «Выставки»:
Private Sub Кнопка26_Click()
On Error GoTo Err_ Кнопка26_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Участие"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_ Кнопка26_Click:
Exit Sub
Err_ Кнопка26_Click:
MsgBox Err.Description
Resume Exit_ Кнопка26_Click
EndSub
Код кнопки «Годовой отчет» для вкладки «Выставки»:
Private Sub Кнопка52_Click()
On Error GoTo Err_ Кнопка52_Click
Dim stDocName As String
stDocName = "Выставка"
DoCmd.OpenReport stDocName, acPreview
Exit_ Кнопка52_Click:
Exit Sub
Err_ Кнопка52_Click:
MsgBox Err.Description
Resume Exit_ Кнопка52_Click
EndSub
Код кнопки «Показать все записи» для вкладки «Сувениры/полиграфия»:
Private Sub Кнопка36_Click()
On Error GoTo Err_ Кнопка36_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Сувенир"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_ Кнопка36_Click:
Exit Sub
Err_ Кнопка36_Click:
MsgBox Err.Description
Resume Exit_Кнопка36_Click
EndSub
Код кнопки «Годовой отчет» для вкладки «Сувениры/полиграфия»:
Private Sub Кнопка54_Click()
On Error GoTo Err_ Кнопка54_Click
Dim stDocName As String
stDocName = "Сув"
DoCmd.OpenReport stDocName, acPreview
Exit_ Кнопка54_Click:
Exit Sub
Err_ Кнопка54_Click:
MsgBox Err.Description
Resume Exit_ Кнопка54_Click
End Sub
Код кнопки «Данные о сотрудниках» для вкладки «Сотрудник»:
Private Sub Кнопка43_Click()
On Error GoTo Err_ Кнопка43_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Сотрудник"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_ Кнопка43_Click:
Exit Sub
Err_ Кнопка43_Click:
MsgBox Err.Description
Resume Exit_ Кнопка43_Click
EndSub
Код кнопки «Выйти из программы»:
Private Sub Кнопка47_Click()
On Error GoTo Err_ Кнопка47_Click
DoCmd.Quit
Exit_ Кнопка47_Click:
Exit Sub
Err_ Кнопка47_Click:
MsgBox Err.Description
Resume Exit_ Кнопка47_Click
EndSub
2. Код обработчика событий элементов управления формы «Размещение рекламы»
Код кнопки «Годовой отчет»:
PrivateSub Кнопка11_Click()
On Error GoTo Err_Кнопка11_Click
Dim stDocName As String
stDocName = "Рекл"
DoCmd.OpenReport stDocName, acPreview
Exit_Кнопка11_Click:
Exit Sub
Err_Кнопка11_Click:
MsgBox Err.Description
Resume Exit_Кнопка11_Click
End Sub
Кодполя «№»:
Private Sub №_Click()
On Error GoTo Err_№_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "ПравкаРеклама"
stLinkCriteria = "[№]=" & Me![№]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_№_Click:
Exit Sub
Err_№_Click:
MsgBox Err.Description
Resume Exit_№_Click
End Sub
Код поля «Поиск»:
Private Sub Поле7_Change()
Dim rst As DAO.Recordset, frm As Form, s As String
On Error GoTo 999
Set frm = Me.ВыборРеклама.Form
Set rst = frm.RecordsetClone
rst.FindFirst "([Название] Like '" & Me.Поле7.Text & "*')=True"
If rst.NoMatch = False Then
frm.Bookmark = rst.Bookmark
EndIf
ExitSub
999: MsgBox "Введите правильно данные!"
End Sub
Код кнопки «Выход»:
Private Sub Кнопка17_Click()
On Error GoTo Err_Кнопка17_Click
DoCmd.Close
Exit_Кнопка17_Click:
Exit Sub
Err_Кнопка17_Click: