[教育]第12章 Access数据库综合实例.ppt

《[教育]第12章 Access数据库综合实例.ppt》由会员分享，可在线阅读，更多相关《[教育]第12章 Access数据库综合实例.ppt（71页珍藏版）》请在三一办公上搜索。

1、第12章 Access数据库综合实例,本章通过一个综合应用实例将前面所学习的建立各对象的方法有机的联系起来，构建一个完整的Access数据库应用系统。,12.1 总体设计 12.1.1需求分析 12.1.2数据库设计原则 12.2 库存管理系统的设计12.2.1系统分析12.2.2系统设计 12.3 库存管理系统实例制作 12.3.1创建新数据库12.3.2创建表12.3.3设置各表间的关系12.3.4 填写入库/出库单12.3.5 维护入库/出库单信息12.3.6查询入库/出库单信息12.3.7报警处理12.3.8报表设计,12.4库存管理系统的集成12.4.1 系统主控界面设计 12.4.

2、2 系统开始界面设计,12.1 总体设计,在使用Access 2003建立数据库的表、窗体和其他对象之前，设计数据库是很重要的。合理的设计是创建能够有效地、准确地、及时地完成所需功能的数据库的基础。没有好的设计，数据库不但在查询方面效率低下而且也较难维护。在进行数据设计之前必须清楚这个系统需要实现什么样的功能，然后再细化到数据库各个组件的设计上。一般来说，设计的过程是如图12-1-1进行的。,图12-1-1 数据库设计过程,12.1.1 需求分析,在开始设计数据库之前，需要确定数据的目的以及如何使用，尽量多了解一些有关数据库的设计要求，弄清用户需要从数据库得到什么样的信息。1数据库设计的主要步

3、骤正式实施数据库设计时，主要的过程具体有以下几个步骤。（1）确定数据库中需要的表。（2）确定该表中需要的字段。（3）明确每条记录中有唯一值的字段。（4）确定表之间的关系。（5）输入数据，创建其他数据库对象。要实现上述目标，最好的方法就是与将使用数据的人员进行交流，集体讨论需要解决的问题，并描述需要生成的报表；与此同时收集当前用于记录数据的表格，然后参考某些设计得很好并且与当前要设计的数据库相似的数据库。,2创建数据库时要做的准备在创建一个数据库之前必须明确的有。（1）数据库必须能够管理用户期望的输出和打印输出所有必须具备的信息。（2）数据中不保存不必要的信息。（3）弄清数据应该为用户所做的操作

4、和应解决的问题。（4）明确用户通过什么样的界面来操作数据库中的数据和输出。3数据库用户的分类数据库设计完成之后，所面对的是数据库的用户，不同的用户对于同一个数据库会有不同的使用，因此明确谁将使用数据库是很重要的。通常数据库的用户分为以下3种情况使用数据库。（1）将数据添加到数据库中。（2）编辑、操作和整理输出数据库中的数据。（3）查询数据中的数据。从设计角度来看，应按不同类型的用户设计数据库的表、窗体和报表。,12.1.2数据库设计原则,一个好的数据库必须在开发时使数据库结构满足一定的条件和原则。简化一个数据库结构的过程被称为“数据标准化”。该理论最早在20世纪70年代提出来，在此后的许多年中

5、，该理论得到不断的发展和扩充。标准化数据库设计的一些原则如下。（1）减少数据的冗余和不一致性：如果数据库存在冗余和不一致问题，用户每次向数据库中输入数据时，都有发生错误的潜在可能。例如，人事信息数据库中，如果在多个不同的表中都包含姓名的输入，那么用户在多次输入时，就有可能发生错误。（2）简化数据检索：数据库中保存的信息必须能够根据需要快速地显示出来，否则，使用计算机自动化的数据库系统将没有任何意义。（3）保证数据的安全：数据库中的数据，必须具有一定的安全性，输入数据库中的数据在输出显示时，必须对应显示原有的数据。（4）维护数据的方便性：数据库中的数据在每次更新或删除时，都必须将数据库中所有出现

6、与它相关的地方做出改变，并且在设计数据库时，要考虑到数据的修改，最好在尽量少的操作步骤中完成。,12.2 库存管理系统的设计,在市场经济中，销售是企业运作的重要环节，为了更好地推动销售，不少企业建立了分公司或代理制，通过分公司或代理商把产品推向最终用户。销售公司的增加和销售渠道的复杂化促使了物流业的发展。进入信息化时代以及电子商务的发展，对库存管理的要求更高。传统的库存管理，一批产品从入库到出库，要经过多个环节，而且具有如下几个弊端：手工处理入库、出库造成产品供应效率低，影响企业发展；手工完成大量的入库、出库和库存统计，造成库存产品汇总困难，使库存结构难以掌握；仓库与管理部门之间信息交流少，造

