学生成绩管理.docx

1、学生成绩管理目录第一章 概述 - 1 -第二章 问题定义 - 2 -第三章 需求分析 - 3 -第四章 数据库设计 - 6 -第五章 界面设计 - 9 -第六章 代码与注释 - 14 -设计总结 - 18 -参考文献 - 19 -第一章 概述学生成绩管理系统是为了方便同学能在任何时候都能查阅到有关自己学科成绩等有关的信息，也有利于让他们充分了解有关自己在大学期间所有课程的学习情况，提高查询速度。学生成绩管理系统是系科综合管理信息系统中很重要的组成部分。本系统在方便每一位同学能在需要时查询自己的成绩的同事，也方便了系上对班上的基本情况有一个了解，也是系上在评优等方面的一个重要的参考。再由于班上的

2、同学都基本上在上网，可以通过学校的网络了解自己有关的基本信息。本系统通过收集、整理班上所以学生的基本信息，主要包括每个学生的基本信息（学号，姓名，性别，籍贯，出生年月.）、每个学生的专业课、公共课以及校选修课的基本信息（课程编号，课程名称，课程成绩，课程学分，平均成绩，.），通过对基本信息的存储，使每一个学生能查到有关自己的所有基本情况。主要目的是能为班上的每一为学生提供成绩查询，为系上的各种考评提供参考，进一步地提高工作效率。第二章 问题定义本系统业务是在学生成绩管理办公室进行，数据集中在一个数据库服务器上。根据系统总体目标及技术成熟型、一般企业流行的体系结构，学生成绩管理系统采用分层体系结

3、构，具体划分为三层：表现层、业务层和数据层。 表现层：用户和系统进行交互地层次。通过键盘、显示器、鼠标、打印机等进行人工交互。上网）。 业务层：即事务逻辑层或中间层，完成事物处理规则和业务流程约束数据的处理。考虑到本系统问题的规模以及复杂程度、难度等，本系统业务层应用Microsoft IIS、FTP等完成业务层的功能。 数据层：即数据资源管理层，本层完成数据资源等的插入、删除、更新修改等数据存储管理工作，在本系统中采用RDBMS来完成数据层功能，应用Microsoft SQL Serve来实现。本系统涉及到的业务工作主要是：学生管理，系别管理，成绩管理，课程管理等方面，可以把整个系统划分为下

4、面的子系统/功能模块： 学生成绩管理（学号，姓名，各课成绩等）； 学生基本信息管理（学号，姓名，籍贯等）； 学生课程信息管理（学号，姓名，考试课程名）；第三章 需求分析一、数据库需求分析通过调研，该学生成绩管理系统主要包括本班的每一位学生在校期间的基本情况与课程成绩汇总。主要包括期末成绩管理、选修课成绩管理、课程管理、具体的查询等。本系统还提供学生相关的基本信息统计、汇总、查询，这样便于辅助系领导的学生管理工作，改善管理质量、提高管理效率。系统的主要功能性能描述如下：学生基本情况管理：本班每一位学生的基本情况汇总与管理，主要包括对学生基本情况的添加、修改、删除、查询等操作。成绩管理：主要包括期

5、末成绩、选修课成绩管理。主要包括对学生成绩的添加、修改、删除、查询、统计等操作。课程管理：主要包括对课程的添加、删除、查询等操作。本系统用户信息：学生必须通过用户登录才能访问到整个管理系统。系统维护：能及时更新该系统的所有信息,若查询结束,能及时退出当前窗口，回到上一级住窗口。二、数据流图图3.1数据流图三、数据字典（DD）:数据字典是各类数据描述的集合，它是进行详细的数据收集和数据分析后所获得的主要成果。 数据字典是关于数据库中数据的描述，即对元数据的描述。数据字典是在需求分析阶段建立，在数据库设计过程中不断修改、充实、完善的。学生基本信息表=学号+姓名+性别+籍贯+民族+出生年月+政治面貌

