wincc7.3与MYSQL_搬家第二天-29.Wincc V7.3使用复选框和MSHFGrid定制表格显示字段

我们在显示数据表时，如果字段较多，有时候会希望能够让使用者自己选择显示/隐藏哪些字段，本文就介绍了利用复选框Checkbox和MSHFGrid控件事先这个功能。

一 准备工作

1.数据表准备

假设SQL Server中有这样一张表格

2. Wincc控件准备

在Wincc页面插入一个按钮，一个复选框，一个MSHFGrid控件，MSHFGrid控件默认不在控件列表，需要在ACtiveX添加/删除对话框勾选。复选框控件改名为checkbox，MSHFGrid控件改名为MSHFGrid。

三 脚本

1. 页面打开初始化复选框控件

由于事先可能并不知道sql server表格中字段的名称数量，因此初始化复选框控件时候，需要连接数据表。

Sub OnOpen()

Dim checkbox

Dim conn,ssql,ors,scon,ocom,i

Dim PCName

PCName=HMIRuntime.Tags("@LocalMachineName").Read

scon="Provider = SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog =MyDB;Data Source = " &PCName & "\WINCC"

ssql="select name from syscolumns where id = object_id('ChartTable')" '查询表有哪些字段

Set conn=CreateObject("ADODB.Connection")

conn.ConnectionString=scon

conn.Cursorlocation=3

conn.open

Set ors=CreateObject("ADODB.RecordSet")

Set ocom=CreateObject("ADODB.Command")

ocom.commandtype=1

Set ocom.ActiveConnection=conn

ocom.CommandText=ssql

Set ors=ocom.Execute

ors.movefirst

Set checkbox=ScreenItems("checkbox")

checkbox.BoxCount  = ors.recordcount '让组合框的可选项数量与数据表记录数一样

For i=1 To ors.recordcount

Checkbox.Index =i

Checkbox.Text =ors.fields(0).value

ors.movenext

Next

Set ors=Nothing

conn.close

Set conn=Nothing

End Sub

这个查询过程可能有点长，可以考虑在查询结束后，再把复选框的可见性设置为真。

2. 按钮点击的脚本

Sub OnClick(ByVal Item)

Dim checkbox,MSHFGrid,fieldstring,process,boxcount

Dim i,index

Dim conn,ssql,ors,scon,ocom

Dim PCName

Set checkbox=ScreenItems("checkbox")

Set MSHFGrid=ScreenItems("MSHFGrid")

process=checkbox.process

boxcount=checkbox.BoxCount

For i=1 To checkbox.boxcount

If process Mod 2 =1 Then

index=i

checkbox.Index =index

fieldstring=fieldstring & checkbox.text & ","

End If

process=process\2

Next

fieldstring=Left(fieldstring,Len(fieldstring)-1)

'Msgbox "复选框勾选的是：" & fieldstring

PCName=HMIRuntime.Tags("@LocalMachineName").Read

scon="Provider = SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog =MyDB;Data Source = " &PCName & "\WINCC"

ssql="select " & fieldstring & " from ChartTable" '查询表有哪些字段

Set conn=CreateObject("ADODB.Connection")

conn.ConnectionString=scon

conn.Cursorlocation=3

conn.open

Set ors=CreateObject("ADODB.RecordSet")

Set ocom=CreateObject("ADODB.Command")

ocom.commandtype=1

Set ocom.ActiveConnection=conn

ocom.CommandText=ssql

Set ors=ocom.Execute

MSHFGrid.DataSource=ors

MSHFGrid.Refresh

MSHFGrid.colwidth(1)=2500

Set ors=Nothing

conn.close

Set conn=Nothing

End Sub

通过上述工作，我们在运行时，就可以选择哪些字段显示，哪些字段隐藏了。