前言
学生一共进行了三次优化这是第二次和第三次优化的一些内容，学生管理系统的优化真的给我带来了很多意想不到的进步，让我更加明白了如何去学习。
主要内容
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语句后的弹出框 是成功了还是失败了之类的。
小结
学生管理系统的优化真的是一个很好的成长过程，学习到的很多知识要不断复习，努力成为自己的东西。 （编辑：李大同）
【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
|
