学生工作管理信息系统

1. 学生管理系统怎么做求解

学生工作管理系统，是辅助学校学生工作部门进行学生工作的得力助手，是以学生基本情况信息为主题，以高时效和高质量服务为准则的学校工作信息管理系统，既符合学校的实际情况又具有先进管理思想。
众所周知，在计算机未普及的时代，学生管理工作繁琐，主要包括：信息大，事务性强。现在又有相关的学籍管理系统、档案管理系统等各项工作，基本还得依靠手工劳动，有的采用传统的工作模式，例如：手工处理纸质材料或利用word、excel等办公软件，不仅费时而且费力，并且效果不佳，在使用上受到 了很大的限制，整个管理工作尚未建立起科学完善的自动化管理机制，随着近年来招生规模的不断扩大，这种管理压力也凸显出来。
因此，必须找到一种好的解决方案，能把工作人员从琐碎的事物中解放出来，使他们有时间收集与积累有用信息，做好各种事件的分析预测，则一定能够料事于前，达到防患于未然的目的。尤其在学生信息管理中，需要从大量的日常教学活动中提取相关信息，以反映教学情况。传统的手工操作方式，易发生数据丢失，统计错误，劳动强度高，且速度慢。使用计算机可以高速，快捷地完成以上工作。在计算机联网后，数据在网上传递，可以实现数据共享，避免重复劳动，规范教学管理行为，从而提高了管理效率和水平，此外，现今学生信息管理的繁索给具有强烈时间观念的行政人员带来了诸多不便，教学办公室缺少一种完善的学生信息管理软件，为了对学生档案，学生信息的管理方便，因此开发了本系统。

2. 学生信息管理系统的需求分析

1.1信息操作功能
（1）学生基本信息的添加、修改和删除。学生基本信息包括：学好（学号的前6位为班级号）、姓名、性别、出生日期和所在的专业。
（2）课程信息的添加、修改和删除。课程信息包括:课程号、所属专业、课程名称、课程类型（专修、选修、方向、通修、公修）、开课学期、学时数和学分。
（3）学生成绩信息的添加、修改和删除。学生成绩信息包括：学好、课程号、成绩和学分。
1.2.查询功能
可以通过学号来查学生基本信息，通过学号和学期号查询学生的成绩，通过课程号查询该课程的信息。
1.3.统计功能
统计当前信息所显示的信息数以及学生某个学期或所有学期课程的总学分。
1.4.分析功能
对某一个班级的某一门课程的成绩分布进行分析，并以直方图的形式显示出来。
1.5.打印功能
打印和预览当前显示的信息。

3. 学生信息管理系统论文

目 录

绪 论 2
第1章 学生管理系统的系统调查 3
1.1现状调查 3
1.2、学生信息管理工作调查 3
1.3、现行系统存在的主要问题 3
1.4、系统目标 4
1.5外部接口需求 4
1.6 性能需求 4
1.7软件属性需求 5
第2章 学生信息管理系统的可行性分析 6
2.1.技术可行性 6
2.2.经济可行 6
2.3.操作可行性： 6
2.4.运行可行性： 6
2.5.法律可行性： 6
第3章 怎样开发学生信息管理系统 7
3.1系统的软件配置： 7
3.1.1.操作系统的选择 7
3.1.2．编程软件的选择 7
3.1.3．数据库的选择 7
3.1.4．编程软件和数据库二者的结合 8
3.2硬件配置： 8
3.2.1客户端硬件的选择 9
3.2.2服务器端硬件选择 9
第4章 学生信息系统的设计 10
4.1.系统功能分析 10
4.2.系统功能模块设计 10
4.3.数据库设计 11
4.3.1数据库需求分析： 11
4.3.2数据项及数据结构 11
4.4.数据库结构设计 11
4.5.数据库逻辑结构设计 13
第5章 学生信息系统界面及其功能 16
5.1 运行环境 16
5.2 使用说明 16
第6章 结束语 21
6.1总结： 21
6.2致谢： 21
附录ⅰ 主要参考文献 22
附录ⅱ 学生信息系统窗体部分代码 23

4. 求“学生管理信息系统开发案例分析”

