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



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

В этом упражнении Вы создадите код 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. Введите какие-нибудь значения и попробуйте поменять их с помощью кнопок.



Содержание раздела