教学管理系统课程设计

1、教学管理系统课程设计目录一、 概述 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 .教师界面1.1.4 .课表管理1.2.5 .成绩管理1.3.6 .学生界面1.5.7 .网上评教1.6.六、系统实现结果1.6.七、实验分工及总结2.1.概述数据库课程设计是集中实践性环节之一，是学习完数据库原 理及应用课程后进行的一次全面的综合的实践练习， 主要目的在于 加深学生对数据库基础理论

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

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

4、进行系统管理的一些辅助模块。其示意图如下:目户查 询学 生 信 息 注 册查询信息课 程 信 息教 师 信 息 注 册学生信 息管理教室查询宣鼠利阳用户衿常比存崎-检验海加 查强 叫除4、系统数据模型设计(1)系统ER图课程信息:教师信息:学生成绩:（2）关系模式学生信息（姓名，学号，登录密码）课程信息（课程号、课程名，上课教室，登录密码，）教师信息（教师编号，姓名.登录密码）学生成绩（学号，课程号，课程名，成绩J（3）数据表课程信息表PCshiy dbo.eDunccoursenLfinooLFsenamenxjNseda5saxjrsetniecourseaad'ess卜11001

5、数据摩ja'.'flHOL星期一3, 6）星期一（ 3用13061002BOI130610031401星期一 （140S1004软件工程1401星期二（M>203051005嵌入式nox要期五（M）1308教师信息表PC-Uiiy - dbc.teachertusefrumtusemametpwdk孙老师san 1234HO 工马老昨ml234101010斤斤计较V-»56个人J成二贝表PCfihiy - dbo.grchengjicoasenumcxirsenameC0ur$aM«k卜数据库胧1002月丁自ag1003androd的1004软件工程n

6、1035戢入式60100685羯NULLNULLNUU.学生J成二贝表X1410Q1031001数掘库的20141001031002javaB72OH1O31C31003android日 T2014100 K 31004软件工程8S2Q HIM IC 31005塞入式B4学生1果表PC.shty - dbo,scourge PChi)-dbo course PC,弓卜iy - dtxATekdoycnumcname*国.1002java星期六1001勤据库SMB1003and-aid矍期三1003andoid星期四1004软件工程星期五1005府入式星期一1001数据库米NULLNUU.五、代

