首先来看下运行效果：
具体的实现步骤如下
步骤一：新建一个窗口，并设计窗口内容如下图所示，分别使用到的控件：标签、按钮、日期、自定义曲线
步骤二：创建“变量字典”
第三步：新建“变量群组记录” ，右击“变量群组记录”，单击“新建历史群组记录”，如下图红色框框标注
第四步：历史群组记录“触发条件设置”，右击“压力温度历史记录”，单击“触发条件”。
选择“条件”，触发方式选择“值改变时” ，关联表达式。然后进入第五步
第五步：右击“压力温度历史记录”，单击“数据库配置”。
首先根据红色框框内容进行配置，第一步点击“在数据库中构造表”，然后查看数据库SQL Server数据库是否创建了如下图。同时点击连接测试，提示测试成功即可。然后进入第六步
对应的数据库如下图
第六步 ：压力和温度 标签 均关联对应的“动画” 和“事件” ==> “模拟值显示”和“模拟值输入”
第七步：“触发保存”按钮的事件“左键按下”
Var.触发存储变量= Not Var.触发存储变量
MsgBox "保存成功"
“曲线查询”按钮的事件“左键按下”
Dim sqlYaLi,dtYaLi,dtYaLiRowsCount
Dim sqlWenDu,dtWenDu,dtWenDuRowsCount
Dim sDate,eDate
sDate=日期0.ValueTime
eDate=日期1.ValueTime
'压力曲线数据
sqlYaLi=" SELECT TriggerTime,cola_YaLi FROM DIV_HISTRECORD WHERE TriggerTime>='"&sDate&"' AND TriggerTime<'"&eDate&"' ORDER BY TriggerTime ASC "
dtYaLi=DbAccess.数据库访问表.ExecuteDataTable(sqlYaLi)
dtYaLiRowsCount=dtYaLi.Rows.Count
'温度曲线数据
sqlWenDu=" SELECT TriggerTime,cola_WenDu FROM DIV_HISTRECORD WHERE TriggerTime>='"&sDate&"' AND TriggerTime<'"&eDate&"' ORDER BY TriggerTime ASC "
dtWenDu=DbAccess.数据库访问表.ExecuteDataTable(sqlWenDu)
dtWenDuRowsCount=dtWenDu.Rows.Count
自定义曲线0.StopSeries()
'压力曲线图绘制
Call 自定义曲线0.DataTableDataLoad(dtYaLi,0,0,1)
'温度曲线图绘制
Call 自定义曲线0.DataTableDataLoad(dtWenDu,1,0,1)
“刷新页面”按钮事件“左键按下”
HMICmd.OpenWindow("窗口0")
HMICmd.CloseWindow("窗口0")