创建实用Access数据库_公司_进销存课件

第第9 9章章 创建实用创建实用AccessAccess数据库数据库公司客户管理系统进销存管理系统第9章 创建实用Access数据库公司客户管理系统9.1 公司客户管理系统9.1.1 创建“公司客户管理系统”数据表 作为一个销售型的公司，或者对于某个工厂的销售部门来说，公司客户管理系统的建立可以有效的避免因业务员个人工作变动而造成公司客户的流失，也可以方便我们统计每个业务员的销售业绩，以及各个地区间的销售差异。根据公司情况，建立公司客户管理系统共需5个表，如下页图所示。1、创建基础表 9.1 公司客户管理系统9.1.1 创建“公司客户管理系创建实用Access数据库_公司_进销存课件创建一个空白的“公司客户信息管理系统”数据库后，切换至“创建”标签页，单击“表设计”按钮，打开“表设计器”窗口 1创建一个空白的“公司客户信息管理系统”数据库后，切换至“创建2在表设计器窗口中，按照书中表9-1的要求输入相应的字段名称，并在数据类型一列按规定设置相应的“数据类型”，然后设置“客户编号”为“主键”这些“常规”属性，先不要设置，下边将分别进行设置 2在表设计器窗口中，按照书中表9-1的要求输入相应的字段名称在表设计器窗口中，选中“公司名称”字段，在下边的常规选项卡中设置格式为：！“公司名称：”&蓝色，将索引设置为：有（无重复）3以相同的操作，按照书中表9-1的规定设置“联系人性别”、“邮政编码”、“公司规模”和“加入时间”的“常规”属性。设置完毕后将此窗口关闭，并选择保存为“客户信息表”后，即可完成此表的创建 4创建了“客户信息表”后，按照相同的操作步骤，创建其它表5在表设计器窗口中，选中“公司名称”字段，在下边的常规选项卡中2、创建“客户信息表”的下拉列表 打开“客户信息表”表设计窗口，选中“地区”字段，在其“数据类型”的下拉列表中选择“查阅向导”命令，打开“查阅向导”对话框 12、创建“客户信息表”的下拉列表 打开“客户信息表”表设计窗选择“地区信息表”，单击“下一步”按钮继续 3保持系统默认，单击“下一步”按钮 2选择“地区信息表”，单击“下一步”按钮继续 3保持系统默认，保持系统默认连续单击两次“下一步”按钮，打开“查阅向导”的最后一个对话框，接着保持系统默认，单击“完成”按钮 5在“可用字段”列表中选择“地区名称”字段，单击选择按钮后单击“下一步”按钮继续 46单击“是”按钮保存表，完成查阅向导的操作 保持系统默认连续单击两次“下一步”按钮，打开“查阅向导”的最9.1.2 创建“公司客户管理系统”的供货查询 1、创建“各客户的年度供货单”查询 打开“公司客户管理系统”数据库，单击“创建”标签 2单击“查询向导”按钮19.1.2 创建“公司客户管理系统”的供货查询 1、创建“4选择“表：进出帐表”项，单击”下一步”按钮3选择“交叉表查询向导”，单击“确定”按钮4选择“表：进出帐表”项，单击”下一步”按钮3选择“交叉表查6选择“供货时间”项，单击“下一步”按钮 5双击“公司名称”将其添加到“选定字段”列表框，重复同样的操作将“货品名称”添加到“选定字段”列表框，单击“下一步”按钮继续 6选择“供货时间”项，单击“下一步”按钮 5双击“公司名称”8在字段列表中选择“供货金额”项，在函数列表中选择“汇总”项，将“是，包括各行小计”复选框中的勾去掉，单击“下一步”按钮 7选择“年”项，单击“下一步”按钮继续 8在字段列表中选择“供货金额”项，在函数列表中选择“汇总”项为查询输入名称“各客户的年度供货单”，单击“完成”按钮完成查询的创建 9行标题是“公司名称”和“货品名称”列标题是“供货时间”的年份 行、列交叉处的值是“供货金额”总和 双击“各客户的年度供货单”查询，执行效果如图所示 为查询输入名称“各客户的年度供货单”，单击“完成”按钮完成查2、创建“供货金额最高的五个供货单位”的查询 单击“查询向导”按钮，打开查询“设计视图”，单击“关闭”按钮关闭“显示表”对话框 2打开“公司客户管理系统”数据库，切换至“创建”标签页12、创建“供货金额最高的五个供货单位”的查询 单击“查询向导在设计视图上半区域单击右键，选择“SQL视图”命令，打开SQL视图 3在设计视图上半区域单击右键，选择“SQL视图”命令，打开SQ单击关闭按钮，弹出“是否保存”对话框，单击“是”按钮，弹出“另存为”对话框，输入“供货金额最高的五个供货单”，单击“确定”按钮完成查询的创建 5输入SQL语句 4这是执行结果，按照“供货金额”从高到低排列，取前五条记录 单击关闭按钮，弹出“是否保存”对话框，单击“是”按钮，弹出“9.1.3 创建窗体打开“客户管理系统”数据库，切换至“创建”标签页2单击“窗体设计”19.1.3 创建窗体打开“客户管理系统”数据库，切换至“创重复相同的操作，添加另外三个标签（“添加新客户功能：”、“查询功能：”和“修改与删除功能：”），并将它们的字体修改为12号粗体红色 4创建一个标签，输入标题“客户管理”，并将其字体改为18号粗体 3单击直线按钮，在下边画一条直线5重复相同的操作，添加另外三个标签（“添加新客户功能：”、“查为“查询功能”区域添加一个“请输入要查询的公司名称：”文本框 7创建文本框，将其标签的标题修改为“公司名称：”。重复相同的操作为“添加新客户功能”区域添加其他文本框（包括“公司主营业务”和“联系人”等）6为“修改与删除功能”区域添加一组文本框8为“查询功能”区域添加一个“请输入要查询的公司名称：”文本框重复相同的操作添加“业务员名称：”等其它组合框 10单击组合框按钮，使用向导创建表为“表：地区信息表”，字段选“地区名称”的“地区名称：”组合框 9重复相同的操作添加“业务员名称：”等其它组合框 10单击组合在“添加新客户功能:”区域添加“添加”按钮;在“查询功能”区域添加“查询”按钮；在“修改与删除功能”区域添加“！清空所有客户信息（慎用）”、“保存修改”和“删除该记录”命令按钮11在“添加新客户功能:”区域添加“添加”按钮;在“查询功能”区通过以上操作步骤我们就完成了“客户信息管理”窗体的创建，双击打开，效果如图所示“添加新客户功能：”区域“查询功能：”区域“修改与删除功能：”区域 通过以上操作步骤我们就完成了“客户信息管理”窗体的创建，双击9.1.4 创建客户报表 单击鼠标右键，选择“报表页眉/页脚”命令2打开“客户管理系统”数据库，进入报表设计视图工作区 19.1.4 创建客户报表 单击鼠标右键，选择“报表页眉/页在“页面页脚”节中创建另一个文本框，将其对应的标签删除，在文本框中输入“=第&Page&页”4在“报表页眉”节中添加一个文本框。在标签框中输入“各地区客户”，字体设为12号粗斜体，在文本框中输入“=Now()”3双击报表属性按钮，弹出“报表”属性窗口 5在“页面页脚”节中创建另一个文本框，将其对应的标签删除，在文切换至“数据”标签页。单击“记录源”组合框的下拉按钮，选择“客户信息表”项 6切换至“数据”标签页。单击“记录源”组合框的下拉按钮，选择“切换至“设计”标签页，单击“分组和排序”按钮，打开“排序和分组”窗口 7切换至“设计”标签页，单击“分组和排序”按钮，打开“排序和分单击“添加排序”按钮，在打开的字段列表中选择“地区”字段，默认排序次序为升序，分组形式设置为“有页眉节”和“有页脚节”8单击“添加排序”按钮，在打开的字段列表中选择“地区”字段，默单击“添加现有字段”按钮11单击“字段列表”中的“地区”项，将其拖动至“地区页眉”节第一行的方格内，并将其标签和文本框的字体均设为12号粗体。9在两条直线之间添加一个标签，将其标题更改为“公司名称”，重复同样的操作在同一行添加另外两个标签：“联系人”和“联系人电话”12绘制两条直线，颜色设置为“深灰1”色，边框宽度为3磅10单击“添加现有字段”按钮11单击“字段列表”中的“地区”项，在“地区页脚”节中绘制文本框，将其标签更名为“客户数量”，在文本框内输入“=Count(公司名称)”14将字段列表中的“公司名称”拖动至“主体”节的第一行中并将其对应的标签删除，重复同样操作将“联系人”和“联系人电话”项添加到“主体”节中 13单击关闭按钮，弹出“提示”保存对话框，单击“是”按钮。弹出“另存为”对话框，输入“各地区客户”。单击“确定”按钮，完成报表的创建 15在“地区页脚”节中绘制文本框，将其标签更名为“客户数量”，在双击“各地区客户”项，打开我们刚创建的报表 16在此报表中，“报表页眉”中显示的是报表名称和当前时间，“地区页眉”和“主体”中显示的是一条一条的客户记录 双击“各地区客户”项，打开我们刚创建的报表 16在此报表中，9.1.5 使用宏创建主窗体 打开“客户管理系统”数据库，切换至“创建”标签页，单击“宏”按钮19.1.5 使用宏创建主窗体 打开“客户管理系统”数据库，单击“操作”列第一行的下拉按钮，选择“OpenQuery”项，然后在其操作参数区域的“查询名称”中选择“各公司的年度供货单”项 3切换至“设计”标签页，单击宏名按钮增加“宏名”列，单击“宏名”列的第一行，输入“查询各客户的年度供货单”2在第二行的“宏名”列中输入“查询供货金额最高的五个供货单”，在“操作”列中选择“OpenQuery”项，并在其操作参数区域的“查询名称”中选择“供货金额最高的五个供货单”项 4单击“操作”列第一行的下拉按钮，选择“OpenQuery”项在“宏名”列的第四行中输入“打印各地区客户报表”，并在其对应的“操作”列选择“OpenReport”项，然后在其操作参数区域的“报表名称”中选择“各地区客户”项 6单击“宏名”列的第三行，输入“打开客户信息管理窗体”。单击“操作”列中第三行的下拉按钮，选择“OpenForm”项，然后在其操作参数区域的“窗体名称”中选择“客户信息管理”项 5在“宏名”列的第四行中输入“打印各地区客户报表”，并在其对应重复同样的操作，在“宏名”列的第五行中输入“关闭当前窗体”，在其“操作”列选择“Close”项，其操作参数区域均保持系统默认 87在“宏名”列的第六行中输入“关闭当前数据库”，在其对应的“操作”列中选择“Close”项，其操作参数区域均保持系统默认。在第七行的“操作”列选择“quit”项。并保存为“宏组”宏 重复同样的操作，在“宏名”列的第五行中输入“关闭当前窗体”，在“属性”窗口中，单击“事件”标签，然后单击“单击”下拉框中的下拉按钮，选择“宏组.查询各客户的年度供货单”项11打开窗体的设计视图，添加一个命令按钮控件，并将其标题更改为“查看：各客户的年度供货单”10重复同样的操作添加另外五个命令按钮，并为它们的单击事件选择相应的宏 9在“属性”窗口中，单击“事件”标签，然后单击“单击”下拉框中双击运行“主窗体”，单击“打印报表：各地区的客户”按钮，执行效果如下图所示 12双击运行“主窗体”，单击“打印报表：各地区的客户”按钮，执行9.1.6 完善“公司客户管理系统”打开“公司客户管理系统”数据库，右击“客户信息管理”，选择“设计视图”命令19.1.6 完善“公司客户管理系统”打开“公司客户管理系2选择“添加”按钮，单击“代码”按钮，打开代码编辑窗口 2选择“添加”按钮，单击“代码”按钮，打开代码编辑窗口 为“添加”按钮（Command39）的单击（Click）事件编写代码，此段代码实现添加新客户资料的功能 4在对象列表中选择“Command39”，在事件过程列表中选择“Click”事件3为“添加”按钮（Command39）的单击（Click）事件为“查询”按钮（Command57）的单击（Click）事件编写此段代码 6在对象列表中选择“Command57”，在事件过程列表中选择“Click”事件 5为“查询”按钮（Command57）的单击（Click）事件为“！清空所有客户信息（慎用）”按钮（Command58）的单击（Click）事件编写如下代码 8在对象列表中选择“Command58”，在事件过程列表中选择“Click”事件 7为“！清空所有客户信息（慎用）”按钮（Command58）的为“保存修改”按钮（Command90）的单击（Click）事件编写如下代码，此段代码实现保存数据的功能10在对象列表中选择“Command90”，在事件过程列表中选择“Click”事件9为“保存修改”按钮（Command90）的单击（Click）为“保存修改”按钮（Command91）的单击（Click）事件编写如下代码 12在对象列表中选择“Command91”，在事件过程列表中选择“Click”事件 11为“保存修改”按钮（Command91）的单击（Click）这是添加数据的执行效果 这是添加数据的执行效果 这是查询数据的执行效果 这是查询数据的执行效果 9.2 进销存管理系统 9.2.1 系统数据库和表设计 作为一个销售型的公司，或者对于某个工厂的销售部门来说，建立完善的“进销存管理系统”是控制企业进货和监控盈利的关键。下边将以实例的形式讲述“进销存管理系统”的创建。本实例“进销存管理系统”共有四个表组成：“产品类型”表、“产品信息”表、“出库数据”表和“入库数据”表组成，具体如下页图所示。9.2 进销存管理系统 9.2.1 系统数据库和表设计 创建实用Access数据库_公司_进销存课件关于表格的创建前边已有多处叙述，此处不再详细讲解，至于表中字段类型标注为“查阅向导”的，请使用查阅向导与相关表格的相关字段相关联即可。关于表格的创建前边已有多处叙述，此处不再详细讲解，至于表中字9.2.2 建立查询 我们需要建立如图所示的三个查询 9.2.2 建立查询 我们需要建立如图所示的三个查询 在这三个查询中，“入库数据 查询”以“入库数据”表为基础表，“出库数据 查询”以“出库数据”表为基础表，除了“ID”字段外，其余字段均显示；“盈利查询”以“产品信息”为基础表，且只显示“类别ID”和“产品名称”字段。这三个查询均使用“查询向导”即可轻松创建，关于创建的方法，这里不再详细叙述。在这三个查询中，“入库数据 查询”以“入库数据”表为基础表，9.2.3 建立主窗体 本系统只有一个窗体构成，左侧有一个“出库”和“入库”的单选按钮，选择“出库”和“入库”单选按钮，下边和右侧数据会跟着改变 9.2.3 建立主窗体 本系统只有一个窗体构成，左侧有一个单击“选项组”按钮，在窗体上使用向导添加一个包含两个选项按钮的选项组控件 2打开“进销存管理系统”数据库，打开窗体“设计视图”1添加一个名字为“产品名称”的下拉按钮控件，并与“产品信息”表中的产品名称相关联（按照向导操作即可）。并添加其他的五个文本框和两个命令按钮 3单击“选项组”按钮，在窗体上使用向导添加一个包含两个选项按钮分别右击“产品名称”、“产品价格”、“入库日期”和“入库数量”四个文本框，在弹出的菜单中选择“属性”命令，打开“属性”设置窗口 将“产品名称”、“产品价格”和“入库数量”三个控件的默认值设置为0 将有效性规则的默认值设置为“”将“入库日期”的默认值设置为=Date()（就是默认为当前日期），有效性规则为“”4567分别右击“产品名称”、“产品价格”、“入库日期”和“入库数量通过属性设置让这两个窗体完全重合，将窗体分别命名为“出库数据查询”和“入库数据查询”，将他们的标签分别命名为“出库数据”和“入库数据”9单击“子窗体/子报表”按钮，在窗体上使用向导添加两个以“入库数据 查询”和“出库数据 查询”为数据源的子窗体 8将主窗体的设计视图关闭，并保存为“主窗体”窗体 10通过属性设置让这两个窗体完全重合，将窗体分别命名为“出库数据右击“产品编号”等控件，选择“属性”命令，打开其“属性”窗口12右击“出库数据查询”窗体，并选择“设计视图”命令，打开其设计视图 11右击“产品编号”等控件，选择“属性”命令，打开其“属性”窗口14将“可用”属性选为“否”，将“是否锁定”属性选为“是”（五个白色的控件都进行相同的设置）13单击左上角的窗体属性按钮，打开窗体的属性对话框，只保留“数据表”视图为“是”，“允许编辑”属性选为“否”，“允许删除”属性选为“是”，“允许添加”属性选为“否”，“数据输入”属性选为“否”，完成对此窗体的设置 14将“可用”属性选为“否”，将“是否锁定”属性选为“是”（打开“主窗体”的设计视图，并通过双击其左上角的“属性”按钮打开其属性设置窗口 将“主窗体”的属性设置为：标题为“进销存管理系统”；只允许“窗体”视图；“记录选择器”为“否”；“导航按钮”为“否”，边框样式为“细边框”；“最大最小化按钮”为“无”。然后保存窗口设置即可完成主窗体的创建1516打开“主窗体”的设计视图，并通过双击其左上角的“属性”按钮打9.2.4 给主窗体添加代码 在“主窗体”的设计界面，单击代码按钮打开“进销存管理系统”数据库的代码设置窗口，在此窗口中，通过“控件选择”下拉列表和“功能选择”下拉列表，可以选择对不同控件的不同操作设计代码。由于代码的添加过程，用幻灯片说明，没有太大的实际意义，建议同学们到正文中反复研究本文提供的代码，理解每一句代码的意义，这样才能举一反三，为自己做出更好的数据库打好基础。本课件对代码的添加不做过多讲述。9.2.4 给主窗体添加代码 在“主窗体”的设计界面，单击9.2.5 建立“盈利查询”报表并添加代码 我们主要对每个产品的“进货数量”、“进货总金额”、“出货总量”和“出货总金额”进行统计，并根据“已售商品”计算出基本的盈利状况，再根据“进货总金额”和“出货总金额”对比出当前资金的占用情况 9.2.5 建立“盈利查询”报表并添加代码 我们主要对每个为此报表添加如图所示的后边几个字段：进货总量、进货金额、出货总量、出货金额、出货盈利和资金亏损，并删除附带标签2使用向导，以“盈利查询”查询为数据源，创建一个“盈利查询”报表，注意此时“盈利查询”报表只有前两个字段：“类别ID”和“产品名称”，右击此报表，选择“设计视图”命令，打开其设计视图 1在页面页眉节添加字段的相关标签3在“页面页脚”节中添加“总盈利”和“总亏损”两个文本框4为此报表添加如图所示的后边几个字段：进货总量、进货金额、出货打开窗体的代码编写窗口后，在“控件选择”下拉列表中选择“主体”，然后添加书中所述的代码，即可以实现我们需要的功能。5代码开始，首先根据“产品名称”从“产品信息”表中查找“产品编号”，然后根据产品编号，在“入库数据”表和“出库数据”表中，检索出相同的数据进行计算即可（具体操作请看代码中的相关解释）。打开窗体的代码编写窗口后，在“控件选择”下拉列表中选择“主体9、静夜四无邻，荒居旧业贫。6月-246月-24Sunday,June 16,202410、雨中黄叶树，灯下白头人。20:30:4220:30:4220:306/16/2024 8:30:42 PM11、以我独沈久，愧君相见频。6月-2420:30:4220:30Jun-2416-Jun-2412、故人江海别，几度隔山川。20:30:4220:30:4220:30Sunday,June 16,202413、乍见翻疑梦，相悲各问年。6月-246月-2420:30:4220:30:42June 16,202414、他乡生白发，旧国见青山。16 六月 20248:30:42 下午20:30:426月-2415、比不了得就不比，得不到的就不要。六月 248:30 下午6月-2420:30June 16,202416、行动出成果，工作出财富。2024/6/16 20:30:4220:30:4216 June 202417、做前，能够环视四周；做时，你只能或者最好沿着以脚为起点的射线向前。8:30:42 下午8:30 下午20:30:426月-249、没有失败，只有暂时停止成功！。6月-246月-24Sunday,June 16,202410、很多事情努力了未必有结果，但是不努力却什么改变也没有。20:30:4220:30:4220:306/16/2024 8:30:42 PM11、成功就是日复一日那一点点小小努力的积累。6月-2420:30:4220:30Jun-2416-Jun-2412、世间成事，不求其绝对圆满，留一份不足，可得无限完美。20:30:4220:30:4220:30Sunday,June 16,202413、不知香积寺，数里入云峰。6月-246月-2420:30:4220:30:42June 16,202414、意志坚强的人能把世界放在手中像泥块一样任意揉捏。16 六月 20248:30:42 下午20:30:426月-2415、楚塞三湘接，荆门九派通。六月 248:30 下午6月-2420:30June 16,202416、少年十五二十时，步行夺得胡马骑。2024/6/16 20:30:4220:30:4216 June 202417、空山新雨后，天气晚来秋。8:30:42 下午8:30 下午20:30:426月-249、杨柳散和风，青山澹吾虑。6月-246月-24Sunday,June 16,202410、阅读一切好书如同和过去最杰出的人谈话。20:30:4220:30:4220:306/16/2024 8:30:42 PM11、越是没有本领的就越加自命不凡。6月-2420:30:4220:30Jun-2416-Jun-2412、越是无能的人，越喜欢挑剔别人的错儿。20:30:4220:30:4220:30Sunday,June 16,202413、知人者智，自知者明。胜人者有力，自胜者强。6月-246月-2420:30:4220:30:42June 16,202414、意志坚强的人能把世界放在手中像泥块一样任意揉捏。16 六月 20248:30:42 下午20:30:426月-2415、最具挑战性的挑战莫过于提升自我。六月 248:30 下午6月-2420:30June 16,202416、业余生活要有意义，不要越轨。2024/6/16 20:30:4220:30:4216 June 202417、一个人即使已登上顶峰，也仍要自强不息。8:30:42 下午8:30 下午20:30:426月-24MOMODA POWERPOINTLorem ipsum dolor sit amet,consectetur adipiscing elit.Fusce id urna blandit,eleifend nulla ac,fringilla purus.Nulla iaculis tempor felis ut cursus.感感 谢谢 您您 的的 下下 载载 观观 看看专家告诉9、静夜四无邻，荒居旧业贫。8月-238月-23Wedne