《計算機專業(yè)本科畢業(yè)論文》由會員分享，可在線閱讀，更多相關《計算機專業(yè)本科畢業(yè)論文（19頁珍藏版）》請在裝配圖網上搜索。

1、. -東北師大 學本 科 生 畢 業(yè) 論 文設計題目：學生成績管理系統(tǒng)設計與實現*：001*：燕年級：1003學院：省仁壽縣教師進修學校奧鵬學習中心24A專業(yè)：計算機科學與技術完成日期：指導教師：摘 要本系統(tǒng)全稱為學生成績管理系統(tǒng)設計與實現。根據開發(fā)要求，它主要應用于教育系統(tǒng)，完成對日常的教學、教務、教師以及學生的計算機化的管理。開發(fā)學生成績管理系統(tǒng)可使學院教職員工減輕工作壓力，比較系統(tǒng)地對教務、教學上的各項效勞和信息進展管理，同時，可以減少勞動力的使用，加快查詢速度、加強管理，以及國家各部門關于信息化的步伐，使各項管理更加規(guī)化。目前，學校工作繁雜、資料重多。目前，管理信息系統(tǒng)已進入高校，但還

2、未普及，而對于學生成績管理來說，目前還沒有一套完整的、統(tǒng)一的系統(tǒng)。因此，開發(fā)一套適和群眾的、兼容性好的系統(tǒng)是很有必要的。系統(tǒng)管理容廣泛，全面涉及了教務教學上的各項效勞，包括學生成績管理，其中有學生成績管理；學生管理等等。在開發(fā)過程中，注意使其符合操作的業(yè)務流程，并力求系統(tǒng)的全面性、通用性，使得本系統(tǒng)不只適用于一家教育機構。在開發(fā)方法的選擇上，選擇了生命周期法與原型法相結合的方法，遵循系統(tǒng)調查研究、系統(tǒng)分析、系統(tǒng)設計和系統(tǒng)實施四個主要階段進展設計，而在具體的設計上，采取了演化式原型法，隨著用戶的使用及對系統(tǒng)了解的不斷加深，對*一局部或幾局部進展重新分析、設計、實施。在開發(fā)工具的選擇上，主要利用D

3、elphi7.0編程語言進展開發(fā)，使用其自帶的數據庫，從而保證了數據的完整性與一致性。本論文主要從系統(tǒng)分析、系統(tǒng)設計、系統(tǒng)實施與使用等幾個方面進展介紹。 【關鍵詞】信息管理系統(tǒng) 信息化 成績管理 數據庫 Delphi7.0AbstractThe name of our system is grade Management System. the system is mainly applied to education system which manageas the daily teaching educational administration and puteration of te

4、achers and students. Developing grade Management System can not only ruduce the presure of the staff and systematically manage the service and information, but also decrease the use of labour force, accelerate the requiring speed, improve management, speed the pace of concernad national department a

5、utumated information retrieval to standardize the managements. Nowdays, the universities work are miscellaneous,especially in private ones.Its important to put the teachers management on the table. Up to now, mamagement has e into universities but not popularized. As for the teaching management, the

6、re is not a set of plete and unified system, so its very necessary to develop a mon,patible one. The system is wide and prehensive in including most of the service items of teaching plans, such as grade management which refers to teaching plans, grade management, students management and so on. In de

7、veloping procedure, we pursure the prehensiveness and momality of the system, so that it can not only be applied in one educational institution. In choosing the developing methods, we bine the life sycle approach and the prototype-based approach, approach in four main steps: system investigation, sy

8、stem analysis, system design and system implementation. AS to data design, evolutionary prototype-based approach is partialy adopted to reanalysize, redisign and reimplemate with the users ever-increasing understanding of the system. In choosing the developing tool, Delphi 7.0 programming language i

