Private Sub Зарегистрировать_Click()

On Error GoTo Err_Зарегистрировать_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = «f_otdih»

DoCmd. OpenForm stDocName, stLinkCriteria

Exit_Зарегистрировать_Click:

ExitSub

Err_Зарегистрировать_Click:

MsgBox Err. Description

Resume Exit_Зарегистрировать_Click

EndSub

8. Разработка приложения пользователя

Главная форма «f_main», в которой есть 3 вкладки:

· Регистрация.

· Услуги.

· Счет.

Для занесения информации о прибывшем отдыхающем необходимо на вкладке ‘Регистрация’ при помощи поиска выбрать подходящий номер (по местонахождению, по виду, классу) в форме ‘f_nomer’, затем нажать на кнопку «Зарегистрировать», при нажатии которой откроется форма ‘Sdan_nomer’ и последовательно заполнить все поля. После занесения всех необходимых сведений, необходимо нажать кнопку ‘Вселить’ и данные об отдыхающем внесутся в таблицы.

Для занесения информации о пользовании услугами нужно перейти на вкладку «Услуги». В форме «f_uslug» следует выбрать в поиски необходимого человека и в подчиненной форме fpp_uslugиз поля со списком нужную услугу и указать его дату, а в подчиненной форме f_pitanie_otdih таким же образом выбрать необходимое питание и указать на сколько человек (то есть количество) или показать его отсутствие.

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