学生管理系统说明书.docx

学生管理系统说明书.docx

《学生管理系统说明书.docx》由会员分享，可在线阅读，更多相关《学生管理系统说明书.docx（18页珍藏版）》请在冰豆网上搜索。

学生管理系统说明书

学生信息管理系统是典型的信息管理系统（MIS）,其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。

对于前者要求建立起数据一致性和完整性强、数据安全性好的库。

而对于后者则要求应用程序功能完备,易使用等特点

随着学校规模的不断扩大，学生数量急剧增加，有关学生的各种信息也成倍增长。

面对如此庞大的信息量，开发学生信息管理系统来提高学生管理工作的效率就成为必然。

通过该系统，可以做到信息的规范管理、科学统计和快速查询，从而减少管理方面的工作量。

本系统主要通过VisualBasic6.0为开发工具，与SQLserver进行数据库连接，实现了对学生信息的录入，修改，删除，查修等功能。

本系统操作简单，画面整洁，比较实用。

关键字：

学生信息管理系统;VisualBasic6.0;SQLserver2005

目录

引言1

第一章统的功能要求与需求分析2

1.1学生信息管理系统功能要求2

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

第二章系统的开发工具及数据库的设计5

2.1系统开发工具的选择5

2.2数据库的设计5

第三章系统代码及开发过程7

3.1系统的开发7

3.2功能需求描述7

3.3系统界面制作7

3.3.1登录界面的制作7

3.3.2主页的设计9

3.3.3学生信息管理的设计10

3.3.4课程信息管理设计13

第四章总结16

参考文献17

引 言

学生信息管理系统（Student Information Management System），以下简称SIMS，是针对学校人事处的大量业务处理工作而开发的管理软件，是典型的管理信息系统。

它是一个教育单位不可缺少的部分，它的内容对于学校的决策者和管理者来说都至关重要，它能够为用户提供充足的信息和快捷的查询手段。

能有效的帮助学校和老师掌握学生的情况，为学生提供成绩跟课程方面的查询。

在传统模式下利用人工进行学生信息管理系统论文，存在着较多的缺点，如：

效率底，保密性差，时间一长将产生大量的文件和数据，更不便于查找，更新，维护等。

诸如这些情况，令学校管理者对学生信息管理系统论文带来了很大困难，严重影响了教育工作者的工作效率。

　　随着科学技术的不断提高，计算机科学日渐成熟， 使用日趋成熟的计算机技术来代替传统的人工模式，来实现学生信息的现代化管理，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的作用。

作为计算机应用的一部分，使用计算机对学生信息进行管理，具有着手工管理所无法比拟的优点.例如：

检索迅速、查找方便、易修改、可靠性高、存储量大、数据处理快捷、保密性好、寿命长、成本低、便于打印等。

这些优点能够极大地提高学生信息管理系统论文的效率，也是学校的科学化、正规化管理，与世界接轨的重要条件。

用计算机制作的学生信息管理系统论文还可以通过功能强大的Internet网及时的向学生的家长传递该生在校的最新成绩，有助于学校与家长的信息互动，为更好地把握学校的教育方针起到了一定的促进作用！

因此，开发这样一套管理软件成为很有必要的事情。

第一章系统的功能要求与需求分析

1.1学生信息管理系统功能要求

本系统主要用于学生信息管理，其主要任务是用计算机对实现学生基本信息，学习课程，各科成绩，及用户信息的添加，修改，删除，查询等操作。

其功能主要有：

学生信息的管理、学生课程的管理、学生成绩的管理、用户信息的管理。

1.2学生信息管理系统需求分析

当今时代是飞速发展的信息时代，在各行各业中离不开信息管理处理，这正是计算机被广泛应用于管理系统的原因。

管理系统是进行信息的采集、存储、加工、维护和使用的系统，它是随着管理科学和技术科学的发展而形成的。

学生信息管理系统是一个教育单位不可缺少的部分，它的内容对于学校的决策者和管理者来说都至关重要，所以学生信息管理系统能为用户提供充足的管理手段。

学生信息管理系统提供了强大的学生信息管理功能，方便系统管理员对学生信息的添、修改、删除、查询等操作。

系统主要的框架结构如下图所示：

图1.1系统框架

各个模块之间相互关联。

模块内部结构图为：

图1.2模块内部结构

系统E-R图

图1.3E-R图

第二章系统的开发工具及数据库的设计

2.1系统开发工具的选择

系统采用微软的VisualStudio6.0简体中文版进行开发

系统数据库采用的是MicrosoftSQLServer2005

2.2数据库基本表的建立

图2.1成绩表

