学分管理系统--数据库课程设计报告.docx

1、课程设计报告课程设计题目：学分管理系统学生姓名：xx专业：计算机科学与技术班级：xxx指导教师：xx2016 年 01 月 14 日19目录1、题目32、目的和要求33、需求分析34、概要设计35、详细设计4E-R 图4建立数据库4VB 设计66、调试分析147、结果分析与体会188、附录或参考资料19一、题目：学分管理系统1、目的和要求通过本次课程设计让学生能够综合运用所学的关系数据库原理知识解决并能设计一个实际问题，进一步掌握数据库原理的相关理论和数据库的设计实现过程，进一步提高学生的分析问题和解决问题的能力以及学生的动手能力运用关系型数据库管理系统，实现学生成绩管理系统开发。具体功能如下

2、：1、学生基本信息设置：包括专业、班级、姓名、学号等；2、学生课程名称和成绩录入；3、学生基本信息和课程信息的查询及增删改；4、成绩排名及相应绩点分计算。三、需求分析学生基本信息：包括学生的姓名、学号、性别、系别、班级，可以方便学生信息的查询和更新；课程基本信息：包括课程代号、课程名、课程种类、学分，可以方便课程信息的查询与更新；成绩基本信息：包括学生的学号、学生选取的课程号、学生的成绩及学分，这可以提高查询效率。4、概要设计数据库在一个信息管理系统中占有非常重要的地位，数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构设计可提高数据存储的效率，保证数据的完整和

3、一致。同时，合理的数据库结构也将有利于程序的实现。 数据库需求分析用户的需求具体体现在各种信息的提供、保证、更新和查询，这就要求数据库结构能够充分满足各种信息的输出和输入。针对一般学生信息管理系统的要求，通过对学生学习过程的内容和数据流程分析，设计如下的数据项和数据结构：1、学生基本信息包括的数据项有：学生学号、学生姓名、性别、班级、所在系。课程名学分2、学生选课信息包括数据项有：学生学号、课程号、考试分数、学分。3、 课程信息有：课程号、课程名、课程类别。根据上面的数据结构、数据项和数据流程，进行数据库设计。5、详细设计学号成绩选取系别学生5.1 、E-R 图：姓名性别班级课程号课程类型课程

4、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, 学 号 ncha

5、r(20) not null, 成绩 int,学分 float,constraint s_c_pk primary key(学号,课程号)Go建立触发器保证完整性： create trigger 选课插入 on sc for insertas if(select count(*) from s,inserted,c where s.学号=inserted.学号 and c.课程号=inserted.课程号)=0 rollback transaction Gocreate trigger 学生删除 on s for deleteas if(select count(*) from sc,dele

6、ted where sc.学号=deleted.学号)0 rollback 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 SubPriva

7、te Sub cmdOK_Click()If yh.Text = Then MsgBox (请输入用户名) If mm.Text = Then MsgBox (请输入密码) If yh.Text = admin And mm.Text = 123 Then MDIForm1.ShowMe.HideElse: MsgBox (用户名或密码错误) End IfEnd Sub学生信息管理界面Sub scls()For i = 0 To rs.Fields.Count - 1 Text1(i).Text = Next End SubSub disprecord()For i = 0 To rs.Fie

8、lds.Count - 1 Text1(i).Text = rs.Fields(i).Value NextEnd SubPrivate Sub Command1_Click() rs.MovePreviousIf rs.BOF Then rs.MoveFirstMsgBox (已经移到第一个)End If disprecord End SubPrivate Sub Command2_Click() rs.MoveNextIf rs.EOF Then rs.MoveLastMsgBox (已经移到最后一个)End If disprecordEnd SubPrivate Sub Command3_

9、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) = Then MsgBox (学号错误，请重新输入)Text1(0).Text = Else cn.Execute sqlMsgBox (添加成功) rs.Closers.Open select * from s,

10、cn, adOpenDynamic, adLockOptimistic Set DataGrid1.DataSource = rsdisprecord End IfEnd SubPrivate Sub Command4_Click() For i = 0 To rs.Fields.Count - 1 Text1(i).Text = Next End SubPrivate Sub Command5_Click()Dim sql As Stringsql = delete from s where 学号= & Text1(0).Text cn.Execute sqlMsgBox (删除成功) rs

11、.Closers.Open select * from s, cn, adOpenDynamic, adLockOptimistic Set DataGrid1.DataSource = rsdisprecord End 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

12、Set cn = New ADODB.Connection cn.Open constringSet rs = New ADODB.Recordsetcn.CursorLocation = adUseClientrs.Open select * from s, cn, adOpenDynamic, adLockOptimistic Set DataGrid1.DataSource = rsdisprecord End Sub录入学分信息：Private Sub Command1_Click() Dim sql As StringIf Text1(0).Text = Then magbox (请

13、输入完整信息)Elsesql = insert into sc values ( & Text1(0) & , & Text1(1) & , & Text1(2) & , & Text1(3) & )cn.Execute sql MsgBox (录入成功) rs.Closers.Open select * from sc, cn, adOpenDynamic, adLockOptimisticSet DataGrid1.DataSource = rs End IfEnd Sub按学号查询学生学分信息：Private Sub Command1_Click()Dim constring As St

14、ringconstring = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=学分管理系统;Data Source=127.0.0.1Set cn = New ADODB.Connection cn.Open constringSet rs = New ADODB.Recordset cn.CursorLocation = adUseClientrs.Open select 学号,姓名,课程名,课程类型,学分 from show where 学号= & Text1.Text, cn, adOpenDynamic, adLockOptimisticSet DataGrid1.DataSource = rs End Sub按照某类课程的学分高低进行排序：Private Sub Command1_Click()Dim sql As Stringsql = select 姓名,sum(学分) as 学分 from show where 课程类型= & Text1.Text & group by 姓名 orde