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

1、数据库课程设计报告教学管理系统实验题目： 教学管理系统 教学管理系统目录一、概述3二、总体设计31、软件环境：32、硬件环境：3三、实验主要内容31、主要数据表42、功能模块4四、系统分析报告41、数据流图42、系统功能模块53、业务流图54、系统数据模型设计6五、代码实现91.登录界面92.注册界面113.教师界面134.课表管理145.成绩管理156.学生界面167.网上评教18六、系统实现结果18七、实验分工及总结23一、 概述数据库课程设计是集中实践性环节之一，是学习完数据库原理及应用课程后进行的一次全面的综合的实践练习，主要目的在于加深学生对数据库基础理论和基本知识的理解，熟悉数据库

2、的设计方法，掌握基于数据库的信息管理系统的开发方法，进一步加强学生综合运用知识和实践动手的能力。 学生根据所学的数据库原理与程序设计的知识，能够针对一个小型的数据库管理系统，进行系统的需求分析，系统设计，数据库设计，编码，测试等，完成题目要求的功能，从而达到掌握开发一个小型数据库的目的。二、总体设计1、软件环境：Visual Studio 2010、SQL Server Management Studio2、硬件环境：PC机三、实验主要内容1、主要数据表 课程信息表，学生信息表单，教师信息表，学生成绩表等。2、功能模块 （1）课程设置，包括：查询、添加、删除、查询和修改课程信息 （2）学生成绩

3、查询，网上评教。 （3）教师查询课程时间和教室的安排。 （4）教师管理学生成绩查询，添加，修改，删除。（5）学生和教师信息的注册。四、系统分析报告1、数据流图 教学管理系统的基本数据流图如下所示： 学生选课信息 新增课程 学生选课管理教师 课程信息 选课审核信息 图1教学管理系统的基本数据流图 学生成绩信息考试成绩任课老师 学生考试信息 成绩管理 学生信息管理 个人考试信息学生管理员 成绩确认信息 图 2 教学管理系统的基本数据流图 排课信息课表信息学生 个人考试成绩教学安排 管理员 排课信息 排课信息任课教师 排课信息 图3 教学管理系统的基本数据流图2、系统功能模块本系统主要包括学生信息管

4、理、课程信息管理、成绩信息管理等模块，另外还包括进行系统管理的一些辅助模块。其示意图如下：教学管理系统 教师信息管理 信息注册 学生信息管理 学生信息注册成绩管理 课表管理 查询信息教师信息注册删除查询教室查询课名查询添加网上评教成绩查询课程信息3、业务流图 4、系统数据模型设计（1）系统ER图 教师课程学生选修修考试授课 成绩 各实体E-R图： 学生信息： 姓名登录密码学号学生 课程信息： 课程名课程号课程信息登录密码上课时间上课教室教师信息： 姓名教师编号 教师登录密码 学生成绩：课程号学生成绩学号课程名成绩（2） 关系模式 学生信息（姓名，学号，登录密码）课程信息（课程号，课程名，上课教

5、室，登录密码，）教师信息（教师编号，姓名，登录密码）学生成绩（学号，课程号，课程名，成绩）（3） 数据表课程信息表 教师信息表 个人成绩表 学生成绩表 学生课表 五、代码实现1.登录界面 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim min, max, rndnum, i As Integer min = 10 max = 99 TextBox4.Text = "" For i = 0 To 1 rndnum

