基于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结束语
本系统达到了预期的要求，系统设计是根据学校的学生信息管理流程，合理设置各种操作模块，各管理员和操作员之间分工明
确，并且能够及时、准确地记录每次操作信息。操作简单易行，定期审核，确保了数据的正确性。从根本上解决了学生管理的计算机
实现方式，对学校管理来讲是一个大的跨越。