Быстрый поиск

Курсовая работа: Проектирование базы данных интернет-магазина в СУБД MS ACCESS

End Sub

5. При обращении к форме «заказ» при определении способа получения заказа контролируется возможность ввода точки доставки в зависимости от его выбора

Private Sub Способ_получения_Click()

If Способ_получения.Value = "Доставка" Then

Название_точки.Value = " "

Название_точки.Visible = False

End If

If Способ_получения.Value = "Самовывоз" Then

Название_точки.Visible = True

End If

6. При обращении к форме «Корзина заказов», эмулирующей подобный функционал сайта автоматически определяется следующий номер заказа

Private Sub Form_Current()

Me![Список12].SetFocus

Список12.ListIndex = 0

Поле14.Value = Список12.Value + 1

End Sub

7. При обращении к форме «Корзина заказов», эмулирующей подобный функционал сайта контролируется возможность осуществления оформления заказа только при условии добавления в корзину хотя бы одной единицы товара, а также невозможность выбора подкатегории, не принадлежащей выбранной категории

Private Sub ПолеСоСписком2_Click()

ПолеСоСписком4.Value = ""

ПолеСоСписком6.Value = ""

If ПолеСоСписком2.Value <> "" And ПолеСоСписком4.Value <> "" And ПолеСоСписком6.Value <> "" Then

Кнопка18.Visible = True

Else

Кнопка18.Visible = False

End If

End Sub

Private Sub ПолеСоСписком4_Click()

ПолеСоСписком6.Value = ""

If ПолеСоСписком2.Value <> "" And ПолеСоСписком4.Value <> "" And ПолеСоСписком6.Value <> "" Then

Кнопка18.Visible = True

Else

Кнопка18.Visible = False

End If

End Sub

Private Sub ПолеСоСписком4_GotFocus()

Me.Refresh

End Sub

Private Sub ПолеСоСписком6_Click()

If ПолеСоСписком2.Value <> "" And ПолеСоСписком4.Value <> "" And ПолеСоСписком6.Value <> "" Then

Кнопка18.Visible = True

Else

Кнопка18.Visible = False

End If

End Sub

Private Sub ПолеСоСписком6_GotFocus()

Me.Refresh

End Sub

Аналогичным образом происходит проверка на категории и подкатегории при обращении к форме «Оценка», эмулирующей подобный функционал сайта

8. При обращении к форме «Оформление заказа», эмулирующей подобный функционал сайта, осуществляется пересчет всех вычисляемых полей (Стоимость, Суммарный вес, Суммарный объем) при смене номера заказа, а также определяется вид доставки в зависимости от влияющих на его выбор факторов (Стоимость, Суммарный вес, Суммарный объем)

Список69.Requery

Me![Список69].SetFocus

Список69.ListIndex = 0

№_заказа.Value = Список69.Value

Суммарный_вес_заказа.Requery

Me![Суммарный_вес_заказа].SetFocus

Суммарный_вес_заказа.ListIndex = 0

Суммарный_объем_заказа.Requery

Me![Суммарный_объем_заказа].SetFocus

Суммарный_объем_заказа.ListIndex = 0

Стоимость_заказа.Requery

Me![Стоимость_заказа].SetFocus

Стоимость_заказа.ListIndex = 0

If Удаленность_МКАД_км.Value = 0 Then Вид_доставки.Value = "Курьер"

If (Стоимость_заказа.Value > 30000) Or (Суммарный_вес_заказа.Value >= 2.5) Or (Суммарный_объем_заказа.Value > 4000) Then Вид_доставки.Value = "Легковой транспорт"

If (Суммарный_вес_заказа.Value >= 23) Or (Суммарный_объем_заказа.Value > 25000) Then Вид_доставки.Value = "Грузовой транспорт"

If Вид_доставки.Value = "Курьер" Then Стоимость_доставки.Value = 250

If Вид_доставки.Value = "Легковой транспорт" Then Стоимость_доставки.Value = 350 + Удаленность_МКАД_км.Value * 15

If Вид_доставки.Value = "Грузовой транспорт" Then Стоимость_доставки.Value = 450 + Удаленность_МКАД_км.Value * 20

9. При обращении к форме «Оформление заказа», эмулирующей подобный функционал сайта при редактировании поля «Удаленность_от_МКАД_км» на форме «Доставка» осуществляется пересчет стоимости доставки в зависимости от его значения

Private Sub Удаленность_МКАД_км_LostFocus()

If Вид_доставки.Value = "Курьер" Then Стоимость_доставки.Value = 250

If Вид_доставки.Value = "Легковой транспорт" Then Стоимость_доставки.Value = 350 + Удаленность_МКАД_км.Value * 15

If Вид_доставки.Value = "Грузовой транспорт" Then Стоимость_доставки.Value = 450 + Удаленность_МКАД_км.Value * 20

End Sub

10. При обращении к форме «Оформление заказа», эмулирующей подобный функционал сайта при редактировании поля «Логин» проверяется условие на его существование в БД для возможности оформления заказа

Dim i As Long, f As Boolean

Список144.Requery

Me![Список144].SetFocus

Список144.ListIndex = 0

f = False

For i = 0 To Список144.ListCount - 1

Список144.ListIndex = i

If Список144.Value = Логин.Value Then f = True

Next i

If f = False Then MsgBox ("Сначала зарегистрирутесь")

End Sub

Аналогичным образом происходит проверка при обращении к форме «Оценка товара клиентом», эмулирующей подобный функционал сайта

11. При обращении к форме «Регистрация», эмулирующей подобный функционал сайта при регистрации нового пользователя проверяются условия на обязательность заполнения определенных полей

Private Sub Кнопка70_Click()

On Error GoTo Err_Кнопка70_Click

Dim stDocName As String

stDocName = ChrW(1044) & ChrW(1086) & ChrW(1073) & ChrW(1072) & ChrW(1074) & ChrW(1080) & ChrW(1090) & ChrW(1100) & ChrW(32) & ChrW(1088) & ChrW(1077) & ChrW(1075) & ChrW(1080) & ChrW(1089) & ChrW(1090) & ChrW(1088) & ChrW(1072) & ChrW(1094) & ChrW(1080) & ChrW(1102)