Продажа туристических путёвок

OpenForm stDocName,, , stLinkCriteria

Forms!Sale.DataEntry = False

Forms!Sale.Кнопка10.Visible = True

End If

Exit_Кнопка1_Click:

Exit Sub

Err_Кнопка1_Click:

MsgBox Err. Description

Resume Exit_Кнопка1_Click

End Sub

‘Form: Поиск тура

Private Sub Найти_Click ()

Dim p1 As String 'город вылета

Dim p21 As String 'дата

Dim p22 As String 'дата

Dim p3 As String 'назначение

Dim p41 As String 'ночей с

Dim p42 As String 'ночей до

Dim p51 As String 'взрослых

Dim p52 As String 'детей

Dim p6 As String 'курорт

Dim p7 As String 'звездность

Dim p8 As String 'питание

Dim p91 As String 'стоимость

Dim p92 As String 'стоимость

Dim p10 As String 'наличие билетов

Dim p11 As String 'наличие свободных номеров

CurrentDb.QueryDefs.Delete («Search»)

Поле

СоСписком32.SetFocus

If Поле

СоСписком32.Text = «» Then p1 = «WHERE tours. city_air like '*'»

If Поле

СоСписком32.Text <> «» Then p1 = «WHERE tours. city_air='» & Поле

СоСписком32.Text & «'»

Поле3.SetFocus

If Поле3. Value = «» Then p21 = «»

If Поле3. Value <> «» Then p21 = «AND tours. date>=#» & Format (Поле3.Value, «dd») & «/» & Format (Поле3.Value, «mm») & «/» & Format (Поле3.Value, «yyyy») & «#»

Поле5.SetFocus

If Поле5. Value = «» Then p22 = «»

If Поле5. Value <> «» Then p22 = «AND tours. date<=#» & Format (Поле5.Value, «dd») & «/» & Format (Поле5.Value, «mm») & «/» & Format (Поле5.Value, «yyyy») & «#»

Поле

СоСписком9.SetFocus

If Поле

СоСписком9.Text = «» Then p3 = «»

If Поле

СоСписком9.Text <> «» Then p3 = «AND tours. Country='» & Поле

СоСписком9.Text & «'»

Поле11.SetFocus

If Поле11. Text = «» Then p41 = «»

If Поле11. Text <> «» Then p41 = «AND tours. Count_night>=» & Поле11. Text

Поле13.SetFocus

If Поле13. Text = «» Then p42 = «»

If Поле13. Text <> «» Then p42 = «AND tours. Count_night<=» & Поле13. Text

Поле15.SetFocus

If Поле15. Text = «» Then p51 = «»

If Поле15. Text <> «» Then p51 = «AND tours. People=» & Поле15. Text

Поле17.SetFocus

If Поле17. Text = «» Then p52 = «»

If Поле17. Text <> «» Then p52 = «AND tours. Child=» & Поле17. Text

Поле

СоСписком25.SetFocus

If Поле

СоСписком25.Text = «» Then p6 = «»

If Поле

СоСписком25.Text <> «» Then p6 = «AND tours. city='» & Поле

СоСписком25.Text & «'»

Поле

СоСписком42.SetFocus

If Поле

СоСписком42.Text = «» Then p13 = «»

If Поле

СоСписком42.Text <> «» Then p13 = «AND tours. hotel='» & Поле

СоСписком42.Text & «'»

Поле

СоСписком27.SetFocus

If Поле

СоСписком27.Text = «» Then p7 = «»

If Поле

СоСписком27.Text <> «» Then p7 = «AND tours. Star_hotel='» & Поле

СоСписком27.Text & «'»

Поле

СоСписком23.SetFocus

If Поле

СоСписком23.Text = «» Then p8 = «»

If Поле

СоСписком23.Text <> «» Then p8 = «AND tours. Meals='» & Поле

СоСписком23.Text & «'»

Поле19.SetFocus

If Поле19. Text = «» Then p91 = «»

If Поле19. Text <> «» Then p91 = «AND tours. Cost>=» & Поле19. Text

Поле21.SetFocus

If Поле21. Text = «» Then p92 = «»

If Поле21. Text <> «» Then p92 = «AND tours. Cost<=» & Поле21. Text

If Флажок34. Value = False Then p10 = «»

If Флажок34. Value = True Then p10 = «AND tours. Ticket>0»

If Флажок36. Value = False Then p11 = «»

If Флажок36. Value = True Then p11 = «AND tours. Free_number>0»

CurrentDb.CreateQueryDef («Search»).SQL = «SELECT * FROM tours «& p1 & p21 & p22 & p3 & p41 & p42 & p51 & p52 & p6 & p7 & p8 & p91 & p92 & p10 & p11 & p13

DoCmd.OpenQuery («Search»)

End Sub

‘Form: Access

Private Sub setProtShift (myFlag As Boolean)

dbChangeProperty «StartupForm», DB_TEXT, «Аутентификация» '- Первая форма (см. Приложение № 6)

dbChangeProperty «StartupShowStatusBar», DB_BOOLEAN, myFlag '- Нижняя полоска экрана

dbChangeProperty «AllowBuiltinToolbars», DB_BOOLEAN, myFlag '- Панели инструментов

dbChangeProperty «AllowFullMenus», DB_BOOLEAN, myFlag '-Меню таблиц, форм и т. п.

dbChangeProperty «AllowBreakIntoCode», DB_BOOLEAN, myFlag '- Ошибки в модуле

dbChangeProperty «AllowSpecialKeys», DB_BOOLEAN, myFlag '- Специальные ключи (CTRL+BREAK, …)

dbChangeProperty «AllowBypassKey», DB_BOOLEAN, myFlag '- Ключ Shift

End Sub

Function dbChangeProperty (strName As String, varType As Variant, varValue As Variant) As Boolean

Dim prp As Variant ', dbs As Database

On Error GoTo 999 '- Назначаем переход по ошибке

dbChangeProperty = False '- Возвращаем результат при ошибке

'Set dbs = CurrentDb '- Выбираем базу

CurrentDb.Properties (strName) = varValue '- Присваиваем значение

dbChangeProperty = True '- Возвращаем результат

Exit Function '- Выходим из программы

999: If Err = 3270 Then '- Свойство не найдено

Set prp = CurrentDb. CreateProperty (strName, varType, varValue) '- Создаем свойство

CurrentDb.Properties.Append prp '- Добавляем свойство

Err.Clear '- Очищаем поток от ошибки

Resume Next '- Возвращаемся к следующему оператору

End If

Err.Clear '- Очищаем от незнакомой ошибки

End Function

Private Sub OFF_Click ()

setProtShift True

MsgBox «Защита удалена!» & Chr (13) & «Перезапустите базу данных!»

End Sub

Private Sub ON_Click ()

setProtShift False

MsgBox «Защита установлена!» & Chr (13) & «Перезапустите базу данных!»

End Sub