教學管理系統(tǒng)數(shù)據(jù)庫課程設計

PAGE數(shù)據(jù)庫課程設計報告教學管理系統(tǒng)實驗題目：教學管理系統(tǒng)教學管理系統(tǒng)目錄一、 概述 3二、總體設計 31、軟件環(huán)境： 32、硬件環(huán)境： 3三、實驗主要內(nèi)容 31、主要數(shù)據(jù)表 42、功能模塊 4四、系統(tǒng)分析報告 41、數(shù)據(jù)流圖 42、系統(tǒng)功能模塊 53、業(yè)務流圖 54、系統(tǒng)數(shù)據(jù)模型設計 6五、代碼實現(xiàn) 91.登錄界面 92.注冊界面 113.教師界面 134.課表管理 145.成績管理 156.學生界面 167.網(wǎng)上評教 18六、系統(tǒng)實現(xiàn)結果 18七、實驗分工及總結 23概述數(shù)據(jù)庫課程設計是集中實踐性環(huán)節(jié)之一，是學習完《數(shù)據(jù)庫原理及應用》課程后進行的一次全面的綜合的實踐練習，主要目的在于加深學生對數(shù)據(jù)庫基礎理論和基本知識的理解，熟悉數(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)境：VisualStudio2010、SQLServerManagementStudio2、硬件環(huán)境：PC機三、實驗主要內(nèi)容1、主要數(shù)據(jù)表課程信息表，學生信息表單，教師信息表，學生成績表等。2、功能模塊（1）課程設置，包括：查詢、添加、刪除、查詢和修改課程信息（2）學生成績查詢，網(wǎng)上評教。（3）教師查詢課程時間和教室的安排。（4）教師管理學生成績查詢，添加，修改，刪除。（5）學生和教師信息的注冊。四、系統(tǒng)分析報告1、數(shù)據(jù)流圖教學管理系統(tǒng)的基本數(shù)據(jù)流圖如下所示：學生選課信息新增課程新增課程學生選課管理教師課程信息學生選課管理教師選課審核信息圖1教學管理系統(tǒng)的基本數(shù)據(jù)流圖學生成績信息考試成績考試成績?nèi)握n老師學生考試信息任課老師成績管理學生信息管理成績管理個人考試信息學生管理員學生管理員成績確認信息圖2教學管理系統(tǒng)的基本數(shù)據(jù)流圖排課信息課表信息課表信息學生個人考試成績學生教學安排教學安排管理員排課信息排課信息管理員任課教師排課信息任課教師圖3教學管理系統(tǒng)的基本數(shù)據(jù)流圖2、系統(tǒng)功能模塊本系統(tǒng)主要包括學生信息管理、課程信息管理、成績信息管理等模塊，另外還包括進行系統(tǒng)管理的一些輔助模塊。其示意圖如下：教學管理系統(tǒng)教學管理系統(tǒng)教師信息管理教師信息管理信息注冊信息注冊學生學生信息管理學生信息注冊成績管理學生信息注冊成績管理課表管理查詢信息教師信息注冊教師信息注冊刪除查詢教室查詢課名查詢刪除查詢教室查詢課名查詢添加網(wǎng)上評教成績添加網(wǎng)上評教成績查詢課程信息3、業(yè)務流圖4、系統(tǒng)數(shù)據(jù)模型設計（1）系統(tǒng)ER圖教師課程學生選修修考試教師課程學生選修修考試授課成績成績各實體E-R圖：學生信息：姓名姓名登錄密碼登錄密碼學號學生學號學生課程信息：課程名課程號課程名課程號課程信息課程信息登錄密碼上課時間登錄密碼上課時間上課教室教師信息：姓名教師編號姓名教師編號教師教師登錄登錄密碼學生成績：課程號課程號學生成績學生成績學號學號課程名成績課程名成績關系模式學生信息（姓名，學號，登錄密碼）課程信息（課程號，課程名，上課教室，登錄密碼，）教師信息（教師編號，姓名，登錄密碼）學生成績（學號，課程號，課程名，成績）數(shù)據(jù)表課程信息表教師信息表個人成績表學生成績表學生課表五、代碼實現(xiàn)1.登錄界面PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadDimmin,max,rndnum,iAsIntegermin=10max=99TextBox4.Text=""Fori=0To1rndnum=CStr(CInt(min+Rnd()*(max-min)))TextBox4.Text=TextBox4.Text&""&rndnumNextEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimConnStrAsString="Server=(local);uid=sa;pwd=1234;database=shiy"DimcnAsSqlClient.SqlConnection=NewSqlClient.SqlConnection(ConnStr)'建?§立￠?é連￠?接¨?對?象¨?，ê?同a?時o?à說|ì明??連￠?接¨?字á?符¤?串??DimcmdAsNewSqlClient.SqlCommand'生|¨2成¨|命¨1令￠?對?象¨?，ê?用??于?¨2執(zhí)??行DSQL語??句?DimdrAsIDataReader'用??來¤??臨￠¨′時o?à存??放¤?執(zhí)??行D語??句?后¨?的ì?結¨￠果?DimSQLStrAsStringIfRadioButton1.Checked=TrueThenSQLStr="select*fromteacherwheretusernum="+"'"+TextBox1.Text+"'"cmd.Connection=cncn.Open()cmd.CommandText=SQLStrdr=cmd.ExecuteReader()Ifdr.Read()ThenIfdr!tpwd.ToString().Trim=TextBox2.TextThenIfTextBox3.Text=TextBox4.TextThenMsgBox("登ì?錄?成¨|功|")DimjiaoshiAsNewForm3jiaoshi.ShowDialog()Hide()ElseMsgBox("驗¨|證?è碼?錯?¨a誤¨?")EndIfElseMsgBox("密¨1碼?不?正y確¨?¤")EndIfElseMsgBox("該?用??戶?ì不?存??在¨2")EndIfdr.Close()cn.Close()ElseSQLStr="select*fromstudentwheresnum="+"'"+TextBox1.Text+"'"cmd.Connection=cncn.Open()cmd.CommandText=SQLStrdr=cmd.ExecuteReader()Ifdr.Read()ThenIfdr!spwd.ToString().Trim=TextBox2.TextThenIfTextBox3.Text=TextBox4.TextThenMsgBox("登ì?錄?成¨|功|")DimxueshengAsNewForm6xuesheng.Show()Me.Hide()ElseMsgBox("驗¨|證?è碼?錯?¨a誤¨?")EndIfElseMsgBox("密¨1碼?不?正y確¨?¤")EndIfElseMsgBox("該?用??戶?ì不?存??在¨2")EndIfdr.Close()cn.Close()EndIfEndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimzhuceAsNewForm2zhuce.Show()Me.Hide()EndSub2.注冊界面PublicClassForm2DimobjDSAsNewDataSetDimobjXSTableAsDataTableDimobjdaAsNewSqlClient.SqlDataAdapterDimcnAsNewSqlClient.SqlConnection("server=(local);uid=sa;pwd=1234;database=shiy")PublicSubrefreshdata()objda.Update(objDS,"teacher")'第ì¨2二t個?參?數(shù)oy為a需¨¨要°a更¨1新?數(shù)oy據(jù)Y庫a表à¨a名?objXSTable.Clear()Me.zhuce_Click(Nothing,Nothing)objDS.AcceptChanges()EndSubPrivateSubzhuce_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handleszhuce.ClickDimcmdAsNewSqlClient.SqlCommandcmd.Connection=cn'數(shù)oy據(jù)Y從?¨?當ì?à前??建?§立￠?é的ì?連￠?接¨?cn中D進?入¨?IfRadioButton1.Checked=TrueThenDimbuilderAsSqlClient.SqlCommandBuilder=NewSqlClient.SqlCommandBuilder(objda)Trycn.Open()cmd.CommandText="select*fromteacher"objda.SelectCommand=cmdobjda.Fill(objDS,"teacher")objXSTable=objDS.Tables("teacher")cn.Close()DimresponseAsMsgBoxResultresponse=MsgBox("確¨?¤實o|ì要°a注á?é冊¨￠嗎e？ê?",vbOKCancel+vbQuestion,"系|ì統(tǒng)a3提?¨￠示o?")Ifresponse=MsgBoxResult.OkThenDimmyRowAsDataRowmyRow=objXSTable.NewRowmyRow("tusernum")=TextBox1.TextmyRow("tusername")=username1.TextmyRow("tpwd")=mima1.TextobjXSTable.Rows.Add(myRow)objda.Update(objDS,"teacher")objDS.AcceptChanges()refreshdata()EndIfCatchexAsExceptionEndTryElseDimbuilderAsSqlClient.SqlCommandBuilder=NewSqlClient.SqlCommandBuilder(objda)cn.Open()cmd.CommandText="select*fromstudent"objda.SelectCommand=cmdobjda.Fill(objDS,"student")objXSTable=objDS.Tables("student")cn.Close()DimresponseAsMsgBoxResultresponse=MsgBox("確¨?¤實o|ì要°a注á?é冊¨￠嗎e？ê?",vbOKCancel+vbQuestion,"系|ì統(tǒng)a3提?¨￠示o?")Ifresponse=MsgBoxResult.OkThenDimmyRowAsDataRowmyRow=objXSTable.NewRowmyRow("snum")=TextBox1.TextmyRow("sname")=username1.TextmyRow("spwd")=mima1.TextobjXSTable.Rows.Add(myRow)objda.Update(objDS,"student")objDS.AcceptChanges()refreshdata()EndIfEndIfDimdengluAsNewForm1denglu.Show()Me.Hide()EndSubPrivateSubchongzhi_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handleschongzhi.Clickusername1.Text=""mima1.Text=""qmima1.Text=""EndSubEndClass3.教師界面PublicClassForm3PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimkebiaoAsNewForm4kebiao.Show()Me.Hide()EndSubPrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.ClickDimdengluAsNewForm1denglu.Show()Me.Hide()EndSubPrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)EndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimchengjigAsNewForm5chengjig.Show()Me.Hide()EndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)EndSub4.課表管理PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimconnAsNewSqlConnectionDimcommAsNewSqlCommandconn.ConnectionString="server=(local);uid=sa;pwd=1234;database=shiy"conn.Open()comm.CommandText="select*fromcoursewherecoursenum='"&Me.TextBox1.Text&"'andcourxseclass='"&Me.TextBox2.Text&"'"comm.Connection=conncomm.CommandText="selectcoursenamefromcoursewherecoursenum='"&Me.TextBox1.Text&"'andcourxseclass='"&Me.TextBox2.Text&"'"Me.TextBox3.Text=comm.ExecuteScalarcomm.Connection=conncomm.CommandText="selectcoursetimefromcoursewherecoursenum='"&Me.TextBox1.Text&"'andcourxseclass='"&Me.TextBox2.Text&"'"Me.TextBox4.Text=comm.ExecuteScalarcomm.Connection=conncomm.CommandText="selectcourseaddressfromcoursewherecoursenum='"&Me.TextBox1.Text&"'andcourxseclass='"&Me.TextBox2.Text&"'"Me.TextBox5.Text=comm.ExecuteScalarcomm.Connection=connconn.Close()EndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimjiaoshijiemianAsNewForm3jiaoshijiemian.Show()Me.Hide()EndSub5.成績管理ImportsSystem.Data.SqlClientPublicClassForm5PrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.ClickDimjiaoshiAsNewForm3jiaoshi.Show()Me.Hide()EndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimconnAsNewSqlConnectionDimcommAsNewSqlCommandconn.ConnectionString="server=(local);uid=sa;pwd=1234;database=shiy"conn.Open()comm.CommandText="select*fromchengji"comm.Connection=connDimdaAsNewSqlDataAdapter(comm.CommandText,conn)DimdsAsNewDataSetda.Fill(ds,"chengji")conn.Close()Me.DataGridView1.DataSource=ds.Tables(0)EndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimconnAsNewSqlConnectionDimcommAsNewSqlCommandconn.ConnectionString="server=(local);uid=sa;pwd=1234;database=shiy"conn.Open()comm.CommandText="insertintochengjivalues('"&Me.TextBox2.Text&"','"&Me.TextBox3.Text&"','"&Me.TextBox4.Text&"','"&Me.TextBox5.Text&"')"comm.Connection=conncomm.ExecuteNonQuery()comm.CommandText="select*fromchengji"comm.Connection=connDimdaAsNewSqlDataAdapter(comm.CommandText,conn)DimdsAsNewDataSetda.Fill(ds,"chengji")conn.Close()Me.DataGridView1.DataSource=ds.Tables(0)EndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickDimconnAsNewSqlConnectionDimcommAsNewSqlCommandconn.ConnectionString="server=(local);uid=sa;pwd=1234;database=shiy"conn.Open()comm.CommandText="updatechengjisetsnum='"&Me.TextBox2.Text&"',coursenum="&Me.TextBox3.Text&",coursename='"&Me.TextBox4.Text&"',coursegrade='"&Me.TextBox5.Text&"'wheresnum='"&Me.TextBox2.Text&"'"comm.Connection=conncomm.ExecuteNonQuery()comm.CommandText="select*fromchengji"comm.Connection=connDimdaAsNewSqlDataAdapter(comm.CommandText,conn)DimdsAsNewDataSetda.Fill(ds,"chengji")conn.Close()Me.DataGridView1.DataSource=ds.Tables(0)EndSubPrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.ClickDimconnAsNewSqlConnectionDimcommAsNewSqlCommandconn.ConnectionString="server=(local);uid=sa;pwd=1234;database=shiy"conn.Open()comm.CommandText="deletefromchengjiwheresnum="&Me.TextBox2.Textcomm.Connection=conncomm.ExecuteNonQuery()comm.CommandText="select*fromchengji"comm.Connection=connDimdaAsNewSqlDataAdapter(comm.CommandText,conn)DimdsAsNewDataSetda.Fill(ds,"chengji")conn.Close()Me.DataGridView1.DataSource=ds.Tables(0)EndSub6.學生界面PrivateSubButton6_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton6.ClickDimdengluAsNewForm1denglu.Show()Me.Hide()EndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimconnAsNewSqlConnectionDimcommAsNewSqlCommandconn.ConnectionString="server=(local);uid=sa;pwd=1234;database=shiy"conn.Open()