图2.2课程信息表

图2.3成绩信息表

图2.4学生信息表

图2.5用户信息表

第三章系统代码及开发过程

3.1系统的开发

学生信息管理系统对学校加强学生信息理有着极其重要的作用。

由于各个大学都在持续扩招，学生的数量日益庞大，传统的手工成绩管理不仅工作量大，而且容易出现问题。

而本系统则是在以前成绩管理系统的基础之上开发出来的。

3.2功能需求描述

按学生角度管理教师可以看到学生信息和成绩信息。

学生信息包括学生姓名，性别，民族，入学日期，出生日期等信息。

课程信息包括课程号，课程名，学时，学分等信息。

成绩管理包括课程号，学号，分数等信息。

每一个单独的管理系统都可以对其进行增加、修改和删除，字体可大可小。

本系统由4个窗体组成，以下是几个主要窗体的图示及代码。

3.3系统界面制作

3.3.1.登录界面的制作

用户在本窗体输入相应的学号和密码，单击“登录”就会将输入提交给系统以用学号、密码。

如果学号及密码正确，则会进入系统主页。

否则系统会给出提示重新输入。

使用内蒙古工业大学金川校区电力大楼做背景图片

运行效果如下：

图3.1登陆界面

代码如下：

PrivateSubCommand1_Click（）

DimuserAsString

DimpasswordAsString

DimpwAsString

DimyhAsString

DimaAsString

user=Text1.Text

password=Text2.Text

IfText1.Text<>""AndText2.Text<>""Then

Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=PXSCJ;DataSource=XS18"

Adodc1.RecordSource="select学号,密码fromDLBwhere学号='"&user&"'and密码='"&password&"'"

Adodc1.Refresh

IfAdodc1.Recordset.RecordCount>0Then

Form1.Show

UnloadMe

Else:

MsgBox"学号不存在或密码错误！

！

",vbOKOnly+vbExclamation,"提示"

Text1.Text=""

Text2.Text=""

Text1.SetFocus

EndIf

Else

MsgBox"学号和密码不能为空！

！

",vbOKOnly+vbExclamation,"提示"

Text1.Text=""

Text2.Text=""

Text1.SetFocus

EndIf

EndSub

PrivateSubCommand2_Click（）

sure=MsgBox（"确定要退出系统吗？

",vbOKCancel,"提示信息"）

Ifsure=vbOKThen

End

Else

EndIf

EndSub

3.3.2主页的设计

主要是使用菜单编辑器对系统实现的功能进行分类和列举，该系统可以分为学生信息管理，课程信息管理，成绩管理.

运行效果如下：

图3.2学生成绩管理系统

代码如下：

PrivateSubImage1_Click（）

EndSub

PrivateSubmStuInfo_Click（）

Form3.Show

EndSub

PrivateSub成绩信息录入_Click（）

Form3.Show

EndSub

PrivateSub退出系统_Click（）

End

EndSub

PrivateSub课程信息管理_Click（）

form4.Show

EndSub

PrivateSub学生信息查询_Click（）

stusearch.Show

EndSub

3.3.3学生信息管理的设计

该窗体能够实现学生成绩的录入，修改，删除及查询操作。

运行效果如下：

图3.3学生信息管理

代码如下：

PrivateSubCommand1_Click（）

OnErrorGoToerrorhandler'允许错误发生

IfText1.Text<>""Then

Adodc1.RecordSource="select*fromXSBwhere学号='"&Text1.Text&"'"

Adodc1.Refresh

IfAdodc1.Recordset.RecordCount>0Then

MsgBox"此人已登记！

",vbOKOnly,"提示信息"

ExitSub

EndIf

Adodc1.Recordset.AddNew

Adodc1.Recordset.Fields（"学号"）=Text1.Text

Adodc1.Recordset.Fields（"姓名"）=Text2.Text

Adodc1.Recordset.Fields（"性别"）=Text3.Text

Adodc1.Recordset.Fields（"专业"）=Text4.Text

MsgBox"添加成功!

",vbOKOnly,"提示信息"

Adodc1.Recordset.Update

ExitSub

ExitSub

Else

MsgBox"请将数据添加完整!

",vbOKOnly,"提示信息"

EndIf

errorhandler:

'允许错误发生的错误处理

IfErr.Number=-2147467259Then

MsgBox"无此类型，添加不成功。

",vbOKOnly,"提示信息"

'ResumeNext

ExitSub

EndIf

EndSub

PrivateSubCommand2_Click（）

OnErrorGoToerrorhandler'允许错误发生

Adodc1.RecordSource="select*fromXSB"

