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

1、vb 課程設(shè)計(jì) 學(xué)生成績管理系統(tǒng) 姓名： 學(xué)號(hào)： 班級(jí)： 系別：電子工程系 前前 言言 隨著信息技術(shù)在管理上越來越深入而廣泛的應(yīng)用，管理信息系統(tǒng)的實(shí)施在 技術(shù)上已逐步成熟。管理信息系統(tǒng)是一個(gè)不斷發(fā)展的新型學(xué)科，任何一個(gè)單位 要生存要發(fā)展，要高效率地把內(nèi)部活動(dòng)有機(jī)地組織起來，就必須建立與自身特 點(diǎn)相適應(yīng)的管理信息系統(tǒng)。 本文介紹了在 visual basic6.0 環(huán)境下采用“自上而下地總體規(guī)劃，自下 而上地應(yīng)用開發(fā)”的策略開發(fā)一個(gè)管理信息系統(tǒng)的過程。通過分析學(xué)生成績管 理的不足，創(chuàng)建了一套行之有效的計(jì)算機(jī)管理學(xué)生的方案。文章介紹了學(xué)生成 績管理信息系統(tǒng)的系統(tǒng)分析部分，包括可行性分析、業(yè)務(wù)流程分

2、析等；系統(tǒng)設(shè) 計(jì)部分主要介紹了系統(tǒng)功能設(shè)計(jì)和數(shù)據(jù)庫設(shè)計(jì)及代碼設(shè)計(jì)；系統(tǒng)實(shí)現(xiàn)部分說明 了幾個(gè)主要模塊的算法， 本系統(tǒng)面友好，操作簡單，比較實(shí)用。 目 錄 前 言2 第一章 學(xué)生成績管理系統(tǒng)5 11 需求分析6 111 系統(tǒng)概述8 1. 1. 2 功能需求描 述10 第二章 總體設(shè)計(jì)及流程圖14 2.1 開發(fā)與設(shè)計(jì)的總體思 想15 2.2 系統(tǒng)模塊結(jié)構(gòu) 圖16 2.2.1 模塊設(shè) 計(jì)16 2.2.2 界面設(shè) 計(jì)17 2.2.3 數(shù)據(jù)庫設(shè) 計(jì)17 第三章 詳細(xì)設(shè)計(jì)18 3.1 學(xué)生管理模 塊18 3.2 教師管理模 塊23 3.3 課程管理模 塊23 3.4 成績管理模 塊23 參考文獻(xiàn)27 致 謝

3、27 前前 言言 幾年的學(xué)習(xí)即將結(jié)束，經(jīng)過幾個(gè)月的努力，我所設(shè)計(jì)的“學(xué)生成績管理系 統(tǒng)”也已完成。以往學(xué)的都是理論性很強(qiáng)的知識(shí)，再加上實(shí)踐機(jī)會(huì)不多，更增 強(qiáng)了我對(duì)計(jì)算機(jī)科學(xué)的興趣。在這段時(shí)間里，我增強(qiáng)了自己動(dòng)手的能力，更重 要的是似乎把握住了計(jì)算機(jī)的一些實(shí)質(zhì)性的東西終于能夠用我所學(xué)的知識(shí) 解決一些實(shí)際應(yīng)用的問題了。但我知道，數(shù)據(jù)庫技術(shù)只是計(jì)算機(jī)科學(xué)的一個(gè)小 小分支，計(jì)算機(jī)還有更廣闊的領(lǐng)域有待我們?nèi)ヌ剿鳌?這次畢業(yè)設(shè)計(jì)是用 visul basic 語言設(shè)計(jì)的“學(xué)生成績管理系統(tǒng)” ，這就 要求對(duì) visul basic 語言及數(shù)據(jù)庫技術(shù)能夠真正了解和熟練的掌握，并且能夠 靈活的運(yùn)用。 當(dāng)今的時(shí)代是

