学生成绩管理系统毕业设计课程设计Word格式.docx

1、而且只要软件的设计合理，可以为学校提供合理的管理模式。所以我想借本次毕业设计之际，开发一个不仅适用本校各系而且适用于其它各校的通用高校学生档案管理系统。现在我国的学校学生档案的管理水平有些还停留在纸质的基础上，这样的机制已经不能适应时代的发展，因为它浪费了许多人力和物力，在信息时代这种传统的管理方法必然被计算机为基础的信息管理所取代。学生成绩管理工作是学校学生管理工作的重要组成部分，现在相当一部分学校的学生成绩管理工作仍沿用手工方式。随着学校规模的扩大、学生人数的增加，效率低下、容易出错的手工方式越来越不适应实际管理工作的需要，按照软件工程原理和数据库技术开发学生成绩管理系统已成为学生管理部门

2、的迫切需要。该学生成绩管理系统主要包括有学生档案管理、学生选课管理、学生成绩管理等内容；面对大量的学生数据、报表，手工处理方式已经很难跟上现代化的步伐。随着计算机技术及网络通讯技术的飞速发展，许多学校已经有了较好的计算机应用甚至网络硬件建设基础。因此为提高学校管理工作的现代化、科学化水平，保证信息处理的即时化、准确化，开发一套对学生学籍进行管理的软件是极其重要的。（2）系统的特点学生成绩管理系统主要包括以下功能： 完成数据的录入和修改，并提交数据库保存。其中的数据包括：学生信息、课程设置、学生成绩以及操作员信息等。 实现信息查询。主要包括：学生信息查询、课程信息查询和成绩查询等。 教师信息管理

3、。 教师授课信息查询、授课记录修改，删除等归纳起来，好处大约有以下几点：1可以很方便地查询、修改、删除学生资料、成绩等信息；2可以很方便地查询、修改、删除教师授课信息记录等；3只需一到二名档案录入员即可操作系统，节省大量人力；（3）系统设计环境（1）Windows XP系统（2）SQL Server 2000数据库管理系统（3）Microsoft Visual Basic 6.0开放平台2系统需求分析（1）系统设计的目标学校学生成绩系统是针对数据库课程设计所做的一个小型数据库。它也是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,它能够为用户提供充足的信息和快捷的查

4、询手段。能有效的帮助学校和老师掌握学生的情况，为学生提供成绩跟课程方面的查询。通过此系统,各科老师何管理员可以查询,修改,删除学生所选课的信息. 能够方便的了解学生总体情况（2）系统需求分析数据库中至少有个一个表是来存储学生的各课成绩的。有了学生成绩，得知道这个成绩是哪个学生的，所以此表中也得有学生姓名，但是学生姓名肯定有重复的 ，所以得必须有个标志来惟一标识一个学生，所以得给每个学生一个编号（学号），但是也得必须清楚，这个成绩是哪门课程的，所以给课程定义了一个编号。之后，得想到有了学生成绩表，总得有个表来存放学生信息吧，所以又建立一个学生信息表，此表中的必须的字段得有学号、姓名、班级，其他的

5、字段可以根据需要来添加。然后就是得有个课程表来存放哪个教师教哪门课程信息，所以此表中至少得有课程号,课程名称和教师的惟一标识（教师编号），再有一个表来存放教师的信息的，其中的字段必须有教师编号，教师姓名和所在的部门,当然也可以有教师出生日期、职称、电话号码等字段。（3）系统功能分析（1） 学生信息管理每年的大量新生入学，老生毕业都需要处理大量的学生信息。通过这一模块，可以实现学生基本情况的添加、删除、更新。还能查询各个学生的情况，姓名、姓别、班级、学号等各个消息.（2）课程和分数信息管理每个学期都会增加一些新的科目，通过本模块可以轻松的添加以及更新课程和成绩.而且可以查询任课的教师。可以根据学

6、期条件或者班级条件的选择，也可根据课程名、课程号或者班级的选择，并对值的输入，可以看到数据集中显示符合条件的课程数据信息，而且可以根据教工的修改要求进行数据的添加、删除、修改的操作。（3）教师信息管理 对每位任课教师都有详细记录,可以轻松查询教师的姓名,职称,编号,收入门等，并可以对教师的信息进行查询、修改、删除等操作。（4）概念结构设计ER图：3系统设计（1）数据库设计 逻辑结构设计1.关系模型学生（学号，姓名，性别，年龄，所在系） 此为学生实体对应的关系模式，其中学号是码。课程（课程号，课程名，先行课名，学分） 此为课程实体对应的关系模式，其中课程号是码。选修（学号，课程号，成绩）此为联系

