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