4、信息的時(shí)代，數(shù)據(jù)庫技術(shù)是數(shù)據(jù)管理的最新方法，也是信息 管理中一項(xiàng)非常重要的新技術(shù)，數(shù)據(jù)庫管理是幫助人們處理大量信息，實(shí)現(xiàn)科 學(xué)化和現(xiàn)代化的強(qiáng)有力工具，數(shù)據(jù)庫管理子系統(tǒng)已發(fā)展成為通用的系統(tǒng)軟件。 由于數(shù)據(jù)庫具有數(shù)據(jù)結(jié)構(gòu)化、最低冗余度、較高的程序獨(dú)立性、易于擴(kuò)充、易 于編制應(yīng)用程序等優(yōu)點(diǎn)，因而是近年來發(fā)展非常迅猛的計(jì)算機(jī)軟件。數(shù)據(jù)庫技 術(shù)是數(shù)據(jù)信息管理技術(shù)的最新成果，被廣泛應(yīng)用于國民經(jīng)濟(jì)、文化教育、軍事 情報(bào)、科學(xué)計(jì)算、人工智能和計(jì)算機(jī)輔助設(shè)計(jì)領(lǐng)域，為計(jì)算機(jī)的應(yīng)用開辟了廣 闊的天地。 第一章 學(xué)生成績管理系統(tǒng) 11 需求分析 考試成績是學(xué)生在校期間的重要?dú)v史資料，學(xué)生成績信息的管理（成績的 錄入、

5、查詢、分類統(tǒng)計(jì)等）是各個(gè)學(xué)校面臨的一個(gè)重要問題。該成績管理系統(tǒng) 主要是用于管理在校學(xué)生的考試成績，對(duì)教、班級(jí)、學(xué)生、課程和成績信息進(jìn) 行維護(hù)與管理。本系統(tǒng)要求運(yùn)行穩(wěn)定，圖形用戶界面符合用戶的日常使用習(xí)慣， 數(shù)據(jù)處理正確無誤。 111 系統(tǒng)概述 學(xué)生成績管理系統(tǒng)主要完成學(xué)生成績的管理，包括： （1）教師管理。主要完成教師的添加、修改、刪除和查詢。 （2）班級(jí)管理。主要完成班級(jí)的添加、修改、刪除和班級(jí)列表。 （3）學(xué)生管理。主要完成對(duì)學(xué)生信息的添加、修改、刪除和查詢。 （4）課程管理。主要完成對(duì)課程信息的維護(hù)，包括課程添加、修改、 刪除和查詢功能。 （5）成績管理。主要完成成績的添加、刪改和成績杳

6、詢。 1.1.2 功能需求描述 該系統(tǒng)的功能需求有如下幾個(gè)方面： （1）教師管理。主要用于對(duì)教師信息進(jìn)得維護(hù)。功能包括新教師信息的添加、 修改和刪除已有的教師信息，對(duì)教師信息進(jìn)行查詢。 （2）班級(jí)管理。主要用于對(duì)班級(jí)信息進(jìn)行維護(hù)。功能包括對(duì)班級(jí)信息的添 加、刪改和班級(jí)列表。 （3）學(xué)生管理。主要用于維護(hù)學(xué)生信息。功能包括對(duì)學(xué)生信息的添加、刪 改和查詢。 （4）課程管理。主要用于維護(hù)課程信息，功能包括課程的添加、刪改和查 詢。 （5）成績管理。用于維護(hù)成績信息，功能包括成績的添加和查詢。 第二章 總體設(shè)計(jì)及流程圖 上面的需求分析已經(jīng)對(duì)系統(tǒng)的功能需求、環(huán)境需求做了較為明確的闡述。根 據(jù)上述需求，下

7、面按照開發(fā)設(shè)計(jì)思想、功能模塊、圖形用戶界面、數(shù)據(jù)庫等方 面闡述成績管理系統(tǒng)的總體設(shè)計(jì)。 2.1 開發(fā)與設(shè)計(jì)的總體思想 作為學(xué)校使用的成績管理系統(tǒng)，能夠滿足成績管理的基本功能需求，界面簡 單、操作簡便是設(shè)計(jì)的一個(gè)重要考慮。 2.22.2 系統(tǒng)模塊結(jié)構(gòu)圖系統(tǒng)模塊結(jié)構(gòu)圖 2.2.1 模塊設(shè)計(jì) 圖 2-7 主窗體菜單設(shè)計(jì)的效果圖 1.教師管理菜單設(shè)計(jì) （1）教師信息添加界面設(shè)計(jì) 教師信息添加界面使用文本框輸入教師相關(guān)基本信息，使用組合列表框選 擇部門和性別。單擊添加按鈕保存教師信息，單擊返回按鈕返回主菜單。具體 設(shè)計(jì)效果圖如圖 2-8 所示。 圖 2-8 具體設(shè)計(jì)效果圖 （2）教師信息修改刪除界面設(shè)計(jì)

