WinCC V7.5 制作设备运行报表2

科控物联

发布于 2022-03-29 19:33:29

1.6K0

发布于 2022-03-29 19:33:29

文章被收录于专栏：科控自动化

4 <数据存储脚本> <各设备的运行数据是通过各自的 WinCC 全局动作写入数据库， WinCC 全局动作由设备运行状态的变化触发脚本执行，全局动作脚本根据设备的状态写入不同的数据。> 4.1 <创建项目函数> <打开 WinCC VBS 全局脚本编辑器，在项目模块下创建项目函数。图 7 在项目函数中编写如下脚本：

Function dev_record (devno)
On Error Resume Next
Dim DEV_ID: DEV_ID = devno
Dim DeviceRunning,DeviceCount,DevicePower,flag '读取 WinCC 变量
Set DeviceRunning = HMIRuntime.Tags("Device" & DEV_ID & ".Running")
'WinCC 变量：设备运行状态
DeviceRunning.Read
Set DeviceCount = HMIRuntime.Tags("Device" & DEV_ID & ".Count") 'WinCC
变量：运行数据 1
DeviceCount.Read
Set DevicePower = HMIRuntime.Tags("Device" & DEV_ID & ".Power") 'WinCC
变量：运行数据 2
DevicePower.Read
Set flag = HMIRuntime.Tags("flag" & DEV_ID )
flag.Read
If flag.Value = 1 Then 'WinCC 启动后第一次不执行以下脚本
Dim Conn,adors,SQL
Set conn = CreateObject("ADODB.Connection")
Set adors = CreateObject("ADODB.Recordset")
Conn.ConnectionString = "Provider=microsoft.ace.oledb.12.0;" & "Data
Source=" & HMIRuntime.ActiveProject.Path &"\report\dev_data.accdb"
'dev_data.accdb：存储数据库名称
Conn.Open
If DeviceRunning.Value =1 Then
SQL = "insert into dev" & DEV_ID & "
(dev_no,ST_T,Power_ST,Count_ST) values (" & DEV_ID & ",#" & Now & "#," &
DevicePower.Value & "," & DeviceCount.Value & ")" '启动时插入数据
Conn.Execute SQL
Else
SQL = "select Max(ID) from dev" & DEV_ID
adors.Open SQL,Conn,1,3
SQL = "update dev" & DEV_ID & " set EN_T=#" & Now() &
"#,Power_EN=" & DevicePower.Value & ",Count_EN=" & DeviceCount.Value & "
where ID=" & adors.Fields(0) '停止时更新数据
Conn.Execute SQL
End If
Set Conn = Nothing
Set adors = Nothing
Else
flag.Write 1
End If
End Function

结果如图 8 所示：