初学者初始代码旅程——删除记录功能

菜鸟初始代码旅程——删除记录功能

刚开始敲学生信息管理系统的时候，对代码一点都不理解，但是还是硬着头皮敲下去，后来敲的多了，慢慢的就有点感觉了！磕磕撞撞的把系统敲完了！

学生信息管理系统的主要功能也就对学生信息的添加、删除、修改、查询这四个功能！敲完了系统，尝试着去总结这几个功能，下面是自己对删除这一功能代码的一点小认识！

Private Sub deleteCommand_Click()
    Dim MsgText As String
    myBookmark = mrc.Bookmark                  '标记当前的位置
    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                            '保留当前的记录
                mrc.Close
                
                txtSQL = "select * from result_Info"           '重新取一回，相当于刷新
                Set mrc = ExecuteSQL(txtSQL, MsgText)
                mrc.MoveLast
                Call viewData
            Else
                myBookmark = mrc.Bookmark           
                mrc.MovePrevious
                mrc.Delete                                                   '删除前一条
                mrc.Bookmark = myBookmark
                mrc.Close
                
                txtSQL = "select * from result_Info"
                Set mrc = ExecuteSQL(txtSQL, MsgText)
                mrc.MoveLast
                Call viewData                                      '显示数据
            End If
    Else
        mrc.Bookmark = myBookmark
        Call viewData
    End If
End Sub

首先，删除一条记录，我们有可能删除的是第一条，也有可能删除的是最后一条，为了以防我们删除记录的时候指针指空，所以我们定义了一个Bookmark变量，代表书签的意思！只要理解了Bookmark在这里面是怎么起作用的，删除记录功能理解起来就容易多了！

当我们点击删除记录按钮的时候，先标记好当前记录集指针指向的位置，即bookMark = mrc.bookMark，然后判断是否要删除记录，如果删除，记录指针移动下一条，用mrc.EOF判断删除的是否为最后一条！如下图：

初学者初始代码旅程——删除记录功能

1.mrc.EOF = True 即删除的是最后一条记录，记录指针则返回第一行记录，在第一行做好标签，指针重新移动到最后一条，删除最后一条记录！并保留当前的书签位置！

2. mrc.EOF = False 即删除的不是最后一条记录，记录指针移动到下一条，标记好当前的位置！记录指针重新移回到前一条的记录，删除前一条记录！并保留当前的书签位置！

最后，关闭记录集对象，重新查询数据库表，相当于是刷新删除后的记录，最后用ViewData函数来显示数据！这样，删除记录功能就完成了！

5楼lfmilaoshi昨天 23:45: 磕磕撞撞的把系统敲完了！n其实，这就是学习。。。。米老师

4楼huo_yun昨天 21:32: 试着去理清每个功能的代码逻辑，培养敲代码的感觉。。。

3楼beijiguangyong昨天 20:36: 培养敲代码的感觉

2楼lfsfxy9昨天 19:52: 从头开始做，让我想起了我们二十多个人的那个时候...

1楼liujiahan629629昨天 19:46: 挺好的，我觉的嘛！在上升上升，通过这个东西该想点什么？？

初学者初始代码旅程——删除记录功能

相关推荐