8、 圖 2-9 具體設(shè)計(jì)效果圖 2.學(xué)生管理界面設(shè)計(jì) （1）學(xué)生信息添加界面設(shè)計(jì) 學(xué)生信息添加界面使用文本框輸入學(xué)生的姓名、學(xué)號(hào)、生日、電話、地址 和備注信息。同時(shí)使用了兩個(gè)組合列表框，分別用于選擇班級(jí)和性別。組合列 表框中的數(shù)據(jù)會(huì)在窗體加載的時(shí)候就進(jìn)行初始化。具體設(shè)計(jì)效果圖如圖 1-11 所 示。 （2）學(xué)生信息刪改界面設(shè)計(jì) 在學(xué)生信息刪改界面中，在班級(jí)組合列表框中選擇班級(jí)，該班級(jí)的所有學(xué) 號(hào)會(huì)添加到學(xué)號(hào)組合列表框中，在學(xué)號(hào)組合列表框中選擇學(xué)號(hào)，就會(huì)在下方顯 示該學(xué)生的基本信息。根據(jù)需要單擊修改按鈕來修改學(xué)生信息，也可以單擊刪 除按鈕來刪除該學(xué)生的信息，或是單擊返回按鈕返回主菜單。具體設(shè)計(jì)效果

9、圖 如圖 2-10 所示。 圖 2-10 具體設(shè)計(jì)效果圖 （3）學(xué)生信息查詢界面設(shè)計(jì) 學(xué)生信息查詢辦面提供了四種查詢方式：全部、按班級(jí)查詢、按學(xué)號(hào)查詢 和按姓名查詢。提供了一個(gè)表格用于赤示查詢結(jié)果。 3.課程管理界面設(shè)計(jì) （1）課程信息添加界面設(shè)計(jì) 課程添加界面提供了文本框，用于輸入課程名稱、課程編號(hào)、課程學(xué)時(shí)數(shù)和 學(xué)分等課程基本信息。并且提供了兩個(gè)組合列表框，分別用于選擇課程類型和 任課教師。這兩個(gè)組合列表框的數(shù)據(jù)是在加載窗體的時(shí)候進(jìn)行初始化的。 （2）課程信息刪改界面設(shè)計(jì) 課程信息刪改界面提供了文本框，用于輸入課程編號(hào)，單擊查詢按鈕就會(huì)查 找該課程編號(hào)所代表的課程信息，找到后將信息顯示出來

10、。修改和刪除按鈕用 于完成修改和刪除操作。具體設(shè)計(jì)效果圖如圖 2-11 所示。 圖 2-11 具體設(shè)計(jì)效果圖 4.成績管理界面設(shè)計(jì) （1）成績錄入界面設(shè)計(jì) 成績界面使用文本框輸入學(xué)生學(xué)號(hào)和課程成績。使用組合列表框選擇課程 編號(hào)。使用表格顯示查詢結(jié)果。使用兩個(gè)文本框顯示學(xué)生姓名和課程名稱。這 兩個(gè)文本框是不可編輯的。具體設(shè)計(jì)效果圖如圖 2-12 所示。 圖 2-12 具體設(shè)計(jì)效果圖 （2）成績刪改界面設(shè)計(jì) 圖 2-13 具體設(shè)計(jì)效果圖 （3）成績查詢界面設(shè)計(jì) 成績查詢界面提供了三種查詢方式：按學(xué)號(hào)、按課程和按成績查詢。使用 表格顯示查詢結(jié)果。 2.2.3 數(shù)據(jù)庫設(shè)計(jì) 根據(jù)系統(tǒng)功能設(shè)計(jì)的要求以及功

