之前讓師傅點(diǎn)了一下學(xué)生系統(tǒng)，我的內(nèi)心是忐忑的。學(xué)生系統(tǒng)已經(jīng)進(jìn)行了快一個月了，而且中間還經(jīng)厲了一個寒假，但是感覺自己已經(jīng)改不出來什么東西了，也是有點(diǎn)不想改吧，所以就一直拖到了現(xiàn)在。后來讓師傅點(diǎn)完之后感覺自己還是不細(xì)心，有些地方想的不夠周全吧，

1.登錄界面的文本框不能復(fù)制粘貼

這個限制不能復(fù)制粘貼的問題吧，其實(shí)我在修改密碼的界面限制了，但是這里確實(shí)沒有想到也應(yīng)該限制一下，結(jié)果師傅復(fù)制了個別的字符，就跳出了bug，很難受啊。其實(shí)這里的核心問題還是我的字符限定的種類不夠多：

Private Sub txtUserName_KeyPress(KeyAscii As Integer)

? Const a As String =

"'!','@','#','$','%','^','&','*','(',')','<','>','?',':',' ','{','}','-','+','=','_','[',']',',','.','?','\','|','/',''','’'"

? KeyAscii = IIf(InStr(a, Chr(KeyAscii)), 0, KeyAscii)

End Sub

2.修改密碼后需要重新登錄

其實(shí)這是個常識了，但是我做學(xué)生的時候竟然給忘了做，想想微信或者QQ，在修改完密碼后就應(yīng)該讓用戶重新登錄一下。代碼很簡單就是卸載此窗體隱藏，讓登錄窗體顯示。

3.查詢時文本框先是灰色不能點(diǎn)擊，要等到選中單選框后才能點(diǎn)擊。

就是說當(dāng)我沒有選擇查詢條件時，是不能輸入信息的，只有當(dāng)我點(diǎn)擊了“1”里面的條件，“2”的文本框才可以輸入信息，這樣是符合邏輯的。

4.在添加成績超出限制后會跳出兩次msgbox

這個問題說簡單也簡單，因?yàn)槲矣玫氖莄hange過程，如果輸入的數(shù)值大于150或者小于0，它就會跳出提示，然后把文本框清空，此過程中文本框又被改變了一次，所以它就會跳兩次提示，但是文本框不清空的話邏輯上也不好，

Private Sub txtResult_Change()

? If Trim(txtResult.Text) > 150 Or Trim(txtResult.Text) < 0 Then

???? MsgBox "請輸入成績數(shù)值在0-150范圍內(nèi)！", vbOKOnly = vbExclamation, "提示"

??? ?txtResult.SetFocus

???? txtResult.Text = ""

? End If

End Sub

一開始我研究了半天也不知道是哪里錯了，后來在嘉城的幫助下發(fā)現(xiàn)原來是函數(shù)用錯了：

If Trim(txtResult.Text) > 150 Or Trim(txtResult.Text) < 0 Then

trim應(yīng)該換成val，val是求里面的數(shù)值，而trim是去掉里面的空格。

trim()是去除字符串頭或尾部的空格，但不包含中間的空格。

VAL(字符串表達(dá)式)將數(shù)字字符串換成數(shù)值。

?

看來知識還是掌握的不夠徹底，還要繼續(xù)努力，之前的知識也要經(jīng)常回故。

總結(jié)

以上是生活随笔為你收集整理的学生系统优化（三）- -细节优化的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

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