原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
全局脚本
在全局脚本里建立起与数据库的连接，通过定时整点触发脚本，把变量写到数据库。WINCC里全局脚本触发定时器设定是每小时整点触发。
Option Explicit 变量声明
Function action 功能操作
Dim database 定义 数据库
Dim strcn,cn
Dim is_SQL
Dim riqi
Dim yali,wendu,liuliang,zhongliang,dianya,sudu 定义压力、温度、、、、
Dim DateTime 定义日期 时间
riqi=Now
Set yali= HMIRuntime.Tags(yali) 人机界面运行时间 标签
yali.Read
Set wendu= HMIRuntime.Tags(wendu)
wendu.Read
Set liuliang= HMIRuntime.Tags(liuliang)
liuliang.Read
Set zhongliang= HMIRuntime.Tags(zhongliang)
zhongliang.Read
Set dianya= HMIRuntime.Tags(dianya)
dianya.Read
Set sudu= HMIRuntime.Tags(sudu)
sudu.Read
strcn=Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=baobiao1;Data Source=.\wincc
Set cn=CreateObject(ADODB.connection)
cn.connectionString=strcn
cn.Open
is_SQL=insert into ribao(riqi,yali,wendu,liuliang,zhongliang,dianya,sudu) Values( riqi ,yali.Value ,wendu.Value ,liuliang.Value ,zhongliang.Value ,dianya.Value ,sudu.Value )
cn.Execute is_SQL
cn.Close
End Functi
查询按钮
Sub OnClick(ByVal Item)
Dim i, n, k, n1, a1, b1, c1, d1, e1, f1
Dim MSFlexGrid1
Dim Sql, oCom, conn, sql1, oCom1
Dim j, b, z
Dim ylp, wdp, llp, ylx, wdx, llx, yld, wdd, lld
Dim zlp, dyp, sdp, zlx, dyx, sdx, zld, dyd, sdd
【压力、温度、流量、重力、电压、速度的平均值、最小值、最大值】
Dim strcn, cn
Dim a, shi, t, x
Dim oRs, oRs1
Dim Text2
Dim BeginDate 开始日期
Dim EndDate 结束日期
Dim By, Bm, Bd 定义开始年月日
Dim Ny, Nm, Nd, c, e, f 定义结束年月日
Dim Date1,Date2
【定义函数命令：
】
Set Text2 = ScreenItems(Text2)
Set Date1 = ScreenItems(Date1)
Set Date2 = ScreenItems(Date2)
Set MSFlexGrid1 = ScreenItems(MSFlexGrid1)
【ScreenItems为画面对象集合，把定义的函数与画面中的控件进行映射
】
By = Year(Date1.Value)
Bm = Month(Date1.Value)
Bd = Day(Date1.Value) 【BY BM BD 为date1的年月日定义,B为begin开始时间】
Ny = Year(Date2.Value)
Nm = Month(Date2.Value)
Nd = Day(Date2.Value) 【NY NM ND 为date2的年月日定义，N的end结束时间】
BeginDate = By - Bm - Bd 00:00:00
EndDate = Ny - Nm - Nd 23:59:59
e = By -
文档评论（0）