Navigation:  iCentroview系统的配置 > 配置客户端 > 服务端配置 > SCADA节点总览配置 > 事件服务 > 历史事件相关接口

u获取scada节点名

u获取子系统节点名

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替换某列的内容

u添加自定义事件

 

---

u获取scada节点名

 

VARIANT GetScadaNames()

说明：获取scada节点名

 

返回值：scada节点的数组

 

举例：

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

Sub page_OnLoad()

 

     EAHISEVENT36.StartRunMode

     ComboBoxScadaName.RemoveAllLines

     scadanames = EAHISEVENT36.GetScadaNames()

     count = UBound(scadanames)

     For i = 0 To count

     ComboBoxScadaName.AddLine scadanames(i)

     Next

 

End Sub

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

 

u获取子系统节点名

 

VARIANT GetSubSysNames(const VARIANT FAR&vScadaName)

说明：获取子系统节点名

 

参数：scada节点名

 

返回值：子系统名的数组

 

举例：

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

Sub ComboBoxScadaName_OnChange()

 

      currscadaname = ComboBoxScadaName.GetCurLine()

      subsys = EAHISEVENT36.GetSubSysNames(currscadaname)

      ComboBoxSubSys.RemoveAllLines

      count = UBound(subsys)

      For i = 0 To count

      ComboBoxSubSys.AddLine subsys(i)

      Next

 

End Sub

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

u获取报警区域名

 

VARIANT GetAlarmAreas(const VARIANT FAR&vScadaName)

说明：获取报警区域名

 

参数：scada节点名

返回值：报警区域的数组

 

举例：

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

Sub ComboBoxScadaName_OnChange()

 

      currscadaname = ComboBoxScadaName.GetCurLine()

      alarmarea = EAHISEVENT36.GetAlarmAreas(currscadaname)

      ComboBoxAlarmArea.RemoveAllLines  

      count = UBound(alarmarea)

      For i = 0 To count

      ComboBoxAlarmArea.AddLine alarmarea(i)

      Next

 

End Sub

 

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

u获取类名

 

VARIANT GetClassNames(const VARIANT FAR&vScadaName)

说明：获取类名

 

参数：scada节点名

返回值：类名的数组

 

举例：

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

Sub ComboBoxScadaName_OnChange()

 

      Classnames = EAHISEVENT64.GetClassNames(currscadaname)

      ComboBoxClassName.RemoveAllLines

      count = UBound(Classnames)

      For i = 0 To count

     ComboBoxClassName.AddLine Classnames(i)

     Next

 

End Sub

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

 

u获取应用名

 

VARIANT GetAppNames(const VARIANT FAR&vScadaName);//only event

说明：获取应用名

 

参数：scada节点名

返回值：应用名的数组

 

举例：

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

Sub ComboBoxScadaName_OnChange()

 

      appnames = EAHISEVENT64.GetAppNames(currscadaname)

     ComboBoxAppName.RemoveAllLines

     count = UBound(appnames)

     For i = 0 To count

     ComboBoxAppName.AddLine appnames(i)

     Next

 

End Sub

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

 

u获取需要排序的列名

 

VARIANT GetColumnNames()

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

 

返回值：列名的数组

 

举例：

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

Sub ComboBoxScadaName_OnChange()

 

      columnname = EAHISEVENT36.GetColumnNames()

      ComboBoxColumnName.RemoveAllLines

      count = UBound(columnname)

      For i = 0 To count

      ComboBoxColumnName.AddLine columnname(i)

      Next

 

End Sub

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

 

u获取排序方式

 

VARIANT GetSortStyles()

说明：获取排序方式

 

返回值：列名的数组

 

举例：

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

Sub ComboBoxScadaName_OnChange()

 

      sortstyle = EAHISEVENT36.GetSortStyles()

     ComboBoxSortStyle.RemoveAllLines

     count = UBound(sortstyle)

     For i = 0 To count

     ComboBoxSortStyle.AddLine sortstyle(i)

     Next

 

End Sub

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

 

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

 

