学生管理信息系统.docx

1、学生管理信息系统 华科学院计算机科学与技术系计算机专业 软件工程课程设计报告 （2010/2011学年 第一学期）学生姓名： 强海荣学生班级： 计算机072202H学生学号： 200722030217指导教师： 赵旭俊 2010年12月27日 第一章 系统概述1.1 系统开发的背景随着学校规模的不断扩大，专业、班级、学生的数量急剧增加，有关学生各门课程的成绩的各种信息量也成倍增长，而目前许多高校的学生信息管理仍停留在复杂的人工操作上，重复工作较多，工作量大，效率低，因此，迫切需要开发学生管理信息系统来提高管理工作的效率。1.2 系统开发的意义学生管理信息系统，在学生信息的规范管理、科学统计和快

2、速查询方面具有较大的实用意义。它提高了信息的开放性，大大地改善了学生、教师对其最新信息查询的准确性。为了能够学以致用，通过对学生管理信息系统的简单开发，不仅可以巩固书本上所学知识，从而能够对所学内容加以深化，拓宽自己的知识面。通过学习与实践相结合，提高自己的编程能力，为今后的毕业设计和以后的软件开发奠定了基础。1.3 系统开发的目标学生管理信息系统是面向教育部门的学生管理系统，包括学生基本信息管理，学生成绩管理等工作，是利用计算机进行集中管理而开发的系统。该系统是以Visual Basic 6.0为开发环境，以SQL 2000为后台数据库进行开发的管理系统，力求与实际相结合具有查询、管理等功能

3、，使教育的管理趋于计算机化，使之更加方便、快捷以提高工作效率。根据学生管理的需求和特点，该系统实施后，应达到以下目标：1. 灵活地运用表格输入数据，使信息传递更快捷；2. 系统采用人机对话方式，界面美观友好、数据存储安全可靠；3. 键盘操作，快速响应；4. 实现各种信息的添加、删除、修改、查询等；5. 系统运行稳定、安全可靠。第二章 系统需求分析2.1 综合要求2.1.1 功能要求在学生管理信息系统中，主要有用户登陆、学生信息管理、班级信息管理、学生成绩管理、课程信息管理、用户信息管理等功能。1. 用户登陆管理员登陆，普通用户对信息的查询登陆，管理员和普通用户必须在登陆页面输入用户名及密码，只

4、有验证通过方可进入其它操作。2. 学生信息管理包括4个功能模块：学生信息添加、学生信息修改、学生信息删除和学生信息查询。3. 班级信息管理包括4个功能模块：班级信息添加、班级信息修改、班级信息删除和班级信息查询。4. 学生成绩管理包括4个功能模块：学生成绩添加、学生成绩修改、学生成绩删除和学生成绩查询。5. 课程信息管理包括4个功能模块：课程信息添加、课程信息修改、课程信息删除和课程信息查询。6. 用户信息管理包括2个功能模块：用户信息添加和用户密码修改。2.1.2 性能需求要求该系统易操作、可维护、具有开放性，时刻保持数据的有效性与安全性，并且只有管理员才能对数据进行修改。开发环境：Visu

5、al Basic 6.0.数据库：SQL Server2000.操作系统：Windows XP.2.2 数据流图分析学生管理信息系统的数据来源和去向，绘制出数据流图的顶层数据流图，如图2-1所示。图2-1 学生管理信息系统的顶层数据流图按自顶向下、逐层分解的方法对顶层数据流图进一步细化，绘制出0层数据流图，如图2.2所示。图2.2 学生管理信息系统的0层数据流图2.3 数据字典该学生信息管理系统的数据字典如下：（1）、数据名称：学生信息数据流数据字典数据名： 录入学生的基本信息来源： 管理员数据结构：学号+姓名+性别+出生日期+班级编号+入学时间+住址+备注简要说明：该学生信息管理系统的主要结

6、构，定义了一个学生的基本信息 数据项数据字典数据名： 学号存储处： 学生信息表数据元素：类型：字符型 长度：50 含义：学生的唯一标识简要说明：在学生信息表中可以唯一的标识每一位学生数据名： 入学时间存储处： 学生信息表数据元素：类型：datetime 长度：8 含义：学生的入学时间信息简要说明：记录每一位学生的入学时间 数据加工数据字典项目名： 添加学生信息输入： 学生信息输出：简要说明：可以添加学生信息项目名： 修改学生信息输入： 学生信息（2）、数据名称：班级信息数据流数据字典数据名： 录入班级的基本信息来源： 管理员数据结构：班级编号+班级名称+辅导员+系名称+班主任简要说明：该学生信

