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

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

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

Private Sub txtUserName_KeyPress(KeyAscii As Integer)

? Const a As String =

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

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

End Sub

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

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

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

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

4.在添加成績(jī)超出限制后會(huì)跳出兩次msgbox

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

Private Sub txtResult_Change()

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

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

??? ?txtResult.SetFocus

???? txtResult.Text = ""

? End If

End Sub

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

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

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

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

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

?

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

總結(jié)

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

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