前言
学生一共进行了三次优化这是第二次和第三次优化的一些内容，学生管理系统的优化真的给我带来了很多意想不到的进步，让我更加明白了如何去学习。
主要内容
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事件来实现光标的自动锁定。
（一）Set mrc = ExecuteSQL(txtSQL,MsgText)
是自定义函数。ExecuteSQL 一定是执行SQL语句(英文的意思是这样的-一般按照用途定义名字的)
里面的两个参数 txtSQL是指 用来执行的SQL语句 比如:select * from 表
MsgText参数 指的是实行完SQL语句后的弹出框 是成功了还是失败了之类的。
小结
学生管理系统的优化真的是一个很好的成长过程，学习到的很多知识要不断复习，努力成为自己的东西。