首先來看下執行效果：

具體的實現步驟如下

步驟一：新建一個視窗，並設計視窗內容如下圖所示，分別使用到的控制元件：標籤、按鈕、日期、自定義曲線

步驟二：建立“變數字典”

第三步：新建“變數群組記錄” ，右擊“變數群組記錄”，單擊“新建歷史群組記錄”，如下圖紅色框框標註

第四步：歷史群組記錄“觸發條件設定”，右擊“壓力溫度歷史記錄”，單擊“觸發條件”。

選擇“條件”，觸發方式選擇“值改變時” ，關聯表示式。然後進入第五步

第五步：右擊“壓力溫度歷史記錄”，單擊“資料庫配置”。

首先根據紅色框框內容進行配置，第一步點選“在資料庫中構造表”，然後檢視資料庫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")