Navigation:  iCentroview系统的配置 > 配置客户端 > 服务端配置 > SCADA节点总览配置 > 报警服务 > 在组态中查看历史报警 > 历史报警查询接口

u获取scada节点名

u获取子系统节点名

u获取报警区域名

u获取报警类型名

u获取需要排序的列名

u获取排序方式

u设置scada节点名的查询条件

u设置子系统名的查询条件

u设置变量名的查询条件

u设置变量描述的查询条件

u设置报警区域的查询条件

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

u设置排序方式的查询条件

u设置报警状态的查询条件

u报警类型

u报警优先级

u设置每页查询条数

u设置跳转页数

u设置总页数

u获取每页显示记录条数

u获取跳转页数

u获取总页数

u设置后台页数变量

u设置历史报警控件字体

u获取符合条件的记录总数（返回是否成功）

u获取符合条件的记录总数（返回记录数）

u查询历史报警记录

u显示历史报警记录

u导出历史报警记录

u跳转至某页按钮响应函数

u下一页按钮响应函数

u上一页按钮响应函数

u清空表格

u替换某列的内容

 

---

u获取scada节点名

 

VARIANT GetScadaNames()

说明:获取scada节点名

 

返回值：scada节点的数组

 

举例：

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

Sub page_OnLoad()

     EAHISALARM36.StartRunMode

 

     ComboBoxScadaName.RemoveAllLines

     scadanames = EAHISALARM36.GetScadaNames()

     count = UBound(scadanames)

     For i = 0 To count

     ComboBoxScadaName.AddLine scadanames(i)

     Next

End Sub

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

 

u获取子系统节点名

 

VARIANT GetSubSysNames(const VARIANT FAR&vScadaName)

说明：获取子系统节点名

 

参数：scada节点名

返回值：子系统名的数组

 

举例：

在HisAlarm.bsp的画面中加载一个iCentroView EAHisAlarm Control控件EAHISALARM36，在绘图->特殊对象->Windows标准控件中选择一个组合ComboBoxSubSys添加到画面中，在脚本编辑器中编辑如下：

Sub ComboBoxScadaName_OnChange()

      currscadaname = ComboBoxScadaName.GetCurLine()

 

      subsys = EAHISALARM36.GetSubSysNames(currscadaname)

      ComboBoxSubSys.RemoveAllLines

      count = UBound(subsys)

      For i = 0 To count

      ComboBoxSubSys.AddLine subsys(i)

Next

End Sub

运行HisAlarm.bsp画面，从scada下拉框中选择一个节点，该函数获取系统中的子系统名并显示在ComboBoxSubSys中。

 

u获取报警区域名

 

VARIANT GetAlarmAreas(const VARIANT FAR&vScadaName)

说明：获取报警区域名

 

参数：scada节点名

返回值：报警区域的数组

 

举例：

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

Sub ComboBoxScadaName_OnChange()

      currscadaname = ComboBoxScadaName.GetCurLine()

 

      alarmarea = EAHISALARM36.GetAlarmAreas(currscadaname)

      ComboBoxAlarmArea.RemoveAllLines  

      count = UBound(alarmarea)

      For i = 0 To count

      ComboBoxAlarmArea.AddLine alarmarea(i)

      Next

End Sub

运行HisAlarm.bsp画面，从scada下拉框中选择一个节点，该函数获取系统中的报警区域名并显示在ComboBoxAlarmArea中。

 

u获取报警类型名

 

VARIANT GetAlarmTypes()

说明：获取报警类型名

 

返回值：报警类型的数组

 

举例：

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

Sub ComboBoxScadaName_OnChange()

      alarmtype = EAHISALARM36.GetAlarmTypes()

      ComboBoxAlarmType.RemoveAllLines  

      count = UBound(alarmtype)

      For i = 0 To count

      ComboBoxAlarmType.AddLine alarmtype(i)

      Next

End Sub

运行HisAlarm.bsp画面，从scada下拉框中选择一个节点，该函数获取系统中的报警区域名并显示在ComboBoxAlarmType中。

 