7、成库存积压，使资金周转缓慢。建立计算机化的库存管理系统可以对解决这些问题提供有效地帮助。,一般来说，利用库存管理系统可以在以下方面提高企业管理的水平。（1）提高管理效率，降低人工成本。（2）降低采购成本。（3）减少仓储面积，提高房产综合利用。（4）降低储备资金占用。,12.2.1系统分析,根据商业企业库存管理现状进行分析，库存管理系统要能处理库存中大量的数据并完成繁琐复杂的统计计算；库存管理系统要能及时提供准确、适用的库存信息，可以使管理者合理安排库存，加速资金周转。根据库存管理的业务流程和要求，库存管理系统数据流程图如图12-2-1所示。,图12-2-1 库存管理系统数据流程图,12.2.2

8、系统设计,完成了库存管理系统分析，确定库存管理系统的数据流程和功能后，就可以进行系统设计了。主要包括数据库设计和模块设置。1数据库设计根据库存管理系统分析，库存管理系统处理的数据涉及的表有入库表、出库表、库存表以及商品信息等。要使所有表既无数据冗余，又无传递依赖，可将库存管理系统数据库定义为5张表，包括商品入库表、商品出库表、库存表、商品信息表和仓库表。商品入库表以“入库ID”作为主键，记录商品入库单信息，其结构如表12-2-1所示。,表12-2-1 商品入库表,商品出库表以“出库ID”作为主键，记录商品出库单信息，其结构如表12-2-2所示,表12-2-2 商品出库表,库存表以“产品代码”作

9、为主键，记录当前库存中每种产品的实际库存量，其结构如表12-2-3所示。,表12-2-3 库存表,商品信息表以“商品代码”作为主键，记录企业所有商品的基本信息，其结构如表12-2-4所示。,表12-2-4 商品信息表,仓库表以“仓库ID”作为主键，记录企业库房的基本信息，其结构如表12-2-5所示。,表12-2-5 仓库表,2模块设计根据前面的分析，并依据系统设计，对整个系统进行模块设计，得到如图12-2-2所示功能模块。,图12-2-2 功能模块图,12.3 库存管理系统实例制作,完成系统的数据库设计和功能划分后，就可以对“库存管理系统”实例各功能模块进行详细设计和实现。12.3.1 创建新

10、数据库（1）启动Access 2003，选择“文件”“新建”菜单命令或单击工具栏上的【新建】按钮，调出任务窗格，如图12-3-1所示。（2）在任务窗格中单击“空数据库”项，调出“文件新建数据库”对话框，如图12-2-2所示。,图12-3-1 任务窗格 图12-3-2“文件新建数据库”对话框,（3）在对话框中选择保存的位置，并在“文件名”文本框中输入文件名“库存管理系统”，然后单击【创建】按钮，Access系统将创建新数据库“库存管理系统”并进入该数据库的操作界面，如图12-3-3所示。至此，“库存管理系统.mdb”空数据库创建完成。现在可以进行创建数据表的操作了,图12-3-3 创建的“库存管

11、理系统”数据库,12.3.2创建表,根据实例设计，实例系统共需5张表，主要表的结构在前面已介绍，按照表的结构设计来创建表。1创建“商品信息”表（1）在数据库“表”容器窗口中双击“使用设计器创建表”，调出数据库表的设计视图，如图12-3-4所示。（2）在“字段名称”列输入字段的名称“商品代码”；在“数据类型”列设置字段相应的数据类型为“文本”类型并设置为主键；在“说明”列中可做适当注释，如图12-3-5所示。,图12-3-4 创建表的设计试图 图12-3-5 设置表中的字段,（3）重复上述步骤，如表12-2-4所示“商品信息”表的结构，创建该表所有字段及相关数据类型，结果如图12-3-6所示。选

12、中“单位”字段，在“字段属性”栏内选中“查阅”选项卡，把“显示控件”属性设置为“组合框”，把“行来源类型”设置为“值列表”再参照图12-3-6设置把“行来源”属性为“箱、盒、支、个、袋、包、瓶”。（4）所有字段创建完成后，在窗口标题上右 击，在调出的快捷菜单中选择“数据表视图”命令，调出“另存为”对话框，输入表的名称“商品信息”，然后保存，如图12-3-7所示。,图12-3-6 创建“商品信息”表字段结果,图12-3-7 保存表,单击【确定】按钮，创建的表由“设计”视图切换为“数据表”视图，选中“单位”字段所在网格时的效果如图12-3-8所示。至此，“商品信息”表已经创建完成。2创建“商品入库

