学生成绩管理系统毕业设计报告 数据库应用系统课程设计实验

1、数据库系统课程设计报告课程名称课题名称学生成绩管理系统业 计算机科学与技术 级 0701 y *学生姓名*指导教师*完成日期2010年6月18日目录1引言-2-（1）系统的意义 -2-（2）系统的特点 -2-（3）系统设计环境 -3-2系统需求分析 -3-（1）系统设计的目标 -3-（2）系统需求分析 -3-（3）系统功能分析 -3-（1）学生信息管理 -3-（2）课程和分数信息管理 -3-（3）教师信息管理 -4-（4）概念结构设计 -4-3系统设计-5-（1）数据库设计 -5- 逻辑结构设计 -5-1 .关系模型 -5-2 .student 表设计 -5-3 .Teacher 表设计 -5

2、 - 各数据表结构 -7-（ 1）学生基本信息Student-7 -（ 2）课程信息Course -7-（3）选课信息SC-7-（4）教师基本信息Teacher-8 -（5）任课信息TC -8-各表之间的关联关系 -8-（2）系统功能设计 -8-4系统实现 -9-（ 1）主界面 -9-（2）查询界面 -10-（3）插入界面 -12-（4）修改界面 -15-（5）删除界面 -18-5小结 -21-1 引言1 ）系统的意义随着科学技术的不断提高,计算机科学日渐成熟，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的作用。 作为计算机应用的一部分， 使用计算机对学生成绩进行

3、管理，具有手工管理所无法比拟的优点。例如:检索迅速、查找方便、可靠性高、 存储量大、寿命长、 成本低等。这些优点能够极大地提高学校学生成绩管理的效率。因此， 开发这样一套管理软件成为很有必要的事情。 而且只要软件的设计合理，可以为学校提供合理的管理模式。 所以我想借本次毕业设计之际， 开发一个不仅适用本校各系而且适用于其它各校的通用高校学生档案管理系统。现在我国的学校学生档案的管理水平有些还停留在纸质的基础上， 这样的机制已经不能适应时代的发展， 因为它浪费了许多人力和物力， 在信息时代这种传统的管理方法必然被计算机为基础的信息管理所取代。学生成绩管理工作是学校学生管理工作的重要组成部分， 现

4、在相当一部分学校的学生成绩管理工作仍沿用手工方式。随着学校规模的扩大、学生人数的增加， 效率低下、 容易出错的手工方式越来越不适应实际管理工作的需要， 按照软件工程原理和数据库技术开发学生成绩管理系统已成为学生管理部门的迫切需要。该学生成绩管理系统主要包括有学生档案管理、学生选课管理、学生成绩管理等内容；面对大量的学生数据、 报表， 手工处理方式已经很难跟上现代化的步伐。 随着计算机技术及网络通讯技术的飞速发展， 许多学校已经有了较好的计算机应用甚至网络硬件建设基础。 因此为提高学校管理工作的现代化、科学化水平，保证信息处理的即时化、准确化， 开发一套对学生学籍进行管理的软件是极其重要的。（

5、2 ）系统的特点学生成绩管理系统主要包括以下功能：? 完成数据的录入和修改，并提交数据库保存。其中的数据包括：学生信息、课程设置、学生成绩以及操作员信息等。? 实现信息查询。主要包括：学生信息查询、课程信息查询和成绩查询等。? 教师信息管理。 教师授课信息查询、授课记录修改，删除等归纳起来，好处大约有以下几点：1 可以很方便地查询、修改、删除学生资料、成绩等信息；2 可以很方便地查询、修改、删除教师授课信息记录等；3 只需一到二名档案录入员即可操作系统，节省大量人力；（ 3 ）系统设计环境（ 1） Windows XP 系统（ 2） SQL Server 2000 数据库管理系统（ 3） Mi

