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

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

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

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.BookmarkEnd 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成功了！

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