教學管理系統(tǒng)課程設計

1、教學管理系統(tǒng)課程設計目錄一、 概述 1.二、總體設計2.1、軟件環(huán)境：2.2、硬件環(huán)境：2.三、實驗主要內容2.1、主要數(shù)據(jù)表2.2、功能模塊2.四、系統(tǒng)分析報告2.1、數(shù)據(jù)流圖2.2、系統(tǒng)功能模塊3.3、業(yè)務流圖4.4、系統(tǒng)數(shù)據(jù)模型設計4.五、代碼實現(xiàn)7.1 . 登錄界面7.2 .注冊界面9.3 .教師界面1.1.4 .課表管理1.2.5 .成績管理1.3.6 .學生界面1.5.7 .網上評教1.6.六、系統(tǒng)實現(xiàn)結果1.6.七、實驗分工及總結2.1.概述數(shù)據(jù)庫課程設計是集中實踐性環(huán)節(jié)之一，是學習完數(shù)據(jù)庫原 理及應用課程后進行的一次全面的綜合的實踐練習， 主要目的在于 加深學生對數(shù)據(jù)庫基礎理論

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

3、、查詢和修改課程信 息(2)學生成績查詢，網上評教。(3)教師查詢課程時間和教室的安排。(4)教師管理學生成績查詢，添加，修改，刪除。(5)學生和教師信息的注冊。四、系統(tǒng)分析報告1、數(shù)據(jù)流圖教學管理系統(tǒng)的基本數(shù)據(jù)流圖如下所示:學生選課信息學生新增課程選課管理課程信息教師選課審核信息圖1教學管理系統(tǒng)的基本數(shù)據(jù)流圖任課老師學生信息管理管理員學生成績信息學生考試信息管理員成績確認信息排課信息圖2教學管理系統(tǒng)的基本數(shù)據(jù)流圖排課信息課表信息教學安排個人考試成績排課信息學生排課信息任課教師圖3教學管理系統(tǒng)的基本數(shù)據(jù)流圖2、系統(tǒng)功能模塊本系統(tǒng)主要包括學生信息管理、課程信息管理、成績信息管理等模塊，另外還包括

4、進行系統(tǒng)管理的一些輔助模塊。其示意圖如下:目戶查 詢學 生 信 息 注 冊查詢信息課 程 信 息教 師 信 息 注 冊學生信 息管理教室查詢宣鼠利陽用戶衿常比存崎-檢驗海加 查強 叫除4、系統(tǒng)數(shù)據(jù)模型設計(1)系統(tǒng)ER圖課程信息:教師信息:學生成績:（2）關系模式學生信息（姓名，學號，登錄密碼）課程信息（課程號、課程名，上課教室，登錄密碼，）教師信息（教師編號，姓名.登錄密碼）學生成績（學號，課程號，課程名，成績J（3）數(shù)據(jù)表課程信息表PCshiy dbo.eDunccoursenLfinooLFsenamenxjNseda5saxjrsetniecourseaad'ess卜11001

5、數(shù)據(jù)摩ja'.'flHOL星期一3, 6）星期一（ 3用13061002BOI130610031401星期一 （140S1004軟件工程1401星期二（M>203051005嵌入式nox要期五（M）1308教師信息表PC-Uiiy - dbc.teachertusefrumtusemametpwdk孫老師san 1234HO 工馬老昨ml234101010斤斤計較V-»56個人J成二貝表PCfihiy - dbo.grchengjicoasenumcxirsenameC0ur$aM«k卜數(shù)據(jù)庫朧1002月丁自ag1003androd的1004軟件工程n

6、1035戢入式60100685羯NULLNULLNUU.學生J成二貝表X1410Q1031001數(shù)掘庫的20141001031002javaB72OH1O31C31003android日 T2014100 K 31004軟件工程8S2Q HIM IC 31005塞入式B4學生1果表PC.shty - dbo,scourge PChi)-dbo course PC,弓卜iy - dtxATekdoycnumcname*國.1002java星期六1001勤據(jù)庫SMB1003and-aid矍期三1003andoid星期四1004軟件工程星期五1005府入式星期一1001數(shù)據(jù)庫米NULLNUU.五、代

