目录
摘要 (1)
Summary (2)
1．引言 (3)
2．学生信息管理系统需求分析 (4)
2.1 功能需求 (4)
2.2 性能需求 (4)
3．总体设计 (5)
3.1系统层次模块图 (5)
3.2 模块定义 (6)
3.3数据库设计与数据结构描述 (7)
3.4 数据字典 (7)
3.5系统流程图 (8)
3.6数据流图 (9)
3.7学生信息管理系统的活动图 (10)
3.8学生信息管理系统的事件跟踪图
------以查询为例 (10)
4．详细设计 (10)
4.1 主界面的设计 (11)
4.2登陆模块（Login窗体的建立） (12)
4.3注册模块设计（Register窗体的建立） (13)
4.4 权限管理模块设计（Manage窗体的建立） (14)
4.5查询模块的设计（frmSearch 窗体的建立） (15)
小结 (16)
致谢 (16)
附录 (17)
附录1 数据库表格 (18)
附录2 系统源代码 (19)
学生信息管理系统分析与设计
周仲实
（重庆三峡学院数学与计算机科学学院信息与计算科学专业2001级重庆万洲404000）
摘要：学生信息管理系统是学校管理系统的主要构件之一，在某种程度上体现了一个学校的教学现代化水平，系统的先进性将引领学校教学质量向前飞速发展。传统的学生管理系统大多由人工操作，不仅效率低，且可靠性不高。本系统采用计算机程序实现，基本流程按照原系统进行，系统的强大功能主要体现在对学生基本信息的查找和学生考试成绩的查询。
本学生信息管理系统是建立在Microsoft Access 2000基础上的应用系统，用Visual Basic 语言编写。详尽讨论了系统相关数据库文件的建立，登陆界面的设计，身份权限的识别，查找的过程设计，修改的过程设计等，并将源程序写在附页中。
关键词：信息管理系统、Microsoft Access 2000、B/S模式、系统检索
Student the information management system
analysis and design
Zhou zhong shi
(Grade 2001, Information and Computing Science, College of Mathematics and Computer Science, Chongqing Three Gorges University, Wanzhou, Chongqing 404000 )
Summary: Student the information management system is one of the main pieces of the
school management system, body on a certain degree now a teaching of school modernization level, the forerunner of the system will guide the teaching quantity of the school to fly forward to develop soon.Traditional student the management system is operate by the artificial mostly, not only the efficiency is low, and the credibility is not high.This system adoption calculator procedure realization, the basic process carries on according to the original system, the main body of the strong function of the system checks to seek to the basic information of student to examine the search of result with student now.
This student the information management system is an applied system in 2000 foundations of the Microsoft Access of establishment, using the Visual Basic language the plait write. Discussed the system establishment of the related database document in details, the design of the debarkation interface, a legal power of body identify, checking the process design for seek, the process design of the modification etc., and write the source procedure in attach page.
Keyword:The information management system, the Microsoft Access 2000, mode of B/ S, the system index
1．引言：教育是科学之本，随着我国九年义务教育的普及和当前全球范围的知识经济的突飞猛进，一套高质量高效率的学生信息管理系统更是必不可少，当前不仅
是我国还是海外其他国家，均把学校教育放在战略地位，投入巨大的人力物力研制
各种教育模式，其中，学生信息管理系统的开发是首当其冲。一套好的管理系统是
良好学习环境的组织者。由于信息系统数据量大，传统的人工操作不仅效率低，准
确性不高，而且其完整性，保密性均得不到保证。管理信息系统，即MIS（management information system）,是一个利用计算机软硬件资源以及数据库的人机系统。本学生
信息管理系统是建立在Microsoft Access 2000基础上的应用系统，用Visual Basic 语
言编写，此信息管理系统可以单机操作，也可在局域网中联机操作，可以实现学生
信息的高效查询，修改，删除等操作，比以前使用卡片的方法有很大的进步，使学
生信息关系系统化，规范化和自动化。
2.学生管理系统需求分析
2.1功能需求
对于本系统，我们需要实现以下一些基本功能：
（1）登录权限管理：设置不同的管理权限，分为一般用户和管理级用户。
（2）数据库的链接：构造数据库基本表，以供管理系统调用，如本系统主要构造3个
表：StudentTable, 、UserTable 、ScoreTable。
（3）实现基本查询，修改，删除等操作：其中，面向一般用户的只有浏览查询功能，管理级用户拥有所有权限，可进行新增，删除，修改，同时也可查询浏览。本系统还设置的多种匹配查询路径。
2.2性能需求
系统的运行对运行环境有如下要求：
1．硬件环境
●处理器：Inter Pentium 166 MX 或更高
●内存：32MB
●硬盘空间：1GB
●显卡：SVGA显示适配器
2．软件环境
●操作系统：Windows 98/ME/2000/XP
●数据库：Microsoft Access 2000
3．总体设计
3.1系统层次模块图
“学生信息管理系统可分为七个模块：用户登陆模块、注册模块、权限管理模块、查询模块、添加模块、修改模块、删除模块。如下图所示。
3.2 模块定义
（1）用户登陆模块：填写用户名称，密码，进入主控制平台。
（2）注册模块：新用户注册。
（3）权限管理模块：增加新的操作人员，赋予权限，同时可以编辑和删除已有的操作人员。
（4）查询模块：可查看浏览学生基本信息，成绩册，提供多种匹配查询方式。
（5）添加模块：检测原数据表是否已有新增数据项，没有则添加，有则返回。
（6）修改模块：系统管理员利用其权限对数据表进行修改，更新以保持数据库完整性。（7）删除模块：检测原数据表中是否有待删项，有则删除，无则返回。
3.3数据库设计与数据结构描述
根据系统功能设计的要求以及功能模块的划分，对于系统用户信息，学生成绩表,学生基本信息表，可以作出以下E-R 图，并列出以下数据项和数据结构：
相关机构
成绩表E-R 图 基本信息表E-R 图
用户信息表E-R 图
3.4 数据字典
（1） 名称：学生基本信息表。
表名称标识：StudentTable 。
学生基本信息
数据项名：学生学号
说明：标志每个学生
类型：char (8)
长度：8
别名：无
取值范围：0000001- 9999999
（2）名称：学生成绩册
表名称标识：ScoreTable
数据来源：权限管理模块进行录入（教务处）学生成绩表
数据项名：学生成绩
说明：是学生与课程的关系
类型：char( 8 )
别名：无
数据描述：语文
数学
英语
政治
物理
化学
（3）名称：用户信息表
表名称标识：UserTable
数据来源：权限管理模块录入（系统管理员）。
数据项名：用户名
说明：表明用户的身份，在系统内是唯一的
类型：Char(8)
别名：无
数据描述：由字母，数字或者“—”组成的字符串
数据项名：用户类型
别名：无
说明：在登陆用户的基础上进一步刻画其身份，不同的用户类型可赋予不同的操作权.
类型：Char(8)
数据描述：如：2 管理级用户查询，修改，删除等所有权限
1 普通用户查询
3.5系统流程图
（1）用户启动学生管理系统后，即进入登陆模块，提示输入用户名和密码。
（2）用户输入用户名和密码，系统自动查询数据库中用户信息表，如果用户名和密码（3）均正确，则登陆成功，进入主操作界面；如果用户名和密码错误，则系统提示重（4）新输入；如果用户信息表中无此用户的用户名，则此用户为新用户，系统提示新（5）用户注册，注册后自动更新数据库中用户信息表。
（6）用户在主操作界面进行操作请求。
（7）系统接受到请求，查询用户信息表验证用户操作权限。在这里，系统自动隐藏用。
（8）户不具有的服务项目。
（9）系统响应用户操作申请，链接数据库，并反馈操作结果
3.6 数据流图
输入：用户名、密码、操作请求
输出：查询结果、修改结果、删除结果、打印相关报表。
2.7学生管理系统的活动图
3.8 事件跟踪图（查询）
查询确认
验证权限
反馈给用户（显示）用户
学生信息管理系统数据库
4.详细设计
4.1主界面的设计（mdiFrm主窗体的建立）
用”选项卡中的“启动对象”设为“mdiFrm”，使mdiFrm成为启动窗体。在此程序中，mdiFrm是主窗体，所以要在mdiFrm上的菜单和工具栏中提供各个窗体间的切换。
界面设计好后，进行代码编写。当用户输入用户名和密码后，单击“确定”按钮，则程序要和数据库进行交互，查询用户是否存在。如果有，则允许用户进行下一步操作，即进入系统；如果没有这个用户，则请求用户注册为新用户。
要查询数据库中是否存在该用户，程序中使用IsExistUser函数来实现。IsExistUser函数在公共模块mdlVar中，它返回一个Boolean 值。如果返回值为True,则数据库存在该用户，反之不存在。
IsExistUser函数要和数据库链接。本程序使用DataEnviroument工具来访问数据库。Data Environment 中的con Library l连接对象，使用command 对象的Execute方法可以实现数据库的查询工作，但首先要设置command对象的Active Connection 属性和CommandText 属性。
Private Sub MDIForm_Load()
F_CurUser ID=0
g_bLogin=False
g_bAdmin=False
f_bstudent=False
mnuFileLog_click
End sub
4.2登陆模块（Login窗体的建立）
Login窗体实现了用户登陆到系统的功能。它的形式为，一个是填写“用户名”的文本框，一个是填写“密码”的文本框，然后是“确认”按钮和“取消”按钮。如下图其中管理员的用户名为admin，口令为1，均已在初始化时设定。
各主要控件属性如下表所示：
Public Function IsExistUser(stuUseName Asstring,strpwd As string)As Boolean Dim cmd As command
Dim rs As Recordset
Set cmd=New command …打开连接
If DataE.conLibrary.state=adstate closed Then
DataE.conLibrary.open
End If
Cmd .Active connection=DataE.conLibrary?注册
https://www.doczj.com/doc/cd6748546.html,mandText=”select * from Usertable where Username=?”&strUserName&”?”If strpwd<>” “ Then
…登陆
https://www.doczj.com/doc/cd6748546.html,mandText=https://www.doczj.com/doc/cd6748546.html,mandText+”and pwd=?”&strpwd&”?”
End If
…有无重复
set rs=cmd.Execute
If rs.Recordcount<> 0 then
IsExistUser=True
If g_bLogin Then
g_CurUserID=rs!userid
…为管理员
If rs!Usertype=Manager Then
g_bAdmin=True
End If
End If
IsExistUser=False
End If
End Function
单击“确定”按钮后，将激发以下程序：
private sub cmdok_click()
If txtUserName.Text=”“ Then
MsgBox”请填写用户名！”,vbokonly+vbInformation,”注意”
TxtUserName.setFocus
Exit sub
ElseIf txtpassword.Text=”“Then
MsgBox”请填写密码！”,vbokonly+vbInformation,”注意”
Txtpassword.setFocus
Exit sub
End If
…设置登陆变量
If IsExistUser (txtUserName,”“)=True Then
MsgBox”密码不正确！请重新登陆。”,vbokonly+vbInformation,”错误”
Else
MsgBox “无此用户！请先注册。”,vbokonly+vbInformation,”错误”
CmdTegister.setFocus
End If
End If
End sub
4.3注册模块设计（Register窗体的建立）
Register窗体实现了注册新用户的功能。用户在此界面中填写各种个人信息。如果用户注册的注册名已经存在，系统则要求用其他的用户名重新注册。在代码中不但要保存用户的信息，还要将信息存放UserTable表中，用SQL语言描述。
其中，对应于“用户名：“的控件的MaxLength属性要设为20，这样做是为了与数据库中的UserName 字段的长度匹配，否则当用户名的长度大于20时，会出现错误。检测用户名输入的具体代码如下：
If txtPassword.Text<>txtPwAgain.Text Then
MsgBox “两次密码不相同，请重新填写！”,vbOKOnly+vbInformation,”注意”
TxtPassword.Text=””
TxtPwAgain.Text=””
TxtPassword.SetFocus
Exit sub
End If
On Error GoTo exit1
If Not IsExistUser(txtUserName,””) Then
…添加用户
DataE.cmdAdd txtUserName,txtPassword,txtRealname,txtUnit,Now,udAge,Usertype, State MsgBox “注册成功！”,vbOKOnly + vbInformation, “注意”
Unload Me
FrmSearch.show
Else
MsgBox “用户已经存在！请重新注册一个新的用户名”,vbOKOnly+ vbInformation,”注意”
TxtUserName.Text=”“
TxtPassword.Text= ““
TxtPwAgain.Text=”“
TxtUserName.SetFocus
End If
Exit sub
4.4 权限管理模块设计（Manage窗体的建立）
加、修改、删除等操作，即可以查看和修改数据库中所有的内容。
在Manage 窗体中，使用了TabStrip控件，创建了两个选项卡，还必须添加两个Frame 控件与TabStrip控件配合使用，在TabStrip控件的Click事件中，根据用户所选择的选项卡来显示相应的Frame 控件。具体代码见附录。
Private Sub tsUser_Click()
Frame1(tsUser.SelectedItem.Index –1).Zorder 0
End Sub
4.5询模块的设计（frmSearch 窗体的建立）
frmSearch窗体实现了查询表的功能。该模块链接数据库中StudentTable、ScorTable 两个表。初始化和载窗体的代码如下：
Private Sub Form_Load()
tsBorrow.Top =200
tsBorrow.Left=(mdiFrm.ScaleWidth-tsBorrow.Width)/2
Frameborrow(0).Left=tsBorrow.ClientLeft
Frameborrow(0).Top=tsBorrow.ClientTop
Frameborrow(0).Height=tsBorrow.ClientHeight
Frameborrow(0).Width=tsBorrow.ClientWidth
Frameborrow(0).Zorder 0
cmbIrem.AddItem “无“，0
cmbItem.AddItem “学号”,1
cmbItem.AddItem “姓名”,2
cmbItem.AddItem “班级”,3
cmbItem.AddItem “性别”,4
cmbItem.ListIndex=1
If DataE.conLibrary.State=adstateOpen Then
DataE,conLibrary.Close
End If
DataE.conLibrary.Open
DataE.cmdStudent
optnIDand.V alue=True
optnNameand.Value=True
optnClassand.Value=True
optnGenderand.V alue=True
optnTimeand.Value=True
optnKeyFore.Value=True
frameBack.Visible=False
frameDetail.Visible=False
call cmdSearch_Click
mdiFrm.mnuBorrow.Enabled=False
End Sub
小结：
本学生信息管理系统程序可实现的功能很多，但还不够全面。例如，没有管理员就无法修改学生成绩；系统用户和学生不一致（学生用学号作为用户名）；学生能够看到其他人的成绩等。
参考文献
（1）《Visual Basic》基础教程中国水利水电出版社张勇2004年1月第一版
（2）《信息系统设计与开发》机械工业出版社黄明梁旭2004年3月第1版
5．附录
附录1 数据库表格
运行Microsoft Access 2000,建立一个新的数据库，然后分别设计StudentTable、UserTable
和ScoreTable三个表。
ScoreTable:
附录2 系统源代码
学生信息管理系统的数据库部分是使用Microsoft Access 2000来实现的。首先是数据库的建立，运行Microsoft Access 2000，建立一个新的数据库，然后分别设计Stud entTable、UserTable 和ScoreTable 三个表。其中StudentTable 表保存学生的信息，ScoreTable表保存学生的成绩，UserTable 表保存用户的信息。
程序的设计按照一个标准的exe 的界面来设计的。它一共有5个窗体（Frmsearch 、Login 、mdiFrm 、Register），两个类模块（mdlMain、mdlVar）和一个Data 控件（DataE.Dsr）。
5.2.1 mdiFrm主窗体的建立
建立一个新的工程，添加MDI窗体，保存为mdiFrm，并将在工程属性对话框中的“通用”选项卡中的“启动对象”设为“mdiFrm”，使mdiFrm成为启动窗体。在此程序中，mdiFrm 是主窗体，所以要在mdiFrm上的菜单和工具栏中提供各个窗体间的切换。
界面设计好后，进行代码编写。当用户输入用户名和密码后，单击“确定”按钮，则程序要和数据库进行交互，查询用户是否存在。如果有，则允许用户进行下一步操作，即进入系统；如果没有这个用户，则请求用户注册为新用户。
要查询数据库中是否存在该用户，程序中使用IsExistUser函数来实现。IsExistUser函数在公共模块mdlVar中，它返回一个Boolean 值。如果返回值为True,则数据库存在该用户，反之不存在。
IsExistUser函数要和数据库链接。本程序使用DataEnviroument工具来访问数据库。
数据库的查询工作，但首先要设置command对象的Active Connection 属性和CommandText 属性。
Private Sub MDIForm_Load()
F_CurUser ID=0
g_bLogin=False
g_bAdmin=False
f_bstudent=False
mnuFileLog_click
End sub
private Sub mnuAboutit_click()
MsgBox”毕业设计：”+chr$(13)+chr$(10)+”----学生信息管理系统”+chr$(13)+chr$(10)+”2005.6”,0,”学生信息管理系统”
End sub
Private Sub munExit_click()
If MsgBox(“是否退出此系统？”,vbYes No+vbcritical,”系统”)=vbYes Then End
End If
End sub
Private Sub mnuFile Log_click()
Closewin
Login.Height=3600
Login.width=4000
Login.Left=5000
Login.Top=2000
Login.show
End Sub
Private Sub mnuLogout_click()
If MsgBox(“是否真的注销当前用户？”,vbcritical+vbYes No,”注销”)=vbYes Then
g_bLogin=False
g_bAdmin=False
g_bstudent=False
g_CurUser ID=0
closewin
End If
End Sub
Private SubmnuMng_click()
If g_bAdmin=True Then
Closewin
Manage.show
Else
MsgBox”请以管理员身份登陆系统！”,vbInformation,”登陆”
End If
End sub
Private sub mnuBorrow_click()
Closewin
Frmsearch.show
Else
MsgBox”请先登陆系统！”,vbInformation,”登陆”
End If
Closewin
End sub
Private Sub mnuReg_click()
Closewin
Register.show
End sub
Pribate Sub Toolbar1_Buttonclick(Byval Button As Mscmctllib.Button) Select case Button.key
case”logout”
MnuLogout_click
Case”reg”
MnuTeg_click
Case”Mng”
MnuMng_click
Case”borrow”
MnuBorrow_click
End select
End sub
Private Sub mnuMng_click()
…单击“系统员管理”
If g_bAdmin=True Then?如果是管理员，则显示管理界面
Closewin
Manage.show
Else
MsgBox”请以管理员身份登陆系统！”,vbInformation,”登陆”End If
End Sub
Private Sub mnuBorrow_click()
…单击“用户出查询”
If g_bStudent=True Then
Closewin
Frmsearch.show
Else
MsgBox”请先登陆系统！”,vbInformation,”登陆“
End If
Closewin
End sub
…单击“注册”
closewin
Register.show
End sub
Private sub Toolbar1_Buttonclick(Byval Button As Mscomctllib.Button)
Select case Button.key
case”login”
mnuFilelog_click
case”logout”
mnuLogout_click
case”reg”
mnuMng_click
case”mng”
mnuMng_click
case”borrow”
mnuBorrow_click
End select
End sub
5.2.2 Login窗体的建立
Login窗体实现了用户登陆到系统的功能。它的形式为，一个是填写“用户名”的文本框，一个是填写“密码”的文本框，然后是“确认”按钮和“取消”按钮。如下图其中管理员的用户名为admin，口令为1，均已在初始化时设定。
各主要控件属性如下表所示
下面是IsExistUser函数的源程序：
Public Function IsExistUser(stuUseName Asstring,strpwd As string)As Boolean Dim cmd As command
Dim rs As Recordset
Set cmd=New command …打开连接
If DataE.conLibrary.state=adstate closed Then
DataE.conLibrary.open
End If
Cmd .Active connection=DataE.conLibrary?注册
https://www.doczj.com/doc/cd6748546.html,mandText=”select * from Usertable where Username=?”&strUserName&”?”
If strpwd<>” “ Then
…登陆
https://www.doczj.com/doc/cd6748546.html,mandText=https://www.doczj.com/doc/cd6748546.html,mandText+”and pwd=?”&strpwd&”?”
End If
…有无重复
set rs=cmd.Execute
If rs.Recordcount<> 0 then