基于sql vb的学生成绩管理系统

《基于sql vb的学生成绩管理系统》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、《应用软件实践》课程设计（2012/2013-2分散）课程名称：学生成绩管理系统班级：10通信工程（2）班学号：Xb10680218姓名：张泽星指导老师:霍戌文、郭奕亿2013年3月34目录一、题目：3学生成绩管理系统3二、目的和要求：3三、需求分析：3四、数据分析与建模：4数据分析4E-R图4系统流程图6五、数据库建立：6学生基本信息表6登入表7六、数据库应用开发与运行：7登入界面7密码修改界面9学生基本信息管理界面10学生基本信息修改界面22学生成绩管理界面24七、结果分析、结论与体会：33八、参考文献及资料：3334一、题目：学生成绩管理系统二、目的和要求：1．掌握软件工程的

2、规范掌握一般应用软件开发的基本过程、基本技术，为以后的毕业设计奠定基础。2．掌握关系型数据库管理系统的编程技术，并能独立完成一般小系统的程序设计、调试运行等工作。3．培养把所学知识运用到具体对象，理解面向对象编程理论，并能求出解决方案的能力。运用关系型数据库管理系统，实现学生成绩管理系统开发。具体功能如下：1、学生基本信息设置：包括专业、班级、姓名、学号等；2、学生课程名称和成绩录入；3、学生基本信息和课程信息的查询及增删改；4、成绩排名及相应绩点分计算。三、需求分析：目前计算机管理在日常生活中的地位变得越来越重要。它能够代替人做各种重复、繁琐的劳动，并且拥有操作简单、可信度好、不

3、易出错等优点，大大减少了不必要的人力消耗，提高个人的工作效率。随着学校的规模不断扩大，学生人数急剧增加，有关学生的各种信息也成倍增长。面对庞大的信息量需要有学生管理系统来提供学生管理工作的效率。通过这样的系统可以做到信息的规范管理，科学统计和快速查询，修改，增加，删除等，从而减少管理方面的工作量。实现学生信息关系的系统化，规范化，自动化，用计算机对学生各种信息进行日常管理。 学生信息查询是每个学校必须面临的问题，所以，如何开发一个应用简单、界面友好、容易操作、数据安全性好的管理系统就成为非常重要的技术问题。34四、数据分析与建模：数据分析数据库在一个信息管理系统中占有非常重要的地位

4、，数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构设计可提高数据存储的效率，保证数据的完整和一致。同时，合理的数据库结构也将有利于程序的实现。 数据库需求分析 用户的需求具体体现在各种信息的提供、保证、更新和查询，这就要求数据库结构能够充分满足各种信息的输出和输入。 针对一般学生信息管理系统的要求，通过对学生学习过程的内容和数据流程分析，设计如下的数据项和数据结构：    1、学生基本信息包括的数据项有：学生学号、学生姓名、性别、班级、专业、政治面貌。  2、学生成绩信息包括数据项有：学生学号、课程号、考试分数、绩点、学分。3、 学生登入信息有：学

5、号、密码。根据上面的数据结构、数据项和数据流程，进行数据库设计E-R图34系统流程图34五、数据库建立：学生基本信息表字段名类型长度允许空主键学号char15否是姓名char10否否专业char10是否班级char4是否性别char10是否政治面貌char10是否登入表字段名类型长度允许空主键学号char15否是密码char10否否成绩表字段名类型长度允许空主键学号char15否是课程号int4否是成绩float8是否绩点float8是否所得学分int4是否34六、数据库应用开发与运行：登入界面登入界面代码PrivateSubCmdcancel_Click()DimmyValAsS

6、tringBeepmyVal=MsgBox("确认退出系统吗?",vbYesNo+vbQuestion,"退出")IfmyVal=vbYesThenUnloadMeElsetxtname.Text=""txtpwd.Text=""txtname.SetFocusEndIfEndSubPrivateSubcmdOK_Click()Iftxtname.Text<>""ThenUsername0.RecordSource="select*fromusernamewhere学号='"+Trim(txtname.Text)+"'"Username0.RefreshOnErrorGoToerr

7、name'对不是合法用户的错误捕捉IfTrim(txtpwd.Text)=Trim(username0.Recordset.Fields("密码"))Then34Valming=Trim(txtname.Text)'记录登陆用户用户名LoadForm2Form2.ShowUnloadMeExitSubElseMsgBox"您的用户名或密码有误,请重行输入!",vbExclamation+vbDefaultButton1,"错误"txtname.Text=""txtpw