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

1、鄉(xiāng)運(yùn)城#數(shù)據(jù)庫(kù)課程設(shè)計(jì)報(bào)告教學(xué)管理系統(tǒng)實(shí)驗(yàn)題目：教學(xué)管理系統(tǒng)教學(xué)管理系統(tǒng)目錄一、概述3二、總體設(shè)計(jì)31、軟件環(huán)境：32、碩件環(huán)境：4三、實(shí)驗(yàn)主要內(nèi)容41、主要數(shù)據(jù)表42、功能模塊4四、系統(tǒng)分析報(bào)告41、數(shù)據(jù)流圖42、系統(tǒng)功能模塊63、業(yè)務(wù)流圖64、系統(tǒng)數(shù)據(jù)模型設(shè)計(jì)7五、代碼實(shí)現(xiàn)101 登錄界面102 注冊(cè)界面113 教師界面 134 課表管理 145 成績(jī)管理 156 學(xué)生界面 177 網(wǎng)上評(píng)教 18六、系統(tǒng)實(shí)現(xiàn)結(jié)果18七、實(shí)驗(yàn)分工及總結(jié)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í)的理

2、解，熟悉數(shù)據(jù)庫(kù)的設(shè)計(jì)方 法，掌握基于數(shù)據(jù)庫(kù)的信息管理系統(tǒng)的開(kāi)發(fā)方法，進(jìn)一步加強(qiáng)學(xué)生綜 合運(yùn)用知識(shí)和實(shí)踐動(dòng)手的能力。學(xué)生根據(jù)所學(xué)的數(shù)據(jù)庫(kù)原理與程序設(shè)計(jì)的知識(shí)，能夠針對(duì)一個(gè)小型 的數(shù)據(jù)庫(kù)管理系統(tǒng)，進(jìn)行系統(tǒng)的需求分析，系統(tǒng)設(shè)計(jì)，數(shù)據(jù)庫(kù)設(shè)計(jì)， 編碼，測(cè)試等，完成題目要求的功能，從而達(dá)到掌握開(kāi)發(fā)一個(gè)小型數(shù)據(jù) 庫(kù)的目的。二、總體設(shè)計(jì)1、軟件環(huán)境:Visual Studio 2010、SQL Server Management Studio2、硬件環(huán)境：PC機(jī)三、實(shí)驗(yàn)主要內(nèi)容1、主要數(shù)據(jù)表課程信息表，學(xué)生信息表單，教師信息表，學(xué)生成績(jī)表等。2、功能模塊(1)課程設(shè)置，包括:查詢(xún)、添加、刪除、查詢(xún)和修改課程信

3、(2)學(xué)生成績(jī)查詢(xún),網(wǎng)上評(píng)教。(3)教師查詢(xún)課程時(shí)間和教室的安排。(4)教師管理學(xué)生成績(jī)查詢(xún)，添加，修改，刪除。word教育資料(5)學(xué)生和教師信息的注冊(cè)。四、系統(tǒng)分析報(bào)告1、數(shù)據(jù)流圖教學(xué)管理系統(tǒng)的基本數(shù)據(jù)流圖如下所示:學(xué)生選課信息教師選課審核信息新增課程選課管理圖1教學(xué)管理系統(tǒng)的基本數(shù)據(jù)流圖學(xué)生成績(jī)信息任課老師學(xué)生考試信息考試成績(jī)管理員學(xué)生信息管理個(gè)人考試信息成績(jī)管理成績(jī)確認(rèn)信息圖2教學(xué)管理系統(tǒng)的基本數(shù)據(jù)流圖排課信息排課信息管理員課表信息個(gè)人考試成績(jī)學(xué)生任課教師圖3教學(xué)管理系統(tǒng)的基本數(shù)據(jù)流圖2、系統(tǒng)功能模塊本系統(tǒng)主要包括學(xué)生信息管理、課程信息管理、成績(jī)信息管理等模塊，另外還包括進(jìn)行系統(tǒng)管理的