u获取需要排序的列名

 

VARIANT GetColumnNames()

说明：获取需要排序的列名

 

返回值：列名的数组

 

举例：

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

Sub ComboBoxScadaName_OnChange()

      columnname = EAHISALARM36.GetColumnNames()

      ComboBoxColumnName.RemoveAllLines

      count = UBound(columnname)

      For i = 0 To count

     ComboBoxColumnName.AddLine columnname(i)

     Next

End Sub

运行HisAlarm.bsp画面，从scada下拉框中选择一个节点，该函数获取系统中的列名并显示在ComboBoxColumnName中。

 

u获取排序方式

 

VARIANT GetSortStyles()

说明：获取排序方式

 

返回值：列名的数组

 

举例：

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

Sub ComboBoxScadaName_OnChange()

      sortstyle = EAHISALARM36.GetSortStyles()

      ComboBoxSortStyle.RemoveAllLines

      count = UBound(sortstyle)

      For i = 0 To count

      ComboBoxSortStyle.AddLine sortstyle(i)

      Next

 

End Sub

运行HisAlarm.bsp画面，从scada下拉框中选择一个节点，该函数获取系统中的排序方式并显示在ComboBoxSortStyle中。

 

u设置scada节点名的查询条件

 

VARIANT SetQueryConditionScadaName(const VARIANT FAR&vScadaName)

说明：设置scada节点名的查询条件。查询过程必须调用此函数，用以后台创建查询句柄。

 

参数：scada节点名

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

 

举例：

在HisAlarm.bsp的画面中加载一个iCentroView EAHisAlarm Control控件EAHISALARM36，往画面中添加一个ButtonQuery按钮，在脚本编辑器中编辑如下:

Sub ButtonQuery_OnClick()

     currscadaname = ComboBoxScadaName.WindowText()

     lret = EAHISALARM36.SetQueryConditionScadaName(currscadaname)

     If lret <> 0 Then

     Exit Sub

     End If

End Sub

运行HisAlarm.bsp画面，单击ButtonQuery按钮，该函数创建查询句柄，并将scada节点名加入查询条件中。该函数通常用于查询历史报警过程。

 

u设置子系统名的查询条件

 

VARIANT SetQueryConditionSubSysName(const VARIANT FAR&vSubSysName)

说明：设置子系统名的查询条件

 

参数：子系统名

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

 

举例：

在HisAlarm.bsp的画面中加载一个iCentroView EAHisAlarm Control控件EAHISALARM36，往画面中添加一个ButtonQuery按钮，在脚本编辑器中编辑如下：

Sub ButtonQuery_OnClick()

     subsys = ComboBoxSubSys.WindowText()

     lret = EAHISALARM36.SetQueryConditionSubSysName(subsys)

     If lret <> 0 Then

     Exit Sub

     End If

End Sub

运行HisAlarm.bsp画面，单击ButtonQuery按钮，该函数将子系统名加入查询条件中。该函数通常用于查询历史报警过程。

 

u设置变量名的查询条件

 

VARIANT SetQueryConditionVarName(const VARIANT FAR&vVarName)

说明：设置变量名的查询条件

 

参数：变量名

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

 

举例：

在HisAlarm.bsp的画面中加载一个iCentroView EAHisAlarm Control控件EAHISALARM36，往画面中添加一个ButtonQuery按钮，在脚本编辑器中编辑如下：

Sub ButtonQuery_OnClick()

      varname = EditVarName.WindowText()

      lret = EAHISALARM36.SetQueryConditionVarName(varname)

      If lret <> 0 Then

      Exit Sub

      End If

End Sub

运行HisAlarm.bsp画面，单击ButtonQuery按钮，该函数将变量名加入查询条件中。该函数通常用于查询历史报警过程。

 

u设置变量描述的查询条件

 

VARIANT SetQueryConditionVarDiscribeName( const VARIANT FAR&vDiscribeName)

