经济管理学院本科课程设计说明书

面向对象课程设计

学    号：                           

姓    名：          杨凯            

班    级：                           

专    业：    信息管理与信息系统    

系    别:          管理系           

指导教师：                           

                      2012   年  12  月  7  日

目录

第1章  课设概述....................................................2

1.1学生信息管理系统开发背景介绍.................................2

1.2 课程设计的目的和意义........................................2

1.3 本课设的具体研究工作........................................3

第2章  系统的设计与实现............................................3

2.1 开发环境简介................................................3                         2.2 学校学生管理信息系统设计....................................4

2.3 系统分析设计................................................4

2.4对于学生信息的分析与处理.....................................5

2.4程序具体运行结果与讨论.......................................7

第3章  课设总结和展望.............................................11

第1章 课设概述

1.1学生信息管理系统开发背景介绍

学生信息管理系统是针对学校人事处的大量业务处理工作而开发的管理软件，主要用于学校学生信息管理，总体任务是实现学生信息关系的系统化、科学化、规范化和自动化，其主要任务是用计算机对学生各种信息进行日常管理，如查询、修改、增加、删除，另外还考虑到学生选课，针对这些要求设计了学生信息管理系统。推行学校信息管理系统的应用是进一步推进学生学籍管理规范化、电子化、控制辍学和提高义务教育水平的重要举措

学生信息的管理对于学校的管理者来说至关重要，学生信息是高等学校非常重要的一项数据资源，是一个教育单位不可缺少一部分。特别是近几年来，国家政策的调整，我国高等院校大规模的扩招，给高等院校的教学管理、学生管理、后勤管理等方面都带来不少的冲击。其包含的数据量大，涉及的人员面广，而且需要及时更新，故较为复杂，难以单纯地依靠人工管理，而且传统的人工管理方式既不易于规范化，管理效率也不高，目前我国各类高等院校中还有相当一部分学生档案管理还停留在纸介质的基础上，尤其是中、小学对学生档案的管理更是落后，这样的管理机制已经不能适应时代发展的要求，其管理方法将浪费许多人力和物力。随着科学技术的不断提高，计算机科学与技术日渐成熟，计算机应用的普及已进入人类社会生活的各个领域，并发挥着越来越重要的作用。这种传统的手工管理模式必然被以计算机为物质基础的信息管理方法所取代。　　

作为计算机应用的一部分，使用计算机对学生档案进行管理，有着手工管理所无法比拟的优点，如：检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生档案管理的效率，也是学校向科学化、正规化管理发展的必要条件，更是各个高等院校与世界接轨的重要条件。

1.2课程设计的目的和意义

主要是提供学生，老师或者来访者方便的查询等相关操作，对学生的信息管理能统一规范化。功能块的相应操作分别由其对应的子模块实现。通过教育网络或互联网把整个学校的学生信息汇聚起来，为学校教育主管部门提供全面及时的学生信息，方便管理，同时亦可通过校园网扩展各类信息化应用，共享学生信息。学校可通过一个简化的学生信息管理系统，使学生信息管理工作系统化，规范化，自动化，从而达到提高学生信息管理效率的目的。同时，系统化的信息管理减轻了管理人员的工作负担，高效率、规范化地管理大量的学生信息，并避免人为操作的错误和不规范行为。

1.3本课设的具体研究工作

本课设采用Visual Basic6.0 + SQL Server 2000实现数据库管理，首先用Microsoft SQL Server 20## 建立关系数据库，设计了学生信息管理、学生成绩管理两个数据库，再在两个数据库里分别建立学生信息管理表和学生成绩管理表。其中用户表管理登陆信息以及用户权限，学生信息管理表管理学生姓名、学号、专业的一些重要的信息，学生成绩管理表主要是学生的各科成绩，然后用 Visual Basic 建立客户端，实现简单易懂的图形用户界面，并完成以下几个功能：

（1）用户管理：该功能主要是用于管理用户登录账号和密码的权限。

（2）用户选择管理：该功能主要用于用户选择进入学生信息管理或学生成绩管理。

（3）学生基本信息管理：该功能主要包括学生基本信息的录入、查询、修改以及删除。

