31
Ваши вопросы / Re: Вопросы и предложения по Simple-Scada 2
« : 28 Марта 2018, 14:04:20 »
эх над было этим заморочиться когда 10-20 было тэгов) Спасибо за ответ. Но буду ждать данного обновления функционала)
Официальный форум Simple-Scada.
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
Здравствуйте.А квитирование сообщения нажатием на него возможно сделать? самый интересный момент это квитирование нажатием по сообщению
Стандартная панель сообщений (как и панель страниц) не имеют каких-либо доп. опций. Если нужна уникальная панель, то можно просто выключить панель сообщений и на её месте создать свою с любой комбинацией элементов. Для вывода сообщений можно разместить компонент "Список сообщений" выбрать в нём группу "Неподтверждённые" и свойство количество задать равным "1". Также можно разместить кнопку для перехода в меню сообщений. Для этого на событие OnClick можно написать такой скрипт:
Аналогично можно создать кнопки для подтверждения последнего сообщения или всех сообщений, а также кнопки авторизации пользователя.
Вы можете выполнить любой SQL-запрос от таблицы к базе данных и результаты запроса автоматически будут выведены в таблице. Для этого используется процедура RunSQL таблицы. Пример для вашей задачи:Кодvar
aFrom, aTo: TDateTime;
aQuery, aFromStr, aToStr: string;
begin
aTo := Now; // текущее время в переменную aTo
aFrom := IncHour(Now, -6); // 6 часов назад в переменную aFrom
aToStr := MySQLDateTime(aTo, dttFull); // переводим время aTo в строку
aFromStr := MySQLDateTime(aFrom, dttFull); // переводим время aFrom в строку
{ формируем запрос к БД на выборку }
aQuery := 'SELECT * FROM `trends_data` WHERE ' +
'(`id`=' + IntToStr(MyVariable.ID) + ') AND ' +
'(`timestamp` >= ' + aFromStr + ') AND (`timestamp` <= ' + aToStr + ')';
{ выполнить запрос и заполнить таблицу результатом выполнения }
Table1.RunSQL(aQuery, tsAll);
end.
Сначала в переменные aFrom, aTo записывается интервал в последние шесть часов. Затем интервал переводится в строку пригодную для запросов к MySQL. Далее формируется запрос на выборку архивных данных переменной MyVariable за последние шесть часов. Результат выборки отобразится в таблице с именем Table1.
var
aQuery: string;
begin
aQuery := 'SELECT * FROM `par`';
Table2.RunSQL(aQuery, tsAll);
end.