学生信息管理系统————总结

学习是一个阶段一个阶段的，每个阶段的学习过程中的沿途风景都是最美的。

刚开始敲学生信息管理系统的时候懵懵懂懂，很多语句都看不懂，实在看不懂的就上网搜，有的搜出答案来了，有的还是找不到答案。于是就先把问题记录下来了，然后一起商量问题，从中也学会了很多知识。

开始敲的时候，因为敲例子不能照着代码敲，这样就没有意义了，就成了练习打字了。于是一个功能段一个功能段的敲，后来发现后面所有的功能都是相通的，只要前边的理解了，明白了，后边也就好多了，于是这样后面的越敲越感兴趣。从其中也发现数据库中真的有好多知识要学习呀，数据库真的很强大。

看视频的时候，对数据库没有什么感觉，等敲完了，对数据库中的知识有了更进一步的了解，比如数据库的增加，数据库的更新，数据库的查询等等。

数据库的增加：

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
           
           mrc.Close
           MsgBox "添加班级信息成功！", vbOKOnly + vbExclamation, "添加班级信息"
           

数据库的查询：

txtSQL = "select*from class_Info where class_No='" & Trim(txtClassno.Text) & "'"
            Set mrcc = executeSQL(txtSQL, MsgText)

数据库的更新（更新数据前首先要修改数据）：

                  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, "警告"
                   

数据库的删除：

           str2$ = MsgBox("是否删除当前记录？", vbOKOnly + vbExclamation, "删除记录")
            
            If str2$ = vbOK Then    '如果删除，移动到下一行
                  
                  mrc.MoveNext
                  If mrc.EOF Then    '如果是文件的末尾，则移动到第一行后删除，标记会回到最后一条记录
                        
                        mrc.MoveFirst
                        myBookmark = mrc.Bookmark
                        mrc.MoveLast
                        mrc.Delete
                        mrc.Bookmark = myBookmark
                        Call viewData
                   Else                    '如果不是文件的末尾，则会删除当前行
                       
                       myBookmark = mrc.Bookmark
                       mrc.MovePrevious
                       mrc.Delete
                       mrc.Bookmark = myBookmark
                       Call viewData
                   End If
            Else
                   mrc.Bookmark = myBookmark      '取消标记
                   Call viewData
            End If

在实践中我们才会成长的更快，经历了这些我们为我们以后的学习道路打下了坚实的基础。