（4）学生成绩管理：该功能主要用于完成各门课程学习成绩的录入、修改和删除，以及成绩的查询。

第2章 系统的设计与实现

2.1开发环境的简介

设计平台：Visual  Basic

Visual  Basic是一个对象导向设计的应用程序语言，是开发数据库前端的经典工具，它的编程语言简洁明快、组件功能强大和编程环境灵活方便。采用Visual  Basic来开发数据库应用程序具有灵活性和可扩展性。

数据库： Microsoft SQL2000

SQL2000 是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。SQL2000 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。SQL2000 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。SQL2000 多用于中小型企业来设计中小型数据库，一般的学校教务系统的数据库用SQL2000 来设计完全能达到要求。

数据库访问方式：ADO

ADO（Active Data Objects）是一种提供访问各种数据类型的连接机制。ADO设计为一种极简单的格式，通过ODBC的方法同数据库接口。可以使用任何一种ODBC数据源，即不止适合于SQL Server、Oracle、Access 等数据库应用程序，也适合于Excel表格、文本文件、图形文件和无格式的数据文件。ADO具有以下的优点：对于本地和远程的数据库访问都与具体的数据库无关，由于ADO是Microsoft开发的，所以它对Microsoft的Access和SQL Server的数据访问有着非常好的支持，因此如果是基于Access和SQL Server的数据库应用程序的开发，那么采用ADO是很好的选择。因为本系统是基于SQL2000数据库的设计，因此我们采用了ADO。

2.2学校学生管理信息系统数据库设计

由于考虑到本系统是应用在单机系统上，另外根据学校人员规模，我只建立起一个数据库，在此数据库基础上建立起如下两个基本表：

（1）学生基本信息表，包括的数据字段有：姓名，性别，年龄，专业，学号，班级，其中学号是主键。

（2）学生成绩表，包括的数据字段有：姓名，学号，高数，英语，数据结构，会计学，其中学号是主键。

2.3系统分析设计

模块是Microsoft SQL Server 2000中实现数据库复杂管理功能的有效工具，它由VisualBasic编制的过程和函数组成。为了清晰、全面的介绍学生信息管理系统的功能，以及各个功能模块间的关系，下图以结构图的形式给出了系统的功能，如图 2-1  所示

图 2-1

（1）用户登陆模块：输入用户名和密码，如果用户名和密码正确，进入主控制平台；否则提示用户明确的错误信息。  

（2）用户选择管理模块：该模块用户可以选择进入学生信息管理模块或学生成绩管理模块。

（3）学生信息管理模块：该模块录入、查询、修改、删除以及保存学生的基本信息，其中包括学号，姓名，年龄，性别，专业，班级等管理模块.

（4） 学生成绩管理模块：该模块录入、查询、修改和删除各门课程的成绩，其中包括学生学号，姓名，高数，英语，数据结构，会计学等成绩管理模块。

2.4对于学生信息的分析与处理

整个程序的运行重点是学生信息的添加，修改，删除下面给出核心代码及解析：

Private Sub cmdAdd_Click()

    Adodc1.Recordset.AddNew

    cmdAdd.Enabled = False

    cmdExit.Enabled = False

    cmdAlter.Enabled = False

End Sub

Private Sub cmdAlter_Click()               '修改学生信息

    If MsgBox("确定修改？", vbYesNo, "提示信息") = vbYes Then

      Text1.SetFocus

      Sendkey "{Home}+{End}"

    Else

      Exit Sub

    End If

End Sub

Private Sub cmdDelete_Click()              '删除学生信息

    cmdAdd.Enabled = False

    cmdExit.Enabled = False

    cmdSave.Enabled = False

    cmdAlter.Enabled = False

    If MsgBox("确认要删除此记录吗？", vbYesNo, "信息提示") = vbYes Then

       Adodc1.Recordset.Delete

       Beep

       MsgBox "记录已删除", , "信息提示"

    If Adodc1.Recordset.EOF Then

       Adodc1.Recordset.MoveFirst     '如果当前位置位于Recordset对象的最后一个纪录之后则光标返回第一个记录

       If Adodc1.Recordset.BOF Then  '如果当前记录位于Recordset对象的第一个记录之前则不能再删除

         cmdDelete.Enabled = False

       End If

    End If

    End If

    cmdSave.Enabled = True

    cmdAdd.Enabled = True

    cmdExit.Enabled = True

    cmdDelete.Enabled = True

    cmdAlter.Enabled = True

