阅读以下说明及Visual Basic程序代码,将应填入(n)处的字句写在对应栏内。 [说明] 设有一张学生成绩表存放在Acess数据库中,其中包括学生编号、姓名以及各科目考试成绩。下面的应用程序利用数据控件(Data)实现了对这张数据表中记录的增加

admin2009-02-15  31

问题 阅读以下说明及Visual Basic程序代码,将应填入(n)处的字句写在对应栏内。
[说明]
   设有一张学生成绩表存放在Acess数据库中,其中包括学生编号、姓名以及各科目考试成绩。下面的应用程序利用数据控件(Data)实现了对这张数据表中记录的增加、删除、修改、查找和刷新操作,其中,删除一条记录后,要求界面显示下一条记录;要查找记录,首先要求用户输入学生姓名,程序查找并显示匹配的第一条记录;执行刷新操作后,要求界面显示数据表的第一条记录。程序的运行界面如下:
        
   在开发过程中,数据控件Datal与成绩数据表相连接,各文本框与数据表相应字段绑定,界面上从左到右各操作按钮分别取名为CmdAdd、CmdDelete、CmdUpdate、CmdFind、CmdRefresh和CmdClose。
[Visual Basic代码]
Private Sub CmdAdd_Click()         ’增加新记录
     Datal.Recordset.  (1)  
End Sub
Private Sub CmdDelete_Click()        ’删除记录
   Data1.Recoldset.Delele
   Data1.Recoldset.  (2)  
End Sub
Pnvate Sub CmdUpdate_Click()         ’修改记录
   Data1.Reeordset.Edit
   Data1.Recordset.Update
End Sub
Private Sub CmdFind_Click()          ’查找记录
   Dim name, search As String
   name = InputBox("请输入要查询的姓名:")
   scarch = "姓名=’" & name &"’"’
Data1.Recordset. MoveFirst
Dara1.Recordset.FindFirst scarch
    If Data1.Reeoldset.  (3)   Then
           MsgBox "姓名为" & name &"的记录未找到!"
    End If
End Sub
Private Sub CmdRefresh_Click()        ’刷新记录
           (4)  
End Sub
Private Sub CmdClose_Click()          ’退出程序
   Daral.Recordset.  (5)  
   End
End Sub

选项

答案(1) AddNew (2) MoveNext (3) NoMatch (4) Data1.Refresh (5) Close

解析 (1)增加新记录应使用AddNew方法;
(2)获取记录集的下一条记录应使用MoveNext方法;
(3)查询的结果是否为空可用NoMatch属性来判断,其值为真表示查询结果为空;
(4)当Data控件的某些属性设置发生改变,可以使用 Refresh方法打开或重新打开数据库,用Refresh方法可以更新数据控件的集合内容;
(5)关闭应用程序之前,应关闭数据库连接。
转载请注明原文地址:https://kaotiyun.com/show/YojZ777K
0

最新回复(0)