iCentroview系统的配置 > 配置客户端 > 服务端配置 > SCADA节点总览配置 > 联动配置

示例画面下载

联动历史事件查询接口：

u获取scada节点名

VARIANT GetScadaNames()

说明：获取scada节点名

参数说明：

返回值：scada节点的数组

代码示例：

在HisCRSEvent.bsp的画面中，在绘图->特殊对象->Windows标准控件中选择一个组合框ComboBoxScadaName添加到画面中，在脚本编辑器中编辑如下：

Sub page_OnLoad()

ComboBoxScadaName.RemoveAllLines

scadanames = CRSEventQuery.GetScadaNames()

count = UBound(scadanames)

For i = 0 To count

ComboBoxScadaName.AddLine scadanames(i)

End Sub

运行HisCRSEvent.bsp画面，获取系统中的scada节点名并显示在ComboBoxScadaName中。

u设置查询条件：触发源名称

VARIANT SetQueryConditionTriggerName(const VARIANT VarTriggerName)

说明：设置触发源名称的查询条件

参数说明：

VarTriggerName：触发源名称

返回值：成功返回0，否则返回错误码

代码示例：

在HisCRSEvent.bsp的画面中,往画面中添加一个ButtonQuery按钮，在脚本编辑器中编辑如下：

Sub ButtonQuery_OnClick()

currtriggername= EditTriggerName.WindowText()

lret = CRSEventQuery.SetQueryConditionTriggerName(currtriggername)

If lret <> 0 Then

Exit Sub

End If

End Sub

运行HisCRSEvent.bsp画面，单击ButtonQuery按钮，该函数将触发源名称加入查询条件中。

u设置查询条件：操作者

VARIANT SetQueryConditionOperator (const VARIANT VarOperator)

说明：设置操作者的查询条件

参数说明：

VarOperator：操作者

返回值：成功返回0，否则返回错误码

代码示例：

在HisCRSEvent.bsp的画面中,往画面中添加一个ButtonQuery按钮，在脚本编辑器中编辑如下：

Sub ButtonQuery_OnClick()

curroperator= EditOperator.WindowText()

lret = CRSEventQuery.SetQueryConditionOperator (curroperator)

If lret <> 0 Then

Exit Sub

End If

End Sub

运行HisCRSEvent.bsp画面，单击ButtonQuery按钮，该函数将操作者名称加入查询条件中。

u设置查询条件：触发源类型

VARIANT SetQueryConditionTriggerType(const VARIANT VarTriggerType)

说明：设置触发源类型的查询条件

参数说明：

VarTriggerType：触发源类型

返回值：成功返回0，否则返回错误码

代码示例：

在HisCRSEvent.bsp的画面中,往画面中添加一个ButtonQuery按钮，在脚本编辑器中编辑如下：

Sub ButtonQuery_OnClick()

currtriggertype= EditTriggerType.WindowText()

lret = CRSEventQuery.SetQueryConditionTriggerType(currtriggertype)

If lret <> 0 Then

Exit Sub

End If

End Sub

运行HisCRSEvent.bsp画面，单击ButtonQuery按钮，该函数将触发源类型加入查询条件中。

u设置查询条件：触发源状态

VARIANT SetQueryConditionTriggerStatus(const VARIANT VarTriggerStatus)

说明：设置触发源类型的查询条件

参数说明：

VarTriggerStatus：触发源状态

返回值：成功返回0，否则返回错误码

代码示例：

在HisCRSEvent.bsp的画面中,往画面中添加一个ButtonQuery按钮，在脚本编辑器中编辑如下：

Sub ButtonQuery_OnClick()

currtriggerstatus= EditTriggerStatus.WindowText()

lret = CRSEventQuery.SetQueryConditionTriggerStatus(currtriggerstatus)

If lret <> 0 Then

Exit Sub

End If

End Sub

运行HisCRSEvent.bsp画面，单击ButtonQuery按钮，该函数将触发源状态加入查询条件中。

u设置查询条件：起始和终止时间

VARIANT SetQueryCondition TriggerTime(const VARIANT TimeStart, const VARIANT TimeEnd)

说明：设置起始和终止时间的查询条件

参数说明：

TimeStart：起始时间

TimeEnd：终止时间

返回值：成功返回0，否则返回错误码

代码示例：

在HisCRSEvent.bsp的画面中加载两个iCentroView DateTimeCtrlOcx Contro控件，分别作为DATATIMECTRLOCX_start和DATATIMECTRLOCX_end。往画面中添加一个ButtonQuery按钮，在脚本编辑器中编辑如下：

Sub ButtonQuery_OnClick()

Timestart = DATATIMECTRLOCX_start.GetTime

Timeend = DATATIMECTRLOCX_end.GetTime

lret = EAHISEVENT36.SetQueryConditionTriggerTime(Timestart, Timeend)

If lret <> 0 Then

Exit Sub

End If

End Sub

运行HisCRSEvent.bsp画面，单击ButtonQuery按钮，该函数将起始和终止时间加入查询条件中。

u设置保存的xml文件名称

VARIANT SaveQueryResult (const VARIANT XmlName)

说明：设置保存的xml文件名称

参数说明：

XmlName：保存的xml文件名称

返回值：成功返回0，否则返回错误码

代码示例：

在HisCRSEvent.bsp的画面中,往画面中添加一个ButtonQuery按钮，在脚本编辑器中编辑如下：

Sub ButtonQuery_OnClick()

projectpath = sys.GetProjectPath

xmlPath = projectpath + "data\" + "EventAlarm\" + "CRSResult.xml"

lret = CRSEventQuery.SaveQueryResult(xmlPath)

If lret <> 0 Then

Exit Sub

End If

End Sub

运行HisCRSEvent.bsp画面，单击ButtonQuery按钮，该函数将查询结果保存到xmlPath文件中。

u设置xml文件的显示风格

VARIANT SetViewStyle (const VARIANT XmlName，const VARIANT XsltName)

说明：设置xml文件的显示风格

参数说明：

XmlName：保存的xml文件名称

XsltName：显示风格xslt的名称

返回值：成功返回0，否则返回错误码

代码示例：

在HisCRSEvent.bsp的画面中,往画面中添加一个ButtonQuery按钮，在脚本编辑器中编辑如下：

Sub ButtonQuery_OnClick()

projectpath = sys.GetProjectPath

xmlPath = projectpath + "data\" + "EventAlarm\" + "CRSResult.xml"

lret = CRSEventQuery.SaveQueryResult(xmlPath)

xsltPath = projectpath + "config\" + "crs-report-t.xslt"

CRSEventQuery.SetViewStyle xmlPath, xsltPath

End Sub

运行HisCRSEvent.bsp画面，单击ButtonQuery按钮，该函数将指定特定风格的xslt文件。

联动历史及相关接口

联动历史及相关接口