实验项目五
实验项目名称：宏、模块的创建与操作 教师评分： 一、实验目的和要求： 1、熟悉和掌握在宏设计器中设计简单宏。 2、熟悉和掌握在宏设计器中设计宏组。 3、熟悉和掌握在宏设计器中设计条件宏。 4、熟悉和掌握在宏设计器中设计自动运行宏。 5、熟悉和掌握VBA的常量、变量、运算符和表达式。 6、熟悉和掌握常用的标准函数。 7、熟悉和掌握VBA的程序结构：顺序结构、选择结构和循环结构。 8、熟悉和掌握为窗体和控件事件编写VBA程序代码的方法。 二、实验任务： 1、为“出货信息”窗体中的“商品编号”和“客户编号”字段文本框控件分别创建“查看商品名称”宏和“查看客户名称”宏。当单击“商品编号”或“客户编号”字段文本框控件时，弹出消息框显示对应的“商品名称”或“客户名称”。 2、为“退货信息窗体”中的“查看退货返款”命令按钮创建“查看退货返款”条件宏。当单击“查看退货返款”命令按钮时，根据“商品类别”确定不同商品的退货返款的比率，在弹出的信息框中显示“出货货款”和“退货返款”信息。具体规定如下： ? “商品类别”为“0001”和“0002”的商品退货返款的比率为：0.8 ? “商品类别”为“0003”、“0004”、“0006”、“0007”、“0008”、“0009”的商品退货返款的比率为：0.9 ? “商品类别”为“0005”的商品退货返款的比率为：0.95 3、首先在窗体设计视图中按照实践指导书p73页图7-13创建“窗体管理”窗体，然后为“窗体管理”窗体中的各命令按钮创建“窗体管理”宏组。当单击命令按钮时，打开相应的窗体功能。 4、创建自动运行宏“autoexec”,使“窗体管理”窗体随着“进销存管理系统”数据库一起打开。 5、创建“进货信息操作窗体”，为“清空记录”、“查询记录”、“添加记录”、“修改记录”、“删除记录”和“关闭窗体”等命令按钮编写VBA程序代码。 三、实验原理： 1.宏的功能是什么。调用方法有哪些。 （学生自行总结） 2.宏操作命令如下： 分类 宏操作 OpenDataAccessPage OpenForm OpenModule 打开 OpenQuery OpenReport OpenTable 焦点 GoToControl 功能 学生自行总结 学生自行总结 学生自行总结 学生自行总结 学生自行总结 学生自行总结 学生自行总结 1
学生自行总结 GoToPage 学生自行总结 SelectObject 学生自行总结 SendKeys 设置值 学生自行总结 SetValue 学生自行总结 RepaintObject 更新 学生自行总结 Requery 学生自行总结 ApplyFilter 学生自行总结 FindRecord 学生自行总结 FindNext 学生自行总结 GoToRecord 学生自行总结 RunApp 学生自行总结 记录 RunCode 学生自行总结 RunCommand 学生自行总结 RunMacro 学生自行总结 RunSQL 学生自行总结 StopAllMacro 学生自行总结 StopMacro 学生自行总结 Maximize 学生自行总结 Minimize 窗口 学生自行总结 MoveSize 学生自行总结 Restore 学生自行总结 打印 PrintOut 学生自行总结 Beep 学生自行总结 信息 MsgBox 学生自行总结 SetWarnings 学生自行总结 复制 CopyObject 学生自行总结 删除 DeleteObect 学生自行总结 重命名 rename 学生自行总结 保存 save 学生自行总结 close 关闭 学生自行总结 quit 学生自行总结 outputto 学生自行总结 TransferDatabase 导入导出 TransferSpreadsheet 学生自行总结 学生自行总结 TransferText 3.结构化程序设计思想是什么。包括哪些程序控制结构。不同的过程如何调用，参数如何传递。 （学生自行总结） 4.面向对象程序设计基本思想是什么。核心是什么。 （学生自行总结） 5.ADO的对象集合是什么。请写出VBA利用对象访问数据库的基本步骤。 （学生自行总结） 四、实验操作步骤（可略） 2
（参考课本上过程） 注意：1、宏的实验需要输入的表达式参考实验指导书的步骤部分，不要仅看图，图上的表达式未完整显示。 2、vba和模块的实验代码中的控件名称需要自行改动，请不要生搬硬套。 五、实验中遇到的问题（根据个人具体情况记载，选做) 附：部分代码，需要根据实际情况调整，直接照搬有可能运行不了 宏实验： 查看商品名称: =\商品编号：\商品编号] & \商品名称：\商品名称\商品信息表\商品编号 =[forms]![出货信息窗体]![商品编号]\ “条件”列第一行： DLookUp(\商品类别\商品信息表\商品编号=[forms]![退货信息窗体]![商品编号]\商品类别\商品信息表\商品编号 =[forms]![退货信息窗体]![商品编号]\ “消息”： =\出货货款：\退货信息窗体]![退货数量]*DLookUp(\出货单价\出货信息表\商品编号 =[forms]![退货信息窗体]![商品编号]\退货货款：\[Forms]![退货信息窗体]![退货数量]*DLookUp(\出货单价\出货信息表\商品编号 =[forms]![退货信息窗体]![商品编号]\ “条件”列第二行： DLookUp(\商品类别\商品信息表\商品编号=[forms]![退货信息窗体]![商品编号]\商品类别\商品信息表\商品编号 =[forms]![退货信息窗体]![商品编号]\ “消息”： =\出货货款：\退货信息窗体]![退货数量]*DLookUp(\出货单价\出货信息表\商品编号 =[forms]![退货信息窗体]![商品编号]\退货货款：\[Forms]![退货信息窗体]![退货数量]*DLookUp(\出货单价\出货信息表\商品编号 =[forms]![退货信息窗体]![商品编号]\ VBA和模块实验： Option Compare Database Private Sub 查询记录_Click() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sqlstr As String Set cn = CurrentProject.Connection If IsNull(Me.Text16) Then '\为本窗体中\请输入进货编号\文本框的\名称\属性值 3
MsgBox \请输入进货编号，进货编号不能为空！\提示\ Me.Text16.SetFocus Exit Sub Else sqlstr = \进货信息表 where 进货编号='\ rs.Open sqlstr, cn, adOpenDynamic, adLockOptimistic, adCmdText If Not rs.EOF Then Me.进货编号 = Trim(rs(0)) Me.商品编号 = Trim(rs(1)) Me.进货单价 = Trim(rs(2)) Me.进货数量 = Trim(rs(3)) Me.供货单位 = Trim(rs(4)) Me.进货日期 = Trim(rs(5)) Me.存放位置 = Trim(rs(6)) Me.经手人 = Trim(rs(7)) Else MsgBox \该进货编号不存在,请重新输入！\提示\ Me.Text16 = \ End If End If rs.Close cn.Close Set rs = Nothing Set cn = Nothing End Sub Private Sub 修改记录_Click() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sqlstr As String Set cn = CurrentProject.Connection If IsNull(Me.进货编号) And IsNull(Me.商品编号) And IsNull(Me.进货单价) And _ IsNull(Me.进货数量) And IsNull(Me.供货单位) And _ IsNull(Me.进货日期) And IsNull(Me.存放位置) And IsNull(Me.经手人) Then '\为本窗体中\请输入进货编号\文本框的\名称\属性值 MsgBox \每个字段都不能为空！\提示\ Me.进货编号.SetFocus Exit Sub Else sqlstr = \进货信息表 where 进货编号='\ rs.Open sqlstr, cn, adOpenDynamic, adLockOptimistic, adCmdText rs(0) = Trim(Me.进货编号) rs(1) = Trim(Me.商品编号) 4
