Информационная система отдела маркетинга

Для составления, просмотра и печати макета визитных карточек, необходимо нажать кнопку «МАКЕТ(RUS)» или «МАКЕТ(ENG)». При нажатии кнопки «МАКЕТ(RUS)» открывается отчет «RUSВизитка» (рис.3.6.4 (а)) с данными на русском языке, а при нажатии кнопки «МАКЕТ(ENG)» открывается отчет «ENGВизитка» (рис.3.6.4 (б)) на английском языке. Для просмотра, изменения, удаления или добавления контактной информации изготовителя визиток, необходимо дважды щелкнуть левой кнопкой мыши по названию компании. После чего откроется форма «Изготовитель» (рис.3.5.11), выйти из которой можно нажатием кнопки оконного меню «х». Для завершения работы с формой «Сотрудник» и возвращения к главной форме, необходимо нажать кнопку выхода.

При нажатии кнопки «Годовой отчет» на одной из вкладок главной формы, появится запрос с просьбой ввести год для формирования нужного отчета.

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

ЗАКЛЮЧЕНИЕ

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

Информационная система разработана с помощью СУБД Microsoft Access 2000 в среде Microsoft Windows XP. В процессе проектирования системы была построена диаграмма бизнес-процессов, разработана структура базы данных (созданы ER-диаграмма и модель базы данных), разработан пользовательский интерфейс, написано руководство пользователя. Вся система, включая таблицы данных, экранные формы, запросы и отчеты, представлена в файле Market.mdb.

Диаграмма бизнес-процессов представляет собой описание предметной области. Для ее построения использовался метод построения моделей бизнес-процессов в форме диаграмм потоков данных (BMP - Business Process Modeler), позволяющий моделировать функционирование отдела маркетинга.

Для моделирования данных использовался метод «сущность-связь», основой которого является 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

End Sub

Код кнопки «Выставки в Москве» для вкладки «Выставки»:

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

End Sub

Код кнопки «Годовой отчет» для вкладки «Выставки»:

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

End Sub

Код кнопки «Показать все записи» для вкладки «Сувениры/полиграфия»:

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

End Sub

Код кнопки «Годовой отчет» для вкладки «Сувениры/полиграфия»:

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

End Sub

Код кнопки «Выйти из программы»:

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

End Sub

2. Код обработчика событий элементов управления формы «Размещение рекламы»

Код кнопки «Годовой отчет»:

Private Sub Кнопка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

End If

Exit Sub

999: MsgBox "Введите правильно данные!"

End Sub

Код кнопки «Выход»:

Private Sub Кнопка17_Click()

On Error GoTo Err_Кнопка17_Click

DoCmd.Close

Exit_Кнопка17_Click:

Exit Sub

Err_Кнопка17_Click:

MsgBox Err.Description

Resume Exit_Кнопка17_Click

End Sub

3. Код обработчика событий элементов управления формы «ПравкаРеклама»

Код кнопки «Сохранить»:

Private Sub Кнопка2_Click()

On Error GoTo Err_Кнопка2_Click

DoCmd.Close

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "Реклама"

DoCmd.Close , , acForm

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка2_Click:

Exit Sub

Err_Кнопка2_Click:

MsgBox Err.Description

Resume Exit_Кнопка2_Click

End Sub

Код кнопки «Добавить запись»:

Private Sub Кнопка3_Click()

On Error GoTo Err_Кнопка3_Click

DoCmd.GoToRecord , , acNewRec

Exit_Кнопка3_Click:

Exit Sub

Err_Кнопка3_Click:

MsgBox Err.Description

Resume Exit_Кнопка3_Click

End Sub

Код кнопки «Удалить запись»:

Private Sub Кнопка69_Click()

DoCmd.RunCommand acCmdDeleteRecord

DoCmd.Close

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "Реклама"

DoCmd.Close , , acForm

DoCmd.OpenForm stDocName, , , stLinkCriteria

End Sub

4. Код обработчика событий элементов управления формы «Участие в выставках»

Код кнопки «Годовой отчет»:

Private Sub Кнопка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

End If

Exit Sub

999: MsgBox "Введите правильно данные!"

End Sub

Код поля «Участие»:

Private Sub Участие_AfterUpdate()

Me.СписокВыставок.Requery

End Sub

Код кнопки «Выход»:

Private Sub Кнопка17_Click()

On Error GoTo Err_Кнопка17_Click

DoCmd.Close

Exit_Кнопка17_Click:

Exit Sub

Err_Кнопка17_Click:

MsgBox Err.Description

Resume Exit_Кнопка17_Click

End Sub

5. Код обработчика событий элементов управления формы «Выставки»

Код кнопки «Сохранить»:

Private Sub Кнопка2_Click()

On Error GoTo Err_Кнопка2_Click

DoCmd.Close

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "Участие"

DoCmd.Close , , acForm

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка2_Click:

Exit Sub

Err_Кнопка2_Click:

MsgBox Err.Description