13、表”表 参照表12-2-1使用“使用设计器创建表”创建“商品入库表”表。用创建“商品信息”表的方法创建“商品入库表”表。（1）双击“使用设计器创建表”进入“设计”视图。（2）输入各个字段的名称，设置各字段的数据类型。（3）设置“入库ID”字段为表的主键。（4）“单位”字段属性设置同“商品信息”表；“仓库”字段中，在“字段属性”栏内选中“查阅”选项卡，把“显示控件”属性设置为“组合框”，把“行来源类型”设置为“值列表”，再参照“仓库表”设置“行来源”属性。,图12-3-8“单位”字段的组合框效果,（5）创建完成，如图12-3-9所示。保存表为“商品入库表”。3创建“商品出库表”表 按照表12-2

14、-2的数据创建表“商品出库表”，参照创建“商品入库表”的方法创建表“商品出库表”。设置字段“出库ID”为主键。其他设置同表“商品入库表”，如图12-3-10所示。,图12-3-9 创建“商品入库表”,图12-3-10 创建“商品出库表”,4创建“库存表”表 按照表12-2-3的数据创建表“库存表”。参照创建“商品入库表”的方法创建表“库存表”。设置“商品代码”字段为主键，如图12-3-11所示。“单位”和“仓库”字段参照“商品入库表”设置“显示控件”属性为“组合框”。5创建“仓库表”表 按照表12-2-5的数据创建“仓库表”。参照创建“商品入库表”的方法创建 表“仓库表”。主键设置为“仓库ID

15、”字段，如图12-3-12所示。,图12-3-11 创建“库存表”,图12-3-12 创建“仓库表”,这样就初步完成了表的设计。在数据库窗口中，在数据库“对象”列表框中选中“表”，显示如图12-3-13所示。,图12-3-13 创建数据库中的表,12.3.3设置各表间的关系,完成表的设计后，就要在创建的各表之间建立关系。可按以下步骤操作。（1）选择“工具”“关系”菜单命令或单击工具栏上的【关系】按钮，调出“显示表”对话框，如图12-3-14所示。（2）利用【添加】按钮把全部的表都添加到布局中，然后单击【关闭】按钮，关闭对话框，所有添加的表都出现在随“显示表”对话框一起调出的“关系”窗口中，如图

16、12-3-15所示。,图12-3-14“显示表”对话框 图12-3-15“关系”窗口,（3）从“库存表”表中选定“商品代码”字段，按住鼠标左键将其拖动到“商品出库表”表中的“商品代码”字段，然后释放鼠标，会弹出“编辑关系”对话框，如图12-3-16所示。（4）单击【创建】按钮，两个表之间就建立了一个联系。用同样的方法建立所有的联系，如图12-3-17所示。（5）保存关系，然后关闭“关系”窗口。,图12-3-16“编辑关系”对话框 图12-3-17 在“关系”窗口各表之间建立联系,12.3.4 填写入库/出库单,入库/出库处理最基本的工作内容是填写入库/出库单，修改库存。按照前面系统分析确定的数

17、据流程图，应在填写完入库/出库单后立即修改库存，将入库数量加到库存量中，将出库数量从库存量中减去。要完成这样的计算操作可以使用更新查询。因此，在实现这个功能模块时，首先建立更新查询，然后创建填写入库/出库单窗体，并将更新查询与窗体连接起来，在关闭窗体时运行该查询，完成“库存表”的修改操作。1创建更新库存查询查询的功能是使用入库信息更新库存量和使用出库信息更新库存量。查询名称分别为“更新库存量（入库）”和“更新库存量（出库）”。创建“更新库存量（入库）”的步骤如下。（1）在数据库窗口中单击“查询”容器，然后双击“在设计视图中创建查询”，调出“查询设计视图”窗口，并显示一个“显示表”对话框，如图1

18、2-3-18所示。,（2）在“显示表”对话框中，单击“表”选项卡，然后分别双击“商品入库表”和“库存表”，单击【关闭】按钮，关闭“显示表”对话框。（3）选择“查询”“更新查询”菜单命 令，在查询“设计网格”中显示一个“更 新到”行。如图12-3-19所示。（4）将“库存表”中的“库存数量”字段拖动到“设计网格”的“字段”行的第1列中，将“商品入库表”中的“标志”字段拖动到“设计网格”的“字段”行的第2列中，如图12-3-20所示。,图12-3-18“显示表”对话框,图12-3-19 添加“更新到”行 图12-3-20 添加字段,（5）在“库存数量”字段的“更新到”单元格中输入更新表达式“库存表

