Разработка событийных процедур

В этом упражнении Вы создадите код VBScript для подсчета общей стоимости товаров, выбранных в таблице Product.

Вы расширите функциональные возможности Web-страницы списка товаров Products.htm (воспользуйтесь оригиналом, находящимся в папке WA\Practice\Ch09).

> Добавление тэгов SCRIPT в Web-страницу Products

1. Запустите Microsoft Frontpage 98.
2. Создайте новую пустую страницу (Empty Web) и назовите ее Lab09.
3. В меню File выберите Import.
4. Щелкните Add File, выберите файл Lab09.htm в папке WA\Practice\Ch09 и нажмите ОК.
5. Дважды щелкните Lab09.htm, чтобы открыть этот файл в редакторе Frontpage Editor.
6. Поместите точку вставки справа от кнопки Calculate.
7. В меню Insert укажите на Advanced и выберите Script.
8. Введите приведенный ниже код и нажмите ОК:

   Function TotalIt()

   Dim price

   On Error Resume Next

   price = txtQ1.Text * 2.99

   price = price + txtQ2.Text * 75.59

   
   
   
   

   price = price + txtQ3.Text * 1.75

   price = price + txtQ4.Text * 7.99

   price = price + txtQ5.Text * 4.99

   Totallt = price

   End Function

   > Применение мастера создания сценариев

   1. Щелкните правой кнопкой мыши кнопку Calculate и выберите в меню команду Script Wizard.
   2. В нижней части диалогового окна щелкните кнопку Code View.
   3. Свяжите с событием CalcTotal_OnClick формы frmButtonContainer приведенную ниже событийную процедуру:

      IblTotal.Caption = TotalItO

   4. Нажмите ОК, чтобы закрыть окно мастера создания сценариев.
   5. Сохраните изменения.
   6. Щелкните кнопку Preview in Browser на панели инструментов.
   7. Заполните поля заказа товаров и нажмите Calculate.

   Элементы управления для изменения значений пока не содержат сценарного кода, поэтому значения приходится вводить вручную.

   > Добавление событийной процедуры для элементов управления

   1. Переключитесь в окно Frontpage Editor.
   2. Правой кнопкой мыши щелкните счетчик в правом верхнем углу Web-стра ницы.
   3. Выберите Script Wizard.
   4. В событие spin1_SpinUp введите следующий код:

      txtql.text = txtql.text + 1

   5. В событие счетчика spinl_SpinDown добавьте следующий код:

      If txtql.text > 0 Then txtql.text = txtql.text - 1

   6. Повторите пункты 2—4 для каждой кнопки счетчиков Web-страницы, соответствующим образом изменяя имена текстовых полей (txtq2, txtq3, txtq4, и т.д.).
   7. Сохраните Web-страницу.
   8. Щелкните кнопку Preview in Browser на панели инструментов.

      Возможно, Вам придется нажать кнопку Refresh для перезагрузки страницы.

   9. Введите какие-нибудь значения и попробуйте поменять их с помощью кнопок.
   
   
   Содержание раздела
   
   
   
   
   

   ---