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

心已赠人 2022-06-08 07:50 196阅读 0赞

# 前言： #

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

# 内容： #

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位的手机号，会显示如下错误：

![Center][]

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

![Center 1][]

![Center 2][]

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

![Center 3][]

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

4、“3021”的错误

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

![Center 4][]

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

On Error Resume Next

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

# 总结： #

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

[Center]: /images/20220608/d87abb7cb52547f282dac452d02ae105.png
[Center 1]: /images/20220608/0f1293fe0a404df9868804c333f8c182.png
[Center 2]: /images/20220608/0a2e6ebaf52344c0a0e2ef92894d673e.png
[Center 3]: /images/20220608/ded51f791684450286feff5a42a62429.png
[Center 4]: /images/20220608/7df0a815302e4b58aaa9641bbed5e269.png