教学管理系统课程设计

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

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

二、总体设计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图各实体图：学生信息：课程信息：教师信息：选考授学生课程成绩教师学生学号姓名登录密码课程信息课程号课程名上课时间上课教室登录密码学生成绩：（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 = 0 To 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 = New SqlClient.SqlConnection(ConnStr) '建¡§立¢¡é连¢?接¨®对?象¨®，ê?同ª?时º¡À说¦Ì明¡Â连¢?接¨®字Á?符¤?串ä?Dim cmd As New SqlClient.SqlCommand'生¦¨²成¨¦命¨¹令¢?对?象¨®，ê?用®?于®¨²执¡ä行DSQL语®?句?Dim dr As IDataReader'用®?来¤¡ä临¢¨´时º¡À存ä?放¤?执¡ä行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("验¨¦证¡è码?错䨪误¨®")End IfElseMsgBox("密¨¹码?不?正y确¨¡¤")End IfElseMsgBox("该?用®?户¡ì不?存ä?在¨²")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("验¨¦证¡è码?错䨪误¨®")End IfElseMsgBox("密¨¹码?不?正y确¨¡¤")End IfElseMsgBox("该?用®?户¡ì不?存ä?在¨²")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 New SqlClient.SqlDataAdapterDim cn As New SqlClient.SqlConnection("server=(local);uid=sa;pwd=1234;database=shiy")Public Sub refreshdata()objda.Update(objDS, "teacher") '第̨²二t个?参?数ºy为a需¨¨要°a更¨¹新?数ºy据Y库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 New SqlClient.SqlCommandcmd.Connection = cn '数º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("确¨¡¤实º¦Ì要°a注Á¡é册¨¢吗e？ê?", vbOKCancel + vbQuestion, "系¦Ì统ª3提¬¨¢示º?")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 ExceptionEnd 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("确¨¡¤实º¦Ì要°a注Á¡é册¨¢吗e？ê?", vbOKCancel + vbQuestion, "系¦Ì统ª3提¬¨¢示º?")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六、系统实现结果七、实验分工及总结首先，在开始做课程设计时对整个模块的把握不够好，以至于浪费了好多时间而没能按想象中的顺利完成。