学生管理系统之删除

来源：互联网发布：2016移动支付数据编辑：程序博客网时间：2024/05/16 06:59

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

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

    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

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