VARIANT SetQueryConditionScadaName(const VARIANT FAR&vScadaName)

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

 

参数：scada节点名

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

 

举例：

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

Sub ButtonQuery_OnClick()

 

     currscadaname = ComboBoxScadaName.WindowText()

     lret = EAHISEVENT36.SetQueryConditionScadaName(currscadaname)

     If lret <> 0 Then

     Exit Sub

     End If

 

End Sub

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

 

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

 

VARIANT SetQueryConditionSubSysName(const VARIANT FAR&vSubSysName)

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

 

参数：子系统名

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

 

举例：

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

Sub ButtonQuery_OnClick()

 

     subsys = ComboBoxSubSys.WindowText()

      lret = EAHISEVENT36.SetQueryConditionSubSysName(subsys)

      If lret <> 0 Then

      Exit Sub

      End If

 

End Sub

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

 

 

u设置变量名的查询条件

 

VARIANT SetQueryConditionVarName(const VARIANT FAR&vVarName)

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

 

参数：变量名

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

 

举例：

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

Sub ButtonQuery_OnClick()

 

     varname = EditVarName.WindowText()

     lret = EAHISEVENT36.SetQueryConditionVarName(varname)

     If lret <> 0 Then

     Exit Sub

     End If

 

End Sub

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

 

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

 

VARIANT SetQueryConditionAlarmArea(const VARIANT FAR&vAlarmArea)

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

 

参数：报警区域

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

 

举例：

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

Sub ButtonQuery_OnClick()

 

     alarmarea = ComboBoxAlarmArea.WindowText()

     lret = EAHISEVENT36.SetQueryConditionAlarmArea(alarmarea)

     If lret <> 0 Then

     Exit Sub

     End If

 

End Sub

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

 

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

 

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

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

 

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

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

 

举例：

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

Sub ButtonQuery_OnClick()

 

     Timestart = DATATIMECTRLOCX_start.GetTime

     Timeend = DATATIMECTRLOCX_end.GetTime

     lret = EAHISEVENT36.SetQueryConditionTime(Timestart, Timeend)

     If lret <> 0 Then

     Exit Sub

     End If

 

End Sub

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

 

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

 

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

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

 

参数：列名，排序方式

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

 

举例：

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

Sub ButtonQuery_OnClick()

 

    columnname = ComboBoxColumnName.WindowText()

    sortstyle = ComboBoxSortStyle.WindowText()

    lret=EAHISEVENT36.SetQueryConditionOrderingRules(columnname,sortstyle)

    If lret <> 0 Then

    Exit Sub

    End If

 

End Sub

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

 

u设置类名的查询条件

 

VARIANT SetQueryConditionClassName(const VARIANT FAR&vClassName)

说明：设置类名的查询条件

 

参数：类名

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

 

举例：

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

Sub ButtonQuery_OnClick()

 

     Classname = ComboBoxClassName.WindowText()

     lret = EAHISEVENT64.SetQueryConditionClassName(Classname)

     If lret <> 0 Then

     Exit Sub

     End If

 

End Sub

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

 

u设置应用名的查询条件

 

VARIANT SetQueryConditionAppName(const VARIANT FAR&vAppName)

说明：设置应用名的查询条件

 

参数：应用名

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

 

举例：

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

Sub ButtonQuery_OnClick()

 

     AppName = ComboBoxAppName.WindowText()

     lret = EAHISEVENT64.SetQueryConditionAppName(AppName)

     If lret <> 0 Then  

     Exit Sub

     End If

 

End Sub

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

 

u设置用户名的查询条件

 

VARIANT SetQueryConditionUsrName( const VARIANT FAR&vUsrName)

说明：设置用户名的查询条件

 

参数：用户名

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

 

举例：

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

Sub ButtonQuery_OnClick()

 

     usrname = EditUsrName.WindowText()

     lret = EAHISEVENT64.SetQueryConditionUsrName(usrname)

     If lret <> 0 Then

     Exit Sub

     End If

 

End Sub

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

 

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

 

