学生信息系统之优化（二）

前言

学生一共进行了三次优化这是第二次和第三次优化的一些内容，学生管理系统的优化真的给我带来了很多意想不到的进步，让我更加明白了如何去学习。

主要内容

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语句后的弹出框 是成功了还是失败了之类的。

小结

  

    学生管理系统的优化真的是一个很好的成长过程，学习到的很多知识要不断复习，努力成为自己的东西。