在近期项目完成后,有遇到情况:类似于语音报警后,中控室人员未及时报告给我们造成了事件的危害升级,以及造成很不好的影响.针对这个情况特此添加语音报警后,自动发送邮件提醒,完善现有的报警机制. 1.函数编写(选自网友脚本) Option Explicit '需要引用 Microsoft CDO for Windows 2000 Library和 Microsoft ActiveX Data Objects 2.5 Library Public Function SendMail(ByVal strF
在语音模块嵌入了半年左右的时间,经过实际使用发现,代码冗余,重复太多,维护较难,新增也不易,故而对整个框架进行整理,实现简单添加,维护容易的目的. 1.代码优化 1.1构建自定义过程 name 参数代表设备名 tt代表要打开的画面名(故障画面/报警画面) sqll代表要存入数据库的内容(故障/报警) Public Sub Sound(ByVal name As String, ByVal tt As String, ByVal sql As String) On Error Resume Nex
在我的先前一篇关于语音报警系统制作的文章中,阐述了如何通过标签组来获得@name@的详细内容,以通过这种方式来进行详细的设备故障播报.经过一段时间的试运行,发现使用标签组的方式会产生较大的耦合,(即当标签组内容或者脚本内容发生错误时,脚本会弹出错误,妨碍了其他脚本的执行) 于是,在现场将所有的绑定标签组的报警脚本修改为直接传参到全局变量,实现解耦. 1.后台调度修改: Private Sub FixEvent2_WhileTrue() '将全局变量PicNumBer赋值为所需要报警的设备名称 D
在项目中,intouch制作历史报警查询已属于标配功能,如何做出按时间以及关键字来进行综合查询,提高历史报警查询效率仍然是一个值得研究的问题,接下来参考网上文章自己总结下如何制作. 1.DTPicker格式制作 首先,时间选择器的安装不再一一演示,(安装32位office系统,从向导中安装date and time picker即可).然后,选择自定义格式,这里格式十分重要,直接关系到时间查询的准确性(12小时制,24小时制的区别). 格式如下:yyyy-M-d H:mm:ss 控件时间,设置为