VB課程設(shè)計(jì)學(xué)生成績(jī)管理系統(tǒng)

1、一.課程設(shè)計(jì)題目學(xué)生成績(jī)管理系統(tǒng)二功能描述 系統(tǒng)主要由四部分組成：系統(tǒng)用戶的管理、學(xué)生成績(jī)的管理、學(xué)生信息的管理、，學(xué)生成績(jī)信息的統(tǒng)計(jì)，其中還包括登錄界面等模塊。各模塊的主要功能如下：（1）.系統(tǒng)用戶的管理：實(shí)現(xiàn)用戶的添加、刪除和密碼的修改(3).學(xué)生成績(jī)的管理：實(shí)現(xiàn)學(xué)生成績(jī)的錄入，查詢，刪除和修改。 (4).學(xué)生成績(jī)信息的統(tǒng)計(jì)：實(shí)現(xiàn)學(xué)生男女生人數(shù)以及不及格人數(shù)的統(tǒng)計(jì)。(2).學(xué)生信息的管理：實(shí)現(xiàn)學(xué)生學(xué)籍信息的添加，查詢、刪除和修改。三概要設(shè)計(jì)對(duì)上述各項(xiàng)功能進(jìn)行集中、分塊，按照結(jié)構(gòu)化層序設(shè)計(jì)的要求，得到如圖1所示的系統(tǒng)功能模塊圖。學(xué)生成績(jī)管理系統(tǒng)成績(jī)查詢成績(jī)修改成績(jī)錄入成績(jī)管理信息查詢信息修改

2、信息添加學(xué)生信息項(xiàng)目統(tǒng)計(jì)退出系統(tǒng)修改密碼添加用戶統(tǒng)計(jì)信息系統(tǒng)管理 圖1系統(tǒng)功能模塊圖四數(shù)據(jù)庫(kù)設(shè)計(jì)數(shù)據(jù)庫(kù)在本成績(jī)管理系統(tǒng)中占有非常重要的地位，數(shù)據(jù)庫(kù)結(jié)構(gòu)的好壞將直接對(duì)應(yīng)用系統(tǒng)的效率以及實(shí)現(xiàn)的效率產(chǎn)生影響。合理的數(shù)據(jù)庫(kù)及結(jié)構(gòu)設(shè)計(jì)可以提高數(shù)據(jù)存儲(chǔ)的效率，保證數(shù)據(jù)的完整和一致。同時(shí)合理的數(shù)據(jù)庫(kù)結(jié)構(gòu)也將有利于程序的實(shí)現(xiàn)。設(shè)計(jì)本系統(tǒng)的數(shù)據(jù)庫(kù)應(yīng)該充分滿足用戶的需求。針對(duì)一般學(xué)生管理系統(tǒng)的需求，通過(guò)對(duì)學(xué)生學(xué)習(xí)過(guò)程的內(nèi)容的分析，設(shè)計(jì)如下面所示的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)。（1）基本信息表：包括的字段有：學(xué)號(hào)，姓名，性別，年齡，聯(lián)系電話，家庭住址。 表1 基本信息表字段名稱(chēng)數(shù)據(jù)類(lèi)型字段大小學(xué)號(hào)文本10姓名文本10性別文本2