9、s employed. In line of its self-sustaining. to ensure the integratedness and consistency. This thesis mainly introduce the ideas of the analysizing ,designing ,implementing and application of this system.目 錄1問題定義41.1 工程概述41.2 經濟目標41.3 社會目標41.4 工程規(guī)模42可行性分析42.1總體可行性分析42. 2業(yè)務流程分析52.3數據流程分析62.4數據存儲分析：實體

10、聯系圖72.5系統(tǒng)功能模塊圖93需求分析103.1系統(tǒng)總體功能需求103.2系統(tǒng)主要模塊104概要設計1041系統(tǒng)方案確定104.2軟件構造設計115詳細設計115.1 用到的建立數據庫的技術115.2 具體的數據庫表127全文總結198致209參考文獻2110 附錄221問題定義1.1 工程概述 開展該工程的原因由于現今的學生成績管理非常繁瑣，教師付出大量的工作時間，得到的效率很低。因此為提高工作效率，減輕校方人員的工作負擔，決定開發(fā)學生成績管理系統(tǒng)軟件。 該工程的根本目標開發(fā)此學生成績管理系統(tǒng)軟件，以供教學人員及操作者進展學生成績管理，方便操作者隨時添加、查詢、修改等。為了我們提高軟件開發(fā)

11、的能力，學習SQL編程的技巧，提高工作設計思想，通過本次的工程開發(fā)，開發(fā)小組成員與輔助教師，能從中學習知識吸取經歷，再技術和軟件思想上同時得到鍛煉和提高，從而使總體水升到一個新的高度。1.2 經濟目標由于本學生成績開發(fā)系統(tǒng)的主要背景在經濟上不注重直接的經濟收益，而是注重個人水平的提高和提高對所學知識的運用。1.3 社會目標本系統(tǒng)主要是由dephli7.0,Microsoft SQL Server進展設計開發(fā)，此系統(tǒng)是基于客戶端/效勞端的大型關系數據庫管理系統(tǒng)。1.4 工程規(guī)模該工程所需的時間一個人2個月即可以完成。2可行性分析2.1總體可行性分析由于本系統(tǒng)管理的對象單一,都是在校學生，且每個數

12、據容具有較強的關聯性，涉及的計算過程不是很復雜。因此，比較適合于采用數據庫管理。且學校用于學生管理的都是個人計算機，在存儲量、速度方面都能滿足數據庫運行的要求。在技術難度方面，由于有指導教師的指導和相關參考文獻，特別是網上資料，特別是參考其它程序的功能，因此完全可以實現。本系統(tǒng)的設計是在Windows *p中文版操作系統(tǒng)環(huán)境下，使用 delphi 7.0中文版開發(fā)成功的。數據庫是MIS中的重要支持技術，在MIS開發(fā)過程中，如何選擇數據庫管理是一個重要的問題，目前，數據庫產品較多，每種產品都具有各自的特點和適用圍，因此，在選擇數據庫時，應考慮數據庫應用的特點及適用圍，本系統(tǒng)選用的數據庫語言介紹如

13、下：于是選擇了美國 Borland 公司推出的 Delphi7.0 開發(fā)工具。在pc機數據庫系統(tǒng)*base家族中，Delphi是第一個全面支持面向對象程序設計的數據庫語言工具。Delphi推出了7.0版本，它的主要特點有： 1.強大的查詢與管理功能2.強大的數據庫開發(fā)功能3.擴大了對SQL語言的支持4.大量使用可視化的界面操作工具5.支持面向對象的程序設計6.多平臺支持7.支持網絡應用2. 2業(yè)務流程分析成績管理業(yè)務流程圖： 教務處輸入計算機教師教務處學生成績教師輸出計算機機圖2-1教務處輸入計算機班主任教務處學生班級班級輸出輸出計算機圖2-22.3數據流程分析數據流程圖下面我們詳細的介紹學生

