數(shù)據(jù)庫課程設(shè)計(jì)

1、課 程 設(shè) 計(jì)設(shè)計(jì)題目 學(xué)生成績(jī)管理系統(tǒng)學(xué)生姓名 學(xué) 號(hào) 專業(yè)班級(jí) 指導(dǎo)教師 2010年1月8日目錄第一章 概述. 3一、應(yīng)用背景二、設(shè)計(jì)環(huán)境要求第二章 系統(tǒng)需求分析. 5一、系統(tǒng)流程圖二、系統(tǒng)功能模塊圖第三章 系統(tǒng)的總體設(shè)計(jì). 7一、后臺(tái)數(shù)據(jù)庫設(shè)計(jì)二、VB前臺(tái)設(shè)計(jì)三、VB與SQL的連接第四章 系統(tǒng)的詳細(xì)設(shè)計(jì). 8一、各功能模塊的描述二、各功能模塊的界面設(shè)計(jì)三、代碼設(shè)計(jì)第五章 設(shè)計(jì)總結(jié) 16 參考文獻(xiàn) 16 小組成員 17致謝摘要 計(jì)算機(jī)的發(fā)展將人類帶到了信息技術(shù)時(shí)代,人們的生活發(fā)生了巨大的變化使用計(jì)算機(jī)進(jìn)行龐大的數(shù)據(jù)庫管理是應(yīng)用最廣泛的一種學(xué)生成績(jī)管理系統(tǒng)是用可視化的面向?qū)ο蟮某绦蛟O(shè)計(jì)語言V

2、isual Basic 6.0和數(shù)據(jù)庫管理系統(tǒng)SQL開發(fā)的一個(gè)學(xué)生數(shù)據(jù)庫管理系統(tǒng)主窗口使用了類似于Word的多文檔窗口通過ODBC對(duì)象的數(shù)據(jù)環(huán)境控件連接SQL數(shù)據(jù)庫具有一般數(shù)據(jù)庫管理系統(tǒng)的插入刪除修改等基本功能,界面友好,操作簡(jiǎn)單其相關(guān)的論文是用軟件工程的分析方法來完成的圖文并茂的闡述了整個(gè)設(shè)計(jì)過程和設(shè)計(jì)思想論文嚴(yán)格按照軟件工程分析的基本步驟來完成,從理論分析到最后總結(jié)分為八章重點(diǎn)是在第三章-“需求分析”階段利用了大量的方法從不同角度進(jìn)行了分析為接下來總體設(shè)計(jì)詳細(xì)設(shè)計(jì)系統(tǒng)實(shí)現(xiàn)奠定了基礎(chǔ)第一章 概述一、 應(yīng)用背景 成績(jī)管理是學(xué)校管理的重要組成部分。成績(jī)，不僅僅關(guān)系到學(xué)生的成績(jī)升遷，在很大程度上度

3、量了一個(gè)學(xué)生的學(xué)習(xí)效果；同時(shí)，成績(jī)還關(guān)系到教師的教學(xué)成果的考評(píng)。成績(jī)管理的重要性不言而喻，但是成績(jī)管理在學(xué)校中是很繁重的，在每門課中，每個(gè)學(xué)生都需要有對(duì)應(yīng)的成績(jī)記錄。在學(xué)校各項(xiàng)管理中，成績(jī)管理牽涉到的其他管理內(nèi)容是最復(fù)雜的，它牽涉到了學(xué)生成績(jī)管理、教師管理和課程管理等。所以在實(shí)際管理工作中，往往由于成績(jī)記錄的數(shù)量眾多、管理復(fù)雜，造成成績(jī)管理的混亂。對(duì)這一混亂，最好的解決辦法就是借助計(jì)算機(jī)技術(shù)和數(shù)據(jù)庫管理系統(tǒng)，對(duì)整個(gè)成績(jī)進(jìn)行記載，并實(shí)行電子化管理。本系統(tǒng)的目的就是開發(fā)“成績(jī)管理信息系統(tǒng)”，通過這一系統(tǒng)來掌握學(xué)生的成績(jī)情況，實(shí)現(xiàn)成績(jī)信息管理的電子化，提供一個(gè)電子化的成績(jī)管理平臺(tái)。根據(jù)高校成績(jī)管理的

