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

if keyascii = 8 then exit sub

if keyascii <48 or keyascii > 57 then keyascii = 0

if keycode = vbkeyv and shift =vbctrlmask then

txtpassword. enabled = false
clipboard.clear
txtpassword.enabled = true
end if

private sub txtcoursename_keypress(keyascii as integer)

if keyascii < 0 or keyascii = 8 or keyascii = 13 then
elseif not chr(keyascii) like "[a-za-z]" then
keyascii = 0
end if
end sub

if micout = 1 then      

msgbox "您還有兩次機會！", 48, "警告"   
exit sub  
end if          
if micout = 2 then     
msgbox "您還有一次機會！", 48, "警告"    
exit sub    
end if      
if micout = 3 then     
msgbox "即將關閉程式！", 48, "警告"     
me.hide    
end if    
exit sub

dim borndate as date

dim getdate as date'定義變數'
borndate = trim(txtborndate.text)
getdate = trim(txtborndate.text)
if getdate<=borndate then'進行比較 
msgbox"入學時間不能早於出生時間，請重新輸入",vbokonly + vbinformation,"警告"       txtrudate.setfocus 
exit sub
end if

在屬性欄裡找到maxlength更改就好

學生資訊管理系統優化（一）

任何的系統在完成之前必須得優化，首先你的保證你做出來的軟體得沒有正常的邏輯問題，還得提高使用者體驗，讓別人用著比較舒服對吧！所以優化就是乙個不斷完善的過程！下邊我為大家分享一下我的優化心得！1.登入介面 首先你的保證你的登入介面不能隨意亂輸入，控制字元長度，而且要注意特殊字元的問題，防止別人輸入特殊...

學生資訊管理系統

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

學生資訊管理系統

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