14、成績管理模塊的數據流圖。學籍管理部門教師學生成績管理系統(tǒng)教務處學生教師教師學生情況學生成績查詢統(tǒng)計分析圖2-3學生成績管理系統(tǒng)的0層數據流圖管理部門教務處教師1.0學生管理2.0課程管理3.0成績管理4.0統(tǒng)計分析D1D2D3查詢者管理者學生課程成績 圖2-4學生成績管理系統(tǒng)1層數據流程圖2.4數據存儲分析：實體聯系圖1、數據模型設計。首先來做出學生成績管理系統(tǒng)的E-R圖，分析這個問題的實體，從系統(tǒng)分析可以知道，學生的成績是由任課教師按照課程給出的，學生、課程、教師組成了這個系統(tǒng)的三個實體。2、再分析三個實體之間的聯系。首先，這三個實體不是一個統(tǒng)一體，學生成績與教師沒有在聯系，教師必須通過課程

15、實體才能與學生建立聯系，因而先不考慮。課程與學生這兩個實體是多對多聯系；一位學生要學習多門課程，一門課程有多位學生共同學習。而學習成績是這兩個實體學生和成績共有的屬性，應填在二者的聯系學習邊。因為成績既不是學生獨有的，也不是課程獨有的；學生甲70分或英語70分是不完全的，說學生甲英語70分才是正確的，因為70分是學生甲和英語課二者共有的。這個E-R圖可畫成以下圖。學生課程成績學習mn 圖2-5學生成績管理系統(tǒng)中學生與課程的E-R圖教師與課程這兩個實體之間，是一對多聯系；一位教師可以都多門課程，而一門課程對于學生成績來說只能有一位教師(英語、高等數學有多位教師教，但對*個固定的學生來說只能有一位

16、教師)。其E-R圖，如下所示。n教師課程教學l 圖2-6教師與課程的E-R圖組合到一起，得到最后的E-R圖，有了E-R圖，就可以設計數據庫。以下圖為數據模型圖。學生課程教師學習學習課程學生教師實體模型數據模型數據庫lnmm學習圖2-72.5系統(tǒng)功能模塊圖學生成績管理系統(tǒng)成績管理模塊成績查詢模塊系統(tǒng)維護模塊修改用戶權限添加學生的成績成績打印模塊修改學生的成績刪除學生的成績刪除用戶修改密碼添加新用戶打印到表e*cel學生成績分析學生成績統(tǒng)計查詢學生的信息查詢學生的考試成績?yōu)g覽學生的成績圖2-83需求分析3.1系統(tǒng)總體功能需求通過調查,要求系統(tǒng)需要有以下功能:由于操作人員的計算機知識普遍較差,要求有

17、良好的人機界面;由于該系統(tǒng)的使用對象多,要求有較好的權限管理; 原始數據修改簡單方便,支持多條件修改方便的數據查詢，支持多條件查詢;在相應的權限下，刪除數據方便簡單，數據穩(wěn)定性好；數據計算自動完成，盡量減少人工干預;3.2系統(tǒng)主要模塊 學生查詢模塊TRL+A)查詢學生的信息，具體是學生的*、年齡，家庭地址，家庭等和查詢各個課程的考試情況成績打印(CTRL+B)管理學生的成績報表的打印以及打印報表的整理、維護、保存等。成績管理模塊CTRL+C學校的成績管理工作是檢驗學生學習情況的一個主要手段，本模塊包，設置了成績添加、成績游覽、成績查詢等功能模塊。4概要設計41系統(tǒng)方案確定通過對系統(tǒng)的調研與分析

18、，系統(tǒng)主要應完成的功能有：學生成績管理、課程管理、成績管理、系統(tǒng)管理，成績查詢，成績打印。4.2軟件構造設計主程序系統(tǒng)模塊數據維護模塊數據瀏覽模塊成績管理模塊修改密碼退出修改搜索刪除瀏覽打印輸入統(tǒng)計分析圖 4-1數據維護模塊包括對學生信息表、課程信息表、考生成績表的插入、修改、刪除、搜索等。數據瀏覽模塊包括對學生信息表、課程信息表、考生成績表的選擇瀏覽、打印。成績管理模塊包括對學生成績的輸入，總分和單課的統(tǒng)計和排名，分析各分數段人數的分布情況。5詳細設計5.1 用到的建立數據庫的技術數據庫采用了Microsoft推出的SQL數據庫，這是微軟的一個大型數據庫，可以方便的進展數據庫的連接。在數據庫

