基于VB动态质量报表系统设计与实现.docVIP

基于VB动态质量报表系统设计与实现 　　摘要：VB中提供了一个Excel对象，利用它可将数据库数据直接导入到Excel工作簿中，并最终输出所需格式丰富的报表。本文介绍VB控制Excel方法生成报表的制作过程。 　　关键词：质量报表；Excel报表；界面的设计；程序 　　中图分类号：TP391.13 文献标识码：A文章编号：1672-1578（2010）10-0253-02 　　 　　随着ERP系统功能逐渐完善和信息方面的数据可靠性、准确性的提高，在质量管理中，充分利用ERP系统数据来分析生产质量状况越来越重要。但由于ERP系统的质量报表功能简单且缺乏灵活性，无法完成产品质量数据，如：正品量、正品率、一级品率、实际与计划比例等指标的计算，也无法满足根据不同产品、不同等级、不同原因进行分类汇总、统计的要求，所以一直没有使用。而这些信息通过传统手工在Excel表中进行统计计算、既费时费力，还要熟悉Excel的操作才行。因此，本文通过VB编程，实现在VB中控制Excel来实现动态质量报表的生成，解决了复杂报表的制作、汇总、统计等问题。 　　1 VB报表制作 　　1.1 Excel对象：VB中提供了一个Microsoft Excel对象模型，它包括了128个不同的对象，从文本框等简单的对象到透视表、图表等复杂的对象。以下是本文涉及到的其中的4个对象：①Appikaflon对象。Application对象处于Excel对象层次结构的顶层，表示Excel自身的运行应用程序。②Workbook对象。Workbook对象处于Application对象的下层，表示一个Excel工作薄文件。③Worksheet对象。Worksheet对象包含于Worksheet对象，表示一个Excel工作表。④Cells对象。Cells对象包含于Worksheet对象，表示Excel工作表中的一个单元格。 　　1.2 创建Excel报表的流程：VB创建Excel报表的流程可归纳为以下几个方面，此处结合质量统计分析系统的报表进行说明。 　　（1）用VB创建Excel对象。每个Microsoft Office应用程序提供了一个顶层Application对象，Excel应用程序也提供了一个Excel对象。VB中使用该对象前需引用相应的对象库才能使用它，VB中引用Excel对象库的步骤:选择菜单“工程”、“引用”后，弹出图1，选中“MicrosoftExcel 11.0 Object Library”，按“确定”即可。 　　（2）生成工作表的内容。在引用完成后可对Microsoft Excel的Application对象进行引用，即定义相应的Excel对象变量，可以用这些变量来访问在Excel应用程序中的从属对象、以及这些对象的属性和方法，代码如下: 　　Dim myexcel As New Excel.Application 　　Dim mybook As New Excel.Workbook 　　Dim mysheet As New Excel.Worksheet 　　Set mybook=myexcel.Workbooks.Open（App.Path+\test.xlt）添加一个新的Book 　　Set mysheet=mybook.Worksheets（1） 　　myexcel.Visible=True 　　在生成了Excel工作表文件后，紧接着对工作表中的单元格进行格式设置和赋值就完成报表的制作了。 　　1.3 系统界面的设计。 　　首先启动VB程序，先创建一个工程名称ZLFX；再创建一个窗体；再在窗体中添加一些控件。 　　（1）实现Excel表数据向Access数据库的导入由于该数据分析系统不能直接调用ERP系统内数据，因此需将ERP系统数据转化为Excel表，然后点击图2窗体中的导入数据按钮，再将Excel表数据导入到数据库SCRB.MDB的Sheet1表中。 　　代码如下： 　　Set db=Open Database(m_Excel Name,True,False,Excel 5.0)，打开电子表格文件。 　　SQLFILE1=(Select*into[;database=Ac-cessPath].AccessTableFROM[sheet$])db.Execute（SQLFILE1），将电子表格导入数据库。 　　（2）连接数据分析代码的实现。本系统是采用SQL查询语句来实现产品质量的分类、统计及各指标计算，而查询条件的设定是实现动态报表的关键。在计算某一钢种的总检量时，首先要对SQL语句的查询条件进行设置，如:FILE1=LEFT(物料,2)=S（i）；然后按照检索条件逐一计算总检量，如： 　　SQL