VB學生成績管理系統(tǒng)

1、課程設計說明書no.1沈陽大學學生成績管理系統(tǒng)1.課程設計的目的進一步培養(yǎng)學生綜合應用 visual basic 的各種編程知識和技巧進行程序設計的能力。通過課程設計，學生能達到具備設計功能較為復雜的windows 應用程序的能力。同時，通過課程設計，培養(yǎng)學生自主學習和獨立創(chuàng)新的精神，是人才培養(yǎng)體系中極為重要的一環(huán)。從大的方面來講， 現(xiàn)在我國的部分高中及其以下級別的大部分中學，學生成績的管理水平還停留在紙介質的基礎上， 這樣的機制已經(jīng)不能適應時代的發(fā)展，因為它浪費了許多人力和物力，在信息時代這種傳統(tǒng)的管理方法必然被計算機為基礎的信息管理所取代。我選擇這個題目，希望可以在信息管理方面有所提高。改

2、革的總設計師鄧小平同志說過“科學技術是第一生產(chǎn)力” ，我希望能用我一年的所學編制出一個實用的程序來幫助學校進行更有效的信息管理。從小的方面來說， 我感覺這個題目和我的學校生活密切相關，我也比較熟悉該系統(tǒng)，更容易學到對于我vb 語言學習有用的知識。2. 功能描述系統(tǒng)開發(fā)的總任務是實現(xiàn)學生信息關系的系統(tǒng)化、規(guī)范化和自動化。系統(tǒng)主要由五部分組成：系統(tǒng)用戶的管理、學生成績的管理、學生學籍信息的管理、信息的查詢，其中還包括登錄界面以及成績的統(tǒng)計模塊。各模塊的主要功能如下：系統(tǒng)用戶的管理：實現(xiàn)用戶的添加、刪除和密碼的修改學生學籍信息的管理：實現(xiàn)學生學籍信息的添加、刪除和修改。學生成績的管理：實現(xiàn)學生成績的

3、錄入，刪除和修改。學生信息的查詢：實現(xiàn)學生學籍的查詢、成績的查詢。課程設計說明書no.2沈陽大學學生成績信息的統(tǒng)計：實現(xiàn)學生男女生人數(shù)以及不及格人數(shù)的統(tǒng)計。3. 概要設計3.1 系統(tǒng)模塊結構圖小型成績管理系統(tǒng)系統(tǒng)管理成績管理學生信息統(tǒng)計信息添加用戶修改密碼退出系統(tǒng)成績錄入成績修改成績查詢信息查詢信息修改信息添加項目統(tǒng)計圖 1.系統(tǒng)結構圖課程設計說明書no.3沈陽大學3.2 數(shù)據(jù)庫設計數(shù)據(jù)庫在本成績管理系統(tǒng)中占有非常重要的地位，數(shù)據(jù)庫結構的好壞將直接對應用系統(tǒng)的效率以及實現(xiàn)的效率產(chǎn)生影響。合理的數(shù)據(jù)庫及結構設計可以提高數(shù)據(jù)存儲的效率，保證數(shù)據(jù)的完整和一致。 同時合理的數(shù)據(jù)庫結構也將有利于程序的實

4、現(xiàn)。設計本系統(tǒng)的數(shù)據(jù)庫應該充分滿足用戶的需求。針對一般學生管理系統(tǒng)的需求，通過對學生學習過程的內容的分析，設計如下面所示的數(shù)據(jù)項和數(shù)據(jù)結構基本信息表：包括的字段有：學號，姓名，性別，年齡，聯(lián)系電話，家庭住址。成績表：包括的字段有：學號，姓名，性別，年齡，高數(shù)成績，英語成績，計算機成績，平均成績。密碼表：包括的字段有：用戶名，密碼。教師密碼表：包括的字段有：用戶名，密碼。得到上面的數(shù)據(jù)項就可以設計出能夠滿足用戶需求的各種實體以及他們之間的關系。由上面的設計規(guī)劃出的實體有：用戶實體、信息實體、成績實體。按照以上實體進行設計：（ 1）打開可視化數(shù)據(jù)管理器程序（2）建立數(shù)據(jù)庫（ 3）創(chuàng)建數(shù)據(jù)庫表（ 4