VARIANT SetQueryConditionVarDiscribeName( const VARIANT FAR&vDiscribeName)

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

 

参数：变量描述

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

 

举例：

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

Sub ButtonQuery_OnClick()

 

      vardiscribe = EditVarDiscribe.WindowText()

      lret = EAHISEVENT64.SetQueryConditionVarDiscribeName(vardiscribe)

      If lret <> 0 Then

      Exit Sub

     End If

 

End Sub

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

 

u设置内容的查询条件

 

VARIANT SetQueryConditionContent(const VARIANT FAR&vContent)

说明：设置内容的查询条件

 

参数：内容

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

 

举例：

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

Sub ButtonQuery_OnClick()

 

     content = EditContent.WindowText()

     lret = EAHISEVENT64.SetQueryConditionContent(content)

     If lret <> 0 Then

     Exit Sub

     End If

 

End Sub

运行HisEvent.bsp画面，单击ButtonQuery按钮，该函数将内容加入查询条件中。该函数通常用于查询历史事件过程。

 

u设置每页查询条数

 

VARIANT SetCountPageNum(const VARIANT FAR&vCountPageNum)

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

 

参数：每页查询条数

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

 

举例：

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

Sub ButtonQuery_OnClick()

 

     CountPageNum = EditCountPerPage.WindowText()

     lret = EAHISEVENT36.SetCountPageNum(CountPageNum)

     If lret <> 0 Then

     Exit Sub

     End If

 

End Sub

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

 

u设置跳转页数

 

void SetJumpPageNum(const VARIANT FAR&vJumpPageNum)

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

 

参数：跳转页数

 

举例：

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

Sub ButtonQuery_OnClick()

 

     JumpPage = EditJumpPage.WindowText()

     EAHISEVENT36.SetJumpPageNum(JumpPage)

 

End Sub

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

 

u设置总页数

 

void SetTotalPageNum(const VARIANT FAR&vTotalPageNum)

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

 

参数：总页数

 

举例：

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

Sub ButtonQuery_OnClick()

 

     TotalPage = EditTotalPage.WindowText()

     EAHISEVENT36.SetTotalPageNum(TotalPage)

 

End Sub

运行HisEvent.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()

 

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

 

End Sub

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

 

u获取每页显示记录条数

 

VARIANT GetCountPageNum()

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

 

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

 

举例：

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

Sub ButtonQuery_OnClick()

 

     CountPageNum = EAHISEVENT36.GetCountPageNum()

     EditCountPerPage.WindowText(CountPageNum)

 

End Sub

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

 

u获取跳转页数

 

VARIANT GetJumpPageNum()

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

 

返回值：跳转页数

 

举例：

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

Sub ButtonQuery_OnClick()

 

     JumpPage = EAHISEVENT36.GetJumpPageNum

     EditJumpPage.WindowText(JumpPage)

 

End Sub

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

u获取总页数

 

VARIANT GetTotalPageNum()

说明：从后台获取总页数

 

返回值：总页数

 

举例：

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

Sub ButtonQuery_OnClick()

 

     TotalPage =  EAHISEVENT36.GetTotalPageNum

     EditTotalPage.WindowText(TotalPage)

 

End Sub

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

 

u设置后台页数变量

 

Void SetPageCount()

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

 

举例：

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

Sub ButtonQuery_OnClick()

 

      EAHISEVENT36.SetPageCount

 

End Sub

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

 

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

 

VARIANT  GetTotalAlarmCount()

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

 

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

 

举例：

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

Sub ButtonQuery_OnClick()

 

     ‘设置查询条件略

     lret = EAHISEVENT36.GetTotalAlarmCount()

     If lret <> 0 Then

     Exit Sub

     End If

 

End Sub

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

 

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

 

VARIANT  GetTotalAlarmCount(-1)

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

 

返回值：查询到的记录总数

 

举例：

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

Sub ButtonQuery_OnClick()

 

     ‘设置查询条件略

     lret = EAHISEVENT36.GetTotalAlarmCount(-1)

     msgbox lret

 

End Sub

