最近又一次用到了EOF语句,就回过头看了看学生管理系统中的应用,整理出这个实例。
学生中用的最多的就是查询,我这里整理了一下删除数据时,查询是否为最后一条数据:
1 Private Sub cmdDelete_Click()
2 mybookmark=mrc.bookmark
3 str2$=msgbox("是否删除当前记录?",vbOKCancel,“删除当前记录”)
4
5 If str2$=vbOK Then
6 mrc.movenext
7
8 '判断是否为最后一条记录
9 If mrc.EOF Then '说明记录在最后一条记录
10 mrc.moveprevious
11 mrc.moveprevious
如图所示:
12 If mrc.BOF Then '说明记录集中只有一条记录
13 mrc.movenext
14 mrc.delete
15 msgbox"记录集已经为空!",vbokonly+64,"警告"
16 Unload Me
以上操作如图所示:
17 else '说明记录集不止一条记录
18 mrc.movefirst
19 mybookmark=mrc.bookmark
20 mrc.movelast
21 mrc.Delete
22 mrc.bookmark=mybookmark
23
mrc.Close
24
25 txtSQL="select*from class_info"
26 Set mrc=ExecuteSQL(txtSQL,MsgText)
27 mrc.movelast
28 call viewData
29 end if
以上操作如图所示:
30 else '说明记录不在记录集最后
31 mybookmark=mrc.bookmark
32 mrc.movePrevious
33 mrc.Delete
34 mrc.bookmark=mybookamrk
35 mrc.Close
36 call viewData
37 end if
38 else ' 返回取消,不删除记录
39 mrc.bookmark=mybookmark
40 call viewData
41 end if
这个实例整个的思维流程是这样的:
踏踏实实的做一遍你就会完全搞懂EOF函数,以后相关的代码相信你可以自己编辑出来了。
评论