2022年《数据库应用》案例教学教案.docx

名师归纳总结 精品学习资料
- - - - - - - - - - - - - - -
名师精编 优秀教案
《数据库应用》案例简易教案
本案例以商品的入库及销售为主要操作内容,
旨在通过案例的1 Then
stDocName = " 商品表编号查询 " stDocName
Else
stDocName = " 商品表商品名查询 " stDocName
End If
,就可利用选项组方式来进行,在对选项组进行
细心整理归纳 精选学习资料
- - - - - - - - - - - - - - -
第 3 页,共 12 页
- - - - - - - - -
名师归纳总结 精品学习资料
- - - - - - - - - - - - - - -
名师精编 优秀教案
同时,为了使查询中得到用户输入的查询内容,务必在查询设计窗口的准就中输入查询内容,如设 计窗口及编码格式如：
“ 准就” 中的代码如下：
[forms].[ 商品查询条件 ].[ 文本 8]
6、窗体名：“ 商品入库” ,本窗体主要用于商品入库时的信息录入,其窗体视图如下：
说明一： 为了使用户在操作时可以通过点取商品编号来显示相应的商品名,因此在窗体中设计了一个
下拉组合框,当用户点取该对象时,商品名应在对应的文本框中显示,因此应在下拉组合框对象的 change 大事中加上如下代码：
Private Sub 组合 17_Change〔〕
Set rs = New
"select * from 商品表
where 编号 ='" + 组合
+ "'", ,
细心整理归纳 精选学习资料
第 4 页,共 12 页
名师归纳总结 精品学习资料
- - - - - - - - - - - - - - -
名师精编 优秀教案
adOpenKeyset, adLockOptimistic
If Not 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
细心整理归纳 精选学习资料
- - - - - - - - - - - - - - -
第 5 页,共 12 页
- - - - - - - - -
名师归纳总结 精品学习资料
- - - - - - - - - - - - - - -
名师精编 优秀教案
If 文本 30 =