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

数据库课程设计报告教学管理系统实验题目：教学管理系统教学管理系统目录一、概述 (3)二、总体设计 (3)1、软件环境： (3)2、硬件环境： (4)三、实验主要内容 (4)1、主要数据表 (4)2、功能模块 (4)四、系统分析报告 (4)1、数据流图 (4)2、系统功能模块 (6)3、业务流图 (6)4、系统数据模型设计. (7)五、代码实现 (10)1. 登录界面 . (10)2. 注册界面 . (11). .3. 教师界面 . (13)4. 课表管理 . (14)5. 成绩管理 . (15)6. 学生界面 . (17)7. 网上评教 . (18)六、系统实现结果 (18)七、实验分工及总结 (23)一、概述数据库课程设计是集中实践性环节之一，是学习完《数据库原理及应用》课程后进行的一次全面的综合的实践练习，主要目的在于加深学生对数据库基础理论和基本知识的理解，熟悉数据库的设计方法，掌握基于数据库的信息管理系统的开发方法，进一步加强学生综合运用知识和实践动手的能力。

学生根据所学的数据库原理与程序设计的知识，能够针对一个小型的数据库管理系统，进行系统的需求分析，系统设计，数据库设计，编码，测试等，完成题目要求的功能，从而达到掌握开发一个小型数据库的目的。

二、总体设计1、软件环境：Visual Studio 2010、SQL Server Management Studio2、硬件环境：PC机三、实验主要内容1、主要数据表课程信息表，学生信息表单，教师信息表，学生成绩表等。

2、功能模块（1）课程设置，包括：查询、添加、删除、查询和修改课程信息（2）学生成绩查询，网上评教。

（3）教师查询课程时间和教室的安排。

（4）教师管理学生成绩查询，添加，修改，删除。

（5）学生和教师信息的注册。

四、系统分析报告1、数据流图教学管理系统的基本数据流图如下所示：学生学生选课信息新增课程选课管理课程信息教师选课审核信息图 1 教学管理系统的基本数据流图学生成绩信息考学生考试信息试成任课老师绩学生信息管理个人考试信息管理员成绩管理学生成绩确认信息图 2教学管理系统的基本数据流图排课信息课表信息个人考试成绩学生教学安排排课信息排课信息管理员排课信息任课教师图 3 教学管理系统的基本数据流图2、系统功能模块本系统主要包括学生信息管理、课程信息管理、成绩信息管理等模块，另外还包括进行系统管理的一些辅助模块。

