教學(xué)管理系統(tǒng)數(shù)據(jù)庫(kù)課程設(shè)計(jì)報(bào)告報(bào)告

1、-PAGE . z.數(shù)據(jù)庫(kù)課程設(shè)計(jì)報(bào)告教學(xué)管理系統(tǒng)實(shí)驗(yàn)題目： 教學(xué)管理系統(tǒng) 教學(xué)管理系統(tǒng)目錄 TOC o 1-3 h z u HYPERLINK l _Toc482021190一、概述 PAGEREF _Toc482021190 h 3HYPERLINK l _Toc482021191二、總體設(shè)計(jì) PAGEREF _Toc482021191 h 3HYPERLINK l _Toc4820211921、軟件環(huán)境： PAGEREF _Toc482021192 h 3HYPERLINK l _Toc4820211932、硬件環(huán)境： PAGEREF _Toc482021193 h 3HYPERLINK

2、 l _Toc482021194三、實(shí)驗(yàn)主要容 PAGEREF _Toc482021194 h 3HYPERLINK l _Toc4820211951、主要數(shù)據(jù)表 PAGEREF _Toc482021195 h 4HYPERLINK l _Toc4820211962、功能模塊 PAGEREF _Toc482021196 h 4HYPERLINK l _Toc482021197四、系統(tǒng)分析報(bào)告 PAGEREF _Toc482021197 h 4HYPERLINK l _Toc4820211981、數(shù)據(jù)流圖 PAGEREF _Toc482021198 h 4HYPERLINK l _Toc4820

3、211992、系統(tǒng)功能模塊 PAGEREF _Toc482021199 h 5HYPERLINK l _Toc4820212003、業(yè)務(wù)流圖 PAGEREF _Toc482021200 h 5HYPERLINK l _Toc4820212014、系統(tǒng)數(shù)據(jù)模型設(shè)計(jì) PAGEREF _Toc482021201 h 6HYPERLINK l _Toc482021202五、代碼實(shí)現(xiàn) PAGEREF _Toc482021202 h 9HYPERLINK l _Toc4820212031.登錄界面 PAGEREF _Toc482021203 h 9HYPERLINK l _Toc4820212042.注冊(cè)

4、界面 PAGEREF _Toc482021204 h 11HYPERLINK l _Toc4820212053.教師界面 PAGEREF _Toc482021205 h 13HYPERLINK l _Toc4820212064.課表管理 PAGEREF _Toc482021206 h 14HYPERLINK l _Toc4820212075.成績(jī)管理 PAGEREF _Toc482021207 h 15HYPERLINK l _Toc4820212086.學(xué)生界面 PAGEREF _Toc482021208 h 16HYPERLINK l _Toc4820212097.網(wǎng)上評(píng)教 PAGEREF

5、 _Toc482021209 h 18HYPERLINK l _Toc482021210六、系統(tǒng)實(shí)現(xiàn)結(jié)果 PAGEREF _Toc482021210 h 18HYPERLINK l _Toc482021211七、實(shí)驗(yàn)分工及總結(jié) PAGEREF _Toc482021211 h 23概述數(shù)據(jù)庫(kù)課程設(shè)計(jì)是集中實(shí)踐性環(huán)節(jié)之一，是學(xué)習(xí)完數(shù)據(jù)庫(kù)原理及應(yīng)用課程后進(jìn)行的一次全面的綜合的實(shí)踐練習(xí)，主要目的在于加深學(xué)生對(duì)數(shù)據(jù)庫(kù)基礎(chǔ)理論和基本知識(shí)的理解，熟悉數(shù)據(jù)庫(kù)的設(shè)計(jì)方法，掌握基于數(shù)據(jù)庫(kù)的信息管理系統(tǒng)的開發(fā)方法，進(jìn)一步加強(qiáng)學(xué)生綜合運(yùn)用知識(shí)和實(shí)踐動(dòng)手的能力。學(xué)生根據(jù)所學(xué)的數(shù)據(jù)庫(kù)原理與程序設(shè)計(jì)的知識(shí)，能夠針對(duì)一個(gè)小型

6、的數(shù)據(jù)庫(kù)管理系統(tǒng)，進(jìn)行系統(tǒng)的需求分析，系統(tǒng)設(shè)計(jì)，數(shù)據(jù)庫(kù)設(shè)計(jì)，編碼，測(cè)試等，完成題目要求的功能，從而達(dá)到掌握開發(fā)一個(gè)小型數(shù)據(jù)庫(kù)的目的。二、總體設(shè)計(jì)1、軟件環(huán)境：Visual Studio 2010、SQL Server Management Studio2、硬件環(huán)境：PC機(jī)三、實(shí)驗(yàn)主要容1、主要數(shù)據(jù)表課程信息表，學(xué)生信息表單，教師信息表，學(xué)生成績(jī)表等。2、功能模塊 （1）課程設(shè)置，包括：查詢、添加、刪除、查詢和修改課程信息 （2）學(xué)生成績(jī)查詢，網(wǎng)上評(píng)教。 （3）教師查詢課程時(shí)間和教室的安排。 （4）教師管理學(xué)生成績(jī)查詢，添加，修改，刪除。（5）學(xué)生和教師信息的注冊(cè)。四、系統(tǒng)分析報(bào)告1、數(shù)據(jù)流圖

