数据库技术与应用第9-4讲 模块对象的应用案例.pptVIP

* 第9章 模块对象的设计及应用 9-4 Microsoft Access 2010 * * * * * * * 第9章 模块对象的设计及应用——模块对象的应用案例 9-4 引言 在学习了模块对象的基本概念、建立方法和调试方法后，本节将通过案例来学习提高模块对象的设计能力。 第9章 模块对象的设计及应用 ——模块对象的应用案例教学内容 模块中过程的协作 同一模块中过程的协作 不同模块间过程的协作 将宏转换为模块 第9章 模块对象的设计及应用 ——模块对象的应用案例学习目标 能力目标: 通过案例学习提高模块设计能力 一、模块中过程的协作 1.同一模块中过程的协作 【例9-5】创建一标准模块，名为“modu2”，在其中创建一个求排列组合n!/(m!*(n-m)!)的函数过程fun2，创建一个求n!的函数过程fun1，在函数fun2中调用函数fun1。 操作步骤如下。 （1）创建标准模块“modu2”。 一、模块中过程的协作 1.同一模块中过程的协作 （2）在“modu2”代码窗口中创建函数过程，输入以下代码。 Public Function fun1(n As Single) As Single Dim i As Single, t As Single t = 1 For i = 1 To n t = t * i Next fun1 = t End Function Public Function fun2(n As Single, m As Single) As Single fun2 = fun1(n) / (fun1(m) * fun1(n - m)) End Function 一、模块中过程的协作 1.同一模块中过程的协作 （3）保存模块。 （4）在“立即窗口”中输入命令 ? Fun2(5,2) 执行命令后，立即窗口显示结果为 10 一、模块中过程的协作 2．不同模块间过程的协作 【例9-6】设计一个窗体frm4，设计视图如图9-13所示。在text1文本框中输入存款人的身份证号码，在text2和text3文本框中输入存款额和期限，单击“计算年龄”按钮（Command1），计算存款人年龄并显示在text4中，单击“计算利息”按钮（Command2），计算利息并显示在text5中,单击“退出”按钮（Command3），关闭窗体frm4。 一、模块中过程的协作 2．不同模块间过程的协作 图9-13 frm4窗体设计视图 一、模块中过程的协作 2．不同模块间过程的协作 【分析】 ①计算存款人年龄，我们可以调用例题9-2所建立的公共模块中的过程age0()，计算结果放入文本框text4中。命令按钮command1的click事件代码编写如下： Private Sub Command1_Click() Dim idno As String idno = Me.Text1.Value Me.Text4 = age0(idno) Me.Refresh End Sub 一、模块中过程的协作 2．不同模块间过程的协作 ②要计算存单利息，我们可以在frm4窗体的模块声明部分创建一个类为“存单”的对象cd1，“存单”类已在例题9-1中定义。在“计算利息”按钮的click事件中，我们只需将文本框text2和text3中输入的数据赋给对象cd1的属性“金额”和“期限”，然后调用对象cd1的方法“利息”，并将利息放入文本框text5中显示即可。命令按钮command2的click事件代码编写如下： 一、模块中过程的协作 2．不同模块间过程的协作 ③“退出”按钮（Command3）的代码如下。 Docmd.close Private Sub command2_Click() cd1.金额 = Me.Text2.Value cd1.期限 = Me.Text3.Value Me.Text5.Value = cd1.利息 Me.Refresh End Sub 一、模块中过程的协作 2．不同模块间过程的协作 完整的Frm4窗体模块代码如图9-14所示。 一、模块中过程的协作 2．不同模块间过程的协作 运行frm4窗体，输入存单人身份证号码、金额和期限后，单击“计算年龄”和“计算利息”命令按钮，frm4窗体视图如图9-15所示 二、将宏转换为模块 宏实际上也是程序，Access能够自动将宏转换为 VBA的事件过程或模块，执行这些事件过程或模块，其结果与运行宏的功能相同。 将宏转化为模块的操作方法如下。 在Access数据库窗口对象中单击宏对象，选中要转化的宏，使用“宏工具设计”?“工具”?“将宏转化