说明：设置变量描述的查询条件

 

参数：变量描述

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

 

举例：

在HisAlarm.bsp的画面中加载一个iCentroViewEAHisAlarmControl控件EAHISALARM36，往画面中添加一个ButtonQuery按钮，在脚本编辑器中编辑如下：

Sub ButtonQuery_OnClick()

      vardiscribe = EditVarDiscribe.WindowText()

      lret = EAHISALARM36.SetQueryConditionVarDiscribeName(vardiscribe)

      If lret<> 0 Then

      Exit Sub

      End If

End Sub

运行HisAlarm.bsp画面，单击ButtonQuery按钮，该函数将变量描述加入查询条件中。该函数通常用于查询历史报警过程。

 

u设置报警区域的查询条件

 

VARIANT SetQueryConditionAlarmArea(const VARIANT FAR&vAlarmArea)

说明：设置报警区域的查询条件

 

参数：报警区域

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

 

举例：

在HisAlarm.bsp的画面中加载一个iCentroView EAHisAlarm Control控件EAHISALARM36，往画面中添加一个ButtonQuery按钮，在脚本编辑器中编辑如下：

Sub ButtonQuery_OnClick()

     alarmarea = ComboBoxAlarmArea.WindowText()

     lret = EAHISALARM36.SetQueryConditionAlarmArea(alarmarea)

     If lret <> 0 Then

     Exit Sub

     End If

End Sub

运行HisAlarm.bsp画面，单击ButtonQuery按钮，该函数将报警区域加入查询条件中。该函数通常用于查询历史报警过程。

 

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

 

VARIANT SetQueryConditionTime(const VARIANT FAR&vTimeStart, const VARIANT FAR&vTimeEnd)

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

 

参数：起始时间，终止时间

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

 

举例：

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

Sub ButtonQuery_OnClick()

      Timestart = DATATIMECTRLOCX_start.GetTime

      Timeend = DATATIMECTRLOCX_end.GetTime

      lret = EAHISALARM36.SetQueryConditionTime(Timestart, Timeend)

      If lret <> 0 Then

      Exit Sub

      End If

End Sub

运行HisAlarm.bsp画面，单击ButtonQuery按钮，该函数将起始和终止时间加入查询条件中。该函数通常用于查询历史报警过程。

 

u设置排序方式的查询条件

 

VARIANT SetQueryConditionOrderingRules(const VARIANT FAR&vColumnName,  const VARIANT FAR&vSortStyle)

说明：设置排序方式的查询条件

 

参数：列名，排序方式

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

 

举例：

在HisAlarm.bsp的画面中加载一个iCentroView EAHisAlarm Control控件EAHISALARM36。往画面中添加一个ButtonQuery按钮，在脚本编辑器中编辑如下：

Sub ButtonQuery_OnClick()

      columnname = ComboBoxColumnName.WindowText()

      sortstyle = ComboBoxSortStyle.WindowText()

      lret=EAHISALARM36.SetQueryConditionOrderingRules(columnname,sortstyle)

      If lret <> 0 Then

      Exit Sub

      End If

End Sub

运行HisAlarm.bsp画面，单击ButtonQuery按钮，该函数将排序方式加入查询条件中。该函数通常用于查询历史报警过程。

 

u报警类型

 

VARIANT SetQueryConditionAlarmType(const VARIANT FAR&vAlarmType)

说明：设置报警类型的查询条件

 

参数：报警类型

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

 

举例：

在HisAlarm.bsp的画面中加载一个iCentroView EAHisAlarm Control控件EAHISALARM36，往画面中添加一个ButtonQuery按钮，在脚本编辑器中编辑如下：

Sub ButtonQuery_OnClick()

      alarmtype = ComboBoxAlarmType.WindowText()

      lret = EAHISALARM36.SetQueryConditionAlarmType(alarmtype)

      If lret <> 0 Then

      Exit Sub

      End If

End Sub

运行HisAlarm.bsp画面，单击ButtonQuery按钮，该函数将报警类型加入查询条件中。该函数通常用于查询历史报警过程。

 

