学生信息管理系统(完整)

学生信息管理系统（总体设计）

1、管理系统功能模块设计

本系统需要完成的功能主要有：

（1）、输入学生基本信息、所在班级、所学课程和成绩等。

（2）、学生信息的查询，包括查询学生基本信息、所在班级、已学课程和成绩等。

（3）、学生信息的修改。

（4）、班级信息的输入，包括输入班级设置、年级信息等。

（5）、班级信息的查询。

（6）、班级信息的修改。

（7）、班级课程信息的输入。

（8）、班级课程信息的修改。

（9）、学生课程添加和修改。

（10）、学生成绩信息的输入。

（11）、学生成绩信息的修改。

（12）、学生成绩信息的查询。

（13）、学生成绩信息的统计。

2、功能模块设计：

3、数据库设计：

（1）学生基本信息：student Info

（2）班级基本信息:class Info

（3）课程基本信息：course Info

（4）学生成绩信息：result Info

学生信息管理系统（需求分析）1. 系统开发背景分析系统的功能取决开用户的需求。随着科技进步和信息时代的到来，教育的普及程度起来起高，学校的人数也在迅速的增长，怎样的管理好成千上万的学生，已经成为一个学校的管理者必须面对的问题。编写本报告的目的就是用最少的代价，尽可能短的时间内确定问题是否能够解决，通过对学校的一些管理软件的调研分析，发现了一些不足，所以拟做此系统，使学生信息的管理更加准确, 安全和快捷。

在本次试验中包括的模块有学生信息管理、课程信息管理、成绩信息管理和班级信息管理等几项，各项管理工作涉及到的内容用下面的关系模式表示。

a）学生（学号，姓名，性别，年龄，班级，电话，备注，出生日期，入学时间，班级编号，家庭地址）

b）课程（课程编号，课程名称，课程类别，学分，学时）

c）班级（系，班级号，指导老师）

2. 系统分析

1.抽象出当前系统的逻辑模型

画出反映当前系统工作的数据流程图。数据流程图是逻辑模型的图形表示，即使不是专业的计算机技术人员也能非常容易理解，它是一种很好的系统构造的表示方法。画数据流程图是应该从已获得的人工处理流程中去掉物理因素，只保留数据、信息处理部分。

2．系统功能分析系统主要用于学校学生信息管理，主要任务是用计算机对学

生各种信息进行日常管理，如：查询、修改、增加、删除。

3.系统目标设计根据本校的实际情况，利用校园网而设计一套针对性和功能

都比较强的学生信息管理系统，对学生信息管理系统进行科学的分类、录入、查询．

4.开发设计思想尽量采用学校现有的软硬件环境及先进的管理系统开发方

案，从而达到充分利用资源，提高系统开发的水平和应用效果的目的。系统应该符合学校学生信息管理的规定，满足学校学生日常管理的需要，达到操作过程中的直观、方便、实用、安全等要求。强调多部门合作，学生工作设计面广泛，应该考虑各部门各层次的需求，便于维护。要建立可靠的数据备份。通过对数据流程图的进一步分析, 得出学生信息管理系统应该具备以下功能:

1、实现学生基本信息的登记

2、实现数据的浏览与修改

3、实现查询符合一定条件的资料

4、实现学生有关数据的统计分析5.E-R 图

6．数据流程图

注册报到

→(专业设置〔√j¾⅞m⅞ζ→(J±≡iλΓ

r

>ζ^⅛⅞⅜λ

修改

修修侈

7. 数据字典

名字：用户基本信息

别名：描述：反映出用户的用户名和密码定义：用户基本信息=用户名+密码位置：界面登录系统

学生信息管理系统（实现、调试、运行）

编码

1、登录模块代码：

Option Explicit

Private Sub cmd3_Click()

Dim cn As ADODB.Connection

Dim rs As ADODB.Recordset

Dim str_cn As String ' 访问sql server 的连接字符串

Dim str_sql As String

str_cn = "driver={sql server};server=.;uid=sa;pwd=;database=student" Set cn = New ADODB.Connection

cn.CursorLocation = adUseClient

cn.Open str_cn ' 连接sql server

str_sql = "select * from user_info where user_name='" & Text1.Text & "' and

user_code='" & Text2.Text & "'"

Set rs = New ADODB.Recordset

rs.Open str_sql, cn, adOpenDynamic, adLockOptimistic

If Len(Text1.Text) = 0 Then

MsgBox " 请输入用户名！", 64, " 提示"

Text1.SetFocus

ElseIf Len(Text2.Text) = 0 Then

MsgBox " 请输入密码！", 64, " 提示"

Text2.SetFocus

Else

If rs.RecordCount = 0 Then

i = MsgBox(" 不存在该用户，是否立即注册？", 4 + 32, " If i = 6

提示"）Then

Unload Me

Form3.Show

Else mdlTextBox.Blank Me Text2.SetFocus

End If

Else

' Unload Me

Form1.Hide Form4.Show

End If

End If

End Sub

Private Sub Form_Load() mdlTextBox.Centen Me ' 使窗体居中End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label5.ForeColor = vbBlack

Label5.FontUnderline = False

Label6.ForeColor = vbBlack

Label6.FontUnderline = False

End Sub

Private Sub Label5_Click()

Unload Me

Form3.Show

End Sub

Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)