4、實(shí)際要求，結(jié)合本系統(tǒng)的要求，對(duì)于本章所要介紹的“成績(jī)管理系統(tǒng)”的需求實(shí)現(xiàn)如下功能：(1)掌握每個(gè)學(xué)生每一門課的成績(jī)信息，并記錄在數(shù)據(jù)庫中以便其他管理信息系統(tǒng)的使用。(2)分權(quán)限的管理。在成績(jī)管理中，教師可以對(duì)任何一個(gè)學(xué)生的成績(jī)進(jìn)行查詢和管理；但是對(duì)學(xué)生類用戶，它只能對(duì)自己的成績(jī)進(jìn)行查看，而且不能對(duì)其進(jìn)行更改。（3）教師類用戶可以對(duì)成績(jī)按照課程進(jìn)行管理，教師可以對(duì)任何一個(gè)學(xué)生的成績(jī)進(jìn)行查看，而且不能對(duì)其進(jìn)行更改。（4）教師類用戶可以對(duì)成績(jī)按照學(xué)生進(jìn)行管理，可以對(duì)每一學(xué)生所選的課程成績(jī)進(jìn)行添加、刪除和修改。二、設(shè)計(jì)環(huán)境要求 本系統(tǒng)開發(fā)時(shí)使用的系統(tǒng)只是一般的pc機(jī)，windows 2000 Perf

5、essional 版本。程序開發(fā)使用的是Microsoft Visual Basic 6.0 中文版。當(dāng)然這只是一種選擇方式，實(shí)際應(yīng)用中用戶可以結(jié)合自身的特點(diǎn)選擇增加的系統(tǒng)架構(gòu)。數(shù)據(jù)使用方法為使用ODBC的方法同數(shù)據(jù)庫接口。使用這種訪問訪問數(shù)據(jù)，可以使用任何一種ODBC數(shù)據(jù)源，即不止適合于SQL等數(shù)據(jù)庫應(yīng)用程序，也適合于Excel表格、文本文件、圖形文件和無格式的數(shù)據(jù)文件。第二章 需求分析一、 系統(tǒng)流程圖圖一Splash表單（用以顯示版本信息和系統(tǒng)信息登陸表單（用戶可以分別以教師和學(xué)生身份登陸）MID主窗口（系統(tǒng)主窗口）按照學(xué)生進(jìn)行成績(jī)管理（查看學(xué)生的各科成績(jī)）按照課程進(jìn)行成績(jī)管理（查看各科的

6、學(xué)生成績(jī)）管理成績(jī)變更管理成績(jī)變更查找模塊二、系統(tǒng)功能模塊圖學(xué)生成績(jī)管理系統(tǒng)以教師身份登陸以學(xué)生身份登陸成績(jī)管理按學(xué)生進(jìn)行按課程進(jìn)行管理按學(xué)生進(jìn)行管理查詢刪除編輯刪除添加成績(jī)管理第三章 系統(tǒng)的總體設(shè)計(jì)一、 后臺(tái)數(shù)據(jù)庫的設(shè)計(jì)（1）建立成績(jī)管理數(shù)據(jù)庫Score表一（2）學(xué)生表和班級(jí)表的設(shè)計(jì)表二表三（3）教師表的設(shè)計(jì)表四二、VB前臺(tái)的設(shè)計(jì)（1）Splash窗體的設(shè)計(jì)（2）登陸窗體的設(shè)計(jì)（frmlogin.frm）（3）MDI主窗體(MDIMain.frm)（4）按課程進(jìn)行成績(jī)管理frmCourseScore窗體、frmFind窗體、frmAddStudent窗體rptCourseScore窗體（5）

7、按學(xué)生進(jìn)行成績(jī)管理以教師身份登陸：frmStudentScore窗體、frmFind窗體、rptStudentScore窗體以學(xué)生身份登陸：frmStudentScore窗體、frmStudentScore窗體第四章 系統(tǒng)的詳細(xì)設(shè)計(jì)一、 教師功能模塊的描述根據(jù)高校成績(jī)管理的實(shí)際要求，結(jié)合本系統(tǒng)的要求，對(duì)于本章所要介紹的“成績(jī)管理系統(tǒng)”的教師身份的模塊實(shí)現(xiàn)如下功能：(1)掌握每個(gè)學(xué)生每一門課的成績(jī)信息，并記錄在數(shù)據(jù)庫中以便其他管理信息系統(tǒng)的使用。(2)分權(quán)限的管理。在成績(jī)管理中，教師可以對(duì)任何一個(gè)學(xué)生的成績(jī)進(jìn)行查詢和管理；（3）教師類用戶可以對(duì)成績(jī)按照課程進(jìn)行管理，教師可以對(duì)任何一個(gè)學(xué)生的成績(jī)進(jìn)

