[说明]
设有一张学生成绩表存放在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
