ifix基于ACESS的操作记录

操作记录

按照图中示例进行配置，报警区域是在建立标签时设定好的。

配置前，在硬盘中建立数据库文件，及ODBC连接。图中：1—数据库类型，2—数据源名（ODBC），3—准备在数据库中创建的表名，4—表中所含数据名称。设置完成后点击“现在创建表”按钮即可。

显示

DTPicker1是VB日历控件，需要安装VB后才可使用，例程：Private Sub DTPicker1_Change()

vxData1.QP1 = DTPicker1.Value

End Sub

vxData1控件和vxGrid1控件是iFIX的VX控件，要配合使用。vxData1控件配置过程：

声称SQL语句时使用向导，简单易懂。

使用时，注意属性中的含义。vxGrid1控件是副表，只要调用即可。

最终效果：

注意：操作记录是数据库记录的应用，需要定期清理数据库，所以在调度中还需编写删除相应数据记录的代码。

Private Sub FixTimer9_OnTimeOut(ByVal lTimerId As Long)

On Error Resume Next

Dim cn As ADODB.Connection

Dim res As ADODB.Recordset

Dim StrSQL As String

Set cn = New ADODB.Connection

Set res = New ADODB.Recordset

cn.ConnectionString = "DSN=TL;UID=;PWD=;"

cn.Open

StrSQL = "delete from SOEDB where 日期<#" & Date & "#"

res.Open StrSQL, cn, adOpenKeyset, adLockOptimistic

res.Update

res.Close

Set res = Nothing

Set cn = Nothing

End Sub