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

1.代码内容

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

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

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

学生管理系统——修改部分_第1张图片

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>



你可能感兴趣的:(学生管理系统——修改部分)