学生管理系统（八）---优化

前言：

       上一篇是关于属性和代码的优化，这次主要是根据平时的习惯来进行的优化。

内容：

      1、添加成绩窗体中，通过班号和学号可以确定该生的姓名，所以该生的姓名就不可以输入，只是显示出来就可以了，所以可以用label控件来显示。且学号的combo框被单击的时候进行响应。

Private Sub comboSID_Click()
Dim mrc As ADODB.Recordset
Dim txtSQL As String
Dim MsgText As String

'通过学号，显示姓名
txtSQL = "select*from student_Info where student_ID= '" & comboSID.Text & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
txtName.Caption = mrc!student_Name
mrc.Close

End Sub

      2、添加学籍信息窗体中，使入校日期大于出生日期

If CDate(txtBorndate.Text > txtRudate.Text) Then

MsgBox "入校日期不能小于出生日期，请重新输入！", vbOKOnly + vbExclamation, "警告"
txtRudate.Text = ""
txtRudate.SetFocus

End If

        3、联系电话最长输入11位

       我们可以限制联系电话的长度：
      

Private Sub txtTel_Change()

if txtTel.length>=11 then

msgbox "请输入正确的手机号码"

end if

End Sub

       这只是咱们的习惯，手机号一般为11位，但是所给的数据库中的长度为10位，如果输入11位的手机号，会显示如下错误：

       


       所以我们需要对数据库进行更改，具体做法如下：

     


       


      此时允许我们对数据库进行修改，之后：

    


        改为char（11），限制长度为11位！

       4、“3021”的错误
  
          之前解决了窗体没有记录出现“3021”的错误，如果要是只有一条记录，继续点击上一条记录这个时候也会出现“3021”的错误：

         


        这个时候只需在按钮的单击事件下加上一行代码：
      

On Error Resume Next

       5、“mrc=nothing” 之类的错误也经常出现，出现的原因是没有传过来值，大多数情况下是自己代码出错的原因，回头看看自己的代码有没有敲错的，或者数据库里的数据类型有没有和自己需要的不相符的，ODBC数据源有没有问题等等。

总结：

       这是优化的整体部分了，最近的总结感觉自己又收获了很多，还是要给自己一个忠告：以后做项目的时候出现问题一定要及时总结，记下出现的问题以及如何解决的，这样以后出现的时候就会理解当时的心情以及解决办法了！还有代码格式一定要规范，大小写，标点符号，适当的空格，这些都是需要注意的地方。