7、息管理系统的主要结构之一，定义了一个班级的基本信息 数据项数据字典数据名： 班级编号存储处： 班级信息表数据元素：类型：字符型 长度：50 含义：班级的唯一标识简要说明：在班级信息表中可以唯一的标识每一门课程数据名： 班主任存储处： 班级信息表数据元素：类型：字符 长度：50 含义：该课程的负责人简要说明：记录每一个班级的班主任 数据加工数据字典项目名： 添加班级信息输入： 班级信息输出：简要说明：可以添加班级信息项目名： 修改班级信息输入： 班级信息输出：简要说明：可以修改错误的班级信息（3）、数据名称：学生成绩信息数据流数据字典数据名： 录入学生成绩信息来源： 管理员数据结构：学号+课程编

8、号+成绩简要说明：该学生信息管理系统的主要结构之一 数据项数据字典数据名： 学号存储处： 成绩信息表数据元素：类型：字符型 长度：50 含义：学生的唯一标识简要说明：在成绩信息表中可以唯一的标识每一位学生数据名： 成绩存储处： 成绩信息表数据元素：类型：numeric 长度：9 含义：学生的成绩信息简要说明：记录每一位学生的成绩信息 数据加工数据字典项目名： 添加成绩信息输入： 成绩信息输出：简要说明：可以添加成绩信息项目名： 查询成绩信息输入： 输出： 成绩信息简要说明：可以查询每一位学生的成绩信息（4）、数据名称：课程信息表数据流数据字典数据名： 录入课程的基本信息来源： 管理员数据结构：

9、课程编号+课程名称+课程类型+开课时间+学时+学分简要说明：该学生信息管理系统的主要结构之一 数据项数据字典数据名： 课程编号存储处： 课程信息表数据元素：类型：字符型 长度：50 含义：课程的唯一标识简要说明：在课程信息表中可以唯一的标识每一门课程数据名： 开课时间存储处： 课程信息表数据元素：类型：datetime 长度：8 含义：学生的开课时间信息简要说明：记录每一门的课程的开课时间 数据加工数据字典项目名： 添加课程信息输入： 课程信息输出：简要说明：可以添加课程信息项目名： 修改课程信息输入： 课程信息输出：简要说明：可以修改错误的课程信息2.4 系统E-R图绘制学生管理信息系统的E

10、-R图，如图2-3所示。图2.3学生管理信息系统的E-R图图2.4 学生实体图图2.5 班级实体图 图2.6课程实体图图2.7 成绩实体图第三章 系统概要设计3.1 合理方案设计在需求分析的基础上，寻找实现学生管理信息系统的各种不同的方案，并选取若干个合理方案，经分析比较，从中选出一个最佳方案。本方案是在Visual Basic 6.0、SQL Server2000的环境下，实现对学生管理信息系统的用户登陆、学生信息管理、班级信息管理、学生成绩管理、课程信息管理、用户信息管理等功能。3.2 系统功能模块设计学生管理信息系统功能包括可视化窗口，对各种信息的添加、修改、删除和查询等具体功能如图3-

11、1所示。图3.1 学生管理信息系统功能模块3.3数据库设计在需求分析阶段所确定的学生管理信息系统数据需求的基础上，进一步设计数据库。1. 系统用户数据表（用户信息表）记录系统所有用户名和密码信息，表中的各个字段以及各个字段的说明如表3-1所示：表3-1 用户信息表结构列 名数据类型长 度说 明用户名varchar50允许空密码varchar50允许空用户类型char10允许空2. 学生信息表记录学生学号、姓名等基本信息，表中的各个字段以及各个字段的说明如表3-2所示：表3-2 学生信息表结构列 名数据类型长 度说 明学号varchar50主 键姓名varchar50允许空性别varchar10

12、允许空出生日期datetime8允许空班级编号varchar50允许空电话号码varchar50允许空入学时间datetime8允许空住址varchar100允许空备注varchar200允许空3. 班级信息表记录班级编号、班级名称及相关的信息，表中各个字段以及各个字段的说明如表3-3所示：列 名数据类型长 度说 明班级编号varchar50主 键班级名称varchar50允许空辅导员varchar50允许空系名称varchar50允许空班主任varchar50允许空表3-3 班级信息表结构 4. 课程信息表记录课程编号、课程名称等相关信息，表中各个字段以及各个字段的说明如表3-4所示：列 名

