|
В данной дипломной работе стояла задача разработать удобную систему для эффективной работы менеджера по продажам автозапчастей.
Разработанное автоматизированное рабочее место менеджера по продажам автозапчастей имеет рад отличительных особенностей:
· удобная и быстрая система загрузки данных;
· доступны для просмотра и поиска базы данных;
· автоматическая наценка на стоимость автозапчасти, установленная регламентом руководства фирмы;
· актуальность хранимой информации;
· клиенты самостоятельно могут определиться с комплектацией нужной марки автомобиля.
В результате внедрения разработки достигнуто:
· снижение трудоемкости поиска и подбора необходимых автозапчастей;
· увеличение скорости обработки поступающей информации, оформления договоров и получения статистических данных по деятельности компании;
· оформления договоров и получения статистических данных по деятельности компании;
· предоставление информации об объемах продаж в едином формате для эффективного анализа и последующего планирования по закупкам нужного ассортимента.
Таким образом:
· произведена разработка программного модуля в соответствии с потребностями сотрудника отдела продаж автозапчастей, которая произведена в кратчайшие сроки и с минимальными финансовыми вложениями.
По результатам проведенных расчетов экономической части дипломного работы можно сделать вывод, что проект окупится через 5 месяцев. Соответственно разработка и внедрение данного программного обеспечения является целесообразными.
Приложения
Приложение 1
Форма выбора автомобиля
ption Compare Database
Private Sub ПолеКузов_Change()
СписокКомплектация.Requery
End SubSub ПолеМарка_Change()
ПолеМодель.Requery
ПолеКузов.Requery
СписокКомплектация.RequerySubSub ПолеМодель_Change()
ПолеКузов.Requery
СписокКомплектация.RequerySubSub СписокКомплектация_DblClick(Cancel As Integer)
If Nz(Me.СписокКомплектация, 0) <> 0 Then 'Если заказ выделен в списке
'Открываем форму ввода заказов на заданной записи, в режиме диалога (windowmode:=acDialog)
'DoCmd.OpenForm "Запчасти", wherecondition:="Код комплектации=" & Me.СписокКомплектация, windowmode:=acDialog
'stLinkCriteria = "[Код комплектации]=" & "'" & Me.СписокКомплектация & "'".OpenForm "Запчасти", , , Me.СписокКомплектация'Если в списке не вабрана комплектация"Пожалуйста, выберите комплектацию.", vbCriticalIf
End Sub
Приложение 2
Главная формаCompare DatabaseSub ПолеКузов_Change()
СписокКомплектация.RequerySubSub ПолеМарка_Change()
ПолеМодель.Requery
ПолеКузов.Requery
СписокКомплектация.RequerySubSub ПолеМодель_Change()
ПолеКузов.Requery
СписокКомплектация.RequerySubSub СписокКомплектация_DblClick(Cancel As Integer)
If Nz(Me.СписокКомплектация, 0) <> 0 Then 'Если заказ выделен в списке
'Открываем форму ввода заказов на заданной записи, в режиме диалога (windowmode:=acDialog)
'DoCmd.OpenForm "Запчасти", wherecondition:="Код комплектации=" & Me.СписокКомплектация, windowmode:=acDialog
'stLinkCriteria = "[Код комплектации]=" & "'" & Me.СписокКомплектация & "'".OpenForm "Запчасти", , , Me.СписокКомплектация'Если в списке не вабрана комплектация"Пожалуйста, выберите комплектацию.", vbCriticalIf
End Sub
Приложение 3
Форма дискиCompare Database
Private Sub Показать_карточку_Click()
On Error GoTo Err_Показать_карточку_Click
Dim stDocName As StringstLinkCriteria As String= ChrW(1050) & ChrW(1072) & ChrW(1088) & ChrW(1090) & ChrW(1086) & ChrW(1095) & ChrW(1082) & ChrW(1072) & ChrW(32) & ChrW(1076) & ChrW(1080) & ChrW(1089) & ChrW(1082) & ChrW(1072)= "[Код]=" & Me![Код].OpenForm stDocName, , , stLinkCriteria
Exit_Показать_карточку_Click:Sub_Показать_карточку_Click:Err.Description
Resume Exit_Показать_карточку_ClickSubSub СписокДиаметр_AfterUpdate()
'Form_Диски.Requery
ФильтрSubSub СписокШирина_AfterUpdate()
'Form_Диски.Requery
ФильтрSubSub Кнопка30_Click()Error GoTo Err_Кнопка30_Click.DoMenuItem acFormBar, acRecordsMenu, 0, 2, acMenuVer70_Кнопка30_Click:Sub_Кнопка30_Click:Err.DescriptionExit_Кнопка30_ClickSubSub flg1_AfterUpdate()
ФильтрSubSub flg2_AfterUpdate()
ФильтрSubSub flg3_AfterUpdate()
ФильтрSubSub flg4_AfterUpdate()
ФильтрSubSub flg5_AfterUpdate()
ФильтрSubSub Фильтр()
'Form_Диски.Filter = ""
'СписокШирина(flg1.Value = True) And (Not (IsNull(Form_Диски.СписокШирина.Value))) Then
ФШирина = "'" + Form_Диски.СписокШирина.Value + "'"
ФШирина = "'*'"If
'СписокДиаметр(flg2.Value = True) And (Not (IsNull(Form_Диски.СписокДиаметр.Value))) Then
ФДиаметр = Form_Диски.СписокДиаметр.Value
Перейти на страницу: 1 2 3 4 5 |
