本文主要是介绍学生信息管理系统之分析Eof和BOF,希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!
一:首先来看这样的一个错误。我们在对班级进行修改的时候,也就是我们在没有班级记录的时候,点击修改记录,很容易就出现这样的错误。
二:对错误包含知识点的认识:
eof是一个函数,所以它有函数值,他的函数值是false和true,它的()中德1就是参数。它的含义是读取文件的指针到文件尾的时候它的值就是true,还没有读到文件尾,他的值为false,括号里面的参数是它判断的文件的文件号。这个函数使用的范围仅仅是读取顺序文件,do while not eof(1)解释判断当eof的值true时停止do循环,同样,这一语句在顺序文件的读取中经常用到。 同样的,eof也是一个函数,他的函数值也是true和false,他指示当前记录为与recordset对象的第一个记录之前。
也就是说,使用bof和eof就是更好的确定recordset包含的记录,或者是从一个记录到另一个记录是否超过recordset对象的限制。
如果当前记录位于第一个记录之前,bof属性将返回true(-1), 如果当前记录为第一个记录或者是位于其后侧将返回false(0)。
如果当前记录位于recordset对象的最后一个记录之后eof属性将返回true,而当前记录为recordset对象的最后一个记录或位于其前,将返回false。
如果eof或者是bof属性为true,则表示没有当前记录。
如果打开没有记录的recordset对象,bof和eof属性将设置为true,而recordset对象的count将设置为0,打开至少包含一条记录的recordset记录时候,第一条记录为当前记录,则eof和bof属性为false。
如果删除recordset对象中包含的最后记录,bof和eof的属性将设置为false,直到重新安排当前记录。
三:解决方法
只有添加了记录,点击修改才不会报错,也就是在源代码中有记录才会修改,没有记录点击修改整个程序就瘫痪了,该怎么办?
所以需要在代码中添加
if mrc.bof=true then
msgbox(请添加纪录)
exit sub
else
同样的道理,在我们的firstcommand事件中,由于没有判断是否为第一个记录,也很容易出现这样的错误,那么就可以写上如下的代码
Private Sub firstCommand_Click()
mrc.MoveFirst
If mrc.EOF = True Then
MsgBox ("已经是第一条记录")
Exit Sub
End If
Call viewData
End Sub
mrc.MoveFirst
If mrc.EOF = True Then
MsgBox ("已经是第一条记录")
Exit Sub
End If
Call viewData
End Sub
这样就可以更好的避免这样的错误了。 eof和bof在这个系统中始终贯穿,所以要更好的理解他们俩啊!
这篇关于学生信息管理系统之分析Eof和BOF的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!