教学管理系统数据库课程设计

PAGE数据库课程设计报告教学管理系统实验题目：教学管理系统教学管理系统目录一、 概述 3二、总体设计 31、软件环境： 32、硬件环境： 3三、实验主要内容 31、主要数据表 42、功能模块 4四、系统分析报告 41、数据流图 42、系统功能模块 53、业务流图 54、系统数据模型设计 6五、代码实现 91.登录界面 92.注册界面 113.教师界面 134.课表管理 145.成绩管理 156.学生界面 167.网上评教 18六、系统实现结果 18七、实验分工及总结 23概述数据库课程设计是集中实践性环节之一，是学习完《数据库原理及应用》课程后进行的一次全面的综合的实践练习，主要目的在于加深学生对数据库基础理论和基本知识的理解，熟悉数据库的设计方法，掌握基于数据库的信息管理系统的开发方法，进一步加强学生综合运用知识和实践动手的能力。学生根据所学的数据库原理与程序设计的知识，能够针对一个小型的数据库管理系统，进行系统的需求分析，系统设计，数据库设计，编码，测试等，完成题目要求的功能，从而达到掌握开发一个小型数据库的目的。二、总体设计1、软件环境：VisualStudio2010、SQLServerManagementStudio2、硬件环境：PC机三、实验主要内容1、主要数据表课程信息表，学生信息表单，教师信息表，学生成绩表等。2、功能模块（1）课程设置，包括：查询、添加、删除、查询和修改课程信息（2）学生成绩查询，网上评教。（3）教师查询课程时间和教室的安排。（4）教师管理学生成绩查询，添加，修改，删除。（5）学生和教师信息的注册。四、系统分析报告1、数据流图教学管理系统的基本数据流图如下所示：学生选课信息新增课程新增课程学生选课管理教师课程信息学生选课管理教师选课审核信息图1教学管理系统的基本数据流图学生成绩信息考试成绩考试成绩任课老师学生考试信息任课老师成绩管理学生信息管理成绩管理个人考试信息学生管理员学生管理员成绩确认信息图2教学管理系统的基本数据流图排课信息课表信息课表信息学生个人考试成绩学生教学安排教学安排管理员排课信息排课信息管理员任课教师排课信息任课教师图3教学管理系统的基本数据流图2、系统功能模块本系统主要包括学生信息管理、课程信息管理、成绩信息管理等模块，另外还包括进行系统管理的一些辅助模块。其示意图如下：教学管理系统教学管理系统教师信息管理教师信息管理信息注册信息注册学生学生信息管理学生信息注册成绩管理学生信息注册成绩管理课表管理查询信息教师信息注册教师信息注册删除查询教室查询课名查询删除查询教室查询课名查询添加网上评教成绩添加网上评教成绩查询课程信息3、业务流图4、系统数据模型设计（1）系统ER图教师课程学生选修修考试教师课程学生选修修考试授课成绩成绩各实体E-R图：学生信息：姓名姓名登录密码登录密码学号学生学号学生课程信息：课程名课程号课程名课程号课程信息课程信息登录密码上课时间登录密码上课时间上课教室教师信息：姓名教师编号姓名教师编号教师教师登录登录密码学生成绩：课程号课程号学生成绩学生成绩学号学号课程名成绩课程名成绩关系模式学生信息（姓名，学号，登录密码）课程信息（课程号，课程名，上课教室，登录密码，）教师信息（教师编号，姓名，登录密码）学生成绩（学号，课程号，课程名，成绩）数据表课程信息表教师信息表个人成绩表学生成绩表学生课表五、代码实现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)'建¡§立¢¡é连¢?接¨®对?象¨®，ê?同ª?时º¡À说¦Ì明¡Â连¢?接¨®字Á?符¤?串ä?DimcmdAsNewSqlClient.SqlCommand'生¦¨²成¨¦命¨¹令¢?对?象¨®，ê?用®?于®¨²执¡ä行DSQL语®?句?DimdrAsIDataReader'用®?来¤¡ä临¢¨´时º¡À存ä?放¤?执¡ä行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("验¨¦证¡è码?错䨪误¨®")EndIfElseMsgBox("密¨¹码?不?正y确¨¡¤")EndIfElseMsgBox("该?用®?户¡ì不?存ä?在¨²")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("验¨¦证¡è码?错䨪误¨®")EndIfElseMsgBox("密¨¹码?不?正y确¨¡¤")EndIfElseMsgBox("该?用®?户¡ì不?存ä?在¨²")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")'第̨²二t个?参?数ºy为a需¨¨要°a更¨¹新?数ºy据Y库a表À¨ª名?objXSTable.Clear()Me.zhuce_Click(Nothing,Nothing)objDS.AcceptChanges()EndSubPrivateSubzhuce_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handleszhuce.ClickDimcmdAsNewSqlClient.SqlCommandcmd.Connection=cn'数ºy据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("确¨¡¤实º¦Ì要°a注Á¡é册¨¢吗e？ê?",vbOKCancel+vbQuestion,"系¦Ì统ª3提¬¨¢示º?")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("确¨¡¤实º¦Ì要°a注Á¡é册¨¢吗e？ê?",vbOKCancel+vbQuestion,"系¦Ì统ª3提¬¨¢示º?")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()