报警确认时输入报警信息 |
  
|
报警确认时输入报警信息 |
|
本功能可以实现在确认报警时可以输入确认信息。
报警控件增加事件：confirmalmsevent，用户可以在脚本中相应该事件。
本文以Mysql为例：
首先在数据库中新建一个表，表的列自己确定，以下图为例：
注意：
1.表的列自己确定（注意要包含确认信息项）
2.列的数据类型为varchar(126),数据长度要大于64
在ICV中进行数据库连接，请参照数据库连接设置
在组态画面中加入报警控件，具体操作参照组态中使用报警控件
在组态脚本中以一下代码为例：
Sub page_OnLoad()
alarmreport21.StartRunMode()
End Sub
Sub alarmreport21_ConfirmAlmsEvent()
Dim var
Dim a
Dim b
alarm = InputBox("Enter reason")
DBAccess.SetLocal(1)
DBAccess.SQLConnectEx connectionID, "127.0.0.1@test", "root", "123456", 9, 0, "gbk"
a = connectionID
var=alarmreport21.GetSelectedAlarms
low = LBound(var, 1)
high = UBound(var, 1)
For i = 0 To high
DBAccess.SQLExecute a, "insert into icvalarm(确认时间,确认人,节点名,确认理由) Values("+"'"+var(i,11)+"'"+","+"'"+var(i,11)+"'"+","+"'"+var(i,9)+"'"+","+"'"+alarm+"'"+")"
Next
End Sub
运行时弹出如下窗口：
输入确认信息，点击确定。
打开刚才在数据库中创建好的表格，即可看到输入的确认信息。
