学分管理系统数据库课程设计报告本科论文.doc

课程设计报告课程设计题目：学分管理系统学生姓名：xx专 业：计算机科学与技术班 级：xxx指导教师：xx 2016年01月14日目 录一、 题目.3二、 目的和要求.3三、 需求分析.3四、 概要设计.3五、 详细设计.4E-R图.4建立数据库.4VB设计.6六、 调试分析.14 七、 结果分析与体会.18八、 附录或参考资料.19 一、题目：学分管理系统一、 目的和要求 通过本次课程设计让学生能够综合运用所学的关系数据库原理知识解决并能设计一个实际问题，进一步掌握数据库原理的相关理论和数据库的设计实现过程，进一步提高学生的分析问题和解决问题的能力以及学生的动手能力 运用关系型数据库管理系统，实现学生成绩管理系统开发。具体功能如下：  1、学生基本信息设置：包括专业、班级、姓名、学号等；  2、学生课程名称和成绩录入；  3、学生基本信息和课程信息的查询及增删改；4、成绩排名及相应绩点分计算。三、需求分析学生基本信息：包括学生的姓名、学号、性别、系别、班级，可以方便学生信息的查询和更新；课程基本信息：包括课程代号、课程名、课程种类、学分，可以方便课程信息的查询与更新；成绩基本信息：包括学生的学号、学生选取的课程号、学生的成绩及学分，这可以提高查询效率。四、 概要设计 数据库在一个信息管理系统中占有非常重要的地位，数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构设计可提高数据存储的效率，保证数据的完整和一致。同时，合理的数据库结构也将有利于程序的实现。 数据库需求分析  用户的需求具体体现在各种信息的提供、保证、更新和查询，这就要求数据库结构能够充分满足各种信息的输出和输入。  针对一般学生信息管理系统的要求，通过对学生学习过程的内容和数据流程分析，设计如下的数据项和数据结构：     1、学生基本信息包括的数据项有：学生学号、学生姓名、性别、班级、所在系。  2、学生选课信息包括数据项有：学生学号、课程号、考试分数、学分。   3、 课程信息有：课程号、课程名、课程类别。 根据上面的数据结构、数据项和数据流程，进行数据库设计。五、 详细设计5.1、E-R图：姓名学号系别班级性别成绩课程号学分课程名学生选取课程课程类型 5.2、建立数据库：学生表：课程表：学生选课表：Sql建表命令:create table 课程表(课程号 nchar(20) not null primary key,课程名 nchar(20) ,学分 float,课程类型 char(10)gocreate table 学生表(学号 nchar(20) not null primary key,姓名 nchar(5) not null,年龄 int,性别 nchar(2) check(性别 in ('男','女'),所在系 char(20)gocreate table 学生学分表(课程号 nchar(20) not null,学号 nchar(20) not null,成绩 int,学分 float,constraint s_c_pk primary key(学号,课程号)Go建立触发器保证完整性：create trigger 选课插入 on scfor insertas if(select count(*) from s,inserted,c where s.学号=inserted.学号 and c.课程号=inserted.课程号)=0rollback transactionGocreate trigger 学生删除 on sfor deleteas if(select count(*) from sc,deleted where sc.学号=deleted.学号)>0rollback transactionelsedelete sc from sc,deleted where sc.学号=deleted.学号Go建立一个视图方便查询：create view showas select s.学号,班级,姓名,c.课程号,课程名,sc.学分,课程类型from s,c,scwhere s.学号=sc.学号 and c.课程号=sc.课程号5.3、利用Visual basic6.0设计程序：定义模块：登陆界面：Private Sub cmdCancel_Click()EndEnd SubPrivate Sub cmdOK_Click()If yh.Text = "" Then MsgBox ("请输入用户名")If mm.Text = "" Then MsgBox ("请输入密码")If yh.Text = "admin" And mm.Text = "123" ThenMDIForm1.ShowMe.HideElse: MsgBox ("用户名或密码错误")End IfEnd Sub学生信息管理界面Sub scls()For i = 0 To rs.Fields.Count - 1Text1(i).Text = ""NextEnd SubSub disprecord()For i = 0 To rs.Fields.Count - 1Text1(i).Text = rs.Fields(i).ValueNextEnd SubPrivate Sub Command1_Click()rs.MovePreviousIf rs.BOF Thenrs.MoveFirstMsgBox ("已经移到第一个")End IfdisprecordEnd SubPrivate Sub Command2_Click()rs.MoveNextIf rs.EOF Thenrs.MoveLastMsgBox ("已经移到最后一个")End IfdisprecordEnd SubPrivate Sub Command3_Click()Dim sql As Stringsql = "insert into s values ('" & Text1(0) & "','" & Text1(1) & "','" & Text1(2) & "','" & Text1(3) & "','" & Text1(4) & "','" & Text1(5) & "')"If Text1(0).Text = rs.Fields(0).Value And Text1(0) = "" ThenMsgBox ("学号错误，请重新输入")Text1(0).Text = ""Elsecn.Execute sqlMsgBox ("添加成功")rs.Closers.Open "select * from s", cn, adOpenDynamic, adLockOptimisticSet DataGrid1.DataSource = rsdisprecordEnd IfEnd SubPrivate Sub Command4_Click()For i = 0 To rs.Fields.Count - 1Text1(i).Text = ""NextEnd SubPrivate Sub Command5_Click()Dim sql As Stringsql = "delete from s where 学号=" & Text1(0).Textcn.Execute sqlMsgBox ("删除成功")rs.Closers.Open "select * from s", cn, adOpenDynamic, adLockOptimisticSet DataGrid1.DataSource = rsdisprecordEnd SubPrivate Sub Form_Load()Dim constring As Stringconstring = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=学分管理系统;Data Source=127.0.0.1"Set cn = New ADODB.Connectioncn.Open constringSet rs = New ADODB.Recordsetcn.CursorLocation = adUseClientrs.Open "select * from s", cn, adOpenDynamic, adLockOptimisticSet DataGrid1.DataSource = rsdisprecordEnd Sub录入学分信息：Private Sub Command1_Click()Dim sql As StringIf Text1(0).Text = "" Thenmagbox ("请输入完整信息")Elsesql = "insert into sc values ('" & Text1(0) & "','" & Text1(1) & "','" & Text1(2) & "','" & Text1(3) & "')"cn.Execute sqlMsgBox ("录入成功")rs.Closers.Open "select * from sc", cn, adOpenDynamic, adLockOptimisticSet DataGrid1.DataSource = rsEnd IfEnd Sub按学号查询学生学分信息：Private Sub Command1_Click()Dim constring As Stringconstring = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=学分管理系统;Data Source=127.0.0.1"Set cn = New ADODB.Connectioncn.Open constringSet rs = New ADODB.Recordsetcn.CursorLocation = adUseClientrs.Open "select 学号,姓名,课程名,课程类型,学分 from show where 学号=" & Text1.Text, cn, adOpenDynamic, adLockOptimisticSet DataGrid1.DataSource = rsEnd Sub按照某类课程的学分高低进行排序：Private Sub Command1_Click()Dim sql As Stringsql = "select 姓名,sum(学分) as 学分 from show where 课程类型='" & Text1.Text & "'group by 姓名 order by 学分 asc"rs.Closers.Open sql, cn, adOpenDynamic, adLockOptimisticSet DataGrid1.DataSource = rsEnd Sub给定学号修改学分信息：Private Sub Command1_Click()If Text1.Text = "" ThenMsgBox ("请输入要修改的学号")ElseDim sql As StringDim sql1 As Stringsql = "update sc set 学分=" & Text3 & "where 学号=" & Text1 & "and 课程号=" & Text2cn.Execute sqlsql1 = "update sc set 成绩=" & Text4 & "where 学号=" & Text1 & "and 课程号=" & Text2cn.Execute sql1MsgBox ("修改成功")rs.Closers.Open "select * from sc", cn, adOpenDynamic, adLockOptimisticSet DataGrid1.DataSource = rsEnd IfEnd Sub判断学生是否能毕业：六、 调试分析登陆：主界面：主界面为MDI界面，设置为父界面，以后的都为子界面。学生信息管理：上移到顶时会弹出信息框“已经移到第一个”，下移到最后一个时会弹出信息框“已经移到最后一个”添加学生信息：如果学号有重复会弹出信息框“学号重复，请重新输入”，同时清空学号框录入学分信息：给定班号，显示该班所有学生的学分完成情况：给定学号，修改该学生的学分信息：按照某类课程的学分高低进行排序：给定学号，对该学生能否毕业进行确定：七、结果分析、结论与体会：  在这次课程设计中，我遇到的困难很多，在解决它们的同时我又学到了很多，受益匪浅，特别是如何分析、建立、开发一个系统。 在一个系统开发的过程中编码不是重要的，重要的是分析系统、建立起系统模型。在分析一个系统前，分析人员必须要对将要开发的系统所涉及到的各方面知识有一个认识，然后将系统的模型建立起来。  在程序编写中，我认识到软件要有简便的界面，良好的程序风格。拥有这些条件，程序的可读性才会好，开发的复杂度才能大大减少，修改代码时更加容易下手。 掌握了SQL Server 的功能与特点以及相应的SQL语言，让我们可以很好地运用触发器和存储过程等模块，去解决一些生活中的实际问题，而不光是纸上谈兵；同时，可以使我们对一个完整数据库系统的设计过程有了更深入的了解和体会 八、附录或参考文献 1 学用Visual Basic 编程  潭浩    西安电子科技大学出版社  2 数据库系统原理及应用教程  苗雪兰 刘瑞新著    机械工业出版社  3 SQL Server数据库开发入门与范例解析  夏邦贵著  北京机械工业出版社 4 SQL Server 2005应用开发技术指南  彭东著  北京清华大学出版社  5Visual Basic案例教程                   艾菊梅 宋文琳著     电子工业出版社  6面向对象程序设计系列教材          龚沛曾著     高等教育出版社  7Visual Basic6.0 数据库开发与专业应用 敬  铮著    国防工业出版社  8Visual Basic6.0 数据库程序设计高手   温贤发著    科学出版社19