19、!库存数量+商品入库表!入库数量”。在“标志”字段的“更新到”单元格中输入“”1“”，在“条件”单元格中输入条件“”0“”，如图12-3-21所示。为了能够区分已经处理的入库单，在“商品入库表”中设置了一个“标志”字段，当该字段值为“0”时，表示该 入库单的“入库数量”还未加到“库存表”中。所以，在建立更新查询时，应只对“标志”字段值为“0”的“库存量”字段值进行更新。更新后，应将“标志”字段值改为“1”，表示已经处理完毕。（6）单击工具栏的【保存】按钮或选择“文件”“保存”菜单命令保存该查询，并命名为“更新库存量（入库）”。,图12-3-21 更新查询的设置,“更新库存量（出库）”查询的创建

20、步骤与上述步骤相同，结果如图12-3-22所示。2创建填写入库/出库单窗体 填写入库单窗体如图12-3-23所示。在窗体中使用了1个矩形控件、3个 文本框控件、2个组合框控件和3个 命令按钮控件。（1）在“数据库”窗口的“对象”列表框单 击“窗体”，然后双击“在设计视图中创建 窗体”项。（2）在窗体设计视图中放置一个标签，输入内容“入库单”，设置成标题。放置 一个矩形控件，并将其“特殊效果”格式 设置为“蚀刻”。,图12-3-22 更新查询的设置,图12-3-23“入库单输入”窗体,（3）在窗体的适当位置放置3个文本框，文本框标签分别为“入库单号：”、“日期：”和“商品数量：”。（4）放置2个

21、组合框，以便用选择方式输入“商品代码”和“仓库”。（5）在窗体下方放置3个命令按钮，按纽名称分别“保存”、“重填”和“取消”。布局设计结果如图12-3-24所示。（6）为方便输入操作，设置“日期”字段的“输入掩码”为“0000-99-99;0;_;”，“默认值”设置为“=date()”。（7）设置窗体的“格式”属性和“数据”属性，如图12-3-25所示。,图12-3-24“入库单输入”窗体设计视图,图12-3-25 窗体属性设置,（8）入库单号查重：在“商品入库表”中，每个入库记录对应一个入库单号，即“入库ID”值。为了避免输入重复的入库单号，系统提供入库单号查重功能。将输入的入库单号与表中的

22、“入库ID”进行比较，如果两值相同，则显示提示信息。在“入库单输入”窗体的设计视图中，单击选中“入库单号”文本框，右击调出快捷菜单，选择“属性”命令，在调出的“入库单号”文本框属性对话框中，选择“事件”选项卡，在“更新后”文本框中选中“事件过程”，如图12-3-26所示。然后再单击其后的 按钮，调出“Microsoft Visual 编辑器”窗口，在光标处插入下列代码，如图12-3-27所示。With CodeContextObject rrr=商品入库表！入库ID=&Me!入库单号 DoCmd.ApplyFilter uuu,rrr I f(.RecordestClone.RecordCou

23、nt0)Then MsgBox入库单号已存在，请重新输入！,vbOKOnly,提示框“入库单号.SetFocus End If End With,图12-3-26 创建“更新后”事件,（9）入库单保存：输入入库单信息后，单击【保存】按钮即可将输入的数据添 加到“商品入库表”中。“保存”命令按钮 的“单击”事件的代码如下。如图12-3-28所示。DoCmd.GoToRecord,acNewRecMe!入库ID=Me!入库单号Me!日期=Me!日期rMe!商品代码=Me!商品代码rMe!入库数量=Me!入库数量rMe!标志=0DoCmd.DoMenuItem acFromBar,acRecords

24、Menu,acSaveRecord,acMenuVer70Me!入库单号=Me!日期r=DateMe!商品代码r=Me!入库数量r=0Me.Refresh,图12-3-27 输入“更新后”事件的VBA代码,图12-3-28“保存”按钮上的“单击”事件,（10）入库单重填：如果数据输入有误或希望放弃此次输入，可单击【重填】按钮。该命令按钮的“单击”事件代码如下。如图12-3-29所示。Me!文本16=Me!文本3=Date Me!组合47=Me!文本12=0（11）入库单取消：这里的取消操作实质上是 退出输入操作，即关闭输入窗口，如图12-3-30所示。该命令按钮上的“单击”事件代码为 DoCm

