《数据库应用》案例简易教案
本案例以商品的入库及销售为主要操作内容，旨在通过案例的制作，使学生对ACCESS的菜单功能有一个更深刻的理解并能系统掌握利用ACCESS开发应用小程序的目的。
案例名称《商品入库及销售管理系统》
一、所使用的数据表及其结构
二、窗体的建立：
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
文本20 = rs("商品名")
End If
End Sub
说明二：在窗体被加载到内存中时，对变量进行初始化、设置控件的一些初始属性，应在“窗体”中的“加载”事件中加代码如下：
Private Sub Form_Load()
文本15 = ""
组合17 = ""
文本22 = ""
文本24 = ""
文本26 = ""
组合28 = ""
文本20 = ""
文本30 = CStr(Date)
End Sub
说明三：为了将用户输入的商品入库信息存放到入库表中，应在“保存”按钮中的“单击”事件中加如下代码：
Private Sub 命令33_Click()
If 文本15 = "" Then
MsgBox ("入库单号不能为空！")
Exit Sub
End If
If 组合17 = "" Then
MsgBox ("编号不能为空！")
Exit Sub
End If
If 文本22 = "" Then
MsgBox ("数量不能为空！")
Exit Sub
End If
If 文本24 = "" Then
MsgBox ("进货价不能为空！")
Exit Sub
End If
If 文本26 = "" Then
MsgBox ("供应商不能为空！")
Exit Sub
End If
If 组合28 = "" Then
MsgBox ("操作员不能为空！")
Exit Sub
End If

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。