7、码实现1 .登录界面Private Sub Form1_Load(ByVal sender As System. Object , ByVal e AsSystem. EventArgs) Handles MyBaseLoadDim min, max, rndnum, i As Integermin = 10max = 99TextBox4.Text =""For i = 0 To 1rndnum =CStr ( CInt (min + Rnd() * (max - min)"" & rndnumTextBox4.Text = TextBox4.

8、Text &NextEnd 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) ' 建 ?

9、67; 立06连。接一？又t?象一 ？，6?同a?时0?d说|明？连。接一？字&?符。？串？Dim cmd As NewSqlClient. SqlCommand'生|一 2成.,命 一 1令t?象 一？，夕用？于？ 一2 执？f DSQ语？ ？句？Dim dr As IDataReader'用？来。？临。，时。团存?放。？执？亍照? ?句？后一 ?的？结一裸？Dim SQLStr As StringIf RadioButton1.Checked = True ThenSQLStr = "select * from teacher where tusernum

10、=" + "'" + TextBox1.Text + cmd.Connection = cn cn.Open() cmd.CommandText = SQLStr dr = cmd.ExecuteReader()If dr.Read() ThenIf dr!tpwd.ToString().Trim = TextBox2.Text ThenIf TextBox3.Text = TextBox4.Text ThenMsgBox("登？录?成, |功 |")Dim jiaoshi As New Form3 jiaoshi.ShowDialog

11、() Hide() ElseMsgBox("验. |证？6 码错？一2误一 ?")End If ElseMsgBox("密 一 1码？不？正丫确一？。”)End IfElseMsgBox( "该?用？ ？户？ i 型存？?在 一 2") End Ifdr.Close()cn.Close()ElseSQLStr = "select * from student where snum=" + "'" + TextBox1.Text +cmd.Connection = cncn.Open()cmd.Co

12、mmandText = SQLStrdr = cmd.ExecuteReader()If dr.Read() ThenIf dr!spwd.ToString().Trim = TextBox2.Text ThenIf TextBox3.Text = TextBox4.Text ThenMsgBox("登？录?成, |功 |")Dim xuesheng As NewForm6xuesheng.Show()Me.Hide()ElseMsgBox("验. |证？6码错？.a误一 ?")End IfElseMsgBox("密 一 1码？不？正丫确一？。

13、”)End IfElseMsgBox( "该?用？ ？户？ i 型存？?在 一 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 Data

14、SetDim 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 个?参？数oy为a需,一 要。a更 一 1 新？数oy据Y库a表era名？objXSTable.Clear()

15、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'数oy据丫从？一？当？d前？建？ §立的？连。接一 ？cn中M?入 ？If RadioButton1.Checked = True

16、 ThenDim builder As SqlClient. SqlCommandBuilder = NewSqlClient. SqlCommandBuilder(objda) Trycn.Open()cmd.CommandText ="select * from teacher"objda.SelectCommand = cmd objda.Fill(objDS,"teacher" )objXSTable = objDS.Tables("teacher" )cn.Close()Dim response As MsgBoxResul

17、tresponse = MsgBox("确 一？。实 o|il ° a 注 &？6 册 一0 e? e？", vbOKCancel +vbQuestion,"系 |a3提？ 一 际o？")If response = MsgBoxResult.Ok Then Dim myRow As DataRowmyRow = objXSTable.NewRowmyRow("tusernum" ) = TextBox1.TextmyRow("tusername" ) = username1.TextmyRow(&

18、quot;tpwd" ) = mima1.TextobjXSTable.Rows.Add(myRow)objda.Update(objDS,"teacher" )objDS.AcceptChanges() refreshdata()End IfCatch ex As ExceptionEnd TryElse Dim builder As SqlClient. SqlCommandBuilder = NewSqlClient. SqlCommandBuilder(objda)cn.Open()"select * from studentcmd.Comman

19、dText =objda.SelectCommand = cmdobjda.Fill(objDS,"student" )objXSTable = objDS.Tables("student" )cn.Close()Dim response As MsgBoxResultresponse = MsgBox( "确,.？。实o| 要° a注 &?6 册,鸣e? e?", vbOKCancel + vbQuestion,"系 |a3提？ 一 际o?")If response = MsgBoxResult

20、.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

21、 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 s

22、ender 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

23、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

24、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=sh

25、iy"conn.Open()comm.CommandText = "select * from course where coursenum ='"& Me.TextBox1.Text &"' and courxseclass='" & Me.TextBox2.Text &"'"comm.Connection = conncomm.CommandText = "select coursename from course where coursenum

26、='"&Me.TextBox1.Text &"' and courxseclass='" & Me.TextBox2.Text &"'"Me.TextBox3.Text = comm.ExecuteScalarcomm.Connection = conncomm.CommandText = "select coursetime from course where coursenum ='"&Me.TextBox1.Text &"

27、' and courxseclass='" & Me.TextBox2.Text &"'"Me.TextBox4.Text = comm.ExecuteScalarcomm.Connection = conncomm.CommandText = "select courseaddress from course where coursenum ='"&Me.TextBox1.Text &"' and courxseclass='" & M

28、e.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 NewForm3jiaoshijiemian.Show()Me.Hide()End Sub5 .成绩

29、管理Imports System.Data.SqlClientPublic Class Form5Private Sub Button5_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles Button5.ClickDim jiaoshi As NewForm3jiaoshi.Show()Me.Hide()End SubPrivate Sub Button1_Click( ByVal sender As System. Object , ByVal e As System. EventAr

30、gs ) Handles Button1.ClickDim conn As New SqlConnectionDim comm As New SqlCommandconn.ConnectionString ="server=(local); uid=sa;pwd=1234;database=shiy"conn.Open()comm.CommandText = "select * from chengji"comm.Connection = connDim da As NewSqlDataAdapter (comm.CommandText, conn)Di

31、m ds As NewDataSetda.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

32、="server=(local); uid=sa;pwd=1234;database=shiy"conn.Open()comm.CommandText = "insert into chengji values('"& Me.TextBox2.Text &"','"&Me.TextBox3.Text &"','"& Me.TextBox4.Text &"','"& Me.TextBox

33、5.Text &"')"comm.Connection = conncomm.ExecuteNonQuery()comm.CommandText = "select * from chengji"comm.Connection = connDim da As NewSqlDataAdapter (comm.CommandText, conn)Dim ds As NewDataSetda.Fill(ds,"chengji" )conn.Close()Me.DataGridView1.DataSource = ds.Tab

34、les(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()comm.CommandText = "upda

35、te chengji set snum='" & Me.TextBox2.Text & "',coursenum="& Me.TextBox3.Text & ",coursename='" & Me.TextBox4.Text & "',coursegrade='" &Me.TextBox5.Text &"' where snum='" & Me.TextBox2.Text &a

36、mp;"'"comm.Connection = conncomm.ExecuteNonQuery()comm.CommandText = "select * from chengji"comm.Connection = connDim da As NewSqlDataAdapter (comm.CommandText, conn)Dim ds As NewDataSetda.Fill(ds,"chengji" )conn.Close()Me.DataGridView1.DataSource = ds.Tables(0)End

37、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()comm.CommandText = "delete from ch

38、engji where snum ="& Me.TextBox2.Textcomm.Connection = conncomm.ExecuteNonQuery()comm.CommandText = "select * from chengji"comm.Connection = connDim da As NewSqlDataAdapter (comm.CommandText, conn)Dim ds As NewDataSetda.Fill(ds,"chengji" )conn.Close()Me.DataGridView1.Dat

39、aSource = 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 B

40、utton1.ClickDim conn As New SqlConnectionDim comm As New SqlCommandconn.ConnectionString ="server=(local); uid=sa;pwd=1234;database=shiy"conn.Open()comm.CommandText = "select * from scourse" comm.Connection = connDim da As NewSqlDataAdapter (comm.CommandText, conn)Dim ds As NewDa

41、taSetda.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"con