数据库总实验new

1、数据库原理及应用 实验报告实验题目：教学管理系统指导老师：李萍专业班级：计算机科学与技术系1105班组 员：史乐乐（2011100534） 李 辉（2011100535） 闫壮壮（2011100556） 王 伟（2011100538） 2013年 12月10日一、开发背景 数据库技术和Internet的飞速发展，使它们已经成为现代信息技术的重要组成部分，是现在计算机信息系统和计算机应用系统的基础和核心。随着学校规模的不断扩大，对学校资源的管理是首要解决的问题。这也挑战了教学管理方面的技术，以前的人工管理方式已经不再适应现在的环境，取而代之的是先进的教学管理系统。通过数据库系统对教师、学生、选课

2、进行统一的管理与操作。二、需求分析2.1 系统目标：学生根据所学的数据库原理与程序设计的知识，能够针对一个小型的数据库管理系统，进行系统的需求分析，系统设计，数据库设计，编码，测试等，完成题目要求的功能，从而达到掌握开发一个小型数据库的目的。2.2 需求定义 教学管理系统开发。系统开发的总的设计目标是实现教学信息管理的系统化、规范化和自动化，实现对学生、选课资料的集中统一的管理。本系统主要实现对学生、选课基本信息的管理，本系统结构分为课程信息系统，学生选课信息系统，学生成绩系统。学生成绩信息系统满足对学生基本信息、所选课程和学生课表的输出的需求；学生选课系统满足对学生所选课程和学生基本信息的输

3、出需求；课程信息系统满足对课程信息的增加、删除、查询和修改的需求。本系统组织结构图：教学管理系统选课信息系统课程信息系统学生信息显示学生信息录入课程信息显示课程信息设置课程信息查询学生选课选课结果显示选课结果设置 学生信息系统2.3 管理系统的数据流图和数据字典教学管理系统管理人员学生基本信息学生选课信息学生基本信息课程基本信息学生课程基本信息查询选课信息教室授课信息名称：学生别名：无描述：学生的基本信息组成：学生sno（学生学号）sname（学生姓名）sage（年龄）ssex（性别）+sdept（所在系）；位置：学生基本信息、学生选课信息名称：课程别名：无描述：课程的基本信息组成：课程cno

4、（课程代号）cname（课程名称）teacher（授课教师） ctime（课程时间）grade（课程成绩）；位置：课程信息、课程成绩3、 概念模型E-R图实体（矩形）学生、课程属性（圆形）学生：学号、姓名、年龄、性别、系课程：课程号、课程名称、教师、上课时间、上课教室关系（菱形）选课：成绩3.1 教学管理系统E-R图学生课程选修gradecnocroomteacherctimecnamessexsdeptsagesnamesno3.2 学生实体E-R图学生snosnamesagesdeptssex 3.3 课程实体E-R图课程ctimeteachercnamecnocroom 3.4 选课关系

5、E-R图选修grade 3.5 PowerDesigner 环境下设计模型图 4、 数据库功能实现截图与代码4.1 数据库截图数据表建立：选课表：课程表：学生表：数据库建立代码截图：管理员登陆界面：登陆成功，显示数据表信息：4.2教学管理系统关键代码 shuju .vbPublic Class shujuku Private Sub Form4_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Dim o As New Class1 Dim ds As New DataSet ds = o.get

6、alldata() Me.DataGridView1.Refresh() Me.DataGridView1.DataSource = ds.Tables("student") End SubEnd ClassClass.vbImports System.Data.SqlClientPublic Class Class1 Dim strconn As String = Me.getstrconn() Public Function yanzheng(ByVal str1 As String) As Integer Dim conn As New SqlConnection c

7、onn.ConnectionString = strconn conn.Open() Dim cmd As New SqlCommand cmd.CommandText = "select * from student where sno='" & str1 & "'" cmd.Connection = conn Dim dr As SqlDataReader dr = cmd.ExecuteReader If dr.Read Then dr.Close() conn.Close() Return 1 Else dr.Cl

8、ose() conn.Close() Return 0 End If End Function Public Function pwdyanzheng(ByVal str As String) As SqlDataReader Dim conn As New SqlConnection conn.ConnectionString = strconn conn.Open() Dim cmd As New SqlCommand cmd.CommandText = "select * from student where sno='" & str & &q

9、uot;'" cmd.Connection = conn Dim dr As SqlDataReader = cmd.ExecuteReader Return dr End Function Public Function getstrconn() As String Dim str As String str = "server=.;uid=sa;pwd=123;database=client" Return str End Function Public Function getalldata() As DataSet Dim conn As New

10、SqlConnection conn.ConnectionString = strconn conn.Open() Dim da As New SqlDataAdapter("select * from student", conn) Dim ds As New DataSet da.Fill(ds, "student") conn.Close() Return ds End FunctionEnd classLogin.vbImports System.Data.SqlClientPublic Class login Private Sub Butto

11、n1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim o As New Class1 Dim f As Integer f = o.yanzheng(Me.TextBox1.Text) If f = 0 Then Me.TextBox1.Text = "" Me.TextBox1.Focus() Else If f = 1 Then Dim dr As SqlDataReader dr = o.pwdyanzheng(Me.TextBox1

12、.Text) dr.Read() If RTrim(dr!sname) <> Me.TextBox2.Text Then MsgBox("密¨¹码?错䨪误¨®，ê?请?重?新?输º?入¨?！ê?") Me.TextBox2.Text = "" Me.TextBox2.Focus() Else shujuku.Show() Me.Hide() End If End If End IfEnd SubEnd Class5、 总结 经过近几天的