TbtkScriptOperationObject
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
.. pas:class:: TbtkScriptOperationObject
TbtkScriptOperationObject
.. pas:attribute:: Caption: String
Наименование операции.
:rtype: String
.. pas:attribute:: Checked: Boolean
Позволяет установить или снять в меню галочку напротив операции.
:rtype: Boolean
.. pas:attribute:: ImageIndex: Integer
Номер изображения (иконки) ассоциированной с операцией.
:rtype: Integer
.. pas:attribute:: SqlWaitInterval: Integer
Свойство определяет интервал времени (в миллисекундах), в течение
которого приложение будет ожидать завершения выполняющего SQL-блока. По
истечение этого интервала будет отображён модальный диалог с кнопкой
остановки выполнения этого SQL-блока.
По умолчанию: 1000 мс
:rtype: Integer
.. code-block:: delphi
:caption: Пример использования
declare
d Number;
begin
-- Test statements here
select 1 into d
from bs_sex t
where RowNum = 1;
end;
for i := 1 to 1000 do
begin
Selection.Operation.SqlWaitInterval := 2000;
ExecSQL('exec');
end;
.. warning:: |not_implemented|
.. pas:attribute:: Enabled: Boolean
Операция только на чтение. Позволяет проверить состояние после
операции :pas:class:`TbtkScriptSelectionObject.SetCustomDisable`.
Атрибут только для чтения
:rtype: Boolean
.. pas:attribute:: Description: String
Описание операции.
:rtype: String
.. pas:method:: ExecOpScript(Params: Array)
Вызывает операцию на выполнение.
:param Array Params:
Параметры входные паскаль операции которые описываются в теге ````. Параметр необязательный.
.. code-block:: delphi
:caption: Пример использования
// Паскаль операция которую надо вызвать:
result := ('Сумма строк:' + VarToStr(arg1) + VarToStr(arg2);
// У операции есть два входных атрибута.
// Вызвать операцию можно так, передав два входных аргумента:
Op := Selection.OperationByName('TestedOperation');
res := Op.ExecOpScript([' Head', 'Tail']);