6、crosoft Visual Basic 6.0 开放平台2系统需求分析（ 1 ）系统设计的目标学校学生成绩系统是针对数据库课程设计所做的一个小型数据库。 它也是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,它能够为用户提供充足的信息和快捷的查询手段。 能有效的帮助学校和老师掌握学生的情况， 为学生提供成绩跟课程方面的查询。通过此系统,各科老师何管理员可以查询 ,修改,删除学生所选课的信息. 能够方便的了解学生总体情况（ 2 ）系统需求分析数据库中至少有个一个表是来存储学生的各课成绩的。 有了学生成绩， 得知道这个成绩是哪个学生的，所以此表中也得有学生姓名，但是学

7、生姓名肯定有重复的 ，所以得必须有个标志来惟一标识一个学生，所以得给每个学生一个编号（学号） ，但是也得必须清楚，这个成绩是哪门课程的，所以给课程定义了一个编号。之后，得想到有了学生成绩表，总得有个表来存放学生信息吧， 所以又建立一个学生信息表， 此表中的必须的字段得有学号、 姓名、班级， 其他的字段可以根据需要来添加。 然后就是得有个课程表来存放哪个教师教哪门课程信息，所以此表中至少得有课程号,课程名称和教师的惟一标识（教师编号），再有一个表来存放教师的信息的，其中的字段必须有教师编号，教师姓名和所在的部门 , 当然也可以有教 师出生日期、职称、电话号码等字段。（ 3 ）系统功能分析（1）

8、学生信息管理每年的大量新生入学， 老生毕业都需要处理大量的学生信息。 通过这一模块， 可以实现学生基本情况的添加、删除、更新。还能查询各个学生的情况，姓名、姓别、班级、学号等各个消息 .（2）课程和分数信息管理每个学期都会增加一些新的科目，通过本模块可以轻松的添加以及更新课程和成绩.而且可以查询任课的教师。可以根据学期条件或者班级条件的选择， 也可根据课程名、 课程号或者班级的选择， 并对值的输入， 可以看到数据集中显示符合条件的课程数据信息， 而且可以根据教工的修改要求进行数据的添加、删除、修改的操作。(3)教师信息管理对每位任课教师都有详细记录，可以轻松查询教师的姓名，职称，编号，收入门等

9、，并可以 对教师的信息进行查询、修改、删除等操作。(4)概念结构设计ER 图：3.系统设计（1）数据库设计逻辑结构设计i.关系模型学生（学号，姓名，性别，年龄，所在系）此为学生实体对应的关系模式，其中学号是码。课程（课程号，课程名，先行课名，学分）此为课程实体对应的关系模式，其中课程号是码。选修（学号，课程号，成绩）此为联系“选修”对应的关系模式，其中学号，课程号是码。教师（教师号，姓名，性别，年龄，职称，工资，津贴，所在系）此为教师实体对应的关系模式，其中教师号是码。任教（教师号，课程号）此为任教实体对应的关系模式，其中课程号是码。2.student表设计senaged&pt4

10、63;1赵维号2小菲张友三4周英55黄明eS张玉E?以丹S3刘华陈文slO李路工11张彬式2侏辉e13牛莉=14葛鹏女女男女男女女男男女男男女男20192519讨算机总算机 计算机 计算机 计莓机 计算机 i+篁机 讨其机 计算机 计篁机总算机 信息色2022202122202221*23203.Teacher表设计表-TeacherTNO iT n 16 T5 T4 T3 12 T1壁TNane,Jxsk-中.(local)二上"|PM)F|COMMLSJLEM孙丽 刘新 孙海 张兰女男男女女男女男26343239讲师 教授 副教授 副教授180035003000250012001