7、教學(xué)管理系統(tǒng)的基本數(shù)據(jù)流圖如下所示： 學(xué)生選課信息 新增課程學(xué)生選課管理教師 課程信息 選課審核信息 圖1教學(xué)管理系統(tǒng)的基本數(shù)據(jù)流圖 學(xué)生成績(jī)信息考試成績(jī)?nèi)握n老師學(xué)生考試信息 成績(jī)管理學(xué)生信息管理個(gè)人考試信息學(xué)生管理員成績(jī)確認(rèn)信息 圖 2 教學(xué)管理系統(tǒng)的基本數(shù)據(jù)流圖排課信息課表信息學(xué)生 個(gè)人考試成績(jī)教學(xué)安排管理員排課信息 排課信息任課教師排課信息圖3 教學(xué)管理系統(tǒng)的基本數(shù)據(jù)流圖2、系統(tǒng)功能模塊本系統(tǒng)主要包括學(xué)生信息管理、課程信息管理、成績(jī)信息管理等模塊，另外還包括進(jìn)行系統(tǒng)管理的一些輔助模塊。其示意圖如下：教學(xué)管理系統(tǒng) 教師信息管理 信息注冊(cè) 學(xué)生信息管理 學(xué)生信息注冊(cè)成績(jī)管理 課表管理 查詢信

