wincc用户归档VB脚本与SQL使用说明

1、报表建立本次项目要求： 所有测量变量在一个工作周期结束后进行存储，也就是事件触发，不同与以往的周期触发。要求能存储字符串类型的数据，所以本次报表使用用户归档来实现，因为变量记录工具是不能存储字符串类型数据的。而且用户归档控件的事件触发比变量记录要灵活的多。要求可以将数据导出到EXCEL表格中。实现对数据的编辑。具体实现方法如下： 第1项不用过多在意，了解一下即可，从第2项起为主要内容。第1项的作用就是讲解怎样触发用户归档存储数据的。在建立报表前首先要新建两个系统变量，用于日期和时间的存储。在WINCC组态环境内右击变量管理单击添加新的驱动程序找到System Info.chn单击打开如下图建立

2、两个变量分别为riqi 和 shijian作为日期和时间的存储变量。再建立两个控制变量，此变量需要与下位机程序进行连接。分别为A_ID、A_JOP在下位机程序里进行编写，当自控程序运行完一边后将这两个变量分别赋值-1、6赋值结束后再将0赋给这两个变量。程序如下图此目的是用于用户归档数据存储时事件触发条件，在后面用户归档建立会详细描写。建立用户归档WINCC在第一次安装完后是没有用户归档控件的，需要再次将光盘插入重新安装一次，在选项中将用户归档添加进行安装。单击下一步先点击创建，在创建变量完成后，将上面建立的两个变量A_ID/A_JOP分别添加到ID和指令内，方法：单击选择按钮浏览变量添加即可。

3、此项是用于数据存储触发的。也就是当ID和指令分别为-1和6时用户归档存储一次数据。详细如下图单击完成实现对用户归档的创建。创建VB脚本动作，是用于用户归档事件触发的动作，没有此动作用户归档将无法存储数据。方法：打开VB脚本单击文件新建动作。然后将下面程序写入即可。Function actionDim xiaoshiDim riqiDim flagSet flag = HMIRuntime.Tags(flag)flag.Read If flag.Value =1 Thenriqi=CStr(Year(Now)&-&CStr(Month(Now)&-&CStr(Day(Now)Dim A_IDSe

4、t A_ID = HMIRuntime.Tags(A_ID)Dim A_JOPSet A_JOP = HMIRuntime.Tags(A_JOP)A_ID.Read A_ID.Write -1A_JOP.ReadA_JOP.Write 6End If输入完之后将其保存。命名为write。注意：一般刚激活WINCC时会触发一次变量变化，为了避免写入无效数据，此处添加里一个flag变量用于判断是否激活WINCC产生的事件，在全局脚本中再添加一个VB动作，通过flag自身的变化事件把flag置位。程序如下：Function actionDim flagSet flag = HMIRuntime.Ta

5、gs(flag)flag.Read If flag.Value =0 Thenflag.Write 1End If保存后命名为flag创建域（也就是存储的数据变量）单击刚创建的用户归档，在右边空白处右击选择插入新域， 在弹出的对话框中进行设置。如下图此处为数据类型，必须与变量数一致此处为输入备注输入名称，最好与变量名一致此处为数据类型，必须与变量数一致此处为输入备注输入名称，最好与变量名一致单击下一步单击此处进行变量连接单击此处进行变量连接单击完成按钮就完成了一个变量数据的建立，以此类推。当把所有的数据变量都建立完后单击工具栏中的保存按钮。在WINCC图形编辑器中插入一个用户归档表格，并建立于

6、连接。方法：在WINCC图形编辑器找到对象选项板控件选择用户归档表格在左侧进行添加。如下图：此处为用户归档表格此处为用户归档表格添加完表格后双击在弹出的对话框中进行连接和设置单击此处选择刚刚建立的用户归档，来进行链接单击此处选择刚刚建立的用户归档，来进行链接单击确认完成连接。以上就是用户归档的建立。这时候再打开SQL就会发现多了一个数据CC_GYDX_XM_14_06_05_16_19_30R，此数据库就是用户归档的存储数据库，在其表格中会有自动生成一个供用户存储数据的表格UA#test。如下图，记住数据库名称和表格名称用于报表的导出。数据报表导出数据的导出应该是在WINCC上做按钮写VB脚本

7、来实现。本项目使用的是利用EXCEL宏来实现。方法就是用EXCEL中的开发工具中的VBA程序编辑器来实现。打开EXCEL在工具栏右击自定义快速访问工具栏在弹出的对话框中选择常规将开发工具选上确认单击工具栏的开发工具单击Visual Basic打开编辑器进行程序编辑。单击插入模块输入以下程序Sub 使用Execute方法产生记录集() Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim sql As String, cnstring As String Set cn = New Connection cnstring = driver

8、=SQL Server;server=MICROSOF-E50F33WINCC;database=CC_GYDX_XM_14_06_05_16_19_30R; cn.ConnectionString = cnstring cn.Open sql = select * from UA#test Set rs = cn.Execute(sql) a2.CopyFromRecordset rs End Sub应该注意的是MICROSOF-E50F33WINCC为服务器名称CC_GYDX_XM_14_06_05_16_19_30R为数据库名称UA#test为表格名称，主要记住这3个名称，用于访问数据库

9、表格的语句。此数据的连接还需要引用ADO，方法：单击工具栏中的工具点击引用找到到ADO2.8打上对号确认引用成功，如下图单击保存会弹出一个对话框单击否选择保存文件类型为启用宏的工作簿单击保存结束操作。保存后，宏信息可能会被禁用，也就是宏自身的安全保护会让宏配置无法运行，单击开发工具选择宏安全性将启用所有宏和信任对VBA工程对象模型的访问这两项选中即可。如下图导出报表的操作为：单击工具栏中的开发工具点击宏单击执行即可将数据导出。如下图总结本次项目有一个缺点，就是报表的实现还存在着一些问题，首先是不能按指定的日期和时间来进行查询也就是不能输入条件查询，查询结果没有求和，也就是在查询过程中不能计算。本次项目的一些注意事项：WINCC6.2在安装完用户归档后的语言是德文的，在双击用户归档时会弹出一个对话框警告，意思是说打开的语言错误，不用在意此警告，用户归档同样可以正常使用，如果想解决只要将WINCC工具内的语言改为英文