u报警优先级

 

VARIANT SetQueryConditionPriority(const VARIANT FAR&vPriorityStart, const VARIANT FAR&vPriorityEnd)

说明：设置报警类型的查询条件

 

参数：优先级起始值，优先级终止值

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

 

举例：

在HisAlarm.bsp的画面中加载一个iCentroView EAHisAlarm Control控件EAHISALARM36，往画面中添加一个ButtonQuery按钮，在脚本编辑器中编辑如下：

Sub ButtonQuery_OnClick()

      prioritystart = EditPriorityStart.WindowText()

      priorityend = EditPriorityEnd.WindowText()

      If IsNumeric(prioritystart) <> True or  IsNumeric(priorityend) <> True Then

      MsgBox "请输入数字。"  

      Exit Sub

      End If

      If prioritystart < 0 Or prioritystart > 255 Or priorityend < 0 Or priorityend > 255 Then

      Exit Sub

      MsgBox "优先级应在0到255之间"

End If

      lret = EAHISALARM36.SetQueryConditionPriority(prioritystart, priorityend)

      If lret <> 0 Then

      Exit Sub

      End If

End Sub

运行HisAlarm.bsp画面，单击ButtonQuery按钮，该函数将优先级情况加入查询条件中。该函数通常用于查询历史报警过程。

 

u设置每页查询条数

 

VARIANT SetCountPageNum(const VARIANT FAR&vCountPageNum)

说明：设置每页查询条数，将页面值传入查询过程

 

参数：每页查询条数

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

 

举例：

在HisAlarm.bsp的画面中加载一个iCentroView EAHisAlarm Control控件EAHISALARM36，往画面中添加一个ButtonQuery按钮，在脚本编辑器中编辑如下：

Sub ButtonQuery_OnClick()

     CountPageNum = EditCountPerPage.WindowText()

     lret = EAHISALARM36.SetCountPageNum(CountPageNum)

     If lret <> 0 Then

     Exit Sub

     End If

End Sub

运行HisAlarm.bsp画面，单击ButtonQuery按钮，该函数获取页面上的每页查询条数并将其加入查询过程中。该函数通常用于查询历史报警过程。

 

u设置跳转页数

 

void SetJumpPageNum(const VARIANT FAR&vJumpPageNum)

说明：设置跳转页数，将页面值传入查询过程

 

参数：跳转页数

 

举例：

在HisAlarm.bsp的画面中加载一个iCentroView EAHisAlarm Control控件EAHISALARM36，往画面中添加一个ButtonQuery按钮，在脚本编辑器中编辑如下：

Sub ButtonQuery_OnClick()

      JumpPage = EditJumpPage.WindowText()

      EAHISALARM36.SetJumpPageNum(JumpPage)

End Sub

运行HisAlarm.bsp画面，单击ButtonQuery按钮，该函数获取页面上的跳转页数并将其加入查询过程中。该函数通常用于查询历史报警过程。

 

u设置总页数

 

void SetTotalPageNum(const VARIANT FAR&vTotalPageNum)

说明：设置总页数，将页面值传入查询过程

 

参数：总页数

 

举例：

在HisAlarm.bsp的画面中加载一个iCentroView EAHisAlarm Control控件EAHISALARM36，往画面中添加一个ButtonQuery按钮，在脚本编辑器中编辑如下：

Sub ButtonQuery_OnClick()

     TotalPage = EditTotalPage.WindowText()

      EAHISALARM36.SetTotalPageNum(TotalPage)

End Sub

运行HisAlarm.bsp画面，单击ButtonQuery按钮，该函数获取页面上的总页数并将其加入查询过程中。该函数通常用于查询历史报警过程。

 

u获取每页显示记录条数

 

VARIANT GetCountPageNum()

说明：从后台获取每页显示记录条数

 

返回值：每页显示记录条数

 

举例：

