学生课程管理Oracle数据库论文

1、 大型数据库系统应用集中实训报告系统名称： 学生课程管理系统 专 业： 信息管理与信息系统 班 级： 信管B1201 学 号： 123629 姓 名： 李晓雪 指导教师： 王希娟 2015年6月11日目录1前言11.1课题简介11.2 方案及其论证12需求分析22.1可行性分析22.2性能需求23概念结构设计33.1功能模块设计33.2 E-R图44逻辑结构设计54.1关系模式54.2规范处理54.3视图设计55详细设计65.1数据库设计部分代码65.2前台界面开发部分代码75.3数据库连接部分代码116总结与体会127参考文献121前言1.1 课题简介（1）开发系统的名称：学生课程管理系统（

2、2）实训目的：通过大型数据库系统应用课程的学习，将数据结构、数据库应用在具体的编程方面，更加了解课程所学习的内容及思维逻辑。（3）实训意义：利用信息系统开发与实践课程设计，了解学生对Oracle数据库的理解、应用，以及加强学生对软件开发方面的应用知识。希望今后学生好好利用所学的软件开发方面的知识和思想，解决各方面的编程难题。（4）实训内容:按照系统开发基本原理，综合运用所学的知识，设计开发一个小型的管理系统。（5）实训预期实现效果:系统开发文档+能运行的小系统或者部分模块1.2 方案及其论证语言：VB+Oracle 11g运行环境：Microsoft Visual Studio 20102需求

3、分析 2.1可行性分析（1）技术可行性：学生选课系统，数据库方面采用Oracle 11g，采用VB语言。（2）经济可行性：随着网络技术的发展，各高校纷纷建立自己的高速校园网，并建有属于的学生选课系统，利用计算机对学生的信息进行管理，减少了人力的投资；而且学校对选课系统大力支持，开发经费没有问题。从长远来看，其好处是乐观的。（3）操作可行性：界面设计时充分考虑管理人员的习惯，使得操作简单；数据录入迅速、规范、可靠；统计准确；制表灵活；适应力强；容易扩充。2.2性能需求为了保证系统能够长期、安全、稳定、可靠、高校地运行，学生选课管理系统应该满足以下几个性能需求。（1）数据精确度系统对数据处理的准确

4、性和精度要求高。（2）适应性（运行环境、计划发生变化等应具有的适应能力）在开发过程中，应该充分考虑以后的可扩充性。例如管理系统的方式的改变，用户查询的需求也会不断地更新和完善。所有这些，都要求系统提供足够的手段进行功能的调整和扩充。而要实现这一点，应通过系统的开放性来完成。即系统应是一个开放系统，可以在符合一定规范的前提下，简单的加入和减少系统的模块，配置系统的硬件，通过软件的修补、替换完成系统的升级和更新换代。（3）出错处理系统中涉及到的数据是学校重要的信息，系统要提供方便的手段供系统维护人员进行数据的辈分，日常的安全管理系统意外崩溃时的数据恢复等工作。系统应具有相当健壮性，避免或降低由系统

5、错误所造成的数据库损坏。对关键性操作，如删除等警告和确认机制。（4）安全系统提供严格的身份验证机制和密码管理。（5）维护系统严格按照设计规范进行设计，并保持各阶段文档的完整性，为以后对软件的维护打好基础。3概念结构设计3.1功能模块设计 学生选课系统必须能够完成学生管理、管理员管理，教师管理，课程管理。按照用户需求，可将“学生选课管理系统”设计成以下层次：学生课程管理系统学生模块查询学生信息选修课程查询学生信息课程信息管理教师信息管理学生信息管理修改密码登录与注销查询所授课程教师模块公共模块管理员模块图3.1 学生选课管理系统层次结构图 通过分析，得到“学生管理系统”的数据流图：学生教师管理员

6、学生课程管理系统学生信息教师信息管理员信息课程信息学生信息教师信息管理员信息查询/管理图3.3 学生选课管理系统顶层数据流图学生#学号*姓名*性别*班级课程#课程号*课程名*课程内容管理员#管理员号*姓名*密码教师#职工号*姓名*性别3.2 E-R图图3.6 学生、课程实体e-r图4逻辑结构设计4.1关系模式（1）管理员（管理员号，姓名，密码） 主键：管理员号（2）课程表（课程号，课程名，课程内容） 主键：课程号（3）学生（学号，姓名，性别，班级） 主键：学号（4）教师表（教职工号，姓名，性别） 主键：教职工号4.2规范处理第一范式（无重复的列）定义：数据库表的每一列都是不可分割的原子数据项，

7、而不能是集合，数组，记录等非原子数据项。如果实体中的某个属性有多个值时，必须拆分为不同的属性通俗解释：一个字段只存储一项信息。第二范式（属性完全依赖于主键）定义：满足第一范式前提，当存在多个主键的时候，才会发生不符合第二范式的情况。比如有两个主键，不能存在这样的属性，它只依赖于其中一个主键，这就是不符合第二范式通俗解释：任意一个字段都只依赖表中的同一个字段。第三范式（属性不能传递依赖于主属性）定义：满足第二范式前提，如果某一属性依赖于其他非主键属性，而其他非主键属性又依赖于主键，那么这个属性就是间接依赖于主键，这被称作传递依赖于主属性。通俗理解：一张表最多只存2层同类型信息。4.3视图设计l_