运行HisEvent.bsp画面，单击ButtonQuery按钮，在提示框中显示查询到的记录数。

 

u查询历史事件记录

 

VARIANT  QueryPageAlarm()

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

 

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

 

举例：

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

Sub ButtonQuery_OnClick()

 

     ‘设置查询条件

     ‘获取界面值并存入后台

     ‘获取报警总数

     ‘设置查询页数

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

     lret = EAHISEVENT36.QueryPageAlarm()

     If lret <> 0 Then

     Exit Sub

     End If

 

End Sub

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

 

u显示历史事件记录

 

Void DisplayCurPageAlarm()

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

 

举例：

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

Sub ButtonQuery_OnClick()

 

     ‘设置查询条件

     ‘获取界面值并存入后台

     ‘获取报警总数

     ‘设置查询页数

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

     ‘查询历史报警记录

      EAHISEVENT36.DisplayCurPageAlarm

 

End Sub

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

 

u导出历史事件记录

 

Void ReturnQueryResult(nStartNum,nExportNum,arrayResult)

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

 

参数说明：

nStartNum：导出的起始记录

nExportNum：导出的总记录数

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

 

举例：

在HisAlarm.bsp的画面中加载一个iCentroView EAHisEvent Control控件EAHISEVENT36，往画面中添加一个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()

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

 

举例：

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

Sub ButtonJump_OnClick()

 

     JumpPage = EditJumpPage.WindowText()

     EAHISEVENT36.SetJumpPageNum(JumpPage)

     EAHISEVENT36.OnButtonJumptoPage

     JumpPage = EAHISEVENT36.GetJumpPageNum

     EditJumpPage.WindowText(JumpPage)

     TotalPage =  EAHISEVENT36.GetTotalPageNum

     EditTotalPage.WindowText(TotalPage)

 

End Sub

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

 

u下一页按钮响应函数

 

void OnButtonNextPage()

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

 

举例：

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

Sub ButtonPageDown_OnClick()

 

      EAHISEVENT36.OnButtonNextPage

      JumpPage = EAHISEVENT36.GetJumpPageNum

      EditJumpPage.WindowText(JumpPage)

      TotalPage =  EAHISEVENT36.GetTotalPageNum

      EditTotalPage.WindowText(TotalPage)

 

End Sub

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

 

u上一页按钮响应函数

 

void OnButtonPrevPage()

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

 

举例：

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

Sub ButtonPageUp_OnClick()

 

      EAHISEVENT36.OnButtonPrevPage

      JumpPage = EAHISEVENT36.GetJumpPageNum

      EditJumpPage.WindowText(JumpPage)

      TotalPage =  EAHISEVENT36.GetTotalPageNum

      EditTotalPage.WindowText(TotalPage)

 

End Sub

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

 

u清空表格

 

void ClearTable()

说明：清空表格

 

举例：

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

Sub ButtonClear_OnClick()

 

   EAHISEVENT36.ClearTable

 

End Sub

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

 

 

u替换某列的内容

 

void ReplaceContent (colname,oldvalue,newvalue)

说明：替换某列的内容

 

参数：

colname：列名

oldvalue：旧值

newvalue：新值

列对应关系如下：

 

举例：

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

Sub page_OnLoad()

 

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

End Sub

 

运行脚本，变量名那列为ai_0的，统一被替换为你好列对于关系

 

u添加自定义事件

 

void AddCustomEvent szTag,szMsg,eventType, eventPriority

说明：添加自定义事件，添加的结果会记录到对应工程目录下\Data\EventAlarm\eventalarm.db文件中。

 

参数说明：

szTag：Tag名字，字符串

szMsg：事件描述，字符串

eventType：事件类型，字符串

eventPriority：事件优先级，整形；

 

举例：

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

 

Sub BSButton1_OnClick()

 

   Evt.AddCustomEvent "tag1",“Msg1",”Custom“,1

 

End Sub

 

运行a.bsp画面，点击Button，自定义事件会记录到对应工程目录下\Data\EventAlarm\eventalarm.db文件中。