11、能模塊的劃分，數(shù)據(jù)庫表結(jié)構(gòu)設(shè)計(jì)如下。 1.學(xué)生信息表 名稱：學(xué)生信息表（見表 2-1） 表名稱標(biāo)識(shí)：studentinfo 數(shù)據(jù)來源：學(xué)生管理模塊進(jìn)行錄入。 2教師信息表 名稱：教師信息表（見表 2-2） 表名稱標(biāo)識(shí)：teacherinfo 數(shù)據(jù)來源：教師管理模塊進(jìn)行錄入。 3.班級(jí)信息表 表 2-3 班級(jí)信息表 名稱字段名稱類型主鍵非空 班級(jí)編號(hào) classno 文本 yesyes 班級(jí)名稱 classname 文本 noyes 4.部門信息表 表 2-4 部門信息表 名稱字段名稱類型主鍵非空 部門編號(hào)dept_no文本yesyes 部門名稱dept_name文本noyes 5.課程信息表

12、表 2-5 課程信息表 名稱字段名稱類型主鍵非空 序號(hào)no自動(dòng)編號(hào)yesyes 課程編號(hào)course_no文本noyes 課程名稱course_name文本noyes 課程類型course_type文本noyes 學(xué)時(shí)數(shù)course_hours數(shù)字noyes 學(xué)分score數(shù)字noyes 授課教師teacher文本noyes 6.成績信息表 表 2-6 成績信息表 名稱字段名稱類型主鍵非空 編號(hào)no自動(dòng)編號(hào)yesyes 學(xué)號(hào)stu_no文本noyes 課程號(hào)course_no文本noyes 成績score數(shù)字noyes 第三章 詳細(xì)設(shè)計(jì) 基于系統(tǒng)需求分析與系統(tǒng)總體設(shè)計(jì)的結(jié)論，本系統(tǒng)采用 vis

13、ual basic 6.0 實(shí)現(xiàn)各模塊的功能，下面按照功能模塊的劃分來分別闡述系統(tǒng)的詳細(xì)設(shè)計(jì)和實(shí) 現(xiàn)過程。 3.1 學(xué)生管理模塊 1.功能描述 為用戶提供學(xué)生信息的添加、修改、刪除和查詢界面，完成學(xué)生信息的添 加、修改、刪除和查詢功能。 2.窗體和源文件定義 該功能模塊涉及到的窗體名稱和文件名參見表 3-1。 表 3-1 窗體列表 窗體各稱窗體文件名作用 frmstudentfrmstudent.frm 用于學(xué)生信息添加 frmupdatestudentfrmupdatestudent.frm 用于修改、刪除學(xué)生信 息 frmquerystudentfrmquerystudent.frm 用于

14、查詢學(xué)生信息 module1module1.bas 用于定義全局變量和公 用函數(shù) 3.2 教師管理模塊 1功能描述 該模塊提供教師信息的添加、修改、刪除和查詢界面，完成教師信息的添加、 修改、刪除和查詢功能。 2窗體和源文件定義 表 3-3 窗體列表 窗體名稱窗體文件名作用 frmaddteacherfrmaddteacher.frm 用于教師信息 添加 frmupdateteacherfrmupdateteacher.frm 用于修改、刪 除教師信息 frmqueryteacherfrmqueryteacher.frm 用于查詢教師 信息 3.變量聲明 窗體模塊中的聲明 public sql

15、str as string public msgtext as string 代碼模塊中的聲明 public dbpath as string public connstr as string 4.函數(shù)與方法聲明 表 3-4 主要函數(shù)與方法 窗體名稱函數(shù)/方法名作用 frmaddteachersub initdepartment() 在組合列表框中列 出所有部門名稱 sub initform() 初始化窗體上的文 本框和組合列表框 private sub cmdok_click() 添加教師信息 sub initdepartment() 在組合列表框中列 出所有部門名稱 sub inittea

