ЖУРНАЛ «СТА» №4/2006

точник данных будет формироваться динамически с помощью сценария. Присвойте имя этому объекту, как показано на рис. 27. 3. Добавить в экранную форму эле- мент «Кнопка» или «Флажок» , устано- вив его свойства, как показано на рис. 28: Действие = «Выполнить сцена- рий», Тип = «С фиксацией», Порядок выполнения = «Пока нажато», флаг «Нач. состояние Нажато» взведён, Тип сценария = «VBAScript». Присвойте сценарию имя и нажмите кнопку Соз- дать . В открывшемся окне редактора сце- нариев VBA введите следующий текст (листинг 4). При этом кнопка будет исполнять сценарий постоянно с указанным в свойствах интервалом (в данном при- мере — 1 с) и формировать строку за- проса в зависимости от значения управляющего тега ICONICS. Simulator.1\ Global Variables. Analog1, которое будет опре- делять значение параметра PID. Способ 2 Реализовать ту же самую за- дачу средствами DataWorX32 можно следующим образом. 1. Запустить конфигуратор DataWorX32 (Пуск – Про- граммы – ICONICS GENESIS32 – Tools – DataWorX32). 2. Добавить новый псевдо- ним, присвоить ему произ- вольное имя, например, Query_alias. Установить ему в качестве входа управляю- щий тег ICONICS. Simulator.1\GlobalVariables.Analog1, значение которого будет определять значение параметра PID, как пока- зано на рис. 29. 3. Запустить сервер DWX32 на исполне- ние (значок с изображением свето- фора на рис. 29). 4. В экранной форме создать элемент «Параметр» , в котором будет отобра- жаться результат запроса к базе дан- ных. В качестве источника данных необходимо установить следующий тег: ICONICS.DataWorX32.8 \ ICONICS.DatabaseOPCServer.3\ AdministrationDB.Employees_By_PID <[[Query_alias]]>. <Name>. В результате вместо псевдонима ICONICS.DataWorX32.8\<[[Query_alias]] будет подставлено значение управляю- щего тега и сформируется правильный тег запроса к базе данных. ВОП Р ОСЫ - О Т В Е Т Ы 89 СТА 4/2006 www.cta.ru Рис. 26. Универсальный навигатор данных. Встроенный тег для настраиваемого запроса Рис. 27. Результат запроса — отображение значения из базы данных Рис. 28. Кнопка, управляющая запуском сценария формирования запроса Рис. 29. Псевдоним DWX32, управляющий изменением параметра запроса Sub Query(o As GwxPick) Dim ppt1 As GwxPoint Dim ppt2 As GwxProcessPoint Set ppt1 = ThisDisplay.GetPointObjectFromName( ”ICONICS.Simulator.1\GlobalVariables.Analog1”) Set ppt2 = ThisDisplay.GetDynamicObjectFromName(”DB_value”) ppt2.dataSource = “ICONICS.DatabaseOPCServer.3\AdministrationDB.Employees_By_PID<” & ppt1.Value & “>.<Name>” End Sub Листинг 4