Автор работы: Пользователь скрыл имя, 31 Мая 2012 в 15:45, дипломная работа
Цель дипломной работы – создание АРМ «Клиент- менеджер. Наружная реклама».
Для достижения поставленной цели были сформулированы и решены следующие задачи:
1. проведен информационный анализ существующих методик работы с клиентами и заказами;
2. разработан полнофункциональный интерфейс обеспечивающий:
а) ввод данных посредством клавиатуры;
б) предоставление данных пользователю;
в) формирование и вывод на принтер отчетов в виде договоров и бланков заказа;
г) построение графика зависимости заказ/дата;
3. создана окончательная версия программного средства «АРМ Клиент-менеджер. Наружная реклама»;
4. осуществлен ввода средства в эксплуатацию;
Объектом исследования является работа клиент- менеджеров с клиентами и заказами.
Предметом исследования является автоматизация работы клиент- менеджеров с клиентами и заказами.
В работе были использованы следующие методы работы:
- метод экспертных оценок;
- сбор данных о предметной области;
- информационное моделирование предметной области;
- метод объектно-ориентированного программирования (на базе C++ Builder);
Гипотеза исследования.
Разработка автоматизированного рабочего места клиент- менеджера позволит вести жесткий учет заказов и освободит рабочее время, уходящее на заполнение договоров, бланков заказа и построение графиков зависимости заказ/дата.
Новизна работы.
Разработка АРМ велась с учетом возможности подключения новых программных модулей, таких как «Видео реклама», «Полиграфия», «Аудио реклама» и многих других. Новые модули позволят использовать данное АРМ в других фирмах, занимающихся производством наружной рекламы, а также в фирмах, вид деятельности которых связан с производством других видов рекламы. В ходе проведенных работ, опрашивая конкурирующие фирмы, выяснилось, что ни одна из 12 опрошенных фирм не обладает подобным программным средством.
Практическая ценность.
Исходя из результатов опроса, а также личных просьб опрошенных необходимость в подобном АРМ в регионе высока.
На защиту выносятся:
1. Результаты анализа предметной области;
2. Структура реляционных баз данных системы;
3. Пользовательский интерфейс;
4. Результаты внедрения.
Апробация работы.
Материалы дипломной работы докладывались и обсуждались с руководителями и клиент-менеджерами фирмы «Мастерская Рекламы».
Реализация результатов работы.
Разработанное АРМ прошло тестирование и находится в эксплуатации с апреля 2002 года.
Структура и объем работы.
Дипломная работа состоит из введения, трех разделов, заключения, списка использованных источников, включающего 32 наименования, и 5 приложений. Общий объём работы – 147 страниц, основной текст занимает 68 страниц, приложения – 79 страниц.
В первом разделе проводится исследование предметной области, обоснование выбора программных средств для создания системы.
Второй раздел раскрывает вопросы внутренней организации программы и взаимодействия ее с пользователем.
В третьем разделе представлены методы и алгоритмы с помощью которых было реализовано АРМ «Клиент-менеджер. Наружная реклама».
В заключении сформулированы основные выводы и результаты, полученные в дипломной работе.
В приложениях представлены:
печатные формы;
описание структуры данных;
структура аппаратно – программного обеспечения фирмы «Мастерская Рекламы»;
материалы внедрения результатов дипломной работы;
документированный листинг глобального модуля АРМ;
иллюстративный материал.
ВВЕДЕНИЕ 6
1. АНАЛИЗ ПРЕДМЕТНОЙ ОБЛАСТИ 12
1.2. Описание предметной области 13
1.2.1. Бланк заказа и договор 13
1.3. Информационно-логическая модель системы 17
1.3.1. Подсистема «Бланк заказа» 17
1.3.2. Подсистема «Договор» 17
1.3.3. Система работы фирмы с заказом 18
1.4. План автоматизации работы клиент – менеджеров с заказами и клиентами 21
1.5. Статистический анализ деятельности фирмы 23
Выводы 28
2. АРХИТЕКТУРА АРМ «КЛИЕНТ-МЕНЕДЖЕР. НАРУЖНАЯ РЕКЛАМА» 30
2.1. Информационно-логическая модель и структура базы данных 30
2.2. Потоки данных 34
Выводы 38
3. ПРАКТИЧЕСКАЯ РЕАЛИЗАЦИЯ АРМ «КЛИЕНТ-МЕНЕДЖЕР. НАРУЖНАЯ РЕКЛАМА» 39
3.1. Выбор среды программирования 39
3.2. Модель ЖЦ ПС 45
3.3. Характеристика операционной системы и ее версии, с обоснование выбора и указание источников описывающих ОС 47
3.4. Разработка интерфейса ПС 47
3.5. Проектирование базы данных «Клиент-менеджер. Наружная реклама» 53
3.5.1. Физическая реализация инфологической модели системы 53
3.6. Подключаемые внешние модули 57
3.7. Тестирование и отладка 59
3.7.1. Методы тестирования 59
3.7.2. Результаты тестирования и отладки 62
Выводы. 63
ЗАКЛЮЧЕНИЕ 64
БИБЛИОГРАФИЧЕСКИЙ СПИСОК 66
ГЛОССАРИЙ 69
ПРИЛОЖЕНИЯ 72
П.1. Техническое задание 72
П.2. Инструкция пользователя. 78
П.3. Описание демонстрационного ролика 78
П.4. Документированный листинг программного средства «АРМ «Клиент-менеджер. Наружная реклама» 79
П.5. Материалы внедрения дипломной работы 146
Top = 152
Width = 31
Height = 13
Caption = 'Цвета'
end
object Label9: TLabel
Left = 8
Top = 264
Width = 58
Height = 13
Caption = 'Материалы'
end
object Label10: TLabel
Left = 216
Top = 104
Width = 59
Height = 13
Caption = 'Вид оплаты'
end
object RxSpeedButton1: TRxSpeedButton
Left = 392
Top = 168
Width = 25
Height = 25
Flat = True
Glyph.Data = {
DE010000424DDE0100000000000076
040000000000680100000000000000
800000800000008080008000000080
F0000FF000000FFFF00FF000000FF0
333333333333333333333333000033
0000333333F4444833333333333383
333383333F3333330000333333F444
33F4444833333333333383333F3333
3FFFFFF300003F4444444444444483
4444833833333333333333F300003F
00003F444444444444448338333333
88888333388888F30000333333F444
33F4444833333333333383333F3333
3F3333330000333333F44448333333
33333333333388888F333333000033
0000}
NumGlyphs = 2
OnClick = RxSpeedButton1Click
end
object RxSpeedButton2: TRxSpeedButton
Left = 392
Top = 272
Width = 25
Height = 25
Flat = True
Glyph.Data = {
DE010000424DDE0100000000000076
040000000000680100000000000000
800000800000008080008000000080
FF0000FF000000FFFF00FF000000FF
333333333333333333333333000033
0000333333F4444833333333333383
333383333F3333330000333333F444
33F4444833333333333383333F3333
3FFFFFF300003F4444444444444483
4444833833333333333333F300003F
00003F444444444444448338333333
88888333388888F30000333333F444
33F4444833333333333383333F3333
3F3333330000333333F44448333333
33333333333388888F333333000033
0000}
NumGlyphs = 2
OnClick = RxSpeedButton2Click
end
object RxSpeedButton3: TRxSpeedButton
Left = 392
Top = 200
Width = 25
Height = 25
Flat = True
Glyph.Data = {
DE010000424DDE0100000000000076
040000000000680100000000000000
800000800000008080008000000080
F0000FF000000FFFF00FF000000FF0
333333333333333333333333000033
000033333333333333333333333333
333333333333333300003333333333
333333333333333333333333333333
FFFFFFF300003F1111111111111183
1111833833333333333333F300003F
00003F111111111111118338333333
88888888888888F300003333333333
333333333333333333333333333333
333333330000333333333333333333
333333333333333333333333000033
0000}
NumGlyphs = 2
OnClick = RxSpeedButton3Click
end
object RxSpeedButton4: TRxSpeedButton
Left = 392
Top = 304
Width = 25
Height = 25
Flat = True
Glyph.Data = {
DE010000424DDE0100000000000076
040000000000680100000000000000
800000800000008080008000000080
FF0000FF000000FFFF00FF000000FF
333333333333333333333333000033
000033333333333333333333333333
333333333333333300003333333333
333333333333333333333333333333
FFFFFFF300003F1111111111111183
1111833833333333333333F300003F
00003F111111111111118338333333
88888888888888F300003333333333
333333333333333333333333333333
333333330000333333333333333333
333333333333333333333333000033
0000}
NumGlyphs = 2
OnClick = RxSpeedButton4Click
end
object DBLookupComboBox1: TDBLookupComboBox
Left = 8
Top = 24
Width = 409
Height = 21
DataField = 'NAIM'
DataSource = DataBase.DIzdelie
KeyField = 'ID'
ListField = 'IZDELIE'
ListSource = DataBase.DNIzdelie
TabOrder = 0
end
object DBEdit1: TDBEdit
Left = 8
Top = 72
Width = 97
Height = 21
DataField = 'VYSOTA'
DataSource = DataBase.DIzdelie
TabOrder = 1
end
object DBEdit2: TDBEdit
Left = 112
Top = 72
Width = 97
Height = 21
DataField = 'SHIRINA'
DataSource = DataBase.DIzdelie
TabOrder = 2
end
object DBEdit3: TDBEdit
Left = 216
Top = 72
Width = 97
Height = 21
DataField = 'TOLSHINA'
DataSource = DataBase.DIzdelie
TabOrder = 3
end
object DBEdit4: TDBEdit
Left = 320
Top = 72
Width = 97
Height = 21
DataField = 'DIAMETR'
DataSource = DataBase.DIzdelie
TabOrder = 4
end
object DBEdit5: TDBEdit
Left = 8
Top = 120
Width = 97
Height = 21
DataField = 'SUMMA'
DataSource = DataBase.DIzdelie
TabOrder = 5
end
object DBEdit6: TDBEdit
Left = 112
Top = 120
Width = 97
Height = 21
DataField = 'KOLVO'
DataSource = DataBase.DIzdelie
TabOrder = 6
end
object DBNavigator1: TDBNavigator
Left = 184
Top = 392
Width = 234
Height = 25
DataSource = DataBase.DIzdelie
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
Flat = True
TabOrder = 7
OnClick = DBNavigator1Click
end
object DBGrid1: TDBGrid
Left = 8
Top = 168
Width = 377
Height = 81
DataSource = DataBase.DRIzdCol
TabOrder = 8
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object DBEdit7: TDBEdit
Left = 256
Top = 0
Width = 121
Height = 21
DataField = 'ID'
DataSource = DataBase.DIzdelie
TabOrder = 9
Visible = False
end
object DBGrid2: TDBGrid
Left = 8
Top = 280
Width = 377
Height = 97
DataSource = DataBase.DRIzdMat
TabOrder = 10
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object DBLookupComboBox2: TDBLookupComboBox
Left = 216
Top = 120
Width = 201
Height = 21
DataField = 'OPLATA'
DataSource = DataBase.DIzdelie
KeyField = 'ID'
ListField = 'OPLATA'
ListSource = DataBase.DNOplata
TabOrder = 11
end
end
Форма «Наименование изделия»
object FNIzdelie: TFNIzdelie
Left = 391
Top = 211
BorderStyle = bsDialog
Caption = 'Наименование изделия'
ClientHeight = 94
ClientWidth = 330
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 8
Top = 8
Width = 76
Height = 13
Caption = 'Наименование'
end
object DBEdit1: TDBEdit
Left = 8
Top = 24
Width = 313
Height = 21
DataField = 'IZDELIE'
DataSource = DataBase.DNIzdelie
TabOrder = 0
end
object DBNavigator1: TDBNavigator
Left = 40
Top = 56
Width = 234
Height = 25
DataSource = DataBase.DNIzdelie
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
Flat = True
TabOrder = 1
end
end
Форма «Вид оплаты»
object FNOplata: TFNOplata
Left = 422
Top = 214
BorderStyle = bsDialog
Caption = 'Вид оплаты'
ClientHeight = 93
ClientWidth = 329
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 8
Top = 8
Width = 59
Height = 13
Caption = 'Вид оплаты'
end
object DBNavigator1: TDBNavigator
Left = 44
Top = 56
Width = 240
Height = 25
DataSource = DataBase.DNOplata
Flat = True
TabOrder = 0
end
object DBEdit1: TDBEdit
Left = 8
Top = 24
Width = 313
Height = 21
DataField = 'OPLATA'
DataSource = DataBase.DNOplata
TabOrder = 1
end
end
Форма «Добавить цвет»
object FAddColor: TFAddColor
Left = 453
Top = 270
BorderStyle = bsDialog
Caption = 'Добавить цвет'
ClientHeight = 189
ClientWidth = 321
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
PixelsPerInch = 96
TextHeight = 13
object RxSpeedButton1: TRxSpeedButton
Left = 8
Top = 156
Width = 97
Height = 25
Caption = 'Выбрать'
Flat = True
OnClick = RxSpeedButton1Click
end
object RxSpeedButton2: TRxSpeedButton
Left = 112
Top = 156
Width = 97
Height = 25
Caption = 'Отменить'
Flat = True
OnClick = RxSpeedButton2Click
end
object RxSpeedButton3: TRxSpeedButton
Left = 216
Top = 156
Width = 97
Height = 25
Caption = 'Добавить цвет'
Flat = True
OnClick = RxSpeedButton3Click
end
object DBGrid1: TDBGrid
Left = 8
Top = 8
Width = 305
Height = 137
DataSource = DataBase.DNColor
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
end
Форма «Добавить материал»
object FAddMaterial: TFAddMaterial
Left = 455
Top = 330
BorderStyle = bsDialog
Caption = 'Добавить материал'
ClientHeight = 189
ClientWidth = 319
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
PixelsPerInch = 96
TextHeight = 13
object RxSpeedButton1: TRxSpeedButton
Left = 8
Top = 156
Width = 97
Height = 25
Caption = 'Выбрать'
Flat = True
OnClick = RxSpeedButton1Click
end
object RxSpeedButton2: TRxSpeedButton
Left = 112
Top = 156
Width = 97
Height = 25
Caption = 'Отменить'
Flat = True
OnClick = RxSpeedButton2Click
end
object RxSpeedButton3: TRxSpeedButton
Left = 216
Top = 156
Width = 97
Height = 25
Caption = 'Добавить материал'
Flat = True
OnClick = RxSpeedButton3Click
end
object DBGrid1: TDBGrid
Left = 8
Top = 8
Width = 305
Height = 137
DataSource = DataBase.DNMaterial
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
end
SQL запрос на изменение названия полей в главной форме
select
(ID) AS Num,
(select IZDELIE from TNIzdelie where ID=2) AS Naim,
(KOLVO) AS Kol,
(VYSOTA) AS Vys,
(SHIRINA) AS Shir,
(TOLSHINA) AS Tol,
(DIAMETR) AS Dia,
(SUMMA) AS Summ
from TIzdelie T
where ZAKAZ=<<DBEdit3>>
П.5. Материалы внедрения дипломной работы
Информация о работе Создание АРМ "Клиент-менеджер.Наружная реклама"