Этап 10 - Добавление Кнопки в Таблицу

В "палитре" - т.е. в панели Palette найдите объект Button. При поиске либо посмотрите на подсказку: "(sysbutton) FORM button", либо найдите изображение кнопки, на которой содержится "…".

Щелчком выберите режим установки кнопки, а затем щелкните на "монтажной заклепке" - Construction Rivet правее текстового окошка Employee number Textbox. Установленная кнопка появится в панели Preview, и теперь панель свойств - Properties обновится для показа свойств кнопки.

Этап 11 - Настройка Кнопки

Убедитесь, что панель Properties показывает свойства объекта Button, который мы только что добавили в Table. При сомнении щелчок по объекту Button убедит вас.

Найдите свойство Button type, и затем в выпадающем списке (pull down list) выберите Submit ("отправить"). Измените свойство Caption ("заголовок") на значение Open. Найдите свойство Trigger type ("тип триггера") и из доступных опций выберите Sub. Измените свойство Trigger option так, чтобы оно было sysfileopen. Щелкните на кнопке Update в верхней части панели Properties.

Назначение свойства Caption самоочевидно. Другие свойства определяют, как будет вести себя кнопка при запуске страницы на исполнение. Свойство Button type диктует, какова будет реакция при срабатывании кнопки. Если выбрана опция submit, то система jBASE Web Builder будет исполнять код на сервере.

Свойство Trigger Type сообщает системе Web Builder, какого сорта код выполнять. Поскольку выбран вариант Sub, система jBASE Web Builder будет выполнять подпрограмму (subroutine) на сервере. Значение в параметре Trigger Option сообщает jWB, какую именно подпрограмму исполнять. Подпрограмма. "sysfileopen" - это одна из встроенных процедур для jBASE Web Builder.

Для просмотра содержимого подпрограммы "sysfileopen" щелкните по кнопке рядом со свойством Trigger Option - на ней изображается "…". Появится окно, показывающее содержимое подпрограммы. Подпрограмма написана на jBC или на BASIC. Ниже показан код подпрограммы "sysfileopen".

      SUB sysfileopen(html)
*--- включение common-блока
      INCLUDE sysbp syscommon
*--- открытие запрошенного файла
      CALL sysopen(sysfile,filevar,html)
      IF html # "" THEN RETURN
*--- чтение записи
      READ sysdata FROM filevar,sysid ELSE
      syserr = 1
      syserrmsg = \Item not found\
      sysdata = ""
      CALL sysnavrefresh(html)
      RETURN
      END
*--- перерисовка страницы
      syshidden = ""
      sysreserved = ""
      CALL syscreate(syspage,html)
*--- возврат к вызывавшей процедуре
      RETURN

Для закрытия окна слева вверху кнопку с надписью "Close".