数据库的应用的案例教学教案.docVIP

《数据库应用》案例简易教案 本案例以商品的入库及销售为主要操作内容，旨在通过案例的制作，使学生对ACCESS的菜单功能有一个更深刻的理解并能系统掌握利用ACCESS开发应用小程序的目的。 案例名称《商品入库及销售管理系统》 所使用的数据表及其结构 1、表名：“商品表”，用于存放商品的基本信息，结构如下要求： 字段名 数据类型 字段大小 小数 编号 文本 10 注：设为主键 商品名 文本 60 规格 文本 20 单位 文本 10 零售价 数字 单精度 2 库存量 数字 长整型 自动 2、表名：“入库表”，用于存放商品入库的基本信息，结构如下要求： 字段名 数据类型 字段大小 小数 输入法模式 入库单号 文本 10 注：设为主键 编号 文本 10 注：设为主键 入库日期 日期/时间 长日期 输入法关闭 数量 数字 整型 自动 进货价 数字 单精度 2 供应商 文本 50 操作员 文本 10 3、表名：“销售表”，用于存放商品销售的基本信息，结构如下要求： 字段名 数据类型 字段大小 小数 输入法模式 编号 文本 10 销售日期 日期/时间 长日期 输入法关闭 数量 数字 整型 自动 零售价 数字 单精度 2 操作员 文本 10 4、表名：“操作员表”，用以存放操作员的基本信息：结构如下要求： 字段名 数据类型 字段大小 小数 输入法模式 操作员 文本 10 注：设为主键 密码 文本 12 二、窗体的建立： 1、窗体名：“商品管理”，用以商品基本信息的新增、编辑等功能。具体实现后的窗体视图如下： 2、窗体名：“商品浏览”，该窗体主要用于实现对整个商品信息的浏览作用，并不具备新增、编辑等功能，因此在其窗体属性中应设置“新增、删除、编辑”属性为“否”。具体实现后的窗体视图如下： 3、窗体名：“主窗体”，其作用是为实现整个系统中各个功能正常调用，在该主窗体中建立相关的调用按钮，以便用户通过点击主窗体中的相关按钮来实现相应功能的调用，由于该窗体是主窗体，是系统运行后出现的第一个人机交互界面，因此对该窗体进行一些修饰，如设置相关的字体、背景图、且不允许用户修改边框大小、不存在滚动条、记录定位器及浏览器等，这些相关属性应在窗体的属性窗口中进行设置。具体实现后的窗体视图如下： 4、窗体名：“商品名查询”，该窗体主要用于实现用户按商品名对商品信息的查询浏览作用。为了实现按商品名查询，首先应充分利用ACCESS提供的参数查询功能，建立一个名为“按商品名查询”的查询。由于按商品名查询后的信息只在查询窗体中显示，而对于ACCESS而言，可以先建立一个窗体，设置该窗体的数据来源于“按商品名查询”这一查询，因此，只要建立一名为“商品名查询”的窗体，设置该窗体的数据来源于“按商品名查询”这一查询，由于是查询，并不提供新增及、编辑功能，故应对该窗体的有关属性进行相应的设置，设置方法同“商品浏览”窗体的建立相似。具体实现后的窗体视图如下： 5、窗体名：“商品查询条件”，如下图所示： 若要利用查询条件的选择方式（如编号，或商品名），则可利用选项组方式来进行，在对选项组进行判断时，可以利用如下编码： Dim stDocName As String If Me![框架20].Value = 1 Then stDocName = 商品表编号查询 DoCmd.OpenForm stDocName Else stDocName = 商品表商品名查询 DoCmd.OpenForm stDocName End If 同时，为了使查询中得到用户输入的查询内容，务必在查询设计窗口的准则中输入查询内容，若设计窗口及编码格式如： “准则”中的代码如下： [forms]![商品查询条件]![文本8] 6、窗体名：“商品入库”，本窗体主要用于商品入库时的信息录入，其窗体视图如下： 说明一：为了使用户在操作时可以通过点取商品编号来显示相应的商品名，因此在窗体中设计了一个下拉组合框，当用户点取该对象时，商品名应在对应的文本框中显示，因此应在下拉组合框对象的change事件中加上如下代码： Private Sub 组合17_Change() Set rs = New ADODB.Recordset rs.Open select * from 商品表 where 编号= + 组合17.Text + , CurrentProject.Connection, adOpenKeyset, adLockOptimistic If Not rs.EOF Then 文本2