6、+入学时间+所在班级学生成绩信息表=学号+姓名+课程编号+课程名称+学分+成绩+平均成绩系统用户表=用户名+密码四、数据库概念结构设计数据库概念设计的目标就是要产生反映企业组织信息需求的数据库概念结构，即概念模型。概念模式是独立与数据库逻辑结构，独立与支持数据库的DBMS，不依赖于计算机系统的。概念模型是表达概念设计结果的工具。它应该能够真实、充分地反映现实世界中事物和事物之间的联系；应该简洁、明晰、独立于机器，容易理解，方便数据库设计人员和应用人员进行交流；应该易于变动，便于修改；应该很容易向关系、层次或网状等各种数据模型转变，方便地导出与DBMS有关的逻辑模型。五、数据库逻辑结构设计：将概

7、念转化为SQL Sever2000数据库系统。六、程序流程图 否 是图3.2程序流程图 第四章 数据库设计一、概念设计：系统ER图图4.1学生实体E-R图图4.2课程实体E-R图二、逻辑设计：下面列出几个主要的数据库表设计：表4.1学生基本信息表列名数据类型长度类型学号Char10关键字姓名Char12不为空性别Char6不为空籍贯Char12不为空民族Char12不为空政治面貌Char12不为空入学时间Int6不为空出生年月Int6不为空所在班级Char6不为空表4.2班级信息表格列名数据类型长度备注学号Char12主关键字姓名Char12不为空课程编号Char2不为空课程名称Char12不

8、为空学分Int2不为空成绩Int3不为空平均成绩Int2不为空表4.3学生课程管理列名数据类型长度备注课程编号Char2关键字课程名称Char12不为空学分Int2不为空任课老师Char12不为空表4.4系统用户信息列名数据类型长度备注用户名Char12不为空密码Char12关键字三、物理设计图4.3学生基本信息图4.4学生成绩信息第五章 界面设计一、登陆界面系统登入后，首先出现用户登录窗体，用户首先输入用户名然后输入密码。图5.1登陆界面二、主界面单击主界面上的各个按钮，可以进入相应的界面中。图5.2主界面三、添加用户图5.3添加用户四、修改密码图5.4修改密码五、学生基本信息输入学生的一项

9、信息即可查询相对应的全部信息。图5.5学生基本信息六、成绩查询输入学生的学号即可查询。图5.6成绩查询图5.7 查询条件图图5.8 专业课程成绩管理图七、帮助图5.9 成绩管理系统图八、退出图5.10 退出系统图第六章 代码与注释一、登录代码Private Sub CmdCacel_Click()Unload MeExit SubEnd SubPrivate Sub cmdOK_Click()Dim sql As StringDim rs As ADODB.RecordsetIf Trim(UserName.Text = ) Then MsgBox 没有输入用户名，请重新输入！, vbOKOn

