DIAView 自定义曲线 SQL Server数据库交互

首先来看下运行效果：

具体的实现步骤如下

步骤一：新建一个窗口，并设计窗口内容如下图所示，分别使用到的控件：标签、按钮、日期、自定义曲线

步骤二：创建“变量字典”

第三步：新建“变量群组记录” ，右击“变量群组记录”，单击“新建历史群组记录”，如下图红色框框标注

第四步：历史群组记录“触发条件设置”，右击“压力温度历史记录”，单击“触发条件”。

选择“条件”，触发方式选择“值改变时” ，关联表达式。然后进入第五步

第五步：右击“压力温度历史记录”，单击“数据库配置”。

首先根据红色框框内容进行配置，第一步点击“在数据库中构造表”，然后查看数据库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")

DIAView 自定义曲线 SQL Server数据库交互

猜你喜欢