WINCC报警变量记录数据查询方法
更新时间:2024-01-23 21:22:01 阅读量: 教育文库 文档下载
按时间查询报警记录
用到控件为listView,textbox,progctrl,ImageComboCtrl Sub
X6309X94AE1X0000X59CB_X6309X94AE1X0000X0000_X6309X94AE1X0000X0058_X6309X94AE1X00009_OnClick(ByVal Item) Dim sPro Dim sDsn Dim sSer Dim sCon Dim sSql Dim oRs Dim conn Dim oCom Dim oItem Dim comItem Dim m, n, s Dim oList
Dim T1,T2,T3,T4,T5,T6,record1,record2 Dim a,b
Set oList = ScreenItems(\Set T1=ScreenItems(\Set T2=ScreenItems(\Set T6=ScreenItems(\Set T3=ScreenItems(\
Set T4=ScreenItems(\Set T5=ScreenItems(\Set record1=ScreenItems(\Set record2=ScreenItems(\
oList.View =3 oList.ListItems.Clear T1.ComboItems.Clear T2.ComboItems.Clear
sPro = \sDsn = \sSer = \sCon = sPro + sDsn + sSer
sSql = \
DateTime>'\
Set conn = CreateObject(\conn.ConnectionString = sCon conn.CursorLocation = 3 conn.Open
Set oRs = CreateObject(\Set oCom = CreateObject(\
oCom.CommandType = 1
Set oCom.ActiveConnection = conn oCom.CommandText = sSql Set oRs = oCom.Execute
m =oRs.RecordCount T6.OutputValue=m
With oList
.ColumnHeaders.Clear
.ColumnHeaders.Add , , CStr(oRs.Fields(2).Name), 120 .ColumnHeaders.Add , , CStr(oRs.Fields(0).Name),60 .ColumnHeaders.Add , , CStr(oRs.Fields(1).Name), 60 .ColumnHeaders.Add , , CStr(oRs.Fields(37).Name), 120 End With
If (m > 0) Then
oRs.MoveLast
record2.OutputValue=oRs.Fields(2).value
oRs.MoveFirst
Do While Not oRs.EOF
If n=0 Then
record1.OutputValue=oRs.Fields(2).value End If
n = n + 1 T5.Max=m T5.Value=n
s = oRs.Fields(2).value
Set comItem=T1.ComboItems.Add() comItem.Text = s
Set comItem=T2.ComboItems.Add() comItem.Text = s
Set oItem = oList.ListItems.Add() oItem.Text = s
oItem.SubItems(1) = CStr(oRs.Fields(0).value) oItem.SubItems(2) = CStr(oRs.Fields(1).value) oItem.SubItems(3) = CStr(oRs.Fields(37).value)
If Trim(oRs.Fields(37).value)=\上限值\a=a+1 End If
T3.OutputValue=a
If Trim(oRs.Fields(37).value)=\下限值\b=b+1 End If
T4.OutputValue=b
oRs.MoveNext Loop oRs.Close Else End If
Set oRs = Nothing Set conn = Nothing End Sub
正在阅读:
WINCC报警变量记录数据查询方法01-23
福师《心理学》在线作业一满分卷11-02
我要当消防员作文600字07-16
9.pH计期间核查作业指导书04-16
欧拉公式证明03-31
汽车标志大全08-17
《老师·好》观后感04-02
剪力墙模板计算书05-29
阿里巴巴失败案例11-09
关爱生命,安全发展02-16
- exercise2
- 铅锌矿详查地质设计 - 图文
- 厨余垃圾、餐厨垃圾堆肥系统设计方案
- 陈明珠开题报告
- 化工原理精选例题
- 政府形象宣传册营销案例
- 小学一至三年级语文阅读专项练习题
- 2014.民诉 期末考试 复习题
- 巅峰智业 - 做好顶层设计对建设城市的重要意义
- (三起)冀教版三年级英语上册Unit4 Lesson24练习题及答案
- 2017年实心轮胎现状及发展趋势分析(目录)
- 基于GIS的农用地定级技术研究定稿
- 2017-2022年中国医疗保健市场调查与市场前景预测报告(目录) - 图文
- 作业
- OFDM技术仿真(MATLAB代码) - 图文
- Android工程师笔试题及答案
- 生命密码联合密码
- 空间地上权若干法律问题探究
- 江苏学业水平测试《机械基础》模拟试题
- 选课走班实施方案
- 变量
- 数据查询
- 报警
- 记录
- 方法
- WINCC
- 沪教版二年级第一学期语文词语表带拼音
- 《弱电解质的电离》教学设计(全国优质课获奖案例)
- 第二章 业务开单 风暴后台说明书 药店需要
- 3014207191 廖舒琅-化工原理课设 - 图文
- 年产2465万吨甲醛生产工艺设计毕业论文设计
- 跨越百年的美丽导学案教师用
- 不忘初心,砥砺前行 - 党校学习有感
- 弱电系统施工方案
- 资产评估实习报告范文
- 2016-2022年中国静电吸附式高效空气净化器市场分析与发展前景预测报告 - 图文
- 2010年中级社工师综合能力真题
- 当代中国八种社会思潮
- MySQLsync - binlog innodb - flush - log - at - trx - commit 浅析
- 如何保存S7200中的高速计数器数值从而实现连续计数
- 文字报告
- 模拟电路考试试题和答案(长沙理工大学)
- 利奈唑胺副作用病例报告
- 担保还款协议书
- 基督教聚会点承诺书
- 电路原理一复习资料