3、年齡數(shù)字2聯(lián)系電話數(shù)字50班級(jí)文本50家庭住址文本50（2）成績(jī)表： 包括的字段有： 學(xué)號(hào)，姓名，性別，班級(jí)，高數(shù)成績(jī)，英語(yǔ)成績(jī)，計(jì)算機(jī)成績(jī)。 表2 成績(jī)表字段名稱(chēng)數(shù)據(jù)類(lèi)型字段大小學(xué)號(hào)文本10姓名文本10性別文本2班級(jí)文本10高數(shù)成績(jī)數(shù)字20英語(yǔ)成績(jī)數(shù)字20計(jì)算機(jī)成績(jī)數(shù)字20（3），學(xué)生密碼表： 包括的字段有： 用戶名，密碼。 表3密碼表字段名稱(chēng)數(shù)據(jù)類(lèi)型字段大小用戶名文本10密碼文本10（4）教師密碼表：包括的字段有：用戶名，密碼。 表4 教師密碼表 字段名稱(chēng)數(shù)據(jù)類(lèi)型字段大小用戶名文本10密碼文本10五詳細(xì)設(shè)計(jì)系統(tǒng)主要由五部分組成：系統(tǒng)用戶的管理、學(xué)生成績(jī)的管理、學(xué)生信息的管理、信息的查詢，其

4、中還包括登錄界面以及成績(jī)的統(tǒng)計(jì)模塊。各模塊的主要功能如下：1.系統(tǒng)用戶的管理：實(shí)現(xiàn)用戶的添加、刪除和密碼的修改。通過(guò).hide對(duì)象方法隱藏原有窗體界面，通過(guò).show對(duì)象方法顯示所要用到的窗體界面。2.學(xué)生信息的管理：通過(guò)創(chuàng)建數(shù)據(jù)庫(kù)，連接數(shù)據(jù)庫(kù)，調(diào)用數(shù)據(jù)庫(kù)及data控件adodc控件，mshflexgrid控件的使用來(lái)實(shí)現(xiàn)學(xué)生信息的添加，查詢，刪除和修改。3.學(xué)生成績(jī)的管理：通過(guò)創(chuàng)建數(shù)據(jù)庫(kù)，連接數(shù)據(jù)庫(kù)，調(diào)用數(shù)據(jù)庫(kù)以及data控件adodc控件，mshflexgrid控件的使用來(lái)實(shí)現(xiàn)學(xué)生成績(jī)的錄入，查詢，刪除和修改。4學(xué)生成績(jī)信息的統(tǒng)計(jì)：實(shí)現(xiàn)學(xué)生男女生人數(shù)以及不及格人數(shù)的統(tǒng)計(jì)六效果及存在問(wèn)題（1

5、），登陸界面：選擇用戶類(lèi)型，可選擇教師，學(xué)生，分別進(jìn)入不同界面。功能截圖如圖2所示： 圖2 登陸界面（2），學(xué)生登陸：輸入學(xué)號(hào)，輸入學(xué)生密碼，單擊確定即進(jìn)入學(xué)生界面如圖3所示： 圖3學(xué)生登錄（3），學(xué)生密碼修改:輸入學(xué)生新密碼。再次輸入學(xué)生新密碼，單擊確定按鈕，修改學(xué)生密碼，功能截圖如圖4所示： 圖4修改密碼（4），主窗體界面：系統(tǒng)用戶的管理：包括用戶的添加、刪除和密碼的修改；學(xué)生信息的管理：包括學(xué)生信息的添加，查詢、刪除和修改；學(xué)生成績(jī)的管理：包括學(xué)生成績(jī)的錄入，查詢，刪除和修改；學(xué)生成績(jī)信息的統(tǒng)計(jì)：包括學(xué)生男女生人數(shù)以及不及格人數(shù)的統(tǒng)計(jì)。功能截圖如圖5所示： 圖5主界面（6），成績(jī)查詢：輸