在HisAlarm.bsp的画面中加载一个iCentroView EAHisAlarm Control控件EAHISALARM36，往画面中添加一个ButtonQuery按钮，在脚本编辑器中编辑如下：

Sub ButtonQuery_OnClick()

     CountPageNum = EAHISALARM36.GetCountPageNum()

     EditCountPerPage.WindowText(CountPageNum)

End Sub

运行HisAlarm.bsp画面，单击ButtonQuery按钮，该函数获取后台的每页显示记录条数并将其显示到界面上。

 

u获取跳转页数

 

VARIANT GetJumpPageNum()

说明：从后台获取跳转页数

 

返回值：跳转页数

 

举例：

在HisAlarm.bsp的画面中加载一个iCentroView EAHisAlarm Control控件EAHISALARM36，往画面中添加一个ButtonQuery按钮，在脚本编辑器中编辑如下：

Sub ButtonQuery_OnClick()

     JumpPage = EAHISALARM36.GetJumpPageNum

     EditJumpPage.WindowText(JumpPage)

End Sub

运行HisAlarm.bsp画面，单击ButtonQuery按钮，该函数获取后台的跳转页数并将其显示到界面上。

 

u获取总页数

 

VARIANT GetTotalPageNum()

说明：从后台获取总页数

 

返回值：返回总页数

 

举例：

在HisAlarm.bsp的画面中加载一个iCentroView EAHisAlarm Control控件EAHISALARM36，往画面中添加一个ButtonQuery按钮，在脚本编辑器中编辑如下：

Sub ButtonQuery_OnClick()

     TotalPage =  EAHISALARM36.GetTotalPageNum

     EditTotalPage.WindowText(TotalPage)

 

End Sub

运行HisAlarm.bsp画面，单击ButtonQuery按钮，该文本框显示总的页数。

 

u设置后台页数变量

 

Void SetPageCount()

说明：设置后台页数变量，用于查询历史记录过程，GetTotalAlarmCount函数之后。

 

举例：

在HisAlarm.bsp的画面中加载一个iCentroView EAHisAlarm Control控件EAHISALARM36，往画面中添加一个ButtonQuery按钮，在脚本编辑器中编辑如下：

Sub ButtonQuery_OnClick()

     EAHISALARM36.SetPageCount

End Sub

运行HisAlarm.bsp画面，单击ButtonQuery按钮，该函数设置后台页数变量。

 

u设置历史报警控件的字体

QVariant SetSysFont（VARIANT varFamily, VARIANT varHeight, VARIANT varBold, VARIANT varItalic）

 

变量描述：

varFamily：字体，如："微软雅黑"

varHeight：字高，如：18

varBold：1为加粗，0为不加粗

varItalic：1为倾斜，0为不倾斜

 

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

EAHISALARM36.SetSysFont "微软雅黑",24,1,1

End Sub

运行a.bsp画面，点击按钮Button1，报警历史控件的字体变为：微软雅黑，24号字，粗斜体。

 

u获取符合条件的记录总数 （返回是否成功）

 

VARIANT GetTotalAlarmCount()

说明：获取符合条件的记录总数，用于查询历史记录过程，设置过查询条件之后、

 

返回值：返回是否成功，0为成功

 

举例：

在HisAlarm.bsp的画面中加载一个iCentroView EAHisAlarm Control控件EAHISALARM36，往画面中添加一个ButtonQuery按钮，在脚本编辑器中编辑如下：

Sub ButtonQuery_OnClick()

    ‘设置查询条件略

     lret = EAHISALARM36.GetTotalAlarmCount()

     If lret <> 0 Then

     Exit Sub

     End If

End Sub

运行HisAlarm.bsp画面，单击ButtonQuery按钮，该函数获取报警总数，并存入后台变量。

 

u获取符合条件的记录总数 （返回总的记录数）

 

VARIANT GetTotalAlarmCount(-1)

说明：获取符合条件的记录总数，用于查询历史记录过程，设置过查询条件之后、

 

返回值：符合条件的记录总数

 

举例：