25、d.Close（12）库存量修改：本系统在输入完成所有入 库单后，对“库存表”中的“库存数量”进行修改，即在关闭输入窗口时完成修改操作。因此，可 设置窗口的“关闭”事件，当发生该事件时运行 已建立的“更新库存量（入库）”更新查询，如图12-3-31所示。,图12-3-29“重填”按钮的“单击”事件,图12-3-30“保存”按钮上的“单击”事件,更新库存量代码如下：DoCmd.OpenQuery 更新库存量(入库),acViewNormal,acEdit 出库单输入窗体的建立内容和方法与入库单 输入相似。,图12-3-31“重填”按钮的“单击”事件,12.3.5 维护入库/出库单信息,有时，输入

26、的入库单或出库单数据在存盘后才发现错误，就需要对其进行修改。修改数据与输入数据相似，修改完成后，应对“库存表”中“库存数量”作相应更新。为了方便更新，在“商品入库表”和“商品出库表”中增加了一个记忆修改前和修改后差值的字段，分别是“入库数量修改差”和“出库数量修改差”，应用该字段来更新“库存数量”。要完成这样的操作，需要建立更新查询。1创建更新库存查询建立更新库存查询的方法与上述相同。当“商品入库表”或“商品出库表”中的“标志”字段值为“0”时，表示还未对“库存数量”进行修改，因此要用这些数量值更新“库存数量”值。但应注意，更新完成后应将相应的“标志”字段值由“0”改为“1”。“更新修改后的库

27、存数量（入库）”的设计视图如图12-3-32所示。,2创建维护入库/出库窗体 商品入库单维护窗体如图12-3-33所示。该窗体分为3个部分：上半部分为入库 单信息显示区；中间部分为修改区，该 区放置了3个文本框控件，用来修改制 定的入库单；下半部分为查询区，该区 有3个文本框和一个组合框，用来查找需要修改的入库单。窗体最下方有3个命令按钮，实现查询、保存和退出等功能。,图12-3-32 更新库存数量查询设置,图12-3-33 入库单维护窗体,（1）窗体布局设计：使用向导创建一个以“商品入库表”为数据源的“表格”式窗体，再切换到窗体设计视图进行适当的调整，如图12-3-34所示。（2）入库单保存

28、：修改数据时，即可以在修改区直接输入要修改的数据，也可以先查找要修改的入库单，然后 在显示区修改。当修改区输入了要修改的 内容后，直接单击“保存”命令按钮，即可 保存已输入的修改信息。“保存”命令按钮 的“单击”事件代码如下。如图12-3-35所示。,图12-3-34 商品入库单维护窗体设计视图,Me!入库ID.SetFocus DoCmd.FindRecord Me!文本1,True,True Me!入库ID=Me!文本1 Me!入库日期=Me!文本2 Me!入库数量修改差=Me!文本3-Me!入库数量 Me!入库数量=Me!文本3 Me!标志=0 Me!文本1=Me!文本2=Date Me

29、!文本3=0 Me.Refresh,（3）入库单查询：在查询区输入查询内容，然后单击【查询】按钮查找相应的内容，如 果找到，信息显示区指针定位到该记录，此 时可对该记录进行修改。为了实现这样的查 询，需要对每一输入框的“失去焦点”事件进 行记录定位设置，然后通过“查询”命令按钮 的“单击”事件完成实际定位。4个输入控件的“失去焦点”事件的代码如下。,图12-3-35“保存”按钮事件VBA代码,入库单号“失去焦点”事件代码：【退出】按钮的功能是关闭窗体,Me!入库ID.SetFocusDoCmd.FindRecord Me!文本4,True,TrueMe!命令5.Visible=True入库日期

30、“失去焦点”事件代码：Me!入库日期.SetFocusDoCmd.FindRecord Me!文本5,True,TrueMe!命令5.Visible=True入库数量“失去焦点”事件代码：Me!入库数量.SetFocusDoCmd.FindRecord Me!文本6,True,TrueMe!命令5.Visible=True商品代码“失去焦点”事件代码：Me!商品代码.SetFocusDoCmd.FindRecord Me!组合1,True,TrueMe!命令5.Visible=True“查询”按钮的“单击”事件VBA代码：Screen.PreviousControl.SetFocusDoCmd

