学生管理系统——修改部分

1.代码内容

（1）  在修改部分，我们接触了一个新的名词——书签，其实我们对于它应该不陌生，尤其喜爱看小说的同学。所以联     系起来在这里在理解起来就不简单多了吧。

    书签简单理解就是做标记，让我们很好的控制使用数据表，在我们提前给自己的目的记录标记好书签的前提下，     我们可以随意的跳到我们想看的这条目的记录。

        MyBookmark = mrc.Bookmark                      '对当前记录做标记
        mrc.MovePrevious                               '指向前一条记录
        mrc.Delete
        mrc.Bookmark = MyBookmark                      '让记录显示先前定义书签的位置

（2）执行修改

If Not Testtxt(txtClassNo.Text) Then                                      '判断班号文本框是否为空
        MsgBox "请输入班号!", vbOKOnly + vbExclamation, "警告"
        txtClassNo.SetFocus
        Exit Sub
End If

</pre><pre name="code" class="vb">

txtSQL = "select * from class_Info where class_No = '" & Trim(txtClassNo.Text) & " '"
Set mrcc = ExecuteSQL(txtSQL, MsgText)
    
If mrcc.EOF = False Then
      MsgBox "班号重复，请重新输入!", vbOKOnly + vbExclamation, "警告"
      mrcc.Close
      txtClassNo.SetFocus

mrc.AddNew
mrc.Fields(0) = Trim(txtClassNo.Text)
mrc.Fields(1) = Trim(comboGrade.Text)
mrc.Fields(2) = Trim(txtDirector.Text)
mrc.Fields(3) = Trim(txtClassRoom.Text)
mrc.Update
        
MsgBox "修改班级信息成功!", vbOKOnly + vbExclamation, "修改班级信息"

2.出现的问题

   

 vb 中的 实时错误'3021'，BOF或EOF中有一个是"真",或者当前的记录以被删除

原因是我们选择出来的记录集 是没有数据

 所以

A.在窗体show之前先判断

    txtSQL = "select * from class_Info "
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    If mrc.BOF And mrc.EOF Then
        MsgBox "没有记录，请先添加记录!", vbOKOnly + vbExclamation, "警告"
        frmAddclassinfo.Show
    Else
        frmModifyclassinfo.Show
    End If

B.当删除到最后一条时

   If mrc.EOF Then
        mrc.MoveFirst                            '指向第一条记录
        MyBookmark = mrc.Bookmark                '给第一条记录做标记
        mrc.MoveLast
        <span style="color:#ff0000;">mrc.Delete
        MsgBox "没有记录"</span>