11、500200020003000120012003000计的1 计篁机 自动化 信息 计篁机 计篁机 信息 计篁机1J1张雪 刘伟 壬平 李力51302847教授 讲师 讲师 教授3500200018004000Jtin表Course中的数据.位置是jxsk中、”(1 一IL |CBO|Cname|ChourCcedi tCl计算机基础60C2程序设计80C3数字逻辑60C4数据结构80C5数据库60C6编译原理60C7操作系统60C8软件工程60C9讨苴机网络48CIO图像处理4835666863 2Lt-.一表.TU中TM3FcnoT1C8T1C9T2ClT3C5T4C3T5C6T5C2T6

12、C4T7CTT8CIO*各数据表结构(1)学生基本信息 Student字段名称数据类型字段大小作 用必填字段是否主键Snochar4学号是是Snamechar10姓名是否Ssexchar2性别是否Sageint4年龄否否Sdeptchar30所在系否否(2)课程信息Course字段名称数据类型字段大小作 用必填字段是否主键Cnochar3球杠勺是是Cnamechar10课程名是否Chourtinyint1先行课名否否Ccreditchar4学分否否(3)选课信息一一SC字段名称数据类型字段大小作 用必填字段是否主键Snochar4学号否是Cnochar4球杠勺否是SCOREInt4成绩否否(4

13、)教师基本信息一一Teacher字段名称数据类型字段大小作 用必填字段是否主键Tnochar2:教师号是是Tnamechar8姓名是否Sexchar2性别是否Agetinyint1年龄否否Profchar10职称否否Salsmallint2工资否否Commsmallint2津贴否否Deptchar30所在系否否(5)任课信息一一TC字段名称数据类型字段大小作 用必填字段是否主键Tnochar10教师号否是Cnochar10球杠勺否是各表之间的关联关系SC5X0CMSCORE(2)系统功能设计操作名称相关数据学生基本信息学号，姓名，性别，年龄，所在系课程信息课程号，课程名，先行课名，学分选课信息

14、学号，课程号，成绩教师信息教师号，姓名，性别，年龄，职称，工资，所在系任课信息教师号，课程号4.系统实现（1）主界面Private Sub Command1_Click() sForml.ShowEnd SubPrivate Sub Command2_Click() tForml.ShowEnd SubPrivate Sub Command3_Click() sForm2.ShowEnd SubPrivate Sub Command4_Click() tForm2.ShowEnd SubPrivate Sub Command5_Click() sForm3.ShowEnd SubPrivate

15、 Sub Command6_Click()tForm3.ShowEnd SubPrivate Sub Command7_Click()sForm4.ShowEnd SubPrivate Sub Command8_Click()tForm4.ShowEnd SubPrivate Sub Command9_Click()Unload MeEnd Sub(2)查询界面Private Sub Form_Load()Dim con As New ADODB.Connectioncon.Open "Provider=SQLOLEDB.1;UID=sa; PWD=sa;Initial Catalo

16、g=jxsk"Set MSHFlexGrid1.DataSource = con.Execute("select sc.sno as 学号,sname as 姓名，cname as 课程名 from student,course,sc Where student.sno = sc.sno And o=o ")con.CloseEnd SubPrivate Sub Command1_Click()Dim cn As ADODB.ConnectionDim rs As ADODB.RecordsetDim strCnn As StringDim sname As St

17、ring, cname As Stringsname = Trim(s_text.Text)cname = Trim(c_text.Text)strCnn = " DRIVER=SQL SERVER;SERVER=ASUS;UID=sa;PWD=sa;DATABASE=jxsk"Set cn = New ADODB.Connectioncn.Open strCnnDim cm As New ADODB.Commandcm.ActiveConnection = cncm.CommandText = "select score from student,sc,cour

18、se where student.sno=sc.sno and " +"o=o and student.sname='" + sname + "' and ame='" + cname + ""' cm.CommandType = adCmdTextcm.CommandTimeout = 15Set rs = cm.Execute(1, 1, 1)If rs.EOF = False Thenscore_text.Text = Str(rs!score)End IfSet rs = Nothin

19、gcn.CloseSet cn = NothingEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim con As New ADODB.Connection con.Open "Provider=SQLOLEDB.1;UID=sa; PWD=sa;Initial Catalog=jxsk" Set MSHFlexGrid1.DataSource = con.Execute("select tname as 姓名 from teacher ") con.

20、CloseEnd SubPrivate Sub Command1_Click()Dim cn As ADODB.ConnectionDim rs As ADODB.RecordsetDim strCnn As StringDim t_name As Stringt_name = Trim(t_text.Text)strCnn = " DRIVER=SQL SERVER;SERVER=ASUS;UID=sa;PWD=sa;DATABASE=jxsk" Set cn = New ADODB.Connectioncn.Open strCnnstrSQL = "selec

21、t cname from teacher,tc,course where teacher.tno=tc.tno and " + _ "o=o and teacher.tname='" + t_name + "'"Set rs = New ADODB.Recordsetrs.CursorType = adOpenStaticrs.CursorLocation = adUseClientSet rs = cn.Execute(strSQL)Do While rs.EOF = Falset_list.AddItem rs!cnamer

22、s.MoveNextLoopSet rs = Nothingcn.CloseSet cn = NothingEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub( 3 )插入界面学号课程号成绩SIC5100S2C980S2C680S3CT55S3C270S4C485S5C845S5C3S3S6C28gSTCl95S8C339S9CIO8。S9cs75SI 口C894Private Sub Form_Load()Dim con As New ADODB.Connection con.Open "Provider=SQLOLEDB.1;U

23、ID=sa; PWD=sa;Initial Catalog=jxsk"Set MSHFlexGrid1.DataSource = con.Execute("select sno as 学号,cno as 课程号，score as 成绩 from sc ") con.CloseEnd SubPrivate Sub Command1_Click()Dim cn As ADODB.ConnectionDim strCnn As StringDim sno As String, cno As StringDim sc_score As Stringsno = Trim(s

24、_text.Text)cno = Trim(c_text.Text)sc_score = Trim(score_text.Text)strCnn = " DRIVER=SQL SERVER;SERVER=ASUS;UID=sa;PWD=sa;DATABASE=jxsk"Set cn = New ADODB.Connectioncn.Open strCnnDim cm As New ADODB.Command cm.ActiveConnection = cncm.CommandText = "insert into sc values('" + s

