ACCESS2010数据库应用技术课后习题参考答案

Access的类模块有3种基本形式:窗体类模块、报表类模块和自定义类模块。

标准模块是指可在数据库中公用的模块,模块中包含的主要是公共过程和常用过程,这些公用过程不与任何对象相关联,可以被数据库的任何对象使用,可以在数据库的任何位置执行。常用过程是类对象经常要使用的过程,需要多次调用的过程。一般情况下,Access中所说的模块是指标准模块。

类模块一般用于定义窗体、报表中某个控件事件的响应行为,常通过私有的过程来定义。类模块可以通过对象事件操作直接调用。

标准模块一般用来定义数据库、窗体、报表中多次执行的操作,常通过公有的过程来定义,标准模块通过函数过程名来调用。

2.答:在Access中设计窗体,其中有一个文本框、两个按钮,其中“转换”按钮的单击事件代码如下:

Private Sub cmd_convert_Click() Dim v_result As String '结果变量 v_result = \\

If Not IsNumeric(Text0.Value) Then 獍?硯尠输入的不为数值! Exit Sub End If

If Len(Text0.Value) <> 3 Then 獍?硯尠输入的不为3位数! End If For i = 1 To 3

v_result = v_result & Mid(Text0.Value, 3 - i + 1, 1) Next i

獍?硯尠结果: & v_result End Sub

3.答:VBA代码如下: Private Sub Command1_Click()

??湉異?硯尨请输入第一个数x的值?尠请输入需比较的数) max = x

??湉異?硯尨请输入第二个数y的值?尠请输入需比较的数) If y > max Then max = y

??湉異?硯尨请输入第三个数z的值?尠请输入需比较的数) If z > max Then max = z

Me.Text1.Value = Str(x) & , & Str(y) & , & Str(z) Me.Text3.Value = max

. 精品文档

End Sub

4.答:VBA代码如下: Private Sub Form_Load() Me.Text1.Value = \\

End Sub

Private Sub Command5_Click() Me.Text1.Value = \\

╭??灮瑵潂?请输入欲判断季节的月份的值?尠注意:只可为1-12之间的整数) Select Case m Case 2 To 4 ' 春季

敍?扡汥?慃瑰潩??牔浩匨牴洨??尠月份的季节为 敍吮硥?嘮污敵?尠春季 Case 5 To 7 '夏季

敍?扡汥?慃瑰潩??牔浩匨牴洨??尠月份的季节为 敍吮硥?嘮污敵?尠夏季 Case 8 To 10 '秋季

敍?扡汥?慃瑰潩??牔浩匨牴洨??尠月份的季节为 敍吮硥?嘮污敵?尠秋季 Case 11 To 12, 1

敍?扡汥?慃瑰潩??牔浩匨牴洨??尠月份的季节为 敍吮硥?嘮污敵?尠冬季 Case Else '无效的月份

敍吮硥?嘮污敵?尠输入的是无效的月份 End Select End Sub

5.答:VBA代码如下: Private Sub Command1_Click() Dim m As String Me.Text1.Value = \\ m =

For i% = 3 To 99 Step 2 For j% = 2 To i - 1 Lx% = i Mod j If Lx = 0 Then Exit For End If Next

If j > i - 1 Then

m = m + , + Trim(Str(i)) End If Next

Me.Text1.Value = m End Sub

6.答:(1)在教学管理数据库中,添加一条记录的过程如下。

. 精品文档

Sub AddRecord(kc_hao As String, kc_name As String, kc_class As String, kc_score As Integer)

Dim rs As New ADODB.Recordset Dim conn As New ADODB.Connection On Error GoTo GetRS_Error

Set conn = CurrentProject.Connection '打开当前连接 rs.Open strSQL, conn, adOpenKeyset, adLockOptimistic rs.AddNew

獲?敩摬?课程号).Value = kc_hao 獲?敩摬?课程名).Value = kc_name 獲?敩摬?课程类别).Value = kc_class 獲?敩摬?学分).Value = kc_score rs.Update Set rs = Nothing Set conn = Nothing End Sub

(2)查找课程名为“数据结构”的记录,并将其学分更新为3。其代码实现如下: Sub ExecSQL()

Dim conn As New ADODB.Connection

Set conn = CurrentProject.Connection '打开当前连接 strsql = %update 课程 set 学分=3 where 课程名='数据结构' conn.Execute (strsql) Set conn = Nothing End Sub

(3)删除课程号为“Z0004”的记录。其实现方法只需将ExecSQL()过程中的SQL语句改为:strsql = delete * from 课程 where 课程号='Z0004'

第9章

一、选择题 1.D 2.C 3.A 4.C 5.A 6.A 二、填空题

1.导入,导出,共享 2.后端数据库,前端数据库 3.商品信息_2013-06-20.accdb 4.独占

5.数据库文档管理器,分析性能,分析表 三、问答题

1.答:导入数据是将数据复制于数据库中,源数据变化将不影响数据库中的数据。链.

精品文档

接数据是将链接至数据库中,源数据变化将影响数据库中的数据,并保持一致。

2.答:数据库的备份有助于保护数据库,以防出现系统故障或误操作而丢失数据。备份数据库时,Access首先会保存并关闭在设计视图中打开的所有对象,然后可以使用指定的名称和位置保存数据库文件的副本。

3.答:在使用数据库文件的过程中,要经常对数据库对象进行创建、修改、删除等操作,这时数据库文件中就可能包含相应的“碎片”,数据库文件可能会迅速增大,影响使用性能,有时也可能被损坏。在Access 2010中,可以使用“压缩和修复数据库”功能来防止或修复这些问题。 4.答:首先“以独占方式打开”数据库文件,然后选择“文件”→“信息”命令,再单击“用密码进行加密”按钮,在弹出的“设置数据库密码”对话框中输入数据库密码。

当不需要密码时,可以对数据库进行解密。以独占方式打开加密的数据库,选择“文件”→“信息”命令,单击“解密数据库”按钮,在“撤消数据库密码”对话框中输入设置的密码,然后单击“确定”按钮。

5.答:使用受信任位置中的数据库有3个步骤:使用信任中心创建受信任位置;将数据库保存或复制到受信任位置;打开并使用数据库。

.

联系客服:779662525#qq.com(#替换为@) 苏ICP备20003344号-4