前言
学生一共进行了三次优化这是第二次和第三次优化的一些内容，学生管理系统的优化真的给我带来了很多意想不到的进步，让我更加明白了如何去学习。
主要内容
1.如何让数据库中的数据显示到VB中
学在做学生的过程中，有一步是修改密码，原例子中没有显示原来的用户名，不方便。
txtSQL = "select * from user_Info where user_ID= '" & UserName & "'" Set mrc = ExecuteSQL(txtSQL, Msgtext) name = Trim(mrc.Fields(0)) Label4.Caption = "当前用户为：" & name
2.vb中怎样按下回车键实现命令按钮的功能
减少鼠标的操作，直接利用回车来激活命令按钮。
Private Sub txtUserName_KeyPress(KeyAscii As Integer)'在txtUserName上敲回车触发事件 If KeyAscii = 13 Then'如果按下的是回车键，注意回车Asc码是13 Call Command1_Click'那么执行command1点击事件 End If End Sub
3.数据库中没有数据的问题
VB中操作数据库经常会出现没有数据就报错的情况。利用IF语句来避免报错。
On Error GoTo dateErr dateErr: If Err = 3021 Then MsgBox "没有数据", vbOKOnly + vbExclamation, "警告" Exit Sub End If
4.数据库添加数据如何减少重复输入
为了减少数据库冗余发明了很多方法，我接下来说的就是通过关闭按钮来防止不
断向数据库中添加数据。
cmdSet.Enabled= False 关闭按钮 防止重复扩充
5.锁定光标
控件名.SetFocus，通过Form的LOAD事件来实现光标的自动锁定。
6.SQL语句介绍
（一）Set mrc = ExecuteSQL(txtSQL, MsgText)
是自定义函数。ExecuteSQL 一定是执行SQL语句(英文的意思是这样的-一般按照用途定义名字的)
里面的两个参数 txtSQL是指 用来执行的SQL语句 比如:select * from 表
MsgText参数 指的是实行完SQL语句后的弹出框 是成功了还是失败了之类的。
小结
学生管理系统的优化真的是一个很好的成长过程，学习到的很多知识要不断复习，努力成为自己的东西。
