SIEMENS哈密市西门子（授权）中国一级代理商-西门子西北地区变频器总代理商

注册microsoft listview control 6.0控件

　　打开wincc图形编辑器。在右侧的对象选项板中单击“控件”，选中“activexcontrol”,点击右键，选择“添加移除”。在弹出菜单中，选择“microsoft listview control6.0”,点击“ok”确认。

　　图3

　　之后，将“microsoft listview control6.0”拖动到画面编辑器中，并将对象名称设置为control1。

　　注意：在脚本中，当定义listview对象时用到对象名称control1。详情请参考图1的步骤2。

　　3．3 添加listview 控件的列名

　　在listview中添加列名，步骤如图1的步骤3。自定义函数addlistviewheadercolumn（precordset,plistview）的具体代码如下所示：

　　function addcolumnheader(precordset, plistview)

　　'添加listview列名

　　'用于错误捕获和处理

　　on error resume next

　　dim ors,columncount

　　set ors=createobject("adodb.recordset")

　　set ors=precordset

　　'获取数据库中的列数

　　columncount=

　　'定义操作的listview对象

　　dim listviewt

　　set listviewt=plistview

　　'清空listview对象的列数

　　'用查询的数据库表格列名来为listview添加列名(*2)

　　dim addcolumnindex

　　for addcolumnindex=0 to columncount-1

　　, , cstr(ors.fields(addcolumnindex).name)

　　next

　　'发生错误，提示消息框

　　if err.number <> 0 then

　　msgbox "addcolumnheader函数报错，source:" & & vbcr & "error deion:" &err.deion

　　err.clear

　　end if

　　on error goto 0

　　end function

　　3．4 填充listview 控件

　　在listview中添加列名，步骤如图1的步骤4。自定义函数filllistview (precordset,plistview) 的具体代码如下所示：

　　function filllistview(precordset,plistview)

　　'用数据库查询的值填充listview

　　on error resume next

　　'获取查询记录条数

　　dim recordscount,ors

　　set ors=precordset

　　recordscount=ors.recordcount

　　'定位到条记录

　　if (recordscount > 0) then

　　ors.movefirst

　　'定义的查询条目(*3)

　　dim maxline,n

　　maxline = 10

　　n=0

　　'填充数据值列

　　do while (not ors.eof and n < maxline)

　　n = n + 1

　　dim oitem,listviewt

　　set listviewt=plistview

　　set oitem = listviewt.listitems.add()

　　oitem.text = ors.fields(0).value

　　oitem.subitems(1) = ors.fields(1).value

　　oitem.subitems(2) = formatnumber(ors.fields(2).value, 4)

　　oitem.subitems(3) = hex(ors.fields(3).value)

　　oitem.subitems(4) = hex(ors.fields(4).value)

　　ors.movenext

　　loop

　　3．5 关闭到归档数据库的连接

　　关闭与数据库的连接并释放资源，步骤如图1的步骤5。自定义函数winccdatasourceclose（precordset,connobj）的具体代码如下图所示：

　　function winccdatasourceclose(precordset,connobj)

　　'关闭数据库连接，释放资源

　　'获取连接和查询对象

　　dim ors,conn

　　set ors=precordset

　　set conn=connobj

　　ors.close

　　set ors = nothing

　　conn.close

　　set conn = nothing

　　end function

　　3．6 运行结果

　　本文档介绍的脚本，其运行结果如下图所示：

　　图4

　　3．7 更改代码以满足更广泛的需求

　　对于不同客户的定制化需求，可以通过修改少量代码实现。

　　（1） 不同的查询需求，修改ssql变量的值。

　　'修改变量ssql的值

　　dim ssql

　　ssql="tag:r,'processvaluearchive\tag1','0000-00-0000:01:00.000','0000-00-00 00:00:00.000'"

　　比如，如果需要动态制定查询时间，可以在画面中输入查询日期，通过hmiruntime.tags(“变量名”)来获得查询条件，再赋值给ssql。

　　（2） listview需要使用不同的列名。

　　修改函数addlistviewheadercolumn中的如下内容：

　　‘用查询的数据库表格列名来为listview添加列名 (*2)

　　dim addcolumnindex

　　for addcolumnindex=0 to columncount-1

　　, , cstr(ors.fields(addcolumnindex).name)

　　next

　　（3） listview需要填充不一样的行数和内容。

　　修改函数filllistview中的如下内容：

　　dim maxline,n

　　maxline = 10 '改变此值，可以更改显示的条目数

　　n=0

　　'修改填充内容，请修改下面do while循环中的代码

　　do while (not ors.eof and n < maxline)

　　n = n + 1

　　dim oitem,listviewt

　　set listviewt=plistview

　　set oitem = listviewt.listitems.add()

　　oitem.text = ors.fields(0).value

　　oitem.subitems(1) = ors.fields(1).value

　　oitem.subitems(3) = hex(ors.fields(3).value)

　　oitem.subitems(4) = hex(ors.fields(4).value)

　　ors.movenext

　　loop

　　本文档中提供的脚本尽量通用化，方便客户修改和复用。并加入了错误处理机制，保证脚本的正确运行，并提高了诊断的方便性