ifix脚本在哪里编写
① ifix5.9自带操作画怎么用
本实例画面布局为屏幕上半部分为画面导航目录画面；屏幕下半部分为各主画面显示区。假设有五个主画一个导航画面（ym.grf）
第一：创建的各主画面要求在：位置、大小尺寸是一样，可通过另存为方法创建多个主画面
第二：为每一个主画面编写画面初始化脚本（每一个主画面定义的别名要一样）：
第三：给导航画面的各按钮编写本：
第四：创建一个全局变量
② ifix脚本设置数据点密码输入的问题。
分为两个方法：
一、弹窗输入验证
在PIC上放一个数据戳，然后将你想要修改的点的上限即Fix32.XX.HIHI放到上面。
在数据戳的Click脚本调用一个类似登录的窗体弹出，要求输入密码。
验证密码正确后执行修改，数据戳数据更新。
二、画面权限验证
直接将修改数据戳之类拖到管理员登录的PIC中，这样修改的前提就是登录管理员，然后此PIC才可见，才可以修改。（此方法在实际项目中用过）
三、用户权限验证
和上一个有点像，多个用户及权限，修改的时候验证当前用户权限，可以则修改，不可以提示权限不足。（这种方法在实际项目中使用过，推荐此种）
③ ifix组态软件脚本编辑常用的VB命令，刚接触ifix和VB，大虾们帮帮忙！
能不用VB就不用VB，ifix是组态软件，不是写vb的。
④ ifix标签组编辑器怎么使用
2.2.4SCADA/HMI—iFix
2.2.4.1SCADA/HMI产品选型及方案特点
iFIX是全球最领先的HMI/SCADA自动化监控组态软件，已有超过300，000套以上的软件在全球运行。世界上许多最成功的制造商都依靠GEFanuc的iFIX软件来全面监控和分布管理全厂范围的生产数据。在包括冶金、电力、石油化工、制药、生物技术、包装、食品饮料、石油天然气等各种工业应用当中，iFIX独树一帜地集强大功能、安全性、通用性和易用性于一身，使之成为任何生产环境下全面的HMI/SCADA解决方案。
在赵固一矿综合自动化平台方案中，我们按照C/S系统架构的要求，采用了GEProficyiFixSCADA/HMI的产品组件：
1)iFixSCADAServer产品作为I/O服务器，主要负责对设备层数据的采集、存储与分析，硬件指令的收发，系统信息的监视、收集和通知。
2)iFixiClient产品作为操作员站HMI的工具，主要提供简洁直观、快捷方便的人机界面，接受用户指令下发至I/O服务端，同时从I/O服务端接收经过分析的数据信息和报警信息提供给用户。
3)iFIXSCADADeveloper作为iFIX的HMI开发平台，实现各类监控画面的组态。iFixSCADA/HMI产品是整个综合自动化一体化监控平台的有机构成部分，提升了一体化监控平台在技术和架构上的先进性以及功能和性能上的优势。
整个系统建立在开放型结构的网络环境上的，系统具备很高的可靠性和一定的实时性，采用成熟、先进的开发平台，采用许多任务工业标准技术，保证其开放性和可扩展性，使得系统的开发和集成变得十分简便。设计符合标准化、规范化要求。广泛采用分布处理技术。具有良好的可移植性，可扩性和联网功能。便于功能和系统的扩充和升级，并充分保护用户投资，使系统能适应功能的增加和规模的扩充要求。所提供的管理中心管理系统应是近几年发展和改进的成熟的世界领先的专业系统。
iFIX的分布式构架连续3年获全球用户首选奖。据此原理设计的I/O服务器与操作员站形成的C/S结构同样具有高可靠性和易扩展性，用户可根据需要任意扩展操作员站数量而无须更改和开发数据。
开放系统所用的技术规范都是公认的并可以公开自由采用。
具有用户友好的图形界面，友好的人机界面及支持各种标准界面及环境。
对采集到的各种数据经计算、处理、分类，自动生成各种数据库及报表，供实时监测、查询、修改、打印，生成后的报表文件的修改或重组。
与其他系统进行数据交换，把过程数据提供给上层管理网络，系统能利用先进、成熟的信息技术手段建立企业现代化的管理信息网络，为实现企业现代化的安全、可靠、经济运行及提供高效、准确、及时的管理手段。
高级开发语言为VBA，简单易懂。适合用户自行维护。
数据连接开放，接口便宜，配置十分简单易于维护
整个系统扩展十分容易，二次投资少
2.2.4.2iFIX功能特点
ProficyHMI/SCADA–iFIX，是GEFanucProficy自动化软件产品家族中的HMI/SCADA最重要的组件，它是基于WindowsNT/2000平台上的功能强大的自动化监视与控制的软件解决方案。ProficyHMI/SCADA-iFIX可以帮助精确地监视、控制生产过程，并优化生产设备和企业资源管理。它能够对生产事件快速反应，保证矿井安全生产，减少消耗，提高生产率。
技术方面：
基于Windows2000/NT/XP平台
即插即解决结构及COM技术，方便集成第三方应用
全面支持ActiveX控件
安全容器，可以排除ActiveX控件故障，保证ProficyWorkSpace运行
功能强大的微软标准编程语言，嵌入式VBA
完整的OPC客户／服务器模式支持。
标准SQL/ODBCAPI接口，方便关系数据库集成
提供SQLServer集成安装方式
开发环境方面：
ProficyWorkSpace为所有GEFanucProficy组件提供集成化的开发平台
动画向导、智能图符生成向导等强大的图形工具方便了系统开发
功能键编辑器自定义功能热键
脚本编写向导使用户创建VBA脚本程序更方便
标签组编辑器大量节省系统开发时间
调度处理器使任务可以基于时间或事件触发，根据需要在前台或后台运行
控制功能方面：
先进的报警和信息管理，提供无限制的报警区域选择、报警过滤和远程报警管理等功能
冗余选项提供了SCADAServer和LAN间的自动切换，实现SCADAServer间的报警同步
增强Windows2000/NT用户级安全系统
数据采集和管理方面：
历史数据采集
VisiconX：功能强大的ActiveX数据连接控件
强大的图表对象和趋势显示工具
图表组向导功能
导出数据到关系数据库，生成各种报表
内嵌CrystalReport运行动态库
⑤ ifix演示工程脚本代码怎么看到
首先你得切换到编辑模式（Ctrl+W) ，然后选择你想要看的控件 点击反键会出来编辑代码选项 点进去就可以看的到了。如果没有代码表示你选择的控件无代码！
⑥ ifix中如何实现画面间的切实可行换
你指的的是画面切换吧？
2个方法：
1，用专家功能：比如说用一个按钮打开一个画面，鼠标右键，选择"动画"然后把点击动作打钩，接着点"自定义脚本"然后选择"打开画面专家",最后选择你要打开的画面，点确定。
2，用脚本：右键点击目标按钮，选择"编辑脚本"这个时候进入脚本编辑器界面，系统默认的事件为"点击"(这些直接默认就可以了),然后在 代码行内写入：openpicture ("你要打开的画面")
Private Sub CommandButton1_Click()
openpicture ("你要打开的画面")
End Sub
回IP：IFIX 做画面的导航 比较麻烦的 也不是 简单的用1个changepicture就完成的了的。
⑦ iFIX5.8运行时把一个变量值赋给另外一个变量，怎么写脚本，求指导！
写如下脚本，（假设将标签A赋值给标签B，标签A是fix32.QCWATER.AAA.f_cv，标签B是fix32.QCWATER.BBB.f_cv，按实际情况修改下面两个标签名）
Private Sub FixTimer11_OnTimeOut(ByVal lTimerId As Long)
WriteValue ReadValue("fix32.QCWATER.AAA.f_cv"), "BBB"
End Sub
⑧ 请问新建ifix工程的方法有几种，最常用最简单的是哪种
iFIX：iFIX是全球最领先的HMI/SCADA自动化监控组态软件，已有超过300，000套以上的软件在全球运行。世界上许多最成功的制造商都依靠 GE Fanuc的iFIX软件来全面监控和分布管理全厂范围的生产数据。在包括冶金、电力、石油化工、制药、生物技术、包装、食品饮料、石油天然气等各种工业应用当中，iFIX 独树一帜地集强大功能、安全性、通用性和易用性于一身，使之成为任何生产环境下全面的HMI/SCADA解决方案。 利用iFIX各种领先的专利技术，可以帮助企业制定出更快、更有效的商业及生产决策，以使企业具有更强的竞争力。
GE Fanuc 的iFIX是世界领先的工业自动化软件解决方案，提供了生产操作的过程可视化、数据采集和数据监控。iFIX可以帮助您精确地监视、控制生产过程，并优化生产设备和企业资源管理。它能够对生产事件快速反映，减少原材料消耗，提高生产率，从而加快产品对市场的反应速度，提高用户收益。
过程处理及监控解决方案中的一员
iFIX是GE Fanuc过程处理及监控产品中的一个核心组件。它可以为准确开放安全的数据采集及管理企业级的生产过程提供一整套的解决方案。
iFIX是为过程管理度身定造的解决方案。它为水及污水处理、石油天然气，特别是那些需要符合FDA 21 CFR Part 11标准的相关工业应用提供了强大功能。
iFIX特性
易于扩展和集成
由于运用了直观的图形工具，iFIX的用户可以快速上手，简单快捷地为他们的生产过程创建高性能的过程窗口。
无论是简单的单机人机界面 (HMI)，还是复杂的多节点、多现场的数据采集和控制系统 (SCADA)，iFIX都可以方便地满足各种应用类型和应用规模的需要。iFIX灵活的系统结构意味着：iFIX不但可以满足当前系统应用的需要，还可以在将来需要的时候随时方便地扩展系统规模。
分布式网络结构
iFIX提供真正的分布式、客户/服务器结构，为系统提供最大的可扩展性。无论是
Server和 Client 功能运行在单一计算机，实现简单的单机人机界面 (HMI)，还是网络复杂的分布式多Server和多Client数据采集和控制系统，iFIX都可以保证优异的性能。
HMI/SCADA服务器
iFIX server直接连接到物理I/O点，并维护过程数据库。过程数据库中有多种功能块可供选择，包括：模拟量、数字量输入输出块、计算块、报警块、累计块、计时器块、连续控制块、统计块及SQL功能块等。Intellution客户端应用包括：实时动态画面、趋势、报表、批次控制、MES等。
iClient
iClient是GE Fanuc 标准的客户端软件，它作为传统的客户端安装在iFIX客户节点上。通过在View节点设置适当的客户端权限，用户可以访问到网络中任意SCADA
Server中的数据。实时动态画面、趋势显示、报表等应用都运行在iClient上。而且在网络中各个View节点上都能进行开发工作，包括开发画面、构造SCADA
Server中的数据库。
iClientTS
iClientTS是具有iClient功能的 Internet 瘦客户端方案，它使用了微软的Windows 2000终端服务
(Terminal Server) 技术。利用iClient技术，ActiveX控件及VBA和第三方的应用，iClientTS可以连接到网络中任意SCADA
Server并读取数据。
iWebServer
iWebServer是GE Fanuc 另外一种Internet瘦客户端解决方案。使用iWebServer将iFIX画面转换成HTML文件，并通过Web服务器发布。客户端使用标准Web浏览器就能看到SCADA
Server上实时动态数据。
iFIX系统结构的优点
iFIX分布式、客户/服务器结构包括了可灵活构造的服务器 (SCADA Server) 和客户端 (iCIient、iCIientTS和iWebServer)
。然而对用户来说iFIX却是一个集成的完整系统，每台计算机有自己的节点名，每个数据项都有自己的点名。iFIX网络中数据的读取都通过标识SCADA
Server节点名、数据点名及数据域（如CV表示当前值）来识别。
iFIX系统图
利用SCADA Server或者已有的iFIX节点和Client的组合，iFIX可以灵活适用于各种复杂的网络系统中。
创建HMI/SCADA工程应用
系统目录树
在iFIX内查找文件的主要工具是系统目录树。使用树状管理结构，方便了用户操作管理文档和各种图形对象。在系统目录树内可快速调用iFIX各种功能或其他第三方应用。另外，目录树中的目录项还可以完全用户化，包括添加和删除。
工具栏开发
iFIX工具栏内包含了各种图形工具、功能专家和动态对象工具。为方便用户开发画面，用户可以根据需要 放置常用工具按钮及调整工具栏大小。
图形工具和对象
工具按钮中还提供了图形工具一栏， 包括：矩形、圆角矩形、圆、椭圆、圆弧、多边形、扇形、直线、折线等图形对象。除此之外还有数据连接、按钮、图表、报警汇总、位图、事件等多种功能对象工具栏。
向导和专家
使用内置向导和专家，用户不需要进行任何编程，就可自动完成多种复杂功能，包括：前景颜色变化、填充、旋转、位置移动、大小缩放、可见不可见操作、画面打开、关闭、替换操作、改变数据输入方式等，专家工具栏还可以由用户自定义扩充。这些专家能自动生成VBA代码，避免了用户的编程工作。
对象／图符
图符是可重复使用的动态对象或一组图形对象。用户可以象操作图形对象一样操作图符。例如可以在系统树各画面间拖拽图符，可进入其内部编辑图符，可根据需要排列它们在画面中的位置。
对象组
对象组可以方便地组织和重复使用图形对象，它可以象单一对象一样方便地实现移动、缩放或者复制操作，加快画面开发。
编辑对象组
使用iFIX，用户可以深入对象组内部，编辑图形元素，而不必把整个对象组解组。更重要的是：这一操作不影响对象组原有的脚本和动态属性。
图形拖拽
iFIX内简单的拖拽动作就可以把图形在工作台内或应用程序间复制或移动。
系统对比图
与应用在简单网络结构中的HMI/SCADA软件不同，iFIX的分布式客户机／服务器结构可使您轻易地添加某个新的Server到网络中来扩展现行系统。添加和更改数据库标签时，只需在数据源进行更改，系统就会自动地更新整个系统。每一节点上的所有数据对整个网络上的用户都是可用的。在系统中添加客户和服务器简单明了，无需更改系统中其他节点的设置。
Intellution工作台
Intellution 工作台是一个强大的组件容器。它提供了一个易用的集成开发环境。类似于Windows浏览器风格的系统树方便工程的开发和管理，同样也有一个包含作图工具、开发向导和专家的工具箱。
全面支持ActiveX控件
Intellution 工作台是一对象容器，可方便、简单地集成任何第三方ActiveX控件，如：在工作台中直接插入MS
Word和Excel文档，其相应的菜单、工具条在 工作台中能自动显示，如同在MS Word和 Excel中工作一样。
VisiconX
iFIX包含了一组ActiveX数据连接控件集 —— VisiconX，可保证您快速访问任何关系数据库的数据，而无需编程。在Intellution
工作台开发环境中，只需简单地用鼠标“点击”，就可以快速地查询SQL Server、Oracle、Sybase、Informix或DB2数据库信息。在iFIX中嵌入VisiconX可显着地减少系统开发时间。
对象与对象的连接
由于VBA已经嵌入到了iFIX的内部结构之中，所以许多工作就避免了用户编程。例如您可以在工作台内嵌入一个仪表的ActiveX控件，并连接一数据库点，立刻实现数据值的动态显示，无需任何编程。
标签组编辑器
标签组可以显着地节省宝贵的系统开发时间。当打开一个画面或切换当前画面时，系统可以读取标签组文件，并且使用其中所定义的过程值替代图中的标记。一个画面可以定义多个标签组但其中的值并不限制在同一数据库中
调度处理器
Event Scheler是一个计划调度处理器，允许用户基于特定的时间或时间间隔及某一事件的触发执行某些任务。例如：当某数据点超过特定值后替换当前画面，或运行一个脚本程序并产生相应报表。在
Event Scheler中可以建立、编辑、监视、运行基于时间或基于事件的调度计划，这些调度计划均可以以前台或后台任务方式运行。
功能键编辑器
自定义用户功能键，在 Intellution 工作台运行模式下，通过键盘按键激活一段VBA程序代码，执行相应动作序列。功能键既可以全局有效，也可与某个画面或画面中的某一对象相关联。功能键编辑器提供一种简捷的方法定义及修改功能键。
在线组态
iFIX最大限度地发挥在线组态功能。对过程数据库、图形及其它应用程序进行在线修改、增加时，无需关闭或重新启动iFIX，并不影响正常生产过程。
历史数据
iFIX自动采集、存储、显示历史数据，分析过程趋势，为官方的查询提供相应的文档依据，此外还能监视产品特性变化，分析设备性能，节省大量时间和资金。
趋势显示
iFIX的图表对象 (Chart Object) 将历史数据和实时数据集成于图表内，并且可以为每支笔分配多个时间段。同一张图表对象内可添加的笔数是不受限制的，对于实时数据源，图表对象不仅支持表达式计算，而且有丰富的对象颜色和属性选择。X、Y轴还可单独组态定义，在运行环境下调整他们的属性。使用表组向导(Chart
Group Wizards) 可生成多种历史图表。
灵活的报表
iCore和即插即解决结构为用户提供多种报表生成方案。例如，可以通过标准的SQL或ODBC连接，向关系数据库导出iFIX数据，生成报表。另外，Crystal
Report 的运行动态连接库 (DLL) 已经包含在了iFIX内。
先进的报警管理
iFIX方便、灵活、可靠、易于扩展的报警系统可报告系统活动及系统潜在的问题，保障系统安全运行。iFIX分布式报警管理提供多种报警管理功能，包括：无限的报警区管理、基于事件的报警、报警优先级、报警过滤功能，以及通过拨号网络的远程报警管理。另外iFIX还可以自动记录操作员操作信息，并作为非关键性报警信息发送，而无需确认。
画面缓存
画面缓存能优化画面操作性能。用户可以设置画面缓存的大小，以及哪些画面可以在启动时就加载到缓存中。
iFIX 实时显示
iFIX 图表对象可以显示来自文件或数据库的实时数据、历史数据和文档数据及实验数据。用户可以选择在组态或运行环境中更改属性、颜色及翻卷方向。
高性能和开放性
iFIX基于多种工业标准之上，提供了前所未有的系统易用性和扩展性，极大地方便了系统集成。
全局技术
iFIX的全局技术使得对一点的修改可以在整个应用内发生作用，减少开发时间。全局技术包括全局变量、全局颜色变化表以及全局
VBA子程序等。所有 iFIX的专家使用的都是全局子程序。
即插即解决技术 (Plug and Solve）
GE Fanuc 独特的专利技术。它是微软组件对象模型 (COM) 的应用，使得GE Fanuc的产品方便地集成其他第三方的COM组件，用户可根据需要把最优秀的第三方组件集成于整个系统中。
iCore框架
iCore是iFIX的技术核心，是GE Fanuc 特有技术和微软DNA技术相结合而形成的工业标准框架，包含了VBA6、OPC、ODBC/SQL、备份和恢复以及安全容器等技术。
OPC (OLE for Process Control)
GE Fanuc作为制定 OPC 标准的公司成员之一，全面支持OPC标准。iFIX既可以作为OPC服务器，也可以作为OPC客户端。开发人员可以从任何一个OPC服务器直接获取动态数据，并集成到iFIX 工作台内。
ODBC/SQL
iFIX全面支持ODBC API接口，可直接把实时数据写入一个或多个关系数据库。另外，iFIX可读取、删除关系数据库的数据，并可从关系数据库写回到iFIX实时数据库中。iFIX提供SQL
Server 2000集成安装方式，可以方便、快速地访问SQL Server 2000，减少系统开发时间。
备份和恢复
iFIX的备份和恢复专家方便了用户管理工程文件，通过使用专家，用户可以指定文件备份并压缩，之后恢复到需要的iFIX节点。
安全容器 (Secure Containment)
我们的专利技术，保证嵌入系统中的任何一个ActiveX控件出错时不会对系统造成不可预料的错误。完全避免数据丢失、控制过程的中断以及由此所造成的损失。
使用VBA构造图符
当图符触发编辑事件，用户可以通过VBA脚本编辑图符。定制用户化的属性，编辑窗体指定图符动态特性。属性编辑窗体可放置在全局页，这样只要打开图符便可弹出编辑窗体，以便随时更改设置。
安全管理
iFIX提供系统安全级管理，增强Windows NT系统的安全性。在iFIX内，应用程序的调用，操作画面显示，事件调度，配方管理，都可以赋予权限管理。除此之外还能限制某些关键程序的访问，如：过程数据库的重装及过程数据库的写入操作。
强大的冗余功能
iFIX提供了强大而灵活的多重冗余功能，保证系统的不间断监控，包括备份SCADA服务器、LAN冗余以及利用网络状态服务器和iFIX诊断显示程序监视、控制网络运行状态。此外，在主服务器和备用服务器同时启动、运行时，iFIX实现报警同步，避免对同一报警的重复响应。
捕捉电子签名
签名对话框提供了一个操作员动作的描述。签名者可以选择一个预定义的列表注释，或者填写自己的注释。动作也能配置成捕获一个验证了的签名。签名对话框能与电子记录（报告什么人、什么动作、什么时候、为什么被操作）相维系。
iFIX 功能：
监控企业生产过程设备及资源
采集并分享实时数据和历史数据给企业各层用户
及时响应生产要求和市场需求
最大化企业效率，提高生产力，降低生产成本和浪费
利润来自于一个提供100%数据集成而又十分安全的自动化系统
“Designed for 21 CFR Part 11TM”能够记录操作员的操作记录，建立符合FDA（美国食品及药物管理局）21
CFR Part 11法规的重要电子签名记录体系。
iFIX3.5系统要求
IBM Pentium II 266MHz 个人或商用计算机，基于Windows NT/2000/XP
(需Pentium 4，1GHz)
内存：96 MB
120 MB硬盘空间
CD - ROM 驱动器
24位图形显示卡，SVGA或更高显示器
并行端口或USB端口
网络适配器：
NetBIOS或TCP/IP兼容网络适配器，单机版应用不需网络适配器
iFIX技术优势
强大的分布式客户／服务器结构
iFIX服务器负责采集、处理和分发实时数据
可选的客户机类型包括：iClientTM，iClientTSTM（用于Terminal Server ）和iWebServerTM。
实时客户／服务器结构具有无与伦比的可扩展性
快速的系统开发及配置
在一个易于使用的 Intellution 工作台集合开发环境中直观地建立您的系统
使用强大的“智能图符生成向导”更快速地开发和配置应用系统
利用iFIX 特有的“即插即解决”能力集成第三方附加应用软件
在线开发您的应用程序，无需停止生产线或重新开机
键宏编辑器为触摸键提供了强大而多样的功能
动画专家使您无须掌握 VBA 编程即可使用内部的和第三方的ActiveX控件
点组编辑器节省了大量的开发时间
事件调度器令任务在前台或后台自动运行
应用集成
将最佳应用软件“插入”到满足特殊需求的应用系统中
“嵌入”（Drop in）ActiveX控件并立即可利用它们的属性、事件和方法
可以将生产系统与更高级的MES、ERP系统连接起来
得益于安全容器 ( Secure Containment ) 特性，确保用户引入系统中的ActiveX控件没有危害
围绕 iFIX安全，电子签名和记录功能设计一个安全系统
功能广泛
基于Windows NT/2000/XP
SQL/ODBC API容易与关系数据库集成
过程可视化
监视控制
基于用户和基于节点的分段安全管理；能够实现与Windows NT/2000/XP同步
实时历史趋势
数据采集及数据管理
集成式的报表生成
报警和报警管理
分布式的高性能网络结构
智能图符生成向导
在线组态
ActiveX控件数据库连接
支持ODBC
基于时间和事件调度
历史数据采集显示
内置VBA
支持OPC client和server
基于对象的图形界面
Intellution 工作台开发环境
支持Microsoft SQL 2000数据库
即插即解决结构
iFIX商业优势
快速投资回报
iFIX使您迅速回收投资成本，因为它能：
使开发和运用高效的自动化解决方案变得更快更容易
减少前期工程投入
迅速完成新产品与市场同步
提高生产率和生产质量
保护软、硬件投资的可持续性
降低系统维护和改造成本
使您迅速掌握标准化技术组成的系统
面向未来的安全投资
iFIX是一个明智的投资，这等同于您已兼容了目前广泛运用的各类技术。因为它是按照开放的工业标准技术设计的，包含了COM/DCOM，ActiveX，VBA，Windows
NT/2000/XP和OPC等技术标准。iFIX也是保护您对软、硬件投资的最有效解决方案。
电子签名／电子记录功能
与GE Fanuc 其它系列产品一样，iFIX如今也增加了电子签名和电子记录功能，它为最终用户带来了多种丰厚利益。
增强数据可靠性
加强操作员问责制
提高效率
适合FDA 21 CFR Part 11标准的理想功能
提供一个无纸记录系统的基础
大型综合企业的组成部分
拥有iFIX，您有能力来：集成企业实时数据到商务系统
与企业的各级用户及应用系统交换数据
无缝集成各类高可靠性的优秀软件
作出更快、更有效和更明智的决策
⑨ ifix中如何编位置专家脚本
动画-点击-配置-VB(代码自己写) 给分~~~ 不懂加我也可以
⑩ iFIX用VB脚本编的登录界面窗体怎么连接Access数据库，要具体的VB语句，在线等。。。
Private Sub 历史报表Btn_Click()
'注释: 1。该程序需要安装ADO 2.0目标库并在本机注册
' 2。Microsoft ActiveX Data Objects 2.1 Library 必须被引用 (Office 2000)
' 3。Microsoft Excel 9.0 object libraries 必须被引用 (Office 2000)
' 4。划===处可根据具体报表修改
Dim strQuery As String
Dim c, i As Integer
Dim r As Integer
Dim Rpt_xls As Excel.Application
Dim dnm(4) As String
Dim MyDate, MyMonth, MyDay, MyHour, MyMinute, MySecond
Dim stDate, stMonth, stDay, stHour, stinute, stSecond, sttime As String
Dim StartTime, EndTime, Duration, DisplayDay, DisplayMonth As String
'++===================================================================
'报表中的 TAG
Dim Items As Integer
dnm(1) = "AI1"
dnm(2) = "AI2"
dnm(3) = "AI3"
dnm(4) = "AI4"
'从历史库中取得域项， 2 - DATATIME, VALUE, TAG 共三项
'--====================================================================
stDate = Date$
sttime = Time$
StartTime = stDate & " 00:00:00"
EndTime = stDate + " " + sttime
Set Rpt_xls = New Excel.Application
Rpt_xls.Visible = True
'++============================================================================
'打开的报表文件名
Dim OutReportFile As String
Dim Rpt_f2 As String
Rpt_f2 = "d:\Dynamics\App\HIST"
Rpt_xls.Workbooks.Open Rpt_f2 & ".XLS"
Rpt_xls.Sheets("Sheet1").Select
Range("e1").Select
Selection.NumberFormatLocal = "yyyy-mm-dd hh:mm:ss"
Cells(1, 4).Value = stDate & "-" & sttime
' Rpt_xls.ActiveWorkbook.SaveAs (Rpt_f2 & stDate)
'++==========================================================================
Dim cnADO As New ADODB.Connection
Dim rsADO As Recordset
Set cnADO = New ADODB.Connection
cnADO.ConnectionString = "DSN = FIX Dynamics Historical Data; UID =; PWD = ;"
cnADO.Open "FIX Dynamics Historical Data", "", ""
'============================================================================
'查询，根据报表修改。注意，在“Select VALUE FROM mynd“中，mynd是当前SCADA节点名。
For i = 1 To 4
r = 3
strQuery = "Select VALUE FROM mynd " & _
"WHERE (TAG='" & dnm(i) & "'and " & _
"INTERVAL = '00:30:00' and " & _
"DATETIME >= {ts '" & StartTime & "'} and " & _
"DATETIME <= {ts '" & EndTime & "'})"
'--===========================================================================
MsgBox (strQuery)
Set rsADO = New ADODB.Recordset
rsADO.Open strQuery, cnADO, adOpenForwardOnly, adLockBatchOptimistic
rsADO.MoveFirst
Rpt_xls.Columns("a").Select
Selection.NumberFormatLocal = "yyyy-mm-dd hh:mm:ss"
While rsADO.EOF <> True
' MsgBox ("有记录")
Cells(r, i + 1).Value = rsADO.Fields(0)
Cells(r, i + 1).NumberFormatLocal = "0.00"
r = r + 1
rsADO.MoveNext
Wend
MsgBox (r)
Next i
Set cnADO = Nothing
' Rpt_xls.ActiveSheet.PageSetup.Orientation = xlPortrait 'xlLandscape
' Rpt_xls.ActiveSheet.PageSetup.PaperSize = xlPaperA4
' Rpt_xls.ActiveSheet.PrintOut
' Rpt_xls.DisplayAlerts = False
Rpt_xls.ActiveWorkbook.Save
' OutReportFile = Rpt_f2 & "_00" & MyMonth & MyDay
' Rpt_xls.ActiveWorkbook.SaveAs OutReportFile
Rpt_xls.ActiveWorkbook.SaveAs (Rpt_f2 & stDate)
Rpt_xls.Quit
Rpt_xls.DisplayAlerts = True
Set Rpt_xls = Nothing
End Sub
Private Sub 历史数据库Btn_Click()
'注释: 1。该程序需要安装ADO 2.0目标库并在本机注册
' 2。Microsoft ActiveX Data Objects 2.1 Library 必须被引用 (Office 2000)
' 3。Microsoft Excel 9.0 object libraries 必须被引用 (Office 2000)
' 4。划===处可根据具体报表修改
Dim strQuery As String
Dim c As Integer
Dim r As Integer
Dim Intyexcel As Excel.Application
Dim MyDate, MyMonth, MyDay, MyTime, MyHour, MyMinute, MySecond
Dim StartTime, EndTime, Duration, DisplayDay, DisplayMonth As String
'从历史库中取得域项， 2 - DATATIME, VALUE, TAG 共三项
Items = 2
'--====================================================================
MyDate = Format(Now(), "yyyy-mm-dd")
MyTime = Format(Now(), "h:m:s")
StartTime = MyDate & " " & "00:00:00"
EndTime = Now()
'++==========================================================================
' strQuery = "Select value from Fix " + _
' " Where DATETIME >={ts '" + StrStarTime + "'} AND " + _
' "DATETIME <={ts '" + StrEndTime + "'} AND " + _
' "Tag = " & " '" & HisDate5(i, 0) & "'"
'查询，根据报表修改
strQuery = "Select * From MYND " + _
"WHERE (DATETIME >= {ts '" & StartTime & "'} and " + _
"DATETIME <= {ts '" & EndTime & "'}) and " + _
"(tag = 'AI1')" + _
"and INTERVAL = '00:30:00' "
'--===========================================================================
Dim cnADO As New ADODB.Connection
Dim rsADO As Recordset
Set cnADO = New ADODB.Connection
cnADO.ConnectionString = "DSN = FIX Dynamics Historical Data; UID = ; PWD = ;"
cnADO.Open "FIX Dynamics Historical Data", "", ""
Set rsADO = New ADODB.Recordset
' Rs.Open strQuery, Cn, adOpenStatic, 3, adCmdText
rsADO.Open strQuery, cnADO, adOpenForwardOnly, adLockBatchOptimistic
' rsADO.MoveFirst
'++============================================================================
'打开的报表文件名
Dim Rpt_xls As Excel.Application
Dim OutReportFile As String
Dim Rpt_f1 As String
Set Rpt_xls = New Excel.Application
Rpt_xls.Visible = True
Rpt_f1 = "d:\Dynamics\App\rt1"
Rpt_xls.Workbooks.Open Rpt_f1 & ".XLS"
' Rpt_xls.ActiveWorkbook.SaveAs (Rpt_f1 & stDate)
'===============================================================================
Rpt_xls.Sheets("Sheet2").Select
Rpt_xls.Range("E1").Select
r = 3
Selection.NumberFormatLocal = "yyyy-mm-dd hh:mm:ss"
Cells(1, 5).Value = EndTime
While rsADO.EOF <> True
If rsADO(c) <> "" Then
Cells(r, 1) = rsADO.Fields(0)
Cells(r, 2) = rsADO.Fields(1)
Cells(r, 3) = rsADO.Fields(2)
Cells(r, 4) = rsADO.Fields(3)
Cells(r, 5) = rsADO.Fields(4)
Cells(r, 6) = rsADO.Fields(5)
Cells(r, 7) = rsADO.Fields(6)
Cells(r, 8) = rsADO.Fields(7)
Cells(r, 9) = rsADO.Fields(8)
End If
r = r + 1
rsADO.MoveNext
Wend
' Intyexcel.Sheets("Sheet1").Select
' Intyexcel.ActiveSheet.PageSetup.Orientation = xlPortrait 'xlLandscape
' Intyexcel.ActiveSheet.PageSetup.PaperSize = xlPaperA4
' Intyexcel.ActiveSheet.PrintOut
' Intyexcel.DisplayAlerts = False
' Intyexcel.ActiveWorkbook.Save
' OutReportFile = InReportFile & "_00" & MyMonth & MyDay
' Intyexcel.ActiveWorkbook.SaveAs OutReportFile
' Intyexcel.Quit
' Intyexcel.DisplayAlerts = True
' Set Intyexcel = Nothing
Set cnADO = Nothing
End Sub
Private Sub 实时报表Btn_Click()
'注释: 1。该程序需要安装ADO 2.0目标库并在本机注册
' 2。Microsoft ActiveX Data Objects 2.1 Library 必须被引用 (Office 2000)
' 3。Microsoft Excel 9.0 object libraries 必须被引用 (Office 2000)
' 4。划===处可根据具体报表修改
Dim c As Integer
Dim r As Integer
Dim Rpt_xls As Excel.Application
Dim MyDate, MyMonth, MyDay, MyHour, MyMinute, MySecond
Dim stDate, stMonth, stDay, stHour, stinute, stSecond, sttime As String
Dim StartTime, EndTime, Duration, DisplayDay, DisplayMonth As String
'--====================================================================
stDate = Date$
sttime = Time$
StartTime = stDate & " 09:40:00"
EndTime = stDate + " " + sttime
r = 1
Items = 8
Set Rpt_xls = New Excel.Application
Rpt_xls.Visible = True
'++============================================================================
'打开的报表文件名
Dim OutReportFile As String
Dim Rpt_f1 As String
Rpt_f1 = "d:\Dynamics\App\rt1"
Rpt_xls.Workbooks.Open Rpt_f1 & ".XLS"
Rpt_xls.ActiveWorkbook.SaveAs (Rpt_f1 & stDate)
'===============================================================================
Rpt_xls.Sheets("Sheet1").Select
Rpt_xls.Range("E1").Select
Selection.NumberFormatLocal = "yyyy-mm-dd hh:mm:ss"
Cells(1, 5).Value = stDate & sttime
'================================================================================
Cells(3, 2).Value = Fix32.mynd.ai1.f_cv
Cells(3, 3).Value = Fix32.mynd.ai2.f_cv
Cells(3, 4).Value = Fix32.mynd.ai3.f_cv
Cells(3, 5).Value = Fix32.mynd.ai4.f_cv
Range("B3:E3").Select
Selection.NumberFormatLocal = "0.00_ "
'================================================================================
Rpt_xls.ActiveSheet.PageSetup.Orientation = xlPortrait 'xlLandscape
Rpt_xls.ActiveSheet.PageSetup.PaperSize = xlPaperA4
'Rpt_xls.ActiveSheet.PrintOut
Rpt_xls.DisplayAlerts = False
Rpt_xls.ActiveWorkbook.Save
OutReportFile = Rpt_f1 & "_00" & MyMonth & MyDay
Rpt_xls.ActiveWorkbook.SaveAs OutReportFile
Rpt_xls.Quit
Rpt_xls.DisplayAlerts = True
Set Rpt_xls = Nothing
End Sub