jBASE Web Builder - VB и SQL

ВВЕДЕНИЕ

jBASE for Web Builders является полнофункциональной средой для создания интерактивных транзакционных web-приложений. Применение Microsoft Visual Basic может расширить эти функциональные возможности.

Один из способов расширить Web Builder - добавить возможность выполнения инструкций SQL для удаленных баз данных. В этой публикации рассмотрены принципы такой интеграции. Здесь включены инструкции, поясняющие, как с самого начала построить проект jWB и проект VB, способные работать вместе и обрабатывать инструкции SQL.

Для описанных примеров требуется наличие jWB версии 3.2.1 или выше, а также Microsoft Visual Basic 6. Эти продукты должны быть установлены на одной и той же машине. Если они размещены на разных машинах, то IP-адрес в примерах следует изменить с 127.0.0.1 на IP-адрес, где размещается VB server.

ОБЗОР

jBASE for Web Builders версии 3.2.1 и выше поступает со встроенным интерфейсом вызова сокетов (socket calling interface), который обеспечивает коммуникацию через TCP/IP. При написании вызовов функций с использованием этого интерфейса jWB можно просто интегрировать с другими приложениями или языками программирования.

Каждый диалог порождается со стороны jWB. Хотя диаграмма показывает jWB server, VB server и сервер баз данных как отдельные машины, все они могут сосуществовать на одной машине.

ПОСТРОЕНИЕ ПРОЕКТА WEB BUILDER PROJECT

Приложение Web Builder будет состоять из простой страницы, содержащей текстовое окошко запроса (query text box), кнопки для отправки запроса, и меток для показа результатов.

Запустите jWB и добавьте новый модуль Application Module. Дайте ему имя "sql". Добавьте к модулю новую страницу. Назовите страницу "pagsql".

Добавьте в страницу кнопку и текстовое окошко - textbox. Измените свойства для кнопки следующим образом:

Caption Send SQL
Button Type Submit
Trigger Type sub
Trigger Option sendsqlmsg

Измените свойства для текстового окошка следующим образом:

Datafield named,sql

Добавьте таблицу для показа результатов. Дайте таблице имя, изменив свойство объекта на tabsql. Экран будет выглядеть примерно так:

Откройте таблицу в своем собственном окне - либо двойным щелчком на таблице, либо кнопкой редактирования объекта (edit object).

Добавьте несколько меток. Эти метки будут хранить результаты запроса. Добавьте по одной метке для каждой колонки данных. Измените свойства меток следующим образом:

Text [{{variable||sysdata||1}}]
Dependent field 1

Text [{{variable||sysdata||2}}]
Dependent field 1

Text [{{variable||sysdata||3}}]
Dependent field 1

и т.д...

Теперь таблица будет выглядеть примерно так:

На странице щелкните по кнопке Send SQL, затем щелкните по овальной кнопке за опцией параметров триггера (trigger option parameter) для открытия процедуры sendsqlmsg.

Вставьте следующую процедуру:

      SUB sendsqlmsg(html)

*--- включение общего блока - common block
       INCLUDE sysbp syscommon

*--- получаем инструкцию SQL
      LOCATE("sql",sysquery,1;pos) THEN
      sql = sysquery<2,pos>
      END

*--- строим список параметров для вызова       syssocket
      syssock<syssockhost> = "127.0.0.1"
      syssock<syssockport> = 8000
      syssock<syssockout> = sql
      syssock<syssocktimeout> = 10

*--- делаем вызов socket call
      CALL syssocket

*--- получаем возвращенное значение (или ошибку)
      sysdata = RAISE(syssock<syssockin>)

*--- перерисовываем страницу jWB
      CALL syscreate(syspage,html)

      RETURN

Эта процедура считывает текст, введенный в текстовом окошке, и затем перед вызовом функции socket строит список параметров. Когда функция socket выполнит возврат, sysdata загружается возвращенными значениями.

После создания sysdata страница перерисовывается. Значение sysdata будет показано в метках на странице с помощью заменяемых тэгов - DIRT tags.

Процедура для обращения к сокету называется syssocket. Все параметры для функции syssocket содержатся в общем блоке (common block) с названием syssock.

продолжение »»»»