6、入學(xué)生學(xué)號(hào)，單擊查詢按鈕，查詢學(xué)生成績(jī)。功能截圖如圖6所示： 圖6成績(jī)查詢七結(jié)論或心得體會(huì)設(shè)計(jì)之前由于數(shù)據(jù)庫(kù)知識(shí)的空白，使得我們毫無(wú)頭緒，無(wú)從下去手，只是盲目的按照課本和參考資料進(jìn)行設(shè)計(jì)和編程，沒(méi)有動(dòng)腦子思考，也沒(méi)有進(jìn)行結(jié)構(gòu)的規(guī)劃，使得我們的程序進(jìn)行到一半時(shí)夭折，那時(shí)候我們就開(kāi)始意識(shí)到，不應(yīng)該盲目，我們認(rèn)真地看了課本，有了數(shù)據(jù)庫(kù)的思想和思路，自己又重新規(guī)劃了系統(tǒng)的結(jié)構(gòu)，但是由于時(shí)間的關(guān)系，我們錯(cuò)過(guò)了中期檢查，但是我們并沒(méi)有氣餒，而是更加熱情地的投入到系統(tǒng)的設(shè)計(jì)中，但我們又出現(xiàn)了新問(wèn)題，我和另一個(gè)男生本來(lái)分工合作的，可是我們的窗體總是銜接不上，而且數(shù)據(jù)庫(kù)也不同，而我們又都想嘗試一下其他窗體的創(chuàng)建

7、，獲得更多的知識(shí)，于是我們最終各自完成了各自的管理系統(tǒng)。 這次課程設(shè)計(jì)實(shí)習(xí)我流的汗和淚，都是以成功的完成課程設(shè)計(jì)任務(wù)為收獲的。不斷的調(diào)試，使我認(rèn)識(shí)即時(shí)丁點(diǎn)的錯(cuò)誤也可以導(dǎo)致系統(tǒng)的非正常運(yùn)行，細(xì)節(jié)決定成敗。我只有在以后的學(xué)習(xí)之路上做到一絲不茍，才能獲得成功.面對(duì)新的問(wèn)題，以前的我會(huì)覺(jué)的十分畏懼，可通過(guò)這次實(shí)習(xí)，我發(fā)現(xiàn)自己變得勇敢，積極地從正面面對(duì)問(wèn)題，認(rèn)真地查閱資料、動(dòng)手實(shí)踐、和同學(xué)交流，問(wèn)題便能解決。此次實(shí)習(xí)培養(yǎng)了我自主學(xué)習(xí)和動(dòng)手實(shí)踐能力，讓我體會(huì)到完成任務(wù)的成就感和喜悅。八參考文獻(xiàn)1劉天惠 等. visual basic程序設(shè)計(jì)教程, 清華大學(xué)出版社. 2006.22李春葆 等. access

8、2003程序設(shè)計(jì)教程(第2版), 清華大學(xué)出版社.2007.13范立南 等. sql server2000實(shí)用教程, 清華大學(xué)出版社. 2005.24. 張宏 等. 30天學(xué)通visual basic項(xiàng)目案例開(kāi)發(fā), 電子工業(yè)出版社.2009.75. 龔沛曾 等. visual basic程序設(shè)計(jì)教程, 高等教育出版社. 2005.26. 蔣加伏 等. visual basic程序設(shè)計(jì)教程, 北京郵電大學(xué)出版社. 2004.17. 張路平等.visual basic 6.0編程案例精解，電子工業(yè)出版社.2004.38. 譚小丹.visual basic 6.0數(shù)據(jù)庫(kù)編程思想與實(shí)踐 ，冶金工業(yè)出版

9、社.2005.69. 周?chē)?guó)民.visual basic+access數(shù)據(jù)庫(kù)項(xiàng)目開(kāi)發(fā)實(shí)踐，中國(guó)鐵道出版社.2006.5 附錄：各功能程序代碼private sub command1_click()dl.hidexsdl.show end subprivate sub command2_click()dl.hidejsdl.show end subprivate sub form_load()label1.width = dl.scalewidthlabel1.left = dl.scalewidth end subprivate sub timer1_timer()if label1.left

10、+ label1.width = 0 thenlabel1.left = label1.left - 50elselabel1.left = dl.scalewidth end ifend subprivate sub command1_click()username = if trim(text1.text) = thenmsgbox 用戶名不能為空，請(qǐng)重新輸入！, vbokonly + vbexclamation, 警告 text1.setfocuselsedata1.recordsource = select * from mmb where yhm= & text1.text & an