基于VB的学生信息管理系统的设计
摘要：本系统针对高校学生信息的特点以及管理中的弊端而设计，实现了学生信息管理的信息化、减轻了管理人员的工作负担，能
够规范、高效地管理大量的学生信息，该系统旨在更好地管理高校的教学和资源的整合，推动科技成果的转化，推进高校改革，提高
高校的办学效率。
关键词：信息管理；VB；系统
近几年来，随着各高校办公自动化工作的推进，学生信息管理自动化也被摆上了日程。在学校工作中占有很大比重的一项就是
每学期的学生信息管理工作。由于教工、教室和设备的相对紧张，如何进行合理地安排和分配，从而充分利用教学资源是我们不得
不面对的问题。而人工进行管理不仅任务重，效率低，而且易出错，难于维护，想要排出一张各方面都满意的信息管理表非常困难。
并且随着高校规模的扩大手工管理的难度和工作量呈几何级数增长。
学生信息管理系统正是为了减轻教务人员工作量，实现学校管理科学发展观自动化，解决管理难这一老大难题的教务办公软
件。本系统以中文版Visual Basic 6.0为前台开发工具，用Microsoft Access2000作为后台数据库。系统的操作对人员的素质的要求不
高，只需对他们稍加培训便能胜任。
本系统最大的优点就是学生的所有信息及全部操作完全可以通过各功能模块直接写入后台数据库，操作简单易行，使信息管
理流程能够在一个安全可视的环境下运行。
1学生信息管理系统的设计
学生信息管理系统的设计主要是为了更好的实现学校学生信息的系统化、规范化和自动化。其主要功能包括操作员权限设置、
便于信息管理、信息的查询、以及生成各种报表。其中查询包括姓名查询、学号查询、班级查询、性别查询、年龄、电话及住址查询、组
合查询、模糊查询等，查询可按建表输入的时间，进行统计人数和成绩等统计，查询其中的一种或多种方法。
1.1系统设计思想和特点
现状：学校管理工作对于学校的决策者和管理者来说至关重要。但一直以来人们使用传统人工的方式管理文件档案，这种管理方式
存在着许多缺点，如：效率低、保密性差。另外，时间一长，将产生大量的文件和数据，这对于查找、更新和维护都带来了不少的困难。
设计思想：《学生信息管理系统》采用面向对象的程序设计思想为基本的设计指导思想。本系统主要实施目标是帮助学校的学
生档案管理人员对学校学生信息进行管理。
本系统优点：检索迅速、查询方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生信息管理
的效率，也是学校的科学化、正规化管理的重要条件。
1.2系统目标和功能模块
本信息管理系统在追求完善的同时应达到以下目标：
1)界面友好、易于操作；
2)实现基本信息管理，包括操作员的注册及权限设置，所需基本信息的建立与设置等功能；
3)实现数据库管理，包括数据库的自动创建，备份与恢复；4)实现智能跟踪用户操作，智能容错处理，数据统计与分析等功能；
5)真正意义上实现该高校从原始的手工阶段走向了方便快捷的计算机实现阶段。
功能模块如图1所示。
运行主窗体如图2。
2.3登录模块设计
登录界面是进入系统的大门，是对管理员身份的验证，只有输入
了正确的名称和密码，才有权进入系统。因为系统有许多管理员，他
们拥有不同的权限，当有不同的用户登录到系统中时，系统便会根据
数据库中记载的内容而赋予其不同的权限
关键代码如下：
Dim a As String
Dim b As String
Dim str As String
Dim strr As String
str=InStr(Text2.Text,"'")
If str<>0 Then
MsgBox"不能输入非法字符！！",vbCritical+vbOKOnly,"错误"
Exit Sub
Else
strr=InStr(Text1.Text,"'")
If strr<>0 Then
MsgBox"不能输入非法字符！！",vbCritical+vbOKOnly,"错误"
Exit Sub
End If
End If
a=Trim(Text1)
b=Trim(Text2)
If a=""Then
MsgBox"用户名不能为空!",vbCritical,"错误"
Text1.SetFocus
Text1.SelStart=0
Text1.SelLength=Len(Text1)
Else
Dim r As New ADODB.Recordset
Set r=DataEnvironment1.rsuser
Dim c As String
Static nTryCount As Integer
c="select*from用户登陆where用户名='"&a&"'"
If r.State=adStateOpen Then r.Close
r.Open c
If r.EOF Then
MsgBox"无此用户!请重新登陆!!",vbCritical,"错误"
Text1.SetFocus
Text1.SelStart=0
Text1.SelLength=Len(Text1)
nTryCount=nTryCount+1
If nTryCount>=5 Then
MsgBox"您无权操作本系统！",vbCritical,"错误"
Unload Me
End If
Else
If b=Trim(r.Fields(1))Then
quanxian=Trim(r.Fields(2))
MDIForm1.Show
Unload Me
Else
MsgBox"密码错误!请重新登陆!!",vbCritical,"错误"
Text2.SetFocus
Text2.SelStart=0
Text2.SelLength=Len(Text2)
nTryCount=nTryCount+1
If nTryCount>=5 Then
MsgBox"您无权操作本系统！",vbCritical,"错误"
Unload Me
End If
End If
End If
End If
图End Sub
2.4信息管理和信息查询模块设计
信息管理和信息查询分别如图3。
关键代码如下：
On Error Resume Next
Dim str As String
Dim strr As String
Select Case Command2.Caption
Case"启用组合查找"
Select Case Combo1.Text
Case"学号"
str=InStr(Text9.Text,"'")
If str<>0 Then
MsgBox"不能输入非法字符！！",vbCritical+vbOKOnly,"错误"
Exit Sub
Else
strr=InStr(Text10.Text,"'")
If strr<>0 Then
MsgBox"不能输入非法字符！！",vbCritical+vbOKOnly,"错误"
Exit Sub
End If
End If
TYCZ
Case"姓名"
str=InStr(Text9.Text,"'")
If str<>0 Then
MsgBox"不能输入非法字符！！",vbCritical+vbOKOnly,"错误"
Exit Sub
Else
strr=InStr(Text10.Text,"'")
If strr<>0 Then
MsgBox"不能输入非法字符！！",vbCritical+vbOKOnly,"错误"
Exit Sub
End If
End If
TYCZ
Case"年龄"
str=InStr(Text9.Text,"'")
If str<>0 Then
MsgBox"不能输入非法字符！！",vbCritical+vbOKOnly,"错误"
Exit Sub
Else
strr=InStr(Text10.Text,"'")
If strr<>0 Then
MsgBox"不能输入非法字符！！",vbCritical+vbOKOnly,"错误"
Exit Sub
End If
End If
TYCZ
Case"性别"
str=InStr(Text9.Text,"'")
If str<>0 Then
MsgBox"不能输入非法字符！！",vbCritical+vbOKOnly,"错误"
Exit Sub
Else
strr=InStr(Text10.Text,"'")
If strr<>0 Then
MsgBox"不能输入非法字符！！",vbCritical+vbOKOnly,"错误"
Exit Sub
End If
End If
SEX
Case"所属班级"
str=InStr(Text9.Text,"'")
If str<>0 Then
MsgBox"不能输入非法字符！！",vbCritical+vbOKOnly,"错误"
Exit Sub
Else
strr=InStr(Text10.Text,"'")
If strr<>0 ThenMsgBox"不能输入非法字符！！",vbCritical+vbOKOnly,"错误"
Exit Sub
End If
End If
TYCZ
Case"家庭地址"
str=InStr(Text9.Text,"'")
If str<>0 Then
MsgBox"不能输入非法字符！！",vbCritical+vbOKOnly,"错误"
Exit Sub
Else
strr=InStr(Text10.Text,"'")
If strr<>0 Then
MsgBox"不能输入非法字符！！",vbCritical+vbOKOnly,"错误"
Exit Sub
End If
End If
TYCZ
End Select
Case"关闭组合查找"
str=InStr(Text9.Text,"'")
If str<>0 Then
MsgBox"不能输入非法字符！！",vbCritical+vbOKOnly,"错误"
Exit Sub
Else
strr=InStr(Text10.Text,"'")
If strr<>0 Then
MsgBox"不能输入非法字符！！",vbCritical+vbOKOnly,"错误"
Exit Sub
End If
End If
If Combo1.Text="性别"Or Combo2.Text="性别"Then
Combination
Else
Combination_Faintness_nosex
End If
End Select
Public Sub TYCZ()
On Error Resume Next
Dim a As New ADODB.Recordset
Set a=DataEnvironment1.rsstudent
Dim b As String
If Trim(Combo3.Text)<>"模糊"Then
b="select*from学生信息表where"&Trim(Combo1.Text)&""&Trim(Combo3.Text)&"'"&Trim(Text9.Text)&"'"
If a.State=adStateOpen Then a.Close
a.Open b
dgre
Else
b="select*from学生信息表where"&Trim(Combo1.Text)&"like'%"&Trim(Text9.Text)&"%'"
If a.State=adStateOpen Then a.Close
a.Open b
dgre
End If
End Sub
Public Sub dgre()
DataGrid1.DataMember=""
DataGrid1.Refresh
DataEnvironment1.rsstudent.Requery
DataGrid1.DataMember="Student"
DataGrid1.Refresh
End Sub
3结束语
本系统达到了预期的要求，系统设计是根据学校的学生信息管理流程，合理设置各种操作模块，各管理员和操作员之间分工明
确，并且能够及时、准确地记录每次操作信息。操作简单易行，定期审核，确保了数据的正确性。从根本上解决了学生管理的计算机
实现方式，对学校管理来讲是一个大的跨越。