25、no + "','" + cno + "'," + sc_score + ") cm.CommandType = adCmdTextcm.CommandTimeout = 15cn.Errors.ClearOn Error GoTo Errorllcm.ExecuteErrorll:If cn.Errors.Count = 0 ThenMsgBox ("成功插入数据！")ElseMsgBox ("插入数据失败！")End Ifcn.CloseSet cn = NothingEnd

26、SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim con As New ADODB.Connection con.Open "Provider=SQLOLEDB.1;UID=sa; PWD=sa;Initial Catalog=jxsk"Set MSHFlexGrid1.DataSource = con.Execute("select tno as 教号,cno as 课程号 from tc ") con.CloseEnd SubPrivate Sub Co

27、mmand1_Click()Dim cn As ADODB.ConnectionDim strCnn As String, strSQL As StringDim tno As String, cno As StringDim id tno = Trim(t_text.Text)cno = Trim(c_text.Text)strCnn = " DRIVER=SQL SERVER;SERVER=ASUS;UID=sa;PWD=sa;DATABASE=jxsk"Set cn = New ADODB.Connectioncn.Open strCnnstrSQL = "

28、select * from tc"Set rs = New ADODB.Recordsetrs.CursorType = adOpenDynamicrs.CursorLocation = adUseClientrs.LockType = adOpenDynamiccn.Errors.ClearOn Error GoTo Error11rs.Open strSQL, cn, , , adCmdTextrs.AddNewrs!tno = tnors!cno = cnors.UpdateError11:If cn.Errors.Count = 0 Thenid = MsgBox("

29、; 成功插入数据！", vbOKOnly, " 插入教师授课信息")Elseid = MsgBox(" 插入数据失败！", vbOKOnly, " 插入教师授课信息")End IfSet rs = Nothingcn.CloseSet cn = NothingEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub( 4 )修改界面5 学号课程号修改学号课程号成建4r-4回C5100S2C960S2LE30S3C755! £3C270S4C435S5C845S5C3S3

30、S6C289STCl95SS39S9CIO80瓯C875二 1S10CS94-Private Sub Form_Load()Dim con As New ADODB.Connectioncon.Open "Provider=SQLOLEDB.1;UID=sa; PWD=sa;Initial Catalog=jxsk"Set MSHFlexGrid1.DataSource = con.Execute("select sno as 学号,cno as 课程号，score as 成绩 from sc ") con.CloseEnd SubPrivate Sub