16、cherno() 在組合列表框中列 出所有教師編號(hào) sub getteacherno() 獲取教師信息 private sub cmddelete_click() 刪除教師信息 frmupdateteacher privatesubcmdupdate_click( ) 修改教師信息 sub initdepartment() 在組合列表框中列 出所有部門名稱 sub inittitles() 在組合列表框中列 出所有的職稱 frmqueryteacher private sub queryteacher() 查詢教師信息 處理： 1)獲取信息輸入窗口中填寫的數(shù)據(jù)。 2)執(zhí)行查詢得到結(jié)果集，然后調(diào)

17、用結(jié)果集對(duì)象的 addnew 方法。 3)設(shè)置各個(gè)字段的值。 4)調(diào)用 update 方法更新結(jié)果集，完成教師信息添加。 輸出：將數(shù)據(jù)寫入教師信息表 程序清單：與學(xué)生信息添加代碼類似，請參考本書提供的源代碼。 (3)frmupdateteacher 窗體：private sub cmdupdate_click() 功能：主要用來完成教師信息的修改，將窗體上修改后的信息添加到數(shù)據(jù)庫中。 輸入：教師信息刪改窗體上輸入的數(shù)據(jù)。 處理： 1)獲取信息輸入窗口中填寫的數(shù)據(jù)并得到 sql 語句。 2)執(zhí)行 sql 語句完成數(shù)據(jù)修改。 輸出：將修改后的數(shù)據(jù)寫入教師信息表。 程序清單： private sub

18、 cmdupdate_click() dim conn as adodb.connection sqlstr= “update teacherinfo set birthdate=#”& txtbirth & “#,department= ”&cbodept(0).text & “,telno= ”&txttel.text&” ,title= ”&txttitle.text&” ”& “where teacher_no= ” & txtno.text & “ ” on error goto exitsub set conn=new adodb.connection conn.open conn

19、str conn.execute sqlstr msgbox “成功修改數(shù)據(jù)!” exitsub: conn.close initdepartment end sub 3.5 成績管理模塊 1功能描述 該模塊提供成績信息的錄入、修改、刪除和查詢界面，完成成績信息的 錄入、修改、刪除和查詢功能。 2窗體和源文件定義 該功能模塊涉及到的窗體名稱和文件名參見表 3-9。 表 3-9 窗體列表 窗體名稱窗體文件名作用 frmaddscorefrmaddscore.frm 用于成績信息 添加 frmupdatescorefrmupdatescore.frm 用于修改、刪 除成績信息 frmquerysc

20、orefrmqueryscore.frm 用于查詢成績 信息 3.變量聲明 窗體模塊中的聲明 public sqlstr as string public msgtext as string 代碼模塊中的聲明 public dbpath as string public connstr as string 4函數(shù)與方法聲明 表 3-10 主要函數(shù)與方法 窗體名稱函數(shù)/方法名作用 sub initcourseno() 在下拉列表框中顯示所有 課程號(hào) private sub txtstuno_keypress(keyascii as integer) 文本框響應(yīng)回車鍵，如果 輸入學(xué)號(hào)后回車，就會(huì)查

21、 找并顯示學(xué)生姓名 private sub cbocourseno_click() 在組合列表框中選擇課程 編號(hào)，觸發(fā) click 事件， 查找顯示課程名稱 frmaddscore private sub cmdok_click() 向數(shù)據(jù)庫中添加成績信息 sub initcourseno() 在下拉列表框中顯示所有 課程號(hào) sub getscoreinfo() 從數(shù)據(jù)庫中查找成績信息 private sub cmdupdate_click() 修改成績信息 frmupdatesc ore private sub cmddelete_click() 刪除成績信息 frmquerysco re

22、private sub cmdok_click() 查詢成績 (1)frmaddscore 窗體：private sub txtstuno_keypress(keyascii as integer) 功能：相應(yīng)鍵盤事件，如果是回車鍵，則按學(xué)號(hào)查詢學(xué)生姓名。 輸入：按鍵的 ascii 碼。 處理： 1)判斷按鍵是否為回車鍵。 2)如果為回車鍵，剛轉(zhuǎn) 3,否則退出。 3)查詢學(xué)生姓名并顯示出來。 輸出：學(xué)生姓名。 程序清單： private sub txtstuno_keypress(keyascii as integer) dim rststudent as adodb.recordset if

