学生信息管理系统————总结
学习是一个阶段一个阶段的，每个阶段的学习过程中的沿途风景都是最美的。
刚开始敲学生信息管理系统的时候懵懵懂懂，很多语句都看不懂，实在看不懂的就上网搜，有的搜出答案来了，有的还是找不到答案。于是就先把问题记录下来了，然后一起商量问题，从中也学会了很多知识。
开始敲的时候，因为敲例子不能照着代码敲，这样就没有意义了，就成了练习打字了。于是一个功能段一个功能段的敲，后来发现后面所有的功能都是相通的，只要前边的理解了，明白了，后边也就好多了，于是这样后面的越敲越感兴趣。从其中也发现数据库中真的有好多知识要学习呀，数据库真的很强大。
看视频的时候，对数据库没有什么感觉，等敲完了，对数据库中的知识有了更进一步的了解，比如数据库的增加，数据库的更新，数据库的查询等等。
数据库的增加：
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
在实践中我们才会成长的更快，经历了这些我们为我们以后的学习道路打下了坚实的基础。