菜鸟初始代码旅程——修改记录

在开发系统之前，首先是对界面进行设计，根据界面我们能了解里面有什么功能？

如上面的窗体，第一排按钮是为了方便浏览数据库中各条记录，第二排按钮是为了对班级信息进行修改！在这里要对班级信息进行修改，则包括修改和更新的这两部分，更新是指将你对原有的数据进行了修改之后，然后刷新，显示修改之后的数据！所以修改之后，才能更新成功！

1.先点击修改记录按钮，对数据进行修改

Private Sub editCommand_Click()
    mcclean = False
    Frame2.Enabled = False
    firstCommand.Enabled = False
    previousCommand.Enabled = False
    nextCommand.Enabled = False
    lastCommand.Enabled = False
        
    txtClassno.Enabled = True
    comboGrade.Enabled = True
    txtDirector.Enabled = True
    txtClassroom.Enabled = True
    
    comboGrade.AddItem "初中一年级"
    comboGrade.AddItem "初中二年级"
    comboGrade.AddItem "初中三年级"
    comboGrade.AddItem "高中一年级"
    comboGrade.AddItem "高中二年级"
    comboGrade.AddItem "高中三年级"
    
    myBookmark = mrc.Bookmark
End Sub

如果没有修改则提示请修改记录，如修改了则按照下面的进行！

 mrc.Delete    
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
    Else
        mrcc.Close '关闭连接
        
        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, "警告"
        
        mrc.Bookmark = myBookmark   '保持原来标签的位置
        Call viewData

先删除原有的记录，然后查询判断输入的班号是否重复！如果重复了，给出提示！重新输入！如果不重复，则关闭mrcc记录集对象，添加数据到mrc临时表中当中，标签保持原来的位置，因为每一条都需要显示数据，所以定义了一个ViewData函数用来显示数据！这样数据表最后就Update成功了！

我们理解代码的时候，要进行多思考！修改记录，我们是要达到什么样的效果？我们所需要进行的操作有哪些？还有的就是，如何才能给用户带来更大的方便？