搬家第三天-80.Wincc V7.3用户归档初步使用2- VBS脚本做简单的新增、上载、下载用户归档功能

前面一篇博客介绍了用户归档的建立、与PLC的连接、使用控件的上载、下载、修改、删除方法（http://blog.sina.com.cn/s/blog_724246b90102woov.html）。有时候这些操作可能是定时的，或者在满足某个条件自动执行的，这种情况下我们就需要借助脚本来完成了。本文逐一介绍如何使用VBS脚本完成这些功能。假设用户归档已经建立完毕，与PLC连接也配置好。

1. 单击按钮从PLC上载数据添加一条记录到用户归档末尾

Sub OnClick(ByVal Item) 
Dim id,job
Set id=HMIRuntime.Tags("@UA_UA_1_ID")
Set job=HMIRuntime.Tags("@UA_UA_1_JOB")
id.Write -1
job.Write 6
End Sub

2. 单击按钮从PLC上载数值更新第一条记录

Sub OnClick(ByVal Item)   
Dim id,job
Set id=HMIRuntime.Tags("@UA_UA_1_ID")
Set job=HMIRuntime.Tags("@UA_UA_1_JOB")
id.Write -6
job.Write 6
End Sub

这里如果不确定第一条记录ID是多少，可以使用-6来指代

3. 单击按钮从PLC上载数值更新最后一条记录

Sub OnClick(ByVal Item)   
Dim id,job
Set id=HMIRuntime.Tags("@UA_UA_1_ID")
Set job=HMIRuntime.Tags("@UA_UA_1_JOB")
id.Write -9
job.Write 6
End Sub

这里如果不确定最后一条记录ID是多少，可以使用-9来指代

4.单击按钮从PLC上载数据更新ID=5的记录

Sub OnClick(ByVal Item)     
Dim id,job
Set id=HMIRuntime.Tags("@UA_UA_1_ID")
Set job=HMIRuntime.Tags("@UA_UA_1_JOB")
id.Write 5
job.Write 6
End Sub

如果不确定ID=5是否存在，就需要连接用户归档数据库相应表，遍历查询ID=5是否存在，连接数据库查询的脚本，会在后续的博客中介绍，这里假设ID=5是存在的。要注意不能在job.write 6后面紧跟if job.read=-1 then来判断是否成功执行job从而判断id=5是否存在，因为修改用户归档可能会有一些延时，此时job并没有完全结束，会造成误判。

5. 点击按钮删除第一条用户归档记录

Sub OnClick(ByVal Item)      
Dim id,job
Set id=HMIRuntime.Tags("@UA_UA_1_ID")
Set job=HMIRuntime.Tags("@UA_UA_1_JOB")
id.Write -6
job.Write 8
End Sub

6.点击按钮删除用户归档最后一条记录

Sub OnClick(ByVal Item)      
Dim id,job
Set id=HMIRuntime.Tags("@UA_UA_1_ID")
Set job=HMIRuntime.Tags("@UA_UA_1_JOB")
id.Write -9
job.Write 8
End Sub

7.点击按钮删除ID=5的记录

Sub OnClick(ByVal Item)      
Dim id,job
Set id=HMIRuntime.Tags("@UA_UA_1_ID")
Set job=HMIRuntime.Tags("@UA_UA_1_JOB")
id.Write 5
job.Write 8
End Sub

8. 点击按钮用第一条记录修改PLC的数值

Sub OnClick(ByVal Item)      
Dim id,job
Set id=HMIRuntime.Tags("@UA_UA_1_ID")
Set job=HMIRuntime.Tags("@UA_UA_1_JOB")
id.Write -6
job.Write 7
End Sub

9.点击按钮用最后一条记录修改PLC数值

Sub OnClick(ByVal Item)      
Dim id,job
Set id=HMIRuntime.Tags("@UA_UA_1_ID")
Set job=HMIRuntime.Tags("@UA_UA_1_JOB")
id.Write -9
job.Write 7
End Sub

10.点击按钮用ID=5的记录修改PLC数值

Sub OnClick(ByVal Item)      
Dim id,job
Set id=HMIRuntime.Tags("@UA_UA_1_ID")
Set job=HMIRuntime.Tags("@UA_UA_1_JOB")
id.Write 5
job.Write 7
End Sub

以上语句如果加上时间判断放在全局脚本，就可以做成定时添加删除修改PLC/用户归档的脚本了。