學生管理系統之刪除

       花了挺長時間敲完了系統，感覺不總結對不起自己之前的努力。

       刪除時的邏輯判斷很重要，因為刪除是毀滅性操作，所以需要格外小心。

      

    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

          水平所限，希冀找到更好的刪除代碼。菜鳥的第一步