【前言】
經過將近一個月的時間，學生資訊管理系統完成了，在這其中學到了不少。
【正文】
在剛敲完學生時，有各種各樣的錯誤，需要一點一點的優化，以下是我優化的一部分：
1.限制使用者名稱和密碼的長度：
屬性中，MaxLength=8
2.只能輸入數字：
If KeyAscii = 8 Then Exit Sub
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
3.只能輸入漢字：
If KeyAscii >= -20319 And KeyAscii <= -3652 Or KeyAscii = 8 Then
Else
KeyAscii = 0
End If
4.輸入漢字和字母：

If (KeyAscii < 0) Or (KeyAscii >= 65 And KeyAscii <= 90) Or (KeyAscii >= 97 And KeyAscii <= 122) Or (KeyAscii = 8) Then
Else
    MsgBox "姓名由字母和漢字組成", vbOKOnly + vbExclamation, "警告"
     KeyAscii = 0
     txtName.SelStart = 0
     txtName.SelLength = Len(txtName.Text)

5.限制特殊符號的輸入：

Dim
 
 cTemp As String
    cTemp = "`[email protected]#$%^&*()-=_+[]{};:'\|<>/?.‘“”’、，。——+（）《》？,~·……￥！：；【】" & """ '禁止輸入特殊的字元"
    If InStr(1, cTemp, Chr(KeyAscii)) <> 0 Then KeyAscii = 0

6.Combox框只允許下拉選擇，不允許輸入：
將Style屬性設定為0，然後寫程式碼：

Private Sub comboBorndate_KeyPress(KeyAscii As Integer
 
)
    KeyAscii = 0  禁止輸入
End Sub
Private Sub comboRudate_KeyPress(KeyAscii As Integer)
    KeyAscii = 0  禁止輸入
End Sub

7.不能重複新增成績資訊：（班級和課程也類似）

txtSQL = "select * from result_Info where exam_No = '" & comboExamtype.Text & "' and student_ID = '" & comboSID.Text & "' and course_Name = '" & comboCourse.Text & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
    If mrc.EOF = False Then
        MsgBox "有相同紀錄，請重新輸入資訊!", vbOKOnly + vbExclamation, "警告"
        mrc.Close
Else
    ……

8.出生日期、入校日期和當前日期的關係

If comboBorndate > Date Then
        MsgBox "出生日期不能大於當前日期，請重新輸入！", vbOKOnly + vbExclamation, "警告"
        Exit Sub
    End If
    If comboRudate > Date Then
        MsgBox "入校日期不能大於當前日期，請重新輸入！", vbOKOnly + vbExclamation, "警告"
        Exit Sub
    End If
    If comboBorndate > comboRudate Then
        MsgBox "出生日期不能大於入校日期，請重新輸入！", vbOKOnly + vbExclamation, "警告"
        Exit Sub
    End If