82942 (589721), страница 5

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 5)

При выборе кнопки «Показать все записи» из вкладки «Сувениры/полиграфия», откроется форма «Заказ сувенир/полиграфия» (рис.3.5.8) с информацией о всех сделанных заказах. Форма позволяет просматривать весь список, редактировать, удалять и добавлять записи. Для поиска нужной записи можно воспользоваться строкой поиска, а для сортировки списка по типу продукции необходимо указать тип: сувенир или полиграфия. При нажатии кнопки «Годовой отчет» появится запрос с просьбой ввести год для формирования отчета «Сувенир/полиграфия» (рис.3.6.3). Закрыть форму «Заказ сувенир/полиграфия» и вернуться к главной форме можно, нажав кнопку выхода.

При выборе кнопки «Данные о сотрудниках» из вкладки «Сотрудник» , откроется форма «Сотрудник» (рис.3.5.9) с информацией о сотруднике компании, о заказанных для него визитках и о клиентах, за которыми он закреплен. Чтобы получить эту информацию, необходимо указать фамилию сотрудника. Эта форма позволяет редактировать, удалять и добавлять записи. Чтобы получить полную информацию о потенциальном клиенте, необходимо дважды щелкнуть левой кнопкой мыши по названию организации. При этом откроется форма «Клиенты» (рис.3.5.10), позволяющая изменять, удалять и добавлять записи. Нажатие кнопки «Отправить Инф. письмо» позволяет открыть отчет «Информационное письмо» (рис.3.6.6), а нажатие кнопки «Приглашение» открывает отчет «Приглашение на выставку» (рис.3.6.5), но лишь в том случае, если в поле «пригласить на выставку» указано название выставки. Перед открытием выбранного отчета появляется запрос с предложением экспортировать письмо в Microsoft Word. Для этого в появившемся окне необходимо указать имя файла и нажать кнопку «Ok » , в противном случае - кнопку «Cancel » . Закрытие формы «Клиенты» осуществляется нажатием кнопки оконного меню «х».

Для составления, просмотра и печати макета визитных карточек, необходимо нажать кнопку «МАКЕТ(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

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

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

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

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

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

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

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

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

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

Характеристики

Список файлов ВКР