IfAdodc1.Recordset.RecordCount=0Then

MsgBox"没有该学号",vbOKOnly,"提示信息"

ExitSub

EndIf

sure=MsgBox（"确定删除吗？

",vbOKCancel,"提示信息"）

SelectCasesure

CasevbOK

Adodc1.Recordset.Delete

Adodc1.Recordset.Update

MsgBox"记录已删除。

",vbOKOnly,"提示信息"

Text1.Text=""

CasevbCancel

ExitSub

EndSelect

Adodc1.Refresh

ExitSub

errorhandler:

'允许错误发生的错误处理

'IfErr.Number=91Then

'ResumeNext

'EndIf

EndSub

PrivateSubCommand3_Click（）

Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=PXSCJ;DataSource=XS18"

Adodc1.RecordSource="select*fromXSBwhere学号='"&Text1.Text&"'"

SetDataGrid1.DataSource=Adodc1

DataGrid1.Refresh

ExitSub

EndSub

PrivateSubCommand4_Click（）

Form1.Show

UnloadMe

EndSub

rivateSubImage1_Click（）

EndSub

3.3.4.课程信息管理的设计

图3.4

代码如下：

PrivateSubCommand1_Click（）

DimaAsString

DimbAsString

DimcAsString

DimdAsString

a=Text1.Text

b=Text2.Text

c=Text3.Text

d=Text4.Text

Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=PXSCJ;DataSource=XS18"

Adodc1.RecordSource="select*fromKCBwhere课程号='"&a&"'or课程名='"&b&"'or学生='"&c&"'or学分='"&d&"'"

SetDataGrid1.DataSource=Adodc1

DataGrid1.Refresh

ExitSub

EndSub

PrivateSubCommand2_Click（）

OnErrorGoToerrorhandler'允许错误发生

Adodc1.RecordSource="select*fromKCB"

Adodc1.Refresh

IfAdodc1.Recordset.RecordCount=0Then

MsgBox"无修改目标",vbOKOnly,"提示信息"

ExitSub

EndIf

Adodc1.RecordSource="select*fromKCBwhere课程号="+Text1.Text+""

IfText1.Text=""OrText2.Text=""OrText3.Text=""OrText4.Text=""Then

MsgBox"信息输入不完整！

",vbOKOnly,"提示信息"

ExitSub

EndIf

Adodc1.Refresh

Adodc1.Recordset.Fields（"课程号"）=Text1.Text

Adodc1.Recordset.Fields（"课程名"）=Text2.Text

Adodc1.Recordset.Fields（"学生"）=Text3.Text

Adodc1.Recordset.Fields（"学分"）=Text4.Text

Adodc1.Recordset.Update

MsgBox"修改成功！

",vbOKOnly,"提示信息"

Adodc1.Refresh

ExitSub

errorhandler:

'允许错误发生的错误处理

IfErr.Number=3021Then

MsgBox"课程号不存在，不能修改。

",vbOKOnly,"提示信息"

'resumenext

ExitSub

EndIf

IfErr.Number=-2147217900Then

MsgBox"课程号存在相关记录，不允许更新或删除。

",vbOKOnly,"提示信息"

ResumeNext

ExitSub

EndIf

IfErr.Number=-2147217904Then

MsgBox"课程号输入错误，请输入长整型",vbOKOnly,"提示信息"

'resumenext

ExitSub

EndIf

EndSub

PrivateSubCommand3_Click（）

Form1.Show

UnloadMe

EndSub

第四章总结

在本系统的开发过程中，由于本人是初次开发软件，在知识、经验方面都存在着不足。

另外，在整个开发的过程中，时间也比较仓促。

因此，该系统必然会存在一些缺陷和不足。

但会在今后的学习中不断修改更新，使其操作方便、效率高、数据库管理容易。

通过这次课程设计，巩固了对SQLServer的学习，同时也对VisualBasic6.0得到了初步的了解，并用其编写一些很简单的程序。

在课设即将完成之际，回顾紧张但又充实的学习过程，在此向所有关心我的及帮助我的老师和同学们致以最真诚的感谢。

参考文献

[1]郑阿奇著.SQLServer实用教程[M].第3版.北京：

电子工业出版社.2009

[2]赵斌著.SQLServer2008应用开发案例解析[M].上海：

科学出版社，2009

[3]余青松著.VB.NET程序设计[M].北京：

北京交通大学出版社.2011

[4]钟斌著.动态网页基础与实例[M].北京：

机械工业出版社.2004

[5]孙更新著.SQLServer2005中文版经典案例设计与实现[M]．电子工业出版社．2006.10