石油天然气学报２０１２年８月第３４卷第８期 ・３５８・ Ｊｏｕｒｎａｌ ｏｆ Ｏｉｌ ａｎｄ Ｇａｓ Ｔｅｃｈｎｏｌｏｇｙ Ａｕｇ．２０１２ Ｖｏ１．３４ Ｎｏ．８ 在ＲＳＶｉｅｗ３２组态软件中实现周期性 报表自动生成 杨文Ｊ Ｉｌ，贾瑜华 （中国石道学院，河北廊坊０６５０００） 王 磊 （中国石油天然气管道局国际事业部市场开发部，河北廊坊０６５０００） ［摘要］主要介绍ＲＳＶｉｅｗ３２内嵌的ＶＢＡ程序与Ｍｉｃｒｏｓｏｆｔ Ｏｆｆｉｃｅ组件相结合，实现监控系统的周期性生 产记录的自动生成，并通过具体事例讲解了ＲＳＶｉｅｗ３２的工程设置与命令及ＶＢＡ部分编程技巧等。 ［关键词］ＲＳＶｉｅｗ３２；ＶＢＡ；Ｅｘｃｅｌ；Ａｃｃｅｓｓ；报表；历史数据库；监控与数据采集系统 ［中图分类号］ＴＥ９７８ ［文献标识码］Ａ ［文章编号］１０００—９７５２（２０１２）０８—０３５８—０３ 在国内油气长输管道ＳＣＡＤＡ（监控与数据采集）系统中，Ｒｏｃｋｗｅｌｌ公司旗下的ＡＢ ＰＬＣ产品被广 泛使用，而Ｒｏｃｋｗｅｌｌ公司的上位组态软件ＲＳＶｉｅｗ ３２，被誉为与ＡＢ ＰＬＣ产品结合最好的人机界面交 互软件，也得到普遍应用。但与其他组态软件相类似，ＲＳＶｉｅｗ３２软件也没有绑定专业数据库，导致其 在处理历史数据和报表生成方面比较弱。 在实际应用中，经常需要调用历史数据或生成比较复杂的报表，通常实现的途径主要有两种，一是 脱离专业组态软件，利用高级语言编写人机界面系统（ＨＭＩ），再结合数据库编程，可以快速方便 地实现历史数据库和复杂报表功能，但其ＨＭＩ系统的稳定性和可靠性往往不被工程单位认可；另一种 方法是以专业组态软件为主，利用组态软件内嵌的寄宿程序，如：ＲＳＶｉｅｗ３２内嵌的ＶＢＡ（Ｖｉｓｕａｌ Ｂａｓｉｃ ｆｏｒ Ａｐｐｌｉｃａｔｉｏｎ），Ｗｉｎｃｃ内嵌的ＶＢＳ（Ｖｉｓｕａｌ Ｂａｓｉｃ Ｓｃｒｉｐｔ），再结合外部数据库（如：Ｍｉｃｒｏｓｏｆｔ Ｏｆｆｉｃｅ Ａｃｃｅｓｓ、Ｍｉｃｒｏｓｏｆｔ ＳＱＬ Ｓｅｒｖｅｒ等），就可以实现调用历史数据或生成比较复杂报表的功能，这样 也保证了ＨＭＩ系统的稳定和高效。 ‘ 笔者主要解决的问题是，如何实现周期性生产报表的定点自动生成，即：在Ｔ业控制中，需要保存 周期性的生产数据记录，在新的生产周期开始前，常常是在交时，需要将上一周期的生产记录自动 保存，防止交人员丢失关键生产和计量数据。下面结合实例（每天早上８：００交时，将此前 ２４ｈ的整点生产记录以Ｅｘｃｅｌ报表文件格式自动生成和存盘），利用ＲＳＶｉｅｗ ３２组态软件和其内嵌的 ＶＢＡ程序、Ｍｉｃｒｏｓｏｆｔ ０ｆｆｉｃｅ套装组件中的Ｅｘｃｅｌ软件和Ａｃｃｅｓｓ数据库，探讨具体实现方法。 １ ＲＳＶｉｅｗ３２工程设置 ＲＳＶｉｅｗ３２组态软件编程功能强大，设置内容繁多，这里只阐述实现定点自动处理的必要相关设置 和命令。 １．１数据记录设置 １）ＯＤＢＣ数据源设置 ＯＤＢＣ数据源属于常规设置，不再赘述。需要注意的是，生成的ＤＳＮ数据 源的默认保存路径是在系统盘上，开发人员最好改在自己的工程目录下，否则现场调试时无法调用，需 要重新设置ＯＤＢＣ数据源。 ２）记录触发设置记录触发必须选择“要求”触发选项。具体设置在事件文件中，见１．２．１数据 ［收稿日期］２０１２—０５—０６ ［作者简介］杨文川（１９７０一）。男，２００９年河北工程学院毕业，讲师，主要从事油气储运和自动化教学科研。 ・３６Ｏ・ ｃｕｒｓｏｒｔｙｐｅ １ 石油天然气学报＊油气管道工程与设备 ２０１２年８月 ・．１ｏｃｋｔｙｐｅ：３ Ｓｏｕｒｃｅ：ｇｄｄｅｌ ｏｐｅｎ ．・Ｅｎｄ Ｗｉｔｈ 说明：在实际工业生产作业中，ＲＳＶｉｅｗ３２组态监控系统因各种原因的启停将导致启停时间点的数 据自动记录到数据库中，所以需要将这些非所需数据删除。 ２．２交的时间函数设置 Ｄｉｍ ｏｂｊａｃｃｅｓｓ Ａｓ Ｏｂｊｅｃｔ Ｄｉｍ ｇｄ Ａｓ Ｓｔｒｉｎｇ Ｓｅｔ ｏｂｊａｃｃｅｓｓ—ＣｒｅａｔｅＯｂｊｅｃｔ（“ａｄｏｄｂ．ｒｅｃｏｒｄｓｅｔ”） Ｗｉｔｈ ｏｂｊａｃｃｅｓｓ ｏｐｅｎ ＦｌｏａｔＴａｂｌｅ ．ａｃｔｉｖｅｃｏｎｎｅｃｔｉｏｎ一“ｐｒｏｖｉｄｅｒ—ｍｉｃｒｏｓｏｆｔ．ｊｅｔ．ｏｌｅｄｂ．４．０；ｄａｔａ ｓｏｕｒｃｅ＝”＆ｇＰｒｏｊｅｃｔ．Ｐａｔｈ ８Ｌ“／ｖｂａ／数据库名．ｍｄｂ” ．ｃｕｒｓｏｒ１ｏｃａｔｉｏｎ＝３ ｃｕｒｓｏｒｔｙｐｅ＝１ ．．１ｏｃｋｔｙｐｅ一３ Ｓｏｕｒｃｅ—ｇｄ ｏｐｅｎ ．・Ｅｎｄ Ｗｉｔｈ ｇｄ＝“ｓｅｌｅｃｔ＊ｆｒｏｍ ＦｌｏａｔＴａｂｌｅ ｗｈｅｒｅ ｄａｔｅｄｉｆｆ（‘ｈ’，ＤａｔｅＡｎｄＴｉｍｅ，ｄａｔｅ（））＜一１５ ｏｒｄｅｒ ｂｙ ＤａｔｅＡｎｄＴｉｍｅ” 说明：ＶＢＡ自带的时间函数不多，ｄａｔｅｄｉｆｆ函数可以实现大多需求。实例是提取前一天上午９：Ｏ０ 至当天上午８：０Ｏ间的２４ｈ整点记录，在２ｄ的时间跨度内提取数据，所以选用ｈ为参数，ｄａｔｅｄｉｆｆ （‘ｈ’，ＤａｔｅＡｎｄＴｉｍｅ，ｄａｔｅ（））＜一１５，表示从当天０：００往回推１５ｈ，即为前一天９：００整开始采 集。如果是需要提取前一工作日的２４ｈ的整点数据，那么选用ｄ为参数，ｄａｔｅｄｉｆｆ（‘ｄ’，ＤａｔｅＡｎｄ— Ｔｉｍｅ，ｄａｔｅ（））＜一１即可。 ２．３实现报表的自动命名和存盘 Ｄｉｍ ａｉ Ａｓ Ｓｔｒｉｎｇ ａｉ＝Ｆｏｒｍａｔ（Ｎｏｗ，“ＹＹＹＹ—ｍｍ－ｄｄ ｈｈ—ｍｍ“） Ｗｉｔｈ ｏｂｊ Ｅｘｃｅ１．Ｗｏｒｋｂｏｏｋｓ（“ｂｏｏｋ１”） ．ｓａｖｅａｓ“ｄ：／ｕｓｅｒｄａｔａ／’’＆ａｉ＆“．ｘｌｓ” ｃｓｔｒ（ｖａｌ（ａｉ））＆“．ｘｌｓ” Ｅｎｄ Ｗｉｔｈ 说明：每天的整点记录将以的Ｅｘｃｅ．１文件格式自动存盘，其保存路径为Ｄ盘下的ｕｓｅｒｄａｔａ文件 夹，其文件名为报表生成时的计算机系统时间，如：２０１０—１２—３０ ０８—０１．ｘｌｓ。 ３结 语 笔者探讨的周期性整点报表，不用人工操作，完全由计算机自动生成。如果想人为查看某时间段内 的历史数据报表，可以在ＨＭＩ上设置选项，编程大同小异。总之，利用ＲＳＶｉｅｗ３２内嵌的ＶＢＡ程序， 结合Ｅｘｃｅｌ报表和Ａｃｃｅｓｓ数据库，可以实现各类复杂报表功能。 ［编辑］ 萧雨