4、一些輔助模塊。其示意圖如下：3、業(yè)務(wù)流圖4、系統(tǒng)數(shù)據(jù)模型設(shè)計(jì)(1)系統(tǒng)ER圖各實(shí)體E-R圖:學(xué)生信息:課程信息:課程信息教師信息:學(xué)生成績(jī):（2）關(guān)系模式學(xué)生信息（姓名，學(xué)號(hào)，登錄密碼）課程信息（課稈號(hào)，課程名,上課教室，登錄密碼,教師信息（教師編號(hào)，姓名,登錄密碼）學(xué)生成績(jī)（學(xué)號(hào)，課程號(hào)，課程名，成釦（3）數(shù)據(jù)表課程信息表PGshiy - dboxoursecouraenumcoursmamecourxsedassOMjrsehmecourseaddressk墩提降1401星期一6)13061002java1401星期一 (3.4)13061003android1401星期一(L2>1

5、4081004軟件工程1401星期二(3,4)203051005謙入式1401星期五(3,4)1308教師信息表TKMty* dbo.teachertusernumtusemafnetpvd|l2：-5 |M孫走師SU112341-M101馬老師ml2341401010斤斤計(jì)較p456'個(gè)人丿丁戈績(jī)表cotxsenumcoursenamecoursegrade敎18庫(kù)as1002java891003android労1004軟件工程771005請(qǐng)入式60100685*nullNUUAUZ學(xué)生成績(jī)表201410010310018920141001031002java872014100103

6、1003andrord8420141001031004軟件工程852014100103100$鍛入式84學(xué)生課表亠. PGthiy dbascaurM PC.shiy - dboxourse PC.shiy db(1 weekdaycnumcname> sm1002java星期六1001數(shù)據(jù)庫(kù)星期日1003釦 dr cud；星期三1003android星期四1004軟件工程星期五1005嵌入式星期-1001數(shù)據(jù)庫(kù)*|A«ZNULLNULL五、代碼實(shí)現(xiàn)1 登錄界面Private Sub Forml_Load(ByVal sender As System. Object, By V

7、ai e As System. Eve nt Args ) Handles MyBase.LoadDim min, max, rndnum, i As Integermin = 10max = 99TextBox4.Text =”For i = 0 To 1rndnum =CStr ( CInt (min + Rnd() * (max - min)TextBox4.Text = TextBox4.Text &”" &mdnumNe xtEnd SubPrivate Sub Button2_Click( ByVai sender As System. Object, B

8、y Vai e As System. Eve nt Args )Handles Button2.ClickDim ConnStr As String = HServer=(local);uid=sa;pwd=1234;database=shiyMDim cn As SqlClient. SqlConnection = NewSqlClientSqlConnection (ConnStr)，建？ §立C ?e連？ 接？對(duì)？象 ？，?同8?時(shí)o?d說(shuō)I i明？連？ 接 ？字d?符O?串？Dim cmd As NewSqlClient.SqlCommand'生I “ 2 成“丨命

9、“ 1 令？對(duì)C?象?, ?用？于？ “ 2 執(zhí)？行DSQL語(yǔ)?？句？Dim dr As IDataReader，用？來(lái) CS?臨 C “ '時(shí) o?d?放存CS?執(zhí)？行 D 語(yǔ)?？句？后？的 i?結(jié) “ C果？Dim SQLStr As StringTrue ThenIf RadioButton 1.Checked =SQLStr =Hselect *from teacher where tusernum=M+ TextBoxl .Text +cmd.Connection = cncn.Open()cmd.CommandTe xt = SQLS trdr = cmd.ExecuteR

10、eader()If dr.Read() ThenIf dr!tpwd.ToString().Triin = TextBox2.TextThenIf TextBox3.Text = TextBox4.Text ThenMsgBox(”登 i?錄？成 I 功”)Dim jiaoshi As New Form3 jiaoshi.ShowDia log()Hide()ElseMsgBox(End If”驗(yàn)丨證？Q碼？錯(cuò)？誤？"）ElseMsgBox（”密 1 碼？不？正 y 確 ？B）End IfElseMsgBox(” 該？用？戶(hù)？i 不？存？在 2“)End Ifdr.Close()cn

11、.Close()ElseSQLStr ="select *from student where snum="+ "n,+ TextBoxl .Text +cmd.Connection = cncn.Open()cmd.CommandTe xt = SQLStrdr = cmd.ExecuteReader()If dr.Read() ThenIf dr!spwd.ToString().Trim = TextBox2.TextThenIf TextBox3.Text = TextBox4.Text ThenMsgBox(”登 i?錄？成 I 功I”)Dim xuesh

12、eng As New Form6xuesheng.Show()Me. Hide ()ElseMsgBox('* 驗(yàn)-I 證？。碼？錯(cuò)？ a 誤?M)End IfElseMsgBox(”密"1 碼?不？正 y 確 ？O“)End IfElseMsgBox(” 該？用？戶(hù)？i 不？存？在"2“)End Ifdr.Close()cn.Close()End IfEnd SubPrivate Sub Button l_Click( ByVai sender As System. Object, By Vai e As Sys tem. EventArgs ) Handles

13、Button 1 .ClickDim zhuce As New Form2zhuce.Show()Me. Hide ()End Sub2.注冊(cè)界面Public Class Form2Dim objDS As New DataSetDim objXSTable As DataTableDim objda As NewSqlClientSqlDataAdapterDim cn As NewSqlClient. SqlConnection (nserver=(local);uid=sa;pwd=l234;database=shiyMPublic Sub refreshdata()objda.Upda

14、te(objDS,"teacher")，第 i '2 二 t 個(gè)？參？數(shù) oy 為 a 需要 a。更1 新？數(shù) oy 據(jù) Y 庫(kù) a表a" a名？objXSTable.Clear()Me.zhuce_Click( Nothing , Nothing )objDS.AcceptChanges()End SubPrivate Sub zhuce_Click( ByVai sender As System. Object, By Vai e As Syste m. Eve nt Args ) Handleszhuce .ClickDim cmd As NewSq

15、lClient SqlCommandcmd.Connection = cn，數(shù) oy 據(jù) Y 從？ " ？當(dāng) i ?d 前？建？ §立 ?0?連的 <n?接"？cn 中 D 進(jìn)？入"?If RadioButton 1.Checked =True ThenDim builderAs SqlClientSqlCommandBuilder = NewSqlClient. SqlCommandBuilder(objda)Trycn.Open()cmd.CommandText ="select * from teacher11objda.S ele

16、ctCommand = cmdobjda.Fill(objDS,"teacher")objXS Table = objDS .Table s("teacher")cn.Close()Dim response As MsgBoxResultresponse = MsgBox(” 確"?實(shí) ol i 要 a 注。d ?Q 冊(cè)"Ce?嗎 e?'1,vbOKCancel +vbQuestion,"系I i 統(tǒng) a3 提？0 示？”o)If response = MsgBoxResult.Ok ThenDim myRow As

17、 DataRowmyRow = objXS Table.NewRowmyRow("tusernum") = TextBoxl .TextmyRow(ntusernameM) = username 1 .TextmyRow(HtpwdM) = mima l.TextobjXS Table .Rows.Add(myRow)teacher11 )objda.Update(objDS, objDS .AcceptChanges() refreshdata()End IfCatch ex As ExceptionEnd TryElseDim builderAs SqlClient S

18、qlCommandBuilder = NewSqlClient. SqlCommandBuilder(objda)cn.Open()cmd.CommandText =nselect *fh)m student11objda.SelectCommand = cmdobjda.Fill(objDS,"student11 )objXS Table = objDS .Tables('student'1 ) cn.Close()Dim response As MsgBoxResultresponse = MsgBox("確 “？。實(shí) ol i 要 a 注。d?Q 冊(cè)&

19、quot;Oe?嗎 e?n, vbOKCancel + vbQuestion,”系I i統(tǒng)a3提？ " C示？ ”o)If response = MsgBoxResult.Ok ThenDim myRow As DataRowmyRow = objXS Table.NewRowmyRow("snum") = TextBoxl .TextmyRow(nsnamen) = username 1 .TextmyRow(”spwcT ) = mima 1 .TextobjXS Table.Rows .Add(myRow)HstudentM )objda.Update (o

20、bjDS, objDS .AcceptChanges() re freshdata()End IfEnd IfDim denglu As New Forml denglu.Show()Me. Hide ()End SubPrivate Sub chongzhi_Click( ByVai sender As System. Object, By Vai e As Sys tem. EventArgs ) Handles chongzhi.Clickusername 1. Text =,Hmima 1.Text =”qmimal.Text =""End SubEnd Class

21、3. 教師界面Public Class Form3Private Sub Button l_Click( ByVai sender As System. Object, By Vai e As System. EventArgs )Handles Button 1.ClickDim kebiao As New Form4kebiao.Show()Me. Hide ()End SubPrivate Sub Button4_Click( ByVai sender As System. Object, By Vai e As System. Eve nt Args )Handles Button4.

22、ClickDim denglu As New Forml denglu.ShowQMe.Hide()End SubPrivate Sub Button5_Click( ByVai sender As System. Object, By Vai e As System. Eve nt Args )End SubPrivate Sub Button2_Click( ByVai sender As System. Object, By Vai e As System. EventArgs )Handles Button2.ClickDim chengjig As New Form5chengjig

23、.Show()Me. Hide ()End SubPrivate Sub Button3_Click( ByVai sender As System. Object, By Vai e As Sys tern. EventArgs )End Sub4. 課表管理Private Sub Button l_Click(By Vai sender As Syste m. Object, By Vai e As System. EventArgs )Handles Button 1 .ClickDim conn As New SqlConnectionDim comm As New SqlComman

24、dconn.Connections tring =Hserver=(local); uid=sa;pwd=1234;database=shiynconn.Open()comm.CommandText =nselect *from course where coursenum =,M&Me.TextBox 1.Text &and courxseclass="' & Me.TextBox2.Text &comm.Connection = conncomm.CommandText =nselect coursename from course whe

25、re coursenum =Ht&Me.TextBoxl.Text & and courxseclass="' &Me.TextBox2.Text &Me. TextBox3.Te xt = comm.Execute Scalarcomm.Connection = conncomm.CommandText ="select coursetime fi-om course where coursenum =n&Me.TextBoxl.Text & H, and courxseclass=Ht &Me.TextBo

26、x2.Text &Me. TextBox4.Te xt = com m. ExecuteScalarcomm.Connection = conncomm.CommandText =nselect courseaddress fi-om course where coursenum =n,&Me.TextBoxl.Text & and courxseclass=*" &Me.TextBox2.Text &Me. TextBox5.Te xt = comm.Execute Scalarcomm.Connection = connconn.Close

27、()End SubPrivate Sub Button2_Click( ByVai sender As System. Object, ByVai e As System. Eve nt Args )Handles Button2.ClickDim jiaoshyiemian As New Form3jiaosh yie mian.S how()Me. Hide ()End Sub5 成績(jī)管理Imports Syste m.Data.SqlClientPublic Class Form5Private Sub Button5_Click( ByVai sender As System. Obj

28、ect，By Vai e As Sys tern. EventAigs ) Handles Button5.ClickDim jiaoshi As New Form3jiaoshi.Show()Me. Hide ()End SubPrivate Sub Button l_Click( ByVai sender As System. Object, By Vai e As Sys tern. Eve nt Args )Handles Button 1 .ClickDim conn As New SqlConnectionDim comm As New SqlCommandconn.Connect

29、ions tring =nserver=(local); uid=sa;pwd=1234;database=shiyMconn.Open()comm.CommandText ="select * from chengji"comm.Connection = connDim da As New SqlDataAdapter (comm.CommandText, conn)Dim ds As New DataSetda.Fill(ds,"chengji")conn.Close()Me.DataGridViewl .DataSource = ds.Tables

30、(O)End SubPrivate Sub Button2_Click( ByVai sender As System. Object, By Vai e As System. EventArgs )Handles Button2.ClickDim conn As New SqlConnectionDim comm As New SqlCommandconn.Connections tring =nserver=(local); uid=sa;pwd=1234;database=shiynconn.Open()comm.CommandText = "insert into cheng

31、ji values(H,& Me.TextBox2.Text &&Me.TextBox3.Text &&Me.TextBox4.Text && Me.TextBox5.Text &comm.Connection = conncom m. Execute NonQueryOcomm.CommandText = "select * from chengji”comm.Connection = connDim da As New SqlDataAdapter (comm.CommandText, conn)Dim ds As

32、New DataSetda.Fill(ds,"chengji")conn.Close()Me.DataGridViewl .DataSource = ds.Tables(O)End SubPrivate Sub Button3_Click( ByVai sender As System. Object, By Vai e As System. EventArgs ) Handles Button3.ClickDim conn As New SqlConnectionDim comm As New SqlCommandconn.Connections tring =nserv

33、er=(local); uid=sa;pwd=1234;database=shiynconn.Open()comm.CommandText= "update chengji set snum=H, &Me.TextBox2.Text &ncoursenum=H& Me.Te xtBox3.Text & ”,course name& Me .Te xtBox4.Te xt & "coursegrade" &Me.TextBox5.Text & where snum=,n & Me.TextBox

34、2.Text &comm .Connection = conncom m. Execute NonQueryOcomm.CommandText ="select * from chengji11comm.Connection = connDim da As New SqlDataAdapter (comm.CommandText, conn)Dim ds As New DataSetda.Fill(ds,"chengji")conn.Close()Me.DataGridViewl .DataSource = ds.Tables(O)End SubPriva

35、te Sub Button4_Click( ByVai sender As System Object, By Vai e As System EventArgs ) Handles Button4.ClickDim conn As New SqlConnectionDim comm As New SqlCommandconn.Connections tring =Hserver=(local); uid=s a ;pwd= 1234;da taba se =shiynconn.Open()comm.CommandText =ndelete ft-om chengji where snum =

36、n& Me.TextBox2.Textcomm.Connection = conncom m. Execute NonQueryOcomm.CommandText ='select * from chengji”comm.Connection = connDim da As New SqlDataAdapter (comm.CommandText, conn)Dim ds As New DataSetda.Fill(ds,"chengji")conn.Close()Me. Da ta G rid Vie w 1 .DataSource = ds.Tables

37、(O)End Sub6.學(xué)生界面Private Sub Button6_Click( ByVai sender As System. Object，By Vai e As System. Eve nt Args ) Handles Button6.ClickDim denglu As New Formldenglu.Show()Me. Hide ()End SubPrivate Sub Button l_Click( ByVai sender As System. Object, By Vai e As System. EventArgs ) Handles Button 1 .ClickDi

38、m conn As New SqlConnectionDim comm As New SqlCommandconn.Connections tring =Hserver=(local); uid=s a ;pwd= 1234;da taba se =shiynconn.Open()comm.CommandText = "select *from scoursencomm.Connection = connDim da As New SqlDataAdapter (comm.CommandText, conn)Dim ds As New DataSetda.Fill(ds,"

39、scourse")conn.Close()Me.DataGridViewl .DataSource = ds.Tables(O)End SubPrivate Sub Button3_Click( ByVai sender As System. Object, By Vai e As System. EventArgs )End SubPrivate Sub Button2_Click( ByVai sender As System. Object，By Vai e As Sys tern. EventAigs )Handles Button2.ClickDim conn As New SqlConnectionDim comm As New SqlCommandconn.Connections tring =nserver=(local); uid=sa;pwd=1234;database=shiynconn.Open()comm.CommandText = 'select * from grchengji,r comm.Connection = connDim da As New SqlDataAdapter (comm.Comman