Resume Exit_Кнопка2_Click

End Sub

Код кнопки «Добавить запись»:

Private Sub Кнопка17_Click()

On Error GoTo Err_Кнопка17_Click

DoCmd.GoToRecord , , acNewRec

Exit_Кнопка17_Click:

Exit Sub

Err_Кнопка17_Click:

MsgBox Err.Description

Resume Exit_Кнопка17_Click

End Sub

Код кнопки «Удалить запись»:

Private Sub Кнопка69_Click()

DoCmd.RunCommand acCmdDeleteRecord

DoCmd.Close

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "Участие"

DoCmd.Close , , acForm

DoCmd.OpenForm stDocName, , , stLinkCriteria

End Sub

Код кнопки со стрелкой для поля «Место проведения»:

Private Sub Кнопка49_Click()

On Error GoTo Err_Кнопка49_Click

Dim stDocName As String

Dim stLinkCriteria As String

If IsNull(Me![КодМесто]) Then

MsgBox "Укажите место проведения выставки!"

Else

stDocName = "Место"

stLinkCriteria = "[КодМесто]=" & Me![КодМесто]

DoCmd.OpenForm stDocName, , , stLinkCriteria

End If

Exit_Кнопка49_Click:

Exit Sub

Err_Кнопка49_Click:

MsgBox Err.Description

Resume Exit_Кнопка49_Click

End Sub

Код кнопки со стрелкой для поля «Организатор»:

Private Sub Кнопка57_Click()

On Error GoTo Err_Кнопка57_Click

Dim stDocName As String

Dim stLinkCriteria As String

If IsNull(Me![КодОрганизатор]) Then

MsgBox "Укажите организатора выставки!"

Else

stDocName = "Организатор"

stLinkCriteria = "[КодОрганизатор]=" & Me![КодОрганизатор]

DoCmd.OpenForm stDocName, , , stLinkCriteria

End If

Exit_Кнопка57_Click:

Exit Sub

Err_Кнопка57_Click:

MsgBox Err.Description

Resume Exit_Кнопка57_Click

End Sub

6. Код обработчика событий элементов управления формы «Место»

Код кнопки «Удалить»:

Private Sub Кнопка15_Click()

On Error GoTo Err_Кнопка15_Click

DoCmd.RunCommand acCmdDeleteRecord

DoCmd.Close

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "Выставки"

DoCmd.Close , , acForm

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка15_Click:

Exit Sub

Err_Кнопка15_Click:

MsgBox Err.Description

Resume Exit_Кнопка15_Click

End Sub

7. Код обработчика событий элементов управления формы «Организатор»

Код кнопки «Удалить»:

Private Sub Кнопка12_Click()

On Error GoTo Err_Кнопка12_Click

DoCmd.RunCommand acCmdDeleteRecord

DoCmd.Close

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "Выставки"

DoCmd.Close , , acForm

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка12_Click:

Exit Sub

Err_Кнопка12_Click:

MsgBox Err.Description

Resume Exit_Кнопка12_Click

End Sub

8. Код обработчика событий элементов управления формы «Заказ сувенир/полиграфия»

Код кнопки «Годовой отчет»:

Private Sub Кнопка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 Поле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 "([Name] Like '" & Me.Поле7.Text & "*')=True"

If rst.NoMatch = False Then

frm.Bookmark = rst.Bookmark

End If

Exit Sub

999:MsgBox "Введите правильно данные!"

End Sub

Код поля «Тип»:

Private Sub Тип_AfterUpdate()

Me.Заказ.Requery

End Sub

Код кнопки «Выход»:

Private Sub Кнопка17_Click()

On Error GoTo Err_Кнопка17_Click

DoCmd.Close

Exit_Кнопка17_Click:

Exit Sub

Err_Кнопка17_Click:

MsgBox Err.Description

Resume Exit_Кнопка17_Click

End Sub

9. Код обработчика событий элементов управления формы «Сотрудник»

Код кнопки «МАКЕТ (RUS)»:

Private Sub Кнопка40_Click()

On Error GoTo Err_Кнопка40_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "RUSВизитка"

DoCmd.OpenReport stDocName, acViewPreview

Exit_Кнопка40_Click:

Exit Sub

Err_Кнопка40_Click:

MsgBox Err.Description

Resume Exit_Кнопка40_Click

End Sub

Код кнопки «МАКЕТ (ENG)»:

Private Sub Кнопка47_Click()

On Error GoTo Err_Кнопка47_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "ENGВизитка"

DoCmd.OpenReport stDocName, acViewPreview

Exit_Кнопка47_Click:

Exit Sub

Err_Кнопка47_Click:

MsgBox Err.Description

Resume Exit_Кнопка47_Click

End Sub

Код поля «ФИО»:

Private Sub ФИО_AfterUpdate()

Me.Рассылка.Requery

Me.Визитки.Requery

Me.Sotrudnik.Requery

End Sub

Private Sub ФИО_DblClick(Cancel As Integer)

