· Итог за питание

· Итог за проживания

· Итоговая сумма

7. Реализация алгоритмов обработки информации

7.1 Реализация алгоритмов средствами макросов

Разработаны следующие макросы:

1. Макрос 1 . Осуществляет открытие формы ‘sdan_nomer’ для занесения данных о новом клиенте, записывает текущий номер в форму ‘sdan_nomer’ из формы f_nomer, обновляет данные во всей главной форме ‘F_main’. Привязан к событию ‘Нажатие’ кнопки ‘Зарегистрировать’ в форме ‘F_main’ во вкладке ‘Регистрация’.

2. m_ inf . Осуществляет открытие формы ‘F_inf’ для корректировки данных и получения сведений. Привязан к событию ‘Нажатие’ кнопки ‘об отдыхающем’ в форме ‘F_main’ во вкладке ‘Счет’.

3. m_ otchet . Осуществляет открытие отчета ‘o_otchet’ для определенного клиента, т.е. для клиента, запись про которого является текущей в форме ‘F_c4et’. Привязан к событию ‘Нажатие’ кнопки ‘Счет’ в форме ‘ ‘F_main’ во вкладке ‘Счет’.

4. m _ obnov . Осуществляет обновление записей о наличии номеров в таблице ‘Nomera’ с помощью запроса ‘z_obnov_nomer’, а так же закрывает форму ‘ ‘sdan_nomer». Привязан к событию ‘Нажатие’ кнопки ‘Вселить’ в форме ‘ ‘sdan_nomer».

5. m_ udal . Удаляет записи о выехавших отдыхающих из таблиц ‘Spisok_otdih’, 'Sdan_nomer’, осуществляет обновление записей об освобождении номеров в таблице ‘Nomera’ с помощью запросов ‘Z_obnov_visel’, ‘Z_visel’, ‘Z_visel_otl2’. Привязан к событию ‘Нажатие’ кнопки ‘Выселение’ в форме ‘F_inf’.

Описание алгоритма выселения клиента из базы отдыха

1) Создать запросы на удаление и обновление, для того чтобы очистить таблицу ‘spisok_otdih’ ‘Sdan_nomer’ от предыдущих записей и обновить записи об освобождении номеров в таблице ‘Nomera’.

2) Создать макрос ‘M_udal’, последовательно запускающий запросы на удаление, обновление и добавление.

Макрокоманда

ОткрытьЗапрос (Z_visel; Таблица; Изменение

ОткрытьЗапрос (Z_visel_otl2; Таблица; Изменение)

ОткрытьЗапрос (z_obnov_visel; Таблица; Изменение)

ОбновитьОбъект (Форма, F_main)

3) В форме ‘Sdan_nomer’ создать кнопку ‘Выселение’. К событию ‘Нажатие’ этой кнопки привязать макрос ‘M_udal’.

7.2 Реализация алгоритмов средствами VisualBasic

PrivateSubf1_AfterUpdate()

Forms! [F_main]! [f_nomer].Requery

Forms! [F_main]! [f2].Requery

End Sub

Private Sub f2_AfterUpdate()

Forms! [F_main]! [f_nomer].Requery

End Sub

Private Sub f3_AfterUpdate()

Forms! [F_main]! [f_nomer].Requery

End Sub

Private Sub k1_AfterUpdate()

Forms! [F_main]! [Z_ludi].Requery

End Sub

Private Sub k2_AfterUpdate()

Forms! [F_main]! [f_uslug].Requery