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

前言：

 

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

 

内容：

 

      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数据源有没有问题等等。

 

总结：

 

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