intouch制作历史报警查询(时间查询,筛选关键字)

时间:2024-02-29 12:27:32

在项目中,intouch制作历史报警查询已属于标配功能,如何做出按时间以及关键字来进行综合查询,提高历史报警查询效率仍然是一个值得研究的问题,接下来参考网上文章自己总结下如何制作。

1.DTPicker格式制作

首先,时间选择器的安装不再一一演示,(安装32位office系统,从向导中安装date and time picker即可)。然后,选择自定义格式,这里格式十分重要,直接关系到时间查询的准确性(12小时制,24小时制的区别)。

格式如下:yyyy-M-d H:mm:ss

控件时间,设置为上午/下午以区分24小时,时间选择为本地时间。

2020/5/4:备注

%H参数可以直接修改为24小时制

总体效果如下:

2.过滤器编写

过滤器的原理其实很简单,就是利用AlmDbViewCtrl控件本身自带的过滤器属性进行XML文档配置,然后再后台拼凑去过滤器的格式,填充好相应的查询关键字内容即可。

1.首先,编辑好过滤器路径和文件

C:\Program Files (x86)\Wonderware\InTouch\test.xml

2.查看文件格式和内容,试着手动新建一个看看格式。

3.可以利用自定义函数去拼凑相应格式,填写相应内容。

编写quickfunction函数:ALMFILTERSEARCH

FileDelete("C:\Program Files (x86)\Wonderware\InTouch\test.xml");
FileWriteMessage( "C:\Program Files (x86)\Wonderware\InTouch\test.xml",0, HIST_XMLCODE +"<FILTER_FAVORITES><RECORD><FILTERNAME>MYFILTER</FILTERNAME><ELEMENT>", 0 );
IF HIST_SEARCHINDEX == 1 THEN
    FileWriteMessage( "C:\Program Files (x86)\Wonderware\InTouch\test.xml",-1, "<NAME>名称</NAME><ORIGNAME>Name</ORIGNAME><OPERATOR>LIKE</OPERATOR><VALUE>%"+CONDITION+"%</VALUE><PARENT>0</PARENT>", 0);
ELSE 
    FileWriteMessage( "C:\Program Files (x86)\Wonderware\InTouch\test.xml",-1, "<NAME>报警注释</NAME><ORIGNAME>Alarm Comment</ORIGNAME><OPERATOR>LIKE</OPERATOR><VALUE>%"+CONDITION+"%</VALUE><PARENT>0</PARENT>", 0);  
ENDIF;
FileWriteMessage( "C:\Program Files (x86)\Wonderware\InTouch\test.xml", -1, "</ELEMENT></RECORD></FILTER_FAVORITES>", 0 );
#AlmDbViewCtrl1.FilterFavoritesFile = "C:\Program Files (x86)\Wonderware\InTouch\test.xml";

其中:HIST_XMLCODE为内存消息,存放xml头部消息(<?xml version="1.0" encoding="GB2312"?>)

HIST_SEARCHINDEX为内存整型,单选按钮选择状态(选择标记名为1)

CONDITION为内存消息,此处为查询的关键字内容。

3.脚本编写

脚本的话,主要分为窗口脚本,以及查询按钮脚本。窗口脚本主要用于填写显示时,初始化脚本。查询则为点击查询时,所约束的时间和过滤器内容。

窗口脚本:规定默认时间选择当天一天时间,历史报警也显示为该天中所有报警信息。

#DTPicker1.value = $DateString+" "+ "00:00:00";
#DTPicker2.value = $DateString+"  "+"23:59:59";
#AlmDbViewCtrl1.SpecificTime = 1;
#AlmDbViewCtrl1.StartTime = StringMid(#DTPicker1.value,6,2) + "/" + StringMid(#DTPicker1.value,9,2) + "/" + StringMid(#DTPicker1.value,1,4) + " "+ StringMid(#DTPicker1.value,13,2) + StringMid(#DTPicker1.value,16,2) +StringMid(#DTPicker1.value,19,2) ;
#AlmDbViewCtrl1.EndTime = StringMid(#DTPicker2.value,6,2) + "/" + StringMid(#DTPicker2.value,9,2) + "/" + StringMid(#DTPicker2.value,1,4) + " " + StringMid(#DTPicker2.value,13,2) + StringMid(#DTPicker2.value,16,2) +StringMid(#DTPicker2.value,19,2) ;
#AlmDbViewCtrl1.Refresh();

2020/5/4:备注

上述脚本在实际过程中存在小bug,会跳出月/日或年不对的问题,怀疑是03此类月份,和3月有写法上的不同,特此修改。

#DTPicker1.value = $DateString+" "+ "00:00:00";
#DTPicker2.value = $DateString+"  "+"23:59:59";
#AlmDbViewCtrl1.SpecificTime = 1;
#AlmDbViewCtrl1.StartTime=#DTPicker1.Month+ "/"+ #DTPicker1.Day+"/"+#DTPicker1.Year +" " + #DTPicker1.Hour+ ":"+ #DTPicker1.Minute+":"+#DTPicker1.Second;
#AlmDbViewCtrl1.EndTime=#DTPicker2.Month + "/"+ #DTPicker2.Day+"/"+#DTPicker2.Year +" " + #DTPicker2.Hour+ ":"+ #DTPicker2.Minute+":"+ #DTPicker2.Second;
#AlmDbViewCtrl1.Refresh();

查询脚本:条件判断,和调用quickfunctions函数建立过滤器判断。

#AlmDbViewCtrl1.StartTime=#DTPicker1.Month+ "/"+ #DTPicker1.Day+"/"+#DTPicker1.Year +" " + #DTPicker1.Hour+ ":"+ #DTPicker1.Minute+":"+#DTPicker1.Second;
#AlmDbViewCtrl1.EndTime=#DTPicker2.Month + "/"+ #DTPicker2.Day+"/"+#DTPicker2.Year +" " + #DTPicker2.Hour+ ":"+ #DTPicker2.Minute+":"+ #DTPicker2.Second;
#AlmDbViewCtrl1.GroupName = "$SYSTEM";

IF CONDITION <> "" THEN
CALL ALMFILTERSEARCH(CONDITION);
#AlmDbViewCtrl1.ShowFilter();

ELSE

#AlmDbViewCtrl1.Refresh();

ENDIF;

 

4.演示效果

5.总结

基本功能已经实现,在实际使用过程中若是还存在问题,再后续补充。