7、碼實現(xiàn)1 .登錄界面Private Sub Form1_Load(ByVal sender As System. Object , ByVal e AsSystem. EventArgs) Handles MyBaseLoadDim min, max, rndnum, i As Integermin = 10max = 99TextBox4.Text =""For i = 0 To 1rndnum =CStr ( CInt (min + Rnd() * (max - min)"" & rndnumTextBox4.Text = TextBox4.

8、Text &NextEnd SubPrivate Sub Button2_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles Button2.ClickDim ConnStr As String = "Server=(local);uid=sa;pwd=1234;database=shiy"Dim cn As SqlClient. SqlConnection = NewSqlClient. SqlConnection (ConnStr) ' 建 ?

9、67; 立06連。接一？又t?象一 ？，6?同a?時0?d說|明？連。接一？字&?符。？串？Dim cmd As NewSqlClient. SqlCommand'生|一 2成.,命 一 1令t?象 一？，夕用？于？ 一2 執(zhí)？f DSQ語？ ？句？Dim dr As IDataReader'用？來。？臨。，時。團存?放。？執(zhí)？亍照? ?句？后一 ?的？結一裸？Dim SQLStr As StringIf RadioButton1.Checked = True ThenSQLStr = "select * from teacher where tusernum

10、=" + "'" + TextBox1.Text + cmd.Connection = cn cn.Open() cmd.CommandText = SQLStr dr = cmd.ExecuteReader()If dr.Read() ThenIf dr!tpwd.ToString().Trim = TextBox2.Text ThenIf TextBox3.Text = TextBox4.Text ThenMsgBox("登？錄?成, |功 |")Dim jiaoshi As New Form3 jiaoshi.ShowDialog

11、() Hide() ElseMsgBox("驗. |證？6 碼錯？一2誤一 ?")End If ElseMsgBox("密 一 1碼？不？正丫確一？。”)End IfElseMsgBox( "該?用？ ？戶？ i 型存？?在 一 2") End Ifdr.Close()cn.Close()ElseSQLStr = "select * from student where snum=" + "'" + TextBox1.Text +cmd.Connection = cncn.Open()cmd.Co

12、mmandText = SQLStrdr = cmd.ExecuteReader()If dr.Read() ThenIf dr!spwd.ToString().Trim = TextBox2.Text ThenIf TextBox3.Text = TextBox4.Text ThenMsgBox("登？錄?成, |功 |")Dim xuesheng As NewForm6xuesheng.Show()Me.Hide()ElseMsgBox("驗. |證？6碼錯？.a誤一 ?")End IfElseMsgBox("密 一 1碼？不？正丫確一？。

13、”)End IfElseMsgBox( "該?用？ ？戶？ i 型存？?在 一 2")End Ifdr.Close()cn.Close()End IfEnd SubPrivate Sub Button1_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles Button1.ClickDim zhuce As New Form2zhuce.Show()Me.Hide()End Sub2 .注冊界面Public Class Form2Dim objDS As New Data

14、SetDim objXSTable As DataTableDim objda As NewSqlClient. SqlDataAdapterDim cn As NewSqlClient. SqlConnection ( "server=(local);uid=sa;pwd=1234;database=shiy" )Public Sub refreshdata()objda.Update(objDS, "teacher")'第廣 2二t 個?參？數(shù)oy為a需,一 要。a更 一 1 新？數(shù)oy據(jù)Y庫a表era名？objXSTable.Clear()

15、Me.zhuce_Click( Nothing , Nothing )objDS.AcceptChanges()End SubPrivate Sub zhuce_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles zhuce.ClickDim cmd As NewSqlClient. SqlCommandcmd.Connection = cn'數(shù)oy據(jù)丫從？一？當？d前？建？ §立的？連。接一 ？cn中M?入 ？If RadioButton1.Checked = True

16、 ThenDim builder As SqlClient. SqlCommandBuilder = NewSqlClient. SqlCommandBuilder(objda) Trycn.Open()cmd.CommandText ="select * from teacher"objda.SelectCommand = cmd objda.Fill(objDS,"teacher" )objXSTable = objDS.Tables("teacher" )cn.Close()Dim response As MsgBoxResul

17、tresponse = MsgBox("確 一？。實 o|il ° a 注 &？6 冊 一0 e? e？", vbOKCancel +vbQuestion,"系 |a3提？ 一 際o？")If response = MsgBoxResult.Ok Then Dim myRow As DataRowmyRow = objXSTable.NewRowmyRow("tusernum" ) = TextBox1.TextmyRow("tusername" ) = username1.TextmyRow(&

18、quot;tpwd" ) = mima1.TextobjXSTable.Rows.Add(myRow)objda.Update(objDS,"teacher" )objDS.AcceptChanges() refreshdata()End IfCatch ex As ExceptionEnd TryElse Dim builder As SqlClient. SqlCommandBuilder = NewSqlClient. SqlCommandBuilder(objda)cn.Open()"select * from studentcmd.Comman

19、dText =objda.SelectCommand = cmdobjda.Fill(objDS,"student" )objXSTable = objDS.Tables("student" )cn.Close()Dim response As MsgBoxResultresponse = MsgBox( "確,.？。實o| 要° a注 &?6 冊,鳴e? e?", vbOKCancel + vbQuestion,"系 |a3提？ 一 際o?")If response = MsgBoxResult

20、.Ok ThenDim myRow As DataRowmyRow = objXSTable.NewRowmyRow("snum") = TextBox1.TextmyRow("sname") = username1.TextmyRow("spwd" ) = mima1.TextobjXSTable.Rows.Add(myRow)objda.Update(objDS,"student" )objDS.AcceptChanges() refreshdata()End IfEnd IfDim denglu As New

21、 Form1denglu.Show()Me.Hide()End SubPrivate Sub chongzhi_Click( ByVal sender As System. Object , ByVal e As System. EventArgs )Handles chongzhi.Clickusername1.Text =""mima1.Text =""qmima1.Text =""End SubEnd Class3 .教師界面Public Class Form3Private Sub Button1_Click( ByVal s

22、ender As System. Object , ByVal e As System. EventArgs )Handles Button1.ClickDim kebiao As New Form4kebiao.Show()Me.Hide()End SubPrivate Sub Button4_Click( ByVal sender As System. Object , ByVal e As System. EventArgs )Handles Button4.ClickDim denglu As New Form1denglu.Show()Me.Hide()End SubPrivate

23、Sub Button5_Click( ByVal sender As System. Object , ByVal e As System. EventArgs )End SubPrivate Sub Button2_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles Button2.ClickDim chengjig As New Form5chengjig.Show()Me.Hide()End SubPrivate Sub Button3_Click( ByVal sender As

24、System. Object , ByVal e As System. EventArgs )End Sub4 .課表管理Private Sub Button1_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles Button1.ClickDim conn As New SqlConnectionDim comm As New SqlCommandconn.ConnectionString ="server=(local); uid=sa;pwd=1234;database=sh

25、iy"conn.Open()comm.CommandText = "select * from course where coursenum ='"& Me.TextBox1.Text &"' and courxseclass='" & Me.TextBox2.Text &"'"comm.Connection = conncomm.CommandText = "select coursename from course where coursenum

26、='"&Me.TextBox1.Text &"' and courxseclass='" & Me.TextBox2.Text &"'"Me.TextBox3.Text = comm.ExecuteScalarcomm.Connection = conncomm.CommandText = "select coursetime from course where coursenum ='"&Me.TextBox1.Text &"

27、' and courxseclass='" & Me.TextBox2.Text &"'"Me.TextBox4.Text = comm.ExecuteScalarcomm.Connection = conncomm.CommandText = "select courseaddress from course where coursenum ='"&Me.TextBox1.Text &"' and courxseclass='" & M

28、e.TextBox2.Text &"'"Me.TextBox5.Text = comm.ExecuteScalarcomm.Connection = connconn.Close()End SubPrivate Sub Button2_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles Button2.ClickDim jiaoshijiemian As NewForm3jiaoshijiemian.Show()Me.Hide()End Sub5 .成績

29、管理Imports System.Data.SqlClientPublic Class Form5Private Sub Button5_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles Button5.ClickDim jiaoshi As NewForm3jiaoshi.Show()Me.Hide()End SubPrivate Sub Button1_Click( ByVal sender As System. Object , ByVal e As System. EventAr

30、gs ) Handles Button1.ClickDim conn As New SqlConnectionDim comm As New SqlCommandconn.ConnectionString ="server=(local); uid=sa;pwd=1234;database=shiy"conn.Open()comm.CommandText = "select * from chengji"comm.Connection = connDim da As NewSqlDataAdapter (comm.CommandText, conn)Di

31、m ds As NewDataSetda.Fill(ds,"chengji" )conn.Close()Me.DataGridView1.DataSource = ds.Tables(0)End SubPrivate Sub Button2_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles Button2.ClickDim conn As New SqlConnectionDim comm As New SqlCommandconn.ConnectionString

32、="server=(local); uid=sa;pwd=1234;database=shiy"conn.Open()comm.CommandText = "insert into chengji values('"& Me.TextBox2.Text &"','"&Me.TextBox3.Text &"','"& Me.TextBox4.Text &"','"& Me.TextBox

33、5.Text &"')"comm.Connection = conncomm.ExecuteNonQuery()comm.CommandText = "select * from chengji"comm.Connection = connDim da As NewSqlDataAdapter (comm.CommandText, conn)Dim ds As NewDataSetda.Fill(ds,"chengji" )conn.Close()Me.DataGridView1.DataSource = ds.Tab

34、les(0)End SubPrivate Sub Button3_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles Button3.ClickDim conn As New SqlConnectionDim comm As New SqlCommandconn.ConnectionString ="server=(local); uid=sa;pwd=1234;database=shiy"conn.Open()comm.CommandText = "upda

35、te chengji set snum='" & Me.TextBox2.Text & "',coursenum="& Me.TextBox3.Text & ",coursename='" & Me.TextBox4.Text & "',coursegrade='" &Me.TextBox5.Text &"' where snum='" & Me.TextBox2.Text &a

36、mp;"'"comm.Connection = conncomm.ExecuteNonQuery()comm.CommandText = "select * from chengji"comm.Connection = connDim da As NewSqlDataAdapter (comm.CommandText, conn)Dim ds As NewDataSetda.Fill(ds,"chengji" )conn.Close()Me.DataGridView1.DataSource = ds.Tables(0)End

37、SubPrivate Sub Button4_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles Button4.ClickDim conn As New SqlConnectionDim comm As New SqlCommandconn.ConnectionString ="server=(local); uid=sa;pwd=1234;database=shiy"conn.Open()comm.CommandText = "delete from ch

38、engji where snum ="& Me.TextBox2.Textcomm.Connection = conncomm.ExecuteNonQuery()comm.CommandText = "select * from chengji"comm.Connection = connDim da As NewSqlDataAdapter (comm.CommandText, conn)Dim ds As NewDataSetda.Fill(ds,"chengji" )conn.Close()Me.DataGridView1.Dat

39、aSource = ds.Tables(0)End Sub6 .學生界面Private Sub Button6_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles Button6.ClickDim denglu As New Form1denglu.Show()Me.Hide()End SubPrivate Sub Button1_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles B

40、utton1.ClickDim conn As New SqlConnectionDim comm As New SqlCommandconn.ConnectionString ="server=(local); uid=sa;pwd=1234;database=shiy"conn.Open()comm.CommandText = "select * from scourse" comm.Connection = connDim da As NewSqlDataAdapter (comm.CommandText, conn)Dim ds As NewDa

41、taSetda.Fill(ds,"scourse" )conn.Close()Me.DataGridView1.DataSource = ds.Tables(0)End SubPrivate Sub Button3_Click( ByVal sender As System. Object , ByVal e As System. EventArgs )End SubPrivate Sub Button2_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles Button2.ClickDim conn As New SqlConnectionDim comm As New SqlCommandconn.ConnectionString ="server=(local); uid=sa;pwd=1234;database=shiy"con