31、.FindNext,12.3.6查询入库/出库单信息,4）修改库存量：与入库输入设计一样，修改入库单后对“库存数量”的修改也是在关闭输入窗口时完成，即设置窗口的“关闭”事件，当发生该事件时运行已建立的“更新修改后的库存数量（入库）”更新查询。所设代码如下：对入库/出库信息的查询可按入库/出库单中的任意内容查询。无论是查询入库信息，还是查询出库信息，其设计方法相同，只是窗体所用数据源不同。因此，只介绍入库信息查询。入库信息查询控制窗体如图12-3-36所示。,DoCmd.OpenQuery 更新修改后的库存数量（入库）,acViewNormal,acEdit,图12-3-36 入库查询控制窗体,

32、1高级查询单击【高级查询】按钮，调出“入库信息高级查询”窗体，如图12-3-37所示。在窗体中相应的文本框内输入要查询的 内容，然后单击【查找记录】按钮，这 时系统将在“商品入库表”中查找记录并 显示在窗体中。（1）使用向导创建以“商品入库表”为数据源 的“表格”式窗体。（2）调整窗体页眉区大小，并在页眉区上方放置1个标签、1个组合框和3个文本框。3个文本框用来输入“入库单号”、“入库日期”、“入库数量”等内容，组合框用来选择“商品代码”。（3）在窗体页脚区放置2个命令按钮，“查找记录”和“退出”。（4）保存查询窗体，并命名为“入库信息高级查询”。,图12-3-37 入库信息高级查询窗体,（5

33、）编写查询代码，对每个文本框的“失去焦点”事件进行记录定位设置，然后通过“查找记录”命令按钮的“单击”事件完成实际定位。4个输入控件的“失去焦点”事件的代码如下。入库单号“失去焦点”事件代码：入库日期“失去焦点”事件代码：,Private Sub 文本21_LostFocus()On Error GoTo Err_文本21_LostFocus Me!入库ID.SetFocusDoCmd.FindRecord Me!文本21,True,True Me!命令5.Visible=TrueExit_文本21_LostFocus:Exit SubErr_文本21_LostFocus:MsgBox Err

34、.Description Resume Exit_文本21_LostFocusEnd Sub,Private Sub 文本2_LostFocus()On Error GoTo Err_文本2_LostFocus Me!入库日期.SetFocusDoCmd.FindRecord Me!文本2,True,True Me!命令5.Visible=TrueExit_文本2_LostFocus:Exit SubErr_文本2_LostFocus:MsgBox Err.Description Resume Exit_文本2_LostFocusEnd Sub,商品代码“失去焦点”事件代码：入库数量“失去焦点

35、”事件代码：“查找记录”命令按钮的“单击”事件代码：,Private Sub 组合25_LostFocus()On Error GoTo Err_组合25_LostFocus Me!商品代码.SetFocusDoCmd.FindRecord Me!组合25,True,True Me!命令5.Visible=TrueExit_组合25_LostFocus:Exit SubErr_组合25_LostFocus:MsgBox Err.Description Resume Exit_组合25_LostFocusEnd Sub,Private Sub 文本27_LostFocus()On Error G

36、oTo Err_文本27_LostFocus Me!入库数量.SetFocusDoCmd.FindRecord Me!文本27,True,True Me!命令5.Visible=TrueExit_文本27_LostFocus:Exit SubErr_文本27_LostFocus:MsgBox Err.Description Resume Exit_文本27_LostFocusEnd Sub,Private Sub 命令5_Click()Screen.PreviousControl.SetFocus DoCmd.FindNextEnd Sub,2按条件查询“按入库数量查询”和“按入库日期查询”，

37、通过创建参数查询来实现查询。在建立这两个查询之前先建立“所有入库信息查询”。（1）创建“所有入库信息查询”。可通过创建选择查询来完成该查询的创建。创建结果如图12-3-38所示。（2）创建“按入库数量查询”。以“所有入库信息查询”为数据源，在设计视图中创建该查询，如图12-2-39所示。,图12-3-38 创建“所有入库信息查询”查询,图12-3-39 创建“按入库数量查询”查询,在“入库数量”字段的“条件”行中输入：=请输入入库数量下限值 And=请输入日期上限值（*-*-*）And=请输入日期下限值（*-*-*）建立查询后，以所建查询为数据源，创建“按入库数量查询”和“按入库日 期查询”窗