在HisAlarm.bsp的画面中加载一个iCentroView EAHisAlarm Control控件EAHISALARM36，往画面中添加一个ButtonQuery按钮，在脚本编辑器中编辑如下：

Sub ButtonQuery_OnClick()

    ‘设置查询条件略

     lret = EAHISALARM36.GetTotalAlarmCount()

     msgbox lret

End Sub

运行HisAlarm.bsp画面，单击ButtonQuery按钮，该函数获取报警总数，显示在弹出的提示框中。

u查询历史报警记录

 

VARIANT QueryPageAlarm()

说明：查询历史报警记录，用于查询历史记录过程。

 

返回值：正确返回０，错误返回错误码

 

举例：

在HisAlarm.bsp的画面中加载一个iCentroView EAHisAlarm Control控件EAHISALARM36，往画面中添加一个ButtonQuery按钮，在脚本编辑器中编辑如下：

Sub ButtonQuery_OnClick()

   ‘设置查询条件

   ‘获取界面值并存入后台

   ‘获取报警总数

   ‘设置查询页数

   ‘获取后台值并显示在界面

    lret = EAHISALARM36.QueryPageAlarm()

    If lret <> 0 Then

    Exit Sub

    End If

End Sub

运行HisAlarm.bsp画面，单击ButtonQuery按钮，该函数查询报警，并存入后台变量。用于后续显示。

 

u显示历史报警记录

 

Void DisplayCurPageAlarm()

说明：显示历史报警记录，用于查询历史记录过程。

 

举例：

在HisAlarm.bsp的画面中加载一个iCentroView EAHisAlarm Control控件EAHISALARM36，往画面中添加一个ButtonQuery按钮，在脚本编辑器中编辑如下：

Sub ButtonQuery_OnClick()

'设置查询条件

'获取界面值并存入后台

'获取报警总数

'设置查询页数

'获取后台值并显示在界面

'查询历史报警记录

  EAHISALARM36.DisplayCurPageAlarm

End Sub

运行HisAlarm.bsp画面，单击ButtonQuery按钮，该函数查询报警，并存入后台变量。用于后续显示。

 

u导出历史报警记录

 

Void ReturnQueryResult(nStartNum,nExportNum,arrayResult)

说明：将查询到的字符串存储到arrayResult中

 

参数说明：

nStartNum：导出的起始记录

nExportNum：导出的总记录数

arrayResult：存储导出结果的二维数组

 

举例：

在HisAlarm.bsp的画面中加载一个iCentroView EAHisAlarm Control控件EAHISALARM36，往画面中添加一个ButtonQuery按钮，在脚本编辑器中编辑如下：

Sub ButtonQuery_OnClick()

 

 dim arrayResult

  '设置查询条件

  '获取报警总数

  '导出历史报警记录

  EAHISALARM36.ReturnQueryResult 0,5,arrayResult

 

 Dim max1

  max1= UBound(arrayResult,1)

  Dim max2

  max2=UBound(arrayResult,2)

  Dim resultstring

  resultstring=""

  Dim i

  Dim j

  For i=0 to max1

      For j=0 to max2

          resultstring=resultstring&","&returnresult(i,j)

           Next

      resultstring=resultstring&vbCrLf&vbCrLf

  Next

 msgbox resultstring

End Sub

运行HisAlarm.bsp画面，单击ButtonQuery按钮，该函数查询报警，并将前五条记录显示在弹出框中。

 

u跳转至某页按钮响应函数

 

void OnButtonJumptoPage()

说明：跳转至某页按钮响应函数

 

举例：

在HisAlarm.bsp的画面中加载一个iCentroView EAHisAlarm Control控件EAHISALARM36，往画面中添加一个ButtonJump按钮，在脚本编辑器中编辑如下：

Sub ButtonJump_OnClick()

     JumpPage = EditJumpPage.WindowText()

     EAHISALARM36.SetJumpPageNum(JumpPage)

 

     EAHISALARM36.OnButtonJumptoPage

 

     JumpPage = EAHISALARM36.GetJumpPageNum

     EditJumpPage.WindowText(JumpPage)

 

     TotalPage =  EAHISALARM36.GetTotalPageNum

     EditTotalPage.WindowText(TotalPage)

