用Activex实现工程中数据处理与图形输出.doc

用Activex实现工程中数据处理与图形输出 邹袆1 袁臻2 （1 江西省交通建设质量监督站 南昌 330008）0 前 言 Activex的本质是组件软件(Component Software)，所谓组件就是别人开发的项目(控件或应用程序)。我们可以将多个应用程序捆绑在一起，来构造自己的应用程序，即所谓的组件技术。只要组件支持对象链接和嵌入技术(OLE)，我们就可借助已有软件的功能为我所用，其相应组件不必要重新开发，即可用在应用程序中。 下面我们以某型检测仪器生成的Access数据库slope.mdb为数据源，利用Activex技术，用VB将slope.mdb里的原始数据调用到ExceI里来处理，并使ExceI处理的结果可在程序里预览和生成可直接打印的文件，从而提高工作效率。 1 VB控制Access 1.1打开数据库 待处理的数据存放在slope.mdb数据库中的commdata数据表中，表中的关键字段为commdate(测量日期)、commdata(观测数据)。现要读取commdata数据表中的data中的字段，做法如下： 首先必须声明两个对象变量： Public db As database ‘定义一个数据库对象变量 Public rs As Recordset ‘定义一个数据录集对象变量 接着分别使用OpenDatabase和OpenRecordset方法 Set db=OpenDatabase(App.Path \slope.mdb，True，False) Set rs=db.OpenRecordset(select * from commdata order by commdate，dbOpenDynaset) 在这里需要说明的是，在OpenDatabase函数内的两个参数值。第一个True代表应用程序设置为单机操作，第二个False代表数据库可以接受修改、新增、删除等操作，且App.Path代表slope.mdb是放在与应用程序同一路径下。而OpenRecordset方法中的Select是属于SQL语句，通配符号“*”在上述的参数位置代表所有字段。 1.2读取数据记录 如果需要对commdata表中的某些字段赋值给某一变量，以便于对数据进行进一步的操作处理，如该段程序将数据库前20条记录的commdate相应字段的值赋给data(i)数组，可以通过如下代码来实现： rs.MoveFirst For i=0 T0 19 Step l data(i)=rs![commdata] rs.MoveNext Next i 2 VB控制Excel 2.lExcel模板的建立 Excel模板在整个程序中处于一个相当重要的位置，我们大部份的数据处理过程都是通过VB调用模板来完成的。在这个模板里，我们先设置好外部数据填充区域、数据处理的计算公式以及生成图形的数据源与图表类型，然后利用Activex技术，用VB代码将外部数据填充到模板中相应的单元格位置，Excel模板将自动完成数据处理与相关图表的生成。在整个过程中，Excel模板中各项公式及区域设置正确与否，直接关系到整个应用程序的实用性。 2.2创建对Excel类型库的引用 选择Visual Basic 6.0“工程”菜单中的“引用”项，然后选定应用程序的复选框(Microsoft Excel 10.0 Object Library)，单击“确定”，对应用程序的类型库设置引用以后，其所有对象、方法以及属性将会全部在VB的对象浏览器中列举出来。由此容易知道Excel的对象及每个对象适用的属性与方法。 2.3创建OLE对象 在打开Excel应用程序和工作簿时，首先要分别定义两个对象变量appExcel和wbExcel，并且把它们的数据类型指定为Excel.Application与Excel.Workbook。其程序代码如下： Public appExcel As Excel.Application Public wbExcel As Excel.Workbook 关于Applicationt和Workbooks等对象的关系如图1所示。 图1 在定义完对象变量后即可激活Excel应用程序和用CreateObject函数来建立一个Excel对象，通过对这个对象变量appExcel就可以使用Excel应用程序所提供的功能了。 Set appExcel=CreateObject(excel.application) Set wbExcel=appExcel.Workbooks.Open(App.Path\slope.xls) 2.4VB控制外