【前言】
經過將近一個月的時間，學生信息管理系統完成了，在這其中學到了不少。
【正文】
在剛敲完學生時，有各種各樣的錯誤，需要一點一點的優化，以下是我優化的一部分：
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 ElseMsgBox "姓名由字母和漢字組成", vbOKOnly + vbExclamation, "警告"KeyAscii = 0txtName.SelStart = 0txtName.SelLength = Len(txtName.Text)

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

Dim cTemp As StringcTemp = "`~!@#$%^&*()-=_+[]{};:'\|<>/?.‘“”’、，。——+（）《》？,~·……￥！：；【】" & """ '禁止輸入特殊的字符"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 ThenMsgBox "有相同紀錄，請重新輸入信息!", vbOKOnly + vbExclamation, "警告"mrc.Close Else……

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

If comboBorndate > Date ThenMsgBox "出生日期不能大于當前日期，請重新輸入！", vbOKOnly + vbExclamation, "警告"Exit SubEnd IfIf comboRudate > Date ThenMsgBox "入校日期不能大于當前日期，請重新輸入！", vbOKOnly + vbExclamation, "警告"Exit SubEnd IfIf comboBorndate > comboRudate ThenMsgBox "出生日期不能大于入校日期，請重新輸入！", vbOKOnly + vbExclamation, "警告"Exit SubEnd If

總結

以上是生活随笔為你收集整理的【学生信息管理系统】-优化篇1的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。