其示意图如下：教学管理系统学生信教师信息管信息注册息管理理查询信息课表管理成绩管理学教生师课教查添删信信课成网名室询加除息息程绩上查查注注信查评询询册册息询教3、业务流图. .4、系统数据模型设计（1）系统 ER图学生考试成绩各实体 E-R 图：学生信息：学号课程信息：课程号上课教室选修课程授课教师姓名学生登录密码课程名课程信息登录密码上课时间教师信息：教师编号姓名教师登录密码学生成绩：学号课程号学生成绩课程名成绩（2）关系模式学生信息（姓名，学号，登录密码）课程信息（课程号，课程名，上课教室，登录密码，）教师信息（教师编号，姓名，登录密码）学生成绩（学号，课程号，课程名，成绩）（3）数据表课程信息表教师信息表个人成绩表学生成绩表学生课表. .五、代码实现1.登录界面Private Sub Form1_Load(ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles MyBase.LoadDim min, max, rndnum, i As Integermin = 10max = 99TextBox4.Text =""For i = 0To 1rndnum =CStr ( CInt (min + Rnd() * (max - min)))TextBox4.Text = TextBox4.Text &"" & rndnumNextEnd 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) ' 建?§立￠ ?é连?￠接¨ ?对?象¨ ?，ê?同a?时o?à说 | ì明 ??连?￠接¨ ?字á?符¤?串?Dim cmd As NewSqlClient.SqlCommand' 生| ¨2成¨ | 命¨ 1令?对￠?象¨ ?，ê?用??于?¨2执??行DSQL语??句 ?Dim dr As IDataReader' 用?来¤ ??临￠¨′时 o?à?放存¤?执??行 D语??句?后¨ ?的ì?结¨￠果?Dim SQLStr As StringIf RadioButton1.Checked =True ThenSQLStr ="select * from teacher where tusernum="+ "'" + TextBox1.Text +"'"cmd.Connection = cncn.Open()mandText = SQLStrdr = cmd.ExecuteReader()If dr.Read() ThenIf dr!tpwd.ToString().Trim = TextBox2.Text ThenIf TextBox3.Text = TextBox4.Text ThenMsgBox(" 登ì?录?成¨ | 功|" )Dim jiaoshi As New Form3jiaoshi.ShowDialog()Hide()ElseMsgBox(" 验¨ | 证?è码?错?¨a误¨?")End IfElseMsgBox(" 密¨ 1码?不?正 y确¨ ?¤")End IfElseMsgBox(" 该?用??户?ì不?存??在¨2")End Ifdr.Close()cn.Close()ElseSQLStr ="select * from student where snum="+ "'" + TextBox1.Text +"'"cmd.Connection = cncn.Open()mandText = SQLStrdr = cmd.ExecuteReader()If dr.Read() ThenIf dr!spwd.ToString().Trim = TextBox2.Text ThenIf TextBox3.Text = TextBox4.Text ThenMsgBox(" 登ì?录?成¨ | 功|" )Dim xuesheng As New Form6xuesheng.Show()Me.Hide()ElseMsgBox(" 验¨ | 证?è码?错?¨a误¨?")End IfElseMsgBox(" 密¨ 1码?不?正 y确¨ ?¤")End IfElseMsgBox(" 该?用??户?ì不?存??在¨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 DataSetDim 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个?参 ?数o y为a需¨¨要a°更¨ 1新?数o y据Y库 a 表ਠa名?objXSTable.Clear()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' 数o y据Y从?¨?当ì ?à前 ??建?§立￠ ?é?连的￠ì?接¨?cn中 D进?入¨?If RadioButton1.Checked =True ThenDim builder As SqlClient. SqlCommandBuilder =NewSqlClient. SqlCommandBuilder(objda)Trycn.Open()mandText ="select * from teacher"objda.SelectCommand = cmdobjda.Fill(objDS,"teacher" )objXSTable = objDS.Tables("teacher" )cn.Close()Dim response As MsgBoxResultresponse = MsgBox(" 确¨ ?¤实 o| ì要a注°á ?é册¨￠e？吗ê?" ,vbOKCancel + vbQuestion, " 系| ì统a3提?¨￠示?"o)If response = MsgBoxResult.Ok ThenDim myRow As DataRowmyRow = objXSTable.NewRowmyRow("tusernum" ) = TextBox1.TextmyRow("tusername" ) = username1.TextmyRow("tpwd" ) = mima1.TextobjXSTable.Rows.Add(myRow)objda.Update(objDS,"teacher" )objDS.AcceptChanges()refreshdata()End IfCatch ex As Exception. .End TryElseDim builder As SqlClient. SqlCommandBuilder =NewSqlClient. SqlCommandBuilder(objda)cn.Open()mandText ="select * from student"objda.SelectCommand = cmdobjda.Fill(objDS,"student" )objXSTable = objDS.Tables("student" )cn.Close()Dim response As MsgBoxResultresponse = MsgBox(" 确¨ ?¤实 o| ì要a注°á ?é册¨￠e？吗ê?" , vbOKCancel + vbQuestion, " 系| ì统a3提?¨￠示?"o)If response = MsgBoxResult.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 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 sender 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 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 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=shiy"conn.Open()mandText ="select * from course where coursenum ='"& Me.TextBox1.Text & "' and courxseclass='"& Me.TextBox2.Text &"'"comm.Connection = connmandText ="select coursename from course where coursenum ='"&Me.TextBox1.Text &"' and courxseclass='"& Me.TextBox2.Text &"'"Me.TextBox3.Text = comm.ExecuteScalarcomm.Connection = connmandText ="select coursetime from course where coursenum ='"&Me.TextBox1.Text &"' and courxseclass='"& Me.TextBox2.Text &"'"Me.TextBox4.Text = comm.ExecuteScalarcomm.Connection = connmandText ="select courseaddress from course where coursenum ='"& Me.TextBox1.Text &"' and courxseclass='"& Me.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 New Form3jiaoshijiemian.Show()Me.Hide()End Sub5.成绩管理Imports System.Data.SqlClientPublic Class Form5Private Sub Button5_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles Button5.ClickDim jiaoshi As New Form3jiaoshi.Show()Me.Hide()End SubPrivate 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=shiy"conn.Open()mandText ="select * from chengji"comm.Connection = connDim da As New SqlDataAdapter (mandText, conn)Dim ds As New DataSetda.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 ="server=(local); uid=sa;pwd=1234;database=shiy"conn.Open()mandText ="insert into chengji values('"& Me.TextBox2.Text &"','"& Me.TextBox3.Text &"','"& Me.TextBox4.Text &"','"& Me.TextBox5.Text &"')"comm.Connection = conncomm.ExecuteNonQuery()mandText ="select * from chengji"comm.Connection = connDim da As New SqlDataAdapter (mandText, conn)Dim ds As New DataSetda.Fill(ds,"chengji" )conn.Close()Me.DataGridView1.DataSource = ds.Tables(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()mandText= "update chengji set snum='" & Me.TextBox2.Text& "',coursenum=" & Me.TextBox3.Text &",coursename='" & Me.TextBox4.Text &"',coursegrade='"&Me.TextBox5.Text &"' where snum='"& Me.TextBox2.Text &"'"comm.Connection = conncomm.ExecuteNonQuery()mandText ="select * from chengji"comm.Connection = connDim da As New SqlDataAdapter (mandText, conn)Dim ds As New DataSetda.Fill(ds,"chengji" )conn.Close()Me.DataGridView1.DataSource = ds.Tables(0)End 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()mandText ="delete from chengji where snum ="&Me.TextBox2.Textcomm.Connection = conncomm.ExecuteNonQuery()mandText ="select * from chengji"comm.Connection = connDim da As New SqlDataAdapter (mandText, conn)Dim ds As New DataSetda.Fill(ds,"chengji" )conn.Close()Me.DataGridView1.DataSource = 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 Button1.ClickDim conn As New SqlConnectionDim comm As New SqlCommandconn.ConnectionString ="server=(local); uid=sa;pwd=1234;database=shiy"conn.Open()mandText ="select * from scourse"comm.Connection = connDim da As New SqlDataAdapter (mandText, conn)Dim ds As New DataSetda.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"conn.Open()mandText ="select * from grchengji"comm.Connection = connDim da As New SqlDataAdapter (mandText, conn)Dim ds As New DataSetda.Fill(ds,"grchengji" )conn.Close()Me.DataGridView1.DataSource = ds.Tables(0)End SubPrivate Sub Button4_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles Button4.ClickDim pingjiao As New Form7pingjiao.Show()Me.Hide()End Sub7.网上评教Public Class Form7Private Sub Button1_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles Button1.ClickDim denglu As New Form6denglu.Show()Me.Hide()End SubPrivate Sub Button2_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles Button2.ClickMsgBox(" 提?¨￠交?成¨ | 功|" )End SubEnd Class六、系统实现结果七、实验分工及总结首先，在开始做课程设计时对整个模块的把握不够好，以至于浪费了好多时间而没能按想象中的顺利完成。