5、）添加字段（ 5）生成表添加內容課程設計說明書no.4沈陽大學字段名稱數(shù)據(jù)類型字段大小學號文本10 姓名文本10 性別文本2 年齡數(shù)字2 聯(lián)系電話數(shù)字50 班級文本50 家庭住址文本50 表 1. 基本信息表4 詳細設計4.1.1 登入界面實現(xiàn)第一個登陸界面選擇用戶類型，分為教師和學生。具體圖形及相關代碼如下所示：核心代碼：private sub command1_click() dl.hide 課程設計說明書no.5沈陽大學xsdl.show end sub private sub command2_click() dl.hide jsdl.show end sub private sub

6、form_load() label1.width = dl.scalewidth label1.left = dl.scalewidth end sub private sub timer1_timer() if label1.left + label1.width = 0 then label1.left = label1.left - 50 else label1.left = dl.scalewidth end if end sub 4.1.2 學生登陸界面課程設計說明書no.6沈陽大學核心代碼如下：private sub command1_click() username = if t

7、rim(text1.text) = then msgbox 用戶名不能為空，請重新輸入！, vbokonly + vbexclamation, 警告 text1.setfocus else data1.recordsource = select * from 密碼表where 用戶名 = & text1.text & and 密碼 = & text2.text & data1.refresh if data1.recordset.bof = true and data1.recordset.eof = true then msgbox 用戶名或密碼輸入錯誤，請重

8、新輸入！, vbokonly + vbexclamation, 警告 text1.setfocus text2.setfocus else username = text1.text text2.text = me.hide form4.show end if end if end sub private sub command2_click() text1.text = 課程設計說明書no.7沈陽大學text2.text = end sub private sub timer1_timer() if label1.left + label1.width = 0 then label1.lef

9、t = label1.left - 50 else label1.left = dl.scalewidth end if end sub 4.1.3 教師登陸界面：核心代碼如下所示；該界面代碼與上個界面基本一致。private sub command1_click() username = if trim(text1.text) = then msgbox 用戶名不能為空，請重新輸入！, vbokonly + vbexclamation, 警告 text1.setfocus else data1.recordsource = select * from 教師密碼表where 用戶名 = &am

10、p; text1.text & and 密碼 = & text2.text & data1.refresh if data1.recordset.bof = true and data1.recordset.eof = true then msgbox 用戶名或密碼輸入錯誤，請重新輸入！, vbokonly + vbexclamation, 警告 課程設計說明書no.8沈陽大學text1.setfocus text2.setfocus else username = text1.text me.hide main.show end if end if end sub p

11、rivate sub command2_click() text2.text = text3.text = end sub private sub timer1_timer() if label3.left + label3.width = 0 then label3.left = label3.left - 50 else label3.left = jsdl.scalewidth end if end sub private sub form_load() label3.width = jsdl.scalewidth label3.left = jsdl.scalewidth end su

12、b 4.1.4 學生成績查詢界面 ：使用一個data控件，一個msflexgrid 控件，兩個命令按鈕。代碼如下：private sub command1_click() end end sub private sub command2_click() me.hide xiugaimima.show end sub private sub form_load() 課程設計說明書no.9沈陽大學data1.recordsource = select * from 成績表where 學號 = & xsdl.text1.text & data1.refresh end sub 4.1

13、.5 學生密碼修改界面：代碼如下：private sub command1_click() 課程設計說明書no.10沈陽大學if trim(text1.text) trim(text2.text) then msgbox 密碼輸入不正確!, vbokonly + vbexclamation, 信息提示 text1.setfocus text1.text = else data1.recordsource = select * from 密碼表where 用戶名 = & xsdl.text1.text & data1.refresh data1.recordset.edit da

14、ta1.recordset.fields(密碼 ) = text1.text data1.recordset.update msgbox 密碼修改成功！, vbokonly + vbexclamation, 修改密碼 end if end sub private sub command2_click() text1.text = text2.text = end sub private sub command3_click() me.hide form4.show end sub 4.1.6 主窗體界面 ：課程設計說明書no.11沈陽大學代碼如下：private sub tcxt_click(

15、) end end sub private sub tjyh_click() me.hide tianjiayonghu.show end sub private sub xgmm_click() me.hide jiaoshimimaxiugai.show end sub private sub xmtj_click() me.hide xiangmu#show end sub private sub xxcx_click() me.hide xinxichaxun.show 課程設計說明書no.12沈陽大學end sub private sub xxtj_click() me.

