学生管理系统之删除

       花了挺长时间敲完了系统，感觉不总结对不起自己之前的努力。

       删除时的逻辑判断很重要，因为删除是毁灭性操作，所以需要格外小心。

      

    str2$ = MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录")
    If str2$ = vbOK Then                            '判断是否需要删除
            mrc.MoveNext
            If mrc.EOF Then                         '从后往前删除
                mrc.MoveFirst                       '选中第一条记录
                myBookmark = mrc.Bookmark           '记录当前位置
                mrc.MoveLast                        '选中最后一条记录
                mrc.Delete                          '删除当前选中记录
                mrc.Bookmark = myBookmark           '回到存档点
               
                If mrc.RecordCount = 0 Then         '判断是否有最后一条记录
            
                MsgBox "没有记录", vbOKOnly + vbExclamation, "警告"
                Unload Me
                
                
                Exit Sub
                
                Else
                Call viewData                        '显示数据，以达到删除一条记录后自动显示另一条记录
                End If
                
            Else
                myBookmark = mrc.Bookmark            '记录当前位置
                mrc.MovePrevious                     '挪到前一条
                mrc.Delete                           '删除当前记录
                mrc.Bookmark = myBookmark            '回到记录位置
                
                
                
                If mrc.RecordCount = 0 Then
                
                MsgBox "没有记录", vbOKOnly + vbExclamation, "警告"
                Unload Me
                
                Exit Sub
                
                Else
                Call viewData
                End If
                
            End If
    Else
        mrc.Bookmark = myBookmark
        Call viewData
    End If

          水平所限，希冀找到更好的删除代码。菜鸟的第一步