6、 = CStr(CInt(min + Rnd() * (max - min) TextBox4.Text = TextBox4.Text & "" & rndnum Next End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim ConnStr As String = "Server=(local);uid=sa;pwd=1234;database=shiy&quo

7、t; Dim cn As SqlClient.SqlConnection = New SqlClient.SqlConnection(ConnStr) '建¡§立¢¡é连¢?接¨®对?象¨®，ê?同ª?时º¡À说¦Ì明¡Â连¢?接¨®字Á?符¤?串ä? Dim cmd As New SqlClient.SqlCommand '生&#

8、166;¨²成¨¦命¨¹令¢?对?象¨®，ê?用®?于®¨²执¡ä行DSQL语®?句? Dim dr As IDataReader '用®?来¤¡ä临¢¨´时º¡À存ä?放¤?执¡ä行D语®?句?后¨®的Ì?结¨¢果? D

9、im SQLStr As String If RadioButton1.Checked = True Then SQLStr = "select * from teacher where tusernum=" + "'" + TextBox1.Text + "'" cmd.Connection = cn cn.Open() cmd.CommandText = SQLStr dr = cmd.ExecuteReader() If dr.Read() Then If dr!tpwd.ToString().Trim = Te

10、xtBox2.Text Then If TextBox3.Text = TextBox4.Text Then MsgBox("登Ì?录?成¨¦功|") Dim jiaoshi As New Form3 jiaoshi.ShowDialog() Hide() Else MsgBox("验¨¦证¡è码?错䨪误¨®") End If Else MsgBox("密¨¹码?不?正y确¨¡

11、64;") End If Else MsgBox("该?用®?户¡ì不?存ä?在¨²") End If dr.Close() cn.Close() Else SQLStr = "select * from student where snum=" + "'" + TextBox1.Text + "'" cmd.Connection = cn cn.Open() cmd.CommandText = SQLStr dr = cmd.E

12、xecuteReader() If dr.Read() Then If dr!spwd.ToString().Trim = TextBox2.Text Then If TextBox3.Text = TextBox4.Text Then MsgBox("登Ì?录?成¨¦功|") Dim xuesheng As New Form6 xuesheng.Show() Me.Hide() Else MsgBox("验¨¦证¡è码?错䨪误¨®"

13、;) End If Else MsgBox("密¨¹码?不?正y确¨¡¤") End If Else MsgBox("该?用®?户¡ì不?存ä?在¨²") End If dr.Close() cn.Close() End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.C

14、lick Dim zhuce As New Form2 zhuce.Show() Me.Hide() End Sub2.注册界面Public Class Form2 Dim objDS As New DataSet Dim objXSTable As DataTable Dim objda As New SqlClient.SqlDataAdapter Dim cn As New SqlClient.SqlConnection("server=(local);uid=sa;pwd=1234;database=shiy") Public Sub refreshdata() o

15、bjda.Update(objDS, "teacher") '第̨²二t个?参?数ºy为a需¨¨要°a更¨¹新?数ºy据Y库a表À¨ª名? objXSTable.Clear() Me.zhuce_Click(Nothing, Nothing) objDS.AcceptChanges() End Sub Private Sub zhuce_Click(ByVal sender As System.Object, ByVal e As Sy

16、stem.EventArgs) Handles zhuce.Click Dim cmd As New SqlClient.SqlCommand cmd.Connection = cn '数ºy据Y从䨮当Ì¡À前¡ã建¡§立¢¡é的Ì?连¢?接¨®cn中D进?入¨? If RadioButton1.Checked = True Then Dim builder As SqlClient.SqlCo

17、mmandBuilder = New SqlClient.SqlCommandBuilder(objda) Try cn.Open() cmd.CommandText = "select * from teacher" objda.SelectCommand = cmd objda.Fill(objDS, "teacher") objXSTable = objDS.Tables("teacher") cn.Close() Dim response As MsgBoxResult response = MsgBox("确

18、68;¡¤实º¦Ì要°a注Á¡é册¨¢吗e？ê?", vbOKCancel + vbQuestion, "系¦Ì统ª3提¬¨¢示º?") If response = MsgBoxResult.Ok Then Dim myRow As DataRow myRow = objXSTable.NewRow myRow("tusernum") = TextBox1.

19、Text myRow("tusername") = username1.Text myRow("tpwd") = mima1.Text objXSTable.Rows.Add(myRow) objda.Update(objDS, "teacher") objDS.AcceptChanges() refreshdata() End If Catch ex As Exception End Try Else Dim builder As SqlClient.SqlCommandBuilder = New SqlClient.SqlComm

20、andBuilder(objda) cn.Open() cmd.CommandText = "select * from student" objda.SelectCommand = cmd objda.Fill(objDS, "student") objXSTable = objDS.Tables("student") cn.Close() Dim response As MsgBoxResult response = MsgBox("确¨¡¤实º¦Ì要°

21、;a注Á¡é册¨¢吗e？ê?", vbOKCancel + vbQuestion, "系¦Ì统ª3提¬¨¢示º?") If response = MsgBoxResult.Ok Then Dim myRow As DataRow myRow = objXSTable.NewRow myRow("snum") = TextBox1.Text myRow("sname") = username1.Te

22、xt myRow("spwd") = mima1.Text objXSTable.Rows.Add(myRow) objda.Update(objDS, "student") objDS.AcceptChanges() refreshdata() End If End If Dim denglu As New Form1 denglu.Show() Me.Hide() End Sub Private Sub chongzhi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

23、 Handles chongzhi.Click username1.Text = "" mima1.Text = "" qmima1.Text = "" End SubEnd Class3.教师界面Public Class Form3 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim kebiao As New Form4 kebiao.Show() Me.Hid

24、e() End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim denglu As New Form1 denglu.Show() Me.Hide() End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub Button2_Click(ByVa

25、l sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim chengjig As New Form5 chengjig.Show() Me.Hide() End Sub Private 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

26、 e As System.EventArgs) Handles Button1.Click Dim conn As New SqlConnection Dim comm As New SqlCommand conn.ConnectionString = "server=(local); uid=sa;pwd=1234;database=shiy" conn.Open() comm.CommandText = "select * from course where coursenum ='" & Me.TextBox1.Text &

27、 "' and courxseclass='" & Me.TextBox2.Text & "'" comm.Connection = conn comm.CommandText = "select coursename from course where coursenum ='" & Me.TextBox1.Text & "' and courxseclass='" & Me.TextBox2.Text & "

28、;'" Me.TextBox3.Text = comm.ExecuteScalar comm.Connection = conn comm.CommandText = "select coursetime from course where coursenum ='" & Me.TextBox1.Text & "' and courxseclass='" & Me.TextBox2.Text & "'" Me.TextBox4.Text = comm.E

29、xecuteScalar comm.Connection = conn comm.CommandText = "select courseaddress from course where coursenum ='" & Me.TextBox1.Text & "' and courxseclass='" & Me.TextBox2.Text & "'" Me.TextBox5.Text = comm.ExecuteScalar comm.Connection = conn

30、 conn.Close() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim jiaoshijiemian As New Form3 jiaoshijiemian.Show() Me.Hide() End Sub5.成绩管理ImportsPublic Class Form5 Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As

31、 System.EventArgs) Handles Button5.Click Dim jiaoshi As New Form3 jiaoshi.Show() Me.Hide() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim conn As New SqlConnection Dim comm As New SqlCommand conn.ConnectionString = "server

32、=(local); uid=sa;pwd=1234;database=shiy" conn.Open() comm.CommandText = "select * from chengji" comm.Connection = conn Dim da As New SqlDataAdapter(comm.CommandText, conn) Dim ds As New DataSet da.Fill(ds, "chengji") conn.Close() Me.DataGridView1.DataSource = ds.Tables(0) En

33、d Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim conn As New SqlConnection Dim comm As New SqlCommand conn.ConnectionString = "server=(local); uid=sa;pwd=1234;database=shiy" conn.Open() comm.CommandText = "insert int

34、o chengji values('" & Me.TextBox2.Text & "','" & Me.TextBox3.Text & "','" & Me.TextBox4.Text & "','" & Me.TextBox5.Text & "')" comm.Connection = conn comm.ExecuteNonQuery() comm.CommandText =

35、 "select * from chengji" comm.Connection = conn Dim da As New SqlDataAdapter(comm.CommandText, conn) Dim ds As New DataSet da.Fill(ds, "chengji") conn.Close() Me.DataGridView1.DataSource = ds.Tables(0) End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As Sy

36、stem.EventArgs) Handles Button3.Click Dim conn As New SqlConnection Dim comm As New SqlCommand conn.ConnectionString = "server=(local); uid=sa;pwd=1234;database=shiy" conn.Open() comm.CommandText = "update chengji set snum='" & Me.TextBox2.Text & "',coursenum

37、=" & Me.TextBox3.Text & ",coursename='" & Me.TextBox4.Text & "',coursegrade='" & Me.TextBox5.Text & "' where snum='" & Me.TextBox2.Text & "'" comm.Connection = conn comm.ExecuteNonQuery() comm.Comman

38、dText = "select * from chengji" comm.Connection = conn Dim da As New SqlDataAdapter(comm.CommandText, conn) Dim ds As New DataSet da.Fill(ds, "chengji") conn.Close() Me.DataGridView1.DataSource = ds.Tables(0) End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal

39、e As System.EventArgs) Handles Button4.Click Dim conn As New SqlConnection Dim comm As New SqlCommand conn.ConnectionString = "server=(local); uid=sa;pwd=1234;database=shiy" conn.Open() comm.CommandText = "delete from chengji where snum =" & Me.TextBox2.Text comm.Connection =

40、 conn comm.ExecuteNonQuery() comm.CommandText = "select * from chengji" comm.Connection = conn Dim da As New SqlDataAdapter(comm.CommandText, conn) Dim ds As New DataSet da.Fill(ds, "chengji") conn.Close() Me.DataGridView1.DataSource = ds.Tables(0) End Sub6.学生界面 Private Sub Butto

41、n6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click Dim denglu As New Form1 denglu.Show() Me.Hide() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim conn As New SqlConnection Dim comm As New SqlCommand conn.ConnectionString = "server=(local); uid=sa;pwd=1234;database=shiy" conn.Open() comm.CommandText = "select * from scourse" comm.Connection = conn Dim da As New SqlDataAdapter(comm.CommandText, conn) Dim ds As N