End Sub

运行HisAlarm.bsp画面，单击ButtonJump按钮，跳转至规定页数。

 

u下一页按钮响应函数

 

void OnButtonNextPage()

说明：下一页按钮响应函数

 

举例：

在HisAlarm.bsp的画面中加载一个iCentroView EAHisAlarm Control控件EAHISALARM36，往画面中添加一个ButtonPageUp按钮，在脚本编辑器中编辑如下：

Sub ButtonPageDown_OnClick()

     EAHISALARM36.OnButtonNextPage

     JumpPage = EAHISALARM36.GetJumpPageNum

     EditJumpPage.WindowText(JumpPage)

     TotalPage =  EAHISALARM36.GetTotalPageNum

     EditTotalPage.WindowText(TotalPage)

End Sub

运行HisAlarm.bsp画面，单击ButtonJump按钮，跳转至下一页。

 

u上一页按钮响应函数

 

void OnButtonPrevPage()

说明：上一页按钮响应函数

 

举例：

在HisAlarm.bsp的画面中加载一个iCentroView EAHisAlarm Control控件EAHISALARM36，往画面中添加一个ButtonPageUp按钮，在脚本编辑器中编辑如下：

Sub ButtonPageUp_OnClick()

     EAHISALARM36.OnButtonPrevPage

     JumpPage = EAHISALARM36.GetJumpPageNum

     EditJumpPage.WindowText(JumpPage)

     TotalPage =  EAHISALARM36.GetTotalPageNum

     EditTotalPage.WindowText(TotalPage)

End Sub

运行HisAlarm.bsp画面，单击ButtonJump按钮，跳转至上一页。

 

u清空表格

 

void ClearTable()

说明：清空表格

 

举例：

在HisAlarm.bsp的画面中加载一个iCentroView EAHisAlarm Control控件EAHISALARM36，往画面添加ButtonClear按钮，在脚本编辑器中编辑如下：

Sub ButtonClear_OnClick()

      EAHISALARM36.ClearTable

End Sub

运行HisAlarm.bsp画面，单击ButtonClear按钮，列表中内容被清空。

 

u替换某列的内容

 

void ReplaceContent (colname,oldvalue,newvalue)

说明：替换某列的内容

 

colname：列名

oldvalue：旧值

newvalue：新值

 

列对应关系如下:

 

举例：

拖动一个新报警控件到组态画面上，编辑脚本，在PageOnload事件中编辑如下：

Sub page_OnLoad()

   EAHISALARM36.ReplaceContent "Tag Name","ai_0","你好"

   EAHISALARM36.ReplaceContent "Alarm Priority","0","aaa"

   EAHISALARM36.ReplaceContent "Priority Description","好","bbb"

End Sub

运行脚本，变量名那列为ai_0的，统一被替换为你好；优先级那列为0的，统一替换为aaa；优先级描述那列为好的，统一替换为bbb

 

u设置报警状态的查询条件

 

VARIANT SetQueryConditionAlarmStatus(VARIANT AlarmStatus)

说明:设置报警状态

 

AlarmStatus：报警状态

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

 

举例：

在HisAlarm.bsp的画面中加载一个iCentroView EAHisAlarm Control控件EAHISALARM36，往画面中添加一个ButtonQuery按钮，在脚本编辑器中编辑如下：

Sub ButtonQuery_OnClick()

     EAHISALARM36.StartRunMode

 

     alarmStatus = ComboBoxAlarmStatus.WindowText()

     lret = EAHISALARM36.SetQueryConditionAlarmStatus(alarmStatus)

     If lret <> 0 Then

     Exit Sub

     End If

End Sub

运行HisAlarm.bsp画面，单击ButtonQuery按钮，该函数将报警状态加入查询条件中，该函数通常用于查询历史报警过程。