- 1、本文档共14页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
wincc用户归档VB脚本与SQL使用说明
建立用户归档
WINCC在第一次安装完后是没有用户归档控件的,需要再次将光盘插入重新安装一次,在选项中将用户归档添加进行安装。
单击下一步
先点击创建,在创建变量完成后,将上面建立的两个变量A_ID/A_JOP分别添加到ID和指令内,方法:单击选择按钮——浏览变量添加即可。
此项是用于数据存储触发的。也就是当ID和指令分别为-1和6时用户归档存储一次数据。
详细如下图
单击完成实现对用户归档的创建。
创建VB脚本动作,是用于用户归档事件触发的动作,没有此动作用户归档将无法存储数据。
方法:打开VB脚本——单击文件——新建——动作。然后将下面程序写入即可。
Functionaction
Dimxiaoshi
Dimriqi
Dimflag
Setflag=HMIRuntime.Tags(flag)
flag.Read
Ifflag.Value=1Then
riqi=CStr(Year(Now))-CStr(Month(Now))-CStr(Day(Now))
DimA_ID
SetA_ID=HMIRuntime.Tags(A_ID)
DimA_JOP
SetA_JOP=HMIRuntime.Tags(A_JOP)
A_ID.Read
A_ID.Write-1
A_JOP.Read
A_JOP.Write6
EndIf
输入完之后将其保存。命名为write。注意:一般刚激活WINCC时会触发一次变量变化,为了避免写入无效数据,此处添加里一个flag变量用于判断是否激活WINCC产生的事件,在全局脚本中再添加一个VB动作,通过flag自身的变化事件把flag置位。
程序如下:
Functionaction
Dimflag
Setflag=HMIRuntime.Tags(flag)
flag.Read
Ifflag.Value=0Then
flag.Write1
EndIf
保存后命名为flag
创建域(也就是存储的数据变量)
单击刚创建的用户归档,在右边空白处右击——选择插入新域,
在弹出的对话框中进行设置。如下图
此处为数据类型,必须与变量数一致此处为输入备注输入名称,最好与变量名一致
此处为数据类型,必须与变量数一致
此处为输入备注
输入名称,最好与变量名一致
单击下一步
单击此处进行变量连接
单击此处进行变量连接
单击完成按钮就完成了一个变量数据的建立,以此类推。
当把所有的数据变量都建立完后单击工具栏中的保存按钮。
在WINCC图形编辑器中插入一个用户归档表格,并建立于连接。
方法:
在WINCC图形编辑器找到——对象选项板——控件——选择用户归档表格——在左侧进行添加。
如下图:
此处为用户归档表格
此处为用户归档表格
添加完表格后双击——在弹出的对话框中进行连接和设置
单击此处选择刚刚建立的用户归档,来进行链接
单击此处选择刚刚建立的用户归档,来进行链接
单击确认完成连接。
以上就是用户归档的建立。
这时候再打开SQL就会发现多了一个数据CC_GYDX_XM_14_06_05_16_19_30R,此数据库就是用户归档的存储数据库,在其表格中会有自动生成一个供用户存储数据的表格UA#test。如下图,记住数据库名称和表格名称用于报表的导出。
数据报表导出
数据的导出应该是在WINCC上做按钮写VB脚本来实现。本项目使用的是利用EXCEL宏来实现。
方法就是用EXCEL中的开发工具中的VBA程序编辑器来实现。
打开EXCEL在工具栏右击——自定义快速访问工具栏——在弹出的对话框中选择常规——将开发工具选上——确认
单击工具栏的开发工具——单击VisualBasic——打开编辑器进行程序编辑。
单击插入模块输入以下程序
Sub使用Execute方法产生记录集()
DimcnAsADODB.Connection
DimrsAsADODB.Recordset
DimsqlAsString,cnstringAsString
Setcn=NewConnection
cnstring=driver={SQLServer};server=MICROSOF-E50F33\WINCC;database=CC_GYDX_XM_14_06_05_16_19_30R;
cn.ConnectionString=cnstring
cn.Open
sql=select*fromUA#test
Setrs=cn.Execute(sql)
[a2].CopyFromRecordsetrs
文档评论(0)