19、里建一個數據庫，名字取為student, student里有三個表，學生信息表，課程信息表，考生成績表，用戶表5.2 具體的數據庫表通過對成績管理系統(tǒng)的分析，系統(tǒng)應設計以下主要實體kj課程表字段名稱類型寬度小數位課程號整形10課程名文本50考試類別文本10課程類別文本10開課學期文本10學分單精度型數字自動*f(學生信息表)字段名稱類型寬度小數位*整型16文本20年齡整型5院系文本8專業(yè)文本16出生日期文本8備注備注 Cj(成績表)字段名稱類型寬度小數位*整型16文本12課程號整型8課程名稱文本50分數浮點20開課學期日期型10排名整型20Use表：字段名稱類型寬度小數位username文本2

20、0password文本20Admin文本2Readonly文本2學生E-R圖：學生出生日期*院系專業(yè)年齡圖 5-1課程E-R圖：課程開課學期考試類別課程名學分課程號開課類別圖 5-25.3主要的模塊登陸模塊 本界面的主要功能是為了對系統(tǒng)進展平安性管理，本系統(tǒng)的用戶名和密碼保存在USE表中，本系統(tǒng)根據不同的用戶而設置了不同的權限，可以用zhangsan，05020899登陸本系統(tǒng)。圖 5-3主界面圖 5-4查詢模塊可以方便的查詢到學生的根本信息，選課信息查詢到學生的根本信息圖 5-5圖 5-6添加，刪除，修改，保存模塊該模塊可以方便的對學生的成績進展處理圖 5-7打印模塊把學生的數據從學生成績管

21、理系統(tǒng)打印到e*cel中圖 5-87全文總結在本系統(tǒng)的開發(fā)過程中，由于本人是初次開發(fā)軟件，在知識、經歷方面都存在著缺乏。另外，在整個開發(fā)的過程中，時間也比較倉促。因此，該系統(tǒng)必然會存在一些缺陷和缺乏。因為對學生成績管理的整個流程不夠熟悉，在需求分析時未能做到完全滿足用戶的需求。雖然網絡在學生管理系統(tǒng)中的應用很多，因此是未來的開展方向，在本次開發(fā)過程由于硬件的限制，實現網絡的根本功能，因此在以后的系統(tǒng)更新過程中可能會造成一些不必要的數據損失。盡管本管理系統(tǒng)存在著很多缺乏，但其功能全面、易于日后程序更新、數據庫管理容易、界面友好、操作方便、效率高、平安性好等優(yōu)點是本管理系統(tǒng)所必需的。相信本學生成績

22、系統(tǒng)是一套學校在日常管理中必不可少的管理軟件，通過開發(fā)這個系統(tǒng)，我掌握了的項本過程，了解了的根本知識穩(wěn)固了我對delphi 7.0和SQL2000畢業(yè)設計中的最大收獲并不是掌握這幾門開發(fā)工具的應用，而是學會了設計系統(tǒng)的思維方法。8致 本次畢業(yè)設計是在王厚淳教師的悉心指導和熱心幫助下完成的。王厚淳教師認真負責的工作制度，嚴謹的治學精神和深厚的理論水平都使我收益匪淺。他無論在理論上還是在實踐中都給我很大的鼓勵和指導，使我得到不少的提高，這對于我以后的工作和學習都有很大的幫助。沒有王厚淳教師的關心和幫助，我的課題是不可能順利完成的，特此對王厚淳導師表示真誠的感。9參考文獻1 周佩德.數據庫原理及應用