31、 Command1_Click()Dim cn As ADODB.ConnectionDim strCnn As StringDim sno As String, cno As StringDim sc_score As Integersno = Trim(s_text.Text)cno = Trim(c_text.Text)sc_score = Val(score_text.Text)strCnn = " DRIVER=SQL SERVER;SERVER=ASUS;UID=sa;PWD=sa;DATABASE=jxsk"Set cn = New ADODB.Connect

32、ioncn.Open strCnnDim cm As New ADODB.Commandcm.ActiveConnection = cncn.Errors.ClearOn Error GoTo Error11cm.CommandText = "update_score"Set prm = cm.CreateParameter("sno", adChar, adParamInput, 6, sno) cm.Parameters.Append prmSet prm = cm.CreateParameter("cno", adChar, a

33、dParamInput, 5, cno) cm.Parameters.Append prmSet prm = cm.CreateParameter("score", adTinyInt, adParamInput, , sc_score) cm.Parameters.Append prm cm.CommandType = adCmdStoredProc cm.ExecuteError11:If cn.Errors.Count = 0 ThenMsgBox ("成绩更新成功！”)ElseMsgBox ("成绩更新失败！")End Ifcn.Clo

34、seSet cn = NothingEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim con As New ADODB.Connectioncon.Open "Provider=SQLOLEDB.1;UID=sa; PWD=sa;Initial Catalog=jxsk"Set MSHFlexGrid1.DataSource = con.Execute("select tno as 教号,cno as 课程号 from tc ") con.Close

35、End SubPrivate Sub Command1_Click()Dim cn As ADODB.ConnectionDim strCnn As String, strSQL As StringDim tno As String, c_old As String, c_new As StringDim id As Integertno = Trim(t_text.Text)c_old = Trim(dc_text.Text)c_new = Trim(nc_text.Text)strCnn = " DRIVER=SQL SERVER;SERVER=ASUS;UID=sa;PWD=s

36、a;DATABASE=jxsk" Set cn = New ADODB.Connectioncn.Open strCnnstrSQL = "select cno from tc where tno='" + tno + "'and cno='" + c_old + "'"Set rs = New ADODB.Recordsetrs.CursorType = adOpenKeysetrs.CursorLocation = adUseClientrs.LockType = adLockOptimi

37、sticcn.Errors.ClearOn Error GoTo Error11rs.Open strSQL, cn, , , adCmdTextIf rs.EOF = False Thenrs!cno = c_newid = MsgBox(" 成功更新课程号数据！ ", vbOKOnly, " 更新教师授课信息 ")Set rs = Nothingcn.CloseSet cn = NothingExit SubEnd IfError11:id = MsgBox(" 更新数据失败！ ", vbOKOnly, " 更新授课信息

38、 ")Set rs = Nothingcn.CloseSet cn = NothingEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub( 5 )删除界面Private Sub Form_Load()Dim con As New ADODB.Connectioncon.Open "Provider=SQLOLEDB.1;UID=sa; PWD=sa;Initial Catalog=jxsk"Set MSHFlexGrid1.DataSource = con.Execute("select sno as

39、学号,cno as 课程号 from sc ") con.Close End SubPrivate Sub Command1_Click()Dim cn As ADODB.ConnectionDim strCnn As StringDim sno As String, cno As Stringsno = Trim(s_text.Text)cno = Trim(c_text.Text)strCnn = " DRIVER=SQL SERVER;SERVER=ASUS;UID=sa;PWD=sa;DATABASE=jxsk" Set cn = New ADODB.Co

40、nnectioncn.Open strCnnDim cm As New ADODB.Commandcm.ActiveConnection = cncn.Errors.ClearOn Error GoTo Error11cm.CommandText = "delete from sc where sno='" + sno + "'and cno='" + cno + ""' cm.CommandType = adCmdText cm.Execute recordsaffected, , adCmdText If recordsaffected <> 0 ThenMsgBox （"删除选课记录成功！"） ElseMsgBox （"删除选课记录失败！"）End Ifcn.CloseSet cn = NothingExit SubErrorll:MsgBox （"删除选课记录失败！"）cn.CloseSet cn = NothingEnd SubPrivate Sub Command2_Click（）Unload M