学生信息管理系统.docx

学生信息管理系统.docx

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

学生信息管理系统

伊犁师范学院

信管12-4班学生大作业（设计）

论文题目：

小型学生信息管理系统

学生姓名：

杨亚龙

系别：

电子与信息工程学院

专业：

信息管理与信息系统

学号：

12210314007

指导教师：

帕丽旦

定稿时间：

2012年12月16日

目录

系统分析2

1.开发本程序的运行环境2

2.程序整体架构2

3.数据库设计4

3.1数据库的选择4

3．2数据库结构设计4

4.详细设计5

4.1主要界面设计5

4.2主要程序代码设计8

5.设计总结11

致谢13

参考文献13

小型学生信息管理系统

杨亚龙

（伊犁师范学院信息管理与信息系统12-4，新疆伊宁市835000）

系统分析：

本程序面向对象开发工具VisualBasic6.0和数据库设计软件Access2000开发了小型学生信息管理程序。

该大学生小型学生信息管理程序主要实现以下5个功能模块：

密码模块,可以登陆、退出；用户管理模块，用户名，密码修改；学生基本信息管理模块，可以对学生的基本信息进行查找、添加、删除、打印等操作；学生成绩信息管理模块，可以对学生的成绩信息进行查找、添加、删除、打印等操作；学生综合素质测评信息管理模块，可以对学生的综合素质信息进行查找、添加、删除、打印等操作；

1．开发本程序的系统运行环境

客户端的要求不是很高，其运行环境要求如下：

处理器：

IntelPentium（R）Dual_Core或更高

内存：

1G以上

硬盘空间：

2GB

显卡：

NVIDIAGeForceG105M显示适配器或更高

操作系统：

Windows2003/XP

数据库：

MicrosofrAccess2003

2.程序整体构架

小型学生信息管理程序的目的在于实现小型学生信息无纸化记录，这设计所实现的功能即结构可以一下所示的界面来描述

图1系统模块图

3.数据库设计

3.1数据库的选型

随着计算机技术的发展，数据库越来越显示出其强大的数据存储和数据管理功能。

目前，所使用的数据库类型较多，这设计采用了MicrosoftAccess2003，它是运行于windows系列平台之上的具备了多媒体于开放性的数据库系统，它的直观性、开放性、易用性以及功能强大的特点成为目前很受欢迎的数据库软件。

3.2数据结构设计

本系统使用Access作为数据库管理系统。

在Access中新建一个库，命名为db1.mdb。

这个库里面建立四个表。

它们分别设计如附表所示。

图2学生成绩信息表

图3学生基本信息表

图4学生综合素质测评表

4.详细设计

4.1主要界面设计

4.1.1登陆窗体界面的设计

登录模块可以输入用户名各密码后进入本程序。

界面如图所示：

4.1.2学生信息管理模块主界面设计

在界面上主要对实现其它模块界面的查寻。

界面如图所示：

4.1.3学生基本信息查询管理模块

在本模块中，主要是为学生的基本信息浏览提供方便，可以实现查找、添加、删除、打印记录等操作。

界面如下图所示：

4.1.4学生成绩信息管理模块

在本模块中，主要是对学生成绩信息的浏览提供方便，可以实现查找、添加、删除、打印记录等操作。

界面如下图所示：

4.1.5学生综合素质测评信息管理模块

在本模块中，主要是对学生综合素质信息的浏览提供方便，可以实现查找、添加、删除、打印记录等操作。

界面如下图所示：

4.1.6用户信息管理模块

在此模块中主要实现对用户信息的添加修改等操作。

界面如图所示：

4.2主要程序代码的编写

4.2.1登录窗体界面的代码:

PrivateSubCommand1_Click（）

DoWhileData1.Recordset.EOF=False

IfData1.Recordset.Fields（0）=Text1.TextAndData1.Recordset.Fields

（1）=Text2.TextThen

Module2.qx=Data1.Recordset.Fields

（2）

MDIForm1.Show

Me.Hide

Action=MsgBox（"成功登陆",vbOKOnly,"登陆"）

Form1.Hide

Form3.Show

Module1.name1=Text1'模块1赋值，用于公共应用

ExitDo

Else

Data1.Recordset.MoveNext

EndIf

Loop

IfData1.Recordset.EOF=TrueThen

Action=MsgBox（"你输入的信息有误，请重新输入！

",vbOKOnly,"温馨提示"）'消息框的写法

Text1.Text=""

Text2.Text=""

Text1.SetFocus'text1获取焦点

EndIf

EndSub

4.2.2退出代码

PrivateSubCommand2_Click（）

End

EndSub

4.2.3时间显示与动态字体代码：

PrivateSubTimer1_Timer（）

a=Now（）

Label1.Caption=a

If（Form1.Width-Label5.Left）>100Then

Label5.MoveLabel5.Left+100

Else

Label5.Move0

EndIf

EndSub

4.2.4学生信息主界面模块代码

PrivateSubCommand1_Click（）

Form2.Show

Form3.Hide

EndSub

PrivateSubCommand2_Click（）

Form4.Show

Form3.Hide

EndSub

PrivateSubCommand3_Click（）

Form5.Show

Form3.Hide

EndSub

PrivateSubCommand4_Click（）

End

EndSub

4.2.5学生信息查询代码

PrivateSubCommand9_Click（）

DimaAsString

a=InputBox（"请输入学号","查找信息"）

Ifa=""Then

ExitSub

EndIf

Adodc1.Recordset.Find"学号='"&a&"'"

IfAdodc1.Recordset.EOFThen

MsgBox"查无此记录"

EndIf

EndSub

4.2.6打印代码

PrivateSubCommand6_Click（）

DataReport1.Show

EndSub

4.2.7删除记录代码

PrivateSubCommand9_Click（）'删除记录的方法

Action=MsgBox（"是否删除?

",vbYesNo,"删除记录"）

IfAction=vbYesThen

Adodc1.Recordset.Delete

Adodc1.Recordset.MovePrevious

EndIf

EndSub

5.设计总结

经过一学期对vb课程的学习，自己开发了这款小型的学生信息管理系统，其功能基本符合用户要求，能够完成信息的查询、存储、修改、添加等功能。

在这一段时间里，自己认为学到了好多东西，对程序开发知识的学习有了进一步的提高。

由于目前自己在程序开发方面的知识能力有限，所以开发出的本系统在功能上和美观上等方面还有些不理想的地方，信息出错处理不够人性化等方面问题都有待于进一步改善。

致谢

在系统开发的这一段日子里，我受到了帕丽旦老师的指导，帕老师在这一段时间里耐心的指导我完成本系统的开发，帕老师严谨的指导态度与深厚的理论知识都让我收益非浅，从她身上学到了很多东西，无论是理论还是实践都使我的知识有很大的提高，在此我提出感谢，同时也感谢那些对我提供帮助的同学们，他们的支持使我顺利的完成了本系统的开发。

[参考文献]：

[1]王平，王俊玲.VisualBasic数据程序设计教程[M].武汉：

华中科技大学出版社.

[2]工晟，韩泽坤.Access经典案例解析[M].北京：

清华大学出版社.

[3]刘晓华.VisualBasic多媒体编程精编16讲[M].北京：

电子工业出版社.

[4]张军安.VisualBasic应用基础教程[M].西安：

西北工业大学出版社.