10、ly + vbExclamation, 警告 UserName.SetFocusElse sql = select * from UserInfo where UserID= & UserName.Text & Set rs = TransactSQL(sql) If iflag = 1 Then If rs.EOF = True Then MsgBox 没有这个用户，请重新输入！, vbOKOnly + vbExclamation, 警告 UserName.SetFocusElseIf Trim(rs.Fields(1) = Trim(PassWord.Text) Then rs.Close

11、 Me.Hide gUserName = Trim(UserName.Text) MDIForm1.Show Unload Me Else MsgBox 密码不正确，请重新输入！, vbOKOnly + vbExclamation, 警告 PassWord.SetFocus PassWord.Text = End IfEnd IfElse Unload Me End If End If pwdCount = pwdCount + 1If pwdCount = 3 Then Unload Me Exit Sub End IfEnd SubPrivate Sub Form_Load()pwdCou

12、nt = 0End Sub二、主界面代码Private Sub Add_Student_Click()FrmStudent_Manage.ShowEnd SubPrivate Sub Add_User_Click(Index As Integer)FrmModUserName.ShowEnd SubPrivate Sub Chang_PWD_Click(Index As Integer)FrmModPWD.ShowEnd SubPrivate Sub Check_Student_Click()FrmQury.ShowEnd SubPrivate Sub Profession_Grade_Cli

13、ck()FrmProGrade_Manage.ShowEnd SubPrivate Sub Profession_Info_Click()FrmProCs_Manage.ShowEnd SubPrivate Sub Select_Grade_Click()FrmSelGrade_Manage.ShowEnd SubPrivate Sub Select_Info_Click()FrmSelectCs_Manage.ShowEnd SubPrivate Sub ShowProf_Click() FrmProfession_Course.ShowEnd SubPrivate Sub ShowSele

14、ct_Click()FrmSelect_Course.ShowEnd SubPrivate Sub StudentBasic_Click()FrmBasic_Student.ShowEnd SubPrivate Sub System_Exit_Click(Index As Integer) Unload MeEnd Sub三、学籍查询Public gUserName As StringPublic flag As IntegerPublic gSQL As StringPublic iflag As IntegerPublic Function TransactSQL(ByVal sql As

15、 String) As ADODB.RecordsetDim con As ADODB.ConnectionDim rs As ADODB.RecordsetDim strConnection As StringDim strArray() As StringSet con = New ADODB.ConnectionSet rs = New ADODB.RecordsetOn Error GoTo TransactSQL_Error strConnection = provider=Microsoft.Jet.OLEDB.4.0;Data source = & App.Path & tabl

16、e.mdb strArray = Split(sql) con.Open strConnection If StrComp(UCase$(strArray(0), select, vbTextCompare) = 0 Then rs.Open Trim$(sql), con, adOpenKeyset, adLockOptimistic Set TransactSQL = rs iflag = 1 Else con.Execute sql iflag = 1 End IfTransactSQL_Exit: Set rs = Nothing Set con = Nothing Exit Func

17、tion TransactSQL_Error: MsgBox 查询错误： & Err.Description iflag = 2 Resume TransactSQL_Exit End Function Public Sub TabToEnter(Key As Integer) If Key = 13 Then SendKeys TAB End If End Sub Sub main() Dim fLogin As New Frmlogin fLogin.Show vbModual End Sub 设计总结经过这么多天的努力，总算是做好了成绩管理系统，自从确定了课题设计的题目后学生成绩管理系统

18、，便开始了准备工作。从刚开始写成绩管理的需求分析、画数据流图、概要设计说明书以及数据库字典。在把这些准备工作都做好了后，便开始了设计页面与编程。说实话，刚开始觉得什么都不会写，尤其是VB，因为VB已经学了一年多了，再说学VB那个时候又没怎么学懂，基本的格式代码都已经忘的差不多了。还得重新学VB在整个设计过程中，通过各种渠道获取资料。利用周末去大的书店查资料，把重要的东西记录下来，也去图书馆借了一些相关的参考资料，同时还充分利用网上资源查一些资料。最后再综合这些资料，结合VB、Access与SQL进行具体的操作。也可以说这是我第一次从开始设计到编程到最后完成自己独立完成。在这过程中也遇到了很多难

19、题，比如说，按学生的学号或名称来查询学生的成绩时，就遇到了很多困难，先是怎样把几个表连接起来，再怎样用DataGrid把一个学生的多条记录显示出来，怎样求平均成绩等等。通过查资料，仔细思考，把这些问题都解决了。但是，最后调试程序时，又发现程序缺少参照完整性，又重新回过去重写代码，可是写了很久就是不能正常的运行，至少考虑了几个小时，最后才发现代码缺少了一部分条件，添加上后就可以正常运行了。第一次感受到了郁闷了半天后的喜悦心情。参考文献1高文姬.Visual Basic数据库项目案例导航M.清华大学出版社,2004年2张路平,喻波.Visual Basic6.0编程案例精M,电子工业出版社,200

20、5年3齐治昌,谭庆平,宁洪.软件工程M,高等教育出版社,2003年4陈艳峰,高文姬.Visual Basic数据库项目案例导航M,清华大学出版社,2004年5曹衍龙.Visual Basic系统开发实例精粹M,人民邮电出版社,2005年6张明.SQL Server 2000数据库设计与管理M,机械出版社,2004年7郭瑞军.Visual Basic数据库开发实例精粹M,电子工业出版社,2005年8李怀明.visual basic6.0中文版参考详解M,清华大学出版社,1999年9哈格.信息时代的管理系统/美M,机械工业出版社,2000年10钱雪忠.数据库原理及应用实验指导M,北京邮电大学出版社,2005年