菜鳥初始代碼旅程——修改記錄

在開發系統之前，首先是對介面進行設計，根據介面我們能瞭解裡面有什麼功能？

如上面的表單，第一排按鈕是為了方便瀏覽資料庫中各條記錄，第二排按鈕是為了對班級資訊進行修改！在這裡要對班級資訊進行修改，則包括修改和更新的這兩部分，更新是指將你對原有的資料進行了修改之後，然後重新整理，顯示修改之後的資料！所以修改之後，才能更新成功！

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

我們理解代碼的時候，要進行多思考！修改記錄，我們是要達到什麼樣的效果？我們所需要進行的操作有哪些？還有的就是，如何才能給使用者帶來更大的方便？