學生資訊管理系統迄今已經優化了一部分了,但是還有一些地方需要進一步的優化。當你發現你優化完之後,你就會發現它非常的人性化並且顏值還很高喲。不過我的優化也是站在了師哥師姐們肩膀上優化的,也可以在師哥師姐們的基礎上進行創新喲。接下來我給大家而分享一下我優化的部分。
(1)限制文字框的字元
例如:文字框textbox,可以用過屬性窗體去找"maxlength"這個屬性,你想限制成多少你就設定成多少就ok了。
也可以通過在**窗體裡進行編寫**
txtclassno.maxlength=16
(2)限制文字框只能輸入文字和刪除鍵
if keyascii >= -20319 and keyascii <= -3652 or keyascii = 8 then
else
keyascii = 0
end if
如果想加乙個提示框的話,直接加乙個msgbox就可以了。
(3)限制文字框只能輸入數字和刪除鍵
if keyascii <> 8 and (keyascii < 48 or keyascii > 57) then
keyascii = 0
end if
(4)日期控制項的使用
一開始使用的是textbox來顯示時間,後來聽突擊隊的小夥伴們和紀老師說到了日期控制項,就開始去了解感覺還挺不錯就用了日期控制項。需要注意的乙個細節就是出生日期不能大於等於入校日期。
新增控制項:工具-部件-控制項-「microsoft windows common control2.6.0」-應用-確定
選擇dtpicker控制項進行新增,執行**如下:
if txtborndate.value >= txtrudate.value then
msgbox "出生日期不能大於或等於入校日期,請您重新輸入!", vbokonly + vbexclamation
txtborndate.setfocus
txtrudate.setfocus
exit sub
end if
(4)退出系統提示
private sub meitmenu_click()
dim a as string
a = msgbox("確定退出系統嗎?", vbokcancel, "關閉程式")
if a = vbok then
endcancel = false
end if
end sub
(5)設定窗體的大小
me.height=3840
me.width =7260
今天的分享的優化就這些,期待我下一次的分享吧!!! 學生資訊管理系統總結
經過這一階段的學習,我結束了學生資訊管理系統,在這個學習階段不僅使我對於vb有了更深一步的認識,而且對於sql語句也有了較深的了解。下面是我的記錄 1.str2 msgbox 是否刪除當前記錄?vbokcancel,刪除當前記錄 中 代表的意思?用來將變數定義成字串,如 dim str2 2.frm...
學生資訊管理系統總結
前言 學生資訊管理系統歷時乙個多月,經過乙個多月的努力,敲完了所有 改完了所有bug,優化了某些方面。是程式設計的靈魂。在我們開始學生的時候往往會有點迷惑,會不知道從 開始學習學生,不知道是先敲 呢?還是先安裝資料庫呢?在改bug的時候,是乙個乙個窗體的改呢還是敲完一起改呢?現在我提出一些自己的建議...
學生資訊管理系統總結
學前認識 學習目的 通過這個系統,讓每個學生都對資訊管理系統 mis 有乙個初步的了解。同時通過這個入門級的系統,消除學生對系統的恐懼資訊,增強其自信。尤其是自認為沒有基礎的學生。學習內容 1.練習vb6.0的使用,增加 量,提公升 親和力 2.初步掌握對資料庫的基本操作 3.學會除錯,測試程式 4...