On Error GoTo Err_Кнопка5_Click

Dim stDocName As String

Dim stLinkCriteria As String

If IsNull(Me![ФИО]) Then

MsgBox "Укажите сотрудника!"

Else

stDocName = "Sotrudnik"

stLinkCriteria = "[КодСотрудник]=" & Me![КодСотрудник]

DoCmd.OpenForm stDocName, , , stLinkCriteria

End If

Exit_Кнопка5_Click:

Exit Sub

Err_Кнопка5_Click:

MsgBox Err.Description

Resume Exit_Кнопка5_Click

End Sub

Код кнопки «Удалить из списка»:

Private Sub Кнопка16_Click()

DoCmd.RunCommand acCmdDeleteRecord

DoCmd.Close

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "Сотрудник"

DoCmd.Close , , acForm

DoCmd.OpenForm stDocName, , , stLinkCriteria

End Sub

Код поля «Организация»:

Private Sub Организация_GotFocus()

If IsNull(Me![КодСотрудник]) Then

MsgBox "Укажите сотрудника!"

Else

End If

End Sub

Private Sub Организация_DblClick(Cancel As Integer)

On Error GoTo Err_Организация_Click

Dim stDocName As String

Dim stLinkCriteria As String

If IsNull(Me![КодСотрудник]) Then

MsgBox "Укажите сотрудника!"

Else

stDocName = "СписокКлиентов"

stLinkCriteria = "[КодСотрудник]=" & Me![КодСотрудник]

DoCmd.OpenForm stDocName, , , stLinkCriteria

End If

Exit_Организация_Click:

Exit Sub

Err_Организация_Click:

MsgBox Err.Description

Resume Exit_Организация_Click

End Sub

Код поля «Изготовитель»:

Private Sub КодИзготов_GotFocus()

If IsNull(Me![КодСотрудник]) Then

MsgBox "Укажите сотрудника!"

Else

End If

End Sub

Private Sub КодИзготов_DblClick(Cancel As Integer)

On Error GoTo Err_КодИзготов_Click

Dim stDocName As String

Dim stLinkCriteria As String

If IsNull(Me![КодСотрудник]) Then

MsgBox "Укажите сотрудника!"

Else

stDocName = "Изготовитель"

stLinkCriteria = "[КодИзготов]=" & Me![КодИзготов]

DoCmd.OpenForm stDocName, , , stLinkCriteria

Else

Exit_КодИзготов_Click:

Exit Sub

Err_КодИзготов_Click:

MsgBox Err.Description

Resume Exit_КодИзготов_Click

End Sub

Код кнопки «Выход»:

Private Sub Кнопка17_Click()

On Error GoTo Err_Кнопка17_Click

DoCmd.Close

Exit_Кнопка17_Click:

Exit Sub

Err_Кнопка17_Click:

MsgBox Err.Description

Resume Exit_Кнопка17_Click

End Sub

10. Код обработчика событий элементов управления формы «Клиенты»

Код кнопки «Отправить Инф. письмо»:

Private Sub Кнопка19_Click()

On Error GoTo Err_Кнопка19_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "ИнфПисьмо"

DoCmd.OpenReport stDocName, acViewPreview

On Error Resume Next

Dim fn As String

fn = InputBox("Ведите название файла", "Экспорт письма в MS Word")

If fn <> "" Then

fn = fn + ".rtf"

DoCmd.OutputTo acOutputReport, "ИнфПисьмо", acFormatRTF, fn, False

End If

Exit_Кнопка19_Click:

Exit Sub

Err_Кнопка19_Click:

MsgBox Err.Description

Resume Exit_Кнопка19_Click

End Sub

Код кнопки «Приглашение»:

Private Sub Кнопка20_Click()

On Error GoTo Err_Кнопка20_Click

Dim stDocName As String

Dim stLinkCriteria As String

If IsNull(Me![Код№]) Then

MsgBox "Укажите выставку!"

Else

stDocName = "Приглашение"

DoCmd.OpenReport stDocName, acViewPreview

On Error Resume Next

Dim fn As String

fn = InputBox("Ведите название файла", "Экспорт пригашения в MS Word")

If fn <> "" Then

fn = fn + ".rtf"

DoCmd.OutputTo acOutputReport, "Приглашение", acFormatRTF, fn, False

End If

End If

Exit_Кнопка20_Click:

Exit Sub

Err_Кнопка20_Click:

MsgBox Err.Description

Resume Exit_Кнопка20_Click

End Sub

11. Код обработчика событий элементов управления формы «Изготовитель»

Код кнопки «Удалить»:

Private Sub Кнопка12_Click()

On Error GoTo Err_Кнопка12_Click

DoCmd.RunCommand acCmdDeleteRecord

DoCmd.Close

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "Сотрудник"

DoCmd.Close , , acForm

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка12_Click:

Exit Sub

Err_Кнопка12_Click:

MsgBox Err.Description

Resume Exit_Кнопка12_Click

End Sub