學生資訊管理系統 優化總結part1

2021-09-26 09:08:44 字數 1550 閱讀 4800

學生資訊管理系統迄今已經優化了一部分了,但是還有一些地方需要進一步的優化。當你發現你優化完之後,你就會發現它非常的人性化並且顏值還很高喲。不過我的優化也是站在了師哥師姐們肩膀上優化的,也可以在師哥師姐們的基礎上進行創新喲。接下來我給大家而分享一下我優化的部分。

(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...