11、d mm= & text2.text & data1.refresh if data1.recordset.bof = true and data1.recordset.eof = true thenmsgbox 用戶名或密碼輸入錯(cuò)誤，請(qǐng)重新輸入！, vbokonly + vbexclamation, 警告text1.setfocustext2.setfocus elseusername = text1.texttext2.text = me.hideform4.show end ifend ifend subprivate sub command2_click()text1.text = t

12、ext2.text = end sub private sub timer1_timer()if label1.left + label1.width = 0 thenlabel1.left = label1.left - 50elselabel1.left = dl.scalewidth end ifend subprivate sub command1_click()username = if trim(text1.text) = thenmsgbox 用戶名不能為空，請(qǐng)重新輸入！, vbokonly + vbexclamation, 警告text1.setfocuselsedata1.r

13、ecordsource = select * from jsmmb where 用戶名= & text1.text & and mm= & text2.text & data1.refreshif data1.recordset.bof = true and data1.recordset.eof = true thenmsgbox 用戶名或密碼輸入錯(cuò)誤，請(qǐng)重新輸入！, vbokonly + vbexclamation, 警告text1.setfocustext2.setfocuselseusername = text1.textme.hidemain.showend ifend ifend

14、subprivate sub command2_click()text2.text = text3.text = end subprivate sub timer1_timer()if label3.left + label3.width = 0 thenlabel3.left = label3.left - 50elselabel3.left = jsdl.scalewidthend ifend subprivate sub form_load()label3.width = jsdl.scalewidthlabel3.left = jsdl.scalewidthend subprivate

15、 sub command1_click()endend sub private sub command2_click()me.hidexiugaimima.show end subprivate sub form_load()data1.recordsource = select * from cjb where xh= & xsdl.text1.text & data1.refreshend sub private sub command1_click()if trim(text1.text) trim(text2.text) thenmsgbox 密碼輸入不正確!, vbokonly +

16、vbexclamation, 信息提示text1.setfocustext1.text = elsedata1.recordsource = select * from mmb where yhm= & xsdl.text1.text & data1.refreshdata1.recordset.editdata1.recordset.fields(mm) = text1.textdata1.recordset.updatemsgbox 密碼修改成功！, vbokonly + vbexclamation, 修改密碼end if end subprivate sub command2_click

17、()text1.text = text2.text = end sub private sub command3_click()me.hideform4.show end subprivate sub tcxt_click()end end subprivate sub tjyh_click()me.hidetianjiayonghu.show end subprivate sub xgmm_click()me.hidejiaoshimimaxiugai.show end subprivate sub xmtj_click()me.hidexiangmu#show end subp

18、rivate sub xxcx_click()me.hidexinxichaxun.showend subprivate sub xxtj_click()me.hidexueshengxinxitianjia.show end subprivate sub xxxg_click()me.hidexinxixiugai.show end subprivate sub cjcx_click()main.hidechengjichaxun.show end sub private sub cjlr_click()me.hidechengjiluru.showend sub private sub c

19、jxg_click() me.hidechengjixiugai.show end subprivate sub command1_click()if trim(text1.text) = thenmsgbox 請(qǐng)輸入用戶名！, vbokonly + vbexclamation, 信息提示text1.setfocus exit subelsedata1.recordsource = select * from jsmmb where yhm= & text1.text & data1.refreshif not data1.recordset.eof thenmsgbox 用戶已存在，請(qǐng)重新輸

20、入用戶名！, vbokonly + vbexclamation, 提示信息text1.setfocustext1.text = : text2.text = : text3.text = exit subend ifend if if trim(text2.text) trim(text3.text) thenmsgbox 兩次輸入的密碼不一樣，請(qǐng)確認(rèn)！, vbokonly + vbexclamation, 警告text2.setfocustext2.text = text3.text = exit subelsewith data1.recordset.addnew.recordset.fi

