IFIX-和SQL通讯的相关问题.docVIP

  • 26
  • 0
  • 约9.11千字
  • 约 8页
  • 2017-12-26 发布于河南
  • 举报
IFIX-和SQL通讯的相关问题

一:IFIX系统运行环境要求: 1:安装VB6.0程序。 2:安装OFFICE 2003. 3:安装SQL2005. 4:安装F1BOOK ONE 报表控件。 二:在IFIX中: 1:在IFIX中添加时间控件(),F1BOOK1 表格控件。 2:在VB脚本中添加时间控件, 郑工介绍:: ( 1、FIX3.0的控件引用 FIX3.0画面中,添加VB的DT Picker控件和F1 book控件,再画面使用该控件后,需要在VBA编辑脚本环境中,添加引用才可使用。 安装VB后,在FIX3.0VBA编辑脚本环境中选择:Microsoft Windows Common Controls-2 6.0 安装F1 book软件,经破解后,OLE插入,自动引用Tidestone Formula One 6.0 Library。 还要引用 Microsoft activeX data objects 2.8 library 和 Microsoft activeX data objects recordset 2.8 library .(这两个空间是建立ODBC的链接用。) 其余引用如下图: 2、IFIX下F1 book控件调用出现倒计时(或出错) F1 book控件调用出现倒计时,主要为软件安装后,破解文件未替换,而产生的间断性出错:比如第一次打开含有F1 book控件的画面,或长时间未进行画面切换而调用到含有F1 book控件的画面时,产生的VBA错误和出现控件10S倒计时。 解决如下: 1、执行f1pro6.0.2.5文件夹下的setup.exe 其中序列号:TTI.FPA5.06.00.0020875315 默认安装即可 2、把china_f1文件夹下的ttf16.ocx 覆盖原文件(原有文件默认是在C:\TIDESTONE\FORMONE6) TTFI6.ocx, TTFIWZ6.dll 覆盖原文件(原有文件默认在C:\TIDESTONE\FIRSTIMP6) setttfi6.reg 直接用Mouse双击导入到注册表中 3、最后把文件夹formula_ttf1_china下的ttf1.exe直接覆盖原来的c:\TIDESTONE\FORMONE6\目录下的同名文件即可 下使用F1BOOK控件办法: 插入OLE对象-插入对象----对象类型 下找TideStone formula one 6.0 WorkBook插入到窗体中即可。 3:在vb中建立调度,将变量的数据按照设定的间隔时间写进SQL的数据库中,具体代码如下: Private Sub FixTimer_WriteMin_OnTimeOut(ByVal lTimerId As Long) On Error Resume Next Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim connStr As String Dim rsStr As String connStr = Provider=SQLOLEDB;Data Source=CE2E345B26164E2\SQLEXPRESS;database=FD_Data;user id=sa;password=123; conn.ConnectionString = connStr conn.Open rsStr = select * from HisData rs.Open rsStr, conn, adOpenKeyset, adLockOptimistic rs.AddNew rs.Fields(1) = Format(Now, yyyy-mm-dd hh:mm:ss) rs.Fields(2) = Format(Fix32.THISNODE.TP.F_CV, #####0.000) rs.Fields(3) = Format(Fix32.THISNODE.TN.F_CV, #####0.000) rs.Fields(4) = Format(Fix32.THISNODE.PERMANGANATE_INDEX.F_CV, #####0.000) rs.Fields(5) = Format(Fix32.THISNODE.NH3.F_CV, #####0.000) rs.Fields(6) = Format(Fix32.THISNODE.CR_SIX.F_CV, #####0.000) rs.Fields(7) = Format(Fix32.THISNODE.TOTAL_MANGANESE.F_CV, #####0.000) rs.Fields(8) = Format(Fix32.

文档评论(0)

1亿VIP精品文档

相关文档