论文部分内容阅读
摘 要：如何提高学生的VBA编程及Access数据库综合应用能力，是笔者与同仁在教学过程中不断进行探索课题。在总结多年教学实践的基础上，本文利用评分程序的制作及分析，探讨Access数据库、VBA编程的综合应用。
关键词：Access评分程序 窗体 数据表程序代码 Recordset对象 声音模块
在学习Access的基本理论和操作的基础上，为培养和考查学生的实际能力、潜在能力和创造能力，笔者与同仁以“评分程序”（图1）制作的过程为例，分析、操作和归纳体会Access的综合应用。
一、程序概述
通过程序实现对选手分数的统计。在编程解决分数统计的过程中，一要对评委的打分进行统计，二要尽量利用数据库来处理数据，三要添加声音效果，以此指导学生程序设计，从而达到利用Access进行的综合应用练习，提高分析和解决问题能力的目的。
二、设计评分程序窗体
在让学生明确程序运行基本要求的基础上，为开发学生创造性思维，教师要创设有利于创造性产生的适宜环境，教授创造性思维策略。可指导学生思考、推测与假设：程序设计的基本框架，需要用到哪些Access对象，相关属性设计的内容，程序的基本结构，程序运行的操作等等。
例如，“评分程序”窗体运行时，输入选手姓名和评委的打分后，单击“评分”按钮，弹出伴有“去掉一个最高分”声音的对话框，并输出最高分；同样的方式又输出最低分和最后得分。单击“评分表”按钮，会以数据表表格形式显示选手得分情况。单击“清零”按钮，则将窗体清零，为给下一个选手打分做好准备。单击“删除记录”按钮，则删除数据表中的所有记录。
为了实现对选手分数的统计，教师可指导学生根据实例特点，不拘一格、灵活地设计窗体界面。这里要提醒学生，对于文本框属性名称应本着简单、易记的原则命名，以便程序中调用和记忆方便。
例如，在圖1所示“评分程序”窗体中，对应于5个标签 “姓名”“请输入分数”“最高分”“最低分”和“最后得分”等的文本框属性名称，分别命名为：name、input、zgf、zdf、output；4个命令按钮“清零”“评分”“评分表”和“删除记录”的属性名称，分别命名为：cmdql、cmdpf、cmdpfb、cmdscjl。
在设计与数据表相关联的窗体时，要指导学生在窗体页眉中摆放文本框标签，而将文本框控件摆放在窗体主体中，并在文本框控件的属性中设置其控件来源为相应的数据表字段。
例如，在图2所示“评分表”窗体中，对应于3个标签“姓名”“分数”和“最后得分”的文本框控件来源，分别为“评分表”数据表的“姓名”“分数”和“最后得分”字段。按照程序要求应指导学生先创建“评分表”数据表，其中建立“姓名”“分数”和“最后得分”字段，“评分表”数据表的结构如图3所示。
三、程序代码功能分析
在建立了数据表、窗体等对象框架的基础上，需对相应命令按钮编写程序代码。
1.评分按钮
评分程序（程序代码略）主要分为4段：第一段是设置ActiveX数据对象ADO访问（ADO：ActiveX Data ObjectAxtiveX数据对象，是目前在Windows环境中比较流行的客户端数据库编程技术），并利用Recordset对象进行数据操作，例如，定义Connection对象、定义并创建Recordset对象、使用Access内置Connection对象、启动一个Dynamic类型的游标，打开“评分表”数据表等等。这里要理解ActiveX数据对象，并体会相应操作的含义。第二段是利用数组对录入的分数进行排序，即在定义、创建数组，并给数组赋值后，对数组中的数据进行排序。这里可指导学生，采用不同的排序方法体会、分析。第三段是调用声音模块sound中的播放函数PlaySound（），打开声音文件，播放并显示“最高分”“最低分”和“最后得分”。这里要对学生强调，掌握模块的建立和函数的调用方法。第四段是将选手得分存入“评分表”数据表中，以便适时调用，并让学生注意体会对数据库进行的操作。
2.声音模块
建立声音模块sound，用于在评分过程中进行声音提示和说明，这里旨在让学生了解、体会声音的调用和控制，其中使用了API函数，API函数是Windows提供给应用程序与操作系统的接口。模块sound的代码语句如下：
‘声明API函数，用winmm中的playsound函数播放声音。winmm.dll是Windows多媒体相关应用程序接口，用于低档的音频和游戏手柄。
Declare Function apisndPlaySound Lib “winmm” Alias “sndPlaySoundA” （ByVal filename As String， ByVal snd_async As Long） As Long
Function PlaySound（sWavFile As String） ’建立PlaySound函数
If apisndPlaySound（sWavFile， 1） = 0 Then
MsgBox “The Sound Did Not Play！”
End If
End Function
3.评分表按钮
通过使用DoCmd对象的方法执行打开“评分表窗体”的操作，而该窗体是基于“评分表”数据表而建立，其中数据源于“评分表”数据表，让学生体会程序中浏览数据表内容的方法。在评分表按钮的Click事件过程中，代码语句如下：
Private Sub Cmdpfb_Click（）
DoCmd.OpenForm "评分表"
End Sub
4.清零按钮
将“评分程序”窗体中相关的文本框清空，即对“姓名”“最高分”“最低分”和“最后得分”等文本框赋空值。
5.删除记录按钮
用于删除“评分表”数据表的所有记录。这里要设置ActiveX数据对象ADO访问，并利用Recordset对象进行数据操作，并注意数据表中记录指针的移动和定位。
四、归纳与启示
通过制作评分程序的整个过程，可以了解到该程序涉及数据表、窗体、模块、VBA程序设计、VBA数据库编程等多个方面，进一步理解了数据表、窗体、模块、VBA程序设计、VBA数据库编程及其相互关系。例如，在程序的设计过程中，为了求出最大和最小值，会想到使用排序算法；为了播放声音，会研究API函数，会了解到这些函数是Windows提供给应用程序与操作系统的接口；为了保存或删除数据，会利用数据库中的表和窗体等对象；为了优化程序结构，会合理使用选择结构、循环结构和数组等。显然通过评分程序的设计、调试及运行，以良好的效果达到了设计所要求的目的，显著提高了Access的综合应用能力。
（作者单位：湖北铁道运输职业学院）
关键词：Access评分程序 窗体 数据表程序代码 Recordset对象 声音模块
在学习Access的基本理论和操作的基础上，为培养和考查学生的实际能力、潜在能力和创造能力，笔者与同仁以“评分程序”（图1）制作的过程为例，分析、操作和归纳体会Access的综合应用。
一、程序概述
通过程序实现对选手分数的统计。在编程解决分数统计的过程中，一要对评委的打分进行统计，二要尽量利用数据库来处理数据，三要添加声音效果，以此指导学生程序设计，从而达到利用Access进行的综合应用练习，提高分析和解决问题能力的目的。
二、设计评分程序窗体
在让学生明确程序运行基本要求的基础上，为开发学生创造性思维，教师要创设有利于创造性产生的适宜环境，教授创造性思维策略。可指导学生思考、推测与假设：程序设计的基本框架，需要用到哪些Access对象，相关属性设计的内容，程序的基本结构，程序运行的操作等等。
例如，“评分程序”窗体运行时，输入选手姓名和评委的打分后，单击“评分”按钮，弹出伴有“去掉一个最高分”声音的对话框，并输出最高分；同样的方式又输出最低分和最后得分。单击“评分表”按钮，会以数据表表格形式显示选手得分情况。单击“清零”按钮，则将窗体清零，为给下一个选手打分做好准备。单击“删除记录”按钮，则删除数据表中的所有记录。
为了实现对选手分数的统计，教师可指导学生根据实例特点，不拘一格、灵活地设计窗体界面。这里要提醒学生，对于文本框属性名称应本着简单、易记的原则命名，以便程序中调用和记忆方便。
例如，在圖1所示“评分程序”窗体中，对应于5个标签 “姓名”“请输入分数”“最高分”“最低分”和“最后得分”等的文本框属性名称，分别命名为：name、input、zgf、zdf、output；4个命令按钮“清零”“评分”“评分表”和“删除记录”的属性名称，分别命名为：cmdql、cmdpf、cmdpfb、cmdscjl。
在设计与数据表相关联的窗体时，要指导学生在窗体页眉中摆放文本框标签，而将文本框控件摆放在窗体主体中，并在文本框控件的属性中设置其控件来源为相应的数据表字段。
例如，在图2所示“评分表”窗体中，对应于3个标签“姓名”“分数”和“最后得分”的文本框控件来源，分别为“评分表”数据表的“姓名”“分数”和“最后得分”字段。按照程序要求应指导学生先创建“评分表”数据表，其中建立“姓名”“分数”和“最后得分”字段，“评分表”数据表的结构如图3所示。
三、程序代码功能分析
在建立了数据表、窗体等对象框架的基础上，需对相应命令按钮编写程序代码。
1.评分按钮
评分程序（程序代码略）主要分为4段：第一段是设置ActiveX数据对象ADO访问（ADO：ActiveX Data ObjectAxtiveX数据对象，是目前在Windows环境中比较流行的客户端数据库编程技术），并利用Recordset对象进行数据操作，例如，定义Connection对象、定义并创建Recordset对象、使用Access内置Connection对象、启动一个Dynamic类型的游标，打开“评分表”数据表等等。这里要理解ActiveX数据对象，并体会相应操作的含义。第二段是利用数组对录入的分数进行排序，即在定义、创建数组，并给数组赋值后，对数组中的数据进行排序。这里可指导学生，采用不同的排序方法体会、分析。第三段是调用声音模块sound中的播放函数PlaySound（），打开声音文件，播放并显示“最高分”“最低分”和“最后得分”。这里要对学生强调，掌握模块的建立和函数的调用方法。第四段是将选手得分存入“评分表”数据表中，以便适时调用，并让学生注意体会对数据库进行的操作。
2.声音模块
建立声音模块sound，用于在评分过程中进行声音提示和说明，这里旨在让学生了解、体会声音的调用和控制，其中使用了API函数，API函数是Windows提供给应用程序与操作系统的接口。模块sound的代码语句如下：
‘声明API函数，用winmm中的playsound函数播放声音。winmm.dll是Windows多媒体相关应用程序接口，用于低档的音频和游戏手柄。
Declare Function apisndPlaySound Lib “winmm” Alias “sndPlaySoundA” （ByVal filename As String， ByVal snd_async As Long） As Long
Function PlaySound（sWavFile As String） ’建立PlaySound函数
If apisndPlaySound（sWavFile， 1） = 0 Then
MsgBox “The Sound Did Not Play！”
End If
End Function
3.评分表按钮
通过使用DoCmd对象的方法执行打开“评分表窗体”的操作，而该窗体是基于“评分表”数据表而建立，其中数据源于“评分表”数据表，让学生体会程序中浏览数据表内容的方法。在评分表按钮的Click事件过程中，代码语句如下：
Private Sub Cmdpfb_Click（）
DoCmd.OpenForm "评分表"
End Sub
4.清零按钮
将“评分程序”窗体中相关的文本框清空，即对“姓名”“最高分”“最低分”和“最后得分”等文本框赋空值。
5.删除记录按钮
用于删除“评分表”数据表的所有记录。这里要设置ActiveX数据对象ADO访问，并利用Recordset对象进行数据操作，并注意数据表中记录指针的移动和定位。
四、归纳与启示
通过制作评分程序的整个过程，可以了解到该程序涉及数据表、窗体、模块、VBA程序设计、VBA数据库编程等多个方面，进一步理解了数据表、窗体、模块、VBA程序设计、VBA数据库编程及其相互关系。例如，在程序的设计过程中，为了求出最大和最小值，会想到使用排序算法；为了播放声音，会研究API函数，会了解到这些函数是Windows提供给应用程序与操作系统的接口；为了保存或删除数据，会利用数据库中的表和窗体等对象；为了优化程序结构，会合理使用选择结构、循环结构和数组等。显然通过评分程序的设计、调试及运行，以良好的效果达到了设计所要求的目的，显著提高了Access的综合应用能力。
（作者单位：湖北铁道运输职业学院）