21、elds(0) = trim(text1.text).recordset.fields(1) = trim(text2.text).recordset.updateend withmsgbox 添加用戶成功！, vbokonly + vbexclamation, 添加用戶end ifend sub private sub command2_click()text1.text = text2.text = text3.text = end subprivate sub command3_click()me.hidemain.show end subprivate sub command1_cli

22、ck()if trim(text1.text) trim(text2.text) thenmsgbox 密碼輸入不正確!, vbokonly + vbexclamation, 信息提示text1.setfocustext1.text = elsedata1.recordsource = select * from mmb where yhm= & xsdl.text1.text & data1.refreshdata1.recordset.editdata1.recordset.fields(mm) = text1.textdata1.recordset.update msgbox 密碼修改成

23、功！, vbokonly + vbexclamation, 修改密碼end ifend sub private sub command2_click()text1.text = text2.text = end sub private sub command3_click()me.hideform4.showend sub private sub command1_click()if text2.text = or text3.text = thenmsgbox 學(xué)號(hào)和姓名不能為空！, vbokonly + vbexclamation, 警告exit sub elsedata1.records

24、ource = select * from xsxxb where xh= & trim(text2.text) & data1.refreshif data1.recordset.bof = false and data1.recordset.eof = false thenmsgbox 輸入的學(xué)號(hào)已經(jīng)存在，請(qǐng)重新輸入！, vbokonly + vbexclamation, 警告text2.text = text3.text = text2.setfocus elsedata1.recordset.addnewdata1.recordset.fields(0) = text2.textdat

25、a1.recordset.fields(1) = text3.textdata1.recordset.fields(2) = text4.textdata1.recordset.fields(3) = text5.textdata1.recordset.fields(4) = text6.textdata1.recordset.fields(5) = text7.textdata1.recordset.fields(6) = text8.textdata1.recordset.updatemsgbox 添加成功！ data2.recordsource = select * from cjb w

26、here xh= & trim(text2.text) & data2.refreshdata3.recordsource = select * from mmb where yhm= & trim(text2.text) & data3.refreshdata2.recordset.addnewdata2.recordset.fields(0) = text2.textdata2.recordset.fields(1) = text3.textdata2.recordset.updatedata3.recordset.addnewdata3.recordset.fields(0) = tex

27、t2.textdata3.recordset.fields(1) = text2.textdata3.recordset.updateend if end ifend subprivate sub command2_click()me.hidemain.showend sub private sub command1_click()if text1.text = thenmsgbox 請(qǐng)輸入內(nèi)容！else data1.recordset.editdata1.recordset.fields(0) = text2.textdata1.recordset.fields(1) = text3.tex

28、tdata1.recordset.fields(2) = text4.textdata1.recordset.fields(3) = text5.textdata1.recordset.fields(4) = text6.textdata1.recordset.fields(5) = text7.textdata1.recordset.fields(6) = text8.texttext9.text = str(val(text6.text) + val(text8.text) + val(text7.text) / 3)data1.recordset.fields(7) = text9.te

29、xtdata1.recordset.updatemsgbox 修改成功 end ifend subprivate sub command10_click()if trim(text1.text) = thenmsgbox 學(xué)號(hào)不能為空，請(qǐng)重新輸入！, vbokonly + vbexclamation, 警告text1.setfocuselse data1.recordsource = select * from cjb where xh= & text1.text & data1.refreshif data1.recordset.eof thenmsgbox 學(xué)號(hào)不存在，請(qǐng)重新輸入！, vb

30、okonly + vbexclamation, 警告text1.setfocustext1.text = text2.text = text3.text = text4.text = text5.text = text6.text = text7.text = text8.text = text9.text = else text2.text = data1.recordset.fields(0) text3.text = data1.recordset.fields(1) text4.text = data1.recordset.fields(2) text5.text = data1.re

