資源描述：
《基于vb的學(xué)生管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫。
1、基于VB的學(xué)生管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)
登陸系統(tǒng)
對(duì)于這類系統(tǒng)如果誰都能登陸到本系統(tǒng)的話，系統(tǒng)里面的數(shù)據(jù)將非常的危險(xiǎn)和有可能會(huì)受到蓄意破壞者的攻擊了?？紤]到數(shù)據(jù)的安全性，用戶必須擁有密碼才能夠登陸到本系統(tǒng)的主頁面。
2．3．2、主頁面有5個(gè)菜單。分別為。系統(tǒng)管理，學(xué)生檔案管理，班級(jí)管理，課程管理，成績管理。
對(duì)于這個(gè)主頁面。我們可以完成所有對(duì)學(xué)生檔案的管理，修改，查詢。方便登陸的用戶進(jìn)行一系列的操作，提供了方便。
2．4各個(gè)模塊的功能
系統(tǒng)管理：系統(tǒng)菜單包括有兩個(gè)功能
添加用戶
2、
對(duì)于一個(gè)系統(tǒng)來說，永遠(yuǎn)不可能只是存在一個(gè)用戶，用戶的添加體現(xiàn)了這個(gè)系統(tǒng)的方便靈活性，適合多人來使用。所有設(shè)計(jì)了這個(gè)功能是理所當(dāng)然的。
學(xué)生檔案管理：包括添加檔案菜單，檔案瀏覽菜單。
檔案添加
正如一個(gè)添加用戶一樣。永遠(yuǎn)不可能只是存在一個(gè)學(xué)生的學(xué)籍信息，學(xué)生畢業(yè)后會(huì)有新的學(xué)生進(jìn)來，自然要添加新的學(xué)生學(xué)籍信息。這個(gè)菜單恰好提供這個(gè)功能，
檔案瀏覽
當(dāng)我們將學(xué)生的學(xué)籍信息存放在數(shù)據(jù)庫中，最大的方便就是我們有需要知道學(xué)生的學(xué)籍信息時(shí)能夠及時(shí)查詢到。因?yàn)槿说挠洃浻邢蓿豢赡苡浀米∷?/p>
3、學(xué)生的學(xué)籍信息以及相關(guān)的一系列資料，所以就要靠查詢學(xué)籍信息來實(shí)現(xiàn)了。這個(gè)菜單的功能最大的優(yōu)點(diǎn)就是方便。
班級(jí)管理單：包括班級(jí)瀏覽菜單，班級(jí)添加菜單
班級(jí)添加菜單
每一年，學(xué)校都會(huì)增見新的年級(jí)，因此就會(huì)有新的班級(jí)信息添加。
班級(jí)瀏覽菜單
可以方便學(xué)校統(tǒng)一瀏覽班級(jí)的信息
課程管理菜單：包括基本課程設(shè)置，基本課程設(shè)置
可以對(duì)課程的信息進(jìn)行修
4、改增加
班級(jí)課程設(shè)置
可以選擇班級(jí)相應(yīng)的課程。
成績管理菜單：包括添加添加成績，修改成就，查詢成績。
考試類型設(shè)置
不同的功課自然有不同的成績。我們針對(duì)這個(gè)提前對(duì)考試類型做下設(shè)置。方便學(xué)校同學(xué)老師查成績。
成績添加
現(xiàn)今的教育，學(xué)生的成績是體現(xiàn)學(xué)生在學(xué)校的表現(xiàn)之一。也可以作為對(duì)學(xué)生評(píng)價(jià)的準(zhǔn)則之一。因次添加學(xué)生的成績是比較重要的一個(gè)功能。
成績?yōu)g覽
一個(gè)完成的學(xué)生管
5、理系統(tǒng)，自然要提供學(xué)生的查詢，方便學(xué)生和老師
2．5數(shù)據(jù)庫設(shè)計(jì)
2．5．1數(shù)據(jù)庫表的建立
系統(tǒng)數(shù)據(jù)庫名稱為StudengMIS。其中包括①allkecheng②cj③class
④classkecheng⑤kaoshileixing⑥userinfo⑦xj
第三章系統(tǒng)實(shí)現(xiàn)
3.1公共模塊
Module1模塊主要三個(gè)函數(shù)組成，函數(shù)EXECUTESQL用于執(zhí)行響應(yīng)的SQL命令，函數(shù)CONNSTRING用于連接字符串，函數(shù)EXECUTEQX用于檢查權(quán)限。代碼如下：
6、
PublicmodiAsBoolean
PublicclassmodiAsBoolean
PublicxuefeimodiAsBoolean
PublictxtsqlAsString
PublicfindAsBoolean
PublicclassfindAsBoolean
PublicxuefeifindAsBoolean
PublicusernameAsString
PublicqxstrAsString
'執(zhí)行相應(yīng)的SQL命令
Pub
7、licFunctionExecuteSQL(ByValsqlAsString)AsADODB.Recordset
DimmyconAsADODB.Connection
DimrstAsADODB.Recordset
Setmycon=NewADODB.Connection
mycon.ConnectionString=connstring
8、 mycon.Open
Dimstokens()AsString
OnErrorGoToexectuesql_error
stokens=Split(sql)
IfInStr("INSE