38、体，以便更好显示查询结果 3创建查询控制窗体 入库查询控制窗体如图12-3-41所示。该窗体主要有入库信息显示区和查询控制区。查询控制区共有3个命令按钮。,图12-3-40 创建“按入库日期查询”查询,（1）设计查询控制窗体的布局。打开窗体 设计视图，在窗体页眉中放置一个如图 12-3-41所示的标题标签；在主体中加入 一个列表框控件，用来显示入库单信息；在列表框的下方适当位置放置一个矩形框，并将其“特殊效果”属性设置为“凸起”。（2）在矩形框中放置3个命令按钮，分别是“高级查询”、“按入库数量查询”和“按入库日期查询”。（3）在窗体最下方放置一个“退出”命令按钮，其作用是关闭窗体。（4）调整

39、每一部分的位置和大小，使其与图12-3-41基本相同。然后保存窗体，并命名为“入库单查询主窗体”。,图12-3-41 入库单查询主窗体设计视图,（5）创建入库查询宏组，创建后的宏组如图12-3-42所示。设置宏组中4个宏打开相对应的4个窗体“入库 单查询主窗体”、“入库单信息高级查询”、“按 入库数量查询”和“按入库日期查询”。最后保 存宏组为“查入库单”。（6）设置“入库单查询主窗体”窗体中命令 按钮的“单击”事件，在设计视图中打开窗体“入库单查询主窗体”，如图12-3-41所示。（7）单击选中“高级查询”命令按钮，调出“属性”对话框，单击“事件”选项卡，从“单击”下拉列表中选中“查入库单.

40、打开入库信息高级 查询窗体”，如图12-3-43所示。（8）用同样的方法，将“按入库数量查询”和“按入库日期查询”命令按钮的“单击”事件分别设置为“查入库单.打开入库数量查询”和“查入库单.打开入库日期查询”。,图12-3-42 宏组设计结果,图12-3-43 设置按钮的“单击”事件,12.3.7报警处理,报警处理主要将“库存表”中的“库存数量”与“最高储备”进行比较，当“库存数量”高于“最高储备”时，显示这些需要报警商品的相关信息。1建立报警查询由于报警查询中需要计算“库存数量”与“最高储备”的差。因此，可通过创建计算查询来建立报警查询。（1）在数据库窗口的“对象”列表框中选中“查询”选项，

41、双击“使用向导创建查询”。（2）在“表/查询”下拉列表框中选择“表：库存表”，选取除“最低储备”以外的全部字段，如图12-3-44所示。（3）单击【下一步】按钮两次，保存查询为“报警查询”，并选中“修改查询设计”单选按钮，如图12-3-45所示。,（4）单击【完成】按钮，在调出的“报警查询”设计视图中，添加一个计算字段“表达式1:库存表!库存数量-库存表!最高储量”，如图12-3-46所示。（5）在所加计算字段的“条件”行上输 入条件“0”，保存查询。,图12-3-44 查询向导 图12-3-45 保存报表,图12-3-46 报警查询设置,2创建报警报表创建了报警查询后，以此查询为数据源创建一

42、个报警报表，使其显示需要报警的消息。（1）使用向导创建报表，调出“报表向导”窗口。（2）在“表/查询”下拉列表框中选择“报警查询”，选取全部字段。如图12-3-47所示。（3）单击【下一步】按钮，确认是否添加分组级别，该报表不分组。（4）单击【下一步】按钮，以“库存数量”降序排序。（5）单击【下一步】按钮，确定布局及方向为“表格”、“纵向”，如图12-3-48所示。,图12-3-47 报表向导 图12-3-48 报表的布局方式,（6）单击【下一步】按钮，确定报表采用的样式为“组织”。（7）单击【下一步】按钮，指定报表的名称，并选中“修改报表设计”单选按钮，单击【完成】按钮，如图12-3-49所

43、示。（8）在“报警表”设计视图中，修改报表设计，如图12-3-50所示。,图12-3-49 指定报表名称,图12-3-50 修改报表设计,3创建报警窗体报警处理只要打开报警表，显示相应的报警信息就可以了。在报警之前应判断查询结果是否有需要报警的商品。实现这一功能的代码如下：为了能够在打开报警表之前运行这一代码，建立一个报警临时窗体，将上述代码放到该窗体的“打开”事件中，如图12-3-51所示。这样当打开该窗体时，就可以运行这段代码。这里，报警临时窗体的作用就是运行该代码，窗体中无任何设置，如图12-3-52所示。,Private Sub Form_Open(Cancel As Integer)

44、With CodeContextObject rrr=报警查询!商品代码 Null DoCmd.ApplyFilter uuu,rrr If(.RecordsetClone.RecordCount 0)Then MsgBox 有需要报警的产品！,vbOKOnly,提示框 DoCmd.Close DoCmd.OpenReport 报警表,acViewPreview Else MsgBox 没有需要报警的产品！,vbOKOnly,提示框 DoCmd.Close End IfEnd WithEnd Sub,4催货处理与报警处理相似，催货处理是将“库存表”中的“库存数量”与“最低储备”进行比较，当“库