End Sub

Private Sub cmdSave_Click()

    If MsgBox("是否保存该记录？", vbYesNo, "信息提示") = vbNo Then  '若提示后选择否则不保存该记录

       Adodc1.Recordset.Delete

    Else                           '否则保存该记录

        Adodc1.Recordset.Save

        MsgBox "记录已保存", , "信息提示"

        cmdSave.Enabled = False

  

    End If

    cmdSave.Enabled = True

    cmdAdd.Enabled = True

    cmdExit.Enabled = True

    cmdDelete.Enabled = True

    cmdAlter.Enabled = True

End Sub

这段代码主要是学生信息的录入，删除，修改等重要的操作，是本程序的核心部分，

2.5程序具体运行结果与讨论

运行界面如下

图2-2 登陆界面

设置登录窗体为启动窗体，运行程序，出现如图 2-2 对话框，输入用户名、密码后进入系统，出现如图 2-3 界面。

图 2-3 用户选择管理界面

在该界面用户可以选择进入学生基本信息管理模块或学生成绩管理模块。如选择进入学生信息管理界面，会出现如图 2-4、图2-5所示界面

图 2-4

图 2-5 学生基本信息管理界面

在该界面用户可以对学生基本信息进行添加、删除、修改、查询等操作，如图 2-4、图2-5所示，学生基本信息包括姓名，年龄，性别，专业，班级等信息若是操作完成后，按退出键再次返回到用户选择管理界面 如图 2-6 所示

图2-6 用户选择管理界面

     点击进入学生成绩管理界面，出现如图 2-7 所示界面

图 2-7 学生成绩管理界面

   在该界面上用户可以进行学生各科成绩的添加、删除和查询，若用户操作完毕，按退出键返回到用户选择管理界面，再按退出键，则退出程序的运行。

第3章 课设总结和展望

本学生单科成绩管理系统是使用Visual Basic6.0 + Microsoft SQL Server 2000做为开发工具，基于C/S（客户端/服务器端）模式下的小型管理系统。其功能特点都是针对当前大学生教育教学特点，为了教师在平时的工作中提高效率而设计，界面便于操作。与当前的学生成绩管理系统相比针对性更强，便于移植修改。不足是功能上可以更加完善，安全性、保密性有待加强。

信息通讯技术在教育领域的快速发展,促进了教育思想、教育方法和教育手段的更新。可以说,传统教育正面临着革命性的变化。基于C/S 结构的学生信息管理系统使用方便,维护简单,不仅大大节省了人力资源,提高了工作效率,更有利于推动高校学生管理的“无纸化办公”进程,具有一定的推广前景使用价值。

附源代码

1          登录窗体代码

