VB在环境监测系统中的应用.pdf

《VB在环境监测系统中的应用.pdf》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VB在环境监测系统中的应用罗婷。等ApplicationofVBinEnvironmentalMonitoringSystem罗谚来凌云(东华大学信息科学与技术学院，上海201620)摘要：针对密闭环境中的人员安全问题，研究了监测及控制环境内部气体浓度的方法；并基于VB和Access，实现了PC监控界面软件的设计。该软件采用基于ADO的Access访问方法和VB中二维曲线的绘制方法。实现了用户管理和气体浓度记录管理以及密闭环境内气体的实时监测显示；并通过VB与Excel的连接方法，实现了数据报表的

2、保存和输出。测试结果表明，该上位机软件实现了模拟环境系统的实时监测功能．且运行稳定．可以应用于实际的环境系统中。关键词：数据库实时监测温度传感器上位机数据采集中图分类号：TP319文献标志码：AAbstract：Aimingattheproblemofpersonnelsecurityinaconfinedenvironment，themethodofmonitoringandcontrollinggasconcentrationinenvironmentisresearched。andthede

3、signofmonitoringinterfacesoftwareofPCbasedonVBandAccessisachieved．ByadoptingtheAccessmethodbasedonADOanddrawingmethodof2DcurveinVB，theusermanagementandgasconcentrationrecordingmanagement-aswellasthereal—timemonitoringdisplayingofthegasinconfinedenviro

4、nmentisimplemented。andthefunctionsofsavingandoutputdatareportisimplementedthroughtheconnectionmethodofVBandExcel．Thetestingresultshowsthatthereal—timemonitoringfunctionofsimulatedenvironmentsystemisimplementedbythehostcomputersoftware，andthesystemlUll

5、SstablyandCanbeappliedintoactualenvironmentsystem．Keywords：DatabaseReal—timemonitoringTemperaturesensorHostcomputerDataacquisition0引言VisualBasic(VB)编程语言具有众多的优点，易于学习。因此常常被应用于监控系统的上位机软件设计。在上位机软件系统的实现过程中，主要需要解决的问题包括记录的管理、实时曲线的显示、历史数据的保存和查看等。本文通过对VB语言的深入研

6、究和学习．设计了一个环境监控系统的上位机软件。针对设计过程中的3种关键技术，以下分别给出详细的实现方法。这3种技术分别为基于ADO的Access访问方法、绘制曲线的方法以及与Excel的连接方法。最后，给出了这些关键技术在环境监测系统中的实际应用情况。1VII关键技术1．1基于ADO的Access数据库访问ActiveXDataObject(ADO)技术是由Microsoft公司开发的最新的数据访问接口技术，ADO是建立在基于低层数据访问接I=1OLEDB技术上的数据对象，它是修改稿收到日期：20

7、12—05—14。第一作者罗婷(1989一)，女，现为东华大学控制工程专业在读硕士研究生：主要从事计算机应用软件的研究。《自动化仪表》第34卷第3期2013年3月数据访问对象(dataaccessobject，DAO)和远程数据对象(remotedataobject，RDO)的后继产物⋯。在VB中。通常有2种方法可以实现对ADO的操作[2]，一是通过ADOData控件非编程访问方式，二是利用ADO对象编程来访问各种类型数据库。在此举例说明第二种方法。即编程访问Access数据库。假设存在一个名为“

8、hjmonitoring”的数据库，同时该数据库中有一张“admin”表，该表含有users、passwords和mame这3个字段。访问数据库的关键语句如下。①引人ADO对象库从主菜单选择“工程”一“引用”一“MicrosoftActiveXDataObjects2．5Library”。②创建Connection对象DimConnAsNewADODB．Connection；DimRsAsNewADODB．Recordset；③连接数据库引Rs．LockType=adLockOpt