45、存数量”低于“最低储备”时，显示这些需要催货商品的相关信息。实现催货处理功能的步骤如下。（1）建立一个催货查询，设计结果如图12-3-53所示。,图12-3-51 设置窗体“打开”事件 图12-3-52 报警临时窗体,（2）使用向导创建一个催货报表，报表数据源为“催货查询”，如图12-3-54所示。（3）建立一个催货临时窗体，设置窗体“打开”事件，事件代码为：,图12-3-53 催货查询设置,图12-3-54 催货表报表,Private Sub Form_Open(Cancel As Integer)With CodeContextObject rrr=催货查询!商品代码 Null DoCmd

46、.ApplyFilter uuu,rrr If(.RecordsetClone.RecordCount0)Then MsgBox 有需要催货的产品！,vbOKOnly,提示框 DoCmd.Close DoCmd.OpenReport 催货表,acViewPreview Else MsgBox 没有需要催货的产品！,vbOKOnly,提示框 DoCmd.Close End IfEnd WithEnd Sub,12.3.8报表设计,用户需要系统为其提供统计功能，使管理者随时了解和掌握某一时期入库、出库和库存信息。本文系统提供了统计功能，并以报表形式显示所有统计信息。1设计思路报表统计功能主要包括：

47、库存统计、按月入库统计和按月出库统计。通过它们统计某年某月入库、出库和库存的汇总信息。由于需要对每种商品的入库数量和出库数量进行汇总，在报表输出之前应当进行计算。报表统计包括如下功能：（1）创建统计查询，计算出指定日期每种商品的入库总量和出库总量。（2）以所建统计查询为数据源，使用向导创建相应的报表。（3）设置报表的调用方式。2创建统计查询由于系统要求统计出指定日期的入库数量，因此，需要创建具有统计功能的参数查询。,（1）以“商品入库表”和“商品信息”为数据源创建查询“按月统计入库信息”。包含字段有“商品代码”、“商品名称”、“单位”、“规格”、“入库数量”和“入库日期”等，如图12-3-55

48、所示。（2）在查询的设计视图中，添加一个新 字段，统计月份“Month(商品入库表.入库日期)”。（3）在所加字段的“条件”行上输入条件“Month(请输入年月(-)”。（4）单击工具栏上的【合计】按钮，显示“总计”行，并把所有字段设置成“分组”。单击“入库数量”字段的“总计”行，从下拉列表中选中“总计”，单击“入库日期”字段列显示行上的复选框。设计结果如图12-3-56所示。,图12-3-55 创建的查询“按月统计入库信息”,图12-3-56 按月入库统计查询设置,（5）保存该查询，并命名为“按月统计入库信息”。3创建显示报表完成统计查询的创建后，可以开始创建按月入库统计报表。先使用报表向导

49、创建一个报表，然后再使用设计视图修改。（1）单击数据库窗口对象列表框中的“报表”，双击“使用向导创建报表”，调出“报表向导”对话框。（2）在“报表向导”对话框中，在“表/查询”下拉列表框中选择“按月统计入库信息”，选取全部字段。（3）单击【下一步】按钮，在调出的对话框中确定是否添加分组级别，选择不分组。（4）单击【下一步】按钮，在调出的对话框中确定排序次序，选择“入库数量之总计”作为排序字段。（5）单击【下一步】按钮，在调出的对话框中确定布局方式，选择“表格”的布局方式。,（6）单击【下一步】按钮，在调出的对话框中确定使用的样式，选择样式为“组织”。（7）单击【下一步】按钮，在对话框的“请输入

50、报表的标题：”文本框中输入报表的名字“月入库统计表”，并在窗口的下方选中“修改报表设计”单选按钮。（8）单击【完成】按钮，进入设计窗口，如图12-3-57所示。（9）调整各个部件的位置，使布局更加合理美观，如图12-3-58所示。然后保存设计，关闭设计窗口。,图12-3-57“月入库统计表”报表的设计窗口,图12-3-58 调整后的“月入库统计表”报表,4编写调用模块为了方便报表使用，此处编写了调用模块，并通过系统主菜单上的3个命令按钮来调用该模块，打开不同报表。建立模块的方法如下。（1）单击数据库窗口“对象”列表框中的“模块”，单击【新建】按钮，调出“模块编辑窗口”，如图12-3-59所示。