VB課程設計學生成績管理系統(tǒng)

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

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

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

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

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

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

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

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

9、社.2005.69. 周國民.visual basic+access數(shù)據(jù)庫項目開發(fā)實踐，中國鐵道出版社.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 用戶名不能為空，請重新輸入！, 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 用戶名或密碼輸入錯誤，請重新輸入！, 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 用戶名不能為空，請重新輸入！, 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 用戶名或密碼輸入錯誤，請重新輸入！, 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 請輸入用戶名！, vbokonly + vbexclamation, 信息提示text1.setfocus exit subelsedata1.recordsource = select * from jsmmb where yhm= & text1.text & data1.refreshif not data1.recordset.eof thenmsgbox 用戶已存在，請重新輸

20、入用戶名！, vbokonly + vbexclamation, 提示信息text1.setfocustext1.text = : text2.text = : text3.text = exit subend ifend if if trim(text2.text) trim(text3.text) thenmsgbox 兩次輸入的密碼不一樣，請確認！, 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 學號和姓名不能為空！, 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 輸入的學號已經(jī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 請輸入內(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 學號不能為空，請重新輸入！, vbokonly + vbexclamation, 警告text1.setfocuselse data1.recordsource = select * from cjb where xh= & text1.text & data1.refreshif data1.recordset.eof thenmsgbox 學號不存在，請重新輸入！, 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 請輸入內(nèi)容！else mybookmark = data1.recordset

32、.bookmarkstr2$ = msgbox(是否刪除當前記錄？, vbokcancel, 刪除當前記錄)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 = 按學號 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)容不能為空，請重新輸入！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 請輸入內(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 學號不能為空，請重新輸入！, vbokonly + vbexclamation, 警告text1.setfocuselse data1.records

40、ource = select * from cjb where xh= & text1.text & data1.refreshif data1.recordset.eof thenmsgbox 學號不存在，請重新輸入！, 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