紫金桥报警统计排名功能实现

Doraemon

❈实现方法     

   利用紫金桥内置SQL功能查询指定时间段内的报警并按报警内容分组统计次数，然后再针对结果进行排序输出到表格显示。因为紫金桥是实时数据库而非关系库，内置SQL功能只是为了方便用户查询数据而开发出的转译查询功能，所以只支持简单查询。所以像 “ group by xx order byxx” 就不支持了(不排除后期增加支持)，要不然一条sql查询即可完成报警统计排序功能了。

❈实现脚本

   ①初始化表格，sql查询历史报警

1. ObSql rsql;
   
2. ObTable tab;
   
3. 
   
4. table.RemoveRows(1,table.RowCount());//表格保留一行
   
5. table.ClearContent();//表格初始化,表格保留一行
   
6. 
   
7. rsql.Connect("Local");
   
8. rsql.Query("SELECT Desc,Count(Name) as cnt from hisalarmdata where DateTime>="+ToString(CurTime-3600*8)+" and DateTime<="+ToString(CurTime)+" and ACK=0 group by Desc ",tab);//查询最近8小时内报警统计次数
   
9. rsql.close();

复制代码

sql查询返回的tab内容：



②对tab内容按次数进行排序

• 排序的实现
  

         我能想到好的排序方法是利用数组实现，如果朋友们有更好的实现方式可以私聊告知我一下，到时我再补充到文章中。数组排序有两种，一种是文本型数组按字符串排序，一种是数值型数组按数值排序，两种均可。这里以文本数组排序方式来演示。

         tab表里有2个字段数据，一个是报警内容，一个是报警次数  ，我们要按文本排序，首先就要将两个字段的数据合并成一个字符串，因为要按次数排序，所以次数要放到首位(左边)，其次为报警内容。因为排序后，为了快速从字符串里还原出次数和内容，所以两个数据间加一个特殊符号来分隔( 注意:报警内容里不能含有分隔符号 )，演示脚本以“$”来分隔。所以形成文本格式为 报警次数$报警内容 如：3$液位超限_Err3

1. int i,cnt=tab.GetRowCount();//获得tab里记录数
   
2. 
   
3. if cnt<=0 then  //没有报警返回不继续执行
   
4.    return 0;
   
5. endif
   
6. 
   
7. string desc,almcnt,sbuff[];
   
8. 
   
9. for i=0 to cnt-1
   
10.     desc=tab.Get(i,0);
    
11.     almcnt=tab.Get(i,1);
    
12.     sbuff.add(almcnt+"$"+desc);//拼接文本添加至数组
    
13. next
    
14. 
    
15. ErrorLog("sbuff排序前.log",sbuff);//将数组内容输出到文件
    
16. 
    
17. sbuff.sort(0);//降序
    
18. ErrorLog("sbuff排序后.log",sbuff);

复制代码

tab原始内容   ：

   

拼接添加倒sbuff，排序前：
     

排序后：
        

• 数组数据还原到表格里
  

       通过一个循环依次取出数组里的数据，然后将数据还原赋值到表格即可。

1. table.AddRows(cnt-1,1);//根据记录数添加表格行数
   
2. string arr[];
   
3. //数组遍历
   
4. for i=0 to cnt
   
5.      arr=StrSplit(sbuff[i],"$");//通过分隔符取出报警次数和内容 放到一个数组里
   
6.      table.SetCell(i,0,arr[1]);//向表格单元格 添加报警内容
   
7.      table.SetCell(i,1,arr[0]);//向表格单元格 添加报警数量
   
8. next

复制代码

执行结果：
   
        
❈问题完善   
    细心朋友们会发现上面的排序还是会存在一点bug的，如果数值部分位数不一样会出现排序错误。如【1,12,111,5,33,88,7】降序排序后则为【88,7,5,33,12,111,1】，可以看到顺序明显错误，这是因为文本排序是按字符逐字排序的，所以我们要统一长度，长度不满足的用符号补足即可解决问题。因为是数值，可以按下面方式处理：


完整脚本：

1. ObSql rsql;
   
2. ObTable tab;
   
3. table.RemoveRows(1,table.RowCount());//表格保留一行
   
4. table.ClearContent();//表格初始化,表格保留一行
   
5. 
   
6. rsql.Connect("Local");
   
7. rsql.Query("SELECT Desc,Count(Name) as cnt from hisalarmdata where DateTime>="+ToString(CurTime-3600*8)+" and DateTime<="+ToString(CurTime)+" and ACK=0 group by Desc ",tab);//查询最近8小时内报警统计次数
   
8. rsql.close();
   
9. 
   
10. int i,cnt=tab.GetRowCount();//获得tab里记录数
    
11. 
    
12. if cnt<=0 then  //没有报警返回不继续执行
    
13.    return 0;
    
14. endif
    
15. 
    
16. string desc,almcnt,sbuff[];
    
17. 
    
18. for i=0 to cnt-1
    
19.     desc=tab.Get(i,0);
    
20.     almcnt= ToString(1000000+tab.Get(i,1));
    
21.     sbuff.add(almcnt+"$"+desc);//拼接文本添加至数组
    
22. next
    
23. sbuff.sort(0);//降序
    
24. table.AddRows(cnt-1,1);//根据记录数添加表格行数
    
25. string arr[];
    
26. //数组遍历
    
27. for i=0 to cnt
    
28.      arr=StrSplit(sbuff[i],"$");//通过分隔符取出报警次数和内容 放到一个数组里
    
29.      table.SetCell(i,0,arr[1]);//向表格单元格 添加报警内容
    
30.      table.SetCell(i,1,StrToInt(arr[0])-1000000);//向表格单元格 添加报警数量
    
31. next

复制代码

如果您有更好的方法，欢迎回帖留言，有机会获得积分奖励