8、Course表COU_IDCOU_NAMECOU_CONTENT11计算机基础第一章22管理学绪论33数据库目录mana表MANA_IDMANA_NAMEMANA_PASSWORD11lxx123l_student表STU_IDSTU_NAMESTU_SEXSTU_CLASS11李晓雪女2班22晓雪女3班l_tea表TEA_IDTEA_NAMETEA_SEX12晓雪女21刘俊德男33晓雪女45刘俊德男5详细设计5.1数据库设计部分代码创建l_Course表：createtablel_Course(cou_idintprimarykey,cou_namevarchar2(20)notnull,c

9、ou_contentvarchar2(20)notnull);commit;插入l_Course表：insertintol_Coursevalues(1,计算机基础,第一章);insertintol_Coursevalues(2,管理学,绪论);insertintol_Coursevalues(3,数据库,目录);查询l_Course表：select*from l_Course;创建mana表：createtablemana(mana_idintprimarykey,mana_namevarchar2(20)notnull,mana_passwordvarchar2(20)notnull);c

10、ommit;插入mana表：insertintol_studentvalues(1,lxx,123);5.2前台界面开发部分代码用户登录代码：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = Or TextBox2.Text = Then MsgBox(用户名和密码不能为空) Else checkLoginName() End If End Sub Sub checkLoginName() D

11、im strcon;password=System001;persist security info=true;user id=system;data source=o Dim con As OleDbConnection = New OleDbConnection(strcon) con.Open() Dim sql As String = select * from mana where mana_name = & TextBox1.Text.ToString().Trim() & and mana_password = & TextBox2.Text.ToString().Trim()

12、& Dim cmd As New OleDbCommand(sql, con) Dim reader As OleDbDataReader reader = cmd.ExecuteReader If reader.Read() = True Then Me.Hide() frmMain.Show() Else MsgBox(登录失败，请检查你用户名，密码，以及权限是否正确) End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bu

13、tton2.Click Me.Close() End SubEnd Class图5.1 用户登录添加用户代码：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim yno Dim yname Dim ypwd Dim addclass As String = String.Format(insert into mana(mana_id,mana_name,mana_password) values(0,1,2), yno, y

14、name, ypwd) Dim strcon;password=System001;persist security info=true;user id=system;data source=o Dim con As OleDbConnection = New OleDbConnection(strcon) con.Open() Dim cmd As OleDbCommand = New OleDbCommand(addclass, con) Dim result As Integer = cmd.ExecuteNonQuery() If (result 1) Then MessageBox.

15、Show(添加失败!, 操作提示, MessageBoxButtons.OK, MessageBoxIcon.Warning) Else MessageBox.Show(添加成功!, 操作提示, MessageBoxButtons.OK, MessageBoxIcon.Information) Me.Close() End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End Sub

16、 Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click End SubEnd Class图5.2 用户添加 查询课程代码： Private Sub frmSearchStudent_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim con As OleDbConnection = New OleDbConnect

17、ion(strcon) con.Open() Dim selectEmp As String = select * from mana Dim ds As DataSet = New DataSet() Dim da As OleDbDataAdapter = New OleDbDataAdapter(selectEmp, con) da.Fill(ds, mana) Me.DataGridView1.DataSource = ds.Tables(mana) con.Close() End Sub Private Sub Button2_Click(ByVal sender As System

18、.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim con As OleDbConnection = New OleDbConnection(strcon) con.Open() Dim selectEmp As String = select * from mana Dim ds As DataSet = New DataSet() Dim da As OleDbDataAdapter = New OleDbDataAdapter(selectEmp, con) da.Fill(ds, mana) Me.DataGr

19、idView1.DataSource = ds.Tables(mana) con.Close() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim con As OleDbConnection = New OleDbConnection(strcon) con.Open() Dim yhNum Dim selectEmp As String = select * from mana where mana_i

20、d= + yhNum + Dim ds As DataSet = New DataSet() Dim da As OleDbDataAdapter = New OleDbDataAdapter(selectEmp, con) da.Fill(ds, mana) Me.DataGridView1.DataSource = ds.Tables(mana) con.Close() End Sub Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As ) Handles DataGrid

21、View1.CellContentClick Dim stuid As String = Me.DataGridView1.Rows(e.RowIndex).Cells(0).Value.ToString().Trim() If MessageBox.Show(确定要删除该用户吗？, 操作警告, MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = Then Dim deleteEmp As String = String.Format(DELETE FROM Stu WHERE S_ID= + stuid + ) Dim con As OleD

22、bConnection = New OleDbConnection(strcon) con.Open() Dim cmd As OleDbCommand = New OleDbCommand(deleteEmp, con) Dim result As Integer = Convert.ToInt32(cmd.ExecuteNonQuery() con.Close() If (result 1) Then MessageBox.Show(删除失败!, 操作结果, MessageBoxButtons.OK, MessageBoxIcon.Exclamation) Else MessageBox.

23、Show(删除成功!, 操作结果, MessageBoxButtons.OK, MessageBoxIcon.Information) Me.frmSearchStudent_Load(sender, e) End If End If End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.Close() End Sub Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged End SubEnd Class图5.3 查询5.3数据库连接部分代码Sub