31、cordset.fields(3) text6.text = data1.recordset.fields(4) text7.text = data1.recordset.fields(5) text8.text = data1.recordset.fields(6)end if end ifend subprivate sub command2_click()me.hidemain.showend sub private sub command3_click()if text1.text = thenmsgbox 請(qǐng)輸入內(nèi)容！else mybookmark = data1.recordset

32、.bookmarkstr2$ = msgbox(是否刪除當(dāng)前記錄？, vbokcancel, 刪除當(dāng)前記錄)if str2$ = vbok then data1.recordset.delete data1.refreshtext1.text = text2.text = text3.text = text4.text = text5.text = text6.text = text7.text = text8.text = text9.text = end ifend if end subprivate sub command1_click()if combo1.text = 按學(xué)號(hào) the

33、ndata1.recordsource = select * from xsxxb where xh= & text1.text & data1.refreshelsedata1.recordsource = select * from xsxxb where xm= & text1.text & data1.refreshend if if text1.text = thendata1.recordsource = select * from xsxxb data1.refreshend ifend sub private sub command2_click()me.hidemain.sh

34、ow private sub command1_click()if text2.text = or text3.text = or text4.text = or text5.text = or text7.text = or text8.text = or text9.text = thenmsgbox 內(nèi)容不能為空，請(qǐng)重新輸入！else data1.recordset.editdata1.recordset.fields(0) = text2.textdata1.recordset.fields(1) = text3.textdata1.recordset.fields(2) = text

35、4.textdata1.recordset.fields(3) = val(text5.text)data1.recordset.fields(4) = val(text7.text)data1.recordset.fields(5) = val(text8.text)data1.recordset.fields(6) = val(text9.text)text1.text = str(val(text7.text) + val(text8.text) + val(text9.text) / 3)data1.recordset.fields(7) = text1.textdata1.recor

36、dset.updatemsgbox 添加成功！ end iftext2.text = : text3.text = : text4.text = : text5.text = : text7.text = : text8.text = : text9.text = end sub private sub command2_click()me.hidemain.showend sub private sub command3_click()data1.recordset.movefirstend sub private sub command4_click()data1.recordset.mo

37、vepreviousif data1.recordset.bof thendata1.recordset.movefirst end ifend subprivate sub command5_click()data1.recordset.movenextif data1.recordset.eof thendata1.recordset.movelastend if end subprivate sub command6_click()data1.recordset.movelastend sub private sub command1_click()if text1.text = the

38、nmsgbox 請(qǐng)輸入內(nèi)容！else data1.recordset.editdata1.recordset.fields(0) = text2.textdata1.recordset.fields(1) = text3.textdata1.recordset.fields(2) = text4.textdata1.recordset.fields(3) = text5.textdata1.recordset.fields(4) = text6.textdata1.recordset.fields(5) = text7.textdata1.recordset.fields(6) = text8

39、.texttext9.text = str(val(text6.text) + val(text8.text) + val(text7.text) / 3)data1.recordset.fields(7) = text9.textdata1.recordset.updatemsgbox 修改成功 end ifend subprivate sub command10_click()if trim(text1.text) = thenmsgbox 學(xué)號(hào)不能為空，請(qǐng)重新輸入！, vbokonly + vbexclamation, 警告text1.setfocuselse data1.records

40、ource = select * from cjb where xh= & text1.text & data1.refreshif data1.recordset.eof thenmsgbox 學(xué)號(hào)不存在，請(qǐng)重新輸入！, vbokonly + vbexclamation, 警告text1.setfocustext1.text = text2.text = text3.text = text4.text = text5.text = text6.text = text7.text = text8.text = text9.text = else text2.text = data1.recordset.fields(0) text3.text = data1.recordset.fields(1) text4.text = data1.recordset.fields(2) text5.text = data1.recordset.fields(3) text6.text = data1.recordset.fields(4) text7.text = data1.records