WinCC笔记：02.MSHFlex控件 —— (2) 插入一列模拟的checkbox

目录

一、先从数据库中读取数据

二、勾选和取消操作脚本

三、统计勾选了的项

---

一、先从数据库中读取数据

例子中用到的数据库如下。

该代码写在打开画面的脚本中。 

Sub OnOpen()                
Dim PCName,conn,oRs1,oCom1
Dim Grid
PCName=HMIRuntime.Tags("@LocalMachineName").Read

Set conn=Createobject("ADODB.connection")
conn.connectionstring="Driver={SQL Server};Server=" &PCName& "\WINCC;database=GCS_WINCC;UID=;PWD=;"
conn.cursorlocation=3
conn.open
Set oRs1=Createobject("ADODB.Recordset")
Set oCom1=Createobject("ADODB.Command")
oCom1.commandtype=1
Set oCom1.Activeconnection=conn
oCom1.commandtext="select * from Information"
Set oRs1=oCom1.execute
Set Grid=ScreenItems("MSHFlex")
Set Grid.DataSource=oRs1
Grid.Refresh
Set oRs1=Nothing
conn.close
Set conn=Nothing

With Grid

' 增加一列用于勾选
    .Cols = Grid.Cols + 1
    .TextMatrix(0,4)="点击选择"
    .colwidth(0)=100
    .colwidth(1)=2000