学生信息管理系统之分析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

这样就可以更好的避免这样的错误了。 eof和bof在这个系统中始终贯穿，所以要更好的理解他们俩啊！