8、行查看，并且可插入數(shù)據(jù)。（4）教師類用戶可以對(duì)成績(jī)按照學(xué)生進(jìn)行管理，可以對(duì)每一學(xué)生所選的課程成績(jī)進(jìn)行添加、刪除和修改。二、教師功能模塊的界面設(shè)計(jì)（1）以教師身份登陸界面（3）MID主窗體界面（4） 按課程進(jìn)行管理的界面代碼為：Private Sub Command1_Click()Dim rst As New adodb.RecordsetIf Text3.Text = "" Then MsgBox "你沒有輸入要查詢的課程名稱" Text3.SetFocusElse Set rst = ExecuteSQL("select * from kc

9、b where kcname='" & Text3.Text & "'") If rst.RecordCount <= 0 Then MsgBox "沒有你要查詢的課程信息,請(qǐng)重新輸入" Text3.SetFocus Else Set DataGrid1.DataSource = rst End IfEnd If End SubPrivate Sub DataGrid1_Click()End SubPrivate Sub Frame1_DragDrop(Source As Control, X As Sin

10、gle, Y As Single)End Sub（5） 按教師登錄所擁有的插入操作界面代碼為：Private Sub Command2_Click()Unload MeEnd SubPrivate Sub Command1_Click()Dim msgstr As StringIf Text1.Text = "" Then MsgBox "你沒有輸入學(xué)號(hào)，請(qǐng)輸入", vbInformation Text1.SetFocusElse If Text2.Text = "" Then MsgBox "你沒有輸入姓名,請(qǐng)輸入&quo

11、t;, vbInformation Text2.SetFocus Else If Text3.Text = "" Then MsgBox "你沒有輸入性別,請(qǐng)輸入", vbInformation Text3.SetFocus Else If Text4.Text = "" Then MsgBox "你沒有輸入專業(yè)，請(qǐng)選擇", vbInformation Text4.SetFocus Else If Text5.Text = "" Then MsgBox "你沒有輸入年級(jí)，請(qǐng)選擇&quo

12、t;, vbInformation Text5.SetFocus Else msgstr = MsgBox("你確定要添加這個(gè)學(xué)生信息嗎？", vbYesNo, "信息提示") If msgstr = vbYes Then ExecuteSQL ("insert into student values('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text

13、& "','" & Text4.Text & "','" & Text5.Text & "','" & Text6.Text & "')") MsgBox "用戶添加成功！" Else Unload Me End If End If End If End If End IfEnd If End Sub（6）按學(xué)生進(jìn)行成績(jī)管理的界面代碼為: （6） 三、代碼設(shè)計(jì)：Splash主窗體的代碼

14、如下：stu.ShowEnd SubPrivate Sub cxdl_Click()If MsgBox("若重新登錄，所有窗體都將關(guān)閉！是否重新登錄？", vbQuestion + vbYesNo + vbDefaultButton2, "重新登錄") = vbYes Then Unload MDIMain frmlogin.Show End IfEnd SubPrivate Sub MDIForm_Load() ''根據(jù)不同的用戶類型，使相應(yīng)的菜單項(xiàng)可見 Select Case gnUserType Case 0: '以教師身份

15、登錄, 可以按各種方式進(jìn)行查詢和管理 cr.Visible = True cx.Visible = True Case 1: '以學(xué)生身份登錄， 只能查詢自己的信息 cr.Visible = False cx.Visible = True End SelectEnd SubPrivate Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) If MsgBox("真的要對(duì)出本系統(tǒng)嗎？", vbQuestion + vbYesNo + vbDefaultButton2, "退出&q

16、uot;) = vbNo Then Cancel = 1 End IfEnd SubPrivate Sub cr_Click() tj.ShowEnd SubPrivate Sub tc_Click() Unload MeEnd Sub（2）登陸窗體的設(shè)計(jì)代碼如下：Option ExplicitPrivate Sub cboUserType_Change() gnUserType = cboUserType.ListIndexEnd SubPrivate Sub cboUserType_Click() gnUserType = cboUserType.ListIndexEnd SubPriva