16、hide xueshengxinxitianjia.show end sub private sub xxxg_click() me.hide xinxixiugai.show end sub private sub cjcx_click() main.hide chengjichaxun.show end sub private sub cjlr_click() me.hide chengjiluru.show end subv private sub cjxg_click() me.hide chengjixiugai.show end sub 4.1.7 添加用戶界面：代碼如下：priv

17、ate sub command1_click() 課程設計說明書no.13沈陽大學if trim(text1.text) = then msgbox 請輸入用戶名！, vbokonly + vbexclamation, 信息提示 text1.setfocus exit sub else data1.recordsource = select * from 教師密碼表where 用戶名 = & text1.text & data1.refresh if not data1.recordset.eof then msgbox 用戶已存在，請重新輸入用戶名！, vbokonly +

18、vbexclamation, 提示信息 text1.setfocus text1.text = : text2.text = : text3.text = exit sub end if end if if trim(text2.text) trim(text3.text) then msgbox 兩次輸入的密碼不一樣，請確認！, vbokonly + vbexclamation, 警告 text2.setfocus text2.text = text3.text = exit sub else with data1 .recordset.addnew .recordset.fields(0)

19、 = trim(text1.text) .recordset.fields(1) = trim(text2.text) .recordset.update end with msgbox 添加用戶成功！, vbokonly + vbexclamation, 添加用戶 end if end sub private sub command2_click() text1.text = text2.text = text3.text = end sub private sub command3_click() me.hide main.show end sub 課程設計說明書no.14沈陽大學4.1.

20、8 修改密碼界面：代碼如下：private sub command1_click() if trim(text1.text) trim(text2.text) then msgbox 密碼輸入不正確!, vbokonly + vbexclamation, 信息提示 text1.setfocus text1.text = else data1.recordsource = select * from 密碼表where 用戶名 = & xsdl.text1.text & data1.refresh data1.recordset.edit data1.recordset.field

21、s(密碼 ) = text1.text data1.recordset.update msgbox 密碼修改成功！, vbokonly + vbexclamation, 修改密碼 end if end sub private sub command2_click() text1.text = text2.text = end sub private sub command3_click() 課程設計說明書no.15沈陽大學me.hide form4.show end sub 4.1.9 添加學生信息界面：代碼如下：private sub command1_click() if text2.te

22、xt = or text3.text = then msgbox 學號和姓名不能為空！, vbokonly + vbexclamation, 警告 exit sub else data1.recordsource = select * from 基本信息表where 學號 = & trim(text2.text) & data1.refresh if data1.recordset.bof = false and data1.recordset.eof = false then msgbox 輸入的學號已經(jīng)存在，請重新輸入！, vbokonly + vbexclamation,

23、 警告 text2.text = text3.text = text2.setfocus else data1.recordset.addnew data1.recordset.fields(0) = text2.text data1.recordset.fields(1) = text3.text 課程設計說明書no.16沈陽大學data1.recordset.fields(2) = text4.text data1.recordset.fields(3) = text5.text data1.recordset.fields(4) = text6.text data1.recordset.

24、fields(5) = text7.text data1.recordset.fields(6) = text8.text data1.recordset.update msgbox 添加成功！ data2.recordsource = select * from 成績表where 學號 = & trim(text2.text) & data2.refresh data3.recordsource = select * from 密碼表where 用戶名 = & trim(text2.text) & data3.refresh data2.recordset.a

25、ddnew data2.recordset.fields(0) = text2.text data2.recordset.fields(1) = text3.text data2.recordset.update data3.recordset.addnew data3.recordset.fields(0) = text2.text data3.recordset.fields(1) = text2.text data3.recordset.update end if end if end sub private sub command2_click() me.hide main.show

26、end sub 4.2.0 修改學生信息界面：課程設計說明書no.17沈陽大學代碼如下：private sub command1_click() if text1.text = then msgbox 請輸入內容！ else data1.recordset.edit data1.recordset.fields(0) = text2.text data1.recordset.fields(1) = text3.text data1.recordset.fields(2) = text4.text data1.recordset.fields(3) = text5.text data1.reco

27、rdset.fields(4) = text6.text data1.recordset.fields(5) = text7.text data1.recordset.fields(6) = text8.text text9.text = str(val(text6.text) + val(text8.text) + val(text7.text) / 3) data1.recordset.fields(7) = text9.text data1.recordset.update msgbox 修改成功 end if end sub private sub command10_click()

