用报警记录又记不了按钮中写的角本动作记录.
有人用以下方法作过,不知效果怎样?
麻烦说详细一点啊，怎么用啊？？
不过我是直接写入数据库的，也比较自由方便。

数据库为SQL2005，在管理工具中建立系统DSN:ZJG_DevDSN,Wincc中建立某个变量的触发器脚本。代码如下，已经测试通过。
Option Explicit
Function action
Dim objConnection
Dim strConnectionString

Dim strSQL
Dim objCommand
Dim objRecordSet
Dim RecordCount

Dim DeviceName
On Error Resume Next
Dim data(5)
Dim i
For i = 0 To 4
data(i) = "Null"
Next
DeviceName=CStr("1#设备运行状态测试")
Data(1)=HMIRuntime.tags("Ractor/Motor1.AUT_ON_OP").read
Data(2)=HMIRuntime.tags("Ractor/Motor1.QRUN").read

If Data(1)="1" Then 'data(1)存放的是字符串类型，当时判断bool量有问题
Data(1)="远程"
End If
If Data(1)="0" Then
Data(1)="就地"
End If

If Data(2)="1" Then
Data(2)="启动"
'MsgBox Data(2)
End If
If Data(2)="0" Then
Data(2)="停止"
'MsgBox Data(2)
End If
'MsgBox Date()&" "&Time()
'MsgBox Data(1)
'MsgBox Data(2)
''''Continute to insert data to database
data(0) ="Insert into Device_record(DeviceName,DeviceTime,DeviceStatus,DeviceMode)values('"& DeviceName &"','"& Date() &" "& Time() &"','"& data(2) &"','"& data(1) &"')"
'MsgBox data(0)
strConnectionString = "Provider=MSDASQL;DSN=ZJG_DevDSN;UID=sa;PWD=;"
Set objConnection = CreateObject("ADODB.Connection")
objConnection.ConnectionString = strConnectionString
objConnection.Open
Set objCommand = CreateObject("ADODB.Command")
With objCommand
.ActiveConnection = objConnection
.CommandText = data(0)
'debug.print objConnection.execute(data(0))
End With
'MsgBox"ok"
objCommand.Execute
Set objCommand = Nothing
objConnection.Close
Set objConnection = Nothing
End Function