23、 keyascii=13 then sqlstr= “select name from studentinfo” set rststudent=executesql(sqlstr,msgtext) if not rststudent.eof then txtname=rststudent.fields(0) else msgbox “未找到學(xué)生的信息記錄！”,vbokonly+vbexclamation, “警告” exit sub end if rststudent.close end if end sub (2)frmaddscore 窗體：private sub cmdok_click(

24、) 功能：將窗體中的成績信息添加到數(shù)據(jù)庫中。 輸入：成績添加窗體中填寫的數(shù)據(jù)。 處理： 1)獲取信息輸入窗口中填寫的數(shù)據(jù)。 2)執(zhí)行查詢得到結(jié)果集，然后調(diào)用結(jié)果集對(duì)象的 addnew 方法。 3)設(shè)置各個(gè)字段的值。 4)調(diào)用 update 方法更新結(jié)果集，完成成績信息添加。 輸出：將成績信息寫入數(shù)據(jù)庫。 程序清單： private sub cmdok_click() dim rstscore as adodb.recordset dim stuno as string dim courseno as string dim score as string 獲取數(shù)據(jù) stuno=trim(txts

25、tuno.text) courseno=trim(cbocourseno.text) score=trim(txtscore.text) if stuno= “”or score= “”then msgbox “請將信息補(bǔ)充完整”,vbokonly+vbexclamation, “警告” exit sub end if 添加新記錄 sqlstr=”select*from scoreinfo” set rstscore=executesql(sqlstr,msgtext) rstscore.addnew rstscore.fields(“stu_no”)=stuno rstscore.field

26、s(“course_no”)=courseno rstscore.fields(“course_score”)=score rstscore.update rstscore.close msgbox “成績信息添加完成！”,vbookonly+vbexclamation, “警告” initform end sub (3)frmupdatescore 窗體:sub getscoreinfo() 功能：根據(jù)課程編號(hào)和學(xué)號(hào)，從數(shù)據(jù)庫中讀取成績信息、課程名和學(xué)生名。 輸入：課程編號(hào)和學(xué)號(hào)。 處理： 1)獲取課程名稱和學(xué)號(hào)，得到多表查詢的 sql 語句。 2)執(zhí)行查詢得到結(jié)果集。 3)從結(jié)果集中讀取各

27、個(gè)字段的值并顯示出來。 輸出：學(xué)生姓名、課程名稱、考試成績。 程序清單： sub getscoreinfo() dim rstscore as adodb.recordset 從數(shù)據(jù)庫中讀取成績相關(guān)信息并添加到窗體中的輸入框 sqlstr= “select name,course_name,coure_score from courseinfo,studentinfo,scoreinfo”&“wherescoreinfo.course_no= ”&cbo courseno.text & “ ”& “and scoreinfo.course_no=courseinfo.course_no”& “

28、and scoreinfo.stu_no=studentinfo.stu_no”& “and scoreinfo.stu_no= ”& txtstuno.text & “ ” txtname=trim(rstscore.fields(“name”) txtcoursename.text=trim(rstscore.fields(“dourse_name”) txtscore.text=trim(rstscore.fields(“course_score”) else msgbox “沒找到符合條件的數(shù)據(jù)！”,vbokonly+vbexclamation, “警告” exit sub end i

29、f rstscore.close end sub (4)frmqueryscore 窗體:private sub cmdok_click() 功能：根據(jù)查詢條件查找成績信息。 輸入：查詢方式和關(guān)鍵字。 處理： 1)獲取查詢方式和輸入的關(guān)鍵字。 2)形成 sql 語句，執(zhí)行 sql 語句得到結(jié)果集。 3)從結(jié)果集中讀取全部數(shù)據(jù)，并在表格中顯示出來。 輸出：符合查詢條件的課程成績信息。 程序清單： dim sqlstr1 as string dim sqlcond1 as string dim sqlcond2 as string dim sqlcond3 as string dim sign as boolean sqlcond1= “” sqlcond2= “” sqlcond3= “” sign=false sqlstr=”selectstudentinfo.stu_noasstuno.studenti as stuname,”_ &“courseinfo.course_nameascoursename,scoreinfo.course_score as score”&_ “from studentinfo,courseinfo,