Создание АРМ "Клиент-менеджер.Наружная реклама"

Автор работы: Пользователь скрыл имя, 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

Вложенные файлы: 1 файл

Диплом (Antonio).doc

— 1.45 Мб (Скачать файл)

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 = {

DE010000424DDE01000000000000760000002800000024000000120000000100

0400000000006801000000000000000000001000000000000000000000000000

80000080000000808000800000008000800080800000C0C0C000808080000000

F0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333

3333333333333333333333330000333333888888333333333333FFFFFF333333

0000333333F4444833333333333383333F3333330000333333F4444833333333

333383333F3333330000333333F4444833333333333383333F33333300003333

33F4444833333333333383333F3333330000388888F444488888833FFFFF8333

3FFFFFF300003F44444444444444833833333333333333F300003F4444444444

4444833833333333333333F300003F44444444444444833833333333333333F3

00003F44444444444444833833333333333333F300003FFFFFF4444FFFFF8338

88888333388888F30000333333F4444833333333333383333F33333300003333

33F4444833333333333383333F3333330000333333F444483333333333338333

3F3333330000333333F4444833333333333383333F3333330000333333FFFFF8

33333333333388888F3333330000333333333333333333333333333333333333

0000}

NumGlyphs = 2

OnClick = RxSpeedButton1Click

end

object RxSpeedButton2: TRxSpeedButton

Left = 392

Top = 272

Width = 25

Height = 25

Flat = True

Glyph.Data = {

DE010000424DDE01000000000000760000002800000024000000120000000100

0400000000006801000000000000000000001000000000000000000000000000

80000080000000808000800000008000800080800000C0C0C000808080000000

FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333

3333333333333333333333330000333333888888333333333333FFFFFF333333

0000333333F4444833333333333383333F3333330000333333F4444833333333

333383333F3333330000333333F4444833333333333383333F33333300003333

33F4444833333333333383333F3333330000388888F444488888833FFFFF8333

3FFFFFF300003F44444444444444833833333333333333F300003F4444444444

4444833833333333333333F300003F44444444444444833833333333333333F3

00003F44444444444444833833333333333333F300003FFFFFF4444FFFFF8338

88888333388888F30000333333F4444833333333333383333F33333300003333

33F4444833333333333383333F3333330000333333F444483333333333338333

3F3333330000333333F4444833333333333383333F3333330000333333FFFFF8

33333333333388888F3333330000333333333333333333333333333333333333

0000}

NumGlyphs = 2

OnClick = RxSpeedButton2Click

end

object RxSpeedButton3: TRxSpeedButton

Left = 392

Top = 200

Width = 25

Height = 25

Flat = True

Glyph.Data = {

DE010000424DDE01000000000000760000002800000024000000120000000100

0400000000006801000000000000000000001000000000000000000000000000

80000080000000808000800000008000800080800000C0C0C000808080000000

F0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333

3333333333333333333333330000333333333333333333333333333333333333

0000333333333333333333333333333333333333000033333333333333333333

3333333333333333000033333333333333333333333333333333333300003333

3333333333333333333333333333333300003888888888888888833FFFFFFFFF

FFFFFFF300003F11111111111111833833333333333333F300003F1111111111

1111833833333333333333F300003F11111111111111833833333333333333F3

00003F11111111111111833833333333333333F300003FFFFFFFFFFFFFFF8338

88888888888888F3000033333333333333333333333333333333333300003333

3333333333333333333333333333333300003333333333333333333333333333

3333333300003333333333333333333333333333333333330000333333333333

3333333333333333333333330000333333333333333333333333333333333333

0000}

NumGlyphs = 2

OnClick = RxSpeedButton3Click

end

object RxSpeedButton4: TRxSpeedButton

Left = 392

Top = 304

Width = 25

Height = 25

Flat = True

Glyph.Data = {

DE010000424DDE01000000000000760000002800000024000000120000000100

0400000000006801000000000000000000001000000000000000000000000000

80000080000000808000800000008000800080800000C0C0C000808080000000

FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333

3333333333333333333333330000333333333333333333333333333333333333

0000333333333333333333333333333333333333000033333333333333333333

3333333333333333000033333333333333333333333333333333333300003333

3333333333333333333333333333333300003888888888888888833FFFFFFFFF

FFFFFFF300003F11111111111111833833333333333333F300003F1111111111

1111833833333333333333F300003F11111111111111833833333333333333F3

00003F11111111111111833833333333333333F300003FFFFFFFFFFFFFFF8338

88888888888888F3000033333333333333333333333333333333333300003333

3333333333333333333333333333333300003333333333333333333333333333

3333333300003333333333333333333333333333333333330000333333333333

3333333333333333333333330000333333333333333333333333333333333333

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. Материалы внедрения дипломной работы




Информация о работе Создание АРМ "Клиент-менеджер.Наружная реклама"