23、.電子工業(yè)2明等，delphi程序設計數據庫篇，19993 光明.Delphi6.0編程實例大制作.冶金工業(yè)4，明 精通DELPHI6.0入門與提高，人民郵電5 紅等編著，成績管理系統(tǒng)開發(fā)與應用，電子工業(yè)，20036海藩著，軟件工程，清華大學，20057 康博工作室，紅軍，王紅等編著Dephli6.0中文版高級應用與開發(fā)指南，人民郵電，2005年4月第3版8 sql2000編程 清華大學10 附 錄局部代碼：Private Sub mand1_Click()Dim mrc As ADODB.Recordsett*tsql = select username from use where use

24、rname= & Trim(Te*t1.Te*t) & Set mrc = E*ecuteSQL(t*tsql)If mrc.EOF = True Then MsgBo* 用戶名錯誤！, vbE*clamation + vbOKOnly, 警告 Te*t1.SetFocus Te*t1.SelStart = 0 Te*t1.SelLength = Len(Te*t1.Te*t) E*it SubEnd Ifusername = mrc.Fields(0)t*tsql2 = select username from use where password= & Trim(Te*t2.Te*t) &

25、 Set mrc = E*ecuteSQL(t*tsql2)If mrc.EOF = True Then MsgBo* 密碼錯誤！, vbE*clamation + vbOKOnly, 警告 Te*t2.SetFocus Te*t2.SelStart = 0 Te*t2.SelLength = Len(Te*t2.Te*t) E*it SubEnd Ift*tsql = select username from use where username= & Trim(Te*t1.Te*t) & and password= & Trim(Te*t2.Te*t) & Set mrc = E*ecut

26、eSQL(t*tsql)If mrc.EOF = True Then MsgBo* 用戶名稱和密碼不匹配！, vbE*clamation + vbOKOnly, 警告 E*it SubEnd IfMDIForm1.ShowUnload MeEnd SubPrivate Sub mand2_Click()Unload MeEnd SubPrivate Sub Form_Load()End SubPrivate Sub Te*t1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Te*t2.SetFocusEnd IfEnd SubPrivat

27、e Sub Te*t2_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then mand1.SetFocusEnd IfEnd Subend if W_sturesearch.open():dw_1.settransobject(sqlca)dw_1.retrieve()/有關窗口居中的代碼這里從略，請參考其他模塊。Cb*_1.clicked()/復選框的第一個選項被選單擊時的事件代碼： st_1.te*t=請輸入*：cb*_2.checked=falsecb*_3.checked=falsecb*_4.checked=falsecb*_5.che

28、cked=falsesle_1.setfocus()Cb*_2.clicked(),cb*_3.clicked()，cb*_4.clicked(),cb*_5.clicked()的代碼可參考cb*_1.clicked()this.te*t=if cb*_1.checked=true then dw_1.setfilter(student_sno=+sle_1.te*t+) dw_1.filter()end if if cb*_2.checked=true thendw_1.setfilter(student_sname=+sle_1.te*t+) dw_1.filter()end ifif c

29、b*_3.checked=true thendw_1.setfilter(student_classno=+sle_1.te*t+) dw_1.filter()end ifif cb*_4.checked=true thendw_1.setfilter(class_classname=+sle_1.te*t+) dw_1.filter()end if if cb*_5.checked=true thendw_1.setfilter(class_department=+sle_1.te*t+)dw_1.filter()end if if dw_1.rowcount()=0 then messag

30、ebo*(注意!,記錄為空。)end if 退出的代碼Private Sub CmdE*t_Click() Unload MeEnd Sub刪除的代碼Private Sub CmdDel_Click()If ID.Te*t Then TID = CInt(ID.Te*t) If MsgBo*(你確定要刪除該行記錄嗎., vbYesNo) = vbYes Then sql = delete from T_Invoice where id= & TID MsgBo* sql Set conn = New ADODB.Connection Set rs = New ADODB.Recordset c