13、数据类型长 度说 明课程编号varchar50主 键课程名称varchar50允许空课程类型varchar50允许空开课时间carhar10允许空课时int4允许空学分int4允许空表3-4 课程信息表结构5. 学生成绩表记录学生学号、课程编号及相关的成绩，表中各个字段以及各个字段的说明如表3-5所示：表3-5 学生成绩表结构列 名数据类型长 度说 明学号varchar50主 键课程编号varchar50主 键成绩numeric9允许空 第四章 系统详细设计4.1 数据库及表创建启动SQL2000 Server，右击“数据库”点击“新建数据库”，在弹出的“数据库属性”对话框中可键入数据库名及其

14、它信息，如图4-1所示：图4.1 新建数据库4.1.1 新建表数据库创建完毕后，点击可打开。右击“表”选择“新建表”，可以进行表的创建以及进行相关的表属性设置。1. 用户信息表如图4-2所示：图4.2 新建用户信息表2. 学生信息表如图4-3所示：图4.3 新建学生信息表3. 班级信息表如图4-4所示：图4.4 新建班级信息表4. 课程信息表如图4-5所示：图4.5 新建课程信息表5. 学成成绩表如图4-6所示：图4.6 新建学生成绩表4.1.2 设计表创建完表后右击对应表名“打开表”“返回所有行”，可对表进行添加、修改、插入、删除等相应编辑操作。1. 设计用户信息表如图4-7所示：图4.7

15、设计用户信息表2. 设计学生信息表如图4-8所示：图4.8 设计学生信息表3. 设计班级信息表如图4-9所示： 图4.9 设计班级信息表4. 设计课程信息表如图4-10所示：图4.10 设计课程信息表5. 设计学生成绩表如图4-11所示：图4.11 设计学生成绩表4.2 结构程序设计4.2.1 添加信息程序流程图绘制添加信息流程图，如图4-12所示。图4.12 添加信息4.2.2 修改信息程序流程图绘制修改信息流程图如图4-13所示。图4.13 修改信息4.2.3 删除信息程序流程图绘制删除信息流程图如图4-14所示。图4.14 删除信息4.2.4 查询信息程序流程图绘制查询信息流程图如图4-

16、15所示图4.15 查询信息4.2.5 系统程序流程图采用自顶向下、逐步求精的程序设计方法，使用顺序、选择和循环这3种基本控制结构进行连接，并且每个代码块只有一个入口和出口。4.3 人机界面设计认真处理好系统响应时间、用户帮助设施、出错信息处理和命令交互这4个问题。先创建设计模型，接下来用原型实现这个设计模型并由用户调试和评估原型，然后根据用户意见修改原型。1. 系统响应时间：稳定在1秒。2. 用户帮助设施：选择附加的帮助设施。3. 出错信息处理：1）当输入用户名不存在时，给出提示；2）当输入密码不正确时，给出提示；3）当查询信息不存在时，给出提示；4）其他出错提示。4. 命令交互：用户既可以

17、从菜单中选择软件功能，也可以通过键盘命令序列调用软件功能。第五章 系统编码与实现5.1 创建工程项目图5.1 VB 6.0界面1. 启动VB 6.0，出现VB 6.0运行界面，如图5-1所示：2. 点击“文件”“保存工程”保存当前工程文件。5.2 工程主窗体在VB程序设计中，主界面负责应用程序的主界面，由它调用其它模块。因此，主界面应该具有操作性好、界面清晰、使用户能够很方便地找到所需功能的特点。本系统的主界面部在相应的系统菜单组成，用户只需要点击相应的菜单使可调出对应的系统模块。工程主窗体如图5-2 所示。图5.2 工程主窗体5.3 用户登陆窗体本模块用于用户登陆窗体主要由文本框及命令按钮组

18、成，利用ADODC控件及DataGrid控件实现程序代码与SQL数据的连接（如图5-3所示）。图5.3 用户登陆窗体对应代码如下：Option ExplicitPrivate Sub Command1_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim cn_str As StringDim rs_str As Stringcn_str = driver=sql server;server=.;uid=sa;pwd=;database=XSXXcn.Open cn_strrs_str = select *

