Разработка автоматизированного рабочего места менеджера по продажам автозапчастей на базе поисковой системы компании по подбору и продаже автозапчастей
Дипломная работа - Менеджмент
Другие дипломы по предмету Менеджмент
?ода заказов на заданной записи, в режиме диалога (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