实验项目4-客户管理系统.doc

实验项目4Access在客户管理中的应用Access2010自带的“罗斯文其实就是一个功能相当完备的客户管理系统。本实验则以“罗斯文”客户管理系统作为参考,创建一个简单的客户管理系统.该系统主要由导航主页、客户资料管理、订单管理等各部分组成.1、实验目的:通过使用Access创建一个简单的客户管理系统,进一步学习表、查询、窗体、报表等数据库对象在数据库程序中的作用;进一步体会数据库系统开发的步骤,了解客户管理系统的一般功能组成.2、实验要点：了解客户管理系统的概念；系统的功能设计；系统的模块设计；表的字段设计；表关系的建立;查询的设计；窗体的创建;报表的创建；宏命令和VBA代码的创建;系统的调试；系统的运行与应用。3、实验内容:3。1系统功能分析与开发要点3。1.1系统功能目标本实验主要学习基于Access数据库开发的企业客户管理系统。通过该系统，公司可以对客户进行管理,记录各个客户的订单信息、产品信息等。系统的主要功能如下：(1）用户登录:只有经过身份认证的用户，才可以登录该系统，并进行资料的查看和更新.(2）客户资料的管理:可以利用该功能,实现对客户信息的查看、添加和删除等操作。（3）客户订单的管理:可以利用该功能，实现对客户订单的管理。可以在该功能模块中查看客户订单，同时可以添加新的客户订单、删除订单等。（4)运货商的管理:在接受客户订单以后,公司必须及时将货物发送给客户，运货商在这个过程中发挥着重要的作用,因此还必须对各个运货商进行管理。（5）采购订单管理:用户可以利用该功能对产品的买入进行管理，进行产品采购订单的查看、添加、删除等操作。3.1。2系统开发要点通过本实验，理解数据表的结构，掌握各数据表之间的关系；熟悉查询和窗体的设计；对客户管理系统有比较清楚的了解，从而开发出完整的客户管理系统。3。2系统需求分析与设计在现代商业活动中，客户资料的管理正在变得越来越重要。一个公司赖以生存和发展的基础就是要有客户资源。通过准确的客户资料管理，能够使公司清晰地掌握各种客户现在的需求信息,建立良好的客户关系，树立良好的企业信誉等。客户管理系统，将所有的客户信息和客户订单信息电子化，使得企业从原来繁琐的客户关系管理工作中解脱出来，提高了企业的响应速度，从而可以大大降低企业的运行成本。3。2.1需求分析每一个企业都有自己的不同需求,即使有同样的需求也很可能有不同的工作习惯,因此在开发程序之前，和企业进行充分的沟通和交流，了解需求是十分重要的。假设用户的需求主要有以下内容：（1）客户管理系统首先能够对企业当前的客户状况进行记录，包括客户资料、供应商资料、客户订单、采购订单等。（2）其次，系统应该能够对企业员工的客户变更情况进行查询。（3)再次，系统能够根据设定的查询条件，对客户订单、采购订单等进行查询。（4）最后,系统应当实现对订单、采购订单等的动态管理,比如将“新增状态的订单变为“已发货”状态等.3。2。2模块设计了解了企业的客户管理需求以后，就可以设计程序的功能目标了。只有明确系统的具体功能目标，设计好各个功能模块，才能在以后的程序开发过程中事半功倍。根据前述需求分析，可能将该系统的功能分为功能模块，每个模块根据实际情况又可以包含不同的功能：（1）用户登录模块:在该模块中，通过登录窗口，实现对用户身份的认证.只有合法的用户才能对系统中的各种客户信息和订单信息进行查看和修改。（2）客户资料管理模块:客户资料是该客户管理系统的核心功能之一，通过将各种客户资料电子化，方便用户快速地查找各种客户信息.在该模块中，可以实现对客户资料的查看、编辑和修改等.(3）客户订单管理模块：客户订单是企业生存的关键.在该模块中，可以对企业的各种订单进行记录，将各种订单规范化，从而方便管理和查询，并将新增的订单尽快处理和发货,确保企业的信誉.（4）运货商管理模块:该模块比较简单,就是能够将各个订单的运货商进行管理，实现对各个订单的追踪。(5）采购订单模块：产品的采购管理也是相当重要的一部分。无论生产型企业还是销售型企业,都涉及上游供应商对企业的供货。通过该采购订单管理模块,可以随时查看数据库中采购订单的状态、数量,对采购订单进行添加、删除等操作。3.3数据库的结构设计明确功能目标以后,首先就要设计合理的数据库。数据库的设计包括数据表的结构设计与表关系的设计。数据表作为数据库中其他对象的数据源,表结构设计的好坏直接影响到数据库的性能,也直接影响整个系统设计的复杂程度。因此，表的设计既要满足需求,又要具有良好的结构.具有良好表关系的数据表在系统开发过程中更是相当重要的。3。3。1数据表结构需求分析表就是特定主题的数据集合,它将具有相同性质的数据存储在一起.按照这一原则，根据各个模块所要求的各种具体功能，来设计各个数据表。在本系统中，初步设计11张数据表,各表存储的信息如下.(1)“采购订单表：该表中主要存放各采购订单的记录，比如采购订单ID、采购时间、货物的运费等。（2)“采购订单明细”表：该表中主要存储采购订单的产品信息。因为一个采购订单中可以有多个产品，因此建立此明细表记录各个订单采购的产品、数量、单价等。(3)“采购订单状态表：该表中存放采购订单的状态信息，用来标识该采购订单是新增的、已批准的还是已经完成并关闭的。（4）“产品表：用以记录该公司经营的产品，比如产品的名称、简介、单位、单价等.（5）“订单”表:该表中主要存放各订单的订货记录,比如订单ID、订购日期、承运商等。（6)“订单明细”表：该表中主要存放关于特定订单的产品信息。因为一个订单中可以有多个产品，因此建立此明细表记录各个订单的产品、数量、单价等信息。(7）“订单状态表：该表中用以记录各个订单的状态，用以表示该订单是新增的、已发货的还是已经完成关闭的。(8）“供应商表：该表中存放了公司上游的供应商信息,比如公司的联系人姓名、电话、公司简介等。（9）“客户表:该表中存放了公司的客户信息，是实现客户资料管理的关键表.表中记录的内容有客户联系人姓名、电话、公司简介等.（10)“用户密码表：该表中主要存放系统的管理员或系统用户的信息，是实现用户登录模块的后台数据源。(11）“运货商”表：该表中主要存放了为该公司承担货物运送任务的各个物流商的信息，比如公司名称、联系人等。3.3。2数据表字段结构设计明确了各个数据表的主要功能以后，下面开始进行数据表字段的详细设计。（1）构造空数据库系统在设计数据表之前,需要先建立一个数据库,然后在数据库中创建表、窗体、查询等数据库对象。 使用Access创建名为“客户管理系统的空白数据库，并保存于指定目录.(2）数据表字段结构设计在创建数据库以后，就可以设计数据表了。数据表是整个系统中存储数据的唯一对象，它是所有其他对象的数据源，表结构的设计直接关系着数据库的性能。下面来设计系统中用到的11个数据表的结构。步骤：创建“表”，单击“视图按钮的下拉按钮，在弹出的选项列表中选择“设计视图”选项；在弹出的“另存为”对话框的“表名称”文本框中输入表名，并单击“确定”按钮,进入表的“设计视图”。在表的“设计视图中进行表字段的设计。“采购订单表字段名数据类型字段宽度主键采购订单ID数字长整型是供应商ID数字长整型否提交日期日期/时间短日期否创建日期日期/时间短日期否状态ID数字长整型否运费货币自动否税款货币自动否付款日期日期/时间短日期否付款额货币自动否付款方式文本50否备注备注无否 注：为确保记录输入的正确，可以给该表中的日期/时间类型的字段加上有效性规则，例如，给“创建日期”字段创建的有效性规则为“=#1990/1/1#”（日期值必须大于19901-1），并设置记录默认值为“now(）。“采购订单明细”表字段名数据类型字段宽度主键ID自动编号长整型是采购订单ID数字长整型否产品ID数字长整型否数量数字小数否单位成本货币自动否接收日期日期/时间短日期否 注：在该表的设计过程中，要确立一个概念，即平常创建的表，“设计视图”中的字段名将成为“数据表视图中的列名，而通过“字段属性网格中的“标题”行,可以设定在“数据表视图”中显示的列名.将“产品ID字段设定标题为“产品，这样在“数据表视图”中就能显示“产品”,而不是“产品ID”了。“采购订单状态”表字段名数据类型字段宽度主键状态ID数字长整型是状态文本50否“产品”表字段名数据类型字段宽度主键ID自动编号长整型是产品代码文本25否产品名称文本50否说明备注无否单价货币自动否单位数量文本50否“订单”表字段名数据类型字段宽度主键订单ID数字长整型是客户ID数字长整型否订购日期日期/时间短日期否到货日期日期/时间短日期否发货日期日期/时间短日期否运货商ID数字长整型否运货费货币自动否付款日期日期/时间短日期否付款额货币自动否付款方式文本50否状态ID数字长整型否备注备注无否“订单明细”表字段名数据类型字段宽度主键ID自动编号长整型是订单ID数字长整型否产品ID数字长整型否数量数字小数否单价货币自动否折扣数字双精度型否 注:要给该数据表中的“折扣字段设置有效性规则“=1 and =0”,以保证设定的折扣值在有效的范围之内。“订单状态表字段名数据类型字段宽度主键状态ID数字长整型是状态名文本50否“供应商”表字段名数据类型字段宽度主键ID自动编号长整型是公司文本50否联系人文本50否职务文本50否电子邮件地址文本50否业务电话文本25否住宅电话文本25否移动电话文本25否传真号文本25否地址备注无否城市文本50否省/市/自治区文本50否邮政编码文本15否国家/地区文本50否主页超链接无否备注备注无否附件附件无否“客户表字段名数据类型字段宽度主键ID自动编号长整型是公司文本50否联系人文本50否职务文本50否电子邮件地址文本50否业务电话文本25否住宅电话文本25否移动电话文本25否传真号文本25否地址备注无否城市文本50否省/市/自治区文本50否邮政编码文本15否国家/地区文本50否主页超链接无否备注备注无否附件附件无否“客户密码”表字段名数据类型字段宽度主键用户ID自动编号长整型是用户名文本20否密码文本20否 注:为了保密性的需要，可以给“密码字段中的值添加掩码。在“密码”字段的“字段属性”区域中单击“掩码属性行右边的省略号按钮，即可弹出“输入掩码向导”对话框；设置“输入掩码为“密码。“运货商表字段名数据类型字段宽度主键ID自动编号长整型是公司文本50否联系人文本50否职务文本50否电子邮件地址文本50否业务电话文本25否住宅电话文本25否移动电话文本25否传真号文本25否地址备注无否城市文本50否省/市/自治区文本50否邮政编码文本15否国家/地区文本50否主页超链接无否备注备注无否附件附件无否3。3.3数据表的表关系设计数据表中按主题存放了各种数据记录。在使用时，用户从各个数据表中提取出一定的字段进行操作。（事实上，这就是关系型数据库的工作方式.）要保证数据库里各个表格之间的一致性和相关性,就必须建立表之间的关系。(Access作为关系型数据库,支持灵活的关系建立方式。)因此,用户在“客户管理系统”数据库中完成数据表字段设计后,就需要再建立各表之间的表关系.（在建立表的关系之前,必须首先为表建立主键。表关系的建立实际上是一张表的主键和另一张相关表之间的联系。）步骤:（1）切换到“数据库工具选项卡,并单击“关系组中的“关系”按钮，即可进入该数据库“关系”视图；在“关系”视图中右击，在弹出的快捷菜单中选择“显示表命令，或直接单击“关系组中的“显示表”按钮;在弹出的“显示表”对话框中,依次选择所有的数据表，单击“添加按钮，将所有数据表添加进“关系”视图。（2)以第一个表关系的创建为例:选择“采购订单”表中的“采购订单ID字段,按下鼠标左键不放并将其拖放到“采购订单明细”表中的“采购订单ID字段上，释放鼠标左键，系统显示“编辑关系对话框；选中“实施参照完整性复选框，以保证在“采购订单明细表中登记的“采购订单ID”记录都存在于“采购订单”表中;单击“创建”按钮，创建一个一对多的表关系.各表关系如下：表名字段名相关表名字段名采购订单状态状态ID采购订单状态ID产品ID采购订单明细产品ID订单订单ID订单明细订单ID订单状态状态ID订单状态ID供应商ID采购订单供应商ID客户ID订单客户ID运货商ID订单运货商ID（3）建立关系后,可以在“关系”视图中预览所有的关联关系；单击“关闭”按钮,系统弹出提示保存布局的对话框,单击“是”按钮，保存“关系”视图的更改.3.4窗体的实现窗体对象是直接与用户交流的数据库对象.窗体作为一个交互平台、一个窗口，用户通过它查看和访问数据库，实现数据的输入等。在“客户管理系统”中,根据设计目标，需要建立多个不同的窗体,比如要实现功能导航和提醒的“主页窗体，还有实现用户登录的“登录窗体，以及“添加客户信息”、“客户详细信息”、“客户列表”、“添加客户订单”、“添加采购订单、“客户订单”、“公司采购订单”等窗体。步骤：单击“创建”选项卡下“窗体组中的“窗体设计按钮，Access即新创建一个窗体并进入窗体的“设计视图”；可依次添加窗体标题(单击“页眉/页脚”组中的“标题”按钮），添加系统徽标(单击“徽标”按钮），设置主体背景颜色(在主体区域中右击，在弹出的快捷菜单中选择“填充/背景色”)，添加按钮（单击“控件组中的“按钮”控件，并在窗体主体区域中单击）。(注：创建的查询窗体是静态的，仅仅是一个界面。必须给窗体建立查询支持,才能实现输入参数后进行查询的操作。）3.4。1设计“登录”窗体“登录窗体是“登录模块的重要组成部分。设计一个既具有足够的安全性、又美观大方的“登录”窗体是非常必要的。步骤：在“创建”选项卡中选择“窗体”组中的“其他窗体”下拉列表框中的“模式对话框”选项；出现的空白窗体上已有“确定”、“取消”两个按钮；调整窗体布局，并在窗体上添加几个控件：“登录”窗体控件类型控件名称属性属性值标签Label1标题客户管理系统登录标签用户名标题用户名：标签密码标题密码:文本框Username文本框Password输入掩码密码按钮Ok标题确定按钮Cancel标题取消3。4。2“主页窗体的设计“主页窗体是整个客户管理系统的入口，它主要起功能导航的作用。系统中的各个功能模块在该导航窗体中都建立了链接，当用户单击该窗体中的链接时，即可进入相应的功能模块。在该企业管理系统的主页导航窗体中,采用简单的按钮式导航,即通过在窗体上放置各个导航按钮实现功能导航.步骤如下：在“创建”选项卡下“窗体”组中的“窗体设计按钮,新建一个“宽度”为14cm，“主体”区域“高度”为7.5cm的窗体,“窗体页眉”区域高度为1。9cm的空白窗体;设置页眉区域,添加窗体的标题为“客户管理系统”,并为“窗体页眉”区域添加背景图片和徽标,设置“主体区域的“背景色”；在窗体的主体区域左侧添加矩形框box1，作为放置导航按钮的区域，背景颜色可设置为白色;在矩形框中添加命令按钮:“添加新客户”、“查看客户信息、“新客户订单”、“查看客户订单、“新采购订单”、“查看采购订单、“用户管理”，以及“退出系统”按钮。3。4。3创建“添加客户信息窗体用户利用该窗体，可以轻松实现客户资料的输入工作。例如，以“客户”表为数据源，建立“添加客户信息”窗体，并将该窗体设置为弹出式窗体。步骤如下:在“创建”选项卡中，单击“窗体”组中的“窗体向导”，弹出“窗体向导”对话框；在“表/查询”下拉列表框中选择“表:客户选项，将“可用字段列表框中的所有字段添加到右边“选定字段”列表框中;单击“下一步”，选中“纵栏表”单选按钮;单击“下一步”,输入窗体标题为“添加客户信息”,并选中“打开窗体查看或输入信息”单选按钮;单击“完成”，完成窗体的创建。3.4。4创建“客户详细信息”窗体要设计的“客户详细信息”窗体和已经设计的“添加客户信息”窗体的样式是一样的,只是前者主要用于查看信息，而后者主要用于添加信息.因此，可以直接复制“添加客户信息”窗体。步骤如下：在导航窗格中右击“添加客户信息”窗体,在弹出的快捷菜单中选择“复制；在导航窗格空白处右击,在弹出的快捷菜单中选择“粘贴；在弹出的“粘贴为”对话框中将窗体另存为“客户详细信息”，并单击“确定,即完成该窗体的创建;为增强用户的方便性，可以该窗体的下方添加一组导航按钮，来实现记录导航作用：第一项、上一个、下一个、最后一项。3。4。5创建“客户列表”窗体上面创建的“客户详细信息”窗体有一个很大的缺点,就是在这种窗体中只能查看一个客户信息,不能够同时查看多个记录。因此,可以建立一个“客户列表”窗体，用以在一个页面中查看多个客户信息。利用数据库的自动创建窗体的功能创建一个分割窗体.在该窗体的下部，以数据表窗体的形式显示各个客户的记录;在该窗体的上部，以普通窗体的形式显示窗体的重要信息。再在该“客户列表”窗体中添加一个命令按钮，如果用户单击该按钮，则会弹出“客户详细信息”窗体,以查看客户数据。步骤如下：在导航窗格中双击打开“客户”表;在“创建选项卡下,单击“窗体组中的“其他窗体”旁的下拉按钮，在弹出的菜单中选择“分割窗体”，系统自动根据“客户”表创建了一个“客户分割窗体。3。4。6创建“添加客户订单”窗体利用Access的自动创建窗体功能，以“订单”表为数据源，创建用于接受添加订单的窗体。步骤如下：在导航窗格中双击打开“订单”表；单击“创建”选项卡下“窗体”组中的“窗体按钮,Access自动为用户创建一个包含有子数据表的窗体.3。4。7创建“添加采购订单”窗体方法同上。使用“采购订单”表创建“添加采购订单窗体。3。4。8创建数据表窗体需要在“客户管理系统”中创建“订单”、“采购订单”、“订单明细”、“采购订单明细”等4个数据表窗体，以作为其他窗体的子窗体。下面以建立“订单”数据表窗体为例，步骤如下：在导航窗格中打开“订单”表,然后单击“创建”选项卡下“窗体”组中的“其他窗体”选项，在弹出的下拉菜单中选择“数据表,创建一个数据表窗体。另外三个数据表窗体的创建方法相同.3。4。9创建“客户订单”窗体利用拖动窗体和字段的方法,建立“客户订单”窗体。该窗体主要用来查看一个客户的主要信息及该客户的相关订单。步骤如下：单击“创建”选项卡下“窗体组中的“空白窗体，建立一个空白窗体；单击“设计”选项卡下的“添加现有字段”，弹出“字段列表；将“字段列表”窗格中“客户表中的选定字段“公司ID、公司名称、联系人、业务电话、电子邮件、公司地址、邮政编码”拖动到空白窗体中，并调整美化;进入该窗体的“设计视图”，将导航窗格中的“订单”窗体拖动到该窗体中,为该窗体添加子窗体;选定子窗体，在“属性表窗格的“数据”选项卡下，单击“链接主字段”行右边的省略号按钮，弹出“子窗体字段链接器对话框，设置主字段为“ID”，子字段为“客户ID”,并单击“确定”；添加嵌入到子窗体的二级子窗体“订单明细”：将导航窗格中的“订单明细窗体拖动到“订单”子窗体中，并用相同的方法设置链接主/次字段.3.4。10创建“公司采购订单窗体与上述方法相同，创建“企业采购订单”窗体。主窗体中以“供应商表作为数据源，将“采购订单”作为一级子窗体，将“采购订单明细”作为二级子窗体。3。5创建查询为方便用户工作，还要设计两种查询，以实现输入参数后进行查询的操作。查询是以数据库中的数据为数据源，根据给定的条件从指定的表或查询中检索出用户要求的数据，形成一个新的数据集合。在本实验中,一是要设计按时间段进行查询的“客户订单”查询,二是要设计一种按照订单状态查询的“新增状态订单查询。3。5。1“客户订单”查询通过设置“客户订单”查询,可以查询某时间段内的客户订单情况.步骤如下：在“创建选项卡中单击“查询”组中的“查询设计”按钮；系统进入到查询“设计视图”,并弹出“显示表”对话框；在“显示表”对话框中，选择“订单”表，单击“添加按钮，将该表添加到查询“设计视图”中;用同样的方法，将“订单明细”表也添加进“设计视图”中；向查询设计网格中添加字段，并输入相应查询条件：字段表排序条件订单ID订单无客户ID订单无产品ID订单明细无订购日期订单升序Between Forms!订单查询!开始日期 And Forms!订单查询!结束日期发货日期订单无状态ID订单无保存该查询为“客户订单.在导航窗格中双击执行该查询，可以弹出要求用户“输入参数值”的对话框,输入“开始日期和“结束日期后，单击“确定”，即可实现客户订单情况查询。3。5.2“新增状态订单查询步骤同上。相关表为“订单”表、“订单明细表，其字段信息如下所示:字段表排序条件订单ID订单无客户ID订单无产品ID订单明细无数量订单明细无单价订单明细无订购日期订单升序状态ID订单无0注：在“订单状态”表中，“新增的“状态ID”为0,因此在“新增状态订单”查询条件中设置为0.保存该查询为“新增状态订单即可完成创建.在导航窗格中双击执行该查询，可以得到该查询的执行结果。3。5。3“主页窗体绑定查询本小节将上一小节中创建的“新增状态订单”添加到“主页”窗体中.这样，在每次登录该系统时，都能看到处于新增状态的订单，以方便用户快速对该状态的订单进行处理。步骤如下：进入“主页窗体的“设计视图”,将导航窗格中的“新增状态订单”查询直接拖动到该窗体中，系统自动为“主页”窗体创建子窗体，并弹出“子窗体向导”对话框；将“窗体/报表字段下拉列表框留空，在“子窗体/子报表字段”下拉列表框中选择“订单ID”；单击“下一步，在弹出的对话框中设置子窗体的名称为“新增状态订单；再将导航窗格中的“订单明细数据表窗体拖动到“新增状态订单子窗体上，系统自动检测链接主/次字段；单击“完成”,并可重新调整子窗体布局.3。6报表的实现Access提供了强大的报表功能，通过系统的报表向导,可以实现很多复杂的报表显示和打印。本小节将分别实现对客户资料、客户订单两个报表的创建。3.6。1“客户资料”报表该查询记录报表的主要功能就是对员工的订单记录进行查询和打印.步骤如下：切换到“创建”选项卡,在“报表组中单击“报表向导按钮;在弹出的“报表向导”对话框中,在“表/查询”下拉列表框中选择“表：客户”，然后把所有字段作为选定字段；单击“下一步”按钮,弹出添加分组级别对话框，选择“公司”作为分组字段；单击“下一步”，弹出选择排序字段的对话框，选择通过“ID”排序，排序方式为“升序；单击“下一步”，弹出选择布局方式对话框，选中“递阶”单选按钮,方向为“横向”；单击“下一步”，输入标题为“客户资料报表”，并选中“预览报表”单选按钮;单击“完成”。3.6。2“客户订单报表切换到“创建”选项卡,在“报表”组中单击“报表向导按钮；在弹出的“报表向导”对话框中，在“表/查询下拉列表框中依次选择“表：订单和“表：订单明细”,然后把所有字段作为选定字段;单击“下一步按钮,弹出选择数据查看方式对话框，选择“通过 订单”选项；单击“下一步”按钮，弹出添加分组级别对话框,选择“公司作为分组字段;单击“下一步”，弹出选择排序字段的对话框，选择通过“订单”排序，排序方式为“升序”；单击“下一步,弹出选择布局方式对话框,选中“递阶单选按钮,方向为“横向”；单击“下一步”，输入标题为“客户订单报表，并选中“预览报表单选按钮;单击“完成.3。7编码的实现在上机各小节中创建的查询、窗体、报表等都是孤立的、静态的.比如在上面要查询员工出勤记录，双击查询以后都要手动输入参数，才能返回查询结果。可以通过VBA程序，为各个孤立的数据库对象添加各种事件过程和通用过程,使它们连接在一起.具体地，可以在“创建”选项卡,单击“宏与代码”组中的“模块”按钮,进入VBA编辑器,输入代码。可以通过上述方法,为“登录窗体、“主页”窗体、“添加客户信息”窗体、“订单查询”窗体等设计代码。3。8程序的系统设置（略）3。9系统的运行(略）4、实验总结该系统包括了客户管理系统的客户资料管理、客户订单管理、采购订单管理等。通过该实例，可以掌握以下知识和技巧.（1）客户管理系统的需求；(2）利用Access的窗体与向导相结合来完成数据库应用程序界面的开发;(3）利用VBA编辑器，完成简单的VBA程序的编写.11