Private Sub Form_Load()

   Text1.Text = ""

   Text1.MaxLength = 13      '文本框最大输入长度设为13

   Text2.Text = ""

   Text2.MaxLength = 7        '文本框最大输入长度设为7

   Text2.PasswordChar = "*"     `输入用*显示

End Sub

Private Sub Text1_LostFocus()

   If Not IsNumeric(Text1.Text) Then

      MsgBox "账号必须为数字", , "警告"    '连续两个逗号（”,”），仅有”确定”按钮

      Text1.Text = ""

      Text1.SetFocus              '焦点重回Text1,继续

   End If

End Sub

Private Sub Command1_Click()

   If Text2.Text = "yangkai" And Text1.Text = "2011305010231" Then   '账号和密码

      MsgBox "正确!!"

      Form1.Hide         '登录进入选择管理界面

      Form4.Show

     Else

      Text1.Text = ""

      Text2.Text = ""

      MsgBox "密码错误,再输入!!"

   End If

End Sub

Private Sub Command2_Click()

   End

End Sub

2          用户选择窗体代码

Private Sub Command1_Click()

    Form4.Hide             '选择进入学生信息管理界面

    Form2.Show

End Sub

Private Sub Command2_Click()

    Form4.Hide            '选择进入学生成绩管理界面

    Form3.Show

End Sub

Private Sub Command3_Click()

    End

End Sub

3          学生基本信息管理代码

Private Sub Form_Load()

  Combo1.AddItem "男"

  Combo1.AddItem "女"

  Combo1.Text = ""

End Sub

Private Sub Command1_Click()

    Adodc1.Recordset.MovePrevious        '显示上一条记录

If Adodc1.Recordset.BOF Then

Adodc1.Recordset.MoveFirst            '如果当前记录位于Recordset对象的第一个记录之前则将光标移到第一条记录

    End If

End Sub

Private Sub Command2_Click()

    Adodc1.Recordset.MoveNext         '显示下一条记录

    If Adodc1.Recordset.EOF Then

       Adodc1.Recordset.MoveLast       ''如果当前位置位于Recordset对象的最后一个纪录之后则光标移到最后一个记录

    End If

End Sub

Private Sub Command3_Click()

    DataReport1.Show                   '显示数据报表1

End Sub

Private Sub cmdAdd_Click()

    Adodc1.Recordset.AddNew            '添加学生基本信息

    cmdAdd.Enabled = False

    cmdExit.Enabled = False

    cmdAlter.Enabled = False

End Sub

Private Sub cmdAlter_Click()

    If MsgBox("确定修改？", vbYesNo, "提示信息") = vbYes Then

      Text1.SetFocus

      Sendkeys "{Home}+{End}"

    Else

      Exit Sub

    End If

End Sub

Private Sub cmdDelete_Click()

    cmdAdd.Enabled = False

    cmdExit.Enabled = False

    cmdSave.Enabled = False

    cmdAlter.Enabled = False

    If MsgBox("确认要删除此记录吗？", vbYesNo, "信息提示") = vbYes Then

       Adodc1.Recordset.Delete

       Beep

       MsgBox "记录已删除", , "信息提示"

    If Adodc1.Recordset.EOF Then

       Adodc1.Recordset.MoveFirst     '如果当前位置位于Recordset对象的最后一个纪录之后则光标返回第一个记录

       If Adodc1.Recordset.BOF Then  '如果当前记录位于Recordset对象的第一个记录之前则不能再删除

         cmdDelete.Enabled = False

       End If

    End If

    End If

    cmdSave.Enabled = True

    cmdAdd.Enabled = True

    cmdExit.Enabled = True

    cmdDelete.Enabled = True

    cmdAlter.Enabled = True

End Sub

Private Sub cmdSave_Click()

    If MsgBox("是否保存该记录？", vbYesNo, "信息提示") = vbNo Then  '若提示后选择否则不保存该记录

       Adodc1.Recordset.Delete

    Else                           '否则保存该记录

        Adodc1.Recordset.Save

        MsgBox "记录已保存", , "信息提示"

        cmdSave.Enabled = False

  

    End If

    cmdSave.Enabled = True

    cmdAdd.Enabled = True

    cmdExit.Enabled = True

    cmdDelete.Enabled = True

    cmdAlter.Enabled = True

End Sub

Private Sub cmdExit_Click()

    Unload Form3

    Form4.Show

End Sub

4          学生成绩管理代码

Private Sub Command1_Click()

    Adodc1.Recordset.AddNew

End Sub

Private Sub Command2_Click()

If MsgBox("确认要删除此记录吗？", vbYesNo, "信息提示") = vbYes Then

   Adodc1.Recordset.Delete

  Beep

  MsgBox "记录已删除", , "信息提示"

  If Adodc1.Recordset.EOF Then

   Adodc1.Recordset.MoveFirst      '如果当前位置位于Recordset对象的最后一个纪录之后则光标返回第一个记录

    If Adodc1.Recordset.BOF Then  '如果当前记录位于Recordset对象的第一个记录之前则不能再使用删除按钮

         cmdDelete.Enabled = False

    End If

  End If

End If

End Sub

Private Sub Command3_Click()

 DataReport2.Show         '连接学生成绩管理数据表2

End Sub

Private Sub Command4_Click()

    Unload Form3           '返回到用户选择管理界面

    Form4.Show

End Sub