19、from mima where name= & Trim(Text1.Text) & rs.Open rs_str, cn, adOpenKeyset, adLockOptimisticIf Text1.Text And Text2.Text Then If rs.RecordCount 0 Then If Text2.Text = Trim(rs.Fields(code) Then MsgBox 成功登录！, 64, 提示 MDIfrm_main.Show Unload Me Me.Hide Else MsgBox 输入的密码不对，请重新输入！, 64, 提示 Text2.SetFocus

20、Text2.SelStart = 0 Text2.SelLength = Len(Text2.Text) End If Else MsgBox 没有该操作员！, 64, 提示 End IfElse If Text1.Text = And Text2.Text Then MsgBox 请输入操作员!, 64, 提示 Text1.SetFocus ElseIf Text1.Text And Text2.Text = Then MsgBox 请输入密码！, 64, 提示 Text2.SetFocus ElseIf Text1.Text = And Text2.Text = Then MsgBox 请

21、输入操作员和密码！, 64, 提示 Text1.SetFocus End IfEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Text1.Text = Text2.Text = Me.Icon = LoadPicture()Label5.Caption = Year(Date)End SubPrivate Sub Text1_Change()End Sub5.4 学生信息窗体本窗体通过ADODC控件连接数据库的学生表，可以实现对学生信息的添加、修改删除和查询。5.4.1 学生信息添加

22、窗体学生信息的添加窗体，如图5-4所示。图5.4 学生信息添加窗体对应代码如下：Option ExplicitDim s, y, i, jDim rs As New ADODB.RecordsetPrivate Sub Form_Load()MS1.Rows = 2MS1.Cols = 10y = Array(序号, 学号(*), 姓名, 性别, 出生日期, 班级编号, 电话号码, 入学时间, 住址, 备注)For i = 0 To MS1.Cols - 1 MS1.TextMatrix(0, i) = y(i) MS1.FixedAlignment(i) = 4 MS1.ColAlignme

23、nt(i) = 4NextMS1.FixedRows = 1: MS1.FixedCols = 1MS1.TextMatrix(1, 0) = 1MS1.ColWidth(0) = 450Toolbar1.Buttons(8).Enabled = FalseToolbar1.Buttons(10).Enabled = FalseMS1.Enabled = FalseText1.Text = End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)Unload MeMDIfrm_main.Pictu

24、re1.Visible = TrueEnd SubPrivate Sub Form_Resize()MS1.Width = Me.Width - 200MS1.Height = Me.HeightFor i = 1 To MS1.Cols - 1 MS1.ColWidth(i) = MS1.Width / 9.3NextEnd SubPrivate Sub MS1_Click()If MS1.Row = 1 And MS1.TextMatrix(MS1.Row - 1, MS1.Cols - 1) Then Text1.Visible = True Text1.SetFocusEnd IfEn

25、d SubPrivate Sub MS1_EnterCell()Module1.entercell MS1, Text1End SubPrivate Sub MS1_RowColChange()For i = 1 To MS1.Rows - 1 MS1.TextMatrix(i, 0) = iNextEnd SubPrivate Sub Text1_Change()MS1.Text = Text1.TextEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyUp Then

26、 Module1.moveup MS1, Text1End IfIf KeyCode = vbKeyRight Or KeyCode = vbKeyReturn Then Module1.moveright MS1, Text1End IfIf KeyCode = vbKeyDown Then Module1.movedown MS1, Text1End IfIf KeyCode = vbKeyLeft Then Module1.moveleft MS1, Text1End IfEnd SubPrivate Sub MS1_Scroll()Text1.Width = MS1.CellWidth

27、: Text1.Height = MS1.CellHeightText1.Left = MS1.Left + MS1.CellLeft: Text1.Top = MS1.CellTop + MS1.TopEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.Key Case add Toolbar1.Buttons(8).Enabled = True Toolbar1.Buttons(10).Enabled = True Text1.Visible = True

28、: Text1.Text = MS1.Enabled = True Text1.SetFocus Text1.Width = MS1.CellWidth: Text1.Height = MS1.CellHeight Text1.Left = MS1.CellLeft + MS1.Left: Text1.Top = MS1.CellTop + MS1.Top Case save For i = 1 To MS1.Rows - 1 If MS1.TextMatrix(i, 1) Then rs.Open select * from student_info, cnn, adOpenKeyset, adLockOptimistic rs.AddNew For j = 1 To MS1.Cols - 1 If MS1.TextMatrix(i, j) Then rs.Fields(j - 1) = Trim(MS1.TextMatrix(i, j) Next j rs.Update rs.Close End If Next MsgBox 添加成功！, 64, 提示 For i = 1 To MS1.Rows - 1 For j = 1 To MS1.Cols - 1 MS1.