7、“选修”对应的关系模式，其中学号，课程号是码。教师（教师号，姓名，性别，年龄，职称，工资，津贴，所在系）此为教师实体对应的关系模式，其中教师号是码。任教（教师号，课程号）此为任教实体对应的关系模式，其中课程号是码。2.student表设计3.Teacher表设计 各数据表结构（1）学生基本信息Student字段名称数据类型字段大小作 用必填字段是否主键Snochar4学号是Sname10姓名否Ssex2性别Sageint年龄Sdept30所在系（2）课程信息CourseCno3课程号Cname课程名Chourtinyint1先行课名Ccredit学分（3）选课信息SCSCOREInt成绩（4）

8、教师基本信息TeacherTno教师号Tname8SexAgeProf职称Salsmallint工资Comm津贴Dept（5）任课信息TC各表之间的关联关系 （2）系统功能设计 操作名称 相关数据学生基本信息学号，姓名，性别，年龄，所在系课程信息课程号，课程名，先行课名，学分选课信息学号，课程号，成绩教师信息教师号，姓名，性别，年龄，职称，工资，所在系任课信息教师号，课程号4系统实现（1）主界面Private Sub Command1_Click（）sForm1.ShowEnd SubPrivate Sub Command2_Click（）tForm1.ShowPrivate Sub Comm

9、and3_Click（）sForm2.ShowPrivate Sub Command4_Click（）tForm2.ShowPrivate Sub Command5_Click（）sForm3.ShowPrivate Sub Command6_Click（）tForm3.ShowPrivate Sub Command7_Click（）sForm4.ShowPrivate Sub Command8_Click（）tForm4.ShowPrivate Sub Command9_Click（）Unload Me（2）查询界面Private Sub Form_Load（）Dim con As New

10、ADODB.Connectioncon.Open Provider=SQLOLEDB.1;UID=sa; PWD=sa;Initial Catalog=jxskSet 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.CloseDim cn As ADODB.ConnectionDim rs As ADODB.RecordsetDim strCnn As

11、StringDim sname As String, cname As Stringsname = Trim（s_text.Text）cname = Trim（c_text.Text）strCnn = DRIVER=SQL SERVER;SERVER=ASUS;PWD=sa;DATABASE=jxskSet cn = New ADODB.Connectioncn.Open strCnnDim cm As New ADODB.Commandcm.ActiveConnection = cncm.CommandText = select score from student,sc,course wh

12、ere 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 Then score_text.Text = Str（rs!score）End IfSet rs = Nothingcn.CloseSet cn = Nothingselect tname as 姓名 from teacher Dim t_name

13、 As Stringt_name = Trim（t_text.Text）strSQL = select 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 = False t_list.AddItem rs!

14、cname rs.MoveNextLoop（3）插入界面select sno as 学号,cno as 课程号,score as 成绩 from sc Dim sno As String, cno As StringDim sc_score As Stringsno = Trim（s_text.Text）cno = Trim（c_text.Text）sc_score = Trim（score_text.Text）insert into sc values（ + sno + , + cno + , + sc_score + ）cn.Errors.ClearOn Error GoTo Error1

15、1cm.ExecuteError11:If cn.Errors.Count = 0 Then MsgBox （成功插入数据！ Else插入数据失败！select tno as 教师号,cno as 课程号 from tc Dim strCnn As String, strSQL As StringDim tno As String, cno As StringDim idtno = Trim（t_text.Text）select * from tcrs.CursorType = adOpenDynamicrs.LockType = adOpenDynamicrs.Open strSQL, cn

16、, , , adCmdTextrs.AddNewrs!tno = tnocno = cnors.Update id = MsgBox（, vbOKOnly, 插入教师授课信息（4）修改界面Dim sc_score As Integersc_score = Val（score_text.Text）update_scoreSet prm = cm.CreateParameter（sno, adChar, adParamInput, 6, sno）cm.Parameters.Append prmcno, adChar, adParamInput, 5, cno）score, adTinyInt, adParamInput, , sc_score）cm.CommandType = adCmdStoredProc成绩更新成功！成绩更新失败！Dim tno As String, c_old As String, c_new As StringDim id As Integerc_old = Trim（dc_text.Text）c_new = Trim（nc_text.Text）Set cn = New A