首先來看下運作效果：
具體的實作步驟如下
步驟一：建立一個視窗，并設計視窗内容如下圖所示，分别使用到的控件：标簽、按鈕、日期、自定義曲線
步驟二：建立“變量字典”
第三步：建立“變量群組記錄” ，右擊“變量群組記錄”，單擊“建立曆史群組記錄”，如下圖紅色框框标注
第四步：曆史群組記錄“觸發條件設定”，右擊“壓力溫度曆史記錄”，單擊“觸發條件”。
選擇“條件”，觸發方式選擇“值改變時” ，關聯表達式。然後進入第五步
第五步：右擊“壓力溫度曆史記錄”，單擊“資料庫配置”。
首先根據紅色框框内容進行配置，第一步點選“在資料庫中構造表”，然後檢視資料庫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")