31、onn.Open Set rs = conn.E*ecute(sql) MsgBo* 數據刪除成功，請按確定返回！ Adodc.Refresh MSFMainFrm.Refresh Call SetTe*t End IfElse MsgBo* 你沒有選中要刪除的記錄！End Sub保存的代碼rivate Sub CmdSave_Click()On Error GoTo Err:Set conn = New ADODB.ConnectionSet rs = New ADODB.Recordsetconn.OpenIf (ID.Te*t = ) Then sMakeDate = CDate(Mid

32、(MakeDate.Te*t, 1, 8) Call SqlReady sql = insert into T_Invoice values( & sUserID & , & sUserName & , & sCallUnit & , & sMaintenanceUnit & , sql = sql + & sInstallUnit & , & sMoveUnit & , & sCallNum & , & sMaintenanceNum & , sql = sql + & sInstallNum & , & sMoveNum & , & sCallUnitPrice & , & sMainte

33、nanceUnitPrice & , sql = sql + & sInstallUnitPrice & , & sMoveUnitPrice & , & sMakeInvoicePerson & , & sPayee & , convert(Char(20), & sMakeDate & , 20) , & sMemo & ) MsgBo* sql Set rs = conn.E*ecute(sql) MsgBo* 數據增加成功，點擊確定返回操作界面！ Adodc.Refresh MSFMainFrm.Refresh Call LockControl Rs.Close Set rs = No

34、thing Call SetTe*tElse Call SqlReady TID = CInt(Trim(ID.Te*t) MakeDate.Locked = True sql = update T_Invoice sql = sql + set Userid= + & sUserID & , sql = sql + UserName= + & sUserName & , sql = sql + CallUnit= + & sCallUnit & , sql = sql + MaintenanceUnit= + & sMaintenanceUnit & , sql = sql + Instal

35、lUnit = + & sInstallUnit & , sql = sql + MoveUnit= + & sMoveUnit & , sql = sql + CallNum= + & sCallNum & , sql = sql + MaintenanceNum= + & sMaintenanceNum & , sql = sql + InstallNum = + & sInstallNum & , sql = sql + MoveNum= + & sMoveNum & , sql = sql + CallUnitPrice= + & sCallUnitPrice & , sql = sq

36、l + MaintenanceUnitPrice= + & sMaintenanceUnitPrice & , sql = sql + InstallUnitPrice= + & sInstallUnitPrice & , sql = sql + MoveUnitPrice= + & sMoveUnitPrice & , sql = sql + MakeInvoicePerson= + & sMakeInvoicePerson & , sql = sql + Payee= + & sPayee & , sql = sql + Memo= + & sMemo & sql = sql + wher

37、e id= & TID Set rs = conn.E*ecute(sql) MsgBo* 數據修改成功，點擊確定返回操作界面！ Adodc.Refresh MSFMainFrm.Refresh Set rs = Nothing Call SetTe*tEnd If E*it SubErr: MsgBo* 提交失??！ + Err.Description, , 信息End Sub打印模塊的代碼Private Sub CmdPrint_Click()If (ID.Te*t = ) Then MsgBo* 請選擇要打印的記錄!, vbCriticalElse On Error GoTo PrintE

38、rr: Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.Open TID = CInt(ID.Te*t) sql = select * from V_Invoice where 序號= & TID Set rs = conn.E*ecute(sql) Set *lApp = CreateObject(e*cel.application) MsgBo* App.Path & 學生大學成績表.*ls Set Wb = *lApp.ActiveWorkbook Set Ws = Wb.ActiveSheet Ws.C

39、ells(1, 1).Value = rs(課程號) Ws.Cells(1,2 ).Value = rs(課程名) Ws.Cells(1， 3) = rs(分數) Ws.Cells(1, 4) = rs(開課學期)If (Check2.Value 1) Then *lApp.Visible = True Else If Dir(c:printBd.tmp) Then Kill c:printBd.tmp Delete End If Wb.SaveAs c:printBd.tmp save Ws.PrintOut Wb.Close Set Ws = Nothing Set Wb = Nothing *lApp.Quit Set *lApp = NothingEnd If E*it SubEnd IfPrintErr: MsgBo* 打印錯誤,請重新打印!, vbCriticalEnd Sub. 優(yōu)選-