Разработка автоматизированного рабочего места менеджера по продажам автозапчастей на базе поисковой системы компании по подбору и продаже автозапчастей

Дипломная работа - Менеджмент

Другие дипломы по предмету Менеджмент



?ода заказов на заданной записи, в режиме диалога (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

ФДиаметр = "*"If

СписокВылет(flg3.Value = True) And (Not (IsNull(Form_Диски.СписокВылет.Value))) Then

ФВылет = "" + Form_Диски.СписокВылет.Value + ""

ФВылет = "*"If

СписокОтверстия(flg4.Value = True) And (Not (IsNull(Form_Диски.СписокОтверстия.Value))) Then

ФОтверстия = "" + Form_Диски.СписокОтверстия.Value + ""

Else

ФОтверстия = "*"If

СписокПроизводитель(flg5.Value = True) And (Not (IsNull(Form_Диски.СписокПроизводитель.Value))) Then

ФПроизводитель = "" + Form_Диски.СписокПроизводитель.Value + ""

ФПроизводитель = "*"If

реализуем фильтр

Общий_Фильтр = "Ширина Like " + ФШирина + " AND " + "Диаметр Like " + ФДиаметр + " AND " + "[Вылет (ET)] Like " + ФВылет + " AND " + "[Отверстия (PCD)] Like " + ФОтверстия + " AND " + "Производитель Like " + ФПроизводитель

Form_Диски.Filter = Общий_Фильтр

If Form_Диски.Filter <> "" Then Form_Диски.FilterOn = True

End Sub

Приложение 3

Форма загрузкаCompare DatabaseSub Кнопка0_Click()FName As Stringresult As IntegerApplication.FileDialog(1) Вместо : With Application.FileDialog(msoFileDialogOpen)

.Title = "Выбор файла Excel"

.InitialFileName = "C:\" default path

.AllowMultiSelect = False

.Filters.Clear

.Filters.Add "Файлы excel", "*.xls", 1= .Showresult = 0 Then Exit Sub= Trim(.SelectedItems.Item(1))WithError Resume Next

Надпись5.Caption = FNameSubSub Кнопка6_Click()Error GoTo Err_Кнопка6_Click.GoToRecord , , acFirst_Кнопка6_Click:Sub_Кнопка6_Click:Err.DescriptionExit_Кнопка6_ClickSubSub Кнопка7_Click()

Это загрузкаMyPatch As String Где MyPatch путь к файлу= Me!Надпись5.CaptionMyPatchError Resume Next Выключение обработчика ошибок.

DoCmd.DeleteObject acTable, Me!TABLE_NAME_

Err = 0 Очистка кода ошибки.

Сама загрузка"Загружаем".DeleteObject acTable, "Запча"

DoCmd.TransferSpreadsheet acImport, , "Запча", MyPatch, True, ""

End SubSub Обновить_данные_в_каталоге_Click()Error GoTo Err_Обновить_данные_в_каталоге_Click

Dim stDocName As String= ChrW(1054) & ChrW(1073) & ChrW(1085) & ChrW(1086) & ChrW(1074) & ChrW(1083) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1077) & ChrW(32) & ChrW(1079) & ChrW(1072) & ChrW(1087) & ChrW(1095) & ChrW(1072) & ChrW(1089) & ChrW(1090) & ChrW(1077) & ChrW(1081).OpenQuery stDocName, acNormal, acEdit_Обновить_данные_в_каталоге_Click:Sub_Обновить_данные_в_каталоге_Click:Err.DescriptionExit_Обновить_данные_в_каталоге_ClickSub