Access数据库应用技术 作者 王趾成 第6-11章 第8章.pptVIP

第8章 模 块 8.1 面向对象的程序设计基础 8.1.1 对象　　在面向对象的设计中，人们把准备模型化的客观现实看成是由对象组成的，对象则是某种可观察的实体，如学号、姓名、成绩等。8.1.2 对象的属性　　在面向对象的概念中，一个对象的特征或状态是由对象的属性描述的。对象的某一属性是对对象某方面特征的描述，如窗体有高度、宽度、背景颜色等属性。 8.1.3 对象的方法　　对象的方法是指对象所具有的行为或功能，如表的打开、关闭、消息显示等。8.1.4 对象的事件　　事件是一种特定的操作，在某个对象上发生或对某个对象发生。Access可以响应多种类型的事件：鼠标单击、数据更改、窗体打开或关闭及其他类型的事件。事件的发生通常是用户操作的结果。 8.2 创 建 模 块 8.2.1 将宏转换为模块　　将宏保存为模块，可以加速宏操作的执行速度。要将宏转化为模块，只要在数据库窗口中选中这个宏，然后选择“文件”菜单下的“另存为”命令，打开图8-1所示的“另存为”对话框，然后选择将它保存为模块。单击“确定”按钮打开如图8-2所示的对话框，单击“转换”按钮就可以将这个宏保存为同名的“模块”了。在数据库窗口中选择“模块”选项卡，就可以看到一个名为“被转换的宏-打开窗体宏”的模块。　　换”按钮就可以将这个宏保存为同名的“模块”了。在数据库窗口中选择“模块”选项卡，就可以看到一个名为“被转换的宏-打开窗体宏”的模块。 8.2.2 创建与窗体和报表相关的类模块　　类模块是包含新对象的定义的模块。当创建类的新实例时，即创建新对象。模块中定义的过程成为该对象的属性和方法。创建类模块的步骤如下：　　(1) 选择“窗体”窗口，单击选择任一窗体，如“切换面板”窗体，单击“设计”按钮，进入窗体设计视图。 　　(2) 用鼠标右键单击窗体，选择“事件生成器\代码生成器\确定”，进入如图8-3所示的模块代码编辑窗口。 图8-3 模块代码编辑窗口 　　(3) 在其中定义如下Function函数：　　Private Function showmsg() As Variant　　 MsgBox 这是切换面板窗体的一个函数　　End Function　　　　Private Sub 主体_Click()　　 Dim ms　　 ms = showmsg()　　End Sub　　(4) 关闭代码设计窗体，保存窗体设计。　　(5) 运行窗体“切换面板”，单击窗体将出现“这是切换面板窗体的一个函数”消息。 8.2.3 创建与窗体和报表不相关的类模块　　创建与窗体和报表不相关的类模块步骤如下：　　(1) 打开数据库。　　(2) 依次选择“插入\类模块”，出现如图8-4所示的类模块代码窗口。　　(3) 在其中定义如下Function函数：　　Private Function ShowMsg() As Variant　　 MsgBox 这是一个独立的类模块　　End Function 　　(4) 单击??按钮，将类模块保存为“m1”。接下来用户就可以在窗体中实例化该模块的对象，并应用该对象的ShowMsg()方法，如：　　 Dim Ls as m1　　 Ls.ShowMsg() 8.2.4 创建标准模块　　在标准模块中，可以放置希望供整个数据库的其他过程使用的 Sub 和 Function过程。创建标准模块的步骤如下：　　(1) 选择“模块”窗口。　　(2) 依次选择菜单“插入\模块”，进入如图8-5所示的模块代码编辑窗口。 图8-5 标准模块的模块代码编辑窗口 　　(3) 在窗口中输入Function函数：　　 Function ShowMessage() As Variant　　 MsgBox 这是一个标准模块的Function过程　　 End Function　　(4) 单击??按钮，将模块保存为“StandMd1”。　　(5) 在数据库的任一过程中，都可以通过使用StandMd1.ShowMessage(?)调用该Function函数。 8.3 过 程 8.3.1 Sub过程　　使用Sub语句可以声明新的子过程、它所接收的参数以及子过程的代码。声明格式如下：　　 Sub 子过程名(参数列表)　　 子过程代码　　 End Sub 　　例如：　　Sub SubComputeArea(Length As Double, TheWidth As Double) 计算矩形面积的过程　　 Dim Area As Double