【前言】
經(jīng)過將近一個(gè)月的時(shí)間，學(xué)生信息管理系統(tǒng)完成了，在這其中學(xué)到了不少。
【正文】
在剛敲完學(xué)生時(shí)，有各種各樣的錯(cuò)誤，需要一點(diǎn)一點(diǎn)的優(yōu)化，以下是我優(yōu)化的一部分：
1.限制用戶名和密碼的長度：
屬性中，MaxLength=8
2.只能輸入數(shù)字：
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.限制特殊符號(hào)的輸入：

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

6.Combox框只允許下拉選擇，不允許輸入：
將Style屬性設(shè)置為0，然后寫代碼：

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

7.不能重復(fù)添加成績信息：（班級(jí)和課程也類似）

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 "有相同紀(jì)錄，請(qǐng)重新輸入信息!", vbOKOnly + vbExclamation, "警告"mrc.Close Else……

8.出生日期、入校日期和當(dāng)前日期的關(guān)系

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

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。