28、if trim(text1.text) = then 課程設計說明書no.18沈陽大學msgbox 學號不能為空，請重新輸入！, vbokonly + vbexclamation, 警告 text1.setfocus else data1.recordsource = select * from 成績表where 學號 = & text1.text & data1.refresh if data1.recordset.eof then msgbox 學號不存在，請重新輸入！, vbokonly + vbexclamation, 警告 text1.setfocus text1.t

29、ext = 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.

30、fields(4) text7.text = data1.recordset.fields(5) text8.text = data1.recordset.fields(6) end if end if end sub private sub command2_click() me.hide main.show end sub private sub command3_click() if text1.text = then msgbox 請輸入內容！ else mybookmark = data1.recordset.bookmark str2$ = msgbox( 是否刪除當前記錄？, v

31、bokcancel, 刪除當前記錄) if str2$ = vbok then data1.recordset.delete data1.refresh 課程設計說明書no.19沈陽大學text1.text = text2.text = text3.text = text4.text = text5.text = text6.text = text7.text = text8.text = text9.text = end if end if end sub 4.2.1 學生信息查詢界面 ：代碼如下：private sub command1_click() if combo1.text = 按

32、學號 then data1.recordsource = select * from 基本信息表where 學號 = & text1.text & data1.refresh else data1.recordsource = select * from 基本信息表where 姓名 = & text1.text & data1.refresh 課程設計說明書no.20沈陽大學end if if text1.text = then data1.recordsource = select * from 基本信息表 data1.refresh end if end s

33、ub private sub command2_click() me.hide main.show 4.2.2 學生成績錄入界面 ：代碼如下：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 = then msgbox 內容不能為空，請重新輸入！ else data1.recordset.edit 課程設計說明書no.21沈陽大學data1.recordset.fiel

34、ds(0) = text2.text data1.recordset.fields(1) = text3.text data1.recordset.fields(2) = text4.text data1.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.

35、text) + val(text8.text) + val(text9.text) / 3) data1.recordset.fields(7) = text1.text data1.recordset.update msgbox 添加成功！ end if text2.text = : text3.text = : text4.text = : text5.text = : text7.text = : text8.text = : text9.text = end sub private sub command2_click() me.hide main.show end sub priva

36、te sub command3_click() data1.recordset.movefirst end sub private sub command4_click() data1.recordset.moveprevious if data1.recordset.bof then data1.recordset.movefirst end if end sub private sub command5_click() data1.recordset.movenext if data1.recordset.eof then data1.recordset.movelast end if e

37、nd sub private sub command6_click() data1.recordset.movelast end sub 4.2.3 成績修改界面 ：課程設計說明書no.22沈陽大學代碼如下：private sub command1_click() if text1.text = then msgbox 請輸入內容！ else data1.recordset.edit data1.recordset.fields(0) = text2.text data1.recordset.fields(1) = text3.text data1.recordset.fields(2) =

38、text4.text data1.recordset.fields(3) = text5.text data1.recordset.fields(4) = text6.text data1.recordset.fields(5) = text7.text data1.recordset.fields(6) = text8.text text9.text = str(val(text6.text) + val(text8.text) + val(text7.text) / 3) data1.recordset.fields(7) = text9.text data1.recordset.upda

39、te msgbox 修改成功 end if end sub private sub command10_click() if trim(text1.text) = then 課程設計說明書no.23沈陽大學msgbox 學號不能為空，請重新輸入！, vbokonly + vbexclamation, 警告 text1.setfocus else data1.recordsource = select * from 成績表where 學號 = & text1.text & data1.refresh if data1.recordset.eof then msgbox 學號不存在

40、，請重新輸入！, vbokonly + vbexclamation, 警告 text1.setfocus text1.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.te

41、xt = data1.recordset.fields(3) text6.text = data1.recordset.fields(4) text7.text = data1.recordset.fields(5) text8.text = data1.recordset.fields(6) end if end if end sub private sub command2_click() me.hide main.show end sub private sub command3_click() if text1.text = then msgbox 請輸入內容！ else mybook

42、mark = data1.recordset.bookmark str2$ = msgbox( 是否刪除當前記錄？, vbokcancel, 刪除當前記錄) if str2$ = vbok then data1.recordset.delete data1.refresh 課程設計說明書no.24沈陽大學text1.text = text2.text = text3.text = text4.text = text5.text = text6.text = text7.text = text8.text = text9.text = end if end if end sub 4.2.4 成績查詢界面：代碼如下：private sub command1_click() if combo1.text = 按學號