教学设备管理系统毕业论文.docVIP

摘要北华大学教学设备管理系统是为了适应对北华大学教学设备管理的迫切需求而设计开发的软件系统，其性质是一个典型的信息管理系统，它主要包括数据库的建立及应用程序的开发，本系统采取的是Microsoft Access 2000数据库，用Visual Basic6.0设计源程序代码，利用其提供的各种面向对象的开发手段，在短时间内建立系统原型，实现能够不断修正和改进的令用户满意的可行性系统。关键词 Access 2000；教学设备；信息管理系统；Visual Basic6.0AbstractThe teaching equipment management system of BeiHua University is to adapt to the BeiHua University of teaching equipment management and the urgent needs of the software system design and development, the nature of a typical information management system, which mainly includes the establishment of the database and application development, system takes the Microsoft Access 2000 database with Visual Basic6.0 design source code, using its provision of various object-oriented development tool, a system prototype in a short period of time to achieve that and to continue to improve the customer satisfaction the feasibility of system.Keywords Access 2000 ; Teaching Equipment; Information Management System; Visual Basic6.0不要删除行尾的分节符，此行不会被打印目录摘要IAbstractII1 绪论11.1 系统开发的背景11.2 系统开发的意义和目的11.3 系统的开发环境21.3.1 系统的开发语言及应有软件平台21.3.2 Visual Basic6.0的运行环境32 管理系统的设计42.1 系统开发的思想与原则42.1.1 管理信息系统的概述42.1.2 管理信息系统的开发方法42.1.3 可行性分析52.2 系统的结构设计62.2.1 系统功能图62.2.2 系统数据库结构73 系统详细设计113.1 系统登陆图113.2 系统程序设计123.2.1 ADO Data 控件133.2.2 其他模块143.3 报表打印193.3.1 数据报表193.3.2 报表打印实例204 系统评价254.1 系统实施254.2 系统测试25结论26参考文献27致谢28千万不要删除行尾的分节符，此行不会被打印。在目录上点右键“更新域”，然后“更新整个目录”。打印前，不要忘记把上面“Abstract”这一行后加一空行1 绪论1.1 系统开发的背景我国高校的教学设备管理系统的自动化水平很差，许多高校在采购设备之后，只是将这些设备的基本情况记录并存档，以后的情况便无人管理，如设备的状态，检修，位置，剩余数量等信息完全不能体现在档案中，这使整个学校的管理都存在着缺陷，设备所需的支出，维修，现有数量及质量等问题得不到妥善的解决，高校的设备管理信息化程度处在较低的水平。本信息系统是根据国内各大高校的设备管理现状，以北华大学为例，借鉴国外领先的管理思想而设计开发的，以灵活，方便，快捷，通用为设计思想，减少工作人员的劳动强度，减少办公耗材，提高学校的办公效率和设备可靠性，从而提高高校的现代化管理水平。此系统基本能够满足我国各高校的设备管理需要。1.2 系统开发的意义和目的21世纪，人类社会进入了崭新的信息时代，信息技术将在信息资源、信息处理和信息传递方面实现微电子与光电子结合。智能计算与认知、脑科学结合等，信息是经过加工的数据，信息是对决策者有价值的数据。信息的主要特征是来源分散，数量庞大。信息来源于生产第一线，来源于社会环境，来源于市场，来源于行政管理等部门。信息具有时间性。其应用领域将更加广泛和多样，给人类带来全新的工作方式和生活方式。这已经是一个无可争议的事实，而信息管理就是社会对信息资源的强烈需要产生的，它源于西方，随着世界量的迅速增长，信息技术日新月异，信息技术是利用计算机进行信息处理，利用现代电子通信技术从事信息采集、存储、加工、利用以及相关产品制造、技术开发、信息服务的新学科，而信息管理是指对人类信息活动所产生的社会信息进行管理，信息管理是管理的一种，既要对信息进行管理，也要对信息活动进行管理。信息和信息活动都是信息管理的客体。简而言之，信息管理就是对信息和信息活动的管理，这就是我们对信息管理的全面理解。管理信息系统是一个不断发展的新型学科，它的定义随着计算机技术和通讯技术的进步也在不断更新，在现阶段普遍认为管理信息系统是由人和计算机设备或其他信息处理手段组成并用于管理信息的系统。在一个经济激烈竞争的年代，谁的信息管理现代化水平高，谁重视信息资源的开发和利用，谁就能抓住机遇，在竞争中取胜。在现代社会，管理信息系统已和计算机设备不可分离，管理信息系统包括计算机、网络通讯设备等硬件成份，包括操作系统、应用软件包等软件成份。并随着计算机技术和通讯技术的迅速发展还会出现更多的内容。我国高校的信息管理水平还很差，虽然许多管理信息系统花费了巨大的人力和物力，但投入使用运行后不久就夭折了，原因在于严重忽视软件工程的最后一个也是最重要的一个环节维护，而导致管理信息系统的失败。为了改变现状，经过研究、设计，查阅资料等方式开发了本系统，提高科学管理水平首先要提高科学管理的意识，进行管理信息系统的开发首先要具有科学的开发方法。成功管理信息系统的基础是科学的管理加上科学的开发方式。学校的管理系统开发必须结合实际，严格按照软件工程的思想进行才能保证管理信息系统的高成功率和高效率。由于早期开发的应用项目没有严格遵守软件工程的方法进行设计与实施，因此多年来一直到今天仍然在不断的修改，造成人、财、物的浪费，做这个课题的目的是为了方便对学校的教学设备进行统计及管理工作，减少每天需要涉及到的相关工作量，尽可能的提高工作效率，以节省人力物力的浪费。1.3 系统的开发环境1.3.1 系统的开发语言及应有软件平台本系统的数据库是通过Microsoft Access 2000建立的，开发语言则选用了Visual Basic6.0，二者都是Microsoft公司的产品，彼此的兼容性较好，开发出的应用系统稳定性较高。Access是微软公司推出的基于Windows的桌面关系数据库管理系统（RDBMS），是Office系列应用软件之一。它提供了表、查询、窗体、报表、页、宏、模块7种用来建立数据库系统的对象；提供了多种向导、生成器、模板，把数据存储、数据查询、界面设计、报表生成等操作规范化；为建立功能完善的数据库管理系统提供了方便，也使得普通用户不必编写代码，就可以完成大部分数据管理的任务。VB 60适合于Windows9598和Windows NT平台，它简单易用，适用面广，无论是通信、数据库，还是多媒体以及普通的Windows应用程序都可以用VB进行开发，而且方便快捷。Visual Basic 是一种可视化的编程工具，Visual意为“可视化的”，指的是一种开发图形用户界面（GUI）的方法。Visual Basic 编程系统采用了面向对象、事件驱动的编机制，通过把复杂的Windows编程封装起来，提供了一种所见既所得的可视界面设计方法，为广大用户的学习、使用、研究和开发Windows环境下的应用程序提供了巨大的帮助。1.3.2 Visual Basic6.0的运行环境VB 6.0是Windows 98或Windows NT下的一个应用程序,本身对软硬件没有特殊要求，也就是说，它对环境的要求与 Windows 98,Windows NT要求是一致的。硬件：一般要求586以上的处理器，16MB以上内存，100MB以上的剩余硬盘空间，CD-ROM驱动器，鼠标等。软件：要求Windows 98或 Windows NT 3.51以上版本。2 管理系统的设计2.1 系统开发的思想与原则2.1.1 管理信息系统的概述1、 管理信息系统的概念管理信息系统是一个不断发展的新型学科，它的定义随着计算机技术和通讯技术的进步也在不断更新，在现阶段普遍认为管理信息系统是由人和计算机设备或其他信息处理手段组成并用于管理信息的系统。管理信息系统是一门新兴的科学，其主要任务是最大限度的利用现代计算机及网络通讯技术加强企业的信息管理，通过对企业拥有的人力、物力、财力、设备、技术等资源的调查了解，建立正确的数据，加工处理并编制成各种信息资料及时提供给管理人员，以便进行正确的决策，不断提高管理水平和经济效益。支持学校或组织的运行、管理和决策功能。2、 管理信息系统的特性完善的管理信息系统具有以下四个标准：确定的信息需求、信息的可采集与可加工、可以通过程序为管理人员提供信息、可以对信息进行管理。具有统一规划的数据库是管理信息系统成熟的重要标志，它象征着管理信息系统是软件工程的产物。通过管理信息系统实现信息增值，用数学模型统计分析数据，实现辅助决策。管理信息系统是发展变化的，管理信息系统有生命周期。管理信息系统的开发必须具有一定的科学管理工作基础。只有在合理的管理体制、完善的规章制度、稳定的生产秩序、科学的管理方法和准确的原始数据的基础上，才能进行开发。2.1.2 管理信息系统的开发方法常用的管理信息系统的开发方法有生命周期法、面对对象的开发方法。本系统只用到面向对象法，所以只对这种方法进行简单描述。面向对象法是近年来针对结构分析、结构设计、结构程序设计（SASDSP）的缺陷提出的设计新途径，是适应当前计算机技术的进步及对软件需求的极大增长而出现的。是一种快速、灵活、交互式的软件开发方法学。其核心是用交互的、快速建立起来的原型取代了形式的、僵硬的（不易修改的）大块的规格说明，用户通过在计算机上实际运行和试用原型而向开发者提供真实的反馈意见。面对对象法的开发过程面对对象法的开发过程一般分为四个阶段：1、认识客观世界（如一个学校）中的对象以及行为，分别独立设计各个对象的实体。2、分析对象之间的联系和相互之间所传递的信息，由此构造客观世界（学校）所对应的信息管理系统的模型。3、由信息系统的模型转换成计算机软件系统的模型。4、由计算机软件系统的模型再转化成一个现实系统。面向对象法的优缺点：面向对象法的优点是便于帮助分析者、设计者和用户清楚地表达抽象概念，互相进行交流；交流特定的软件工具模块，直接地完成了从对象的描述到软件体系结构之间的转换，避免了其它的方法在开发过程的客观世界描述和软件结构不一致性和复杂性问题，便利系统开发、简单、统一、开发周期短、费用低。面向对象法的主要缺点是系统的开发缺乏统一的规划和开发标准，难以对系统的开发过程加以控制，因此这种方法不适用于开发大的、复杂的系统。2.1.3 可行性分析可行性分析阶段的主要工作包括以下几个方面：新系统目标可行性分析：分析新系统的目标是否符合学校的现状和发展的需要。社会可行性分析：社会可行性分析主要是指管理信息系统的开发是否符合国家法律、政策，是否能够与社会大系统实现良好的对接。技术可行性分析：技术可行性分析是根据新系统的目标来衡量是否具备所需要的技术，包括系统开发人员数量和水平，硬件方面，软件方面及其它应用技术。经济可行性分析：经济可行性分析主要是对开发新系统所投入的资金与系统投入使用后所带来的经济效益进行比较，确认新系统是否会给学校带来一定的经济效益。管理可行性分析：管理可行性分析主要是分析学校现行的管理体制和学校领导是否具有现代化的管理意识和管理水平。2.2 系统的结构设计2.2.1 系统功能图下面分别论述本系统的各个功能模块的作用：（）系统登陆：进入本登陆界面，用户需要正确的用户名和密码之后才能使用本系统。（）设备入库：本应用模块的主要功能是实现对教学设备的入库管理工作，包括设备的查询、添加、编辑、删除等操作。（）设备出库：本应用模块的主要功能是实现对教学设备的出库管理工作，包括设备的查询、添加、编辑、删除等操作。（）设备还库：本应用模块的主要功能是实现对教学设备的还库管理工作，包括设备的查询、添加、编辑、删除等操作。系统登陆设备入库设备出库设备还库部门需求维修记录退出系统打 印退 出第一个前一个下一个最后一个查 询添 加删 除退 出打印预览进入报表教学设备管理系统设备采购保存修改报表打印图2-1系统功能图（5）部门需求：本应用模块的主要功能是实现对教学设备的部门需求进行管理，包括设备的查询、添加、编辑、删除等操作。（6）设备采购：本应用模块的主要功能是实现对教学设备的采购管理工作，包括设备的查询、添加、编辑、删除等操作。（7）维修记录：本应用模块的主要功能是实现对教学设备的维修记录进行登记和管理，包括设备的查询、添加、编辑、删除等操作。（8）报表打印：本应用模块的主要功能是实现对本系统的所有数据表进行打印工作。 （9）退出系统：退出本系统。2.2.2 系统数据库结构Access具有灵活方便、易于使用的特点，成为办公及个人数据库管理的主流软件。数据库管理者可以利用系统的向导或生成器，迅速建立简单的应用程序；也可以作为其他软件开发工具的后端数据库。本系统的(E-R)图,分别如下所示(1)设备入库表设备名称设备号供应商名称供应商电话单价入库时间入库数量设备入库表图2-2 设备入库设备入库表的字段设置如下：字段名类型宽度是否为空默认值说明设备名称字符型40否主索引字段设备号字符型6否供应商名称字符型40可供应商电话浮动型20可单价浮动型6可入库时间日期时间型8可入库数量浮动型8可表2-1 设备入库表(2)设备出库表设备号出库时间出库状况经手人使用部门设备出库表设备名称用途图2-3 设备出库设备出库表的字段设置如下：字段名类型宽度是否为空默认值说明设备名称字符型40否主索引字段设备号字符型6否出库时间日期时间型8可出库状况字符型20可经手人字符型20可使用部门字符型20可用途浮动型40可表2-2 设备出库表(3)设备还库表设备号还库时间接收人归还数量归还人设备还库表设备名称图2-4 设备还库设备还库表的字段设置如下：字段名类型宽度是否为空默认值说明设备名称字符型40否主索引字段设备号字符型6否还库时间日期时间型8可接收人字符型20可归还数量浮动型8可归还人字符型20可表2-3 设备还库表(4)设备采购表设备号现有库存最大库存价格供应商计划采购时间设备采购表设备名称图2-5 设备采购设备采购表的字段设置如下：字段名类型宽度是否为空默认值说明设备名称字符型40否主索引字段设备号字符型6否现有库存字符型40可最大库存字符型40可价格浮动型8可供应商字符型40可计划采购时间日期时间型8可表2-4 设备采购表(5)部门需求表是否领取需要部门部门负责人经手人登记时间归还时间部门需求表设备名称图2-6 部门需求部门需求表的字段设置如下：字段名类型宽度是否为空默认值说明设备名称字符型40否主索引字段是否领取字符型6否需要部门字符型40可部门负责人字符型20可经手人字符型20可登记时间日期时间型8可归还时间日期时间型8可表2-5 部门需求表(6)设备维修表设备号维修时间是否修好维修费用现在位置维修人设备维修表设备名称图2-7设备维修设备维修表的字段设置如下：字段名类型宽度是否为空默认值说明设备名称字符型40否主索引字段设备号字符型6否维修时间字符型40可是否修好字符型20可维修费用浮动型8可现在位置字符型20可维修人字符型20可表2-6 设备维修表3 系统详细设计3.1 系统登陆图1、登陆界面图3-1 登陆界面这是一个普通的登陆界面，在输入正确的用户名和密码后，便会进入系统的主界面，否则系统将提示错误或退出系统。2、 主界面 图3-2 主界面3.2 系统程序设计本系统的几个模块功能很相似，在此我们仅以设备入库为例。单击主界面中的“设备入库”按钮后，系统便进入了设备入库界面图3-3 设备入库表将text中的内容修改后单击【保存修改】按钮，出现提示信息，“添加信息成功！您将在下次重新进入系统时看到您所修改的信息！”其的代码如下: Private Sub Command8_Click()Dim ret As Longfirst flag = Trueret = MsgBox(确实要编辑记录吗?, vbYesNo)If ret = vbYes ThenAdodc1.Recordset.Update 保存Adodc1.Refresh 刷新MsgBox 添加信息成功！您将在下次重新进入系统时看到您所修改的信息！, vbOKOnly, End IfEnd Sub在图3-3中有一个主要的ADO部件，此处是通过它来连接数据库的。3.2.1 ADO Data 控件1、 ADO Data控件ADO Data控件（简称ADO控件）是Visual Basic6.0 提供的一个ActiveX控件，可以实现以下功能。连接本地数据库或远程数据库。打开指定的数据库表，或定义基于结构化查询语言的查询、存储过程或该数据库中表的视图记录集合。将数据字段的数值传递给数据绑定的控件，可以在这些控件中显示或更改这些数值。添加新纪录，或根据更改显示出在绑定的控件中的数据通信来更新数据库。添加ADO控件的步骤如下：选择菜单中【工程】 【部件】选项。选中【Microsoft ADO Data Control 6.0】，然后单击【应用】按钮，这时就可以在工具栏面板中看到ADO Data控件的图标了。2、 连接数据源从工具箱中加入一个ADO Data控件到控件窗体当中，其默认名称为Adodc1，选择控件并单击右键，选择【ADODC属性】，启动属性对话框，单击【使用连接字符串】后按【生成】，启动如图3-4所示。 图3-4属性对话框 图 3-5连接单击【下一步】出现如图3-5所示，选择或输入数据库后【测试连接】，连接成功点击【确定】，回到属性页，切换到【记录源】，如图3-6，单击【确定】按钮设置结束。图3-6属性页对话框这时将Text的Data Source属性设置成Adodc1,Data Field属性设成相应字段。3.2.2 其他模块1、查询模块图3-7 查询单击图3-7中的【查询】按钮出现查询结果，如图3-8图3-8 查询结果其窗体代码如下：Private Sub Command1_Click()If Check1.Value = vbChecked Then strsql = 设备名称= & Trim(Text1.Text & ) & End IfIf Check2.Value = vbChecked Then If Trim(strsql) = Then strsql = 设备号= & Trim(Text2.Text & ) & Else strsql = strsql & and 设备号= & Trim(Text2.Text & ) & End IfEnd IfDim rs As New ADODB.RecordsetDim strsql As Stringstrsql = select * from 设备入库表 where & strsqlDim mystring As StringSet cnn = New ADODB.Connection cnn.Open ConnectString rs.CursorLocation = adUseClient rs.Open strsql, cnn, adOpenDynamic, adLockPessimistic, adCmdTextDataGrid1.AllowAddNew = FalseDataGrid1.AllowDelete = FalseDataGrid1.AllowUpdate = FalseSet DataGrid1.DataSource = rsrs_findreader.CloseEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub2、添加模块输入相应的内容后单击图3-9的【确定】出现系统提示，你可以继续添加或返回图3-3界面图3-9 添加其窗体代码如下Private Sub Command1_Click()If Me.Text1(0).Text = ThenMsgBox 设备名称不能为空End IfIf Me.Text1(1).Text = ThenMsgBox 设备号不能为空End IfDim rs As New ADODB.RecordsetDim strsql As Stringstrsql = select * from 设备入库表Dim mystring As StringSet cnn = New ADODB.Connection cnn.Open ConnectString rs.Open strsql, cnn, adOpenDynamic, adLockPessimistic, adCmdTextrs.AddNewrs!设备名称 = Me.Text1(0).Textrs!设备号 = Me.Text1(1).Textrs!供应商名称 = Me.Text3.Textrs!供应商电话 = Me.Text4.Textrs!单价() = Me.Text5.Textrs!入库数量 = Me.Text6.Textrs!入库时间 = Me.Text7.Textrs.UpdateMsgBox 添加成功Me.Text1(0).Text = Me.Text1(1).Text = Me.Text3.Text = Me.Text4.Text = Me.Text5.Text = Me.Text6.Text = Me.Text7.Text = rs.Closecnn.CloseEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub3、删除模块图3-10 删除选中你所要删除的行，单击【删除信息】系统提示是否真的要删除，单击【是】此行被删除，【否】回到删除模块。其窗体代码如下Private Sub cmdcancel_Click()Unload MeEnd SubPrivate Sub cmddel_Click()Dim rs As New ADODB.RecordsetDim strsql As Stringstrsql = select * from 设备入库表Set cnn = New ADODB.Connection cnn.Open ConnectString rs.Open strsql, cnn, adOpenDynamic, adLockPessimistic, adCmdTextDim answer As StringOn Error GoTo delerroranswer = MsgBox(确定要删除吗？, vbYesNo, )If answer = vbYes Then DataGrid1.AllowDelete = True Adodc1.Recordset.DeleteAdodc1.Recordset.MoveNext DataGrid1.Refresh MsgBox 成功删除！, vbOKOnly + vbExclamation, DataGrid1.AllowDelete = FalseElse Exit SubEnd Ifdelerror:If Err.Number 0 Then MsgBox Err.DescriptionEnd IfEnd Sub在图3-2中的前六个按钮的功能相似，所以其他五个我们不在介绍了，下面介绍报表打印功能的实现。3.3 报表打印3.3.1 数据报表数据报表是数据库应用程序中非常重要的部分。数据的录入、查询、维护等工作的最终目的，都是为了生成形式各异的数据报表。Data Report 数据报表设计器是与数据源（Data Environment数据环境设计器）一起使用。1、 数据报表设计器的主要特点对字段的拖放功能：支持把字段从Microsoft数据环境设计器拖到数据报表设计器。当进行这一操作时，Visual Basic自动地在数据报表上创建一个文本框控件，并设置被放下字段的Data Member和Data Field属性。也可以把一个Command对象从数据环境设计器拖到数据报表设计器。在这种情况下，对于每一个Command对象包含的字段，将在数据报表中创建一个文本框控件；每一个文本框的Data Member和Data Field属性将被设置为合适的值。打印预览功能：通过使用数据报表设计器所创建的Data Report对象的Show方法可在打印输出前先预览报表。编程打印报表功能：通过调用数据报表设计所创建的Data Report对象的Print Report方法，以编程方式打印一个报表。2、 使用数据报表设计器设计报表的基本方法向工程中添加数据环境设计器Data Environment要添加一个数据环境设计器对象到一个新的工程中，方法如下：单击【工程】中菜单中的【添加Data Environment】便可在当前工程中添加一个数据环境对象Data Environment1。当数据环境设计器被添加到工程中时，便可立即显示数据环境设计器窗口，并且其中默认的把一个Connection对象添加到新建的数据环境中。Connection对象创建完后，就可以对它添加Command 对象了。向工程添加数据报表设计器Data Report单击【工程】菜单上的【添加Data Report】菜单项，Visual Basic将把它添加到工程中。设置数据报表设计器的Data Report对象的属性设置Data Report对象的属性Data Source和Data Member属性。Data Source属性只能选择在工程中所建立的数据环境对象之一。Data Member属性则是对应Data Source属性选择的Command对象之一。检索报表结构鼠标右键单击数据报表设计器，并单击【检索结构】菜单项。根据所选择的数据源Command对象的层次结构，在数据报表设计器中建立分组结构。把字段拖到数据报表设计器从数据环境设计器，把对应的Command对象下面的字段拖到数据报表设计器中相应的分组标头（如Command1_标头）部分。在分组标头部分中可以包含Command命令的任何字段。也可以直接把Command对象拖到数据报表设计器相应的标头部分栏的标题上，Command对象下的所有字段将一次被添加到数据报表设计器中。调整数据报表设计器中字段字段被拖放到数据报表设计器的“细节”部分中。只有在“细节”部分中的字段才能被“重复”输出，因而数据环境层次结构最底层的Command对象的字段将被拖放到“细节”部分之中，而较上层的Command对象被放置在“分组”部分。调整数据环境设计器各个部分的大小使用鼠标可以调整数据报表设计器中各个部分的“大小”。3.3.2 报表打印实例报表可以用于数据信息的显示、打印和传递，尤其是对于一些重要的数据往往需要通过报表的统计数据加以显示。下面是设备入库报表，如图3-11所示。报表设计方法如下：单击【工程】菜单中【添加Data Environment】命令，在工程中添加一个数据环境设计器，将该数据环境设计器命名为“Data Environment1”，如图3-12所示。通过此数据环境设计器配置数据源。用鼠标单击图3-12中的Connection1，单击鼠标右键，在弹出的菜单中选择【属性】命令，然后弹出如图3-13所示的对话框。在“数据链接属性”对话框中选择“Microsoft Jet 4.0 OLE DB Provider”选项，单击【下一步】按钮,此时“数据链接属性”对话框如图3-14所示。在“数据链接属性”对话框的“链接”选项卡中选择需要连接的数据库，数据库选择完成后可以单击【测试连接】按钮进行测试。如果连接成功，会弹出成功的对话框。选中数据环境设计器中的“Connection1”，单击鼠标右键，在弹出的菜单中选择【添加命令】。这时在数据环境设计器中出现一个Command1命令。然后，选中图3-11 设备入库报表图3-12 数据环境设计器Command1，单击鼠标右键，在弹出的菜单中选择“属性”命令。在“Command1 属性”对话框中，单击“通用”选项卡，在“数据库对象”列表框中选择“表”选项，在“对象名称”列表框中在列出的数据表中选择“设备入库表”，结果如图3-15所示。单击数据环境设计器中的Command1命令左边的“+”符号，将Command1命令展开，结果如图3-16所示。图3-13“数据链接属性”对话框 图3-14“链接”选项卡图3-15 “Command1属性”对话框单击【工程】菜单中的【添加Data Report】命令，在工程中添加一个Data Report对象，将该对象命名为“Data Report1”，Data Source属性值为Data Environment1，Data图3-16 设置完成的数据环境Member属性值为Command1。在“报表标头”里，放置一个控件，设置属性为“设备入库报表”并设置属性值。在“页标头”里设计表题，在“细节”里设置报表的主要部分，将数据环境设计器的Command1中所需要的字段拖拽到“细节”里，然后按图3-17将标题与数据控件摆放整齐，使用户界面更加美观。设计好的报表如图3-17所示程序设计代码如下：Private Su