學生資訊管理系統優化(一)

2021-08-05 18:43:34 字數 3049 閱讀 2939

任何的系統在完成之前必須得優化,首先你的保證你做出來的軟體得沒有正常的邏輯問題,還得提高使用者體驗,讓別人用著比較舒服對吧!所以優化就是乙個不斷完善的過程!

下邊我為大家分享一下我的優化心得!

1.登入介面

首先你的保證你的登入介面不能隨意亂輸入,控制字元長度,而且要注意特殊字元的問題,防止別人輸入特殊字元會出現報錯的情況!而且使用者的密碼輸入的時候不能讓別人看到,保證使用者密碼的安全性!

字元長短在text的控制項屬性裡邊有個maxlength的屬性,你在裡輸入你想控制的密碼長度就可以!而輸入密碼安全性怎是另乙個屬性passwordchar,你填入*就可以了,你輸入的密碼就都是*了!

特殊字元則可以通過控制輸入text控制項資料型別來控制,如下:

private sub txtusername_keypress(keyascii as integer)

select case keyascii

case 8

case asc("a") to asc("z")

case asc("0") to asc("9")

case asc("a") to asc("z")

case is < 0

case else

keyascii = 0

end select

end sub

以上**的意思就是我的使用者名稱只能輸入大小寫字元和數字(漢字也可以輸入,但是中文狀態下的字元輸入不會報錯),這樣就能控制字元的輸入型別,以及特殊字元的問題了!

2.修改密碼介面

修改密碼的時候,為了更加人性化,你要提示使用者,當前使用者的是哪個吧!還有就是,你在改密碼之前要驗證一下當前密碼,否則別人在使用者不在的時候修改使用者密碼,這個系統就有安全隱患了!

提示當前使用者**如下:

private sub form_load()

dim txtsql as string

dim msgtext as string

dim mrc as adodb.recordset

dim name as string

me.top = 0

me.left = 0

text2.text = ""

txtsql = "select * from user_info where user_id = '" & username & "' "

set mrc = executesql(txtsql, msgtext)

name = trim(mrc.fields(0))

label3.caption = "當前使用者名稱稱為:" & name

end sub

從資料庫中將使用者名稱調出來。賦給label3,顯示在控制項上!

驗證原密碼的**如下:

if trim(text2.text) <> trim(mrc.fields(1)) then

msgbox "原密碼輸入不正確!", vbokonly + vbexclamation, "警告"

text2.setfocus

text2.text = ""

text1(1).enabled = false

text1(2).enabled = false

else

next sub

end if

這幾行**就是將使用者輸入的密碼與原密碼進行比較,判斷使用者輸入的原密碼是否正確,如果錯的話,將無法輸入新的密碼!大家需要注意的問題就是,注意自己控制項的名稱要一一對應,書上有好多的控制項名稱與**對應不上導致程式執行錯誤!

3.資訊查詢介面

大家在除錯資訊查詢介面的時候,會發現控制項**的大小個挺煩的問題,因為有的資訊可能比較長,導致部分的文字或是數字無法顯示,其實也是空間的調整問題!**如下:

myflexgrid.colwidth(0) = 1000
這就表示你的**的第一列的寬度為1000,大家可以根據實際資訊來調整**寬度!

4.課程新增介面

在新增課程的時候,會出現課程重複新增的問題!解決的**如下:

private sub cmdadd_click()

dim i as variant

if listallcourse.listindex <> -1 then

if listselectcourse.listindex = 0 then

listselectcourse.additem listallcourse.list(listallcourse.listindex)

end if

for i = 0 to listselectcourse.listcount - 1

if listselectcourse.list(i) = listallcourse.list(listallcourse.listindex) then

exit sub

end if

next

listselectcourse.additem listallcourse.list(listallcourse.listindex)

end if

end sub

這幾行**就是當你新增的課程資料庫裡已經有了的時候,課程就無法新增上去了!而沒有的則能夠順利的新增上!

5.小問題

在你新增完資訊的時候要清理各個**的內容!防止別人再次開啟,看到你之前填寫的資料,也能夠讓你連續填寫資料更加的便利!這有兩種方法可以解決!

第一就是在你完成輸入指令之後,讓所有控制項的內容清空!例如text1.text=" "

第二就是在你輸入完資料的時候,同時解除安裝窗體!

以上是我在進行學生資訊管理系統優化時遇到部分的問題,以及找的解決的方法!希望能對大家有所幫助!剩下的問題我會在以後繼續與大家分享!

學生資訊管理系統優化限制

if keyascii 8 then exit sub if keyascii 48 or keyascii 57 then keyascii 02,限制貼上 if keycode vbkeyv and shift vbctrlmask then txtpassword.enabled false ...

學生資訊管理系統

學生資訊管理系統,顧名思義就是為了管理學生的相關資訊做的一款軟體。雖然這次有原始碼供我們參考,但是從中我學習到了如何從開始到完工去做一款軟體,下邊我從做一項軟體專案的前後順序來總結我的學生資訊管理系統。一,分析需求 首先在做這款軟體是,我們先想象乙個成品,他的功能有哪些,每個功能完成哪項任務,這就是...

學生資訊管理系統

1.背景描述 學校招生辦在錄取當年新生時為新生建立了乙個新生基礎資訊類studentbase,其中包含每位新生的基本資料 學號 long mnum 姓名 char mname 20 性別 int m 其中0表示男,1表示女 年齡 int mage 住址 char maddr 30 新生主修專業所在系...