17、te Sub cmdCancel_Click() Unload MeEnd SubPrivate Sub cmdOK_Click() ''取得用戶輸入的用戶名和密碼 Dim user As String, pwd As String user = txtUser pwd = txtPwd ''根據(jù)不同的身份，選擇不同的表用以查詢 Dim r As New adodb.Recordset Dim strSQL As String Select Case gnUserType Case 0: '選擇身份為教師 strSQL = "select *

18、from teacher where jsname='" & user & "' and jsno='" & pwd & "'" Case 1: '選擇身份為學(xué)生 strSQL = "select * from student where stuname='" & user & "' and stuno='" & pwd & "'" End Selec

19、t '打開記錄集 r r.Open strSQL, DataEnv.CON.ConnectionString, adOpenStatic ''用戶密碼錯(cuò)誤的次數(shù)，如果錯(cuò)誤次數(shù)超過3次，則退出系統(tǒng) Static nTryCount As Integer If r.EOF Then ''登錄失敗 MsgBox "對(duì)不起，無此用戶或者密碼不正確！請(qǐng)重新輸入！", vbCritical, "錯(cuò)誤" txtUser.SetFocus txtUser.SelStart = 0 txtUser.SelLength = Len(t

20、xtUser) nTryCount = nTryCount + 1 If nTryCount >= 3 Then MsgBox "您無權(quán)操作本系統(tǒng)!再見！", vbCritical, "無權(quán)限" Unload Me End If Else ''登陸成功 ''顯示MDI窗體, 并將用戶類型和用戶名傳到MDI窗體中 gnUserType = cboUserType.ListIndex gsUserName = txtPwd ''注意調(diào)用順序 Unload Me MDIMain.Show End IfEnd

21、 SubPrivate Sub Form_Load() cboUserType.ListIndex = 0End SubPrivate Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)End Sub以上為部分的代碼。第五章 設(shè)計(jì)總結(jié)本系統(tǒng)的目的就是開發(fā)“成績(jī)管理信息系統(tǒng)”，通過這一系統(tǒng)來掌握學(xué)生的成績(jī)情況，實(shí)現(xiàn)成績(jī)信息管理的電子化，提供一個(gè)電子化的成績(jī)管理平臺(tái)。此次畢業(yè)設(shè)計(jì)是我們所學(xué)知識(shí)的綜合運(yùn)用，整個(gè)設(shè)計(jì)過程使我們的動(dòng)手能力、對(duì)問題的分析能力以及解決能力都得到了充分了鍛煉，因此此次設(shè)計(jì)對(duì)我們非常重要， 所以在此次

22、設(shè)計(jì)上我投入了我所有的時(shí)間和精力。在整個(gè)設(shè)計(jì)過程中，我始終保持著嚴(yán)謹(jǐn)、認(rèn)真的治學(xué)態(tài)度。從設(shè)計(jì)最初的構(gòu)思到最后的實(shí)現(xiàn)我都花費(fèi)了大量的心血，不敢有半點(diǎn)馬虎。盡管如此，由于知識(shí)和經(jīng)驗(yàn)的欠缺，在整個(gè)系統(tǒng)的開發(fā)過程中遇到了很多困難，比如由于早期的需求分析不充分，給后來系統(tǒng)的具體實(shí)現(xiàn)帶來了很大的困難，這使得我不的不重新對(duì)系統(tǒng)的整個(gè)結(jié)構(gòu)做詳細(xì)的分析，所以做了相當(dāng)多的無用功，但通過自己的不懈努力和同學(xué)的幫助，設(shè)計(jì)才得以圓滿完成，所以盡憑個(gè)人之力想設(shè)計(jì)出一個(gè)完美的系統(tǒng)幾乎是不可能的。本系統(tǒng)實(shí)現(xiàn)簡(jiǎn)單易懂、操作簡(jiǎn)單方便。本系統(tǒng)還有一些不夠完善的地方，我們會(huì)進(jìn)一步進(jìn)行完善。參考文獻(xiàn)1學(xué)生成績(jī)管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 科技信息(科學(xué)教研) 2007/17 2 Visual Basic 數(shù)據(jù)