8、息教師信息注冊(cè)刪除查詢教室查詢課名查詢添加網(wǎng)上評(píng)教成績(jī)查詢課程信息3、業(yè)務(wù)流圖4、系統(tǒng)數(shù)據(jù)模型設(shè)計(jì)（1）系統(tǒng)ER圖教師課程學(xué)生選修修考試授課成績(jī) 各實(shí)體E-R圖： 學(xué)生信息：*登錄密碼*學(xué)生課程信息：課程名課程號(hào)課程信息登錄密碼上課時(shí)間上課教室教師信息：*教師編號(hào)教師登錄密碼學(xué)生成績(jī)：課程號(hào)學(xué)生成績(jī)*課程名成績(jī)關(guān)系模式 學(xué)生信息（，*，登錄密碼）課程信息（課程號(hào)，課程名，上課教室，登錄密碼，）教師信息（教師編號(hào)，登錄密碼）學(xué)生成績(jī)（*，課程號(hào)，課程名，成績(jī)）數(shù)據(jù)表課程信息表 教師信息表個(gè)人成績(jī)表學(xué)生成績(jī)表 學(xué)生課表五、代碼實(shí)現(xiàn)1.登錄界面PrivateSub Form1_Load(ByVal

9、sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.LoadDim min, ma*, rndnum, i AsInteger min = 10 ma* = 99 Te*tBo*4.Te*t = For i = 0 To 1 rndnum = CStr(CInt(min + Rnd() * (ma* - min) Te*tBo*4.Te*t = Te*tBo*4.Te*t & & rndnumNe*tEndSubPrivateSub Button2_Click(ByVal sender As System.Ob

10、ject, ByVal e As System.EventArgs) Handles Button2.ClickDim ConnStr AsString = Server=(local);uid=sa;pwd=1234;database=shiyDimAs SqlClient.SqlConnection = New SqlClient.SqlConnection(ConnStr) 建立連接對(duì)象，同時(shí)說(shuō)明連接字符串Dim cmd AsNew SqlClient.Sqlmand生成命令對(duì)象，用于執(zhí)行DSQL語(yǔ)句Dim dr AsIDataReader用來(lái)臨時(shí)存放執(zhí)行D語(yǔ)句后的結(jié)果Dim SQLSt

11、r AsStringIf RadioButton1.Checked = TrueThen SQLStr = select * from teacher where tusernum= + + Te*tBo*1.Te*t + cmd.Connection = .Open() cmd.mandTe*t = SQLStr dr = cmd.E*ecuteReader()If dr.Read() ThenIf dr!tpwd.ToString().Trim = Te*tBo*2.Te*t ThenIf Te*tBo*3.Te*t = Te*tBo*4.Te*t Then MsgBo*(登錄成功|)Di

12、m jiaoshi AsNewForm3 jiaoshi.ShowDialog() Hide()Else MsgBo*(驗(yàn)證碼錯(cuò)誤)EndIfElse MsgBo*(密碼不正y確)EndIfElse MsgBo*(該用戶不存在)EndIf dr.Close() .Close()Else SQLStr = select * from student where snum= + + Te*tBo*1.Te*t + cmd.Connection = .Open() cmd.mandTe*t = SQLStr dr = cmd.E*ecuteReader()If dr.Read() ThenIf dr

13、!spwd.ToString().Trim = Te*tBo*2.Te*t ThenIf Te*tBo*3.Te*t = Te*tBo*4.Te*t Then MsgBo*(登錄成功|)Dim *uesheng AsNewForm6 *uesheng.Show()Me.Hide()Else MsgBo*(驗(yàn)證碼錯(cuò)誤)EndIfElse MsgBo*(密碼不正y確)EndIfElse MsgBo*(該用戶不存在)EndIf dr.Close() .Close()EndIfEndSubPrivateSub Button1_Click(ByVal sender As System.Object, B

14、yVal e As System.EventArgs) Handles Button1.ClickDim zhuce AsNewForm2 zhuce.Show()Me.Hide()EndSub2.注冊(cè)界面PublicClassForm2Dim objDS AsNewDataSetDim obj*STable AsDataTableDim objda AsNew SqlClient.SqlDataAdapterDimAsNew SqlClient.SqlConnection(server=(local);uid=sa;pwd=1234;database=shiy)PublicSub refre

15、shdata() objda.Update(objDS, teacher) 第二t個(gè)參數(shù)y為a需要a更新數(shù)y據(jù)Y庫(kù)a表名 obj*STable.Clear()Me.zhuce_Click(Nothing, Nothing) objDS.AcceptChanges()EndSubPrivateSub zhuce_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles zhuce.ClickDim cmd AsNew SqlClient.Sqlmand cmd.Connection = 數(shù)y據(jù)Y從當(dāng)前建立的

16、連接中D進(jìn)入If RadioButton1.Checked = TrueThenDim builder As SqlClient.SqlmandBuilder = New SqlClient.SqlmandBuilder(objda)Try .Open() cmd.mandTe*t = select * from teacher objda.Selectmand = cmd objda.Fill(objDS, teacher) obj*STable = objDS.Tables(teacher) .Close()Dim response AsMsgBo*Result response = Ms

17、gBo*(確實(shí)要a注冊(cè)嗎e？, vbOKCancel + vbQuestion, 系統(tǒng)3提示)If response = MsgBo*Result.Ok ThenDim myRow AsDataRow myRow = obj*STable.NewRow myRow(tusernum) = Te*tBo*1.Te*t myRow(tusername) = username1.Te*t myRow(tpwd) = mima1.Te*t obj*STable.Rows.Add(myRow) objda.Update(objDS, teacher) objDS.AcceptChanges() refr

18、eshdata()EndIfCatch e* AsE*ceptionEndTryElseDim builder As SqlClient.SqlmandBuilder = New SqlClient.SqlmandBuilder(objda) .Open() cmd.mandTe*t = select * from student objda.Selectmand = cmd objda.Fill(objDS, student) obj*STable = objDS.Tables(student) .Close()Dim response AsMsgBo*Result response = M

19、sgBo*(確實(shí)要a注冊(cè)嗎e？, vbOKCancel + vbQuestion, 系統(tǒng)3提示)If response = MsgBo*Result.Ok ThenDim myRow AsDataRow myRow = obj*STable.NewRow myRow(snum) = Te*tBo*1.Te*t myRow(sname) = username1.Te*t myRow(spwd) = mima1.Te*t obj*STable.Rows.Add(myRow) objda.Update(objDS, student) objDS.AcceptChanges() refreshdata

20、()EndIfEndIfDim denglu AsNewForm1 denglu.Show()Me.Hide()EndSubPrivateSub chongzhi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chongzhi.Click username1.Te*t = mima1.Te*t = qmima1.Te*t = EndSubEndClass3.教師界面PublicClassForm3PrivateSub Button1_Click(ByVal sender As System.O

21、bject, ByVal e As System.EventArgs) Handles Button1.ClickDim kebiao AsNewForm4 kebiao.Show()Me.Hide()EndSubPrivateSub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.ClickDim denglu AsNewForm1 denglu.Show()Me.Hide()EndSubPrivateSub Button5_Click(ByVal sender

22、 As System.Object, ByVal e As System.EventArgs)EndSubPrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickDim chengjig AsNewForm5 chengjig.Show()Me.Hide()EndSubPrivateSub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)End

23、Sub4.課表管理PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim conn AsNewSqlConnectionDim m AsNewSqlmand conn.ConnectionString = server=(local); uid=sa;pwd=1234;database=shiy conn.Open() m.mandTe*t = select * from course where coursenum = & Me.

24、Te*tBo*1.Te*t & and cour*seclass= & Me.Te*tBo*2.Te*t & m.Connection = conn m.mandTe*t = select coursename from course where coursenum = & Me.Te*tBo*1.Te*t & and cour*seclass= & Me.Te*tBo*2.Te*t & Me.Te*tBo*3.Te*t = m.E*ecuteScalar m.Connection = conn m.mandTe*t = select coursetime from course where

25、coursenum = & Me.Te*tBo*1.Te*t & and cour*seclass= & Me.Te*tBo*2.Te*t & Me.Te*tBo*4.Te*t = m.E*ecuteScalar m.Connection = conn m.mandTe*t = select courseaddress from course where coursenum = & Me.Te*tBo*1.Te*t & and cour*seclass= & Me.Te*tBo*2.Te*t & Me.Te*tBo*5.Te*t = m.E*ecuteScalar m.Connection =

26、 conn conn.Close()EndSubPrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickDim jiaoshijiemian AsNewForm3 jiaoshijiemian.Show()Me.Hide()EndSub5.成績(jī)管理ImportsPublicClassForm5PrivateSub Button5_Click(ByVal sender As System.Object, ByVal e As System.E

27、ventArgs) Handles Button5.ClickDim jiaoshi AsNewForm3 jiaoshi.Show()Me.Hide()EndSubPrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim conn AsNewSqlConnectionDim m AsNewSqlmand conn.ConnectionString = server=(local); uid=sa;pwd=1234;database=

28、shiy conn.Open() m.mandTe*t = select * from chengji m.Connection = connDim da AsNewSqlDataAdapter(m.mandTe*t, conn)Dim ds AsNewDataSet da.Fill(ds, chengji) conn.Close()Me.DataGridView1.DataSource = ds.Tables(0)EndSubPrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

29、 Handles Button2.ClickDim conn AsNewSqlConnectionDim m AsNewSqlmand conn.ConnectionString = server=(local); uid=sa;pwd=1234;database=shiy conn.Open() m.mandTe*t = insert into chengji values( & Me.Te*tBo*2.Te*t & , & Me.Te*tBo*3.Te*t & , & Me.Te*tBo*4.Te*t & , & Me.Te*tBo*5.Te*t & ) m.Connection = co

30、nn m.E*ecuteNonQuery() m.mandTe*t = select * from chengji m.Connection = connDim da AsNewSqlDataAdapter(m.mandTe*t, conn)Dim ds AsNewDataSet da.Fill(ds, chengji) conn.Close()Me.DataGridView1.DataSource = ds.Tables(0)EndSubPrivateSub Button3_Click(ByVal sender As System.Object, ByVal e As System.Even

31、tArgs) Handles Button3.ClickDim conn AsNewSqlConnectionDim m AsNewSqlmand conn.ConnectionString = server=(local); uid=sa;pwd=1234;database=shiy conn.Open() m.mandTe*t = update chengji set snum= & Me.Te*tBo*2.Te*t & ,coursenum= & Me.Te*tBo*3.Te*t & ,coursename= & Me.Te*tBo*4.Te*t & ,coursegrade= & Me

32、.Te*tBo*5.Te*t & where snum= & Me.Te*tBo*2.Te*t & m.Connection = conn m.E*ecuteNonQuery() m.mandTe*t = select * from chengji m.Connection = connDim da AsNewSqlDataAdapter(m.mandTe*t, conn)Dim ds AsNewDataSet da.Fill(ds, chengji) conn.Close()Me.DataGridView1.DataSource = ds.Tables(0)EndSubPrivateSub

33、Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.ClickDim conn AsNewSqlConnectionDim m AsNewSqlmand conn.ConnectionString = server=(local); uid=sa;pwd=1234;database=shiy conn.Open() m.mandTe*t = delete from chengji where snum = & Me.Te*tBo*2.Te*t m.Connection

34、 = conn m.E*ecuteNonQuery() m.mandTe*t = select * from chengji m.Connection = connDim da AsNewSqlDataAdapter(m.mandTe*t, conn)Dim ds AsNewDataSet da.Fill(ds, chengji) conn.Close()Me.DataGridView1.DataSource = ds.Tables(0)EndSub6.學(xué)生界面PrivateSub Button6_Click(ByVal sender As System.Object, ByVal e As

35、System.EventArgs) Handles Button6.ClickDim denglu AsNewForm1 denglu.Show()Me.Hide()EndSubPrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim conn AsNewSqlConnectionDim m AsNewSqlmand conn.ConnectionString = server=(local); uid=sa;pwd=1234;database=shiy conn.Open() m.mandTe*t = select * from scourse m.Connection = connDim da AsNewSqlDataAdapter(m.mandTe*t, conn)Dim ds AsNewDataSet da.Fill(ds, scourse) conn.Close()M