應(yīng)用visualbasic0設(shè)計(jì)學(xué)生管理系統(tǒng)

1、畢業(yè)設(shè)計(jì)文稿1應(yīng)用VisualBasic6.0設(shè)計(jì)學(xué)生管理系統(tǒng)提要提要：本文論述了如何應(yīng)用可視化程序設(shè)計(jì)語(yǔ)言VisualBasic6.0開(kāi)發(fā)設(shè)計(jì)學(xué)生管理系統(tǒng)的方法，其設(shè)計(jì)成果對(duì)學(xué)校應(yīng)用計(jì)算機(jī)進(jìn)行學(xué)生基本情況的管理工作有一定參考意義。關(guān)鍵字關(guān)鍵字：VisualBasic6.0語(yǔ)言，窗體，控件，方法程序。學(xué)生管理系統(tǒng)是學(xué)校應(yīng)用計(jì)算機(jī)管理學(xué)生相關(guān)事宜的軟件系統(tǒng)，利用學(xué)生管理系統(tǒng)可以實(shí)現(xiàn)對(duì)學(xué)生的基本信息，班級(jí)信息，學(xué)生成績(jī)，學(xué)員的增加減少，變動(dòng)

2、的管理。實(shí)現(xiàn)快速查詢修改，可以極大方便學(xué)生管理工作，提高管理工作的效率，應(yīng)用VisualBasic6.0可以方便快捷地開(kāi)發(fā)設(shè)計(jì)實(shí)用的學(xué)生管理系統(tǒng)軟件，該軟件系統(tǒng)的操作簡(jiǎn)便，硬件的適應(yīng)性強(qiáng)，具有可移植性，能夠方便擴(kuò)充功能。一基本的設(shè)計(jì)思想通過(guò)對(duì)VisualBasic6.0的深入學(xué)習(xí)從而對(duì)其有了一定程度上的認(rèn)識(shí)和了解，掌握了其基本控件的運(yùn)用和操作，該程序主要運(yùn)用了VisualBasic6.0中的“可視化數(shù)據(jù)管理器”，用與其相關(guān)聯(lián)的Micro

3、softAccess建立“班級(jí)成員信息表”，從而實(shí)現(xiàn)了對(duì)“班級(jí)成員”的查詢；運(yùn)用Data組件來(lái)操作數(shù)據(jù)庫(kù)，以此來(lái)實(shí)現(xiàn)“學(xué)生基本信息”和“成績(jī)信息”的查詢；運(yùn)用最為基本的標(biāo)簽，文本框及按鈕，結(jié)合其代碼來(lái)完成各控件的基本功能。二設(shè)計(jì)內(nèi)容該程序主要包括五個(gè)窗體：窗體一，該程序的封面運(yùn)用時(shí)鐘控件實(shí)現(xiàn)了“畢業(yè)設(shè)計(jì)”四個(gè)字的動(dòng)畫(huà)效果；窗體二，學(xué)生管理結(jié)構(gòu)；窗體三，“信息管理系學(xué)生”的基本信息情況，運(yùn)用了Data組件來(lái)操作數(shù)據(jù)庫(kù)；窗體四：“班級(jí)信息”

4、使數(shù)據(jù)庫(kù)與Excel相關(guān)聯(lián)從而實(shí)現(xiàn)該功能。窗體五：“學(xué)生成績(jī)查詢”其各窗體程序代碼為：Fm1Fm1窗體中的代碼為：窗體中的代碼為：PrivateSubComm1_Click()Fm1.HideFm2.ShowEndSubPrivateSubFm_Click()Fm2.ShowFm1.HideEndSub畢業(yè)設(shè)計(jì)文稿3EndIfEndIfEndWithExitSuberr:MsgBoxErr.DeionEndSubPrivateSubbt

5、nupdate_Click()OnErrGoToupdateerrData1.Recdset.UpdateExitSubupdateerr:MsgBoxErr.DeionEndSubPrivateSubComm1_Click()Fm2.ShowFm3.HideEndSubPrivateSubFm_Load()EndSubPrivateSubLabel8_Click()EndSubFm5Fm5窗體中的代碼為：窗體中的代碼為：Private

6、idAsVariantPrivateSubcleantext()DimiAsIntegerFi=0To4Text1(i).Text=““NextiEndSubPrivateSubinitdbf()cmdchange.Enabled=Truecmdadd.Enabled=False如果數(shù)據(jù)庫(kù)無(wú)記錄則使按鈕無(wú)效.IfData1.Recdset.RecdCount=0Thencmdnext.Enabled=Falsecmdpri.Enable